From 41f83fd49a56802ba2164cd4d601a0f5e7bec37e Mon Sep 17 00:00:00 2001 From: Matthew Thompson Date: Thu, 9 Jun 2022 08:30:25 -0400 Subject: [PATCH] Remove GEOSradiation_GridComp (new repo) --- .../GEOSphysics_GridComp/.gitignore | 3 + .../GEOSradiation_GridComp/CMakeLists.txt | 14 - .../GEOS_RadiationGridComp.F90 | 809 - .../GEOS_RadiationShared/.gitignore | 3 - .../GEOS_RadiationShared/CMakeLists.txt | 16 - .../RRTMGP_cmake/CMakeLists.txt | 81 - .../RRTMGP_cmake/pmn_notes | 17 - .../RRTMGP_cmake/rng/mo_rng.F90 | 75 - .../RRTMGP_cmake/rng/mo_rng_mklvsl.F90 | 121 - .../RRTMGP_cmake/rng/mo_rng_mklvsl_plus.F90 | 119 - .../RRTMGP_cmake/rng/mo_rng_mt19937.F90 | 340 - .../cloud_condensate_inhomogeneity.F90 | 70417 ---------------- .../GEOS_RadiationShared/cloud_subcol_gen.F90 | 747 - .../GEOS_RadiationShared/getirtau.code | 102 - .../GEOS_RadiationShared/getnirtau.code | 218 - .../GEOS_RadiationShared/gettau.F90 | 227 - .../GEOS_RadiationShared/getvistau.code | 200 - .../GEOS_RadiationShared/radconstants.F90 | 288 - .../GEOSirrad_GridComp/CMakeLists.txt | 16 - .../GEOSirrad_GridComp/GEOS_IrradGridComp.F90 | 4052 - .../GEOSirrad_GridComp/IrradDoc03.pdf | Bin 391424 -> 0 bytes .../GEOSirrad_GridComp/IrradDoc94.pdf | Bin 2648750 -> 0 bytes .../GEOSirrad_GridComp/RRTMG/CMakeLists.txt | 1 - .../RRTMG/rrtmg_lw/CMakeLists.txt | 1 - .../GEOSirrad_GridComp/RRTMG/rrtmg_lw/README | 280 - .../RRTMG/rrtmg_lw/gcm_model/CMakeLists.txt | 3 - .../rrtmg_lw/gcm_model/modules/CMakeLists.txt | 12 - .../rrtmg_lw/gcm_model/modules/parrrtm.F90 | 112 - .../rrtmg_lw/gcm_model/modules/rrlw_cld.F90 | 25 - .../rrtmg_lw/gcm_model/modules/rrlw_con.F90 | 48 - .../rrtmg_lw/gcm_model/modules/rrlw_kg01.F90 | 41 - .../rrtmg_lw/gcm_model/modules/rrlw_kg02.F90 | 39 - .../rrtmg_lw/gcm_model/modules/rrlw_kg03.F90 | 41 - .../rrtmg_lw/gcm_model/modules/rrlw_kg04.F90 | 39 - .../rrtmg_lw/gcm_model/modules/rrlw_kg05.F90 | 43 - .../rrtmg_lw/gcm_model/modules/rrlw_kg06.F90 | 42 - .../rrtmg_lw/gcm_model/modules/rrlw_kg07.F90 | 41 - .../rrtmg_lw/gcm_model/modules/rrlw_kg08.F90 | 47 - .../rrtmg_lw/gcm_model/modules/rrlw_kg09.F90 | 41 - .../rrtmg_lw/gcm_model/modules/rrlw_kg10.F90 | 39 - .../rrtmg_lw/gcm_model/modules/rrlw_kg11.F90 | 41 - .../rrtmg_lw/gcm_model/modules/rrlw_kg12.F90 | 38 - .../rrtmg_lw/gcm_model/modules/rrlw_kg13.F90 | 44 - .../rrtmg_lw/gcm_model/modules/rrlw_kg14.F90 | 39 - .../rrtmg_lw/gcm_model/modules/rrlw_kg15.F90 | 40 - .../rrtmg_lw/gcm_model/modules/rrlw_kg16.F90 | 39 - .../rrtmg_lw/gcm_model/modules/rrlw_ncpar.F90 | 66 - .../rrtmg_lw/gcm_model/modules/rrlw_ref.F90 | 25 - .../rrtmg_lw/gcm_model/modules/rrlw_tbl.F90 | 44 - .../rrtmg_lw/gcm_model/modules/rrlw_vsn.F90 | 54 - .../rrtmg_lw/gcm_model/modules/rrlw_wvn.F90 | 99 - .../rrtmg_lw/gcm_model/src/CMakeLists.txt | 45 - .../gcm_model/src/rrtmg_lw_cldprmc.F90 | 387 - .../rrtmg_lw/gcm_model/src/rrtmg_lw_init.F90 | 3269 - .../gcm_model/src/rrtmg_lw_k_g_01.F90 | 2235 - .../gcm_model/src/rrtmg_lw_k_g_02.F90 | 2080 - .../gcm_model/src/rrtmg_lw_k_g_03.F90 | 12005 --- .../gcm_model/src/rrtmg_lw_k_g_04.F90 | 10857 --- .../gcm_model/src/rrtmg_lw_k_g_05.F90 | 11600 --- .../gcm_model/src/rrtmg_lw_k_g_06.F90 | 666 - .../gcm_model/src/rrtmg_lw_k_g_07.F90 | 5642 -- .../gcm_model/src/rrtmg_lw_k_g_08.F90 | 2517 - .../gcm_model/src/rrtmg_lw_k_g_09.F90 | 5642 -- .../gcm_model/src/rrtmg_lw_k_g_10.F90 | 2080 - .../gcm_model/src/rrtmg_lw_k_g_11.F90 | 2255 - .../gcm_model/src/rrtmg_lw_k_g_12.F90 | 3297 - .../gcm_model/src/rrtmg_lw_k_g_13.F90 | 4846 -- .../gcm_model/src/rrtmg_lw_k_g_14.F90 | 2086 - .../gcm_model/src/rrtmg_lw_k_g_15.F90 | 4030 - .../gcm_model/src/rrtmg_lw_k_g_16.F90 | 4820 -- .../rrtmg_lw/gcm_model/src/rrtmg_lw_rad.F90 | 621 - .../gcm_model/src/rrtmg_lw_rtrnmc.F90 | 392 - .../gcm_model/src/rrtmg_lw_setcoef.F90 | 2220 - .../gcm_model/src/rrtmg_lw_taumol.F90 | 3149 - .../GEOSirrad_GridComp/irrad.F90 | 3051 - .../GEOSirrad_GridComp/irradconstants.F90 | 2434 - .../GEOSsatsim_GridComp/CMakeLists.txt | 47 - .../GEOS_SatsimGridComp.F90 | 5005 -- .../GEOSsatsim_GridComp/MISR_simulator.f | 473 - .../Met_Office_license.txt | 79 - .../actsim/lidar_simulator.F90 | 553 - .../actsim/lmd_ipsl_stats.F90 | 440 - .../GEOSsatsim_GridComp/cmor/COSP_table_1D | 3459 - .../GEOSsatsim_GridComp/cmor/COSP_table_2D | 3410 - .../cmor/cosp_output_cmor_nl.txt | 15 - .../GEOSsatsim_GridComp/congvec.f | 54 - .../GEOSsatsim_GridComp/cosp.F90 | 578 - .../GEOSsatsim_GridComp/cosp_constants.F90 | 173 - .../GEOSsatsim_GridComp/cosp_defs.h | 27 - .../cosp_isccp_simulator.F90 | 94 - .../GEOSsatsim_GridComp/cosp_lidar.F90 | 84 - .../cosp_misr_simulator.F90 | 78 - .../cosp_modis_simulator.F90 | 427 - .../GEOSsatsim_GridComp/cosp_simulator.F90 | 220 - .../GEOSsatsim_GridComp/cosp_stats.F90 | 326 - .../GEOSsatsim_GridComp/cosp_types.F90 | 1697 - .../GEOSsatsim_GridComp/cosp_utils.F90 | 342 - .../GEOSsatsim_GridComp/geos5_cosp_const.F90 | 12 - .../GEOSsatsim_GridComp/geos5_read.f90 | 68 - .../GEOSsatsim_GridComp/icarus.f | 1273 - .../GEOSsatsim_GridComp/isccp_cloud_types.f | 345 - .../GEOSsatsim_GridComp/llnl/cosp_radar.F90 | 201 - .../GEOSsatsim_GridComp/llnl/llnl_stats.F90 | 135 - .../GEOSsatsim_GridComp/llnl/pf_to_mr.f | 128 - .../GEOSsatsim_GridComp/llnl/prec_scops.f | 268 - .../GEOSsatsim_GridComp/mcai.data | 120 - .../GEOSsatsim_GridComp/modis_simulator.F90 | 1015 - .../GEOSsatsim_GridComp/quickbeam/README | 23 - .../quickbeam/array_lib.f90 | 165 - .../quickbeam/atmos_lib.f90 | 135 - .../GEOSsatsim_GridComp/quickbeam/dsd.f90 | 359 - .../quickbeam/format_input.f90 | 132 - .../GEOSsatsim_GridComp/quickbeam/gases.f90 | 182 - .../quickbeam/load_hydrometeor_classes.f90 | 54 - .../quickbeam/load_mie_table.f90 | 69 - .../quickbeam/math_lib.f90 | 395 - .../GEOSsatsim_GridComp/quickbeam/mrgrnk.f90 | 609 - .../quickbeam/optics_lib.f90 | 747 - .../quickbeam/radar_simulator.f90 | 510 - .../quickbeam/radar_simulator_types.f90 | 55 - .../GEOSsatsim_GridComp/quickbeam/zeff.f90 | 161 - .../GEOSsatsim_GridComp/scops.f | 335 - .../GEOSsolar_GridComp/CMakeLists.txt | 16 - .../GEOSsolar_GridComp/GEOS_SolarGridComp.F90 | 5292 -- .../GEOSsolar_GridComp/RRTMG/CMakeLists.txt | 1 - .../RRTMG/rrtmg_sw/CMakeLists.txt | 1 - .../GEOSsolar_GridComp/RRTMG/rrtmg_sw/README | 246 - .../RRTMG/rrtmg_sw/gcm_model/CMakeLists.txt | 2 - .../rrtmg_sw/gcm_model/modules/CMakeLists.txt | 15 - .../rrtmg_sw/gcm_model/modules/parrrsw.F90 | 115 - .../rrtmg_sw/gcm_model/modules/rrsw_aer.F90 | 60 - .../rrtmg_sw/gcm_model/modules/rrsw_cld.F90 | 47 - .../rrtmg_sw/gcm_model/modules/rrsw_con.F90 | 37 - .../rrtmg_sw/gcm_model/modules/rrsw_kg16.F90 | 76 - .../rrtmg_sw/gcm_model/modules/rrsw_kg17.F90 | 76 - .../rrtmg_sw/gcm_model/modules/rrsw_kg18.F90 | 76 - .../rrtmg_sw/gcm_model/modules/rrsw_kg19.F90 | 76 - .../rrtmg_sw/gcm_model/modules/rrsw_kg20.F90 | 80 - .../rrtmg_sw/gcm_model/modules/rrsw_kg21.F90 | 76 - .../rrtmg_sw/gcm_model/modules/rrsw_kg22.F90 | 76 - .../rrtmg_sw/gcm_model/modules/rrsw_kg23.F90 | 73 - .../rrtmg_sw/gcm_model/modules/rrsw_kg24.F90 | 86 - .../rrtmg_sw/gcm_model/modules/rrsw_kg25.F90 | 73 - .../rrtmg_sw/gcm_model/modules/rrsw_kg26.F90 | 60 - .../rrtmg_sw/gcm_model/modules/rrsw_kg27.F90 | 72 - .../rrtmg_sw/gcm_model/modules/rrsw_kg28.F90 | 68 - .../rrtmg_sw/gcm_model/modules/rrsw_kg29.F90 | 80 - .../rrtmg_sw/gcm_model/modules/rrsw_ref.F90 | 28 - .../rrtmg_sw/gcm_model/modules/rrsw_tbl.F90 | 41 - .../rrtmg_sw/gcm_model/modules/rrsw_vsn.F90 | 56 - .../rrtmg_sw/gcm_model/modules/rrsw_wvn.F90 | 57 - .../rrtmg_sw/gcm_model/src/CMakeLists.txt | 45 - .../RRTMG/rrtmg_sw/gcm_model/src/NRLSSI2.F90 | 334 - .../gcm_model/src/rrtmg_sw_cldprmc.F90 | 354 - .../rrtmg_sw/gcm_model/src/rrtmg_sw_init.F90 | 5212 -- .../gcm_model/src/rrtmg_sw_k_g_16.F90 | 4830 -- .../gcm_model/src/rrtmg_sw_k_g_17.F90 | 10921 --- .../gcm_model/src/rrtmg_sw_k_g_18.F90 | 4985 -- .../gcm_model/src/rrtmg_sw_k_g_19.F90 | 4985 -- .../gcm_model/src/rrtmg_sw_k_g_20.F90 | 2128 - .../gcm_model/src/rrtmg_sw_k_g_21.F90 | 11001 --- .../gcm_model/src/rrtmg_sw_k_g_22.F90 | 4985 -- .../gcm_model/src/rrtmg_sw_k_g_23.F90 | 606 - .../gcm_model/src/rrtmg_sw_k_g_24.F90 | 5048 -- .../gcm_model/src/rrtmg_sw_k_g_25.F90 | 544 - .../gcm_model/src/rrtmg_sw_k_g_26.F90 | 97 - .../gcm_model/src/rrtmg_sw_k_g_27.F90 | 2055 - .../gcm_model/src/rrtmg_sw_k_g_28.F90 | 10846 --- .../gcm_model/src/rrtmg_sw_k_g_29.F90 | 2140 - .../rrtmg_sw/gcm_model/src/rrtmg_sw_rad.F90 | 1315 - .../gcm_model/src/rrtmg_sw_setcoef.F90 | 302 - .../gcm_model/src/rrtmg_sw_spcvmc.F90 | 985 - .../gcm_model/src/rrtmg_sw_taumol.F90 | 2086 - .../GEOSsolar_GridComp/SolarDoc.pdf | Bin 497335 -> 0 bytes .../GEOSsolar_GridComp/sorad.F90 | 1927 - .../GEOSsolar_GridComp/soradconstants.F90 | 1684 - .../GEOSradiation_GridComp/bands.txt | 33 - 177 files changed, 3 insertions(+), 283099 deletions(-) delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/CMakeLists.txt delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationGridComp.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/.gitignore delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/CMakeLists.txt delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/RRTMGP_cmake/CMakeLists.txt delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/RRTMGP_cmake/pmn_notes delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/RRTMGP_cmake/rng/mo_rng.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/RRTMGP_cmake/rng/mo_rng_mklvsl.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/RRTMGP_cmake/rng/mo_rng_mklvsl_plus.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/RRTMGP_cmake/rng/mo_rng_mt19937.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/cloud_condensate_inhomogeneity.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/cloud_subcol_gen.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/getirtau.code delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/getnirtau.code delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/gettau.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/getvistau.code delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOS_RadiationShared/radconstants.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/CMakeLists.txt delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/GEOS_IrradGridComp.F90 delete mode 100755 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/IrradDoc03.pdf delete mode 100755 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/IrradDoc94.pdf delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/CMakeLists.txt delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/CMakeLists.txt delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/README delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/CMakeLists.txt delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/CMakeLists.txt delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/parrrtm.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_cld.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_con.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg01.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg02.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg03.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg04.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg05.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg06.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg07.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg08.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg09.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg10.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg11.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg12.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg13.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg14.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg15.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_kg16.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_ncpar.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_ref.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_tbl.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_vsn.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/modules/rrlw_wvn.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/CMakeLists.txt delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_cldprmc.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_init.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_01.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_02.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_03.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_04.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_05.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_06.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_07.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_08.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_09.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_10.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_11.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_12.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_13.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_14.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_15.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_k_g_16.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_rad.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_rtrnmc.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_setcoef.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/RRTMG/rrtmg_lw/gcm_model/src/rrtmg_lw_taumol.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/irrad.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSirrad_GridComp/irradconstants.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/CMakeLists.txt delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/GEOS_SatsimGridComp.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/MISR_simulator.f delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/Met_Office_license.txt delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/actsim/lidar_simulator.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/actsim/lmd_ipsl_stats.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cmor/COSP_table_1D delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cmor/COSP_table_2D delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cmor/cosp_output_cmor_nl.txt delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/congvec.f delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_constants.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_defs.h delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_isccp_simulator.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_lidar.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_misr_simulator.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_modis_simulator.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_simulator.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_stats.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_types.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/cosp_utils.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/geos5_cosp_const.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/geos5_read.f90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/icarus.f delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/isccp_cloud_types.f delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/llnl/cosp_radar.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/llnl/llnl_stats.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/llnl/pf_to_mr.f delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/llnl/prec_scops.f delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/mcai.data delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/modis_simulator.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/README delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/array_lib.f90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/atmos_lib.f90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/dsd.f90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/format_input.f90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/gases.f90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/load_hydrometeor_classes.f90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/load_mie_table.f90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/math_lib.f90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/mrgrnk.f90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/optics_lib.f90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/radar_simulator.f90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/radar_simulator_types.f90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/quickbeam/zeff.f90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsatsim_GridComp/scops.f delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/CMakeLists.txt delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/GEOS_SolarGridComp.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/CMakeLists.txt delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/CMakeLists.txt delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/README delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/CMakeLists.txt delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/CMakeLists.txt delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/parrrsw.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_aer.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_cld.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_con.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg16.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg17.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg18.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg19.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg20.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg21.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg22.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg23.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg24.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg25.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg26.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg27.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg28.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_kg29.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_ref.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_tbl.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_vsn.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/modules/rrsw_wvn.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/CMakeLists.txt delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/NRLSSI2.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_cldprmc.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_init.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_16.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_17.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_18.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_19.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_20.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_21.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_22.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_23.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_24.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_25.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_26.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_27.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_28.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_k_g_29.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_rad.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_setcoef.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_spcvmc.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/RRTMG/rrtmg_sw/gcm_model/src/rrtmg_sw_taumol.F90 delete mode 100755 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/SolarDoc.pdf delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/sorad.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/GEOSsolar_GridComp/soradconstants.F90 delete mode 100644 GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSradiation_GridComp/bands.txt 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 659ecdd823a07946bb123d1fc94217dfda6e43f8..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 391424 zcmd43>C&oN7A^Rni1Q8`1Qo;vK^j{S0TC5JP{9sVq*3gRxcAR}#rjciQ1v3kK27Gy zj1v`^8F?!zjM)1Fbgjjju;!R!j=7N8KrRy%>KEky`oI5=|MM4s_)+_DKP11j+dqD( zTL1GA{HV_SFvt#O{wuhBe$ch-8)kNF2Jid#bqwA=>c5{6@3&9(mG=+w_Y;%g6#M=A z|M;=aPSk$TMEwWD)qiZWUyHB%BxSf6u=Vupx8`kV~KhA?s z)@n5y{g0{@{EyGCjmp^oeq0TPZQ@JRHkVyw)uQTR{1Tto-XAFd_dM+60GCH1P`pmbk{D9 zoFU+H?-NhoBc&&Nxmvx*?KQVXQAZK$Jn#Rj`*UV~@9g(EqW(Vkf7x`u%~58KKTJpe zI%&UD|9htU*~Ncmy3CB!59+svDf^rLK{3CM?%y)$&l~zDlM*cR9~*V|2q!L5%MUA* z0~OK!LyLA-jI~$HI^9gVEl=zmd#xr6g>v~c7F&}yRzQ3C8Cs+1!V@SKD(PoNVu#wi z9uJ@gSS(HpI71oRTPim9`CB2^A|485+e|uZvEooFH)(b8Kt8MD0I3}i;Bcjdd9_uV z5AKKgEQM|5BRs|DvNajKIc-^?b-u-nY>VE}RAF)xF8*`nO$n?$?749H2`&JpPa8$S zICzB)i+2oizqzI$Wd|3H=u~RkL=Wld2`WiD`iYR`yFqPAjqk(6hs_yoLEBmv=$~3) z+^!+C*Z+Fn&>Jqg)g0S;Elv((mh50>AB1BW%~0Tw)Nw zZ1=^n@&KGvyyR|q7bZ9ibK`OX?zc9k7y^j3=Vy9YiA#Cn(H6C*(6#6ewN{Do(FUE@ z7Z~kx#B|*4Z@z*+1;#wV&;FCdgjrSb_GDukx5m_``BByvXYa+A8+S~u@^9u-O(!dPW;xU zql&q%v^CB)wg;933$lg$eL0G}=4o?4C1*jVVJBq9{-BNx9#mP_OX{1qkY_VLm|eyP z5>W;dWo)XW$JFKl9DgihA2-<8SZ;S2`D+GXm4+uP$( zf`ZrZz8-6+IbUO82{oNWCU0S-ooT!(&>ZU+wsJdE}bJ)+TO$6V-J@%VASsvdYcyk zZoP&z>ig!JP*fS*Ul>1oNZZ#lu;uk@*OcyB{dw+~14MRxWVMBRw$t*U(oxE}-+p_j zcjkjBF|S(P*(02SUVz$ctVp!h(SU{TzGmWdH@e6TrQg6P&P;oD=1Agq_t-D4_{x+p z-tU#ZY~++fakCBPr{QYVIo_gCX(i^f_rj%u_T)H#lx1VdN6_R*VX$OQYWH>CEUh+( zyx=*z#|`!?pJJcYPd*Trjk2ay7L&RV&x(NG?j0`ok5O#$%H*UJTQ%+tO-9d(6Z!{p za&7M-Gr7XGX#u*#kIrK}=g<$v`3d6kZoaflfx8#RIMPN&C*tzW7MOT$ZZ(QLC#5O^ zaaR@nHr01ct5)SxGNU&6+0C*f zI$IsA4L1YOW6t5}l=8cmjPx{ouQ7*b@G(v`_3PIFY*EVjkEQv!RdZ&$x*=%%Qj&XY zbp(EBQobdgUoEUoT#qLOmlxU6`+`w-j|>hb&y!WBA`syDW#@c=-2_IO-1o`A5|7UZKdINz z25VfU2&wg><+1WzpMy$pn|tITs>~|2&SErewh=k{T%rCkOn_q9W;PFx}#-$# zyv*llzKV2v48rrhwdnp8kooE5|ArX;MGVURiVXe)WVqi?{P%#&&o2Hptp9x&^yk3; z39$Tc!l35v-@u^nltKQ6LHmzlh5IYh5kGPM-zMo_v>ov?==d2@{0)U>fx>TR{(IK@ zwUfV%?B6oqe+7sBdQ1OgSAwQ$|6z2olE&e*kazM!bW^46N=qWZCIm5;?%AyL7fwB_ z8ptNse8T4y*UXi!pUcdc%^C;_zB5z+Ja}X8vGW;jdpB1CgT#I=&`l z81rf#mKUtJ_s|6gKErQ@+JwhME9SjRt)k=QBOt?Xb#|I=syj8x_2^ZciH!=DK^M zEEga-PYDB;V7+qM+H7k_8bW#oJCTA#aUw0lk`jh(V5(znW;iNHopCbs6KixlLFE$T z%nElWMX5H~|2#%TtIj%{KnV=iCImyQ7MV`7b0Mps_W{~kV z6X*>wN$$ccW3;>WQ?bLOS^RL>5H}0Ei4#oTNqjCgo^Kk}AO-MvRGO%rMn1e2?=N?; zyXd!hTau&bK$b7e^O&b+Yxwl#;?m&8FVs^jS5v#siQH@M79W~WfB_z;cyhevm)Itm zj#Wblw*fr?>+D^TAg|Ki3du*G=w~*?TH<4H+)hZgZ)6pLfAK z)ZcuvorB)FzdYm@hi30I%nO4w9VZtBzjmf`L}vIICbv+`K=^*CVaBf3Oj77tDwJ`oU6xV&EUBlzaT$;xj!{25$VEag&Ti}p>+PXi8FGUnj4^%U=r7f zllQe<5yxF~;n$9r zAyV8Uy|P&!t}o=Y_IjsMPH7LUtH!*?K1D0#m9|9JFS`LZV~?&t&M-}&>#p<~us2dO zc!1oN?rZTr7M{}yvd_Uj!VwsBUoFlU{IM;n@_8pxi%C~ACy0;%)3TTQ#u{zg7gAfb zdNB>0$@^fyqzVcp(>pTV+9bBp+kI;_qg@3EiB>Qh-SA@;q#ntCpKHe3Ep>McGv_DwESctsj-^# z#9r2Kt_I+vY-y-l<2jLIL?08Ig$X(@FpX7J-pVhlX5Lc1JX5`gv=K!)cV>r;$nM_cDtu<3^wA~$JT1%9g#<< z$~LF3TmHc8PXVwAuC@^&t?_>EHjvko`5u)c6B<{hc2qelk=4=->a~o&Jmd{U7MBf6KrBTYM7nCqC;Bj*z6u z|Im$R??LyQ=Pn3_Rxyh06~;?vZ&;n>fuX0QQ$Xj=^;DUwhVh5SQLf(rQ2J#)lp-lg26CywJ}4AvRmLD%NNpw`Y;vH7}Qwjv=>- z1hvksCk;#`!u z(A%Z8-reFS0BifrB+q=D&D5V54sN&22_L4dSP0r^(pwi<9_XP7tRtk(e7UI)!!XR_+Oz5{fC8g4_z;pFZ zp1Iv3W;_MMM%BClVIOVKC8trlRYoTVABnvV?$&XYPlee~_{%5xPsHHA{v`iKK>iu2 z{t>)A{EpYhdwD9ujY^Vyi<_=0q;1y|jCt%)z>qMTxHJH3{Lq3|k2bFTl zyYmnks86f{_e=iRZ4_o$r}I9ynsO^zc8%HXUhM12w~&JXOfDpmXgb`+4&w2VOc<{%txrHjH z-rL?3QR&VFm(j@>!6o_%=|vt(z?N}SD*gTH2~O%)`nBwJW8Ps801+h4UhJ0Ecv)*T zn$2rbb0<}cQjeqh@>GehWvb(n$;|8tJGWf$`(%{lq8)uM*2b1ND^Gw9)(NZo$!&2Q zgf;ZJWu_gtW5Y0P`NB+qFOE5KKC_dS-U+HD*Y|dT%wQW>gv{VtQK0Svm=!C`*6+;-*6HN^^yBY>-vfiKf#n+5 zIoF!rlsl!ff= zxd9?>ekiW|q1e6U*U^i;Nk8yn^Z9I-O!d^H4eTXo1*YEtr}xit{g#8$Gi`MjcLymQ zd-{U}a`ed>79Q@si!Wx*+Laz~t3h`!HZ3otHaSLjA3i>;=S6`|N1Iit-muXbsFWa_U@@W8>`<6nXZVaosm`(pUPn?TP!w?I5k09#=YHqa157+fEB%cW87H z>4`2pJLN+RU{;eUu@Umxtlar>am87UXcG2U)vMe}F^=zIi=ktqSb?Gbd7_?rp)qBv z73u4yL#q~D^$aaf-QZm5sn6Xm8mMk$Z1-BiZA~pZY-Rq?ShOdA%SnS-HgW@x_{(hgu!p89MV2yxv{3QO8;PYEb5^aJN z?b)DIvJ0a4%%3~oCyJKebFr-?z*c;vyT_n;ZXeL`q;sy4aP=uv`vjXDh4ygbzBrAR z-FWB~>*s>>x!}XWwTj%0{8B8|I-4Re^jdvK0gJ+|0+rHxYgFwHb+=C z6wZ}+-|a!EYJ>IaITBf>sB`e6yMx8S3qVG=Y-b^CXGFZ?@n^(i6*Q@yKXm2T8ytjg zYx{gWn-8$uHPmSH5)KpQbBy}kTUZvi)>4%KZSlz#vzByPKO4O)5p>=1`H_`^+Oo6i z7B10qGHUSMkJS|?r_#x+^8hRuPI^k7%=!@0&fU(+_L3O>-3CqEXW z{q?x)V@nwiswy0wu4g)M#^^YYq~@`FYsSYCrA+BPa7TA@`i#n3y{wRHHEIeaV{ygS z$5Z)^s1h5D&tupbUy>`7`2e{zvu2N{(%MbO(>Uz-YavN&qcC1_z=&QM;nMJJ)R~3M9ueCi2cdOuO#gU*(4}y zcb+8c*5)!=aGmRWe8f3j2Z>AaF}rGIS8`qKI4C^iaA2&Xa0tMor>x#(eZEXBsp*03 zLlfLqjqT|gTNl4F8i4|czSrlTu2a>%IK9oA-};9teZ!r|eQSCT;4r&NE!}9+tOecs zXRzNd>MyF$qX+I_TUV{#U!uc5v9SL#I;{U8jrbdnS^tCC{O_T|Upx8Fc+7t*&iQrd z|IAm`i2o1-{=bMJCjIBOrt(5+PW}}!L}%aPMBzeid9nYU!(eGe`SI(oY*_yX(a2wM z(SH%E*8kA1{N09sM6drv8~#HS{a-=&8S-a;)PD;`{yjVYDQ^A)?Nbeo`40`9@zMw3 zre6!_BC68H=1kC1KU-*3ZBq}X)5a#(46Rb3+t%JHV-O zCz*~d7Iw$(VH)@YZ+Gc(*QzHJp6{ zr>8NQ6n0DG>{QVHn5@0$Q>(}0Y#axU-gmcG%F*wBrLE*;ewWV;+Ijnd6eyw#L5SV^ zhCm^88qHecu+zDu9IgrO*H!LjdxLjH z9#;~S0oK*`3%;}$i=E3v`qy9veNx(?I&eD2sQrU|laFCU|-IjnyJHTbK) zr#aIM;4u-VEHIx*m)6r)ub;%0%5g`mENa$s=zF1zeqe%fK_O_s%8BM;;#XRi*%K4RaCUlM-OB4x9466WV0x(?R1kL=6`aEGl6jt` zu;;srgg!m``9rlW%z)Un*GyC^th9c{vUve>TS3=}UNf>TJN{ACFHf z&I?It1%HBQyPY`AtDSAs)% zacqWgBc}~#1=Pw_(cLO)9##vR7zfNX%Q{6@!HY{Kmo9`MQYeq{7JSKdz`=5#FHk*a z6O>x`U8`CJ)9IONux=I)=llm*ua%HV@+}-Fo*JWjdW9}ea{+c7d{^fV(x}pVO>HZ2 za?ShN45-?3ajbgMMcD-N@rlD;*ew5vrwFwTC4kN4E%sV3H`%0$<)j8^PdU9Zs!P(b z;lr~9teQk6-GYj-ICiM}1#1S|m|HH!x2ts;FS;#&1Q=VvcXRQufTYb{p zi(DaNbTi05FzeWatTAWEy*}2FH_bwy;h@a{&Y^X>Sp{+{?B3Whu%@=Pk5fPjxx%_U z(}p{KbVU7nso5E#=J>O#AQ}A-fKS7uq-!_VKfb|FmYnc1VZgklvRAi};w5XDnmej- z)6F(0J~um2 zVp;L|Z=prb-bbToWMU38K$UcJ;Z&^4yqh_`T-rk-Pfut2>)lKVfPf3Sq)k%r#?#}2 zHV$^Rufu?N2rdub%5$M8!Mq9chl%c|-in*S+|)VR)7DTZS9WDzYXA;+4e|2Af%h1p zh_=)JSfyg!Lq7+5{7`bIs3Uhr>X;UaCvatf!__bltEjWyZtlw|a}9mq@tD}##c|xt zF+m3Cc{jN((|l{}&u@#ud+IaPr?z3fO%k6VX~`0eNZytnYIorC_<1;h1YpFmx+)GQ zn|OpJO;@=Joz42Fejhhnf;~M`i*g}cTU6ol`7}okIjVws+EkzK7S~t8M=lJE8H{Zu6i8Dsy&GXcw+P z4b;y?`R;0Mv4OQGq1*XpI?0{VlzJb3ZmHkfMsVkc1^lH3yAQnb3_*{b~Jj^rCa8tTPmR|E^vF z6@77*1oL%fkryg;=<4c#pt#bsOWb=_nU4x!#kMCO)tj~jvt+W8xGN8dO7hjLT!l^_ zabdlh@j8UZtV?zKZbUcFKoGZNh0Sm4rK#k`!p7aTH1EkX>;4-V)RQmyHbUI5L>p9V zcINYWMixHzxeDsS-&}ic7EeHzqJ&bPnBG2(W!R(yYc>SyWqLFl7sqqw-sPdXq9JjA z(!9OQQb**DXl|q|=U-cS(q7K?fL+l3^17Z27Gw2%C+k*F0`KL8@|gM@;Z*9hXTvSr zT(v8bYM)ou&fT=81Mzw$srC3>SZ0}Vh!rc~t|oDcpxcYCD!W|tT_8v7c3)81rl6Wb z*s8)y@&r5Gy|rC5d%13-5xDiH3(wgUK!rtTe!dVn5Fw_+m%2Y>eD(KnUqG+Et>sM( zX{W8zs(Kv9JBl`o-7M>qPjZ#fW2H;nqOSrXt-7U|x-yWfFYDaBAFum$6<(tB0DXU& z-!eCt9iWB2xRvh&O)ss%XtKNXuVQ6P9h5UA0LrXTxUGD>u=`-k}klVD=kMnwtcA#?X zZ1|>Uu0Q;%Q@r5s{w5c07Yjt%IOml zNv9%s+~M)ncklXV@IW)Ev3x8u_BLCIj;88S?;dg+g|q;KyQIFvb*Jb-(EC_t^CW)b zH;wSBluyyz{}#R0yscf^G`Z~cirv->D`FkKTpgT@QZtaVymosyU*2o6pHmO)od$*0 z0_)&1_)sgjO8H(xt60l=rP*g(URuE7))X0;qwr#3tj z2d%O!-mG~N&DTaiCRFsSpVFjQiM?4C*U3>xax~*XSS1T#(&@ep446b#lhm6|?EJw0 zvgL53ZIdF@2wj^WQP(`ji>6!fkvn~OO(|U5G#c|xeZA1_`fk%NJ%GtNLi0Qjcx8(V*#`N~E`|%v;@D!IR&jNBI====2y;s2MWwEVxRZ3e8tLj(0KJ8y56xdIuso@IYC#Sd5e_PD*Y1^C5{Aqq9Ei?<}c1AOcD3jj8|g_mW) zUZG&aB4$u=ZQ*9MGP0lNU^&-rb) zS*zQ^ygJLZS7G`vx#L`pF5Xt<^!B_<$hGtumY(dUCy==v2NO`j=DN*N-#pAFB2cP$ zT#WXGvPSVAaGlR*D$PR;>cvi5YRn6_6lIT7L+LPB64Y|1+YXjG^`?$vpM!+ahTs7N z&98>TYw6iRDRdVbP&nEluKTFUyZYm?O7pqQX$syEExv3!D$dGdSlKSCrx}HN5Y5qR zAU)1ucVm;0AwaC^2>8@ckTy)S*rofHnvAdFQb zq|jZpfkv_;mHmTkZ?)IkpPgdK38j0%t+&Yl{dUU>%TMfQ+w5`O#n7Ozhq|l{3iN)0 zQ0ShUh9M9g^aQnJY-1mo`zxw&^r6~CEkA>Hs^Md$lXx8Fto$KL&Bq}H+>Y&rMI)CKSeuNgrwT?EN1J81}$=N z_L6YirENXb?BeTs`M-)!KWU@d2Y( zx={0}Cn)@LtiD;p24pWw%K4XMR#*&dbMLr|Eq(R)da%nUX);+Cvs1eQ2iN@2-wv-7(w1ILn>h850_IIV+=JpcSuhTJv z(!PqTjGh)Fto@1y+cSX@3}mX*PZ^2D0p!K%9W>e>xKg-x@A%zC%-(vy;;$hy@h<7`?-R4P|p(| zyZ$Bd_9uzNzfPY1QF-)t;_Z)Q`+t#m`-i0eze~LRtpF)ol$js(--IszIq~+VH2)vO z8}YM5?mtVjueR1f_*!Ja6H1izRtD5!7I(`bwv<@hSL>?jRT}rw!F`jZc0%rs!J+Al z3h?!F&B1{Ih}+OnrP>1SSDzROUSzRdkoxQZovS2m%iY!quX$WrB+Adxg~>~gU~-om zdHs&f+Ii>@U4iJuzNZ<~)Oxp=q2w)Sq&mRW^@GiZ&UC|F6(Ln`{X9@t2VNX62|A$+1TltVa~=sVR} z!eDnWJ>zxcFo$k(Ewo=f(im2!W2V@VMCr!I!k|hSS?3f|D^7>w zeOlBj_UM@R8-abf6{e_Q=eUaZ71dkA5~MF%1qS6{U04e4Mls=&J+AJ{T_jXat;H-y zh7)#wUBIgXTk%&%YY^1;x8eJCBE8Z$(+VE1{r&L?loe#Y3_D8Mf2unk)i2<;p9x7U z2S-$qx+ALykuR5iRtM1>G#=qAQ!eG|uSZtaLn@|4A9a9gb%xYzU269>d3eY={g!#A zHiwuS4b8%12yKWT55f)M)?&_wu%ycM(pl_etvP z)4{-;%i9T68*teGJn_EevO*~>aN(n@^_dx zhdsibw@;vbGCSs^(7mx=`S`7QSy{+hS)yLG%s16~^MD~#pup*JSW^57JOqX%yz)fj z!9DIw_pys=N{`f1a-DAHnQJ&{EL(xOV`)+*_MF{#&{ z=vJS2r+SoC;rUHD(|p%;a@z^D*SP$?(&J~<>8`0vA+b!|{fSE2W+>y7noy(O?M#IYn0BgNMG~M%%E}}lDzQfQx=yE9uwALnj9vJo}X3# zv+ADJK#WFWwpyxeW#m4Vda8CKSSiue@s37F3a9(bS1&1XEqMofdCm2F=Rt2@SDfj? zfUcO`c872zuB6oC-f~}|3ANl9%GcLTIJ9fqYQV0G&v)Q~8h`C{l54F5BBRO&D$K~C zyY>JZf)9c!`!8kk4yhCQB0Oe+tnlhz`tv^t!v65*zm{76Qk{PfpI?i_tyd=O`uW!{ znfrRZKVsy+e$Z@oIQD-(suOf}xQtJq=$+M4|8#Xf6Q=+9=a)ZzO4oiS)PDOkn4doW z=cn;&3iFTifA#<08u+V=|H`@luN(Mzqd%+X`~Exl)dE#%GMY^$rTPC%5BKZO$-mz| zgW!F9#gEVZ^@IGqkmhGf@Q+gZzesKWOV%XGKU?$HqrV&TF9tT4PR73vtVI09(0)$v zPgSsWw{P*U_4MTLsn$P@mi+mxzool>OXB|1J^oS^-p8L?6A-l;m$fJQk71Dcw$G17 zE!#z)`g1ydUM~N3nAPlu?;q6f1M2^_2|<})Yd^|$j?5b2YS}+oA=A%^{@K;kPqR{g zY4XqaqkjBrd=zfs_1E1Bs`F2fF0!BgY&s)}e;q+Kq@P3h*-W;HKv4fd{;ml4^DX{7 z^+%@tU)*Zo55SnoGP4Sz-?l0sevm)wiGH^H_gx6w4Kt{=v-}gGCHG5jKOGD|m~R!y zd`~8h3pDM#TLtnwGNe?v2u-$3&FenPK5mn&;zBzBmMkdKRRWnozE zp;m?T<}Ew8D`afN3o9I zCU@f28aFV&1h?)dEN-`L2wkHXDO?Ck7`?51JCft#Yi6Gbe7W=LHegJ#td;$OA2e?53lo!pO}&~?-hjt$tNe`mCH`7=cHIVK-)G2Z?G!t z-~CHP8b>OE=O}|%z|VdaNWJ6g>cmRvJ0%A!wr<_p*$x7rbg3&6@-h9mJ+WUZ*Y)WHMeeJs3Tke^1C;HV-+tml(61?q{>b1z)0hEOZtXg{Q`)d~3NXbmzO>Sd+`1Y!5f843{ z`TXW8GNWkGtLv-$-c-rY(QHMx2x&kC;aUS)re13-BX8a)jso1KX{wbN}yNp(l8#Z6Y&^6n&f5jW|~vjLFYjHYJM$``qJXrD?B zY#hpFH0u!kd^^mlMUbXmwi~Vv?V6d4x{NzBj~DzNu>H=pacu918%)K|ol&i#m8D0F zvfxVJqH^0V@%xu~x(iKCIIXmi))p*pm2m-;#oh~XYyf1(pY_v_$EJU49Xs7`f2;?p zczV~F?z<9d6YiCh-ezIji4Pa6g$zIWFEV~^N>#kW)F-(Iz-p5v^6=X)1Q(kjOdX z8q$|4JP9|C^sxqqGB{Y*n8jA7<%4 zJy#9Ypo)|2=HaixgkQ1d|39GGKVstl45mlWEqvw^BFi$Xzd5x>0=(&?}I+qmtULNOcG0Ft9Gh#XKnb{tZ-t| zEDOOog#k-xbojAFo81GC^dsDBo;wvwa`W;MTIJ}Gi*!2OW1t_{-hRE@(ceQq=rW?n zL00Q}cUKL7|5hUKc=oHLdRphM$8~v_C8mjXzHwOUy}@NN^PFUxwx7xnNz;k(^4@hK zeD~3N+k{r&?GBWw;NUT5SIsv!&TP8z!xUm*yV$~C4^R_xYe zaZoGt&f&q%#R*Xanp3k`gM05m9n3YvQSF?Jg&W5nPNqpvUdwdzwRzIfv>HYl?=r@J zQjKLMq}36M?=(fg8t}R}7h|z^69%*^?**30hCr$Pt=TNr1M#H6ZmlduS|Re&WI${x z?5;DaR!<0&@u$q8ou21FGF0BL5}of!HDZ^khIaB}k)LK6rQI=7p6WPswu)}zDYX0; zWOskU78-4ENCpqY2HCG*S=s53!2)L_cDI@&-6&@?*$#JyUahxyCNRDw)0{(RH6O=% zz*;fUDHkGLp+@8}S=}cMv-L6nuzrim;MK}Kk=%UB{PX%h(#)S>9- zbS+Ngory60k@g7M?s8mZ;}fV_*&a=OySSJ}WN9d?oHNPsXyWReAInl!hSb5Rjm_o* z5Cx0*%TT$M-@bMi(c3PEQTN&e(8z2+c^ZzO?L z4o1#!tKJqx7jgJKD#r3V(D$s|=s^3pb33|7E)&-xd*|QIXk6`=}r#(tG_EbLe)qMrM<%{x2(YC|y zfEt~5%U%?0u$Eq&+j}h&+U)YJX1@b()77dxa)I4sk7`-TE3=nr_>PF5ZuX?O0e5^F z3NzYvDJ5}pMb&zSgA?0_r=#Yico@BFae*n^SMS;YFlTr;&mIE5ce!4|IPGdRSIdfR zhcB~&+mTxt-n1k`eG|97y=A)(DX9NFJ;+UQtlwh3&ISO3I}8J!@L3;DWwVLpvVDzM zbQJZ{F_gZ{`4Re%%k!d?@9w}H;gvMQx42FpM|0KjS@y6CkmGJ|Z$ueqiZ;g#kc=uzksOzE6!XkmMBd&n78ewhrr(g3)yiE1^kfM4dfGr8XntqwvC1>OyNS|pT_DuE0@+{hAM+ex z%C~u#WuYymK1Q*$H4nIAE!&TvSH^4GIsUmkUq?*o9FT`%hJC1TnHNtSPz#q<3tDjw z!K8&)q8G2K*YDlhw*wpu;d~czV*Y#1wk8;)r#=4`56CgwL9IVaWeJ30Y~%rc4i_w8 zR!3X&n#L-|w0U9k+6ljA+wer4i#|PW^#cYU#HG5b1(85%cR$;Q>az2@{t|ujFmRWd z=hN>>HIe`if>r3n>!Ndyk2D5H}>OMaK zX0XUga2@5OCl0LD?4Dcu?Um+d z<@uwuD4zRft%O?n%LsOz`6H!3;{RdqJ)0Hf*0s^^RPF!Jh!R8z5=6v+Vgxgym=hv` zV5~at`SoWw=hNM@d-Yz=+H0>m=gX;CPLVK31I8V$`??mpFnOYiE2Vc2&u6A}6@)2= zVoKvNNu25NW?-q4x+v1S26UJO*#{*_%6ymIEQm^$@3i12xWmFi4`z+!XsK?R?K@S_ zUM^s?VCXr&)T@QkX%EnRB^>}Mi>X_x@JQuYl&$r49KSR7MPY%%D|4XrCmDggl={_i z`Y2h)uzGLaF93X)CJX?%?IxMIjlpuNA3HiS>e)cugBG9VVp1lRC%#xk10sfRD%}r?(W>T$wnhr$t2?DZK3ve zbg7;#x+haU?zEB7*KOZVl7@Qd0=uw6AbEU>TOnE%BP2rb0dx2 zuZ6Ld@{g!@YPLK_?_$D`?i30^w8^98r5x3a)pdeN0~~6@ovh1)K#1+2tfjJphTQcyBwuZ`}2pqfJe0gd$vQZ2!sE}G}^!CD~ zbW3#PSBGi3^-aYJ4%RxK>K$A_)pE`3)U5iNH~NLk8BwGvJ?vh}QH8`#;qB6%LZFWI z&;jficlUPbhF#z*1!4tmtA}x(TcLnM&R!qq3g@4Or>ZvYcpavb%M7?_{+^LR&u%MF z1MshuB=(}E>UL*Pla)+$eJ$i4>*1MzXVkj9@|K0zelTdYm$ijFFrs^ZR-gE>^wGa1^C-+^}{|-iffGot7Evio=>2mR+$ z2{Oy!SX&z{eGnD^{p21QT?&;W4tcF(3?=+|tHlYk$iixEyGOR)FSv9gn>s(PT^rHK zXNkL5Vq>8A3HZ*XsZ+dCN;Oj%_k=;`YY?jN17R(qmHeag_O%S?e;S0&3coosV}Ry; zdc2=V8HSf!ZcrstFE&>76TZr?HlQ@So+<$59XzfH<|XpF+xzt~+@6KnYQIYER$y?_ z8*IrjLN8ULrs7%XrC!LSoejlg_PW8e_6!9@s>Ty|1Sx*RB_@3~n441NnI0a!CsBvOuGn<3sF@(aE3yu%C6M6s9L0OJ196R89890b zbqC7r%(EL9eyet&`@4#_xQOvR91R&OsJ0soH70VUnHlRU(UXKn;xMb%6S8jRa31cS zt$3pk#l4WmD_-M|*ZUWYOcjs@KfNf_-pt3iCTAFiV+4-LumZ=6GXn7OMu*=QvLL~g z$)=es#xNLI1;AMjuRY)?#?}2j+HIfTH1F~Bf&k1CD25Wg9YIE@v)y~)GkToB79YC> z^YD%bws=Ix=eJ38Kgi!e&d#|{?%tdASo$VWS+KJDdY(Sl1$D04_VlfKie6y8={-RL zEq{T)fQEjsO+P@&ME4HwEFri8A8DdD z|HM08^uZk+z1~FB!mrfLe@JUpw;)9mxuCT-hc)1({)s4hZVzDLw~Y9Y`52Hx`H_$L zdQ>0H{C6DK{9o<-3!s#KFk*x0|2?fT|A*qr z|1K|=72Y|ppJ_P}q-ejSSPtY2zXW+c_@;kc1#G?|ad_i8zw|6CO;`mq|=R1m~pn)$fmV6(qk|0Uo3aX?^w9<=q|?*08flkfB2 zXY)SD_qX((57zlS3oyZat`3gsW0Q|LpJ()L=KYk{LXZ>oLiZbh41{X<@P5qrn*aXg z-v8DCKl&)hFn_(fUxvBw&-QOy{YWSOL$?**xAaFg`D?cYiR*vXWhFr1`D-@$^RS1} zWgCJm|J-Lm!0=}xng4i5KD+FD!Pj&8WhnXgd#v<+D1K!0KYJ|CeBQ(N{R3%nkR*TK zt{-<<uP``Wvk{@2G3(2d`H=RN)Yd>jGj zINz5^e@(xCe_!vt@kf9A=-hv8_@mQ<-|zX~pP=_qefG!q)JJ#z>-)W{A1CqSfWgA| z^!u^;dP48%@5lCWV&M0C-p5INU-8}g=YEBcxB2&Dcw-L0y6?Yt8$V~ir+#_teqHph z{rb|t8z1vOeZ0Q+)8C$yk5l>W`T7E|{T}+3z;pPohRfgG`X_i{B74UGRzz&H0sN4F z|87TAio%tNXS%OEc9(0D-Vv!KrV=|V-BLk?I~ap%{F&v=dC|@mp&H}%aZou(N6Ch~ zZzr&eJTLByfH7LLLx0gKk&n<$%Xi0_JmLD*R8q$&&4>}97VmB%K5!vtn%XZ=C+D7% z*pqu5NAw~$=JyR|gr2Y($YBlYXOu^Z*`r#=;vPyFv3@lstZPM5iybar1KLjy_9Rz{ zvqPq6-x8&4r;?4A;FEvI91$Z|7K!++cq?_YAS`{_+%!PH?;dj%DqGZfgc{IgsGBZH z#C#r;5{+?N!m#E>%~Hihj=hik3W{se3{c^4<=C+`xRs_?pfQ0CkLT!&#rhAA?^6?K zJjnUE0>YjeVH@twQBN9rFlo$htID$ikFRC4x6PI6e!p2<>oG&Vorv10mYQeT4R?xx zz$LU|mYW@pzI4eh@M3xdBDgZKK-5y^ajG`A6MEAuz#o<&90uULI=dhcJ(vhOgtv3$7po0mD_evZ4nbq?7M~fO;TTz37%y2F$H%|+p{g~r zIqRD2MAEbFWQFrpqdMor3lyv#0n&OR=yQs7Q|^7X9}t&JZ+7rj0K!7zHXI|u8ScP% z#W>;1KY1S?LK^=8Bj-;;#?Lp>+h+fGA%Yj$`~4>ZKk+?GyyyLCxcGQket%K^{{6k7 zcO&0F?_IrL+O7f4vXzJ@Nj0?(t)P zzYQ7hk?-f_{yGI-`2RSJd|l!1rvH~C#-~N|mr?WukI28xiQk5d_pCqk#V=d^_a>R} z#w7mHBm*Yb?6wfa3c>{f9gBG3&28^nD=zT?y$kv;9UO ze*5Al0gs-o{t_DkkZBPV8YGkPxNH(r?N~{t$~W7q!b%=nz!^#m4pr)UC;wskL4)$rj2^dGRaQ47pneO#DTX5N+)q#mMV11VO z>4_?VN@7pOHupnq10zX05C%c3NaIKH6ST$fz{wwJjLoW>Feu~^^(tR@XWMF_J`-qBrY zJb`Q3vMZG{<8cB_BFFkTHIdL#&jH-kcPRM;QO4_8(ohknVc6^(rED|f~9+Q7cSA?T!jC(TX>(;f4k3rvgpfc{KH!RFyl`<_|m|i z7XJ(L{{I#}@7$N`@UOdzUk9Gw20Q*e9{xJ=e`xUi_B#5h)Cb;4>bK)Ic)V*$MxAdA z#k@x z6=yh5p7MP({huidPGa#By_7nHG3PrvwO`l=4(&f%@zrE^BJ(af+s5Qt{!SQ*itie? zt+IY1(J&697qymYLjAIp5-Bsz^aDJ>^O0b&?W;HOo@h@iwPSk`pFM=aen{TW2q0#< zWDg!$jsvKUJeZr6QZa(K8P=)X>#}mP;7olE{J2<01N<7@GM@}cow{DOXYx6OzRHKe)+-?Z)WmeHN9m_9!)LpRQSb*+?dm=h7w%C{_LV z#psfHkDn&=a^cVdECsQ!l8;&-ao@hOEgGaYvDa+n$qLrL8}*woX`s=5x8WHaFU3dH zg4#)1Xtw3qcH-UgGb#tucA`Hwx2X_v0+drvIg}&Buw1H>fk1EEPG>Snc9*Qa$TRK$ zH>z}a>P(U^D^*7e>)q}V=sj1R6RjDsg<>nCejL{qZR3$DZoA#(X)@SYdTvgMgT@&! z)p`>fxX*x^uBm2;y(Y`)NCqgT>$5pEv{9=8os{kUwuX^FjT7dEsWR7|lIr_|?WwSP zPT4CJf3*E#W6l9yl2s5k3miQl?cI=OocpR**ruT1m3U?aI0xhxMh+k&&ExQ3Z|VY* z8dr-CGfn11B4)pm4Kz7Mf5eXXkYO|4`r@A8N^VSg>DVNAO>&yP4uwNDi&Mm7@ z$>ggQFRbY^Ja!+icD8cq98A2Y7T{85H7yfZ`8?d<#lXn-)ihM>BncHyDhz$wF7rGt zGh{b)=n)%c(d(yTwb|45w6>WUSbRd)I>)xRxZ#&c0Jp5{Ub>}8s5V-hyjk~>m^C|t zlMolTpvH9Sr8?V}m&{;;js+b4A)~>_7vk z<+SW@Px=aoWA%7$+sJjt$4cK2ZlfcY9Vvy5Mhss25|U3e^4AA`?hJ&(Q-o~yzT+yr z0*+sj<=F%9UszVQgU$QF%NNHFex5!zn{799qTMQ}U44?07wtrj3wj*Vh0dIf^CnMZ#sZLtNlJ%;pwDMM#1@tKKyjZ5;LKPQ`<$X6g^LzJ->V zcH%*Rn8D!O>P_3eiQ7UyT9QwW$&H@ZUS$)%b@Vl%P5sMt+6sUK$K;i0-n3W^?bg@g z4pRC>h2w-M9+3PrWhC9|98|w%sV!hH!m3>f9)?$|*!2cee;m17dZhb;k%+LHDBVDR z0V0)^EZS}1jqJD_CvvS`-o8v$FN8J4Djez#rjw%3p8yWNG({s;Th4@JD259= zcc(Jp3L0PvZFbT8iJ;0opjmjin;7||FsIQx10z3$XP%-`sa*omnmMzsuHqUOkG1IA zB;uBEA$&qHIoz|F9*SE%BMFtvV1L#MfTCppDylnU`B0s0ta8Io+>4};T}`|@F05Xr zl5S3C`AI)R#h?>+k?m1oK9kOa$89~uH@$LJz?*JR**J$rHQU^?lRmGG8~pwn=Im{r zuf^Ha25Iyh3D7Z15VkC92kwdLml{C8^n=Y69iA86+U}k%u*VrXK1eaZUbk31bo$^a zr?UaNmffnBiKH}CF*^n+O`QQT3)_;?BPOnPilBHjIJF9Ucs)<9U>@Eo!Q-CL?b66Q>@y~KXjo0)M`6Cj zC*|gPnkJ+NX9N~{NYz$36Q61jeD6~Tm*=zOif|IlBIc24r00@wje#q$gC(#ml)>OCq_q zVwqF2#x%OD7cFj^aL|73S|z+NsQ2y^lvr=jt*&V|*T?qWg}QakZ7JQx3!NFAQsHZ^ zpbXPeS;UClm`m#SRvv^dTiiD5nZo!eUL`1azH(i_u=BETxxP{^Wl9qqD$e9{d9qQ= z>!ar8e408npnQVH;Y%ec6tCs&UM?ik=n|M`3k{!{q&j4 z4i8M?Fze!*m$sSu)@nDPg31Cd5a_Q7$Ir+JG{JJqY<+ao({GG`!ecHaJDxA~L>pp#}=agoECd(+|NUq8x~l zu1-CCngP|>NL)`(>h$r|7P1S`dDRCGT%PHKTtn2AzmjkE9TX4eqPAnZOLedvUUy|) z%m@o?7&*pzO{#t&)f@MffN@c{f2ViyE|U&-<22r#53x$VV2$gi1=JeOch}3__t`|T zFv*U_S1eW?feNGt-)we_K2M>sh_y>&b$0eOjPfk-avKmx_{x~4s*$&$%&Z?n<81gx zH}@Am$9bir2`zUD>aIGr$c>J>QK_SqMfEgnLp&$b>z*4t zjwA2Z@OC{=Y*bsP&-6|ob6YC56fiQiR@PZY_i?u7FXj7ey4Zj!3`5c3fb2pHnXNq6 zTdNY^b;Y)sI*PqcwN@0o!pZLi`q=9dT&T0*Q~S z?M6>Tf9h(bsV+Mw7igXVb1y(5c#s;6&dtc`CpYpnLbU8VJp>eQW3s?=aFloM+dM=J zEqfEMcL~KEN2Jnfclf!FXVE+|)vaBjB|4TzNUvM2!gs@*Fa-j-#X)BqAKiN~6{J!Y zP}k5<#w(j^DK{B8L6%kk__~D<*PMlx=X0;^+1G8lJspk*ehEp~?XAO&@3DFsJ0?17 z6vY0#p|fnYCCyKjlg$BEOsb2U)Lx-LF+(46U8#C?ouNp%a(!B?T0Hzn?ARTSbS#^{ zAg_dSf)aeZ4+`QMAWEm^e3{Y*?6yx2_6b(x78o_08g7TjazM7QU$ty7q?!BXWfTYX z0LxKfCQLzP#jEEcePx*hu|Dcv92}CxAain+x|Y9PU1j74We%@ku^~!CG|zhkzLlqd z>EU|daj&?F0mtJ$>SaSav6@vGK4eDy73KAne4(!U{W_T=MlKNZNM)r?Yb-3_78q*+ zP#4KekE7B&Q#Fhl#9cQts;4^=;ASaN9j@c07U^96*=qDM-q_#d`1t~E-&~-JmO${e zeQw+Vj=kp|Gxaz^v-}IvDTAYidKrIp>NRY0p|D%6K~|KJX?e^Pq^*F|nW+_u-J#Wt zh?IN`U2%`v@LCpy&boc@p`KoujylbNsR&0qafKVjfz_mMMqJGr!&A=|fWGXdV@bP; zOk;bX3f_%z$l+nO$lx^xoL?T~={w~R6YcPzYDz6vkIp)-6{daXJQ3>aQL|bQPb1OH z3qzo2Sxap~qbJww;!P`bE7VBsuuypwE4$pqypgCe9k8ntS8YrJQo3Ssd79}0CZs7K z(p+1!nQ`c@2|DhqYuRWcdBMz<^^OT>F7p$I-IEYJ6b5*5?UQ;=3DGo%h@LzBu)BRS2kgxx;ksHc>B~WoN7G8`oPhO!l~K z?Ka{a-L0P{kxvvsd9BUvr5%Oerk5mIcGJ zsLWxh0>oJ3mMr_PQCc7y^aQ@N@`rG!jB-_TpXP?^5-4!rl3~CmT-_Sqty~6(EK*@2 z?Si6Y^<)wyso}zlAt80mXs^n~2Ca-&-~E!*$`M z(h7@|h;b{=ce`$0f)T~i%~DdXLB@%6ejion296Gix7TyfR) z4{&;V(Qc1xK4RVMiscI6VSX$GkK*H7HZoXH8lQNR2ou)oSdT>n_uxirK;Kr(RfCR+ zO4|}b3gtRX$WarK+7}R9;I;W2?x=X_f=CV_&yAHq)asrVlE;g8I)(W(BSXVe%S#~i zIy1-nwb4OA1cNo&F$R-2EXgxwdPH)d-ZTsb9ySO8g?M_E0%>+a$lbz~A0AfFmfw!x z?QVs~C-=0}n6Wfcf)mGiwP@y1eg^zP&72D{yl1jGR=!&@8G4kdG-*;i24~ILLJ5-Q zhH+nvx9sLNG{c}`8sqKfzFZ|oRKunrXHPi@o81sq3I_Fem%5jg#Tw-)DECxn`?6E?jt7GbU&|!UDgJndF{$djerrX^@zS_3 z3<+GTv6UIt{mV#!0=UCAcGF2ho34zCHbR!g-K{mTGkQvN4({uP>_)M{6UhDI!JwiN zwl6feR6S5Gv0Y|z&kUeZx4zdm*i!G6!~^`Us*dv0=4iT)t3&-d53<$yQp0wuQ)H>W zd26^-r8ud#^Lj4~^`4V4q0_a5KBd+^hn_pTbmD<5rzcOYmoi33jV{i55+id+&uCeT zHHxkrtlTeI<8pb8?6O)fah6f&PGig>pATn-ysNEc57vA4Nrn*BG@?YB((ta8MtVQo z4@Mr)3!9NZ18%Yr=aqFivp5;H=tGvXyOA^qOYb7c>!;0uqiltMa%#>kM z=siPTv^2>IRWi>HB1M7=gm;`IISji(lX^W^as)Hc_i|v2YB%e&Alp^tzQC{*gNV8P zATe$K$u0S?TYp%)|L?mcAT|5%SlgdY#oK!bpCIi1cmuEhU7DB|dsmFMzQ<~S;8J>(h)Z=I;0$-$(9WWF7C`ww zac@>R&L>RHjMzfrzQW=wvlNe`^OY7yCutkdpOpb$EpkquFA5Ud^%q(Ib2RPM~mTE(}A)4V@Zw>Ls4ujG?> z4PJB`HFRj{%1<*3&zPX8)SbW?%n-5v00P}75_tS*Dpm+{x52=IpQCc4V4j2kYcb+J zZ{Y>ZXYp1fftNPF*E-AUV2a#8c zmFonWDo(0|L4!&qg^8~qcvH5TiFRN=0d+YV*D~|e;)2j(6l~~@0JxAI?E+$JlsUUe z`9bMe?8^21=TW&| zKVXqnOpE2_ebPfmZZMfl<){-aXpu{k=T6#j|}w!;l(~ z%?^QLFQBYbq6dpRxkF}wEGta2KCwfH=DM;t+qO_YljpFAyn3`)f@hbTOc9`1V!Nye zZDnP`b|Y4w>>tm4s~K1D-sw*9i~DMS00Hu6cS>$!MI&+&n_xaC_Wmoq)u`La-RmpA z!Q0164+m0^u`+8=im@c7tZ zt;^W+n6>ktSNrztri-MPV_N53kdFoT;TqazqqYa1I5(#WGx9!xI<)LfL4sr~wOd(kaPsr%509~Ff&P(M#{Mq`KN zGHzpgKAOm~-rR6QH-i0+^a9aqE5vXNNA{J=v7fA_7S-NVp4`iaI;5uS@JN`w?%0jr zvAu1zfZ+I=E9QhT&%kH0dm>w7hOAWD@xij(b)`LkJtkk;=8F???4OL$x^5Sf^0kml+wDy3yqpO&KQf#5 z7&I<-j{|@E0E!I-dDB+bN?`%yLBa)Ri+c802(^X7Br5ilb(e^kS^_bVS$sL&Z(n!L zya91eNEiLB;6I~Q%Gyrd~XK{$66wog&$8eN> z@Q=_yr2-V%+gN8eOwW$}#Kv0Y#l&T?o6ptbYO}ETeDzsR#9y6zxQFZAM=bw5Fb=mf zFZ7aTR8ETxU}zNw!IGID58GExlGE{PY&T`D1<55EK zq$UiL8*E#KEk)d2Z2Y`K5*DCD^EcUW>B6G~`# zw!8wTcn4%~G$y}t4#8#DXn6$Gw0ZxY7?V34L2VWn8kuFwk;V$Ga8V;=Vh@{XxEc%M zE`S49DeuLse!R>HxlbL6$pkhP!TaGbYXTEEosZ>$(}>Mku)7+v8N|7m_>L!fBtr~V zj9JWtUF>#G&l7Xf<-m9!tj3Sz2#Ao32ckG7liO4-M(?70EZNH}Z6Vaj#iI-4!AL`6 z<>t#;E|g;RgiS^PVgW@hz;WPB=e_tO-GwU63P|5PIl&k$Z-AurYVOkg%QRgmPgJ4b zq2Q(w_a~3xlzYt&a(jK#_zd28i7epe;u{smh9+|P5m{aBWpj;FDBS9UGpT12!uCeb zTl1rpZjT2uf72N@sPw5xJ^6l5$fr#=KEk%gSVbH`@@CIoxZ0gUGht4#U{Sn}^)~97 zfO|eQtuOuEd}6JF45L?Wf_@>uMJsdZNx9$-PeHZZKSK$tR9g^e!JMQ_@~Gs-7wr;K zd9$7XV84rpP`<&@3lO1~mo+qZV;s1gp`+_m(o-O0ksstB_EB8Nu9wa7#xZ@5v+j3a zZxYjcGGELFT$jo$|D}2TOV;6MG2`C^v;Ts{d@-;8g2?^{@h6~u?#HG1ZeFu2nEUUU z*A}$~o?I&nsK)sWnxY(Rch{1#d|Jn2^_M7(8*yo@-WoDfL5lVCY@OJsDgObIa<oZHyvB_Z4X1B8n%XrQZpGNEXm0PFQQ=(_55%JcVqQlvk68=I^u4%rdEH&J5=b1-71aXx6ue#AWuX@Q;x@< zfK$I&Qbw0Ro%p=zL*OyqBrx&bD%r1f11;_I!vdf(%lV9;leZS%&&T+Nz$AMwrc2KT z_jHmPWC&yiQ@pZDn_~w`G`-}#FWF?2nJYq0S9%*Ds>VDlO`aa2!i=BYy|fe(0WJ}B z?Udo;smXOs;JhkS4wUTbx~ zRg?iS1SR8qc3_>U_{e#*TTC-`7;c09xmp7{K{C*?M~byOsR(XI0i#>@V)B!wt`oeD zPHPEg=<=J#2CJRf!(iH--WKdQ%z5CVjQ7nc-~)iB=-ABbsnpOfVSqz)IGa+5X}wfm zX5`n2ol1)W$b{OnjY>1E*o7<|f%r4}%o+R3t8ie`n+*i`FvnARJIa~FCFlVLhJgVHmzBxHTH|ChR%1I z1@#siC1J0(Mvqi-l8}qH_7QQp*I{?YUqoS4>|#JEAl@#t(an&D^mJkjN4ufakDr=% zkDic9c888eTAz(2x>gwPGQ3tcW{ZJ*UNpOD0|Zhg_Y|N9G4~+t-fKac6*+qfq!89E z12_@R_??Ds_Te=e>3(d1v(_xnhk;iZ39 zZ5JRx-GNbvqx)820@T?2lr+-M%fjtLIzRJWkBvuJY{$8`={Zrl1gT~Z_|#jxdd87uUpz65R86@bvL%GhbjM*j-M|X{ z-f1(d1774%@RVlWJM`_!Fu|SZ@-{>4S`q*#4VuA}yIrVV5=(gV=jPbBE+N*H)K2&hKwAUU>8Z8fv6yD=X=g@S(|bHk%bvITX$Scoyv;eYtE@>w$G~S1=eR*MrI` zy(&~0>ndGAMBE)K!`#%l#hcNqm3v_h)Y*?gEP!@T3!%AA28(rNIlp1aYjYLWw{|C0 z&r69;a*}Cwr)WnHijlx0*O%coHkIzE$!A1p8J7@^3JQ|3gFUj3Y_|UMW>{G{yd+{9 z_sENyqmzZAPg@n2a(%TDExK^9PNs+l#;Y>FM08{t$;jpWR z7NY2D!1Ubj=nXqRk7nampLL(rR`tG}N#*t|*!TLDZk{2$o5V}yyTSI?pj;J+P1Ybf zW;}A{qJ^dnq_S*9TKTt0mo(@pcPC$7Zg{G2>9g zwm|TOIFgq#Ao;s;O|*wD?|3-_2i1lfxk)xc+d$Q&>DcIeh6(F#437~c3Pa6??966Q zay`ZERM|>SOJqXW@1HulAem^25>Ni(3a z^LVLT$Wq-pQ%CoA?!fe8xAWz(7@q32qm|#2)w~PTur--PC-X%{j01MTV8!K2Afv60 zZ%}-Z-Sy*u?Y*jZ4u>3dx%*PmKJ64*neYv?J12%kNVwKv+CSB|$taH3DD@ow3AT?t4eK}U1R#+*g znn2^A-gM%Gl|De{bgT%%0h4KUfW1rX4$d_v98NVJ*}u|0F*2@R@1od>*)I^WWF`vN z3CoV1Vs3|PZ<-YvgE-^*Qivqk)O}vVNlqxWvGa@poRv#)!vb#hn{_qwIfD(29l!-wN3K*CxWwKYhjq$;OY~pjZY^mK5)K7%ON&IkH0g*blrYrtu4xtkVts#LAyXB0o4Mk}RIXmwO=)Mhn9S|< zQy&1;P&^_UizFEOmq`pAvy=6xe{BYJs+l~nshKg!WP?7m5T|qA+szldSbsaNV{o?- z2zwL|9CiTwC08ofT5Odw$(i+_Vz|gjex{?q#f+L* z!_)poK(;P*a`u-M9~?8qb6=2UGJRT~54J8NAb`P^(v2pNOG__ch*CNYHRQNR=MSU%Kku--$)5nP%4gd4Z72Wh-piM~ zEGWJDAn1CV@t}#H1*3mb{sHWtV4W{jqwk+T{FirW`mg>AU?uw?8Tlt1KmR%j38=*W z5$^ha)W6yPneSQcq4S7d_dOs713uMfTKh+$JNvyh>_2G#e+d%)u>UzAa`W#+;_QC# z1y)MWH|?RTGhF6A8vsP9**22iQ`JTSc}`LZf@nn}b&Ez8&fNCLN0Wr6IPZ8qXHFMfRqC!U}LiAKjyP~))_2j&7PVXew0PgRNf?v!W_7-bzTj>~ls z8UcoU*Pa0~`)X^7?7R9oXlG{2I|abB$WcxkF=F&c2HXOTz#G~I0s`V|7HIe$y<#dJ zy945KUFgcY=91smiS6zfEGh=T9Ja=BB|EY#zsw%IA#Y#8m0S$V6&;il1)Kb;o0?C^ zu&`Jp&QOwbSF5GS4*OKQ#|no&>vU4OY2R9mDiZWDx~;Z_#=|pDOhpusYqRXGXGyE2 zIt7ePd-@2ZC3BVzDpZp0dCtky$}CPa(r0Uj3lQ3DmeFN0H{RJ?bV1tzkXogpLTjTo zEm#Ign&Yxa+W$^Z0~eu)9kF0RaOV1`y$OPZeW~dFik?i z)nu8evu*j_S7MDTbBs!*!VwyrHDfL8h6`KwRvj`W4s05>g7w-X1hWD(4tsgCYn^IU zVZIr!HumE>T$N9Q{B@OnAv}Fk2p#i4Ua(IEJps;N~hbDkrKh$W_j8Zrls0`zD=#W);mEYi7 zn0^&$%MFv6{IJ|Oc1P*FikVc91i9jb0*#vGZA-jOdaM3ULscekMw%aSuPK+h)O9dq zT~cOiM1jiAAXzjw@J5}sIe4Wm>a$Htm{w&7O%yhczkZZ}q#eIoHC}c6rfvb4ViGQ? z=d6iu?r>K`d~+;s4>bwLt0H~OC6~1mZ_T$o?FJP@`j8akF^A}Ys2vt_Z^;~?wg8{? zM1FKZVGTClDWuD;EoKPcn1W&^MRvW23nOd4&Tj1hI+RoM^60kok7wl|a^1Cx&OQEV zY#SwKny&7wQe7T8*%wdDP9VL0a%#EIaY48u-!w4Oo1qZkJqW1Q3+RAa=zJmNrwG;$ z>*h=Y$gg@^85h(-dm}K@GC)XX$JhyEXu* zu7=gFUVj7Ei(L2A@?G=Hje#-J?(Mpe$w}AQ;YK^tNsaC0piFKCwZc9FDK(W+ zSJGt}?8!>2gCtl0MtpT@7M5evB_~}E7PDe2aSP^|TlT!i*Rjnyv)U%}gHC+W@O2WB zmCKoy0GO|_GaY_p*i?F)PuXYHdX(LCXU#Lq<2#Je>@oss_H%IBUnY@PNc zY|@kADhHj6n8WqFl#)DP`9h}HC;-6#J=2=!W>GtyV2ku4mkZrRK|$54K5?Wl(S0p! z_?jp++jb^BhV<3zT$AmKRH<6oN)2GEf~mIi2R5aJ<4{mH53e!2Shs~0Hvx1LTd_xWFs(Ct z%OLT|EV(!*K|E@OLw+tJ4l_=B0JLXa41nO*^;C1e9lzjs+NZV&LmMCkVtty8VMTe0W!b|vJYo6os|hS*)N=AQs~BtA~3gO(62+iK;WYu`KLLYTee)=ODz zIo@J&(lU`X3*njXU9>s3O+(G%D=4oDjvpiF9#Ac9wvL+>zc5zglZm!_S$sGgVyf5T z#wD3>n;r2PP_IU-?@En!WzlcQ5ZjVfuIVlPv2i{2irY1<1xGVc2(TEyJfO$^YnW{G zQK7NpWVk*ALu+|Fw(wr%SQF#zY=Ht~E`XMnwYtMJ%($E0h5n<7{UrnX!IZlnIZr?@ zOZT<8x|Cv$!OMc>iU{wFg zF#0A${bEzU2}ghB8Trnb1?Z+g-O`(I>;3)fI$wW%u#o&*f6$nG zQcwLPpb~-V;b+4<2;B34arL9&-&8x_dYzz&_lobyzc%=Phr zcmos>5k*Bo5X3u*s30J66L0VT{OZ4Z@7dG6XQt;wN1UjrsLCvpG%bYhWv$Qp`-3}w zD)#^VujU^x=6`-jhx{8)k^ajj_lMy1cLd{qe(axb`j12W?HT;-LI3j?{rymXew_b! zkiVYA-yZ;QwP3ja_wV`VpZ@&*^JV}1_rD$Duh-_^4+x&a-$G4E&>a40mHsL5bFoks z+W#`~6CgVOYGeLsAM)3y{?T9lj}z`+Ep-4P1-t_P1nd2SD*LCc&fh-#8wm~;Q>2mB`=;eWM}`g`|9;7xFf{rgA6zYzq}>HJT`st)@n znkju#T6sVVwby+$)iTWi;noj&b)Cd}agG%lTLs@q^B%f+V)@F;U3gtyN59BsYi}TU z42-t@Jl}5$vXK}1-v{tf3#a4Y*0HZ|J2EPYaeVFvdW)?7Cp97NT|( z$ms@6?%cZp84LzDd)94T9-sudEHTtoyomkW>*tx} z607*R!>9tEoBJqCr7bQXb09yDZr?gW^>wRx@~1sG8{}Sxm#S5QXqXCbK+cTCti1uR%{#ZJHxYm7 zhRpt1wd&o~o~lqFqO#L%9$2WBGwO8fR1y!9o>|UE<4zP+!`D<_I}27Uf|QNQSoB*j z>asjijJMctCcenUXiCd38LhUCJ%xH2{W9tnd6A6Z!nQP$2@ExfW?FcFM%RaSSJX9M2XkoUv1 z685_Q;?pE)fOPPA`y2=ZDZX{D4((pH`l@cvpy7JleBaVe;ifuCZpTlD-STEj&ZZ$q zOcUOX*W_8a@5$n-I_hnU_UH%{Y&|hcdY{`72T}41NHW@FAEV!N0ev59r}_;ifD|CgyLKa&rk)cj)2qIem#;t% zLfJt3<4EUP!FqRvGr#l0eXlV-_TXBXWNcPTCst#&n(a9Z;9 zyn63$%-w`T^9-zZ=8N@7WiiC9<7V3B7pr{nm2*IFN~*u^kFAueSISVky8JZ&$U&K2 z%b(tb@$Wpy(gj(!8b_=umFWsixjL;BqTMp^K|Yp%VaIj{C-)$#-lwmY4DIMsFTwJ^ zh2#gd1+&-Y?)DY^9zm@QbM@`XB#vjcdn&Fw+{M$&ha+5}Y74KDd2r=iM6YS7(J zr^J3Se|a^(x&(sn?Ml+T?Ec1nxLY0?nVq|p%OE3ft^L&OyD#G~Q!H$q?M}mw8?4Ae zZDFujOYfl{&Z2SPBxm4~ZEPxJwrGl-nvFE-pXc(s%bxpoH{W0Mk*I^0FRgWJ+8A|I z^_@YDUWGZbyy)E2>UndY)3ZYEbfmk23xaNka@&qKgY$F4Zoam1A_pMemtjFd-FVhz z7vS3J4}p|-Ck`@XIjq;JZw%Egvr46Z0;CSSg)Hv*SEUOE<;!Oa=QE5uqPx=1b+v}C zN(o4MSQX3z1$WuZ2;p;hRse_> z*1OM{an7!0a~GG1x^cBZMAcXQ@ylLGrguy~{~FttF96q3tGep%%i`Vd)MigXZ^eUs za2T@>9z+&}m&fSBV#_I6+h+%8C@vnsQRWeoyrz337TV==fp1oN5$BpmWD>nUZM^1t zCj_j0f&U#HNLRMJbhhF3Al8n=5!%?NlkS3Sz@DC)+a}+@r)Pfl$j{>SChXC(lU2sH zvd%1LCA2yhQNpoL=pM|{M%KK(?QSnn&-iXvNfo%1K+x{~qW4$p)p01`^J3BTw#VOm z)H^N3;oK>Y1uy3x1aI(*SEN3*)M-oaS3{@)-nU9NH`PV$wVdoF5LKCh^BSw%yz82= zfq}j2OF&&$z1?#k>-i{WC$WiO{Me3`;QE`|kg%v-naHXQl~K6*+0E%M%gxUBJL}S; z9B3n>i?h_hNnH9#U-m_=kV1%NZMlrZ4SIRSN?%~^RU+wKLq9VXzlDohH9vUT52sdK z?*;>GLZIw!%phy@)+r5!+=pS4!{ck!fsFm3GnF^>f;O}8`U%gw*;PkpE_OxHeBj>g zps-FDNikPQ08XnuoKsP$SwHtr4W!NQ^}ZR~%OcPXbO6RWJbpL3=RgjHVW+Vu>xJRa z?@5u7QLv@8&xFUOhy3BZHBOJ(Vl-#B%f7dD$bAgCH4A^X?S6TIo>u&= zP_}wMEyh8B(J@Ddu?bYAoko5zY6!EbA53fS<~#DHIEX-wgXg61Ab}-nJ_&cjEv{ek zixz^#Vr~jwPYFsf40K`X_I~An?PRKL>-Ro2(2tjaAe~?-@639*%u?zc)kuRP3y^)mcDj@? z=ArKm+CA$Sysy1Mi{62pPT%q-bHOh$Wkd$1n){aOAkUFPsZ|gbrd;v)x1i1-`Z1}1 zB_c}19RLNIl*YHr40i~a5vNO?S%{l!dA{J2%^#>OHw{tzb@G0(KO)qZB+|9nseb>3vkN#wkoX_317~llEY{TC0v)rH1v`T)V z9^Y9dmG`vZgeTA(oImcjwNgpdgMqtEPb*-2bo)6y{IsQkts&>{pvEmf4{kfc?{A*wAl6ikzg1HCiiRg&s;K5 z@J*?1K`LjGU9IPqdJSL%zvmB~jVRXN`HIl`V!PD+$Wx*A%{}?jFM0J))%?QJV-2}m_@X)Iyehq1-7JAI)6BjCe#8ERR``hpcD^V)Op+DtSY^IlS} zw!nKE`8LxAc}P9>dX9=D8V8$KldQ|N=e7v{1c$F{C9FXmO7v#a$Uo*}>~GOlyB|=+ z`EwUP{8sk>T!~NUQB#Wm*oEQeq9D$h;Fv6{%x|^niFM8F=@t9XE2{HbZtGXpd784m z8J;}L>k?a4v#eLy%FuEWE;>8PyBFPiTc1h|rM2E1If6B!chWh{Mz@W-Il`Yt;XS%_ zCIzg&bGHoZ|5`PxyQU8`w8#=_wObjxocLH%w`3$mY8E0>uy&t3#6o>nJ-64fNRsRv z4D*2)V_>%D?BG3LqRVZ3e=ec=sqdkhmZ)=pY607GbN`(Jf!M`4G4Jk2)P!rrrU|NY z{RHmfs8+tUZ64ug)Pru&({XtX(##{W#-2&fY|VP3yKUOrqq6|ukbQJQ*dXV`{1^0G zvxW|i#8iUQZz8z;q<(LN#fF6&-wg6EPlPhwNxl;wE7E5Zo^QQb@m*r4hC>)sui9)} zPi`B3_vhT^^2rryt2Ug}d8WR{YvxJ1K{CC;c+eHzmd^XvVxt2r?wRU~BX@O9JObAM z3=4;M2u?rtyi~L{Ju_rn2YTbJdzOozfPtPMA6+xU1H(yhxNytthI#EaMIfkJ#x>b7 zr`4;vKdD>&tbe92m`5jr5(9&P?iswjJ`U6kimDlFEsau$M%qONZlgw!;tfxBtCHD&4xsC9)w&mh9M}c)$jSoM8cq#uuJG-! z(7J(SPHeYPU=Q>UaU~nhqSL%@B|zBVc2tm7dVQ@ND2=pJcEs)x;z{bx&iXiBS_MD; zrWo3{nSW@@dcXMoerhaP!u?ytO6BT1c)edXkGGX?_XBl-CF@sSeQ=hqO_msAGHvg? z?HKZui1Lea6-yRUxROSr&^tCN>0)b4Ol&@pUS>nVscz{8X`>0cac0%=eA*mN2`Pj} z!TU)rde}nAB}NNug>S3-rE+~TAj%Pp;vwN}ScCs#}UC*!5Oug;*YmGx#(ky2QbyVUMh^u8Z zcP<-te_Afz{&4Tx^ZC$!^6J(G+Ll9JIowht=yI<{M98}3sS!OI2aV!yP=TaQO3a=8 zw@Vt@F>V{P(|KQq1=Vv*IahbUnVULtLoEVHrEpLlPGgMl4^ z=v+&*c7%(EcN(8_LLg6*qw3jjE%t{|NeY--5?HRwj*6?MTD{~wdI5KdLyd@j&`f!h z+`8J{9E2B0?(yMkCbdF;y7>UiPDs@mG z5BNf13SAq85X@3o;*{2g{*kN?%H-T_>VDYg_iJu(XUm=7+nh9PSf3plVWjlD|eyPV#Uj$l$yz1NWt=Go}yZL;c_sTn? z+R1&ZeF5q{Uhy8}S9;fWd;X4b_Tq5BCX|E&$$51p)L;j^b_=^Lo?ko8`e|w0bDWX9 z%)VNW!9x}yaJO6bsytF}u{YCo$dQ;#Hprxg>;iHb;@8p5czdCBzJv7xJQIqeoM@lS z1YP#myO-(eEL16=0oDot@hJG6=6u8IUyzCyIGeJWMV-ljd3@3WwF@7gOXGmA8^wiN zJ(OV(Lr5&!m#v zKWS8Iv#B}I6Ou)RJ_M4t8*2+^uiSKaYC6(bFDT<$;~P?pn9X|SQaYuCq&vSHvh5|g z2&vI7FgqP7`|Q0J}$q! z;1R7O(`V}N*Vw&xS1*~C4;#jVa=A&lT%w-$#E%CYw65Ds@mTLoc z|47Kvv}1y4fh))LS0B0bHdpv|1Ip?$l=`8ncp!hrHEUhx308}&+xlghBPa7)zIG`` zs;z&JY*Q`Dy_9bz9kaN3$c>JbZ&aJgtPjmbvw#@F)fmnmaH0&$wfwX}()Y>fXA__! zE9cG*`O3$dH!c0JtnJDte%m(>Na*c_#bQ^5&_n6#O{VGDZas6ZK>-W>+Tn;COrE|X za#uL~v)uwr+Cjb%U*gC{&s=wI;A^Y;+`88t!$S1MJ)H*U-Op3fS!*Aw!-F8_XX$$$ zD@JeJ?TSd9K`SeGRZpIhdV?Ea&j^SW#RUQD&3Ls_Wj+#Bx z!(=yX#JFBGR?V$){7!tLNvI zE3D;uK>WADo6>&bPbX)v*Zd|jONNx!b~I!~mXTTkchi0+M4RXK0GR9L>+wuY$c`X-CZK&#LYV|3I`o%5|O zKk^JTq}?P)s4tLuwr&9`S+qoRlXyx*=U7FoX7Tfl9)QSNw0%J<=>4BbvW|6bwQ z2qVTYF9>9AXNWB4$5pWWt;=x7?c(c+j<$NrvM+x|0GuM!tqhLHe1M}FsLZ`&j@#4i zY1tULO~RfGgX>$xPD*~WIAEJqZ=Yb^uiFAS)T6-=jKkLzB3GSNh1M|_M`fiZLnn)= zxeHFiWt6KFh(UUnWV6F$WvWT|!ZUm3<*?}v7yQ8qrdtcoXY420HS6^LI!dwW<^k;* zPq*W3OFKSXd&Sp;9eO<@#nruBeBRGdH6kTzQTL7V8l5?Vr&x&E$|_7+ap~7OcCL*P zUx22}-r?_4_=4xAj#dUX`x+b0!D+eMyDFChUB}>^kkTX8R|u(3yf%DO8nD z7W)BD5K2+BRKx)E469gUc%MGB-H&vd!KeI9o6g%`E0$H}Jp7iA*#W1{(!@VVZ0FtJ zD(s&j%L3}jwdp`;>77wyCMkRU<9W|X)1`j!bKTsHCxF=fY3O|=EBW5W;ksya%0HB6 z)-V@FE~rvR==B(NM?I_w3we(?p<1O{Tn;0CopB?{>sIEa>@7FtQqR3}1OA!Anqh;A z!-+6ON5p|@_YA0lW4rotT|c+e!lI*LqE-|zYwx_Ny>;qNM<01GxQFZS^#0-|tE43q zl3?O_w|!Isn&vZ-hXPHUSkgn&l5dGEd5@VSDYSo0EHN>b_ zQdvD^&b0!-x=b#Bwm&Y3Hy`SVt#RBrvY)JJe$GJS{Crm1@8=%8BY=S?nZg-=_#NtU z_`%4a#?Cil+b_+V^mg3`Gx{v7L(}se+3@ql?d-EEvB=-_#i3p1Cna*p<%@o=@QDUfNVT^ivc9cNlFmM%1-%MF;OCE1#sNv+ePR;_5b4N+Ym7 zY`cwhw*G?gKwYvoV|;W3c|W?@x@+xI6@!FV*+R~N>k5PGtFb$MYo$pvcb!xA;_&e)SM^T4`i@x^^7k7BfY{xm1`(^Gig;Cv!ORsLu2%EiYb0G% zN0ftb)p!7sp%Cu(p{gsJ@5AU663c7%yhVNZDy>h2qNhRTYq?>YUwL<5)%R4fGrHpo zj6Fw_W@j4bLWGt4`7Ql*&!1syy0Pg++a~z+eFLUD2kZ+l%h2$(MaP|NPI7^xRR)(= z{mnVr>6ecMhd3mb6-@5K6q~ojDVI$~)M>j6r%t!XEC}6eT{#Z&u-;CY(at^}s7PI* z9>d>obEyhKz653oYgRl?muKwf*t6A&Q%gzJh=K*TWb)6tlK>RC2z3{vTM9HM&owqt zfj2&Vpw_Lo_-AcLv57&P$h#&{wKr9?JFB3;_-Cg8f((N`7j0j*Q%<0bHVvBvtRY{( zcxHW}LORcOwcw0R53$r4=az+dJk_V|Q+(JPFMXPmz4ey2#HsPAGlA~}=<(jIUV=8SwUwyZ)mAi;zD4?E!F+ga(@n_9 z6ZzqgzXiSX5G%1KrGVjg5dX04y#-Ex_@KVv)HbsoSienaIsMkR2!@g6tSOwhro5|+ zAb)!>2H8Mg`5WlXO^jLPB#R=Arb=-zNY!t#glVr5L)-) zqpX0~#VW_w^yOpkJ}@clfsn)8J=b6NlX4Bu%QU^KHzQfBa7 zT-D;@_t3OKorO4Nw^RW-T)Ygs&Gw)_D$BhY@9!ozV3{S*mmDJ-?ke^!D+6q)IBox@&M6a4;z&ZADZrweE}Y{P{zpWBb+i<_RG!o^Cd9so3vOXDF>WPX|dC^rJ# z>{}=LJQZsQP++fdHHFsdl6*T{bHqHS@J2#;x}fr7LTs9XuF<(cRnD}Z_2JuVEBpx%XcMXb`~R#L%xI2 zH&<);hpN@aFO{R)<&KA^O4i5GwVpr)reDU-(OO;Xb?cp+@8jKbsTs{qr1WYd*_0k# z#x(}Rl|EZl^NqIJC~?aZziXT}uW$djx5mpXHeT=HskQ-CHQb^JB5gw=b|Z&cJ6}GrtBU#Lw0PKhr`l}- z49$x`*X_cow(LdiXtvFLY!fF)yM6x!oyHeT+FEQOfK;KF+U4A{WiHEU$*UTcccaNN zL-V)w9T0{coB>5ykZsjOqmhY93 zUwU50<~GmsDzenV=sx7E*KEW$B<3WXuJ&@RP~9-FO=_{9($JmLS;sd3A|&=7mQ+d? zYje{U9zCPpStx}<{TjUHDhgz+*nM_0ztcmuxze|x$$3~=+Z+eb@folnY!xf;c=HF= zo8>GR%JxY(oTgW))SoDK{Rupi{KK=2k$M(l@2xZY7JPn%#BQFNA|y}OS<8)A`pejn zG=RYjjBc*U&)#&&i<`Mly{ld3{pfjPa|CAm5PwMYTjOfl_b~@<$P)y@95-S_JRT9BTb_-3=79OgIbz-~D|HLFJr7lxi^NlIqJPVM9)u8op^Cbbkz-@B z%Go5v{jkm~VvlKY>auOnoZwQsx?4<)CZib#moncyMb~&b5dSk zyR|-pPr7`rQU;Qc7Vty&nmNXLdG}0-rK@`>9s%&Nz{eK$%1NDKx(XPY<5e<&EXPII z3d@3ZuBS?C#}d>B8G-v41s39OHqw)^5EUmCYgLDus)6#^M3 zD<{s=n+hQMy%xhQQ|#`##tV7sa%zvyXVwi*b~+#6zsoJ2r7z*!)+4}$oPp17QvmI) zdLVG*jMY)`AY5_>^A1~{AEG_7+v54d!n zHK?~{pDE!bmB!?hTY0rU*j^c*#ogTwOPitkG1@?k#rx%MzS?aJ8XUrI_O-s8WyR9b z+yU)5RF0P|p80V5DPoX=+=8U01dLjBN!fMed$Qh8MSfOjz25x!bu^GH$+$Ni0I>JU z`3ZvZU4Sdh;hm9mX1Ywz4DncPt(_R zrsgX-m2F)P(77s2u70uV^v8Q+09+ihG?*`PKo}woUKu<0ZZbHn!rQ-+EB_@i{uhc( zAh`VB`|g0T?w@RT%|C#Sf4J`c=u7{IN?Rb};Xg`B6=^vCcS&jGk5%uFtn;7bp?@i6 z|74r-}@I5!OBAAIsW=y3e=8Mj1uos=0Zq4}EhKgYiDk zjAiFAsQxY#Zsi{6&8 zHwVZQcuL>PUuLpxH8h`9>O&|4{aehb@AjACw)q9P?N2z3KP3-+!il*(ikN@(t`J+bu7pKiX z{ZIZQbM`+8eg8XUzW?!b`mYFm|9t;Hr`?|zTJqmOK<$4zz5dCJ`hTnPCEEZB^AC}4 ziy;4_#`k!lXRHvmOK1*jC!f)Lv$o*MMv=hy*V=L+7<^9(DZ0Y8fqF(fbYXp8XZ*2i@QDvPDA58Nhu^@}B z0*c*y;?L(}2pE3a*E`uh>@&T{XfLz#nHWHsIPs4aSw$wh&XcOc>98}^qel6+bHQ%F zoBqx{U8#YlWL|~3ukbWvba6f221&rk)M-7rmy6rRyD{0XuKPx>*bld-rdLNxXM_O- z(n$_uFk@GN?ekHbbI>HLn@4PetQOYbyecEZdAyWwz4@?LwES=Vmg^?tQ+0rO#lNE0Mw?nL1{a(=)NfxxX25LL6Nk9Z%Kgoq#Il`LKJP*6*uIRSOHkQv z_YIrP14UG~(HOBvX+dA}eWDAc7l+*m zI2z{c$3QLYY8q3BuH89VlR4CQ9FR%31y#vyZ*0wZ3cD5$vr%Z1m)xeGJR{}dbtCZ#U6~h`?Ln#T9LlCYplH=cB{sodXLdJFxpSbhtBkx zH5`2^Bx`vE3^j#Z)&Psn6unI@vxI7=qO$5)N|P9g z$6h`BO;3(7WYX#yX(dBo)h(3W;*46Uxg6`SU$2P)klEe$3{Z3)_ffrDhr-MKyU$9~ zQ>Av;^bhNNXEP;lbhj5vwv0FBp?`ZF6LSHN`&zS~%cxN5B7<)AY#zwf*3fjQyMC{i zYp7_XW~u)G6U?)Y)MvTM&UjaA{=OWumwoA7I8|@mF9Lab zr_}OWAY~37R{9UyeY&P`8XqyRgymFpvFN`}BGub!nnxi<-Yll-Sk&s*^&qVD-~LaB z_WT`&uQqsJZD;`i3eq{|RHrrm>Iv8SHVc+mU=EbJ*6VukN{`+~LC6`J=`mzD|!EW4et_X-* zq@-PGII!Y%bWs{F2<%rIU4IiL7}-9KozkUv21%is-OgjOHk%C^F=9{a$?h5|lXLBU z7t6CSxW{q-+uS~!I=6$&+ORjjSM&6cPlL!}U!#S3BKr0T6|!8G&> zLUBDB6~;<=H$X^HnHDDa8saLaRq4jZ*tHdSL}p%-ukDwxs51J!1Bzg*irn23+btQaQFbuAi>kBv&gJ%B={xD{dBPu%t40Rvm50Vh+hg!-UQC>-gq)Y-fj=Rit6Qk zu}>cDOZRP7&D(PLlkR)Qr*ek1DRiMIOM8#Py`O7$>zCWI@10)e)aY?F!l;%*?)0vT zi_1)z^d{qrQ9tZ}j((`!+{6ApJ@uM%*n*a_=)^Z5vY?Wyt6q0;<^F0Ny^;SXTT&mc z`)65+xB|26fjADZP^S}f;?2qOmWmp#*JFPW|6!M}sWq+gL*oK+tzN+YoS9CvlRbku z*K>TLY1sKYd0K;Cwm#zN_XWxsbH01z`yh7r+<`oRA1}AplL3t#Y83tIRQ!$dlg!tA z%h=_#+Iz=f$X^o$d$Q=6zU?D*(BG93jcrTT0o>T3K?sI5(*+P`H*cc>eSG3zl8>}M zj5+uqf>by(?zgg1KVCQR=0urPtuUa3TFq63D${;^w>G3GN11$DJ(WBF;|^CkbRHYY z7k21NL$kzK*q;S{hRS5+T!sZ5(pS{|$lzwMy$^WULtm`a z>>66HB<7l4?}IZdY%kynKzowdAV{De{KM-`bc^kESJf2k5_8~Yc z=Ng(@$yK12U0&)ysFcg0VUlNqgF1-gRsT@|k|;QQtHu4CEye5*dcphpGJci0FHns= zM(+aeuXDK`1*mz_>t9yx{|jWv2NcE1!~K9hiu`xLB>7j+^`BtBzxhzfzf7IrHPcm`yXgy z;H>+rsQ+(78~=64zxSMgOMU+a|3-8`hx=dc5dP<;^YFL?jZ2F|k3dW;s^!LXJvij% zZ!i)3j{FdYM{F~9)#-B@M_)HJ zw5@+HSFJyg)ignb-Auh*+~a*F-d1xu9gR`P%rAPafyIT>32vGqT&;HzN*qpf@9GJ#)VC)TL&);hJo+`c3{FujE zw_lSq`|Ca zw|W+z)*9yUW!sW`+qe7lIGlbdYRCR^B#`#u{F~E{wm9{~TvT_*&A7bZ3A1fxRk;k!Vi#IwQ?QR3 zSf7k+peKsrz>y9o@??jt`ZjmKRAY~yUU9UUN$6|9E|?mUbIuKAJ1p|e>D>kJI-s+~ z^>6}$yr|7JYlfZbWUvwaY8ZaHb0(TD%&Y<*_40i4?J(hCex13>=r@6#`=Z2N>;jZa z`{=&HoYJ&J2f9c2^Fo*ZmBy2E95Lyjs^&Q0F748Lcd0RtwiO@*?Etw=;A-sK>!BYsGhUEJC6NkwjrhmmsWbngDI z6hWlbS%V-82_82Ok05XDE7HPtz|ag}uZ!LwE=Y9{b}N?z{Mi_lxN$nXcd_tyyI7-e zF_?@=h^=+^!e87i(ldM)MCYKrb6`5ez1W3ryzk!bLqY-^1EIUcvW=a;|N z=Z_0t*-!|yLYvd$T-Q{dsB|yk)z~av<^^G`gmUG{z1BTzQrn&&?;czl0BnBIaGU*U zwfVr(SuJVC3FI9T+d8!XY_g@82*vFl-Ncy3k3V?AzUGtd(cpYbA73AC&QvzyIG*L!s(?q0v*QmaCPkbIA9+(~H8LHLc3M-Xvk;APA@-8|S z{7GB=Z@Dwdu_W&<-CR0>imk%>vwoK6%HtAC+l^KjTdQ$V29`&${k>Mo1H6>O&e{&H z_5=@J!s8Qgg;Dr54IF2(xqTt*#BcOIdfR;udD0}GzaMOm;1ckZMYuhhx=8g^NiH_L zUUj0!HosR_>Eu%Kdc*B1yBsLL4XGvIZNc|A@Tg7HL1v5%(+s5JPLNvIGKLE;E zY-Q_sek*LU!x)f6`=~x2Zq09D$oW5oyF;2rg!%g%ME3+nI&$ACjJ$Vv8=!6Vk%g;W zyYie_?XDS(<6_zdi81TS%YJrHw%;-3r6$8rTR)+vN}MO>wN`IJ;Cx|)#pkmRJ4m-s zra<%}xZrjfnb{8O)eY7H_@K<&++ac}^=ziP2%ze*S?Jt>WP-o?24mmG6trombW{A zxwuFLEBcfJ_xlOktbY~0_9aafL7DoW(vrK&h zJ3urAV%%xv3p7)pOz$`4X1d^2(nI-TXhhfEoi;K$`pp5rS zFQ!8oy8aFgEl{ahPUrURRgC*Axi7TkHPx%ty7?WLFL@(UbwTFTwXL1Z^_g3Lyg_Y{ z7~e^$R60PbHh;?WMT=W5gAe@1gi@ELM4+w&YkD&4&cfP;^5X6TEAU>n# zTQFP~XV@&eLWIJU1kw1C_QMa@gV0jrE>oYat}b0E(GC|cT%%~s^Cr-t%*q^mZ9j`- z@kH*H(}_VYKMYiu+it}>?4xFJ5#1hDvpAz?9tJW?btTN#wu)$@k1U)AQLzkjCcvJ8 zYKxuCWO2MWCjA==IV9`GIdXWjHb8&_0}@dcGyu2<`&G;LZRcOs1@R}}0m zclNwcR#X)S(YDzS(;@YioZK|rG7kJOmqL_Y<*Og(g|Q%h*RpZU7dbetXJa4~v7Jrg8sbX{`KIr^c|>L6kXNb{aXH9 z($344@T`gVWffkS4a<+!G7-^-9@s3NxPl_(?h{x=vHP={! zZyg?91JUs9K&6j-J5NXn;2Y2O7rcLf9w1a~`&bM~A8+<0L8}(1L}ORA_a!la}g>^Gw|ZK%4V%CtjqciyWCG#T2Q%XSSzXV zSM* zvSoZgQfb(FcvDoLDoZr!N$01B?rPyi+7Y-u24fkwFKikh$nA1Ss$Op{d^9=k@xaM! zaJP7MzcSK9A4~Bw?@>l`v}!PtxG0>m{TP6f-~0Law|*;a`OH8Sz~|04mXj24zZeBs zwyt%Cc5dAw-ZTjFI?5f4I?}QZK=fcz*W06fR7O|%v#pT9$jDM@1X-Js^#W+O5OJ~H zaY6d~TD{bb#q-7;MC&n}I282>u<%e)-I!}PhBvDOSCbYPV#F6cC)?>{5)(wM!Vbev~5P;)Pj?L0ul6G61O@l*g)m_FL@82+HZ=-J{Q{bA9+Pa#B_ z#W39?ZhN_80ten@vW07-<|i8+Yf88}7ATp2F1dN+;^x<+V^O7rkb|F2P@L;!NnYyLbz9%-wI(1}-gXLJ z%|XILxPsmNED>uxvd}mbRr9w_o)4r(to&L2b|w?KCbs*f$~D4cx+bByVWFThOMAau z-FAl$V47&gZR+Z`wYv`L?~U|*j%&pCq4MT%o>zrw(z^HNXCAy#WS@5r%x7EbM|sq) z?|#=&aT`JNYpdwA1*bFW*yr13`np_tM^l^uIo|XKTmnrMS7tuC44dse5Vuu3H(qu@ zl+So5Bn{9@YtV6gmikqYg5y<#^iL|CW;Y)FB_S8>Uj192p9Yxpn*+f|FfP5H)8$h{ zaD1U0Y&$MoWN8jV`V4TMt13W~Ha0(I8^wBxz*cbS<~L@cGAPwDL&i*lw=Il;=cGrGm^{+-;e^pWcsJ;Gwt^@x`sQ^R`e{qff3w7YX@1+07Kk)s+Wu7PggfNOLM1hf`A3fgAN*D;jz^MrGW0#@I6JcQrm8zXKL$#dioJe6x97-!Sa1h z9*lYWQ8?dzH~zfC-hJ8XZ01yjcn!l+JVKkRxzj(_7Q^)u{vPwa)JWUVbf*;QFkvyP zmkSGP;6nd3IblObXaV-C@5W{`m{#e6JV`0L2%Ggsyx|pgXaZ&8wcZxq!W27j0R&oSgCzW&3mqWZVb*h23cgUHOY3)YI9C^2K{n$ETa>Kkg zSk@lC;&scM!UgFJrZb*bn7wC5$Gz2}@%Xcd^}___lUF`7c%UskbX)TzpAaj_Lx9nD zWtpw8f7l1Jk%fduP_N$!)#wt-4&QutuItVxe;RCqa&@K59Sgg>^*mfAvF~V^FN)_vG?wKxLg>AyVD1dJM$UQx|Nc z89+DyEX+bCpWDFcB^a)v->|thY^mRD(OX`-ma0G~J|MOS6Nfdv(F&-&{#&4f?%Arj zEa0v~;AJYZpnN2slHxFr$6OMgMSxjv;wWEg?h@Bp?@#`tg+&_`*^Xu2@Gw}L+24=o z(0MUmhnDi$dA@L#(vR=^p=e#&Vo2v_ervAw=K8A>H0Qa~)tUh874cmTcf%{ZYrUdQ zuHLILA^V#`d%23#DC>n_mxg81M${A3mi%mgn`_3WnHUY4W3rXYEw0!XmuIwxF9Z#s zEN{)@cucQc7TSB&vrAf)#f3ojkw%=lL!q9#q&37d2B4)=SKL&0)LqyvE?4jaj9D{gx)t#c{dS(0m3B1nNC?-EUjxWug-xq;^hxt_Xx7#m%a>pKw@q4*~ z5qJAuM>c>iU2m=j832Gk`@5v_X_QX%=(*hg*=HuFQgiy-?~?5I?iej}yqxGJK6Ki@ zVDrG5eY;1-1N@-}G7vANt-su$(gXeucH|tGU(5MiHh! z>+b@5DR1O>OfDXpN@#XCP&>%jN@%)Zuub{6n(h1dD)D*}mC|(GUvdYx7Uk6>1&!{! z{48%DV`cF~#N9}wr@ztT$%s|C0vS=|+PWyHQMnRM;*D? zP|^KN>5m2qHx$qc|xLlX4adfb3)t>Jlcevds~h{7jecL6?*o`uU9!X z(5Cg_8dt^)4lLnDigCmsn8uAwx%~|wUTcjK3ZQDFN+4X2$w}D)jb35AU6j@}7I=CY zp~N0k)7bz;On$Ov*Le99n5uMDK{fK#Sweilsn04S1HQit*P;O+-08ypYHGhw)xohv zMfRiC)R8{J@C0hmE^>NI>Su4aXYR>1K*rG?!qM(h*sIP8X&MzpxvJPB$NH50_44%l z)9{?aXi!I}O79lzNV=6N@oIh{fZ8{87u=-2*j zL5Cqg>{@?&9Y^1sS`_1IDooq=^kGJkHE_vpEr)bUKdAb^`scw3K%54&-F$QST|j&O zqvw>TUAJE+nCZz|kmG79sr>U$!V!}`96l~3n&@XKy}2F~C*a(;m@Ja+`Le7q&EHF=cr9aBGjbv65QO>9|%XWCkHh;^)yGSRn5>j)Ek!S0igfLhPR$y&9jr6z%LVDPx6HsQ{&tm6jtsdkib}O!0des z1xegDy>yDx_Ir2|y#0_rBROO`Gc=4AzR%qcAok2gXc9TVQ+8cU**77$yfczRFBeZJ zaMG0u4SGWdz6u$NIfv)bZuQj${>(+H*OSgc3^Ho^{=zAwWHuy%?g>u$olU}rebkb3mFIe_piq=l+{I|0re_kGQuLp*>vU?3!u4L!o&yQduUW_=?+Vv9VEp`nE2 zSfZo6+nn%Dr z<5<7vRr_WO*D~V2Zd2k*9oVFzN-_ot-hu48HsT!zo2$$AETmovfb$@3Q4&oK=P~rS z&W@_L9LG_+wI6{UYC=1KjI<|Ok zK(m%9h&iB@RG|-?!P9;$%C9Lk`s;Eml*HLmK$wBHu0 zYVN#W%jfIL)Q8a95)4h5WZU!Kpi4jn;tFM^pXp(u^V@7~U;1(8{kF72OBZ$E* z&Z9Da5jtmZuB2a}cnRl1SzyGNYd!{9WXU9YI2V4SKGVPl)#d5?tmVYbY%y@C7dS*s za;0~xw%A?{T6wQ#76B!nLdQn40O&%Kr~|-l?;}}1Kj(N17FP$6u&vJ`ri6Fe?Dx3A zr;6eSs(%Ni%a!_L^0<+Lzs2r7Fn5(B**lxQLydE+gOixsT#}8FIO+}`<%-`xsHJ=X z0H52fKCo)zSF;wrF7SYO`W47|u4*(=(W;O^xPlc{09nX{999 zK09N$wCLdg3_i!V%{KpeO^SbzD*4Ii7foe;A9wV zcF}4xI{a$RaF+~qI|US~%k2i5Lw&IhO~@@*ea{V)-bg&PC46;1>FM|H-uS})#3bi> z+@2435Pl|q+`c{R@UN@e+|PtzWBiUEUkw7u`wIuyJSD6d5b4HioxyZreM|#e>W27g zL-?K??2+-#@0zRcC0GSzl&@7)tX6KSFL>K-LEex86V6OvgCW;_71(@JB)7A3<=xn& z{bBG4Z^khJ0mgdWo6-Q*d1j|t5B)d^a-{}THIG8D*%14)*I+o`w`_l$f7BF^%lZ|u z?avRg9Sc|DLZ-LjSYi_Cv4f|2d&WXQ#{Z?%{D*W9VL8KzKuqL{h?11eQ%V-6hU&;ig@ zL+cN;cmx8uo4l9A-evV^MyC%oAYd;NWbJotcsG!o<*NWSg!S*kGz@(nPIp7+l-7(~ z|7!KC#bGylTaUr?sOMiUZ1I5J#jqg$!s}xNESuF&?4SvZeQjuovuI;w6d$>?zn;{R zY~e*2KQEj_>)4)qpH=H*ACkjK>*l+l^@dKXcnyDc$XTa6kI>w#3PsJHj;$2JBl{@* zdfnd(f$o2P+0W3%=U=dmh#IwO9JHEb&D*Oh)nSLtQh9@#7I(PX?}-S(f?6%}4NI}d8>Z{LJK}W!TPT4wfi~9I;^hBd*dA`=a@J+|AzvaC>Z8h)E9L_3) zwJA9j)zO?O-KgE5isc(uo( z6R&I>G$;YEepp>~YenA6b$%!_#~!_Uw$DZEAxgRr@akr8=ZsgQr zLJkKl+M`^1-kUWIwpMR8sDo;_-QMH9>CLiN9^yp zKZyb@b0LO2K{fm`Cbl76JRQ4|?g$ea7@axjPjPP$WzQ1lZ1>oc;`~Ue{lfR~syc1;!q3ZTIG^8%MjTQ9rQH zMz^&2oRFk_`amQ}UaoWu#;2m1e3*sMZF7x6nE{{94Wj`^5yLjSjk7#wR^(u$rL~6U zScjfoHDIDY&bKmX5nt)$;|B!U%NaN+?3qL0>N7h40J2}HuX%c|!0&_Eq>(xLnO6!J zI(bsR$c=$wYcpf^*Z=~xzS3hA%{~GwPEU@5D8BLPP zH_-mR!oHpnQs`MOgzK8?DCVQQNH+F)b1%j~VJl24*r=vA?+b)c5k#KGdbTy8LU)PA!;@Uf%DxQ?ZLD@TiTO#<8}*XXS4VCtzX+?jc#%>Y z6!_E?SMTu&V(I`;?i(Ilg1iH(@^TH7;t#1uwoW95?G`IZ?Dk5Zm5~w*c&$YW`)-UZg-(lar+_4pYWQ zV@E%K5;s6OOc8)+H{M~#tpGSPc+U$3GaLsTJP)D&5Mr(2mO^Nz1xcHzk~f5kzq zu&K?sUZwoO$#3JW-55R2cTS)tEXy0V%U1w$)oDUgwYnfgi||Ib!}-Ro^2h55Hn3xi z=ICU}xMy*nM=+Hv&<$=OP&SK?_LuR;bLXHRT=_{AC}cX$=nTZZ%x)L>&hE}HJ5hId z&cf5v3}0LPt*ewY=aef&W6VoP4+-m%wDEb`+l?EUwP@D@pksAeT2x>z55j&^C1jbRkC@u0uYPPA%G9r&Mn8o(h9#(biOY;X*v3sX`dY!j)s<<5yH?vi3VAhM-pmRkzX_|G_qx(`pRS6;>m@+I z=OCeBSby%@<>=bmj2Gh;`bfp=h1+x=58~u{>0_%`3mll)1>}7>4PA`ujj!dX# z0U*HRZe`50nlZKOY^u{mvGG;j%%Mj27D%aA#fQB^+@<1p zgS*mBiwB6a^x~T94S1=fep~)7e|VRHxb9odm49O#yIWdG>7)@hUgYi3;3k^S+oD8v z@zy=t&w-A)429R{M1FK|w01`xXEIHjimL1Lv~@fjLF8{f-ak0MB|b{mP1(5tG$vuS z`P|4x`)!()#yA6crJVg*J-=(F+gq~|alMcmm{rbdOK{h4| zoe8qiZ$23B!J^t<4xxsmwcDGibu<$Y)RM7pRKZ@VT-h!-yIub4ip(6M%RJ1l7SjbV zji4#_?egy74HR+bt_GdbHnFUNmDa5!;UC7I{=QZ|fc;Y7(AY5lj62Ohs8&CMSORB} zuXN$i9j)4a?@OTno!Kr0H8<^nVZw(EQG68}!ej>wYfk7jyI5m?vu{VInxijD^}Pk> zUZ7jP8cvMh`3?J+cOX|q_cDe|wRNEvxlwpv@8?q!#PB9L(1xAUz^O(|^P^|jV@6%_m?FZFc!6r+Ge+E?oJK8OWBko5(`dMy1efdU(XFS?)2s<=lMqeXQ~AUPZz zG^dw)&NfvmS&H%|6vfF_)XKo3;dCpV9HmbSU+A(veU@16sqgT*-ih~v<`JIEyc$9u z3gim@t`^K%DJTC_Hvx3{xuSI|l?>pz%b;dcUGmZssof zT2WuSnflb81IU8h;f8{o+t&9$Y`?@^cDEWT@D!QEr{415wqO8&xqG1rO@bxst2+Z< zZQaWTt}S=v$I#|SzsdL52eBe#$B<>6l_ocNnx2ko^(56Uqx(jo=vvmZxGh9wF7sj6 z*ShT`!SMSg_3>o`cE`8OAtwnWVuE{ED=ZF7!K~t$W~Ask_D1%i6zxa$#i^H}<_duy z(!Odr!yH*Zrc%=;G}b4YyRzVK-!^9kVr|+xpZz`>JVT<8 zu*GO6J~7N;z4UY{H_fL7qv{@O2kbWQ(Ugvt>qX@SkGADI)^gYr2XedALqSqLkZFnu zp$Ti9dC4!Q#JCEt==1t6a{*W)>d*CJGVNB=;Dvm}z7)2B%zb!$}W_Nn3AOK}Dn7MFrB3 znc5gMg@WEJprDQT7(Q>nsJB?H?Q(qxzs*H6*bxJ8io;PMbBOsTc0_FDQ0`U4R5~%$ zsUhgg-%9`qpZ9==h?21n-2O2ci3Uu4A(dusmUge;=!rL8*67vZtIq zfCqF%8>0Ae26Daq!3U`LVV_XV(jE%F@jTbG3oW5|LXM-=uqefwX+(C#DKP``2?Y1{ zO#^qX`OZa|FK6_xwHPswrXbi6RTg ziIwm9-1o~LU;rAgUYYb^w2HslAeFNMfftbz0EDBg0lpluQm?MafwPg7u!jrgZAhgx zZTS8)&jZOh8;8;4L&D+@7c*EAHyMWmRN)+)Y%1fytktRu-5OWP#y;5pln*(8<&;m? zjoP^7d!5Q|3Wx}sWoNTZG`@qrf>P5k(o0E%ydtH&PQc_?-)+U~=IMi1zxa56%jEM| z7#)j^@tXXpTck8B2A^|(h>Tu^q`TTaOWjsc!vW@J`kF4O%qu+1#) zC-E+~Mh}Sy3Rk1rc2u!$<_+d&W6KTqw+dM`IdCuobEI*u-z^<(fDM_Q{GaQV_%2b6 zEMzSIX3g@f?>TcoPsDXUJVdAqUbK;wZ5K@Bo|o?lx)}^14wcko`XQJxSiL%nSE9@|ZOF@pjgT%Fdj1Kg^C3J`7cCG+fypl_3ck?(Qjb#D+1wJlDG< z7!!cnfU-s@89wOUHP)epA7eXGtUIl5RAUeNCRY+ro*vY%nK zTTkc9pZkEf(D$XZa@=*P!RT7#bRBYK?0$|9UoCUbH@CPLmrM9|tYtA2G!f}seQ~6) z>#QkijkUb-2F0GNd1N}A6G(-nskEEV+?;6fHk||N+R_I^Bum&(IEM8H4YA~uxU~(~ zJx@!AyA5cwS*JG9X7J&jHsRjwI%aE)O9}7!@M74G<3WD*DWm{|a$>?4ek?U0NnBUa zZRVKyzU#uPVSZVm#Y^dR?L5Jswr>0y22q>01x{@66MWQxwWIkt{eT|Y|B2~Xbs(L6 zu4}_i<(Ty@B-pDzZoGROaWG5jhdWOo${mW8$j%}Se*ON1S*>Vx5e#t^GumL4+f{pz zW6&<(*#syc`#jHm43(zI4!yb`)?Fw0dehpmeQD5xw{@CW6yg|YET|uz&2Rbr1yw@q z2<7fE$VATB%5yjNQz>^4cUY=`R9#0+CdVN^N2!{cfMwk(*%O4W;<4}M);@#fguBpq zp?(#L2{8O>Y(E9^z+X#icC~7@iB=xP5;uxKpD9hIH_B!mrsnNcHdtsQ>%- zt%_6`u%LoK?+UTlKDg_Sz$T|?vG-cH6CkdC^(|c%B}MvFR+n3IySL=ohppYUuTmv) z#c6T9>Av14FgXaVqkUzI;Am{170DVe!4y(}1KcS!eEV4N63;cC>ePq05Sq$ks4(YJ z{kX}CSqDhGE8(J|tu(;=m{~O(kdmLQCv$y@ z*+S4s+t$@51%_(B-|Ep|Iz344wW(4AyfmCxh~^1v`L@Zs=PB;4C-v#Ii9 zy439_YH~yJdW-T_%3kx6!eh0D3iBr~h|LVHnr(wTb-&+F|9OH}SPuwEE-H4}cy3y+ z2gI%wZLS;Q6P}{()0OE-W0P*$l^-NmhXVOpymFe$w3w;6G53V`6-q&ucXre0^6{Ki zZzX}-*Zql3(Q2>2@wyI*0aQzdUdJY`F4OUOJRIwG^>I5iP7l!JuSY$1 zqHZoX^5H5|n?FovNNajM4Sy&uB4K}48K7*Nc$A=EdyE!g`UNXvYdd~nqiOAu=4<|U z4BrCt#!g1L()28O<%^)h`x{(r6nx@3LalbEVLbXd0g_Xbk~@liYZ72c)qFBG)b0=pueJ#YM195^)9B7U<6FP& zVx{U1EfDv80>+*YxYg0<;8tI97;LBetw6}5=`4QDNq3l!C^E^U&|7|w-U(inf z_j+a^DyIMR=a+vG#G2y&{7U8*K*s(uIZGx`3IE+Y{}YV;^L0%we*(6DZS&7S@_%Y^ zL7eyh09k8+o2ci{R|wD9KmLf9|An&F>i&7KfBpBL9_Bwk{d4KhZT@_9I^=)*^>6=r z#lPOwpYKVs``6bWKl9&?=Kt_7|Hrj|w*E_E+y#&E=jPa7H~ecu{7-Z3&v!KOU)9Bb zHUs+Qe}7K@28PK0yzsA2wgn#d&m;Z$p8~(ke{Asg=6`;@KU@CU;_qJrT=?_vue$@^ z{~^zb2|&T!li(i!PM2`W=l;(h{Hy2~Oo#lB>-X-T!5068M@Rpymw-``gT?uPsL*W~+;ZubxHKsdkU>pcj;<-b(ge{T8bS|B0&qd@-Kar~Ea`_H5E z{Of-L3PT+y$v?N~`~v{gfZe%`|5F@3KgZX9H2?Kk|M%E4fGqg8=H}lYx&!3YV1N5w zWBDI{uK3se^Usd-Uw)(ib4VRLEwI_2O!|Me75@Xo@c%KT{^u_L{ki?qqzs4@-T&v5 zdM(h*yk7KyA>^1iTCcqkebYpIV?~|TxqVi+A7eQO-kUBrFb0ZQalZ1gS*;#ut#f`%0>lsZ~Z`Ws)n;@@nQ2S-_4o{l@N24vYp6~r9k`?W;_?f>!w0Pi&yDQrr96!K8Y?qLb4Qd58n^a5UF-2Y_7ujUy z{Q>8HDd<<`j?i@YxtZ5Wwrh^{=~zv~qGhR7{6!B59VZuojwa7w=UTE*J1ghb5G|yu zdJQzEpKA~=B|*`zz1E0|$=8tOv92{sr5h)cdix)W^^lE zndzCcOHp&x$**a^mMf3^8f2hm*djz}+V%tDNbj*EGLin1(m){(vH*lt#SO=GXn%8=|@?*&P#la%X`PzhS9!J z=`P9gtr9PHT4nwCMY)|*J;=a~qG>hAp|>wNvVLWxNv4=ic|^mOaBuX23&Zxb+Z4)m z9^Mpy*YD51B7bdjznq7Ue8t+IOk;7ep#1(I=daDy07wGDM?Dx@oQwz}fEDhsg<9Nz z6~%K6v_OxHcs*PL^**$6mJjM$+ih>jOrxm_)Rvw61Rg|mim*XT@L=`W}Q%qIF14Mxa~*T zc0rGGzcWtdDxp-xax}|@(rcQn0oee^RK-g<7szJ-S2UO1PG<${SM9NRbZ+Os9py3| zZkY0qN6StvGNWpHA`JWQ*6wxz6*~V$9oEdD*khj_#^@agC7Tn!*Gz@IayrrDfyml0 zm?t(mG?0N>087wUoNok#6}woY#rL7w0gz~EzWk`oYWLcD)Sz2+wh0@T&w31)!i*KJ zEf%N>9wi0$!tQi5H@Cq-Udh#iHJ=fUu-w;aw?xLv=BhV)G=wq%dF!6Fimq>!O!6@X z*S6S&SAX}%ZU-jFs-A1i5jUnMv!1SimD)8?tcGB_U;g=M`>kyogjfS(qmC$k+y6pw zef{+tnLAblK;EeulkcM4GYcRfrfhzR#h*s6);h7eNbi06lFYPGo#9yl_3(xTP|kYw z3k}@q1<-_Y1XU&da6OwB-?V)oN5-xDJY0g=L@3s07(0n^aqQsz;^4cRjLcfI6X8)n z{Y*tdzg% z{e$a(ZWi6{zXkd=1AO_v-UtprPCC=k`*FJ+_hf$720D#<2qtV9MtkkQEkKa4b8qoU z<+~AmW)kan4`%jG<1OU z869^>Oc%5P6nAI+Ury_^Wnhm?8cpBt+{Nq2)`lyq=gMC9aT=>Pnq0TKjk$h|9%nG~ zcB(tO-}zJPz`O8{xu^c#G0&8^_@F6> z3W4bTBdW4edrZx@khlf&Y|nCxe>T1HEf0KbN;{E=x&F{NA!%VJ} zc|!&zZ(s6?{gZan+C34X`Q^0Fwzj)BZuJy@k*@uvj=aR(zU2p7sj)}bRik;5viZtu zz4=998PCjfaIl^dIBCQj0-B`7&f>n?CATwId_Ajp5lg*+Oy0$E0%RgR6TCmxqbt(Z zcT}N~4!yj2e%)HK>0*Id z!&de3=yv(OuXPN8Sb+C;UIcNw<$;~xN%;5`04?dONv(RL;6QA-Xn|%0_E|7@Q+c)O zw4{$LPmqHunAUF8RPkP4cCMYl-ZM)s zrycHnn=Cgk{+9c=VL9TA{FUC68ELaSPQp(u+oQelc~pNdCWzhNFr}LVRX4Xi4rHed zH*8D!{_R_xl0L;v_PytlJcxDj{bBMG%!!RTo|)X~d*Mg8p+EYaNBQukDs|{;x|~^g ztfq{th#ISDYYH>8+_b6L{u^01epf>Q<~8tl(WTrCBK35`C@}|k6_?kmS&l2vUv~?* zt6B6Iz2f5a(|!^6+S)zfpmbP}-gN=!0>m)fJ*OA7BDq8SzAN`%wL(fG`r=PXpX8b@ z1-kg{V|MT^oY!B>Ph$Q6Xd}yghs}_}&$V z^J=I*lmKKizQ)dZm(9=^*zWtn0Vu`o3Sbqz7tXS3^hV=OxY`Ws`7=dpPfV(QCBO=J zPP#sFXBH6CJH=pr?X7}*!MVi6o{hC0LLIgC_)7jb_4Qb2!lx%{3L*cQ(!n09C|R+3 z`!r#0=d{c|w5jRNsm_a_HTLyu_mY6SwKmcCeAl0Ow>0}s zUZWaF-7I80y$Vnr@VzvNm)e-)JP&&k0FhOExd*usiBI0wSv%{G*9`$_s!M$@;=r|> z5yvuc7WLrsXkE205dBW7psi_i<6a8|5v<~Pytx#$vjd`7D}(j-`C;oO^zV;80G{>a zMfwicXv$`>w~P7y%CY5_6+O<~FTcuhUK zcr{ZuV{?2FglT^R@@g!zGD%Yw@p%WoWTPDwq|Ex>QYE5#bw9VpEm zW#t^M$AV9>%!g2)5c~&cn zxpY6yR$LdqIIz(#e%>>Z(w;aw$B3UU5P zw)TIX`vFio67rztjArY521NMff{;|Vu}Rvk?qv#%L6!eK*eJez@eZBAzSROunYOaQ zHd_r;5iGwr)mCB`0}Kvju|kMGab`PL@nE9vV2ioC)K$S{fk7LFvLmr_ea3p!GLu5WojU4n`_qVeF@?Y0IoanLI{ zLSjx_@iKgFCK)^^3dh@hyw3KQ<*ubgd3tC0+0gtQQRQ@4gW_-=Vl=I5b`L}S4NII* zB;#pOd2fxN5|=x~RfaDY72q#vtZM-ZHbXtZqIXfqE$bRpNRQ($K7pJyFE`yjIRR=C zE4t2(5>i`7JaE4E7xFhOB)`mRHMX5T;_+)^*1j(CGaz47@O|(-Ew(EM%FP;eE>NA* zp|hil*B;!?4X()SdhDvqi>@u;uWf9Q6$ju(seOT49div4=7UGEZh#&4lXk_*0g zu{59Lr#Jlmu5;Jb@))133jY`j+eQS?O+c0$$QcL<^M)FOq$WrKh07FE759x+pjaC} zK_pyKB?riIalV!}3jH^N@Hb(otk!LGZc3p2)i>kTpf=a`4 zFy&3~i$ec;d9XU&?8nW8`TbyAr3UpU+wFmcDk6E@=YGDUtKnH|4a8Clz|R34k9>)@ zDzw?#%SDWi;XnykgC18{o@&g>RDY#Qv6_~ev=@?-vR<(9SD~x8;8Z|3Tgtj^&1)6s zZWp0le##Vzg4~mXRSS=i{=jI>2Dia;fA%(xm)cjnn7q<*jD>rdmZV#&!j&cJ@*CXh zY8{|}Ahx7uZ|UOaHM`Y+YghROf3VwYEwys@mt4*_2g*GmFQs+2mT_c!XrKAou}2Fm zIA&6xoGwGdPuT9|+al&WIpC)&oO_YBw0pS|+|iYnHctz9*|aPf7FDe6T-@N7;D|9a~rh z!%w6zQx|S?tzIhE-|QT^b?Th^_}u}Ysn_T=k+5y}t@d)+(l2pm`uJTdig*^R%d59f z1(kQtD#EgA12Eoze_~jphmf2 zc*gCc!ww(wdSw;ft`N`JU13O&t@}MK4RCrAd;J6DPaEl`0(K4efqKL$&lX=)8|#yx zf~BBTx>n=}-N_{_J}jXPXtrL{L80TFrZ981?9KWk(uVXgjwCN;c41k+L21mT=){Ume*&k zaZRJDRvuYFx?lPyJ7gs4FomAwR_AOkx2*>#3$>|~ZdmM8$ghDp<5qm!Hg~`+Y0%5L z&|IFtnadoMC&Q-O$=PGyenj%vf@JM^!>6AkzA6HaMJ^qX>gV7rar8sAF2N`N=GeyX z-CS!xRl-pTJo&8ajf9W+<7_s4q1zKQy>ZX-@UCpxxizPl=>=xzADC^OgwwKeHmkXx zYV$CSp5dNVeHN8PRsR4{t!|K1y|DF_H{=iP*F`I>sx#nNCFOXLZ@CMQzb%DnK|6Lk zW91FpBKWuFZ`gcuZ-yfv^Ps=eXEdj!$UF_96BzbpY||YNc1a&Kx~vr+ZuT=2n0D#Y z0e4-w3vuKEode5-p1m^zVt|@>0c{@g0wACmey-N6#Y*3gUjUapetqms zhOPje;Q1JP+~#*q+*27qo(iLAa*mvFk_T3HHhVRoszA1TgR~TOb%WQc>;3bQ52w=U zaNxdoFqkd8R-psz;zoGR6%hk|Re*l9y$hCIbmBG#)D0SA)xqas7WJf;@7BrDOIk(s zi^-zy+_$^IrgM(Ae09b->xt5}cj~xtYC30ld_37~h~JU|1dhGxQ>cLO6h%<6>w%BOj>q=FZTDa5=hKJJVBUy{GiuD+masokr&;k zhLCmp>rX+^8~Jf>)Rx}oLcb#zx6V-bJgwgN`WQ4gAyLC;vT^=dHFK za8+T$V({|byt+HP9$VZK&{wFo8OM#Wa64{Z?Xa88jB^A{ zB9t*_w9LsU+#%V1{PlnKL)k3~eRZpX-X_m8y)L)@lEE5VYh8$>=C!>1%1$x6jb_14 zo05Q$!?)>EMJ9u2nXyHI(GD2DJY1*Fo48Avd~o?J@yvs^$6O2dv-B#(wX&+}kb;Bd z_%8Ybmzi5<<5q2$e%{YYN&QfVH3fb#4+?7zu^}H;Sw4unEpRr@Exmpy&xv#CaDAFr zuP8>l^ctz`Lt-I+=f|h|xTJv?6sjKp3mnt0>B+6%#Agr8_xIg?dA{U+SS9OV*WI|N zmF4~2)=nb}7#MP6W7jI^7T-p}ke3IYBCd?1Z~oaO4mGwuE*~$#uwaa&Y;hwUjee1M zeCStRxb=VeQoe9OfIMd%VFjM)Y|#+gV4G$z!#ArbCBmQTEL$+WE14Wt`(`EiRk)vB zt8NF%;+M>tZ~3irP747@z?U(;r>cbxsKPOMSOfL6$!tgDRWJq-s_c=%P&?J*^3TG>NA#175VItg@gkQfb)u6>6|Zx`Fd?fdcJ%DH9ztVtu?w&9u=!%DSl&w9}G zcZ-{g%xTFGi$(Y7=2RoveEg0TtaA4VoUn8GDrk@M1buArHDowPWGpGyo%iTna9pnq zV4<1e`psr`HqzWu;5N$H=~2ij5x@fH&04mKxC~I(Y0eem^R!<}t6e+ip>+FsU!+!M zb6!n#t|R|`PMYnVsFCErJQK{#!^^WwfB4+lGjQY5cu}w1>P}R)fe*GppKt92=KIBjf7}nm{1F${U9-9Q`t5sVF;V)6m^^L0*n21LdxhWZ&V}z9>LO?4 zDen0Jzw+x9uc!If@`V)_J76ZE+lDn>D^Kaw_3nH&2@tnEn(FBk;db@2{W&H(pLJK9 zJ;+X~ZwK3r@9i|~oEAZwt!I|Y#$fO(1M)H0qy2npt3C7+(q^vs=|#YPfO;QA@ZX8` z=0TJbzw3yrqcGcdSn$ko>0rUW71Y;kt|DOJ(1fW#9_)q{g9+~ zR&LFTuP)|hjO2k|2J`E_@Z8i_F-q>CrJy>UB-Hj`P?Hy26KYG_9MW8-+CUP&-Z3_2 zFZE2*eN#0A3?lZsZ0fsiwL@{pKJ5ZOAV*Rhsik{ypFW-j{3~vbrgP|0$yezvG7G~( zWaNIX!o_!PEt{GhRZWRm;-ux!_donTuHqIPH}UZWkwPa4h!Q%{88DC5O?b4mJQ zT<+_0E`@CV&=oR+?mky~>=)A(2t0N@52f-e`CQCy9_189iSGhHGnLzb*YuO8yVtkg zQnn${8I^Kp@XE2PQTh=ifrSUP5FS*STbVSN!R{W@itn9cW`>O*LGIQe0ATc|%B6qg zCCDy==kOF|J^+MkOb-x4Hj3{>sv)!aO;u^U7h{k5V5@{K}mJ4QQF{?1P z)E4jgA=F>lGp2_yE8^1Fw|H-nuBE1_BRR;aO==N|)Z&qIcouceOnR3pr=K&NyySBV zS}Gnt0GrDM(DvxMAEc;WL6Z5NhUHGBmuC0__@BXnE?m&Zi8+pnt1p?gGs9zp@X14K z`YZPJ*Ie0)p4lg^q5zY@t8JQW3foYfb$Rfe?TH#ueUar|w5^QA$~aY@rHj!r{}fto z!PvbV%_8o-V`b8;WG^wEUrZ6~7}D8kZ`oHPKUy8Oy=IT*NeD4DQzf^n7GFsBK z*xNq)?fU6xbgzrryguu+Yj54kcM$fSE60ahYn~n2#RhyV-wdaFxm25}PtT7H(XqAn zVg;F7FG@@0l`){ppn+`~i^{5TRz~S3(wNu8^6XvcX@|ukN+;4SdmA(lw%Wz7lix$^ zGUI&r1i+HxsgHX48w!2_3>>0%#0`dvQ%!(;`IVe%MYI;m#gRBcXB+<#qwl!1uXQ>- z=DHE!-AsJW+3x1yK`omGi@_^up_iKZb(H(2jj$JWxU%XH&4{tPmVS~?=F!FVZexE2 zeuC}#gX3m077MA4kzez(^>cBX6Pnx7@}_ky#AgCYDnOR%zpcsRJXM)#dVkO}6gTtU zg)D6Ex2q*Lu$Y=(neN)x;4sphTNPLDb9OvSlcnl&b4HdY@|W;~ekx4ez4)Ebi2}ie zi9#2jjpJ+bpq}*Ol&eO~AHxdAlXp=0UaPhbu7x3Xdn{iEWPlbSgu3D7PPI{8!lzP$ zw=(90POo!Qp5ohJ6u|hhaeDPL=hK4V2iIzYbzHjK8dUM@0CNyF(}Z3({IvF*IoF#E zRPlB@8KrQXNmVM8y?HmJSUZoJ!I{|EEwbQN=Q))JHlk?nxX~{=MdU;&eDV!qIl8y^ zZuBCc8e`rm8j^_N{v-JTX~vP@ir!Aof_r(ob7{dSEFVJt8{_qhvkQ^qU1|5|;q1Yz zp-oxJ=eu({eAdiyE(SLOWV0R@=~v6GbOBuq4vuU#Dvj>joI`DivQ$5ofJ7zB<{;)4 zWcOCpk>@?>mE`l7cigUg8zvGBy|7syct4+pv@C3?3304bR`t%5*Ay$G{RDZJF2nJH zzfk+v34cQG;Gk9)bvZ|iYX&GxDGdHPQm@Qzz20wxtuLIUg4?3HEWj!yHfg(_5VcvcY)=@6GX~G~aBxoWUfSkJV~^3a4xMrJ*J(3YW#{B%{>q zXB#=Z+GEc%OrR+?+y}TQ6szU zTBiu4<4>-hC`_OInanS@Z_?pvx1=7<0JY74TDs6{*3*8Lz~qv3Sy*G4k00GrRiNxE ze#gze5SYnu<5^F^tE&l%rAiNbg$a|-Z_$h4?#<8W06p>3?si_AT=GFA(W*HT_sJBy zE2*eu)h|eSNQ5lZJaTok*siphya2k39mc7}wcvP|iB6RljY2k_7^M8pO=X{XdeXQr zH|+*lr%RU{(sb&{N>@L|!jHDW{nmfEMmRWhIarA6bA_Jm>lu>`N{3Ub15gUD*IjO{ zbUSA^xZSG(5qqR>R5@*z!D3OxFALQ{&EAi5*XP8kD*3_ka8qBGv7~U9%RUcLU%GX@ zFD`gS{WT(Tkl$SPhz_~J_i))B1xstSol6Td+G#);DuO*z zj-ZpL3Q9Q+iPzdn;XsZYE5^!Csn#%2)0c;pTMwG{_9?aCf5UsnWYmw=%;ZZoqM35p z6l`j4l@mGiNa=`P=0#?S%wCL6_YCMFeDCGm{1vV%H;OT9dDb(AqIFN-9s$+x2mALc zD=u5zoCoujA6`DJ7r9Hj@k%3q@CSAZgVMb{m6-T7Z8b-m_t&|I zuTT75LkDGPJ7Ms3LD|npTN@t^TSWG7<=$CZQZD&8qbj|94&%mmmckmjM)B5brqsrm zokfFbrPz9b{H!sV^1V{8Ka6+(dNI3AWSs8Tr1UJEUxk-TGw$K&E5}!^+lI4mn~Tyq zKMKra;JCQF0~>D*__3Jw9vxESclAKt^|d}pqUjbwfq@M0n~o;R?_3@!RQ1qOH_MJ46p)UVD?5Psujh46Xn&`E*IK;_gb|JEC)y?olL zyxQsKDuCfHoWvOnJl)dK-0AkC-{Mx*Y~%~sd9s83X8W>m)kUv3SWPb;TAt6Et7A^| zA#DEqoVu#dKAmzvFhE&5hHmduy?naMN$M<>Q3pcL)5u<(|^Cd%TRf#aj(2eL7l(?bWAWjwjcBZ6ovI zb<+pI+IJFZ9RVD|MYI!Ynf{eh zzFp|HOS8^%8HBF{##G2==F635Wr1u=k}4#EzT76TU8mP zKD+3Ka^TwqbPzltpD^Pcb3Y#ab93D)>B~)XA*9vitAO!YE#G@(3$gn^hNk-(YIfgw z9Ml_FiH&g0d7hp(fZs}J$@fW@=80wRXR`IRud#T33ZK+1`Nk`&J)*D6rm=xmpW+R=%yj@Do zCPWZdtic7ZnjDvUm5(&3Im;Z+ofk@>mYXaHb5gSh(Q5rG9pI_T$%uXm z+Zxa?e=|6iUB|!)veB1=T2z}7N<*fMLaz3Bw02tZp?<5B*77gqMZUbd(gx?Z7|W+Wa`qNd~i}2x$+W9*LH2d_g|NF09xL^9NQ-o!cD;f##vnM z10rns25B?xod)rnBp| zviw&B!cDp#Wc~8ulpMQtM#dH_5GI~d&L;}|I!w*T1heJ@DSevLIsdc`ZL!{~Pkpqn zjmtuPk_s|FxY>;wXTdLFYuLTG=!JQaO(9S=XL)`PWasyJOPpF%(10CZ(c{jdb84(Yi^TssLOf?NPAov?iEk5|s?f@a9l%=Pw_ECcn zt73)a#{QqhpZ>~h{9DxH|4%mpgmV5TStzplCl~Z@XYfxO5$J!dKhRwOy1g&%2Qn~! ziWL4+*o1_pg1^4>zn3=o>zMx#H>uT`|7kharZ>4QCKB~m+Qi8`zV-+53TV!I)BJ~) z(1m4N-+ZkFJ5%B7h=+CpQOe#I5J;0w3j=!F-u~tH_Xbn>vc-yCmfgb(gua`bx2D%d z4x2=~00z*`%PK3dZ74hd3=pmkL92Idr4-;XK`&Ye46f-g`zq;A_5m z-oVs0pXBeuA3kY6$NT*#b?S1XoxIaZ+}(Yaw-4m~x>ir`1;fu@DR($kpW&zS-a4sv z$(+{5l2j6&6TdPnO$uV8ZV)|n$$2wLN}tcsu0Pmpd}R79-2wi;A6BV0%QqIhHTI9! zlbu0>qgw8q%KhUpke*VMUMu?(*Fl%uMV5ZI%)@#_)!x8CP8c4jHl{o`rPFA#j}${Z zHQKeIY?qYkD6Goes=XmAIv`ziN2Wtr24wiT(JwgA6b2=75u%k_Ci^m2SMB$tN`D(c z$7Y$=E(XT;E*s_iWt{3}@8=Snj;q2kinLCq+Zw{?>M=gOL(@c>Nt$BCmS`U`L;riK zv#fNQcx~cgjY}*AgD*bu2aS^H2&-(ry{gJG(_h@@w846eZ+DX)0)6XxCw>a+^^$JN z#i8|vE9qd#4o#>_lZMhb@5~R(skPw!N!IojlvYn>gr}~#{I~8^B?nmu>QFlAr*`iU z&R_F5|B)?tu+Q$(EnF_wu$edeTmPjsB&y5?$I`h6Wsgr_`~KK?7cCD(i`Ofs~;nUit z2gsXZ!M67aOX>);;j?nOT(!aKa~0wnYcq?hr03rC!rr(BiI-%7+ud#r4{XRA_(SJi z0EHonYSd~D3Q{t5F1?sY-kN;uhurz@b=O&8RFvG;bl?9Cf)4CD4;&YEA#=|Yo9Z9v zh^;M=&TkJz*?UQDSJLgw_DXEtU{`R^J}zI_i7&4Be5Ptm`%jHoWci2yw*nTKr|qY^ z&JF81ZI3KF8GTjx*m1VYjzzIyHPU%^0zAn*=HTzgmI)fqM!DBMKAzRbX6R=if|jZ8 z`bpoYnD=|SiU4pO$ zJG2}vvcug(>2_Ygn9}9`VEVrO4lSFLo@N5koY_5$&iP44>YS2g#aFW5Qo*yjFTKii zr_<5%yM_Q>E&@)Y-$V{=Y(I0`T3Vi@n~&cnu8#bH?HVN1rT3i7b3183vCLv`yeI5E ztBu>zGiwc~U2;oEceGpZ~J1X`Qm=Z zGqaqeZ&2ntr>@bSOKDWEFN5HUkg%pdo*Jume<6okv)vX-<+k_Y-MxN!JSt0YRn%@f zkr#{^I9+f;6y4u+?WsMz%Pbm;HGvec($S$inrx)c(~m@aVV!^)-Lm-JHCd)Sq#U)f z75W(^bi7=v*>6;PY}ZZu&!pC8V*;Ndp7y0PB2(@W8-9RcHRmv{@FiFud8L=PK3IWA zlE>Tjt9*C$Lj5}fq8Qud$O3VnHwxnXoU;K%YUez)>i5&aCYpCUQh&tkWN}|3 z!tQxB06y(_f(`cs$e1@}9$xU{ot{?g`bco(v5xE~71{w{d38uGe-Eppshni5bNQ9q z%#8?umfz&stS3@U>cU^`^gM|kE$Q;=!JK!&?`oeba`sDg3Q_{Ael+5&&JCT#(S0m$ zFH|yxSBQAXdu{q1r22-Lma)lFIqsi*SuTn z8odkcR7;tfd3-HkduJ@^FeCBk-u>qGR-T$9oo-m+!|9Af)}3ngZDb&1Cl$Q&ZHI5< zA+}rt)nNfOIX6SSLbb;uhu%`Ye7f3#k*H!S6}?(X_jX(6XcwtB*AkNynVPxGci3+& z|Kq+b2%2*9N{)saoS_t#*r9>5%A54@2XpLj9(k)NMwgkdR%^5iybgA*#N%S;Ajyko zb#JD*?ZVt8KKJsqSqmPhU-G7OE=$vd#y;cRrVnKsk3l2X;mBkB%pk|^wSechX6q#f zj7nwPW>&tT_r^FFZ}N9?i`5||$5vTOC)IHmiN{MVKmt{-AX5X*}?tWwnD3jah zFgKinUjaMUe1o!hTCjh_8ts=hgN2>HVFM9MrvSxKAm~}1ZmatlCN*uL9DDZwK^37| zZaG^LTklk+kpT?N%?7+XJs#lr=qM$rVX*rx>3A}h?3O!NyI8+s0X|i)^FT43oH-{CU2Z+PQ240R| zNql?f?CEU&D6Q9-vyAxX?YvMfv@Jf+!;kEVP$}D;wr{WWfa|@q*0>VPbrP6HJ_Mps zItNK3K0KGIjY8>NM@OF$qOjMW4$ziOJ=s7nJmjZstaa|#^;cKgSE3SS#<}+x%t*cE zF4)XlcH`2X+-K)>`c|`xL<%RhEsYV&A095f z^WhR6Pg&}Np1uatnVWIp{kYOmJ5rx$&1QDh$+3oSgUk(D0O!%uTUo%0!t-K#_8mxC6aSL?UJ zXyb5QPsOPFR8z-g|JfPXIRJ*9!h_*YtHjY>An!>FAEwmn?q=wkmhs&ZTFG)rce~q} zUTrYFHCL;?u_xsv~{m^IsKlK%#B9R ziNutQ06qZUv+jnnW9h41<>dfqv-ubGYHe}+IDYH(#wEp_<$JsL&sC2<;=#XZ4*y-% zgZ>-+m-tXIjQ`J;aQGPtC@BA`V8E>!h!=kdDF01p%wNCsZzuiVpvF)P2~duI!^Zq| z6N>M@{s*`sf4C|C8I3YMUGyYALBrm^z*7Dr8^yTC?x*}0Uj&Z&4|o*%FW$|6go%*V z|Ag52cY)^vzdiXjM zP)f;NMiTT36Wta*zdn}oEO5fiLt0i}d)2&VZ?(>)+G|~pDKJ`ZV8d`FgkgXl5wCX` zuz?q?&FztI{V+V1(=99L@K&`vNS((EGJU^yR`c|#U9d7+QfG_2w`S+)xc}Ln#L*DC zZ@FdH{Uyhepq8{L)7Cv8YVmzB&dJtN(%(?U2 z2T02vr<#{Xc4A#YNO)DYr^56;^+{4X?d(RYc^&Qe#^!m}b45Bao09@ulSu%$Vrs-*I@_XC~H${HP6pwQOI{z9htXTuXviFr!w#uqfaL-mk7xS;`9-d;PNII zkmgx^3k|TGMl-%6B$ZWozZb;RQoaWTb6P7^>f?5^snv8Q327LkcAVeB+A&TU!j&i9`dk;8N6%?n_p_jljg;kA*|@iYE$DF;J&SmU+Wmg8Bo zJZx=a3+f!C8e<_^2s>4*qipXPglW06cJ2f#qLAR7M8`A){$H3^uJ3`U4jt&1u7wKa0U zKetKy_0ket?~rhZva}rX#{BmFNR!R)YuP?mZv#S1YvAWg{^(ty|EVWt)T0-pk->OUD?^ zp2J<>e$gFO(VAId0uZxW?nYelxZu902xl#?jpw0mAFlhNz%~S8`{TfCuFL}A7?On{ zy-%?q5~77j&+qp0?EIWwDV5<^a4oXQ);CbQmIxX0L*wbx>C676k{t`_<_*0J3u}x7 zp846IJzDyFR*zoJcwqzNhYW{V|9RG!=^^iL5OArQw-yR3-&U2dKb>D;`RnEvmWO#n z^*82Q<6RA-bGhYA)amtOW8g-wa~JbNrMF(^&G!V^&0VOZOlOGA1nsT#sboM7@Wn}9 z`4PiFc+`;_-nhW~^Fp(J?ncSQla%nw2Oh4~PjHE$C#eDt>mQXMcvVO*@2>C;=i28h9C^^Okp2Fof|oQ*S~ z>}SUH*f&T1cErrDU4zAjCur_XiP}f(4T^d6S^TPbY&u|CyhIj}dw-N`6|b|5RqeIO zr_^aZnoWiPohDf}<2IAk0ud*;O-HVEC(7_W-gM`FR|6J4A2OTAW{XTXbDnL(MqbOa z!4m5IXO6OTaYePLQn6RCO+1^axm&wR$iQ#xnhqU1rO|8b`GWttVxY|>xckg@C!6rQM8 zEIH*(GeLlfSv@aKb3W~onO>z%hh^HR*G~D1TU<5D9V-R1oZ0zl33U?&DWCnPQ7W9=QTHnE3lVziLv%Ntp=^5mTe-s1a2w-QZ^L3j#Fvw99JCO}Z6Y zv%Gma&?{xns0`~=U?KBnb6;eeS`>@!R59jrl4@-Na+MCKVR2$pF8Ksu{%szX_`H;$)b@3xT zjOK?uwN%jDmD+#xOK@4f6&R)t%kOmMjV_=|C5@xcd7zwuM`fdclX>Qj%LG;}VP*oC zkNCSbtxpl$L%q~5C+qXUbE^nhq!2}roqa}=&f7v8DJjcsH4rLctKT{2P2*taN1q58b-?)H3j4NM6!A-TSIyytkz8a8JuF-C zS-#q&$2T|JeeKyR0c;eJ*x1G%x7 z$TRGk*iWRom=^Bq#zIJirOJ$9Pm6Q8VfxP$j!!k$zvs=#e&0|5(S6Kz%B`+a!@e4_ zA6Na;f!P!f*851cxcdDjJRRjE?vG1O zIL7gG;`c5923m@hiV0oCglmAwsr^k8X7}64&PT=N2rO1*d@EavOKkTZ+@>L|vNtng z)~PU?=@Ub!nw%krxKhy#wiB4|l0dY_wXa=%6H&icuZT8>+AQS`D|B^YQy(lm>*Q5n z`|)LcuRv?hBzSd>h%uO}Ff3U!@A;-H8@r@Dv>HLV&n~OGrmy=eQ>wtH8h>5HgY;^b z&yTddKi%%eD8ulBj!Ga~_sQeXN_8)!{wOHz)5rb$9aMVrw$caGk?Y_OGw~lN0_!u>D8Y zEqIImoaDd5ZvUWf|NP+JQMZ4ny#I>2{d4kv?)~3Lw|o^yxAnh2t5tYv;Y|LV{GT8B z3w8VdJo$ePy#1q@{X6mY?{^5t=-(rk`WyLoATcmeO5&Tc*R5OhJwA! ztvb-D2gT;S)v>}3ug*n_D$9nwgEiE$U3olDEw|`;PI;#J%=`GrH(xEZyk<=#cTjz` ze0vX^0(7Wq=_ysiGm|TO1uV{?zI|QKmBCEnd;OCt-!k~VlrU6kZ8}+ATE3vKH%740 z^OdpJb2DAmraVK>?$o2L97po-_pD``me{L9VeeyPm)uJJ{^*^+EVD9*Yod8WiM4J& zh*}x^W;CKWcyQah&ooAxt#!~_I4Y~9{WGch9e-^(+OU|+;gLuA9`pDKZjbMs`JBD7 zdWd;nlo}&$UB>WJ60CG=MlE3MGY}sb+1YCOVe4ZH-E3PsO^)YMexs-F))t@$>%ls3 zm|$2yj$(3lCOux~pvf3)^@er8a_mJ?E6b7LjS#!LU5y_c5%v^^yzH zNtLRnDt==)e@RoMOdaEe{|L4-ticwl8de!~H2!!e^+H7LCcE7r%XB|vmqHVNJtkrO z5p<#PzJ{B0yRt1W6J#Bqg5H9)i&ir`lwQs6=u%8hVxqmvP5TAR-&0>&m9LrIqC6sP z{c_Kxr>o4FlpY^kEE3~AGIfr#{>!ZC&m9!4529Th7Cl#D4b2Jbr>PG}C zg=XeFZA1&<+uS~Dxkj%swQPjM*AlgLSHE>ecE^PZBqylct(8+}lV8?K&7Qo_&ZEt{ zvwaSJbv`<(`hlnhx%_FG3-?fLjpzlnPq#KIF}|IoQ?$bu2Wxl_@|&u&r3U9yCGXDI zbGq8u`r%a#+k4umo>X!|S6B2F4pB!2N2w3df@_sx3a2JGOj;?d%dbx?#bg$r`RwG? zbEdH?9CPJ&lAJ16w((LJI#9M|a2hb?$LTa$VWH>r)t<2<-7$4DsYl2&}YLFtxpo z%jsgd6FBGbDbVm&bN5}91`K|{I2Wb+csu3f3dk$>(S%(4TDGm0Wbe@Xa4`>qX-n1O z#uS}fA*gDhbL^k;6Pj*idznyh{asGE9stzI!d@L=p|7?y-_<|a?RwjkH@z(@1~u$J z2+KnJ$xUCT>D#{MWD8+DmcC(N zW!ex_znQwx1iQ%09#LXKl2M@~)TK?x4CsZHB0eEGmtMy+!j=ZK+)^JI?N`5b#^X4<#UQlAn^Wtnx2}hyt^3B5sF)O(Cw8B7Prse>>LQ+*IO1yus4;2L zDWXKA;);+uF4Xt(EU4CuoOSI|mcO<)o#uQS-1^qG`)fC=GBEU-$B^l9RI8dGBTM}3 zEsss}(mbE0w?IFE_h>vT^G|QTaQ$r8r10e^T;w6R^7wXMdmw2&6t3OOwjp}Sp$NIg z8PwJbjREMZzngS>c5pq5-h950q`h^VJ5c%XP}Do-@@TEgJ@>Z>zf?v(pGANRpB_I1 ztLjWCA_{i7Gl(v(G_76*VDGVDZ{RH9{89gMA}CO1(>IOgk@ z>0|puhORN(PxZ43Zr@llR`1Vkp4F>~y?nEIp(-8=`uWl;;nj65tu!l^@2NXK+^>>e zSi4cSQ%0H!5Mduxulb9Uj!-Xx?f)SRjw+ zo8szL*r#E z13J*Mg$yaKi~6)ygq6#^cJL1n^=9*5g-;x-y9fuVffpkS_w}^^MdN3TqhL^C^!cEp z$C@9G+Q}XRcp2c|U@c4CKZ{#BpS+E%aVP#pA@wT5%xfQ_e{R%GPBvedk8w&6(t;c_&WN`N{Ce2M@uH9qQSPk zT>e_gxPx~nv+pkC)bZ|t$JV)_k9_XjX3J>?Rd;dw#h=f^ji^X8m3x~=FX3&P*tJuK ztPP$?(-Pi5>LAJhBct={+t93BoO((RZsC%7F7V6QE@i@fsTMl-{^Q+bMu;x^SGi|P zym78{q|r;=FDhP!x|!nh9#c^vRp~FP^Yd!^7;Zn#ORp)|5=){K^y{<&`4@MP@cc=P zo0A4{XVF_+Zv*p{D^3l9Fg$k`&St0Y5h{S`IpNq;0rIq!ayM!NT{%BK*kkcJ^AKCF zk4^F+V!Oy{+`C5gI0b%jh-_u)gGh8vWbw?K}Vo|rT#R=ciP zjosSkd_cfC4^7SUdZvm^NDFVTH{KE5zkBN~nfV;pTUaJCJAOD#Pb=HrK0Poiu)$*vYJ$Z;5$WxM5WMF_!g{f&T#ERLIv}yN*YA8*8%uxJ-RzF}Bn2WXuVW(eCg)bTFM!lujhwJIM=Mrow1KOb zMT&WjF=j>Q43jmFPa}1)Y)u8U+c<0nt%Ld)^yGsfUx$x33fLbLkltVXR3 zZ*A#9qY@DGy9(oyU_Bw*;1bNet+@RimT|wcREliLHrJyRve+KR+10~w)IcxY%ebbg^9W6urFPD_ z43E`__`g|u(xd-KoJp#|9{r5>Z|+ zc6aQ^h@IO^wx%Yso^{{X1>XI5>8@XPZlwlrPH4fhknH8!6|{>)LIh0 zKyEUq+>CHjUCwv)OEnqbU!pk!Z_b%HOpZGFYGF|@t5JB^5kKu}uO=ZK=z8jOcJXkz zlYqi_hi3D!{{lL+d1*Q5+^PL|NuEK^6fdO7GP>7u-FM|#FOLmGC}~Yk95h4-LpC;r zjoNZus7#i?O@8O@h1Tl!zTo7~zBTl&VGDi-SOd(@##!oY&*dG7mwrrswga@h3dL)(8go-UF9(a7q|D>zX7mHl zu<~Re?tmU`WAw3MZ9cX~d!m2CKzenf?hZ>b$6268BVIgUgVfu{HvpWU>k_*kuFsRg ztUG~Pwe}+QM%K%c4sO3oCwsPuWWDZM%$^t09W}jf`~bH320N*1WR@W}26Llw#eVdG z^>VVzLCJVluuG*ziRM;g+W}bd2v#1Yf}-u3%t+yl`=@sMyo#DPT~hiT*o&s3J;B8X zFh~-dL~u~TuL1abM>6-IS{>zscn9d^c_0SE{2D%u zS*MyJM9%munKN{gD0|uteD<+f-l=R5y|3_fWv&MnH60J|biY^~0C>rZfcpgCHjBhN z3}yrOnr|#0Z?8DoKnYq{@_XiKftB*|%GhrCeW~VkYfwHOeqVUM=igK8-BnLs$$8|{ zVH}AH35Y58PW)Bp#p~#!S!x3XpZd6ss<+jJfONLtao!k!~|eoQyDLR1(G#xe2}uIT@6-8xkoWt z;&-1{%N^KS7W#K_1Js;D=cmmDX$IDjV14T5VSzV4n|P0|l#!t%F{1KBMRo z36@Q}X!Sb1kNx!V0WP0#MTM={%so84W2+D>40~8*peKANw86d}Ih1m&KS%5O^wMmDXlIn8!IoQ(a^?5hj9Ozk*gm@beTBmJ0Cly0DwH3GyCY++=10wL$4r?g zr;PyJD&F>*>!o}&E-+~8xLhy7HiGRWISfm4oVebSuiSw0`!V4DH|q~D$*W|IT%~`T zSB8~hbT9c*L2Lifh&oK~Jn-e~_;Q|Y<7fd;-PF_5>O-M7%b=Rt1DnyevURIJ$5tD} z5qhE>Qk4FFi+8i1|L0pEe_6%+eQf_f*#hDIwfW!K=pg=!3@Dh+|67!k_-C0+;%@=W zf6rtRfAuZ?%l~F3^DoEz&#Nzh$o+4wzW$Var@5x|my&Oeaq!r1XG>q7jU_35Ld!?@n0Cy!yfV^I?_;F3o30Ym{nRU;>%2cg)EFHVb}Cnc&stDs~9QRw-T=nh|2 zYbjUdF=s>%zM1qEKE<0_1w+bm_s$oa#nJ2_OBTWwHtmi-!so5*YCeEHiA5|8I@dit(7os|>&8Baxol#dlJm;j z^hV_2(HE*#aLE^nTi0~i-t;h}&TPv@ft|k2&CV*kdqBdam;bIz%v-aQAyV4a0P3kT zV^7)~DT!pj6-JN3(FWI;02YHsSZl&&;zsIcCG}DVV(j4y)ENM%t!rLJJ?8l4wf442 zGsN^j$l+xfqfD|+sIH4mRWEov_NUVlT-W}Hd%r)dZj$M2UM)hB%vyt(lF#)6bsxOS za1yPS&S%)lIpb?MTqnZGM@OfJVRttU7+)W^d`F&k*IQ+LbiByOLw3W=>dS*Z%n8XE zd3Mn6!@XYvEYG({85s40dO6lH>`os2;8yW=Z%brC9c0+NFvH=Q_wfo^LrAzq?Y0Fz=bw%zw zvE^!n0o7gObuU{h5SD#ivIOYftY0ZGJ~KH&uSnX)>BG||MP0Z6yS=s zTjmWqzQe~8UMv&$gkQ?{lScJZ8=Y06&8A;GBdv9^&{sJ!o~g&1)uK~;h_5}+xyCjY z3$ZqRyr*kmNaTD_&$x`8p)vdP-xVtRnb#%J+xfP9n$|A+>)FdzU8f|!`0g2-2-#-_ z@+oZyNEjVVT3zXYaoYX-v5zVJ0@qB6mD_o~=jA{KPK?tymu%*blaYrVsUs$YP^Zss4^PL)sm%o`N1>u+z-s z7pG!Lh>k;>uU4@aP>0`FtwCe8N;JSjTwkw4d@syyEC*_RAav|#XaRNIh$_uP~ChjlqckBFCBck9(fQ*ziD|<79=~ZbXPfy|YO5R38ZIc=1 za9%^rQgiJ-g?wR(UzrYehY;r4hQX`M@w{2xR(YBMJ{qIZ(5rmmvzg`)zWPecrdIY# z8@Zqy0`4(u8nE(Rr9+b5r0s6Y9PNP3p^T!O!1z8&x4b~Gh# z$OHbaUY0!3^;1?lDOAOAToiCuG!{C%fsB1ZwklZZTB2mM__ zd5iER^{Y)IJ-#MsaKm#jv1ji~W_#dXnvVUZP}5AqI9CJ+wAAI~@l0wsz-A2xfC*NJ zyHgval$^U(8_VlJnBsJFLPvP=LxGezjOsm)^m6ju+(YLg#=+})bFY4sW$ z-+R$vJ=t|9tek-mTr>ak$5A`3lq@DIdLO%)b;ke)2N?hd)4%aETbRRJt~XfhdZG7G zb7VXBoKL2H4%;_1t3&3W9KNG4v?keO@!30%m^1B%7<)ZY~LcLAC0Z^|CzEdk{F9zbYtOd0M1{NH@( z#LHfp0To2Tz17CdCGVDUGiiy|I%OhZF%-3IaLy{MKdCkGALdzIyu~L}d@%GN*XmX; zxy!bV2ST*am`S=F%S(5*e;6~4*N$My);KmfS?1SwJ8EfP8hdn&W=J3fP}yDp=2JYI zlAB$#(3M_17Vw~C0nR6aa_F34i4#-venfpN#SYDxUk(G&suML#_SVeLR zhzeIDyT}!jhjd4VOwvCx<%vP9x$*(98>;C#8;Y(yymM=K0YIuK-+TJFsZ+%ZvNAeZ zaRJS|kGzpab-zAaS-?X#_|))Ygj6YBIp0?eA}?uDe|br-Ir)GLKmy=5NcW!^p8-H` zym=gU0ML=N_1&vVGRJ3UUPQIYeBZs=h2E(m7Zr*6EUy}L2zE&Sz{nS#XvQR$e zg4A_-S9Amk`gdzCkO4qeCZ5l(i}q=|u=@k!_*y-p*5~p?0WGn#b3dQ2Tp>xU*}0o| zIG5@CQ*8Wp45Y+dof2As{{>7*JKx-1j82g7X@yZM)Rrzx7vJ}`GxZ+8*V|~rn`wjw zL9`7jm5domwfPcyEGDl;hyH-wywi4<6F6oHk}`#vG2q8GLK_9E&+Q)heX@RR#%;D+ zo(%VrH8m%RcTGhQ%7=pZ`QQ~N>-Guh_nFs5&#KBy)+&;E*L)ZcGOLdFi%;&(aa;QQ z^Tcy+W|=dk_E-Ce_uL#QY;FL$#huJF-MJ^*$hC@^IoSbPK&p9Q3 ztS#@JJ&%AVmT^Aid>@f}$~eVFv>!pWYCmgoL<(jewQxwuB3DJXph%JhV!zIDy^%{IL50H)cLf!qBHmj3e% zz&~rr|MnXAzv_JceLW0%o*<@10H6E+eY5i~-}Lvp_J7gr{EH+0?^ zfBB-n#O=TV8TKzX{rR^B5YPYhi~sSz_}l%VX%OH0^U0sT{JG12xd9x2Z2tK%|M~3C z-hh5z9Z{Ku>&4kkk&?E1YX*1rn`Eh=G8WN_7H+<_r6~~v#G3PdL+<(=L>iFc%=aVy@ zJOVO<0eP}SxK zlGoAk^Cn>s`w^?Jvh{-0CG>b&csc%t>)N}4@!x}#`v%aP`d*^)nUI6H2qGsjgBG_VhqmH>+ zf(kke)JM$gFeV54AsfroJ8404sm~8kyRQLR-Y5TC~3#Tt9 z_6I+o zo!Rm`2L2K8Q7C=nQqMRZXVy;bFV7vjPyo`vcKlRH9zs0itxtBrRc934E;n@m8itWj zeu>pv@uf^_%sT?pH6UmmHCll--W<8wBabzJhHj%%e|C@~pq-!wjC}7+vd*=;Nju%` z?s0PpSg*Y48JPB~@1*lPw==3`;C`^*&Q)9#qw}ZzWcq%goAbZEa+{fh za`|v@RWOxkJ=|YeT*AsmD8-SzE>nY1&k?*}rOZNsn&E8oStBoyX{G~aKwhHca$}Gp z-eFlnEaCdn(i-T=MY>M4*2LHBpmT`laoRIuU|~&p6{&$AQErVH&;WVu3SnzZ-Ke}O z-vOgF+UAH7kWGTe6WX~)Ua$GsHpn+zLn(TeSZUXd6kyecYdc%phXd4=0gFjN2T2oS zen%g5dkkjGlu5S%1K)9<#XtKdqj!37?=zS@B@omLNPc_07jYEu64pR{waCG5W!!NG zBvR2wmCBcHY~EI`x9DFIXVY)Vm}9*Fh@7zfk9&WqL2hnp&(F$7M3z)v3IT1y2AP$w zza+OCEm8+j`DfJ_R4z@g!1>Y4axRT3ID79%Gb&V_KfUI~Rg@iSEe8pQh_eP1UEJby z6a7?*;p@Lm{tWLHC0{%ywP$gMN&OZTpRJ+S1eoDXCt_Et-Q*~W!{>@DCdn_}=b?7S zW<$0=@0GK;R-U;p&%gLpvR55Bt#^9>c9mmWJOJ`Wd*87At&nq{DK5ND3uV8tImQ8M z-FMZsoQB=>TI+db8VLaNobTECkIPr$R3OPE*JZ!xl;7re?ak?mDEW4H7vJChSE>OZ zAr7r3w?HqCs;@W&vWf#`U7hos6E5hvwC?3^fXT0{7rC=~)|;{_Hti`p60djcGP3D! z368c^XgIspf-n>1!3VV#Uz5=(_;Hw`*Y@;VfM;89_Q2*-v~Y9c-zfI4zp7T36Z3V@ z9#jsl0;E&#F*BX;C?#_oCdvFrw%fbyeyQD0P3_)NyMVLol}gBW%8-wHOAiq=)^!m$ zp%z4=?S|+aDkNlqQ{h>zOi%fXE~d&H7lw9=n#G`;lIeFRxY5LvH|0}u?OfAB0`S)U zk?6F|40`pfY~%XYNKx zGV?J}FBWcxBf7^xIeAO;)p`UJ9J9_S!Lv+GOC5}$*~UH0iRzwp{fwvXm1C8%wk$*D zr>|0bHSxA;GuX`aB4olu^Iof}HKqUp)X_@IO}<aG9h!mnqW*Y` z;|F{r#3TRqHjcxs>Vyl`4vpLtzr(%a=vX;ib=2j}yE4?38s(h6)~aL~>)au(M#Ai_ zm8;rKrfOUl)#(|noAp)3K(Nls+dYUPYbB?}fxONII9+mt{(3c*bIJ$Vie4gaJtt9X zr4XJCb-+PTsdw!%0bnJggLWW;uN;xKzP$P<4H~QUB7UAnyv$z9c*a)8-3}_vx38X* zT+70inZF);Ea8e&Q)|V*+U1-I(Ad*b)mS4Ji?ru*v)^jiH!W`bh8@dFcjfcJUUr;u zv|d)r?}Ruj=);S0cS-N{*L-r_xiFYOlzZK*84W0ATrS!oer#Q4%Q=XflP$rg`s$To zODu6J9d_2q#r4&>vmLaqqTWs=ik1P`vT&|rICfS( znnay^a6^Cv`yAl*V9YJ-pEsKC`la1GPjNj+t`O8M?T-QlOj`|VKUM6m^E;>Mq_n7) z-t))YH&;g{nddjtS3BDeCUe{cxRlXn(Vc$f)f!UGwDlm0%eDGG8c7bTR>5eV5X$5g z)5&SLCR^(Re=r)-gZjFI?zyc^lyXbU*vQJV36CUDf0WirEb~y#`hvJY{B@3lC0pX- zvjSQqk;hK=_tm@kD&G5}U7f1$wsVgd*R(WD~2V&Xnf#Qp)dhe9f zPh(tQIZ&%QJ6QAgE1oVYvbe~n85{3P!PS_}K!cFZ0rs1(qA=B$BCx27e>2AN;Q9<+!PYBm{eGp^O(vqy`GhG)XY3G{`h|9# ztpK{l&N_TZ>*sXj{ckx%rj9Hd_Bj!SwdG{Rv(X>Yx{z|hKonbJxsrcK}r!o55VRR;O#!D=i%|7 zEe*l7c~m{5kY!O-Z;x0%HTNK?#LYD?mEpXsmw^1L+S^(3Hrur>;qtX3Uz6{&Pe{u;^x?$7tZRvF=d)JT!SO9H<)VQ+~Y%i>fnKUgCf!x3lrjZObjhN z#{}8zx%Aji^tiR0^8Yw*o~e)PXR^78nkV{VL*?igc>jr6QaE<|JJt| zHyt@=XP?533uKKTyjf~aWzl>ktCwX36kjk2_4aI``=j$|X(BI_%kLx8YZUvR* z&SRCZ*b;!i=xPeM@gDV&Y?x7tihbRp!yD3-g8G%tT4pYL0AW)c-!_sMwX=@?9WC7U z*as@B`%!p}J&;lV8jbw$9BGaXP`GaRL%U9%#ianajKS&V-pQcx;grm1r#}V7`N^ak zb-qdXx+6;IpH7?qGHLqz1nz$&arHl$Fazk||KGgq-*9{XQvVN<1@dp$!hg?Sk^e^A z``^r8{pFbdXO4x(+{c$o0!L>*8m0nv;&l+FAy0)qYlnJn>yhIu7 zs@MVc+2``2j`jUpO~vaz=tljGuqAd~1sd+OTJ{3rbZWPIb=M2f2-}@sV8hA-8^xU1 z0ni`bP?XohACaBL0rwY&m|lJMzeLLIyI*kj=~_&yq`-U$&Mf*N1bbcRAK!~lFCL^v zJswS+>3xZGE2pL~C~t4b-0Vc&<0xj@b3P%yjRxfG^vVUd9gDMV8H*WyhTJz9vZ3YXk7?5=)6%opP%U2#tR2BtTon2k(}mPG9`FT+Fw`u>(CTT}+`f%h`Kd z?$;Rtwokl>7h}7)%@*8H(t<9*@kh)TXAsrxz*BwtOa*s`HiISy8Iqw2CLC@5hlIUZ78GSn@7qD%RByQ&$Qe+|c znGXvDRqAf_lS$H=L7!TZ?`Hc6t+4Lc{-$H;r-R?wVfNz9Is?LI;ch14qazghz4*(n z&gXc87S0P39=`3)x%ivkvgtcrborEt!rlm;(i@w0=g)_Fp<8%0*M*g1?!FBBP(9xf zx%IuWUTa3KS;gEU7M20;jlI?l)I!?YFkf1?kvi}ID?=9q7qYmVE)$Vu4y|@Vk_hA| z!R7VXY)+m7u*?a$8z1vTsq$!y>oOX^L%SwuozfxJ00j#mBpWIkJWY)cCIB@P?L?%b$awF_iE6#py9uQb*8lm78BwN+SmyWR;(L1INNbI*u>sG4P z&_2X{2eXSH2yHL{GJ4>eqN=Z#p!0dInUmnkH>2sHN$5KL-fD2mAIlgHV z9nD^r>4OYj)lJqX3)<5yY81E4UzpqZ*xK|epigot4v^ZNJ&D1<0-ywNJ@x1vffNv& zeM^3$(`ilUYTJkCSanr62EUMU z8J1@x+1}>55!~mW8hc>Jps79DAjs^PcBOr5NL;-<##5;BoQ__^fb4v8*z>O2m+>dF_6o>TRtvv~CkKwf@8A)rNIf1{r8FKWuhSs?9pZP7q?f571WU2EfDAO;~8UCVJh9hAh!7_0p_iVcy8J z??9PsfRb^hi-%deeJLy_g?r)U+hgFesO4|yW34!&f}&KuD+oV}95=unJ;Cj-=5M(| zi(8`)>sTxGkik)9!Hzg@gnhN+K9n0V+abGX&_~Aczp{#AR0aX#pcaW03*VoNlM16iYK>k!3lXvI*4LaS! zTeI>Ar+O?$fx7#%E)=`bd|Mx$&)y<0vMnO5o^Ow40M@5=e^ww``<(@;(k(is<$|>< zX!~trRcT)5yT^U!+S}T=VYNq{_8-mAeDa-K3;iISeMzU^DUP}9r65n_H-?6*bPJ{j z@HsH1Md@;8k>Yfo*pBGueeiuY9jfI5qs{8Q-V&6v40k{K3d6kOC94pz+zJqLu3rNJ zPx~PD_6^O=(d}p3ta^uAT)s9fq@94RqSi1~XF*^vMPVtz6lGMY({DAqZsAWI?D6Q% z#UrqUNGddgHOe4Hs<-ts{k)Y~Kw4?M^4SUj{lhT1@BJJ4-qOqacB@u?!&*hHH&z$O zVS8oDP2E!3nN9mxZVl||&iLL9Zz99TcR%WGw_Ll5Tb)cD_wy(?TPO60CW)^&u zCv>RV`+^W0=?ic1$Me+4IjZC3Y2b+Cdi~BV`yNILr_N!}TmC5Wz&-o|*MYa9rT^^4_AsuGYNk_{R za3`(&?GuWzt6we7kCzJaDgyExUdwNklQcQ%hxymd3P4@-#(4eZC)T{3N%wrNlwDPD z6^KcVBC%SQp!`ZZk&9}#6`~1Rj|(?tV7{)Whq){xjN5rpLD$$5A05GhdxMh-X+96~ z<;mkII5TWfD7%n+%Aw~eGT6y1Emg|n*J9KYM}29HHUsSV8coVtk?376`l#~;!wk7i zl-$#n*J9pzu4sS5K*-DK+&Z0-KNM|X_Z~{pSb~j;RB*mI>8(hlama7%L7i#tzR^%| z$#jnc(QfeghM|y6=nU#?&Y>6ECR!V%7LK~9E%bc=?o>-?u^hY(AFYk^F!SEk{LSVy zwbY-M4XU$>2FOEULs#n1s293T(tK2MOr1xTn@e0DXle39F%ub$knig3R8Vfqbn72b z4VqLYov1&Tf7}Zv%j-Imn?g9T*b>9s#d#!f0c;%ykJ5SM-Ez4Mcs`cZul()igF#U% z&iQrqG86`*?LULa0ugK7i6>mPv8hbn@pQJ*D3n& z%%!xm5R1zmS2?(8&qE&wvYgI`?Lq}gxMwrHI%fGcj1nOmCnk6zavrs4z4NnKI4F4a z)!|-=V#*FQjuBof=k}s=J#H~!n`sS(0N0Z|tz&_*3U_>Hns; zUbD;qsP}7dN|w8>*iAW5#vQ6j@@N7BtCqWvLJ_hmjA=Bdiy{SMi{T45w@tV9=H|(D zaCu1}u0fu5%hD1I#@+VAE)P%5v4ngsTf4;xD?j{QA^h!4ru!L)(o-;@V3-3;>@FrB zzweIoK~?fG(wJ{lr-M}!e1{&`>q?>B2}iBa0J0u4)S=sBJ5-k$@&x<*SC9xEtA+iP z)*2PC1)^=ho1O5Lu$Ih?3EBt5qtWL8>|T9i_@gTkoN<#al)sVL=s0WdPVuR8d#sc} zx+UbfZ}kPXnD*BPW(@=$>B-I~19q{PRKQl0il$oyo!`rBvs;B8!&!sAJ-c;)i5jh) z&18uJ=q~`AkE`q#et%$ui2V6-S+u&15D8{x zLk#W<7`e5A=X?60a@o_JEHr!q8sN3C(O^oxwj9*0!DA^}$NOgoez~lCu>@&c=}r^3 zHntM48tZA)@H(;U9BzXUw7IUuR7r+Ej2zK(utZzyeySel`Ie^567{F(4 zp-h|$y+W;V3oj60 zz3adq;}BX(o8q%ZGkz*8?cwt{UdyiqQ=C<3YglfVvN3RGeX6bfz9A~oj+-@0mo?Jv zL&Y~cCKxi~s}w7(-nH6ti4o_3LgQOX{s2yEgx1n6z(Zy-GQG&;@iwgP@<552ce(0J zKTM#Uw$6Q``>_nP;KG+HB-g6abMfDGe)(Db>bTf9)cRpsQq(i(C7eGS*&sg1w~ov^ z%Tpzq1duH^sx++ZT3@}ZQALxRP|;=60zUJs6L&CCLe}@FlWf~c+an)}o8z(RTfxVh zsj@$}y8Qx_@$2b_1{cL1xOBl&(Ay7l^W&9KX;GX8dDV~={L>>+zHo<4pT@}va{n$( zDN9KJ0LqzTh$x7;b=eszgTk~iqQZXc*Qlv^jjfG1bc>R=l<+CuQw@m--|!scCDdP)O4#d3Ye^Yz!im=}{90A*eDQBg=?xd#y%ykk zpKid1%}G0=pEl1DBvyXmF_(8Mkt-ycBuV!<7Xq+>(aOiomh#yhf4;x5Qcw|?-{c(n zWzkDGD31aAOj>OgPjDTT+GV5O1)d(BPPemjzZN2+N=Zl(MWy#Z-?^(0YCK6!QT~Ug z>GR+&%wm_;DpukFOEPG0jm!8OX<6l6AD&sKbG>4NmT+cN=XrZ>mvUAcTv^7XYni2m znKK{jXml_A5`WZXfbgUrHv_N_eQt(awk@LF+OfRq)~0dDc<(-6QQ?RolCu1+ZL&Es zf}i|pXuHaVV~DS`GJqk$7~ShIl(V03A3)ki%ANZdvvxY%&0~;S=}VF$-y3$IbjOF! zx9^}H``dQ=;qEj&d=o#AZXpW1g9V6fp7q-lE_9keOZ74OD@>iF$&sll^0M%87C}TvHCG!-c+QfamwfdV6I)kxW`WR5xHD zJ-F80iw!#3$6K_|J&UdLbtbetrOfbDs-=bBU(e}t$gDw>TH&HYHoB^uVqj){EBBN_z((wR) z%p656{S$9t2^k&7BUK3UfZ7!-gz%bx5hx`4iJoV|# zT&<0r9npIR8r)#Om6P|+$K(Id2mYUo$D9Ak{Z$?V#^e7G#{LUE^e@@Y|2rlt`CsT` z{)4WD|7*w_080NvNBKWl)aAc&f9)!Rc<-Oj{?BzaWM!Z$ci z^Eta|oIt#le8f8%X+-d%J#fc6EF(Tr0{JpAU#R6*ZH|U1a0GkLO4EF;p6$0zr^xsm z?ca>nE8tcaUHC+udPny?#V!W{{d@x$+NKGepD@xfcTFwwqmZpfZ-6H{ln#?f3Y%U@ zZn$%UA{N0{9;i6DX5ND>P5>4b9#^s4o1SY`5=!sD1&JRGH2jpv?7IqdcXx{yYuEvy zh}No%E0&u^(PE?=#>~6+1!*TP>qQ9USA{Kz~7AQUn-6kbMe>) zk(dJzJBug^cgwjV5DAvz+MO7xyj4qrG4_3#)#3YLPWS8EvAs|DF zM8Wbp_bdLc-@^WY&D53qcC6{%beK_Tbc@ANeqQ6dmEmJw-IfKae{Mj*5Q`GQhyH`(X8x2@o@!fR!kZ)=n^eDu_vvtB<%D-R-0|@|(FAER!A#^lslk0qK5x zJMGJPDmS&;B)fYc>9{~bdhFav?J^^OE2yPjLIPwsZ~NeDpY0UA!pkS9`ce443s3rz^q7RZU8Rx6eVd&er~=!2Bna;I>OWdO zLboNeC;K_`FjCUu6|aNmQ5P22{d@Z`Ao3_Id*mo@GMjYk9?%}q{XICO>9_k6dcYK! z3~NC}uE*4)Z@0OX6n=fY{@!eAw%{ed1_6TpmDd*Z&`2!D+qh+pKfOnvecx#o$JudX zpQ>9vgP!eM^f**RY4KjJ?>#?gNO@EzuA9^%wsHgL9V^|Agigc@P+3gI=Xc)x!iA>y z1hcq?WL8(8`Y0-F1HToDrb3_vx)M}A#owAioMS3em$apDZ=nN_W@&A?cuTSPdcKVF1Uzq}8H8+uFsRJ%{!V{-9x_Pe`QjYGG+ zlgo$8?b)jsBeVc1754=vm14OD^e9THRadrLrI2olP3z*g37BmmtoJSuMZIGXYr1P~ z7kO6yjM0W7_C8Dh1$70l-kXEx_;Z&pkHxY561P%gx4whc_blp(`QEj%eXVylHSFli zd_TkV?_})ni+R)s3X16yvP3L8o>5kVDanL)N9z$F>)y-yl$7dZw|T!8Prq)sy&9(8 zS7;kdyb|Yo66dvj)$Q(>mkBL6b6hV8RZTlsmmJ_rntasUQ?)ntdoUugB2oBy#%Idb z%P+QE^i68=fmOrF6r3H@^Zg}3VGm@Zofb0nCGs&XHhUJJe4R7j-htK6PS=_Yb_tCJ zO%>4d^SMUSdI-oG##VbB4p>J1R0wQ-NkvvHQsEQe^1+74d=uVnRtV>}5&J5T@VPh} z22G*hfQsb#$YZVii?74&TU^>)PQ+sgHHFRwCI!9Yv3hvB%FGC0g}}A@jy;WXj;&fR zaMF>sO<=ipER5Cem0N37|MjQ6tusW!<90U-U{Kkc|<;7)ce3t(HL26Eq+`McS`-;rF~`pd=%cn8;SZh z;T>$A#lZbJmR6#PbmooH0&Wr;Om%7LY;MEt6-xF6%VJA?*X3*Y=x!OKk$dJZ7tRWzh~`ToFwC1crVY>lmh zw|s?M`HG^69W#D(+XeEA^}pwZH)rAK&EsQ-`%f?$V$f{G0`hzf#Yizp}}s3^7(`~3SeR<5e7tUP&Q@51*wHCrCcO7rmjguAQ=Ay?ko%$DeFP5ZVM4(J z4UB*Jx-k4o0e@e5w-`lSU$cE zkLuZ*+t;d1raQwU!ph_Q!72=TLM0-X?CkF6>&`^K?ZeFUY$a$nj+9RGlxtk`uTpdF z+opHg1o>-rGwAm>c-%o2EOV`{qSPI`nxE{N}B8}SV0^ke|^*BEw)ajd((>8I1YagQQhAM?NdbD zyl)~Y*mY4(z%G=|H_4~g&~?bXOF8$`M^BJ4;L(lXl4E+k{iJuljo4LF(s+G4 zKiM0AeL7awvGKS(tE(2>2^z|Bz0FCkn|zTHAmf|o%*tV~<)@H4o{|=wOC3H9xgQs6 zE-*8f-c{=bX4o(Gx}*NS*f?MVt{&cWR;plD8+idpIu8+bZHH%NZOC8hbG$-d_jQ_Z z@gVVN8E;_D@-#KYl_ub`B3{F|DwT}4J$R+gF%!i3)myDpe>)BMf@^g5Bu^Es>FhM_ zmJ6fpI16d)#B3a*lwdj?+pAH+66>ZP!(i0Ny7;sFL9~1B?bTCPv9&kjN@{ZZJ@j&B z_8Oj8hLANhDHbEEsx7u$ByV+41!iB{{@gwfG)^n@?$-}8hv8TGjv5(ue2~hJasi6| zZF)HZZLZTFJh|QH{uE?+`yNY6!eXYU*^1oK_iU+QTfy|*{~(9v#oHEtd&}Nzh0f;T zNSued=pj-q!I`Js^m^1OR=3|lTCBZ+nScKb&tx#Q?Rc^%6!hjCi2^$tM%!Y{uw>XR z4INmFU)=P8*}^qQW2aOHZSwGwBmQxk^SyL2rj59^*^|wrUQ8MsO&|o-dcsA+aQdPi zcdM4VT}Pv2&`;0b)8k}I&9zcazrQ|r6t3=J@OHbJB(srr&4ogAEFg0n5X`EApXgZ3 zK5v=0k-vDgY-3H(rh=v=?S`AhU#|9=%)BWrQ}Qf&ZJWKB$l*g~)+nO)cFjUS72aDf zbhFF*yVehwAtG=0W!3uULyiB^y8Ry+YW%AWbMAlNm;Gl$2I!anS&seB{2%u}(3kz| z_xy(;1Jr-{e{skF`M;)o0=dSlIp9u|E8^L3{<0pqR(_ZQ$$UWLogm-o4VlZSjFKJ? zevhdP#G)>q#o#cNO|roSWZXD9=)1>Dmre>Ftt#lW6tPu9N#K=U&E7jn1x$VSinKY4 zUSs4Hq~f%Noi;#7MRuaVFy;gpmsxL<7oM9(yZRjXH^(Zu#%MRWcGcdO=2Q0~BxhEd zBaRkt@zDz>)2dR1o>c~^JR1F;I(oN%6=HTSr+VfWP5oRuW2!}cx2X)~tv=-?wNjxy z{czWbdV7Ya*WIl+xjnF6Y#hvdK&-5uUQMxAN#>*YNX3Huu0aBbCmq(k&c-AC%zV{+ zvv{vj!TF%uxQJq>{gbbqz*I*dlm6TD6=JYBZw$wHjLUL+>CP*a8%4T%EQKDqsknJ{ z8m0T7Uhwf@Ez33UAmZA-IBR-}LEUX_wnMkS)LLTUsjZ~;X-}Q<^1-ue!%1m89$$~S ze6N5P$P!FB^U*Mmma47VLT$3KYAIzmkMw@2)q|JO9{LntcNUH?Y~JOp#Y0;Yb`JH& zc4{{7EuVQ{jQvWlP0{Jdv}&92qk@~Q>8FZVQ6|?|@ZI2Bzi|{4Vq5m?Am>w@`QCT< z*@^9fK++B9#rEkvW*O%Tqsx)`#u*{cv@;BOMGoY-+`(pfk*EvpP}b#eeSm#4us^e) zVSR-^{d6xV;%;iIBcmkX%nXuGyMd)tU$y3qGp2|&jh(k1%GXxv2|K||+{shnh+h@j zmvaM}z>}O?&=<$Yt*I|;8D12NgR5VlWqt;EB#pA|obISoel_+{$dGFCJ=Va2uME_a3v?q|NIgKI3)>bC??$JkC@@0TB zQXUpKY_N08OpF5$1XGmqqgOi77qwNKP}nr*oT%HROcNj20hAxg*qYSM4Lw$g=Ugis zcLElO^B4cYDzB*j2(NN@UyUB^rpz@VSv2XVj+Y&ot=G^LP?>>5lhZG8wI+~6`8$^ffw`Z? z(MC7-O_TcOx#YfZn zQ!|g{3cVsGQ;$U^GN)xb`;71}8Lxd&8Dt$WWeVYgc6db(6S#e}ey`{&{bfVzlj zCrQKO=NRGMAiD`;1S9ZQ)9Ub2I5w8nX;|8wfOVA-D*^jUN2Rf#_$|ZWS{ivh)z@JG z@$>@21bV%*nMy!#Z8Mf3QRgNtN^Y`WhqC`9T7 zj~IIo838BPSf_6TS9niMG=IOC-m!gX=CFA1(n3HRVXNIsm3ZrgGtw!965-LH*T)KF zqrY>u-nby+o7CC9^y-EUIFtPmkg(LSUGc*@*_67=NpYqcg3oZ-lmq#@A{>0Rl+yr8 z5VgV=tkG7C2oE&qxi_dJs#;#lpEn=w$C~YWzMWa~jhDUk8a`RDekf!-?9xwMi$^=X zQ0@bAn!viJFCe?&I2{g(sDG4uLor&qduCVn*&{A8hyS6J2YR@CCQb zoSjUIY|o@ryuNjT89_@oq+j$KxwN*lml$_iT=*wwQnrA{BhQ(JP&KHB+u-)iMoFp$ zOmk{{VzH0*YyD%kAASan$8w9jQ(fXz=G*hxU@CB@mR3BjviV>8Q(Dj0Lr59L*G^Dh z@KU($RBv_-d^lh9-0_R&0_y~%DI@R<9{ZJSw1E(6PD+@nVWbR0O-+x+#B;+P4()o9WE(7h6vo?R{z4Xb;ce%L8jv=^h5pxtQK-P3BJKKD*v+ler-B_uM1m&ygut?s8+et@F$K`UM1|g{zK3 zZC<|j+*hg12i;%ykhxov{FHn})z)cu{0-_IX9|fiUB$zUt97VizCbl*@<|VHvNsSh zqt(?fO*b;;KlZYi1K1H!;ih^ecB+sw4> zSzaANnqDh`C7@rg7rkfSwTX<{x^n}tI+?q31Zum>9Z6^8m7vsB_tfv6NM&m4smJ0u zlId!i6toY~SBkag&vxm2NzKU16PD?Q=J~!*zGjq(a#IFLj!Lm!C%q6&O!58!^7>@e zH-~_&xb2cU1PH8r?LKKs8>W$v3o^J;olHo0fUPDPkF`hCkj3jKbQkA$4sxqmyg%CN zuM+?$dS>F)OU!O}#23M~+fv%wqIvJ|<@)zcGnKIR1Xwh3<9xcc>ujjZ!`P+Q<@xv_P+&WGz^UME<2S@zxjnCdDqIO$ zMb&cG)Txf_bKa^Crjy6&>orVpk}pjhtF%*Czx~}7*2KOc5rW4&y-K5vkVo_ri7qXf ztMzfSD4fXP*i8#AywCrL$|2pH+a3)moI3eFFRks+8C*YKObI-=oC%qE>VR|?sYz-a z4;$h!0N%%9wQGBPEA!pHYg7Tan#T3m+q~?zRXr?b2Xp&dMORm4&ESGp2|lgLK55awWe|kuuMcBGyULuFD&~?yakRGy7Iv zNJkaZOlmjdP&vtBSC!pqHIfi;D5+i|-)$eqJJV}*^nw{?!^sXB-yQ}=Dh&2G@+u^^ zHDpESZ)f{ySG@l8yW^Yr;aVj1v3@PF3Odcrzacq_AAREhp0>Uw{Lw8d{20QC1ew){ z(kX=;G^WQ7;^&!#9_i?4*8OW^k3QPpv&*|vj5KL2RdI;HW|rreb`!VqNqw^R`dxk& zM%i@VE8`%;mUg}I6OfFH_Inw;s zO-qdf4ZRwpwfPL_AYI>jOXu(%W=K!t@v08ElIN{S&L?t=j+e6HM^?V*L#pEZn5$%STimD z>eDbGzQofdhR2Auouf<-`q|um>4=lIHk=I$d%UV#=iIN@Z@g={Y&!)y$(TM_P=IVQ z^f$!&o$K$GJ*T05hs=}@{(Z$M{@KLzls+8zxVz+Td5eFSMgiXOfO-7_esM+SB?ybC zxnt*Y%~V#KTE3QUO3>wydZ=VCs&l&iCOZ^lMV9a;{1zeT`V}fzAcK$Qb*=Q`wbF^m z+I{JsrkEqXX=co>C->RPMcDI^Ees-a37V@GLB4w!2XU{>fta=$3R!7gE1j+~yxCJ; zuP{sh6Q|nr>Mk|`A;D|)Xba&Za=CDmz`96D}!40owMS8=0uEb)HsW6S(CoAm_ z&kB`uQ>!}^mat+BU=D9sj*c&TMI-Y1TjnrkV*_>>onx)#>_wC1UFI+*ta=SvY;}Th zbfq>QWmkTBao^WmyJ%oxtzLB7+Q(cXr_-4}ruSrahzb4sQ_iNfciSoT{lR%ep9vwh z?IYg1RjS`JT*cyp*q|V`LDk~Nqu^#^Xsk8ou#;Nn67-ILt0xKWAU=Fs_CDH>`nHoB z+nY1MKc*kdY&ZmY_}DqOmg{F>&$Np8q;rrEaT8s;XZDo4Hn3h7gF{1am)lAFmDt%vRP!Z<5iw*WLB~3 zhX8TKc3t%hVDl~E^ST)yAwoj$PDl~1P7 zW&IJLZ95m-URSn$H`KA7f6=?D^=yh9ma zsh|i5%=>k?8EL)~fmdb4Or9AHBj7%I0IlMYVtd)4_D-^vI<0(n zR&ipSYp~tUMMntpufy0%)^5=?*4F-gAaCYo5)Za^YOUlx_!8+A-6myrI=x=keU?IT zF|%;JtQ}TW!Xnlz{ZR2UHY-B1tFu2h8k1+$Zb1DeFw!6Fy6U!pbL}mF_w>4=ajV9< z+u=;GW*ycqf5jh=Bf;1Gt>4x4kt_~J-NAS42M)%_J_>sgo+U5Ay?8Q*=VEt1kF(tw%U9rh@(37yJhQE3P3$OP;4J*f zKb_P4b*lC6<0c5%yc6FFzJF+b&7Sg?;yn0Y-@h^J{vt{6kvaR9f439BfB$cV(Eq)- z5isxm7O?rZ;{S2{hx`9FbGiS4X6|3V=RZv5SP}A1|62TKo$oa}+&lbZGRHErM_A~~ z+X4k+7)_`zW$arK3^F&Y_?Hg`@ty~Y@xziVhWU@LT&xJ$-GNYDl%DO{NvXVm39)@J z$LFvumxeqV7ByvG(ekGHoKS7cGJ+iAfYkEMAB?%&*i>_1v<#a-G0ByEO`Qp+*6mq8 z()#kP_9#!^FKKl%J4NZH|K&50!uDYiAI|^5a@;$OS?dJhKHOd!u zjVfoiNVE23>+ZHDjvTr10X-IgtMqrE%t6Nlr6Lw5h>m@$DpA9#Px6|XNpz)%s3W>C zeU^!=-8$RGu$gT$H{z(cul}>sPp7v_5M<6%V&Ydih(t`rzo8^Iu}P zG0Tf$h(H({i{*68tp_#P0>-3Qbv*(?d6;79NKKq8!4P0XUigr8r$rTH&zLnv_{=|sZZJFdZmE|mUm9xH)xh7 znl{ z$%o3xKlVEpTKM_X(V952`>rMIeMD+wn^iJorr%ZM9qC5cMelYbwD1vNqrF5{VX9zG z54tDpYpu%INNOHmN>|N>_=0@`T`M4=dl0s*xcAAEhu-Skwl?o3K=3<#uAhd|aBY2l zSHUl9&=w)i+b8}Rt-lNO)FnSeyefqy0b#zqqi2kB^d?jDLF3|a>1T5P+$ky!fp-;> z?!51Mf5^F4?&KPXqlyj-QaLb7`NMJT}O{SH|^Gc(+>ndo@?j*j!kxxP@(n zjo*7y*$;&c0o$(ySQgGaBw18Z^t zyUJ-b&EKmp2+N?=Y$%?Uy&BFp%BsHr)cnYx&=nmFryMe9Xb)M*3W zZVZXF%Y0bh&gv|o7PDt%+xU`Y1^V=Diu&N4&D-c0*!DC<#-kjb&IowbVef8sc%Zw} zjtjQZLW`PI@)kFej2kQ#S_c1hn96s@I+d(8q*~$iYAsf!E{>Gq2bg-LeVp~I)3ZOm ziB?G-TES!A1R5aurDLi%_}D26GCr+ap9c|3Z4{8)om&vYMjpQ+gJL&L^B+)jU+Z%# zJuPh1`=YY=ln)1o%;9aR`KSzUo%v}vkVjj7=X}%n>(YK#pDAd*N67;bvKjy3%&!G2 z-4kmjI7W;Lp|I>`<~ zSmG~MR3_U7aq}4}j8+y@R?2ywAF)2}o#xAxy`F0N`UC@sv5a2nrq@f)GAR}j59~oq z=T~)(CGOPSoU2Sf=6Zvpb=Dir)wW?0T-i^PrUC%FxdWz?UGhP9m7tus56b$gNO(r8 zb>=c&IG1@r$B9E8BCGFmEfd1wz7d@5X)5&E1=ELd)Jc0C>7muk@+9apmky&}Vd)QB3UO7@f$~*67 z%2}YNC605SwU-}ZWQMhrz$s5%d5PD4WsKdp#`H3;OD!e?rab+znN*6{-wE9Gu;@7FZB@#|kM<^>vI zv7HN1&XkZURh8Q{?RiY&g2E(A^P%>-=iGS=YVgu>*=O%H;P2$8>1?Hik6YdC1%!>d zeO+D`@l&I~Mh!!sG?Py)`LA~wfYhi?uE0-j;YsfF9jz{R6fU^n`i&Yr(OqL5?vC-h zDrMG+t}gw`a%5(a<`MjKo}l*bTKI_0lh@br+E%Mx7#(N1B&W*4a->Dv2wyTYtT6Ag zdhp(S?yuF*;f6tSw_9i~$|I*(cwr#3-oC1;P_(OLo#yrm^~gimuvdOqUvDcW=`0~N zNse*fiztPb`}weP`R8Yw|7Nj5VFA1SXK&yi&N=^0;ys*Q=HS>aaeww7{+oxOf6}>7 zlE?QC0Qm3t{ePYToWkC};IGFcppjqRpKmuhy#E3mO!%7rB;fz`fB#0nuK=3-k0Qq3 z(CPrk|Nm#Lcaz`y61?H-|M<~=he|JTe^xvG3xWKvAN$)O^3QYIKm5CYE6N`~fWJa0 z{{c4d9-eA&38U{{%6~W@c7$D{;k+Ke1gB;b^r0Z<&7ge*M7l2{Jj5?mH9tD z_VWLcKKai;3jb&Q=KpHz<*(oKACJA|^1poS1tH+HuOI(i2JK{p;IsYIJ5AA-PmllIF?hzkx*Gt9|TovDZl?{5PV(v1wLBn`5LgOd1}$qyPLLs zRWm};Bky}h(Uuo-{Nr+Z>C9g+G5RXY?86nVTVi&P((2WuxYU%7in2=sx4 zc{ow(N;da4qE}=5@ICHui(Ub)SzdD#vC80|;h`>-4p>b;8kfQT7mJom? zy}?S=M`?cN_C15K-!K`xI2=b1j-@BIY^0y1nDASpM9xc{)}yWxH`*zeVTs`jXT2qq zuLfTSg2B__XfR+`t={dh78>_{lS-eiHGX&AWs=Lj*&cL+Oz}{FbM@#o7n9Qv(N8YC zjccN@lTnMS6rzwkPVy9~@Qn{tfHDJe1W^3eEw<7N;PTxIdPHUB!>+O4F`RbBc%&YG z!b0s*_P*=zz)R9X5!1EOgLi$b6hcS1^j&+{-pb`I3Y^prBf zj(}QG`ko>t9m@@9HdPFNv&9@Vc>I?4Hhob7pBa{K((TRw=a7AA_qrs_+x5?G-}*cn zA+qhmnKD%YU6Hz4HwCqZmzMMD(i6>ZzYWtMr$1*}&^>;u&BNGT7H>jNt#9uDXOMCG ztnHczYm#Zf2fU8myk9ZNLB9_RZPv6yGGJ%@5#x02vgi-l8+sP$tmcj1S{+ z`HbjGN1B0qQ}QNVB{e(u%R_~*E3>bZsN^R)jrSp7n_C0WO=F4p6g`pTh`9()zU&}n zlYZ>>=(9ORe356o)cWK->qqB(0-`J({MMo3GXYk-VI-$*ynedb#i(2lu7BF z6l(eW=XA?-&}nswe9$oGnCGLLm(~~KlW3QByEsWTSB0tD`FOZcxTmmng}YVHJDIr6 z#B=ON=i+|v8QTtZ{2h_>Xx+Jnx=OOy3_vDQ%$1t@Kek%kRu*fEe)@&TaTM=hqX9=W zvKMu0uwC0biwlf0ul?f;;p9wCU-vO;*jTU|?dCnzb6HwhnY{6oJ11_JkcSkjwL01C zOG{OQ^CNCIXCdC&chkTIvMR{hWlzboEUyaQ=;(^E8>ZtuOnJ=tQzsjtX zS;)V|BFMSdUX7{k+TY^!6J&eC77{)Bhg=kzweu2Q{@?(5*oF54F7tSeRDhP>Q)?*y z3IvI4-~ipg5@)|z5voc9wLbj@IxIpzM)Q<0N#{BbXtV$BLH4WOe`!;;&rG{BrPfUO z*ycyJa-n-!wW|^NhPHk8j;VGH&jO^*L@w~sw@gipaVu;{&OVZPQ~X=p&Gc^%tSd0Svni#g z2azB*jPe1WEK{h%@__MHpMt(SOTQB}Y&DzsB{xnZ&UBbz^Qd||=HKVuYpxegLFU-G z#dAG>t=;I}1DyvhzFm21!!4F=eIWYDAv!|p;{XZ6wuU(YA5f!lZw*=!FQoC zz7*nBXMi5v79;hZkh87;3OxIaSZvk;YVF<(S_9e^ukUXUP`3VfoJ`m|n0}{pkIN3E z#}i#M(&J^&^KjAaucvIMV6@AVi9c>~*pNv_n@;ndLDJ1|ixYLWfaNxi zZ^i!Ywa@sYJjwZ>QjZA})jEQ>Y+o$(rF z-U$RCH0J8nTl7s8X0IdoW8VRBz8cwAO__6ZdPIK69o0dD+7>JodUidfc)xP&QpT8tt10#wqZG`x<=j6#qW$$6_HUQk|K0V| zfAd)O-#dqa-06R}j1vC+EcEx7SdeS|V@#a?vm5_^_p1EwR%Jykc!b~RFYwY_{@0gL z;e;YCf4wSqA0p_d^Bt_SIQWmWekD7Z*>AeGDsHMnCc#Si2e^fdH(aV4pq$T(+s<`cACZ;G#3GeU7Zu$7am1D1w-1`Jl4!g> z#)b2=cSt?vMTW$ zbu#IK>HIb1@2?VWgn1-5P+g1(uUJfUyNm8Krw4rIF>Q*$$KCIwO7FUzOj^6V6OoWG zv)gstPc^!twDpII4<)%5a%zoTDEY|Rs-=3#1%J<*Gqdtdk8V>6|24z$AWP$H;{eI8 zQsuE-Iqe$lWjb+hT0pKy|rQ zf^UuGZ}maMtg6EMRrWKrUNg%oNa=}9Q~r6#HOFExU8siWDtvYK-#VI`_v&W`FYh$I zCFk%~l+ez-z9gV2I6Xb=!h%j&O>KfqUWZ}_W^DW4qfy*4n9vwX^#K&MhqrX*l7BzM z0+zh7z85aW^@@T%4OW7@V@5W$|C$zj%JfNb1iM@HRMq7)@re=eNQuL(U2`E zw5Q+-64B%40+mS0vBBOPfP+KK*Nf_Dm3l=8#6hVeAR{)kT4;gEgq~JGi_ux?#Rl~;%?C16{snTl2r`3>ububKc#meP@sD}qN=!a>OSk< zY~B_*(^Kp6B80I?|A#y4BkR#b4Obs-uT8GH_Cnq`2ML~ z+pWx6W+$YC@i432rd!wCYSY%;Tw8^#rN-L#JF86d4;O%iD;$pPR0E0Aafx)WEewE# z{&(H~Rq>*vnttj^Kjd)R+&%XDrjarC*+tFC5ex91yH0c2do-F9Pk{ps$!q+VkLrU? zd2bJZ>2+TD1?5+}De!{a-Vg3hc@P!jxme5QxWUOTjD6Z!<}NbuY5a(%UJ8<`nU!DP zQ<-Xp2BDn`CpTk9JohVbMyb{Xeek!`q(1*<{rGn9N4L{{)SZd!bX(Xi$fQfPkU+ua zR*x5`VDm+M8;*`uDn+Rcypp3iw<2l|zrFA|U8|1g53al$?hf((GE_IIh|-Y$ z*)^L<$iA*E`OsLRA$1Sz$FgAF?c%b18Fv@g>cPBb$yKV5ux2;I9GS-u*js3mftKCQ zL28|+0YFWi9S@EAe7MvN9x^nrSgK8n+-E;hE6d4>U@@z+Qp!^-y~e}O{&G*2jV_(F zAH5$k+UphWSyDLzXRVXB1mn@JvM|GN8HVHiI7?U-_sIB!RUSU+-C!nA(RLW{6JV?@ zs*oU(5WzSm<+M`G3#-^3xjQB?As;`r)ai4t4@aqcikSR5G0%a&-Po(?bAHk)n?9C6 zJh4!L;w`e}t5hug>YHndx{djFW;B|^4hqUW&RQ>0xh+*3r)Cw9TqIvKYvzL)_88Ku z^3SQYQr`whblWYx53+BzkMjp)#b>D_Zo-u_>>&kuuFt$OS$V3Y&~j9bfG%*AdKDhE@?yGNL%3@b z4=cr?nVuD$UG@!-Go+KtaPQ6}$4YJ1t4O@DMdB2*k%aBmLw^uhvdZkOu{wJaC8K9-Db1EN~liJ2&D58}cX zdI(Kl1h(J<&lG@mX{b#4k(nph0a3jjdO*aF22;wE zqD)X_mdlC{o(NX!mXo#JM5HOJTfl2UUz!*r9!Fi>A;-3G_C3Jygzdj zhVCZDN=%a7 zo^`_bSQH+{>#)J)evaNs zU$%F7-#V;Q`^n~g8ecNxzHB%zerh-6cJjjC+rBO2QaIZby6vv@LAb{h60=n&pU>3L zSVzl4eOc=K^P|)s2ao^Rqtw5;()w#)@Nd7`e=a!w4kK3jtHpK((&#_Kd?nbQ{c(;e zF@NsRO3a_zj{kF(7%Y&qgcJqkc3k>Mq*OCVjN@KOp9H~8?5UJE z1D|0x`fNUnW0V;V8Ob#h(l}rQQO?7n7-@FZCJD5DFWLmd z8g*_%15AE?mZ#jk5zUK{W~%XX_v2sZzVpoPjf??w7kgVT?m;#7IsHItulzDM0_Qb( z6T#6b-hk|K!!=vQ*Q&R#aYQ%vgD@=Kh8b)Bc|m_fDqIGaWM(=o-|rutE)xFURc!>g zcR%h#P>f<}xpH3^dw2D&+MTv=K2>)ycT|?p5Q22ho*$xQHz>sO&*yYV^2`%>19`B$ ze%@emTB^WHwjkLQWRe9`{y9gfebb8EqcJ9X@#qziSKnrH!-@HP_gaOw2Jqn4kO^G+ z42OjBk<~#KzfXLK6VyKsQ>{Q|PMC9)SF6DdlzGkV)oujL>}teJPT$Kxr!2fxxs;GQ zxSMS8ksmL+3tJchR2{wewtZTz%|ft%FNdI@sLT2ij@!bjG|nER=POGZICE~lchna| zApL0Ha=GRM7KUoZB8YK56+FEzC|~MW@a;=Y|nNj z9Ph$o7Vxw8#Ch(zn!%^-uQ<+Cs~^-UCyTm1MPsAv&}?qgKlY88NNm(s5LMXpGcCGL zZhUxHI1# zaa8A5x}rBeMI@x^pXh?$!q03yVg1pCKQ4+~%?>+9d*Yachrnygrr?%T*w}4A-2ScJ*TU5fpMPu^|sgoXwm2`bd41HU7k(& z2_%)4Gp%M#!WUv`3v0BDs3XThdW18rkvy7gojS~!%>K(8$Z30OJx8O?nK~_7Z?T*g zF&mmg+$zp^-?!0DJ)aV^wh{^e*9s*LxeL3UY`K2eTvh7xf)##)sF1tVnm~nv2Zzb7 z081fnoADw0UbfojZAogX>20mNE8YHookSB|7GgLTf!s7iQ7BAakCX*f z=YtWmyUO_)?)zM-4BJ|sGqC;4IGGE<7$<}hYD zt6zOo{N~!M#wAmur}sKlsRT~|tUZ;0bT^{Yv)uT2LbmBsv^w-6Ba;b55YMcdr$@{^ z)B(Fo!x(!RWqK^xxZRZYaH2`gW#O{?z64TFHyFBj)`}jY(c$-oHOu+1ioa_nktwj% zLv>g-7sJz_g&9fzbC~J-ORcnZ$&m*f{!8t%iee_y14hnZIzlX}nK?NftWl2iOlQ)| z^~>tMtJ1ZpPspD~bZDN7ZFR2Dvcs~^5guAX+N3YtLb6`2n8vP%oOAto+p~moztrD5 zjmHubMJ=ciRyG+-4j>UWuxQ5R$G{y0cc_lXq&Gv{y)&W;{BdE}i0o zL2q6YT3|=wFPwRYnv~_sIq4o5zt4<@?uU?&e*H?$Gsk;fz6SN&X;m11k-nz77c~o! z>>IaaZ`K(DRM_*7yt0-YyG`a{{EF6MDn6T*5(b&biOs>{=icW1-u`8+%{MYHY(6Vk z*T5f{WPzh*XfJD~a>|d6)b^*m*HhS2*6OvouqbfpUh$k~*F)*GWE#x)mCBZS$o(2? z-WKMk(N$WB$0NU-5{5248bS1dNW`nYZ_}%ONYO2emIvX)?$B9dlq*l!mvg+U?JY7~ zUw-GqH1*q6`10@D&K`=D;oLTF&vg5Hu+%l)W0`?#GEtZMaG26Gsw{)!zUiLzBnfqnepMEe7*XdzD8-4mH;PHl& zb$FGKHNhTV6X;)_Mk|0I&31pRjpnU8pdyAmi0z$ z&iNnDRgiI*;Q^AB#nghm_{J|Fv(XOSHjBV^@D}N1>U-gq^(rtvV-amoDZJ;#ZwhOi zVy?OdWekDP*0ercPDe{~)=54op*V!Hz%MkbLl3YKTE4t6qihLWP*>K$(8imh9`RO9 z1>+ZY?qr_k8M*JHiZF-R+#6mcuyT^lzlD%3&yK2;z2oO)t{OfsP*r`Rl~!REXmqi& zUN!Va>3KOiPj8$-w#!9vH7HEagW+YTxJtMI&+L&*$%^DOlblcuT7>uEk8 zjbOg}sJd;qoe~EdQz_)^?k!lPt}l`3aZ1^x{>e zFgjFJw|W&?yB16iA2y23CkP*nCjo1fuTixc)!8)Bdc7sBwpj$5d~eu;y0mFewAJrj zY)U1e*NuSPFl05m?^wMu6uDibgwCw+IHS(fdnJI^1$Sqxj#YmiG>VoX9BNzL?p`ax zr`jxUr*{(1Uam5EAhc*-9aHlPt|8e=HAo(b@0JKEx|HYXb?SZmVU1#Xu^se|_GEjA z!*m$=<|ywc|epiIV+hj zdeacz`&akD`~vdug-Rado(mpq8LL&>r-!;)B3;s-zbQ#Ln~}D44%uPj19l??4>djb zx#9S=#$Mk{FyDa$qmW~OlR4Puu?3!-OL%S)1|Njk&+A*YY8}cxPlsdN=ytWzWzPur z?L*#}Xx*OU5&=^L#n=!l>cuLJuG~)9l@fVw^O=-^#0Fb0E?y6(AXJ9mBVRpDlG+Qq zS5m`mPrPi2WQEr5+w&ME*r8cZjh~Og!tb{E$8O!?ZZNg9V{$~DKHme_Nex$am0Y-F zMgO>5Iy7Kv@XCBT4lgDv!gXrbm!IgMR3f*po(L~}d(wWE5u-W8N+UjJbV|yG0xHj4 z=kdz_%i4LhtIB5S`kY_UiV*`rf?0xKL=+VTQNRF3K-B-gN7Z*#b#?D=U%RWiPS?Sl zYpykg_Z{PT?wj-jHK(eFrE&?XCe}$`@pV8$4FnhAtqs(L0W~95nP1jEBhLpkVzg4& za+xLl^*t?9HsOPVj~fl}`lhVkrR&z*lDZxj#BL(@h7fL1z;^PP1w%635@^JpXNe`q z>=!+L)$X^d^`IR+3&+n5s)lF1THK9*VLGGy>a_@sswEtWyGOd-CVOHFOyk6bKw2J_ z<`)NvmU`2m#_@2D-=W-kKdev|T!K2(<$BikgU^6FUtVE%^tC2N5Pcr|)GE`>RHr3m z+`38xL)CkOdQSQrJHvTW2ZDPy**jCUDarh5Gnro+7P~L%uMEZBcDndOOYBsfZq>(p zGexdfhJYi{V3d+xRZNK}KPMjET&5YG5<~8-Gg*ayvj$UcX;~cTCZL|;(~vfDYmEwB zxu<(b=Dj1Ml84Q|<9?<vg%`7T0RCOM1_EP z;;u3Mta=wPU#x2d0l6*1{mI=)s5?%Rg>mEJ+$<~tV4WjSx=6DDW*)51r)jGei0Jv9 z?^~1T;?TORtao@FPNaR>j7iSh5m>XeD8>a*E)L)Y(nj|H?VU`PyG1+M5Hj3dw>Xd-uPssdChepq*fQ6=a zU;zvCA$_@jJUnEb=`yQTh87g19KgBGZ*KhIUh|fFY&<25 z&KPk1SBRnel9cARkRG=_H~AGcF_%CHWuKOqjR)ugY7u0|@w4=f)*wPS4wP-h=E!oj zSS{nby2CA2b+62`@v?n`42x>q(A?w9BmL%m-lv4=Foq=tpkJc7Sx*taXEc%jeBkyE zIQaivb@t!F>ZkwzDdInycR~31zvmSoVg1J+{Tt_9fBl;Oecr{A+`l^SlBfO?y>|bi zwPo1jy!-5EcevuQ6+2qanexJYZ0ui@8JHfvNXv_|sZjLrR_*jhi9ZpMDpR1k>0DuZ zYn=w&7tPLSdXOAXwXVtb-m-lWp7&6DWvbpxs%6~TuY4MxzB#;}2RA8ISSg5a4!{RNTz*pO(H5G-bfGAvYr1qI0}jw}3-tD;-J4KONVqcomYWm(TAbkUgN(^K zbt^|IrDAhbXG%EkL?RYcch}*5Lgdc3{H=|g zfWKVll*Kbh(<%_)7OU%2R)1U8R*Po+l<>Kg`bpo%=E%BTd|f&yyCa`HYXB#9*fO_L`**--br!cp)mA6w zwy{DE_jKuaf7PZYa3eq5JM$_G_@^~71*X40!q209NVS)KT&tSQHoF(H?9X=#i4|5f zzQp`x6Y>2|Sy;HwN>55{y5E{{Ow@Ay{QIJ*QM9m~8a*~9A0Jexba&tBuVB*E*(TMY zc2a^K*p7|}du8v};rP3eh!icm=j>*9-rc)Z^L4ssc;4U%KeJ3{4M5KKD$_4F$lrGd z>K5}x%u6pU=OX-?aD|Qc5iF=^^Ft zv!TnJ<3EdR7DVs1vM9WCXs^wuiF6_|L-oo$z72;tN_(iejLMJ-#Oc}4X!ucYL`oc= zt8H-fKu*-QzxD4eM7b7A;VG!4#O^J%_W00TJKJCDRBU~>ta>sR+Fti@A^hZ-#Zt)~ z3gh+u$Y@2r7}>+$Of`{LvpTOf>yQI{p*1smz3$DY887(S9BxqN9e&v|Lc z3r_A8_p(bdtu4N`io%$;hm1W=VuZP7<;31&1u=qq>EP(jJ&KNRzIWK>nNht|X{)-P zw+`Il96aTNpai~HCK~MsLI;Sw`rTE41piP>Hiq|V0^XG=70=IuQPOOVn*Mx~sHaD5 zEN5=H{Nqw%GR3MQ1kz>49;e@P0&3mdO>{%~Dv&GMt5?&PQ*Hg(;xxHh6g#EizEVk< zovL*`n)EGSD2eS{yPUkW;=cDd1ME!~nKb3DC`yefah;j=Ay*<%11pd07sAH&)n zRQ9#96IhvyUrWMuY27JDJuev-@x!R!?3yV(aghaH{t{8?lWT?I!e0|b_!$OVQtD4q z@4~rU=bD?e+FNT?>9z$!v%THq9EhYA)rj79m2PP-d9=m5x92Hma&YDeIed#aM9n= z`h9xOZ^zAk!oKn~$;^iEmHih#d41;KCKOBpHKD*M1>7cT=hbd(1e@IC{F3Sj1wn{B zXD_n_llw9&bMhWGP~z4MsvDaVZx!wGsF}FaF@BruvU^LfNm{4)sm}_liwq~d zHD1mHO%RoGPIB0dGMVql6!fBM7mwT0c~0FRn>6UX4$la#fJteb_ll$3b2NLl(Q+hw z;sN4k{Av5_X}4N?{Xn;;W!L3erF?#Gy?U1cIet!vve^auYyPo&=}hxQz!^SHhmZ2E zTU1zpEi~k7wbI&waOKK(TIoh2YPn{;ldV0*Bk(P%z@nXhVKK}lkeYgWnY$6JuJorU zmS4ByHV=rw9eY|nb?+krT!w>}OTE{-h_phf`Z8Rfn1eUxN5>WjHB-4kQcHm;0^P6+ zNI@Nf{R^77bwt{n@8p@70ee(0vKb?7^wDQu&%stKbM9Z%rrzIXlWb!WGEBeIKc68- zHxEFGlC4YzKnAEH6!^v7*q^>F8ZQ3AbyU zI8`O?NJ{*uwAOb6pn2biu2hoDYl4K?zO41Y7r5G7lVft3Hq}>3rv>)d34j0*mY149 z%O47N$@Frjl0TXec0#?)_$NJggMNYtV1OAwoGz7B=^jH$!0ot4LNpG_^o!nC=T`$yosJl?Q+sKu%cA( z1UJaM+x4fR7_!aZ=UmpjZ2sCn}zAzO}HQ(S7*^|zx^y3S&l8?*XuWtu%14# zeaLwY(YdO$+|XxqGJl_R$&PbgyPgNovhqzgkHKw=)T-zA#S?~#mEGhrHznVt!Yu9Q_P4E7ntMb1oJHV!T1#dQEDvejO_7_ge(iUW*`m z@rPj;TRZz3_QwrU^ZA~lxq%JqrMx0Yy){SD*!AUez4<9Y;O4%ZS!_!n@)P}$3Jy*7 zTHh3YK-~WU@4|MgRrK4-$7~*NpQ769dCL^g6s}a`w_V2Cc!b#NXuKK5lbI@n(PKAB zpYHPQ$?QVapQZ-ZY46?P+nWQ6r8NiKz4zaoeQavwnlTmbGSmDad!Bs|nNoU=4TX%k z>)SG&k?j+JDGHluJPtMGru%{`%MK-1rc3$P9n#Z*HuY+SnWkQ;J>rPqDyKuOKi%Bf zrP#Z@o1e>mH|)M$t6{`1G&(cgM++NXx8>D5Nb^c;y~I&o-tx*t7bj<=94!_qU*C}F z?tJBBa@^qLFK*U0KP?3PJbF)5ZewX{c9k!0LO(;Jo$Yp$eU+rgvd4p*w%dapBA_q3I0?x%))f zjVcn$^_3ZOhIUwUvw~4ndUiy^Z?66R-Glt0e{&b1F1+XVs+8&)zr5U7rGIc<-M&W1 z_JB3-0DZCNW$jL!Px4JdC;q&*458K=Vv^Ng+BRcBb^iaW$oZJw?lcr?rNvr1k%h(oeB$*JAx4f zbJX*P!x6a)kp4*yk9Y6(;*@h$O`JtoJF%<+-I-#jD9<(4^s6CTi&7*#`)w{7uzec0CW31m|EV| zD%Pq?pW-B)-W;m>8i6q1ms&Q_I`DO7PS&VOfT8HO>ROZ?KD6=t{#@vW80fI`fzFXOV2H&a?X4+{8UUQ+ULG%Cy|z93RC|Ric^)i4m-tVk!?`$n=^&> zmasGHQMldSUO2B;eG2QI7KkRgY|`)V_=5d9J)^5}UJlcAFAlE;U(G&SIB|dhs+*04rw5e?_S5=I-oR4QP1_LlHG^seDRV!=C4Rd{H8uI?ds0K>1j2SA7_-j(9dbGCRiPt4TEzC zKoXv7osFWhjZVG&7Zp8k!qM(}HEGp`nOo{oGP{Z`Ve4P8A`JQ*H*eiLRgg=$qdF$u z6+s;8m&0~*nB8mLTlT|T>QlXVE?&>OiV-2R#<%mTw3;+)xob}cEEd@rK1DfAq<8Bw zlLQa1)M>q^%lZ!(dd2R$0*!%_$RCpiwiKfsjx0$fcdAU%W6ZVAyJuzo`Jjx$i{0iH zY!Z^?cN)j}wkG-K%(TA1>x&51uHAU$^#kXz){AYVcu$-TZz!u|(#qKhbvlIePIgJA zo6qf>mRPFOpWeFpQ8ygu7X{=6EgJvbSU@Nan|3XX8&xV=pT7@e;>;I zbG0FeaQ!{l_5Wbl{plF)|E>)IDB<5fhWnG+Pz|hl|Kb>Kqtn5nfNt}!G1*SFiIHI1 zR+nLGbDH_z1IhF0!T!Wdl2Bjt9!0!dezuKS$t6moILK6x=FEXDV6PB|>2^w54Mw?*MBh|N1T0SaDUK0Y|++M&AdfbmXo z4m#fza!&BjVaf?NnM}K3lsyeD8oIdT!L5?kwDm}lyOtepl{zw7{WLybQx6HeS<|lc zzUu4&QmFPmmA{JH+Y|KP@+Pb0O67w~6xGLm)ij~+nk{cwU8_VfQjf$Ya0B2a6g}_l zJf5;QeFu9S(pfEKaV4TOoFw+KM2Jd2oOr1?{?r;yunOBfvonWy-4Ve$TAde}{R=F- z#fG=t8MSXG&oV)txaGlO+g6I5PgsYl1EA#?`7kJXwG0ffFcj_VTQgcklI6Z;Rsnpp zN;l&7_xY@!sTW9wBR#k~(r|jLT5<2%97!4D0yx0lty8HPP|7$2f;VUN`U|l)pKQ8) zG~oz3oL_yj>dlKUvaF*mY5$<(+K?Q_*%JQlw?_NaLbdAILfDLQopmacKc~NL4a^RB zj^ECVvQc_t5T;e{*;`@EOj@$5%vy9j`4lVVuBHh4Z@2M`3}4Sgkh&#ian;VB@TZIv zF;J6X=Scw=Oqs@cph8k)to)MVD1IKc*JGve1AQK7u3Yq0EaxAy@3e#gV;Y~3>Kc91 zG$_ed`Nq>aW{>3fHfUs)FRfb`EYROOx))%}&q(!quy6Kca|#+~N(MYnYCW?Q_6nj* zBBvS144+TubTb=&tZe)KvFFhkD{px{CA)V%EEWs2nUpG%Z(LlS{atjZOsd0aGT8z- z(NbpSSVFq2PuA9xy$fgJyRk!Wb`0S053_*LO-S`ZloxNfn+5Yg}I6#+H5IM~YyF!`W}KYril3 z()esVDeD!^(q&`{oiuk@H2aVz>vcrwrSfGKUIg~ww=QHh_Vrw@{;b~ZBx#JlITkBG zcg-2Oy*Qph*D3Mlh`!2rwZXfmRIX=+XMFT_>1Ir?_$Zw&*uan4g>YW=_N&e7JFvG^ zxSf|i`&Ps0H)&#GurY_!G3871q8#>}@9A)~7ThqD-=k8m8~3#1*?wjo#+K9e)_A!a zZ=!TVaOi7Yxst8N4m}CL$(mh%iY6<&-1r43%k7n^riU^5>8Eb-$mpio9Cg?#Y1>@b zNB*-4%;fhDr`dd}Hv7h{vUq^CkdVxCpIXQ&PF0sQJl7A`Wq8v=(hBHLnow7Z+wsey(5!Q?0+b6v^SP|ji*{!5 zxWL+4$C=dkY;?KHaGZL|W2clbGjv(!el+qL#ku2cDZTf6xzMd=*Sr}kQHfZu{FgqY z0HV%c{AY(Tb*;sUWnTN$pBsM z%ERv+)Wa~+lVHWss~TG82CV68$30kh&Pj-3z2knmh`xB#`aX1dI@hR2dnq)+H0-HB zA;H5_1{}HQ(=@=(gUBs*>UAFspz<=14@ zO~d>OsV*~K)fW>2wiA=VwOa7scIE^3O?}r;@ZDzQ6M*$NAqHQX)|rj9!cNrmKI~Nk zzA`W{PL#x;uhoU|gdy{9T_yT+u=dij-is{BS_cPJrixT#ToEm&g!yhdq9$n<)}_XI zI+i!LBbTjDzoWz(Qp?K4^!tfN@aOd?*O)I8s+VqJoK^XCMx3>VV&dQnHK#?*by6R{ zI1N*2r#r8Ap`6LMWi&6{%V=Btv3@FL#44jO*)sd9(nbFXQ}+@!z9H+)q1E>kVQLP2 ztrot~m>~1jIL}DQ7<+y~{uQW6`G;y9jSjO+BwqR<#~KnOd)r#eKiSdzuC zHj6*e9O^OtfO@^n+9&t&YM{sKfO1{QMC2KN8k0$Kuhqv7bQXXL;3%vc^^Z3BAehvf zH{QD~mKndz>yCcRrOFT&)B@mXFuT`UqZu9TUZ-B(!E)4{vvpxT+*wpyJA9_xZXhDC z^_$#ncIQrK=XWi)uHMF{YyGrO1Bj6-8V%^1oR9bVq;ljafDn8%U8u-zX1+ctW#@_217Zdi8eRPM|x&3yz zw9!S$n*@rwtlQ0Y=D$#4TKMM)<<3uv-2m{GOL2D$s@;UMnWCM_1-E9{m>DjLfJETn z#=W^8$bH2@o=kIxsnM=QMD5W}tVqh-elY_G4rJQjW2dor?#zbj&F!3l6CsQq?0&|z zN0sQi>CUu@t03~quE82HdoQM2nhiUwG}NBs)}%6Z#?@wudABgWTgx7A8&nNLYQRHf z`WFBfW+@hlhxLgOr;uMSW^>D($i=cYXh+-5IJ3&KiKQH+TEs##c&~)d926H5e2oR$ zm9#U7zN8fGx7Wu<8N@#HM~AMFS$9*N^i0fLb`^bNXuVLDL{%I4i_MumQ93elgv43ArZp?YbV}A@zG!w@u20X7aiJIrG5H;y&93tt zpSH)AuB^w?Of~iN8l}#(#n+vxjJWHl7f#$vY&XjJ(%D5265*ZX@9+jdZ9Pfa3nmWX(f|oRMbf)?B?V1mJfDwgh**IOQkKTo< zh#E?m-L1VD-VN=0jZK|y>ZM(9_0mWvkB}r+L2)LEP>SJ0{L!-HL{niE;5hRv-@dK# zU#drxR#!KB*ijQzZnE!eiYVnU8bh&EZj2%6&boH0yZO|^GBAo2_TUA%%%}~CKeg#( zY-0(Nn)?8q(tF3BJL*5e!j5; zG;)wTo}bs$hR_(8>521wGA${?LREeFdHI*7`yPc9`+EP&^}`KoeEO&E%(5JX+rZMb zR8v;>N(O2!)VJ{3%Y%0}_A2|hb7gn=TC~YDJD>EXxJKHSsrY3Y^<#bzEkaBwEla&( zkq6sE<(CYk%%pF=QUE92(|h-*gJ-?B%xK=7bwbobyScfG;CSJKwwP`k)n~fjIJT2t zs10sKE$DS4;V0{8>CRIkj#fZJZ;V8v0kg!HuJMD%f0U9gJ$dV#`%OIiF0BHs-HG@vz$xx z+R>;lS2OK0ILHjOB^`USPuB_`8$enoNj}{Y8+vfeDWrqp8s`rnEX6v?X$1V!#`8%Z ztKXbJ*Qun81*>KU$3JbUyKso_LWgYTeP^;}mF)F{sWRQ|7AE=U!-D@+W$sUh1%Dww z63}A%J4TYML5J-x(H#9h{>eeYf1y|YkNa!P-^yzL*9wOM{R~+J6xw`rMr%38irpn&wyF)Lg^_=uJ?R-2 zskgS3#l9PvQnyk*zLt%T%`q_FRl)j3U%Eq)>R5Dnds?s2>qBp5r|x}|UCEV2wE-K^ zAPEp2eP}BJ6toHXih^->9#ej?%U^%c_@Umy`U|I~WBM38ePRW!!~NB0bK}=<!9Kz>qhewiuf*I^@70<1Q?%Z4DJF{OAIc}_8fUaVz7HyVXLNUhoZ zx$=mV?*tkvS>jNr%)1D@W^NYX(JH7lVeZgv1~6yseG8bJSD#*$L+Q6`yb7p`o-6FA zR(Oj}eyW_|wxQ18th&A)5b}_-_Lp)VZAx`EQz(mr*6DTv6kjZ~ucz3lx8Q$Z*4etF z@PT(*`7c9^Ho$NDJU+L8h1LcF&Ey}6Hd!Tm<&N%RS#0j{;doQ*g|VqVWV1zX6#^hJyna!oq%&z9RZxI4er&%_E1 z`e{f@0bf)1^o6m-T(LXYH?N-$WZpL;#2Zu~$TM^-Y;*&EaXb5bj-Wc=&|sesrm{zj zsMl_-N;t7Jvfj0Do>mW>&?|$ z6YIQ#hKD`76d_4pdCzztt#Uv*YV*y`X_GFV5mGkWeSLA>xnoFOapG6dPU>ZQ%M?Go zX*BL-uB<^W)SJwKQ!vu8&)INS+eWBvtz7yv!Qq%+v3Jwk3lk;ZtHIzrTcHlh*zlVOm84Q|DC#eI(|9ymfskP6!c=@pmG50IpxKqCZv?J8I zw|ZNrs8Uh$9K6>3oXmd61&9Q+#Wmlq@h|)CMf139FUm-z_{uQRlN+UpskSbk2{Ecp zgwf7UU+=_e8ol;SCzW;Lq?T=u#tqN~c*pbH9<<(_DQb`IXFP{ z;iH+gZ0xyoo_V1=#h5k!Qc`y+P?PBrd?4W)&aF}8F%=y18uA}&;in2noUO8Te4`b$1AV(!gdwG5e)Iy`5s9lydNagd?2sM3LUkn z7DWs4k&~foG~0E%LlXiJK4IXQ%Rav38(L|iRoDE5jNMz(9rka#*0z>9aQE8;+D46c zX0P36t7pb^GZtN?R3qiiy)wE zEi?~ljG#lCAN#7>8RftRXvNK}q0Zyol2XXjgvpurm{(&?zn1;#B(Pc#THG<^(n0FX z!~OeIMqYqwv~ixF*Y@UW?H0;&Moy=k2Zdv9qZ<^{JAt@-CaM~y7vJSRPY7ys1#~H> z+G>5utLlj61bqj3rrWhygks6g%%7^aRX_DfHbL(IB*SE0H0O=syW>N&CxyNSQyc6f zG@d$B%FGi<T zVahX`b}1BzCUJo$OgreU*bZ}&lhSX{pMhz0j0=g$pFf4#Qf~9l%!zJv7rnu&=HZ+B zeze@~hvighL*7`SHd2t#=oi54(Zl?af_YNCm@X_5=G1#;3mA84dV>*oJG)O+D?i+Q zinvVg#p>g59MQOE-uF7|BW15K93C?^$&D+%-ime^UW_=m(&2Nmeg4!?!(6NWtzT@^ zpq5%{%_i*Ap^f?KSH|t3l{q2U#Uh;Cv_?REh0AKz@jL4s06I25OnuS9@7v0N3jk0! zI-KY4#gmoHV(v5c2O-*Ld?(#Xkm1T(E{*ci9|q=m2PgI#{Jv_C8aN#J486i!M|X^I*}qaT}0Vs zE`^a@oUW0^TE!?>%AH>9yhbidcWJxqBiq^iWrpFW`MU9TYk%Lx1LCx2KGM_$TOoOr zb>AFB>DfWp#+0^tSttDV2>k8-Ug_A`X&U6K(xd()sg}P^h@o`e{XQ#8t_EO+mL8|G#ddwej}HdnQZ zUw_N-2K|+Gxk`JQEp%_p_;9=8b+LN2?iZ~gbDQC^g&YUr3$k;)->RsxlBATgY(Y|c znPI6-Y1ZJimb}VSlIOeEKum@X7?+!JN$zIL6SfF0)A9qk4s7GjJ`dHKmFID$d8}F6 z>Bz$m4zC$IroKvZsU!8zPD#GHd65bPHqoeHe~47b_D;|g z9fijtiK-Nffq1jtB?IeQEOWi$oT^pa}`l587BSjf~mt=6usA(kfEWZs099zt6Hp8P}&ldKcAH=ML`Hl6K z)C!|n{h7wA3YOlb_d|W~*IvgYW%j~nFv=>(fKu71glA%}pnG+1%gCjf)6DPlx54ik zd%@%94mc{+I*x|eaSlL#Y%m+|^7L5-prMflt=e?h|70-dwHtS|qgaA#h&yst_jUH2 z2s1v%pVCc-0a{)r^mGM!2@6aoNe@RLg+)+K6ccv2_o zCtL1e0$z`YJ<_qSa{#PLoon;le%d3kpCftqzQ0r&B!!$;J9TvF%;O^;WnUxlb~VtF zIXGzVMH@4@8m{jSll7vP>rJ|+A#(3IQ%}Up!j$UebQ8%H~XTFEj(bojbOncFA6 zLusyg1;QnM{Am#Bld06FSIp*0*)P$eXZd{Rsyr(>MScK0dIj*+YSyVoU!=&|L_|PMF~__I5k;Y$Ii#AIqX27exxGUD9W% z^N=%*)$L<(()s+2o~V9@+{0*kp3GO}^6B*$hN75U7w(C}oN!^ArP^v4Hss9bHwPi< znVNYsp3gdubmclIOlCiV%&pZV^(c=-6|Gw3tVFamO)Pg#=+OdrxMlgNk6TbE%B!>VkpBMQiBilR zUXx{lv?QxyJ4`Li$(!Pe_@M3Tn&RTmdOP3McSo2r6x>^Lhu65_9pq&W$&lE*^PKn# zS4l31^a61Q)7Eww>9bJDHt_LaA)V`Rf`X!0 z*Fo>l{J(Y1IUEs_W6^4qjM=xF7PC{26RWR&`2#0YCV0%dPIVS%LH*m~X|j3K#%phS zD-u_-y%y}R`FPngWIAZbV|1CyeJ~!HJ^Dm9)%iDfD7WO?Y9Sq(tH-Ul;u{x>aX$Kd z^!aXU+G_!DrPsRE6}oUIuh$!xP%MZC$FT$fp1<-BU`qF{$=nYLSvb8Ir`~*}YtUR* z$7H8?0u>Q#9W#SsDi1Y{J2GQ{%roZjEoQuCG|tUU*%wevKbX@x9Vx`aPK=839FxCI zSKOvs8TV3yygqZz=gW`o$WoCSsAI$UL7%+(%ebwYIsTGUPoY=4O$an3yq4Q#?(#Fr z52xiRYM;KBcWtALxsKPQUt{32Adl3=j;Twj#|WcC?MoHESCnhFAyA+$ljLaM2+yPd z6eBs6X1+8={lo^TT))m2sl#UfgUh?kaWIrm-IYClU3NzwN2vZ@SU*|K1n`@gTi|RTxp1%V6 zO(%~sm4mt0X;tVBhy7B0nAN~M#kmcJ{S{v)1Whj#(enp$4vyznRD(?}l{K0=bTHc%3uCFmD+rNl?N{_7L2nfN-f(n~7Nd5?Qp9qV zw%+4WZNA2EN9gt9&0{r^ux4 zq{EwRly|4XOFj6cs|p^qMT1PfKlpLls@~chiS>THS|AzL0)^n_b1|^^p6RYOkAg{) zVQRgW%R6&Hz_A&A3p&x{cOMAGYb1T2%I4l#cY%dpwpJ03kY2lr7tYzBBzunwUN~`+ zXEoy=F5$guLQ`2V(x*sf7}9JcU}Y40@7m{?l}h_*O>7TTc@7I@KkcgT4F8yd6rMLr zYqN#Y^LOn`EZ^LW>9^X|U0&jwe$v`mYi^O9kDtd%?Xg19qUcZMtv(T;awDHtZu7K^wCPY`|Sn|S0yAnv38kFQ>(UC zL|(op3$5~#$H!Nm*DtTw$h-G;8V(vY*h&N<@dAeRS_~B zY=R|hxmQ$yICo7keui#W6*TIwIDVM^BI8eCYPEoTG_A`x0mw$qCloq5TAnA&i78~)zZ19O)QS0eX&(5k^4CC zQKVQev(@f{g*rm%S4%znWqtO5cKiSctz4mH%I1fc9)k=;cgMZ=?la;}5I(N$#O~QD zQJwIKU^(YQ(CMKN`uo9Ymzk7^6&CNWI!Fe@tv<^4CnS-pzFP}(Sej7t%=OeGFU7}U z0{t_zG@@cP&(h%+fIsKTg!6;^r%}Zdezra>&cFVbk1?*x!=ogwqrE~(K z443uSds}J5$WbA6^6*iCIFn!fo^IWq++IQE{V_zZb1OTh=CuLkzrSbl6%K%FGgo2q%)X~7wHnV*w*C4*R-#V;fVI6eEM6AEw5;mkl%Tep z6b*5W{wc)3AqfV#RfQTPzOwmDA=v1>LeR>;T)iqDLz#9ZW83U~H}2h6v( zrXkXHt|Kkt>8>T@{p*^y3&Nq9&h8PCuLlFtI1yO9DdN3g-3&jMhA@6-lN33S@-}1O z=~3ERSmn1LTyCx35(bD^ev1EEM4Oth$g=UO>sA~L4Y}Jcw)cXtdE;}m8>9Kot3P87 zhws|+<7ERiC)aVKmFOvqkI;tDspU|kVdRkTMr0qNt-WX0q?q*5Gx}Q;76<*c#_L$3 zyjFL2!xzsdf5^>IXINWv+)s^_{or!B4X33aiop1*wyN8w4e+fcj7{(A`4|&SyQ246{>K%WwtqwTPl-;5)MzKwZqrqv6B@o(Yv}qB-{t- zv{~h@@#44NQ0EIK!hwZYS;b*FrWfzjg<4Hs=|1lS<+Y=t6mskCZGz&Q8q{-+X(^jK zCQX;)zK!C2ZMLsNjh|JqX6xB6J|2PnaNt~A1XWC>bqVgvS#`ZZ>N9jv)jW7C?e%p5 z?gKjj>5pPZ_9kl-a;W&US~f}RDlEt$7Y!bZa;z&xB)+?o?{wwNNMsP6eJZJs(lvZI zm|lmM?4`$A)Usu11{l1$@t$qc%?& zY%wys)W(tIt}mPp4P1B)cuGbx%wgeW zR{7!KRy3j~KFs&-hr^l??*NyF{ptDcK66{l9?(HA(Q#&5YQ;Kt2Bc z*ZI$x(LVxrYky3G$l4z@1G4tVz=)*&2oR9eAAkNo2kwH%@lU_$KLB_CbWruT;njZ* zs@Oli^}lsc_1CZY-vSFHOtJsPLDg1)#nEot%87icaSe|`P0`DJR-@wYZdaGj+@hh$ zWS-m-^?Y!gO`09ZFop%LK<#S|_}(YOO8IfSkG(@M5cCYw?W|zrJmw}9AsMGq8)=N9 z{Ag*}obZ^v$DtA{nLHZ?GKmdK^?b-7#|7GIRhNP%UH3Om8t`j+_~b76YFRJS=h5M1 z&HUwyU~a^F0&v>)d^;!^U*aeRuOd98i7b*pZ5g;AmHyOhZY{AR+oj%f)PL^ZjhR}r zq>r?3e)Z~xdNYM*;W?3weZj;Pt&AP_gKheQ2UroY3Yh-`_B6$vp0>qIa5c7j>oQ(QHn+Zr``k7eL9Qs<9oC0_CjJ1iWI7A8&W()w zLbpDzIda*teFEN}Gbn+>>Rt2>?jTzPb{Cl@pv<5)3hf&rzftSvkI;KzlQ?VPeB#v& zJGnf!?U~daj-AJS@)%9_6(YN0me=_u2nVK?Knm*PVcZhhm56{VWo=H+EW0rFALGQJ z>q!W9rG^EO4jgP=sMC%3>XWK%f}-)I!=CD$F{&nxGKY=%J{ADlw;($BcS0nm&&0gg z4OnTh_O=wT$&bTev+{VT5Lg(oh30SI>(2vxNlSj17jbv@&WXBwKetE~W5;ZTy)=o| zBGy;e@gi4Py547cZ;V;TVIT8IJKUc26YG9^`~O4SyEdzfX6c*niJ0%usECM&qM(8T zisA|I1S*~o1pyVs)Ayg1S>4q&Q`OPaHP!Kdm67?&+}m^?9-g)C`?~TSZ&@gH;P4iv z&ppi?>;pob^~L2N{PK52CrTPTe_Naq<1f+h*M z(ID%q``0jC{k8g=YuZEx8<4n+TW(%&=WTcHgNe;I%`5j~_2+5R4yV(FdBlN}yLWc4 zQgQV;;m$HG15(5f=MyN4ARf3mQ(B!F$ntHX;k(8V3O~J_Mipwe0f-5n^V~7jAA~-o zM72fXQw%b8{gIY?vzDLS`I(4JO8v0X&5qic%&_tralo8o?E39F2rp%=mtADv1h6Jc z^TVoRW*hGi`nOuXelKcE*h!T;_6)(YoAvm(IiD{%>r$6q{rBaNtvRi_dAg2YMll4w zY`Foh>wM9JFGy<>36@nYyN7S11C>HZvNmfGNH?g##>ztp1K?Yw*&d(T&o>;U1|B6F zwo!m+`Dr`3RTi6-TtY*t&T#b-^q}@qf(1y?mwF=^ouAB!#Ol-^*}&=f1l#}hlk?dr}()4g%sbPAM@`H#ri+(_WkVwef|cU z2C<`4C~uZ#qq{Hca>D&S+Vx9p?~-S<7R1}A-igY`uK_gSFh>wwrQBDSNM71i; z8UTH(nsJe>eNtzpJ_Wm0f8qQF5Jgpt;Eug>=Vu}~;q4${&w)=Q{k2@Ly}pWRNWpaKoUf z4|75$yR>!y6YIL03bG6_O?BTlB zU*=WlevyVQZmH4p(HA9RuvFQ62LAUJbisK=Wk~X~#XeP)na;3)eueG@%w(t8EaFCX zMxVo5)L4qhTJamkJ#KcYr+v4A?SU%cwoGmyjlzAo*b@C&`L0gH?~wE>)0P>xj@O@> zUEW?hd6i1}P{lhh_FGfJ9j=2Gyl0i9I$f*HjWdT%LrEsn&FFFQQ)zouIM8}fP+m&_ zN@Cj!@b|0TL&xI}NY4(9Hq5i{lk`7j=Z-X2jhV(u+I0tGAbFwMmbZ{Sj}F#eLzc{rJ!D*ifyRS4sI{ z`0Mt9Wr}Px9zI)b)1Ce3i_RaLBpD;`$>jnLn$1y)H~E|*rM>>>m~UPOnNqyFyowWz zD-U^#rZ5vrBNmCHl^8AyUaFe{)5&d}TfvgTs}pL(!@@opdo<%HE3Q zkfU`!^HZ!&rku24n^B3ipw_R>_ii{_3OD##d?RsocDgN`)*kOBFV^!=KwRx+y$ZU@ zUsL7GX|9x`8IxPJ4{(7E@4J5tX?Jq{Rr$v>ud1`_ux&Rh4{>+bffykNom?H+C($q{F1x&Uz7LAVAzNtQim6qL zM$Mem;xZTFTJo2htJRo4h0Z+E$>nBI-tqnXeFBqfGeQ7u*X^Tg<+dnu!n?{>fGV;A z-Skcc!IkH3=rUwWN4?IIV4-k$>7Y?<7xb0fy0YrH$^H)ez-{24FjB_K+xqId5K3s< zfOnakP{K%YiuK;cvpZhr-l1F7ZVmP@&Rq)B^nN?a*v)i@PLPLjKF?h@tGbKy?Z(dv z=T2{t9jondLjoD1a`?xm>AyZ1@jpCG|G6wg?eDV?-2Xxr;?Ixycc&>-0cbV4fBiRT zW9arm83NC->%;E{AO7GDZkT`noBf{!fe-jw-T43dGtu4+^bJ<}<1{U&P-(>-&6|{7iQ=R1>sSX=m zdg%;yoHaj_+kCrC=Lsy#U6bUUy6K%?tw~sk>9g)QUJ~g#Kky}1xZg;qbaBSB>!+e{ z;3n4=bjIb!$Eyw5`E9!?-SHP75AQ;-^-t&FvDM})ocY!a6d&?eA;%1#sV|~VqG(of zfr(Uoq(+rGD(FKGJsvmNB|GoCK~Gp_=EL@|kW+p=Pv_~;hI?|WLEhev4?^A)5idQX zkEt7(0bmz;A}aJ`Nt8~H_q&=+X*i7ZWncVNubAxGpRDcb6b&~L-60O2CzLLoeHuCI zW9RKq-);-5N7^i8>~ARMArY-^p;MkCbLV@Fil_7o=lVtGxO&oeOmvbbf%YV(f0I#U zD}6+0E{y<9^a-#eYkmgzQnlFt;oL)A`e^-9l;6+$4SjlDr**SE(&0CsZ@j{CB;^?U z1(Mf~2QNJ@-@X;ELoVok4a#IHJz&v*&$|4Zxm6#|O??XZ)`I2MpmCAxRIl+CQcqF` zWD|I02)XuoyBFS4D|8?V-Er&dE;-)Q3)A#>0(r??7)`kf8v7mR&MU7`zWW>o9bk~` zv0{PEz&51U-He3lLx1VOMpPthP3NDtYvtJRl{MMOWQvZUmjIV8u_uDz<`szb*3sOiAx`?%^+pV8E zPj@%`pnWToBJ!qMB-qujIHaQ{(|hOW&JTq=>8lT^+;FqWK5g)!eVbp_4>ddDpEv6R zii_opejX$N?+rx6O}kTnLKWWpqL)n-fMnkka&|<9vs~l1(Iu^=1;6b*S#%R>l~4I} zr#H-Jz9f)+Ce->dcp}0l$JulMMh|XNd=W+(A59+268*T(P2OnM4)jF_Ku7LmC#zxk z7`UY>pbFdl`MN@(kVfhvYKD}CtS#^rWl+52ljRYfg~XaJRhw#Go}g&g52~ZpXmouR zIqx!QYz7^4Snl#!i+@AOzppz@BTNV*4lr}RsVC;TKkJ;?O!@-{qtk~zs|u*t@2O1&3am(FW3YJNEMue z_3(OJB%U`B`T=y4#h{++FVh9c`lNRti792P1LyJ{t_Z-*&UVWh5@#gu9H!rk0Frmy zs;MPT&1{9x?8KhQ$AxiZ7=gy{MTRsnxEBt5p;9agcv8Ud@Y$?3B_wY>1~;qydS;g9 zyfk_Lj?B#EHQ3$mUyG>FUu;!K?;p~B!3J(U`5lfj*w!5lzWM86V1B&->5$uX|22Hw z#Ou8Pwbi-OD%1}0r+NWA6~)!ZV~p?IS1r*bqTix>FMV0)>%3^kNR5K%vs)m;Ei9BC zWn-{ufTbYsH#h6X@>j2PRo6bj?kj7t_*8zo(Nw)w`_}xz?vg5MzlOMZwoX$NhXUr} zWK<{3qDrKw^=91p@)84j2RiC03ltsYzD==V>3p~_p?$r66IQW6QrVg|?G&o%hB!v1 z-f6t9RRBe^YhLmdxhcB%GVY1Q{IxQji<~>|%dZMoscjm0di-OeILlVCG=5CU+QgX6 z;a(aS_B?0_df+ZY8ZO9N{3~_WLBDw8U(Ine*tSl6$|xAiE0tSU z`Q7LJj*y8rTfRE+ATe*X3po{r&#B3(kEUOJ81cEMwEgD2A8H%9e@ye6`kcF_=H%4N zH{k|r@vuclv{D~yo_DI_*P!v9kMs~)``+dyxE-sIzPj}(^ISB5_Z`2c-P<>vTRt8e zk0OVM^r)G7Ugk(WcbyZD6`wfhD%qq5iF0qSQrm3(-Ira6J@i-U^ot2q^rk+ZypWvw zqfc-hkG<^YJ-2S!0-?SehB>~^_@ZCyU_J0`NA%V^wFNPYN?!e!vp>lhKb2Lv?{)WQ z%xWFZ{>V)=q_;X+XJ==Gx>koxb6dYgj$7k(GpU=Rnycc{+~`3fVfTdLp{T&mfZmAE zwYAk+P*~jd8(*i|EiHu88KLJUJ@4U%d`k0bly|eY^RFIy2HRh<)o%~XtscPQh8Jrf z&&3SeP@k)@Og+ORUtQ&Lwc{5lZ!5GmRnGpZY7V+>?z63@jSsj4^g}(k<9M8TQ(iM}PsXM&=q#HW_TB5tktzDEIfj9foiK*;q zQTjA{q5t;uRv{)dYvqcG}I8LWAK>*ds~`$+oP z{43CcLH8PWaz9#-*q-_usKO6AVsTeae?U5P-IaI%7o_iF$E?30MYWXbh0E*Bwhd#- zz6Oia&a!_XO%pa;ihvfQK#K?8}wo|K>k%Nk`AA9W6Z3W@4K z2*ww4X7R>0~oBC`M?H<7! z^6j$QW#+9s=FEBJ%R6#kjPrZ02b>&oLxKhEvO5qw#2>n>e1wmH?im^l&dtK8M<}MP`<2=pNB|Z&iCfznl#G!TC%TTV-`r&sN$ zyZcSbQ9J}^&~CO;kU%=_jU+cXb%oaJV{~naqP-|@ov>S}&2a*W0kO#Qh0@{z+a(zBv$M@EV)Xu~(j@E~j%)SjvDK3X3Q65hzt(8Iy zqn_&w9zF&O zCth0j=Om{k_7HJAHixwaVs?`{4^Fr1kSTRHP096J0cfx-c6p75)pKhFBY0d}=HuLz zS-0rU-SDVO_~09LWKdj--%<0rRfU44d&IGTH(amEjK&S>!-tUYpH7xWpJ>h8_G8sp zEE|;(-g(iPZ0BjHwI|({JUd!EPs1$}1<+cy1&BT($*0k1k zgGTRKCj8Uzu|m5}7TWL65`syGKne7Ba2+gUq@?OCKz?5b36$dcvHq;k!UCrS2lkEU5LJitb138@3y}Wk|xM zSfuZYJnUATVyR7@%p0WJ7cBy1gy9bn0RO5-VKei4&-LDB zD#qvb^xN&WFe!S)8gD`jaCyAq;RZ7x79adxYowR;Qp0jTmvs(XdQl!W=eFJTF1u;6 z6Kcddto*LMEZ11!Yi0E9agzc!^`b)XyrG>>)w;ayZ+wJEb^8MgU6)ZD(F!-jDG{ zhUZ6hQvO-z7iniUhlO$FERd!3Xu}uF`=Zy)W5y{aQga`S@K9<#W|6GkLFxDH2X;j8 zKX$fa>jpf`QK9Sfyv6Tb^wb`>tCRz=M#Y8&?K z+4L61(OM1E@o@zIzWvrp+UWERnN|ZNS`V&@ zrf1hVLRuXP*_6}-@==c+kDi1OGCg+r479nqTur#>xF&k}?>lb~f-w{{>CL3fED#0j z^&4PY>od80dzr4cB<%E{!LpZGOc}boc#xOT@FViu-`Kn~cjuRC-R(GFK;-yq*#Z|M z=XY|NhwVsrfY{8RYY&g+D`q+^pv}%k%l{YouRm|r|3@bR|BprYewG)BA*@FMIC0K$t?Vp^C@6A)MY0!V6#Y}G4ZeMH+WS5~m z*U6oGxm>fI;)LAp#5UGvK{Uq}Hju1UAxggM96+5Wz(d2PNyk`nnRDlLB&EDs+|VCZ zY-icJLDsVMJs(vfoc7-TAv(vuaU6cvL>f{Z2$AH3@}mO72)5=L;EkM246m=t?v6qlgKGa!sLvS+-1=D3wRHV-XA8W)ke48k_WV7Zgd{Z_m|_KJ4d0FjY9y%GYTKOs`h!$07-T2BVAmkaW`KdnyFX6Q6}=4xV|~s_c*7WEQsL;Hm)P+gb{6Qyam}P z_%N{jx$0Prp+{R$s$I*p6-{g&^Q1bIs`tSF?0lyewi@sJR_Rxs`S~GFA&bGUP#(&{ z!y2$UzNCip6Li6QWj6CTrq$${^A>VuJnp4IIQ-NKjM#J4O1>^sOaS}oc&l~vaF^0^_!Y1PbQgtYmVTK zlHIBYD?&k-w-WgC{;)pJ$ydSAZyjITk!e)bg7Tb(xPW{()`dp<;>?`q>V`!rx zpas00al?$pt=YuVqQ-M^-zSN-p!rs(Thu1(puZ}g8!1ucN0V!P+O~h})dWc8V=sij zp+rvWKD94pK`X8MS-DZ%O~z4U7H|u+@n&>-8aoijZ#VXP^#uC<=952Cm)s-r zJ6V4)uIY$LrTBH*%4B{f4;`NLhhYhUC6p1Sgo%}IwkK_f2Bv<_Ik$3C*+DRvUDqO5 z01uH$|G3!=;k_u!^2cj4fEEo|p1!F2Rw)H>E_u#*It z@bEacNn=cpv8;@M?ly%{vD3dE*4@nG2^T|@OieDST`i3+UZy(iR6oG`@7=6&by;_) z;y}+GoS78B^N?`MZxBh7!MYg?=mG6$5a6e~;Sd*Yt+c^38uD$Fch_)@@hi;Ud*Tek zj(_~!YS!eRJN0_5xDXMgOAd5jR`#>-QyCt!4Z?0nKlxvAp#!pNeTTA%rb&>EGK-3x@n(_BppqM|q4LK~n^lLU5(_S9$g))H-C^`-E|e> z)DLU9rrAin)og1V^qiSi)vo7mD}$iadyxzhWw<3Kg?S@&t5;@z(tP^HhY_Yno!iH! zVwJsVm$FT@wr2IYKf*JND^zadb8QP>&Fy z`NGP69A6jyOi-dn|1R@GzLKVrYo*&*)ruEn_^a4e>3Q=9kCxbw{K*ad!Icx%y*ski zEQmR(P-T^2u~biIJB8d&Vo2oFCKY zaZAA4zh;0H_GqnfO*&Z;_Mm4RHTB}}Wcied9X2x7R1rt9e0^0I+|;=BJ}h-(@@g{y zEAu_x)-fqNHERs=*!Y%nUN_VC4CI4TX20VF_<1;(Kklu| z9^VGcX*nBXlxCNkXv$RT`@@vLfWgd`(p7DW7F+k@`1YDGpA}9aoQ)o0yMWf~A_v+y zRHl{Dxw9U6>{&58*sf$}U+;PTu&Zr5&sPU5+n0<{*k=Zd`*+BJo&+JJTXi!&LQC^N z$@l4;E1s@eC1%(q!#C2J1iTU-7Yxiw2vqgZKvCpEK)wVB8`A$T+O z$YzwaJ3pt>6wZc6;Ww)*d!6ZRX~9|MH6_o3k*GwZ@6Gb^W0vyMT6w0!MbyQa=1+@Br=nKpP5GIWOSlHp7QsLUGvod{7--J2`Ai0(mX{1bxx)!<;Yz~Pd>gAdQ*i>df6 zjZZfVaTsNgfilWysy&;prcS1Pol3RZ;;ph1p{O5Ig^u?N6lR#lSJ>P&91;C#GDze5 z-MPNumPi8Eo391%wy% z*qs8MT^@%>N?4%DOScH+7+h2A8tj5~a@yK6XRmtId)#QSQ9Ad7U`|{PcF}<99?O9` zWG2~Jxu)Na1fuQ@rDI0c__3PtoA*n1y4DQsuQ(SE+jn;xwQ50W!?6C1k^tYA4HtDS z_o*6S3IEOvTNe=WvSWnuMe+@!cw6-zlkuEyCBK0OgI1+e3JW_lKdQ`{&xaE#(RY}G z<9aa&4Kd&jSDP$yNR3*$(+qJL{%qLbJwp~PQ54KyVa_C zKUXKF{5T)$x6?7F`CNXLMx^wYB(+W1TZPUoK+m`LFq=`e+0XRYNg{(ZVN}Xouga$7 z-UdYm3-2RQl2;I6J%$hk$@9=7dO)&b+2Z@t{j!>|*WIp_+K5zVvhL2lMC~g-UUP9x zx}Q|zzF?;SyWRAY%@O}2ufR=@F~XLXJ9M5Rqk1%-aseZc;SY~Okj372x!OEuZ>6eQ zS`8hgaVb*Jzb5JwA#8ioG5c)D_2&gS-b5}_FG7Q^kL~fHXq>Un&HB1OO-bvp(i#~3 zt2a8e-O;^KU(B8@ZDl0C61IK=z-dDFTS&1TP~}IxU0@B3vPZ2kSL8Z8Rw5kuU zvzxwx+bpwbF{u*7{BiQIGv+NJjPCbGahI3$o6e?qr15(W7VP;|BQniyVh~sFv-S&A zW5WC|Qp!rDLE1QF{LYjQ(R6W+R08kbP z)7o+QUh%F1dEZ&CTgegMR*t+UG_PSx3B+5pS`z0X$rZoQ&o`@Z2O_86Yu3n-wSG6s zsavX$W5%;(V3;79ZdgCz5ghSJ<1-Y0H@DqkO)Ni~z5%Q(7j}rzKaA^)oNe69?st&L z)>)|@fQWr69_>~(9myrD;Mel)pPZ*8P zN(#6h+pCs_!{r04fF0#dr)8?l&rlwKqt_wkGNPNY@chczWTd68pMPruImNd{+6=lq z3cOgDR7k#V=+%h9W18W$k=X{f%Bz>!rlpeH`p3bGKgJdR^q8gkZ`Hp9AfQ_JxA5ND zzt#Vef`EViSL@IJpZeXOf}g*>%>Nw5{B8Y?{mYo8{HHHy{%_?!_1%B`^)C~da`i7S z>HmBEuJ+$%Bmdz9sQw>Qp}&~`{V!xAYyW@~RcSQ-*=*#BFEknp4E=)> z^)&$ouCU&|cctMy!-S`ME19`K2n6?Rb(?oVDf7G4-~83eAud{DT8-|mRG(Lyb?%b` zeNeU_hw_nv&Xzl>4Qsp8>6&Y+*uH`l1eTts{ErA!QiRkQMK3s zPyp2atw&U>zs6+2?xUC#z{WD;T$|G#YqZ(gU{~)9sm5Cq7%hGWOyPLBRFTfMX%dYU zdFdal$6_Ux7CGzs42}m%!@!*z;96eoDYYU0_KB}rP7}wb{L21{9jYQM0DMaz3cc6o zdF3c3;P*DQEjEFiZ2(P?&gmM-Oz6o8JYcz2Y>E4Ky9$7{4Jsnslqj@6L9-zx$pmqRB4RaQJ< zmcm84evWNq(v;0Js6d~M=Hr8mPOJkEqJ^RBk_R)S`;6`?fExYx)Zz`KKP&8LJ=bnp( z5PFSvLyjNCVLurn_wTuQr=9ro)UsBUN%hVt0<-|0@OtYb376HFLUFTmPC}B-oY7#a4Gink2A?GQ0tS^OM*CQ>o<&z*$DO)q9(YL;1ZCPuN`g!8emM;k% zmRH0&;yisDM@$?Rg%Cw!6uCSV!<=7Jpl_;5V(oQ5te{V~h;zJTExvWMJsIY1)`IL& za<)AsJQlc?Lt>FAeqBDExF3xq*%#eC2aS4foW(06aqz*|ezPi} zV7|-RuVdcnxx1cL)-yaMmP#eJp4AhCweZoPz5+3+ob|=yuz#P!wAm7d&94-K3mW7N zWHflgJULY(O!oa!voAybEoQCfLM*7C7xI?4netBOUWCnKexn)~ze#dXo8p~<#2bC= z5gTccDwD773<{L(EPd)pA9c=60qjq1f1^55BAe7$t3&s(T&%8LCL=d4=QhMk4tgCz z5*?vgYG?J_1tY_Ootil17murtTB#+4k72)lJR-X=xm;e?QLplR5z?+neRqDLtP=OI zxJ93lzvR|@$K3Rm>_pjAa!E%xJLaylYNm3>w18_e(tf^Dc)rAsxs5eEVR9->vRukr zka_DOkXwHaLb+vs2#qsVIjX;k;Fi0zt*wgoS35SF zm=e^KKDFgS>DB=|7Sy}E?a%H7D)lQaMoq?PER?Lpbjm7^Tp+ri_4r)MxIc!a)J36OFDYr(#-)(v4z!CGs zD$Df9BiUBze7$dz2RTTWim4&BQcl-reM3w|IN3YJ-pDJG<>u@WTD@u031EX?A#m?Y zzmLWVpFNk)rk!ccd&Mf03->HgaxjRrVQNj;*PG{pmwmTpq{tkm*VB2%*D}6$MC6ZJSY6)U=UY3OILso=F4uW$IbUQFos>os=};h1_Yc={ zM|kTx{Imwl`y7tpg2vV-JBG-d&x*R4PaH3}3omwhxTYJs!QIEt^~5?~`C~f*+qRuU zc7c+*-&zY&KFz0uT4Lw5%w2KJe5q7r3c2N%dlT?wm|hBOAAPQvA(JLc?QxmOOqykS z5jBwf`DmV(y>9+3^}LRhb0fV;V|YJLUS?oI96Bq0CM6dF15f=(x2?j4FH`D;=)Dd& z^8lzDB3p|*6P+eK9NKlXS74^8K0n6m&m`x+j-?QNn~OA7HQHXd1%lfCJheV}d#WyQ z7!tMVH*nP}6&J>t7U&V0r}EX$nv#F>N-#~|8U+u!hjxEyaK1Cl`?J0?bM_xcK9}xq zW@T>7PPg1d<~X_Oc*hbBLGXGfRzO>x$M}+DG@=NsTBX6fkYu$i-RXGKIK^U5$RBNA zzE)u-b}92!I!Iws!Sa4N!=(wd+10LQ17o0`51;kYy= zW{_ET;e0lmW0IgRD};|PHzzB67Vp((Lj}q12sm&;C}-wv^DB<~VmLaMp@TOO8e78D zXSdghzODB%45kl9(VT3MbGKY*tB2o<1rXQ(*Y8Q8c@eSeQumURVZ6SwSr(kQc?!U{ za%tIBztQs3Y9Zdi}pO>8~i_N!{{+83?Py`QgKfHk1_ z#2bxH$*S*n!}L~dq|eRrVpCMvSsYD~4Rw&EVKu$dtE19NB8{DK>=n{OqLam;a65iB z#bP}kTm|=Y3zyd)lw0lawTfv$y$;gL^{kF$r0?zUbH*@pSjd{z0>xLta(ck7Zq z*iOpgqSyu7(TiJS#Rq0GRKVAFQ+ZKupR3{>siar0`K{U)e%+iYq?B!4;N9}4x`8d$ z5>o*C_RK#0a7Cp6y=E6z3Ck=+Ll~AuhPB{48l37i@KVoFQ+@E^-p#`9Zw}4lx zmvF#D6(bzfh-R#uZYYo*w*A3ixD2FN7JuXZv_?@Wx~2Y5Fkwd&(uIxK(N1qxgI0A; z($C!venR5(YCShybfTrVzxL7@W6C>h?Q2b`9!0_8;oXgv9&YhzI7=aYBAnk+Z3ctR z+uVTr-RbfS9=Wz171aUCRX$^Qzt5YJc}{iJd}pCZ>J6__lm4hqcXgIeBN~ZL%&RDm z23}^>YU!oUxE+=0>HHq%_tO{S=)!Gb4h|g_wb%6IUD~|?%k?J&>sRYl$~G|J)elXILeh@aaOC9y~Fz9JSluk2aBxo`EbZP zbyt(M{Xua#Ms-4dTx%k?d{!GJi^45pw%Nc*AddRvOMdO=soyO_HVzVT4w77fteszD zL^zeFeoURyRdX0dr{hP+t+)L8AcW!&OpS%Feg21In?Gj^f1QW?Px~_e)!61=GODTn zw@sRVJT>|ICe6Rkkp88)nLj_~zrS&R&CUEVD*7jLGd=B`HQZy?y816}<`8f_I_;Ts zV>*T*`YcntqKdciJ=*(jPIRj88n`endBO|gA`yQ=W;D$$irGAx?Ticwo%S1Abr%!|lAIQv6v zihBOFe8?Isj7P8NjIO35!r6rGFom(=^NwfRB|dQAnQ%FxpVt9)yz)iByyBF0oPxI=HOU8FKcskRjWYeaAEXnhR@%$8x~`*tA8OWaU<>% zzDC)6(gZ(bra1jF%HvFf8exu=Hvsu;%*yt3q53=;wB@-yUy5yS?svC}hfV4cQW%dw zjE61emm+H266xxk%!t1Xj~VncKAfGxM^cVE+H{-P$WFcs_jP@Zh?&;totYFAd?3GB zUIaSq2!7AYp>OjVF-TtB33v1$-?iA3E?K=h4qgjw*{<-o^d94%Gm$B@DQ~h?nz#ec zP3q~_=u(x@VOgQss@JS!KrByg;cK*p3 z4d!;e-roMOh2`pdg?!J*eW+c6M+s*czJwL-LLc2jWtA7*iaFC?= zPP%t+SGc?UJv-;GzEV4C%UOWxnnpC+9nRBG49k?Qp*v4urh&SLrsvG}Lv#7uzpjN< z28Ih^jRXEX!PTAsM;St`d0;ZT9Ay{p83ViqgwQ{ zyzNm-V{oPG@{}dc_JfE9Om9(M=P-P?Tye#zkE~qy77Pu71@?rw+^GYmUlYmjc~LYM zMbBoTzw(D~cvfhfaY43FG>WbQ-8qyC&wjQivlddAr_yi#Vz*JZlY(r)b~k!^EqDAD znDOA(hdI=AGxW&Lt9m*!#jc@E%lC~td7%3mQ@&LOKO|NQ(EYn{ZoZUj?F|%NvtrQb zOY99_rX07r>c7RR@^wecad+Mp~#a*>vQ{<#IQNbhIC+D`5 z(&qZz=%i8T?5&hgsuyEn#tjP8IvU?jp|u;WmkW3z4h~Wdo>{C^gD{7!9UJTpTkty< zKlVG>_2xQvj<*GLEmxk^<}^>vl}80Kma^tX_&`^H^f}6;&zDQRKOUo*jF@d3tb$p31k`Yc{9%1!qu^@o_VE(fi!(n}@l%(vEnyGF@z9wnCBWnTOq zNm;OOwET!O3cX`}Tl$RV7w_{5YV3q3?&D(WZNWNuFatPF^GTUUbR)j4;wN)Ie5F#; zR4Ih8#^IKUufjmi+(?JGZB}n7ajPMhjbFj3BL}4^+j@F*KAQA5XS3rHZ^L`zSo`;? zUux4G!gE4a>Fj{XBHIHm2)=ZYAM1_(o3=CCR#ofL>^*OR1=aO5jX!(+# z)yxV4GHKgQhW^_=-GId^+-FZ-SUi+dgB^h9`&2ofMDPiDODAJOxm;_euYjhk*2}8f zqE|Y%k*H7A`tHa10t$izhV*~45L}gw>b+7-r?*BPQL9FqtX9z4an=!PfW*(1$w`4{ zK~Ll`IDm?BP!$gVSMBT2!f!n#)0Wp^$h>zy7C>f+*q@fI`WhcMsA%F#mC_LWWB+h%qVXIX=GjGcQ}aW;@#c1{?>F?PfWr$Bhi1SEmT&GvLbd zR|=9lqS#g5GViS_BXvm9-!45dhSbykP_JDw&@w(GPcd_^JPK~LpXd5POx~lrz67E? zO&FA6dS*y~(;pSGy7rNNrE1X++rv3PUE3mS+`5`%TJyim#c;q zXU4GA!@|M(jTLBZ4hrk5C*gOu4-G)&OOQO;C>KipJ>JzrLno<+TbdQkf{-wS1KztT z%-%XpSy!T#XkhhfM=|{9YatG&}$+eB)rOR*Cl2T-?@Y zO6ATnL4Dy&09(tfdh2oSu%p5)nKpz+*)5-w;pRE+0y9S8OP~BFNRg&H+)P4t<2`mI2td+|~sk2z0vfT#had`3sFr5s1* z%u~2s0SPfT)S8(8%CQ%-H8i|#28OkDKKJS7(&B)~qcz<9y&x?#o;8lhZmVJp0=r=E z`8#|T>Db$~^p-1h7Y%2|N4>8*RXc@hgr_A9U0m9*`~vc5G<<l3&w6til!SDRvK>4P6?w1jThM0@T0d%s}7 z*7VIr-9FRZvsTu3!^z}BiA{QxcM6HXN&tpB@J2z|b634&`s^|u;LNuHw_ePGM5ecN zHX2(}IhX+RDAPXdE86lW@*u%`$KrQbC`{fjuy)APZyo55LF}2br-fj>??dk66#)m= zueB*t)!*1rS!%_t&3fMeUZ8>B^KL@kI+~WUXePs9$V@v-xs=+iMP*@*+xWKwXzQ5v zJE`Fn?M1Nt)0_26?bzAA7sij#^sXn`bhMp=H_hN`pgsNpPLUbYS^~w%DVzbbvjDvt zh_?VnQOkUnmv&=0r5?GN6hS^#U#aEs8Oiw5x0L+iquvT~;AgSlyK&(%?q_W4-DB3k zjA2~gwVEh-c)nb}$&BtV>opy~v*ft`9qcSj0X->${zUxkZ`V!9(rg8fje0nm`M1%| zCV>&6vj9lJF5K;9_dmX$OU!ll8WnsbsXx5QkbW>N9)^ETkJ(NSR`f7b&`bmHmA63b zai60WKx59+?b+Tcp21J zOJKb62b%w^OhOa#q7~jg$}oDL^k9j}lJVdftCkSF22uQ;%tLOnT}sk6AN->t62c^~ zim3em9_IWTef-D6od21-`CkK^|5TGr{b$7|>i;f2QU4!`PyhYj{67XbD2n#G|0#Fc zcvqYu4i^wzzLU=Jv8o-WK0D*dZd4H3Nvm7;ds4L7e%mhKVhU!^Tx&RH2E z@xSvtrw?EGy(2;O;xF6k^3J`Emla^{TC_=WQ$?2US+7rP#uH`)`9O~MadeYEGwIh} z-=IwW+O8DrYgkgN0ybdVRd1zGE2>+A`i*RB5iFb|qJ_BzKH5%sbjI?5sBXLL%aFzu zi+e-%f#H>kbEqlAbd`5k2M2iu+k(egyX&ND-C44s4qGfR5sV6x4~E%25-2lPeD93Q zE(R875I~KIq?JXIQ650Q%pCUn0 z>q2Wxp0>jSg^>_oH6w7RAI~t5H-<5V3-@~R%Eh=mEHZ(I?<7y&6FJtdu1Vo3e ziaKkjH+IrHsb~}5LYVo}X6E!SxaRFn?bEsNgFk@b zy?WlKVxbZT%xq%(T37jaI~R)3-u%c@cELD*YWMj)O(&P(?$dgHCV^)$w=KwPU60sG zx6{WcZi1lt^smhwxn*pXa`U|&%?PMkDAyE5>Jdn(Fnph)3_t`<3San(iPQR|oN<+S zrLaGP9b|2WDttHQ;ZVs}f6sg*-LXLi8A+pe@=o;NF3-*-7NwU)V(E;uAClulIUIXH z1X`ppU~_Q77ez~Kc5M8*m6lt(*9k9*6iB4TAt7uz?*QLK;Q~KO0T^}YC3Bqs)^?%z zt$!L}umDpwrG>FO_XNbh*UF>%kZJ{LR9D7OF~t;YtvC+Yc)&HIlGQBKl2EQCPNEqy z5sOr@Sm0hGs(AV99qITuf{xTTlBUhx_U7jC}xi^xCu`eIJQGZvom>@q?=Z49EHL>FjJyunfi z8_V}`6?~SbaZH`7xL1Bhe}mM$tEK7goyN0$ud-Qb))7gt5I$YYZ}Bz0Kt=l5#P3=8 z1Bwe1?wB8h4@obUFnVF*MzWVxb28JyH$^X!P;g4~CV08*p=a zQJ@28FEXFz_AVL#^Y?iQ{D!KD3{)wlT4KK$6Et&pz@6o~fGd2L!roSliRU^HgMk$z zRZ-EkIZL`(U1+2`l4VOr`&E3+n&-2hr3ZpQ#`d;73fkv7Ir0SHg}NEfIqu$DPsn}^ zSfeg_#C^ngFnHqIYJ!xJ=;I?|Ukb{`r z#S%))xqDLgKv>9ri|bfO8{EU?twz|t{58Az+&RZcEjw2W^^(L0|ISRU_2$BncbzMBvJIa-la?*J(oRKuZU}`A9Jlh_U$Upl z?*`Ox>Ipt;z;U`MU3yO{-lOl=CeFjkVhE46U9hq{_6ouh=c9WS0tnCE;9|ubmVQ^*052`}cJ;Vw=sWv}%ED`S7lZ>yR+z za)Z>oDF)RAk*Z0LRUXIK_$J^h>2N1WW-@!K_eZJ3!_{HHZ$EbA0?8<|Guxn%SAu7g z{YTG5piVkLi)__R)Vz1y1@6gZ>CyX&hh{$>>L&aOsrhV;>6@iMr1Sz_;pmSZVN^SN z%D+kDF}rS)CzOrt%kn@EtDD1H+Y`Kk51Pl`qcfEc!TzWm43B>6*r!<7zE9|`&{)^r ze{_ZGX<)V8Se%0rM0J%Ot$5WZ;Pekyeclpo3tm|cG>)BFmBxOXgPP?U2$?^0cSHPc zhtKl{7qTK+t8V#S*PB3|#1~lms2JrOcOJwG>Av^eOEwK%n)kG#Lm3{Il`i~-dp@)Zr50)rJ8z?Vt)-y{0b z(-S#I#ruU9=dIH5e!P-+rYN9n+n=QPKK^C1E&!LH3GcIBUfUe+NdXKK*8QIJ_eZN| z-m6%S)_doiRh_D!c82!mpcvYtswn^}GiKO1T#iB645($Fy9sL*>lB`y4Z_3YewR7< zLM^W{8Emm218S&kuUXnm(T8Ic>P>=$7_SFM+fTVVG=$c*8W#__IR0s;(mA56*23iY zeyQ5{yYSuKdVxQH@glA~gtCTSEGC%HbO3=U=mZ571C_bPd-K(uDR(&lR z>;4m2?zDHJP-Y89s+%1GTFmJkkq?F8a4jJkgbSy1|JvasXKa_)bp16N&ANlGqR<|~ zo4Bcd@Ke8Ahg&3!&KMSzz(*St=KV6!l6(4!EJGtCS@_xo%NA$z>ALIon@0@ZElu9k zJ24S)X_i=d^&)#_+j|eUe~+*PqTTpTfgk&;dB4@5eR`dZhisoM^s@4jf4r!}-5cO{ zEz&9n@`hwL+{Kx81WX;+x=lX^gwvA(;nh)SqY^y!5u{8an*WH`jc=Jj^$Q{&b0X3k zaj0|~csd>`?@v{b`$IeWoU{r5%0=}h&WVb|V(UqfXAx*R+RnQ7$OA&b#8{dFu(BCP zA)X-}^EC%+yei0Xt)Esg-7OBTdcK86PV8RhC_1^@T5L#lXftlPxb?f?{L)dZ(r7%o zGzZ`50z;ZzX)75XXRm1B1EUqWeb1LOkpiy?A8cvAr?b~t+XblP9JAz;F>~7*t&x~b zU1EMZ=l9=^K8^HVCU@1iRjjj~eDUirxP7D|@TU=H=XU{__YwbrjKwZ<2iz>T>hJql znOuN4bv-v0KX*Ww1#|f4cf4OKT?wCf<~W7%pbzYzgvUOFE?m86&K*izRYd50OQ*=Z zT&a=qEWV?BPq$|0Te~k3o0(jB>ufwf{@Ld)K(ey)Bh%(K#0oP?iy^v(>||)J+!$qV zoA)HGykGB!H26zzL^f*#==|fjCBi6WqouE9)jA;K>@+qHgbgmqjC*s~1cIg4_tlh- zO)$5xd#N!aq$)-ACXs43edUH0Zh#@6;p8@N_IlIDH2AwRFI^3YOZ1$(ZpQ(5R*q0= zi`ytINc|ANFB#@Q?ZKXsJp;*OPrn6OVSV{V={{t|SzYO+AaRY6Yyf^@D~WJ zR@{A*H8g-u+BIutLo4p4i^NDT-}SiNspU-&M&!`i`r@PfuC9>FMp6-1*;NJ&ic*i7 zKx|S%*UQDY|L0L_x+bYiK3>4ilCWAp<(LG!7#r}Ob4eq7x;Y@@rxb)MrgY05kt^-0 zJD>%fVbbx546+^<+LY=CyU~^*(+`{4<$#6rj zX@lPe+Ic>h#U*-oT&qrbSEzL#xw7x=_vK=Bkue3WfPlU!f^1H>lGC6dah(wJ7 zFDjt8IfwY+hv^@#mOOU?Hq{EtzjgibWTfw^B3&Mr!}797`u%ufkOdjAqumxgEiahu z3xK5W)@Jtyfa}9+i%dt+%S;EOzls-Zfk6SD698>o+HFJ`BTiG8HGd8mh%&7@-qX&l zqv5|v419d^8qiAMai#KimP%mBwU}~tcgHf{HaH&<2mf#!dtQNS-}O@}U%~l6`{b$+ z%XrnyaVEcMYU^>?KrOJ9oC}tUkOzRmj%6)hzGhj<`3Jn>RTjnl^>)ywEm&xlx2s{- z-%rdHK=)MCHVqDTIe=97@)P~K{Y9IeZ+QlU5jX9eZ`51cedo3+OT&KSCWdmyA9$0c ztd6~JoB>xt@~k~&f(B{{6w;Ciyx30Qdh)yht|s{C%x3$Cy7d~EtDnHLt&OATbe6Yw zPOJ=QF9;vMB@$4I*!16to4>&cgwu-tCZaoBRk(cT=k9Ge96YenwzHgN@=+k#a#_7} zX&loT8P_`4uIl5Jf=UlJUgnDh2ye@B(e5^OXx#-=yq$ANC=cD5q>i-yPn% zKUQW*C$`-I4PG(LI>XwHvQVN5W(C?F*=~)PcMn<{FrCKDlRA9Axv^P0w-@nVyAUUd zb43l8+f#k^5I<6QS3}Tv?@BFAenkxfYVYx`^8%jV+Wk3sRR(n)J8Vru031#J4;{wK z(;vWPcqb};=Pzn|ZkwMcR$8{{`!8$NPT2)QVz{vHVxYh<06N}>vmUJSZ>2nIE4rHv zF5O&}H-+P9`pBF5PIA{;E8UO@9_)J6OIay85~TJ)78K_FGal{ubk;^Bq0kcc%Vva# zM_yFPNT>>h`gN+UcQYEU4?grCTo(&+mr$c8lJ=qYst-;G%r;I-kXldZX@w{VBEVuveo-b1UZSfd#>U*-3&0D`lF#c{C8T0lPH{E1DQ`JHJQ z??k;9ia#PCkd9cfKYg^geA=21ddY7K{F-Z2{skqaNTmz}UM}OPbN7#X0%^PHdnHC% zc~d*GDBE6cy4^shWCkO@_K-wD?AlUD%eYF(B5I)EVs-sS1=36{r z>n@_H`0Vs(>!(_l&(C@PFc^Yciw~dZ_cf>I0aDn^mEmB$lWsIn_`1;En)PQ$b<0HV z)9%9_olw@NCTCsxJ34=X6znH~&&_b~h8e5LqFE*r$p;%Gj(zP{H1oQK78lT)7%VMh zLvyYw#=yKaGn3%yWOvRv>4TKf8@7!N;}q+-o+E|@|aVP!0j+YzZ(QMzq3P#YK&gAU1_QR!A(BY2sSDLpfo1x9!tI$C@ z+eE#&+xG4etS~*V-#6Po?rh}TXu;t9IdXubZU1@H+Kn5<0%~4M`ukQl%?iU_ zpw2)%Z~8Bf>XrQS@+2GbMv`9xSM5CeC4mS1bYw-weu`~YpRTOjo2y9NieIf+DeK&* zHN8O<0Lj<|;F(?OLNxyF4hsOQYo92P`Tbm8O=>;dy%+oVCC&FhXVU=e#^o@&`X$HG z1F<^gG-zI~rP_emgXT&e5Fc;JA^ZDk0xZyGa?1|SJFD@H6jW|MJprktpKl{rZTdo~ zGd7N311*%HbKydKPPNz(rd|vK(Ts0@ms>;I>gzSAOjMgOy&Q}-X!>qhFL3P`{qYE~ z3YB1be07TcqY3q*Z`=YavKOCwWi-9!$Ktv?52g!8H|7*N+z+TiRq^Czj5G_bQ_qU? zzaG*)qb2#=R*S_V)WGhaaDtQ0vurD^LiH&YR1Y8$@@>IBJpqzowk(^oIQgi^us+_O z76sXF-GP)A0dLSY>sSzY8CT2J6LmhKlzaen#{dk2%C6EV9YM8*WzCb42#@7R>$^WZ z%B#i$DW2FV?Djcu^naOes4NlATU?Fi#q*`S`r8}#gS;3xDLMvSY_++h+ zM0XX`|7P|hO?t1Amls^d_5qum*K;V9>rD)F{3jGyH^#pMdk6Qk+o%m{PTJO3VP@N^ zo9j(&pU66J{?;)CIyt)Fx(g?s3^(J}BH; zJ*245JrT0OjLN;u#_TARZYaHN8N;119SVf4+=qf#=c@UxF;BM8m8S6?(f*#2p#L7N z+4|RYwJxnZgl2DRj-5{S*prPM26mykJ?zi%!l!*(2;BQ!V4mjW2}9EsD@BD=pE}1n zg75S3XuiYG(W}L)YJ_7ZxwHag=Q7G4uQ!IlTITNAx}1U{ET7PK#cF}rV?O>eHYJ=5 z_1#*HQ(hBT(LS`eGdS3TKl|%SXj#|;yI}Ly2yBb%>e{Q!=8?1bX)QE6Lb^MBcGe8z z^@*$5IL?3XJ-*qBk5|}8f<-k8*Tf0Ej5i;9-5_OGWYtywVPo_ijco3@vwg z4Qt)HS@U)c%Y)sHt)QREYUs2xdfi>9R{7D{$>{EuG}i++9GuwrSy^S5t1k^xU~0vn zD!#~gC$0Ifc{E^Svr*e_m2i#Lk#_l3saD`JSmqP~a}G}4k8aov`KbN9fdNfOB4NJR zBan+}`%U2Yjzs^a{dTWaZ`E#(P;?nZ`awL-3xK&fYmarKZo}%?8xB(GduK<2P`mWO zEM;_ps2@D}CyYGNht2j9_W$rjkTMOVo$iOXl3OLrjRBN=GJFo^Cs%Iq8 z3y*2#&<8RbFv1*EA-Z&$o!dG1b_)ghvtrq%^X0q!Lz88Zf*;qY&nia7#x>xs-h9w1 zPJ8F^03L*$@$8;lrxhAH@0SZ}0^HOse|tE9LhNuH4ts0OKaLJxYwiug8~+|3SbySO z+!TKuxS0;-hnV{_6#O}xnNag4_0HKpI`CzD$*$2g&DS_Fr-ll69)JU*eznT3*W#@bK*Dr+uMte`^`?9&EcqTuqALz_7%uDx%s`xgxg+)Uh&bpQetiaZ51ncNkstI zB@dRY8R&bO?;d}Nc^vl}aaSE(|7^fr45FR@v9~FzXnfZ~@exA*wR^vTK6u`op570PHzHVmy-f0yl&v3Y2&hW+gr_`hQ)4wd19#rWsceK9>=jbpW520+rLq4iflCR~}<%KhkleU;g3%0Wp>_Z^d2RsI%t%HpbE z=}nfqnrg$H1fFs4hcX-D+j5V_%c{JX3$ENTLS~$gr963kIBW}{00>o@(1Z8u zjW$Kn8JHakL{L028h(AWS-sdS2@kuwUS8Kf-n!I`@b<#~D!66i5UexCOPSGw$sX&N zo5?-^44eIv}#n9#G#7mmV^LTY~`%q+REYEt6T&9*7laP`PcU`3 zPG5tI-&lS!YJIbx*86-Yrd9W*tsVz+sID^#Tr<1jgE%mR+I_S}bpUtoDEsya^0)cX z$~k1@EXHN0Bx?dqfE<1HH%9r=10Ryf1L@b>B~_JLVL? zP+_IGh(vl#AZNS*yt|rn-Q_fvx_~AUE@y^q;IrTfzNtGJ1y|vprSe?Kw4cP%>&(8y zCxd1d%~F+SW6`ajh0K4f?e!8o!5xDKsugfrST*(Rkn`6;$$m7tF^X==^2(lJ(KnCZ zM7wc^n!oFmSsVemQez%@0|8G(YwuZ0%HwrKdFQR~?taC))z$L4pUW9+bh-!tXOYzP zer4$S-w^B;g9d=BChsxX#B|;q83>S}ji2vAPizOfL#H`(j=NO*HtiaRPg4^cH`(^i z836&aVUktjx2->+b*I}{aUD>ra!=(dK8iD3zT&hWZE^_{H-?+^-+v0Y&szh$`K)uJ z9^enomrea9JJZFs|A1DrLHU>C-lyNTs&t=A=Lv8MX^rEBnJjE1CAMJlIsu^bzvPvJ zfmm6r{S~W+7|<#$F5$xDtE>CvO7gP1J~G1%qNZ1Y|nb5j(xm$ zKQs|ZCWp*@j!xOnJ|J)IsR`Zr?}+QZ4n4VCDL3535f8j;Nf?`91Cje`YzEq{UaIw0 zrOxG`jOcr@x@`KZ=$ajPFf;-?)+ZvJiZcnm{@`I5pi-Of(l~X9=MJb}8l-;ho(b`I zkdtL@1_yBSOO@S;BCnOxor9?!K;A>|9n({ApdLhO*DPCto?V#_OXMyefmXCwl@{E`x`Z1%+$QM-_qfg{T?A!75+wO1V{mnSG&E zo6z5Hb^h?LEp&*SA7%LRI(;8&%d_v}JO%BcGBmlh?8iL&m>R!ljaO;4J(v4GwK-tF zc(QB&^vSiKobLSEx20j$-W%eS48>6Ft^xml2M&dh_-*ecYE;FL*6}5uhASr0Y6ci4 zUzH;Ls2}v9pb+(fGvLG?|k-I`SSfWx%OpAdcQ zbX@~45C6t^Fg65nrUIgdQ2@lw=%kDU5Vm0J+m1SFx8pqxZI^ZK%AWxwSv=p8bz88B zIrvwh4J^G}vPiB!Qt96p17L4DLSxjN|C*-%o~d;Q`z+KRra=yK>%8`->*TS2tBx0b zGX3F^XLHniaQ5ALiz8V2bsgN|K#W;DjJPG;8eg#${~UDUrd`mW=e>s&l(;11B{cVi z*5fraF1W<~jcaC`*aX#0uLRuWdNSA})*|Wt&4%v-`VQ*ukImG7U`Df&(nYplyW=(| zpY?g09J2wrpihoje1bGrXIEKcCOsPz*+#I z0jt8@4ftKX#ZRCeaNu73UH)=8`dI&M@#*k0P^RdTFa4RLg?^j;h4UO>c|S|yltYV! zovtdLwQ#6IVe`;?oDfmC4{kE5gNTi~V)L5&1#+w%eXB8-(wLg6c%98=Png3lJE{-y zBx`8Y&Ay&l0&Qcc7d-V&wtU`La>*aSacP0I-R~fqS~-4ho!bvgvO8CIN)Em=bCNU_ zXbA3iKY(mH;k)+_>By6j@}2QXe|x1$G>=XGei-2LJP-DxlTQ!Yg2<@mpCHG-*z?p= zv%H36hTc=wBuyMG+e8#!M8xsaUY$$DqOln7gmljK3f~d<fKTVer}_NcFbXqyKdIQIMD)-lIzTU1s-u_){HV>fI z)5HccXyQRrYz~;@t3Uo0&c-E2xBKpG z;^M(R=>9#=ha)OO;F1k2z-RkDK=r8D$j1BiImB03AxXWs) zru14z(Cyq#%gc4ueWrSjF8d&(RsTrf9$y#)*DZAe$#92hdGcUb*8eU#LnN9R6!}k@wob%im+4uK)60Qg()CieZKv0ortBQZqgd>`3|=*u`dy97-n7} zf5u;Z?-h2t>yu(nY*HWG2Y+WpIFVouQ>q^PmT@=k(RYY_!qF0F)vwDVwJg+%vBUv7 zX1Cv|-MrN9@8)w<(ZSDya7DDW0um$a2^}#Gvsm!4Ym&Fls#YiAa-ng)KJs3J1UbEu z{i z9N)ZwK5OS@C96N1-H=8`nM7_CG9db*bSzcqEfnK-Ckg9V>Yao_mzq^PxHZd4^JoTh z$+y#&c2;3z&39X~2_R*bRBwwq8h&vg>j3`M?y>;Q9c5sbU&|Ng#Q+t%df0XBrP{~t z>Y|7XWF3GD(wRtYfiha)_xdF&9F=vhmGbFM0r)|Mf@bW+gYEeQJ2W|9jeXfKzZX+m z29ubJHXme#?~!~-)R~&DoDKzWchMiHgd}5h z;(z*Nh|Ba8Si*tIFaxsq$w3~r$`0}FZ$6XvAjt@4`3_$Ks_T9{3L($cXwWsd+TY%9 zI@s!$+f#5pOKZLra*{s}CuDg)Nmon29ffUNnB0#`>HVs1253~%3Je=UDgOfZ!+cJ; zB}QmS7o??rdPja$dtJ@G)F_iWu#9F%b zte}Fr6XIxwztXJQSEhCJ?sjWqe@%YNLy48s880UQDa%&~8#|7Qrt&9PayNwRcDV#X zlE|%hq)XSFF^AHnx-_#ol^sHl+&=l?@u4WQl!DvSUcckg(VVbL;1=BHgq{t~v}QuM zqvLu7o6YfT4L{t4$2F;6BHiJ}b&``ztLFCoNw3zgyhvbH$BI#5^j%-OV;O#W9Y+653mwiI_X~p1IQJ6U?q&s}reC-b~NaaMnWVy~c_ETv~*7b9}nZ zgS^}ZfP$y~a&{>d$ycAB`GoBpEB4C(zX7XxeEbo^*KgLj15Dy_FtE_BB|nK)iN*S9 zXLGY4qGbd|rSkr4vtw27)8$&f(c?04o=bAS(WpPbYOIyYZTu;<=F&pN(XOx>bN;{6 z!WXmr8^nE|+b>#c!zmw4#Ux@*`rO>#ywL7@7AA-DoXPVGafmg##R~ z3fNu>yD|xVz(f271-{)u%zN=opUkiyFBhZMRXM1JTt~{h0lWnMN5QMNdSwToM~g~* zR@{_K5acB{M<`2IR~#6#T;FfK@9vC4~@n5GFaA#=>*pzp3*#quW zEBwj;2K8vAqPiOEaF6~ekP4Q?h2LLze~`LhK(bzcSAHVzgZ6u=Y1vf(3|J^Jw+U)>7C=Xp!vAkt_HE^ zGmi%=FsmRKuh%|xmtLc}p5D3wbF#o+H_XmSYfHt=&4-#q0jlOqGJ?69VHO)^^3%5J zJ37$&$?l@kD|IdA?{oV%**Nxz`Se>X_XSR=I#9pM)UZys|X!~ zE?=APA4y%-_udzq2=js6S1Y@=V0CpfEdw<4zNBTMW(p)2ASnP(74&p>0ME5k zTKzov%nOZ2fStF;@_x-@-^tgX9RCs%>?9F9UrA4h{4TsBS9U+$DT-W;(X}mgjAQ3- z-$gi}NH#3N+Md}v?ST?zQCe=czZ#@J)Zrl>qr#|twBKb7 zBtWlz^CEuFh%YUzrg$r8I4%X&mGNH<9?#Uky2hCo}%a<`4)aYrA zObS0#&`Pmnex}_=*?0My6y+&d7%jBz?Gc=tfi+Wz;xn5M3QPhN9FT0y$GGpj2cwL5 z1GeX$6og^#?|Zcdn}ZiL{(MaM6W@kPOliV|%@65lGoCta?fcB6=oJc;DpyxI6p&mX zA9wsOY^|zse@h;xPW|(l$M}xDD#LwBsQE@V>Xr3)16J*NfdezZ$lIpJAB63a)6H!w zrNop*w7$|Uc(N(4rdReiOM;AHlpj8=P*?Ri^GbOc{net|32CIWzM&Xi!tJ3m%2ZZh z=oxH2{e~g0^*QqgSPdm0A!o-u=e&tXYw>2C@G~hDcg4ZEGc^t5i_JWOl-j1HL%Xis zNw?2c1DkQy1Oq{cpPH1Z{(4dg?-ekwl@^oz`3G-_bF0-K7c5|0#q=d+fdSe?#o!wchIyyHXiNg(*vxrZws{;y|Dcj zAj33pY3IdXP#3TC=Z%MxC-@3az}h_=R>0Ksd@NT(^|3iP)tlX&cJA>EN9s#=iMguV z)hbXWY~3&Ys(v5qT{H%Rh2B@dxo-xeL8ZITmVlyrXwEonmLbO9>G8{T@%W-PRL_v! zx}YDskoE^`MeZ_Oo|N9G;l1|h=5tTpx;U(q?orh|xKcQDSLO0AnI$22e*m1_0-zAI zFviaS=}JIHqi5pCQ+wKca3QHt>w2i2B^RBd8+|`2+x%v~lE7c5F$+z;0f@7Y;pS{~ zvC8L;Fx2s@K;71?IDJXGEq6a0M_P$5G2rp?@tWhWm3^J%k|r)DE!JOTRsQjtc%#Gi zZIx(EK274TGz=h@EwX^d^Ff&UQ9m#Wc1Aa-$8G7NzNFrtlKjYoyJFwQU>7II$91-o zkwDUx#=fWVh2^sgvBrJ0HH@?j{eIu?Sj(J3c;p2h$M60gCP$;C5^g=^4TVn;y; z``spJekkwndOxt2@5e>>Od!#Crgh>FxNZheBVfp!E;~G5u52v& zue>A8sx7YXYXhA>8m77`j7H}fYc`+Iup_yTtH0)SC7@@HHl(Y4%NPP#@om+Pu8osO zb#4Oz&*z*=Y>J=997$hXF>ZI=iMINClaP)WtH!OCymHv`6DV!U(npT&>`BTuf#Pgais2?Xlt)hq5v%>|8ac{_tC{R=`&dKt-#qY-8H{K>I*r?AyK5IOuba$ZU+b4|ZH(ao$ z&E%sPVm3UcdDRCMh0@|$wwG2^8#TqeT8}s4`G9~$V00Ci2MA37TzFd(+5$(Ys*#Zc z=kMMel&iJW8N96qYmybR%3)*n*%{Uykdt1&c3@L*-wmG~y0t$;o8)qY3t$j%?SLIN z0k%U*oD;GPuB+=`@nGMQ+NL{ra2>cqg4#_5UyI?>kwG_yVhs2E^P$IdQM!Ye9Wjb3 zBJ#Q5!XK)E9@4(}`D=Ha>Vg>ny)g@xTe?r{xJ;H7VMu_*!7m=^=A{!sFQ*gAS*c#^ zo$TiX6eIM=b2iLvUdcKcjDy(M3D_`FH#YwcpWdz6eea%{angnWEch9EK>~pi9e)(K z>`M?|w=i(Djgaly>njos7IC#g|J@%IYz~m=;`_MVl0Vm}y?DkMR~oncay*|E^QK@bLT@J49=4Tx&kVvVW}d9?*J_pIi}Kw;f!oq>1Ccy<#(qV4x%w6 z5Lb#k*Np9(xc+v>QH~RZyEpfaB zb_alyQm&@Hyqfp1H zOfx-ttqz$|0KE)W8IkftBJ_To)>@8G_?4yC@s?u`WA9>leY`w6<+*IQuK^d1;T9+` z!XV-Go)1?`tqL&HovmxSZSK|;b8+<1HqX^*H~@~9@Vg7+7{|}M4fr2YO-X7y8TiA+ zDoRfl#fjExL>T|Y(z&*q3T|Qed;g-yAtB@}i6lhHAt{tn`uf{LL+jGA#9b&k?Y=&X0FCDdS}GINvx;SM*=m z;w)r($)vlrHS3f7v^v#LY78_NF{JK;*XH`pgP7~A)XiIWG)br7DtoR`&5bwAetTdn z6USaf^B?le07a=iJU1%&KdAaM#SbGOBd<2j4f`fl@G_EY7pIqPA3Nh8bmjDkXT+{% zASfS})0H;dJ=VaZ4M%1;Mmgxj3b#7=Ymmco4RrI(=VWg2x3A`Ld5oEdLSJ0KzOLOr zJnxJ7pqQXt4_j@p2Jar)IXq}X-cem$|8}D);t~6yCiU+5R@q#y3(B4hx}fktR^IN%o0>-J_cZI3#CF{&M{?NZP;FgIO8=F;Tm#((wV{OPoQXethj#(aGm(PO#tTYEf zqRU(XGYP#E$;Pt#EwrCU&V6H<%a>^=BW|EkvKZX7MlJjQvjPy2h6zP{?0wPRk;+5t+{wjQM|^)+8OH22Y;jZo zvoKvAZZFeht46Qt*XuJ4^4Cm~!}5fG^ZON(LKhu-Z+>DtTw;f(+*}})(Z$T#^RSVNFY$+`2baFLdCoiQ#U0Z30kJK<@(g_d;39z^ zM)Z8`M7|~iMMpND8_rPshUBXP9-nkbS?}k9n3JOoe6xyO!{-X|y(XDkr9T!kYHq0&BOcli_Y_J!+7D zMC|p5^~Jz&w`kPctIe_94wPzhnb5N5uqFH3v7fFsUABNr|7|R^zg|fU?&HGVYMdAW zj$+6Q(t6u-Ulx8=#VYj=QZI*zQv#LDM?pSbemvPfg>h8P7AOHcXuCc%^_ zqBgA+;>f|4Yk+`xac+UNtq!15NsDvQq#wDt<9a+h!Q9*D$JHZyJ`7PpukG@41*j|I zY}aVZ^EYx4LmSpe6NY^Twf^Gp+TFQH)YK~V^+KX9BS0o;npW(51W`8(YespYf7xQT|b@NR->&YzweUUtsQSx z20P98W{ln?Igw!`_Ff($KLI88JCvQw3nGZ)%?`oxxCRI@EdZXCkHTn)5ZF$ zbe__XAUd_lfVwvq)bB7Rn`jdNTC?G8`M~AU;Bb@bwdR3m>TrCEqxr8`sc!AgmCO}) zFN3jR1hEb3zgZ{S+WlJ3j=+~|YGsa`N7DDDV2Zg<4B~c!$o1@7FJ7kXWmuGI4Sx30 z+;C#<_4@qCm8b0Kk9X-T+vMS@R39>f3lfe&HW~dri}X9#wf5Gz z%n7xkHhe)d{4i!Yc*Fc|%ihCQ?4qG;jc+4B)cIQI!7!5%>{;DB45!f{n+LkiQpyGO zV3CZ*e@{v0)VwJswQg(SeX8_RzO6iepKZ+_QW3el#^r6L9>D+E;Qo1V{cS27rp01P z_0#e=Ceh)v4kD$=0KSP@B7GMn+VSG|y0s~D%NhOh5wCZNq?pJI8}lqt+zHO8#}uk( zV1G2oS@&AV#H2h_bJPoWrSs&k^z*aAE^5NYqxrDTT;YT?u)p~_63r&N@nEi(j3?JZ zzQDi_n!>%;s$Yb55gqGXy$*DuNwG~`pdsVi# z13f@RRF_bF6?E`NE)K?V*1$RE+oo1%=nf~~V@8+2_3UOdue`}1O|9ooA2W_!B&|Y# z)qmJZ8>B<+1*#k+OU)OCX!^6+)ED%r8qYUgejN+nv%oLJR$xWl6+)K+yH~0g2c&C( z6anB&!qzNcUbIn~evm3*u*dj6x_4G=p%ERczl06mC%0bP>htw^_j(~2Lc)sfRQ={p zDz!Q`pW^2_QBigRW+yF=p36T*ZFt~1TC~(gO(9IWxR5zGSC6gRtLQg81hsveNJ_^; z?m~~MnaN*)u$fMSC;+sys;p3+v6W+~Qn=;i9!-4EnR~)WkmVLftsShLj#VV@F23XW zs8m^S&nTbW(&>n;Urasx;0!KxuQehBY_ri}-+zLin=bM>wO)V#HfM>ya((^lB5WBu zwgxA@Z_Vs#a2@CMylfBHa*Q1dpYosdmn-bPcNEwDGU|HGdNpbhec^)G-JOgqF=P*j zQ~3-Na{DC&T{CxLA5|h$A9kz!WSHl^Z#_{8K0M~g(Xg-|e zVpUohWbjK_@$vD4%k|h;6Rmf6li%%Tex+3ht8DJUQdZ`rUrt&6mf2P3ZMl+3ey6&? zCY?^-I%ipEsTZUs29x2BKsn?CFDS}+yOSmlw5NT|gwI*JVKKB(TC2{qHi+2Sr}kce z45(oBDPosuNCz-VmRMdnFwyvs`LfiQnr<)}ZV@ zp`&&*pA*il+~6d(D34~wq48ZF+Vb~%F)qio@EwhI+oP*huoE*i(fZ*UW!zt7J+9zO zZe-M#-fQ`RVAA7R8X|A%n+_^nN}%rJ$>DSC)clIpOG|^7D|$5sm2b|!Dm=sfsaD)& zTD4!Zei#h<=T^0~B+_XUS*QbOMAqAIdEcUOLyMMISWwbjCtK^9_h9it0kNGn#A40d z*LwNR=xkZm>W0I0wTGUg6^o464K@8g5GOV?E@j zI!tu%(XqS^U3Zkp*b9z#fMW41fS$We#a8(FD=A(vlP_v7zOpJ)rLrM5mdE{iH-W3o z->6-v3X^D`G{k#bS5fD}Z)=U$WdmbX*mpCzv0e|NJ~=1O9pgG9_2fAJVY4JVn<%W{ zzv_B6>KJ^k?cCmNe_z⁣A>Sn#%Tn*B8>1it1?mX_h9kBVDI60AbIY!V!m>DptOW z@qVz&y?yK4Z2v8U;Et}@Vy0DT91>p|Shoty2A}40HmcfTHQI9q6mxe&xi4Z@xJ(C| z(jtTIUj#IJKfB?lYYws5mvm3jt@wIOn(Bw{)HWp2pw{8%G*<pog~z9$u$;|+bAq)0AzYh{jeYccsd_w$xhCA$wW zoco_ZC4h_ZOjg1q4?o*>{)tE6U_OhQ#q29-aXNvKOpk3KPrqUgixqNJ5qpJPuA}Ou zXS)ECn@;g@4u)dq#P3$^Lv3$??s5DcWYO@<(BBoDC7%sYE}xK9)_869nQW2+w?=mH zn%1V1X;SpNo>V*VC>5NheJ5`$eZmaF)$Z=W?cKiWhF61UPWXL%kU>3@)2&9bB%_uh zt~(ue?CsOrWz^7$tUhz8;;0YIqwEHgXORK?kGfH}GgvgW|A6>g?MxB!v1?reSdU*r zyQkB&ps!aFed*YN{;M8|+$1bKHHDqc_l-&1XOklTR<@3KU3=r*=FY&o+MuHBl3e zUbKHPUCwj-;3DU5G?kT#&Epp1=th^!0Cr~6Xy~6Ve9n64mh7z^9se!Y9iqLOf$9Gc z=^6v6YDya7?6vGI+{v`Lwo{?#9HU;R-*H}}Wig$Oc3N-LM01~JBZ&51haDzxh72#) z$_=3*(-4DC(X7Tbe=a5Y{p9OMmyD?t=FhfOuD6$(atDqfA6J*=w@{DYBCsj!HPaOO z(}RX0%`Wz#S3u2sMpiw<3;W-DRx{qkVh!)&YyXu#Ca*a62QReKttlmcz)=#A@hdt|eA365Ay6xk;>>E8TT5eGEwNfI>P#fEzD!9H z#Z#f;ES#U-vVsrd3q$rNNw%O-ap)w%RPo;5jR4s6msKpqZRjYTFnC2S0dR~%0qWW1K>4m9|VR~zO8KjS{q~8`yS#?%-~hs zdxOe%=LkYFFSx*xpEaXF8VL?Z3LgR{SNoW9$95m<3#kyb;VK8dS<(?_DC6 zBWh6wphoe-wdZUI#KHutZ1;uh?ot`+Tb9lH@A3FVJu-*AbNcpEp-xd z-_A94#^8+)l?IsJctao->D8c0(<26xP94}X zeFtub#&1J+t>iHk@T@U1Y{b@RUcoG;6OH@2CLQe}Qq zy)Zc7`6jl0@5m^pXuV{NpRynHsLrd~-ki zj4322#!awes@ra(;ZcOT?z<4S3}Kp%($oiChok8 z(X|iiZnw2ZW@?;MYbGlZ^-G^6wRrkepBtydO8MtVfDXt zP#m=ye{f!lT6X{U={+8QKwy~!m4khK&YB6#veWF!87=1i_~%RtO*}#JB~&D51F8L< z;MJ>|hKgWCdu_&=+P$CKCdXL(jlPO@ zr^!5_A9=tweFKbLICYz16w{foKU&QFBpBvOJC!CFpyy!hE1Ck5vPKs1L5$aJ; z1I|o9GvW@X#PdgoKb!gMmNpC{j3k!6^>$Rau>T4>T+8MD>AWAi~BaNFUVaoh!?W<6%F3{nxaQ$PpSzIDkp8!M3 z(#>pfdK~-Moje?Bga4A9ehu z_DIel=?lc2Ggb4x!4AG9zSH)%SDb=wh288cCYG&LKGM%)=|#Q89bMxvYwHtbD{fEC zU(A1C8&!GTwO8p%@B6D4x0CCQ@p!2xKfGm>_P6+p{pOANn>adYwJ-!3$iax->fzIB`bmAxV6 zPOsVL`@c;`qVm$N%5A)y$u~;Q^og(3b_P-&1+mam z>y!5N82@!Z38x^itUhZywqTIU6exKW|4_?E5EB3RzfL@(sx9_2#ZTSJvC)`qY!h(l zkKyKTVm%hp3S^9b0Rq;+iBWws@G|JPCzA)T`e`rs?MN^~IZr^nw0xbk%Mq5eqmPI+ z$t;C#&6HgC;Qc87nHdcUotrf9+S@K?JI|8!cRWr@vobx}y0B%%r}VT(Yi`cZr(K5M z^~DW|0csY3k5hAjZ$h7S7RUO_m_1_1!m5KfwhGd^wv#=QVQ$5!r(r7C(8D zg@ju4{Zo8!Mc2lo4sh|P%^gE>!~D-yZZDXm#(HYLE@&{|D1BCVEv$Zn>EV?^M@&B( zZvrmuOi3Tatzk2`1&5hBn6aNXO!iK4JSnSbyHG zAZRXj&H7i*FCVnoyONHuJ*+-*)u(!jxcPF_{?fDQ{P-yahx_RX0 z)_QSZOT#kXcFosD$%WV*enf5kJa?G&GYj_%PWn^IHEA_Om-!%*Jknh8b(k_?r;Ii8 z;+`{iU|%V>SDaeZ!36=)~OA zZWrEYr{~cF1KVB|29&k)}znv5I{of7q~o_ z`TfrBj(@FcB~_!t3iLa<1ZFH8GFD(Q{tFIev8q#yygn36tL0PB`fEzcJn|;(wTw z&T4wAWvjOjRpm=>`EoaeS5AYWGGCYq_tO!-Gm#rWB?!x$eRZp#n1V|Unl9(3S%A+{`J?nLZeCh6tC92 zVb!n8LQXRW_)*SeK7a9zV;bG4HGRXlMmBAOM*H(V9=$5F^$x~IH3FIUyVj3q#Dke- zRS)HF*fmQQfcUej;HTQnkXaC1{<-?aSl3%u`s56rnYz-@AOG0(`hI&yE`!xKZhlcf z1+~tfK?x!Zz0s#aG+^L;|70fo5u`F?ZWO#eHKraCtv?@^Soy6MjaBK~bnZx6+?~_d z?KoK{U;0q%_iVTC0oSy+U%90|>;m!ALJkyd8( zIX{(5$A(`lJ(?AZ4|vFJ7A^U4x(n?&n#q&LF8_T4s_N$GY<2QJ!C?Ae=BvixhM!GP zv6+Fm7=xmcF$?d9JwQJw(`rphb>|B7_Qi<~2Y+O|4maVG7yqh>dro^OKaEi^u> z7Xp3egX2xF`=T=QPg5~6@wjn6_ZMk?$*T06c(;ddaON_lSf24i=V1=+%?Tvls#dK%kKT%<@!*qS7*Zx_L{t>;BPLc zqmiF=IONoGT>d(*&D7%)|2TUrV}2Tc*|(YpB6hP4?I64NtqQ_{m(^UWTH_#mHJA?S zOv^R%(M9kP!lRxBOn{$iiub0y^3|h-Q$frZo#3X_lYH?L+5K%^%`L)^zOVGZ=3?Al zVy8`h%U~*CKahU-`q72;5G(J`#q)4z85mBufQR8fY=>%EWQDbjO8o_>ZHijOJ`Q9V zK=v|ZcOxh8oV=T;=jR-rX-f%S-cE9knD(YBR zIzf(0%JV*eyW(cG9cB;=8_F<~?&QiHXDYjjCG^EagHt~0gUoFAhY#0XYCL(B*U7cj zgrn8-Rsr_HpsUcYLAC`%5$vz-Yvb&^K5t|pg4+JIc7jr=){OPd7<+Z0q+ZbV*xU8l_gUb#ZO}xx0t9DAkq2W+>7;I(@?cX%Uiu(iPCIP4IMQJfF;b< zeCb~>`qSRNWAz`lo*Uzy^A-2wL~mqEUV(I;hf0j$HpqqdJj&r2ss|Ui#<9Kq z+}N}#XxF-?w_t2sFSTVQ-CMUq$G~6CR$sO`U>4cUAa(Pt%YM*NX`{YHQDbg-=8pjUEO*XY>mQ(&x z>#b2WI+%M8{xI!Ef}XD}Wvf~g0L%J$VbjNGJQCn6SKbvSpnB{{Qt=HX`;J64S(w6B zPPHkwwD{g_c|Ldcm(8EqIDQI=I;Pm$@l4s)Mfdk4#reqFECrQa@GF%4{E1h(ct~sq zmyqBFAS8`PxK0u&z#tkqV*q@uKKj!>We9D#VeeM>YYc)m0)VWI;)eykW*xF&HYT9+ zv!DFv`+Nvwlc-(TZ@C4@x!dTIDF(fg;dq1IN_b`|PURm@qK4cjhDaP2haET=URXVE z)Sb~?PWxJBklnS@zW+K)A?H)V-vs(eiOY){m`jO5PkKEMf12YWMD+mg{okVR(eiv| zJGYS|ZQ(b4a>_eDbUd1>%KO=b32`@Xw^zLcNRE~^^DEQIOvrRl5UEu-%pQ>9@w+HK zCk`pCKFm?PSd1&PWQz|R1 zR&h97gKDGWH~8AIqQN|Jyb7!;{bcOp6@8K8UAy%*b5g z+suWM#xaXmjw@-K;zP3y^TjII>Z;?v&kC?Fr<3Tx2j@WMN8R(Iz2~K;cZLQ>v{bru zV9a`jzRzXm*3b$REYz-Z1BAby?UKk20vpEy%iGTbe`W1tH2yI}%tA`rKH8~*jHlOK zrUZv8*c4@1<9s^3VmccB%H?F#>e$m-*Py1cf`d1y@ezw(j6(qsS0s1xB~V~PPa^40 zspf4jI%mB`*vzCx15I~8&(=qkKaH$j+rvahiEl#AMtOW@+ODN6elvCr6I|-}NAGRO zS7XoWr*IoaS`6-NxV_d4@mbA>2d@m)?wP$xN9$SfxcxCxM%%+wt*ZaBWaGVIyBhzh z1jxyK|9vtm*Dhu+`}5T_Yi-8*QskAt>tUUSnIxOZW@F&!N=?r0;ofMyJYL=_dAL0E^5SfEDY>QJ6!^A1um4MF zU`EwAy;MgmTTPey-(7Jx>%w_dpf^n5VO5RWesh@u1xam`Y4U!SKgQfrE1zWk44Sja z6pq-;szB`~$e{O|f4c6oZQdGl_0{SGX;NvVNvxk+M@Ms8#Q5r&eJ<@L@^ zuBA3(4c|b*_M7F)3gKSo%g_hc)v}>7*6i=yyg#8%qqM=$FzfbjZ?N5U)#^c6V{`5? z>cH2aRc%-#k{(>SP&0!V`x=-Luer;Fu}Ov=-F9DBAHSCGx$JVq6oz!mr0@jr4QICk za9Zh+k&lw|{r;qMWtztw1S@Aerkb6<0n9XovW=3qxa9I#EslDXN~-d5qO7n@i@itT zFpe(KlfDs8!wS>yyJ?v)8b>yFX=;h{@jTzJ>sroeDkpO=S{Os69V>Re8#N%CylCqi z1*PU=)f*nSvN|858?;L_(sOYM;?0;Hk)t1x_HGaV+~LCv$^2pZJK#nzb8!CB>PZYz zt(<)tqm^*3La0vN_lNN_n6}~e(?PCT0ONb#@-U&-pZxH)&a;0|&QiEr*Z6Z!#p8uj ziMUl*z7O7-TCj^!Z+^a>hQmZXs8AN_A-Qo@b1qQ4YR-@Lb^uY%S8H-CJWGGq&fJg4 z2x?|!*aq&y`mGu9;n=}Y(A~ZjN#)g0cUc4)uGj|W%6J?Bkp34XbPvCoJ>5;> zS!T43wdUJ9{IJ~SO&wFk#Mx|bEkF&dhcVnAVh8KVbm+jX~}tg zvN<6x{XTf8^3GVhw9)Q(X1wP<=V4J#An=nWaXfOsA^xfNB|_$|hc>kTzfJL06zQ_I zNphdP{Oh(MS(|-1JJsUJ^X2!%Z@#iR*FWXY3lCv>ASp!w^Vg5~HGM_IkD(p^(Tv(7 zT(qJijAf7Ny+VrB9!rD+dw++4W8=N6OtV9FTh(`0vWy&|g4;0<+kqX;M8_EUm*o>J zPxvMO_xaTK`^l@%RokPDzWt{6^iSeWJ~7p;R;L(ki6_>j5fD4hoi($)Lu%xfS%7-) z+iaJ*w@TBl*yhly2#!~la}U4&{FLkc*83HIUH`i(&9ltt#n^M?Exae^u@Edy<9j|J z7i!R_rfBxI;IQi8d&HrA^cWa5vWX8GoqFu#aXQmq<}ldr6=xFjW{{ob5|ml@7Mv^M zm&6?bmvjvmJ?Npt)(YmB#~qA5IPtdjHL_L}yF+|D$v!8$U9O~E)87VBC%L{_?ps|l z>PdrKWvlTlKv9KnikGGJ^lhyPcTAJa4!dHnzl^^1dy)_qdwXs0*IJyh0IB>fthq%@ z`?vaot@egNBbDa!NvR4!hsH8t-=mlJar2G$U*$BsWrGaK0YbLfsS(ik0&p>bV2aWj zU+<5!T-o;IZ5I39C&RH`9hW*a?F1(9R*%7Nv#sl#v`3D(=1xO?qPD}q(76xDJ;ou` z&}>6KzcYB#ul6Qw-y`lk$*I%upl0}GrE?iB2NN?N+~eP(;y@q)D?xFc=)8WvM%uAdrIoRhLP@5AFJ+5RIxKWW>)p;gU(9%3V-WdIi^i_I!WR?!0@o#K_=Yc3p{gBmpo@!5uvkzTCp@huPAPXRA}$ zxef7&qT{AC>qfWh@zD)#$WtAa^HsiKa!ITMQgmazy+-lPYUOK*sO0!_LdxIf; z;{3Gu8z?@O9dnAo;??fjD+dSX1RT!Xr*nHs1f6e!Zg>^)YUKB}eE=q1)>X>h{JAoLRGZR2ASqwi9e!Oo6VQN0V0WCp zQq`1K>#!dmc`jdUKelYp{o816Dop;USt)-vfsFB4eGzPv5a=J3NB4Cw{RTT`adZaz zr_$e+_|J5`=NN-A%H2;L_RQ%lsCW+3RQ~J{DQrebVK)9lHY>^|-ubf92fiV|=1%Qr z*6-(;W6ZKL|IC0d;ngS=JUD&MykUL<*SED#(1maj{Qh5OfTdveHr z!6|g*w6RuX+8LuKa=TBmbF{XGrV3-rrDDEw(PG|$ep2Ilj*-cj|Q?p z(Ij+!MW&aj*EXd>)V|*AKb#@^X2{(}UOsSnUYWoU=r`IIbg{RD;m{`2jjTO7Ww{oM z*kvMoAI}T=dron?S3diy3|lN2?v}qtEY`Ng_N5cl=SxsAXUe?a;;)Mzc{n(;mv?$AmBeAP>YO#SN>;{shTY!{m7t7m_UZ_&@lW?&At0$UenbD zS8DhqbNHOEd-`?u=DQEV;}P8ts^!vD5w`!Az z@SOME+HdmFTUg2v{RyCehl_B~LUAC zV77cm0z>UJZ@W@2?d&1o-<rtaLts=t=@k^Xn!Jb*%>eDB8 z@GrgM?ziE{`%fMhWv(!(1FMLghTlzjuRn;Au=mm+w}N?3JCVF0BDfDhK*stDyJOZV4R=BI37;T|D}2 z2TVBE9*^gBB4o7Qedteu+N@u{K&pV_E2Z(F)QY@LtFz5+j$+Afp5|IZe5LCwqMdL{ zClAl~shoflo&Kxab)@fP->%Uww>g#T-wak;Id+u2)|Lthy@8(g(B3DVTdxK{ghm7q zCH_2hsKEeYyCK=m+2tM`CM;*Sk~y`*CC~+OHYT+;2X<=rngq)ct8)+w1*5jFoV^zU zi{s9Acz9)-`(N*Nf_whi1p2IJ&DmPxU6I9OL8?PXV+|A%`f(p(nZL1~VL-0HxXg8}R2snaSbI$tJLN-(4QaC9Gq01Rq z5k-+11_dsSz$=C$5Vq*7TjRm(!L<|=Kkp_JpPy@+27NhBG7Yhnb+Nawb$4Q^`?a!! zoXeCVWPkV@zSZ&XaWYwyx}(;j!X=?yrtTABxA?35GS%&O59f8L$5ew>EH);yZ@i`& zeP%4knYxW^dfz^z?4deyerWxlUXK=~s!6jR3~c%v&&t=TQkd=T$1~vXl@<*EmgE}^ z&JW$z+$K119S)S~UMFkUHC9~)Q>yvB4|$u(s^Jd>tqj>xo#~c$ zy})jMy+Xwve4ZIZJ{^BuvFkvz?pwpC;@yePd3|wQUS5h~CAYtEX2-lJ^b~Qp7mnMd z3hA8l&OC{RvU;$iDnhg)Rz_El(}h&=?AX7f06LHvcue@~2BdM``mcDa=a!+a|NZfc zT8++kD=hE#yP4js()wNz{FM9Ye7LRSywglJS)=3k;z^Pe7+US}d0TE1;Iuk28y{7# zG!87i{h*PQ^IuqujX%G62Qhm+%`mcLsoM~^1LgJx;J3eiZ9pb*;NR5p)nlQdcfZPe z_hT&XNNjH2% zK}J2^8xd?9QeXAD-&k&qo3B=_JVtXZq~UKPi}<6agp*8L8n)23*#1BaowvKs#Shr@+hHdT0jUG6>bAWrEz@`Q19x#E-_&o-=Hv#Y1hM5iFP z`7%VI&MnQqzC{1Y79f-^wluEonxIy_EkD*q53Ou)dhTOb0uWf%*NaFg!xd+alp3ahS zX=1m;ViZTG>Zu?XjN6fSCtsD%l>97-nfx7@cNCiMr|#CIUG0n{W+28`zIXoVPl4&gvawG~~1hLz+KoR@twCmNKfq zur1#Nny?_+ys;a>lJX=`S$6iD!GKF}Pe%Qxtul)*F}LtGI%FFD&XbXPIDcOT{Use^ zd@{8Qo8$b<>%p2g^D@=M#n0~x*1~%?_EjJqlmqg-n1P8x25i}TgFD||i z@M-I0iU9@!2Ue#Zv(Y?MY8daRY+5Z)7?zaa}VPu*e?lD_k!T(`=8al z4(x`$)o$bSu{(G_!OJ^3w)W->Lep{ac-|DZ(?)A{#K!y4D8>P4&Fs_S^+=v^0dZ>6 z(h%UTg0^D$me6%7W7y>FHqs{hK4WOnnGWV3dPi%9^DqY$W3n8WmB+O>;xpeP?A{V& zafnwal=t3$D3NurqU`JC+ zp9o>x7vVXi8pSYo6VK|ivBTTB6*NryA75|C<4)-~rE0o!azFsPy1zAdtNi`w1M(^_l09>Ilk57WnR=K`AMJew=`%1X6&FM8a&9_{o(7XufZmL zPG)4SqjcLpq+Q;y@G7P^t7)V`Fo>X==H=+#`f0s&m<+~ri2z4xa@ZEg!$*P0jOUbR zXRI&TjGA=?$uIcMSt6ZGX%}5nuOReZ`Mb2tc4d{gYSpzNSkyXm%TV=?xyVe` z5D{8m7_EO{GLN-B@L8m-jQWd5-SOkMnHPNPyLlLs_+O{+?9G6<hXQFnosB&xoG9)v*Kqp|4bjCH5#?$j@ z{CQ}W6bcEJcL$&0x{)3h1N8{}NwzO%D`V#%ZRUr#=-SzfIH1FASLh#x!mL%AfjT(& zlIdcDN%Y>+BGon@3)5>wllN!#HIahx$l&_;3@3WCGTA= ziShTGWbf$|x0{6HUn`%uIxiTmt42UY>x|~_eT&|XuAz9vuqeNG)cI>(@Vs6hjrX80 zO)Ir>#vYtXM^f9?#KVG0CC;Vf9s8S?vdE}Xs%>wRkE=`g?4rEvm(iWy#6Gp7hf?A0 z&RYX05#%3%_B>a#`kauUD#@a?Komw#=`!$;g--7Vf6U|Cy7Tktn@@U4{oHviR-XGa zY96kBvU4nBxE1T=kzCc|bJd6dz0xF|bfxY4^+wJu_IN;(Z$hlutYfZkCuP@t^fZBt zckZX8<)6HwV7+!EiQLa?*j!xDra*qk$ zSO0whSlS!TY-_Wpa{Ala!j4(J^+{`;m)(mCEqVlQTGkQCpZQa!Ao-L%Nf-T>>+h{43zDX}%%OXymc{t%htR4A+B0pPS24Ut1Bh zaacF6&dht&X5g4P0>M8ihijYirox~E5bi-~Q>>1OTPIw2?2*UTdt@VDZyWYWKzPgj zVAkVNZ*IDW;o*82S@uh-K3jBBFx~_AQSTS}Yx`-{s>g-h*H;B|JtCYna_vG(^Lc&N zGjYn<+AFH*1aU#Bg;U4IL^mU6XGVJ_Rd(W2{-GrU?)5j&@DNA7tB}Ev`yq#GPx}u| z=h|&7+lArp{R_#qM9C&pM2I3%5~31P$!`7scizt!@0VwcXTKI}<+|oP&*RwGU?sbJ zTIfFOH5NLZbn*Euiq+Ah$}>wKlxIPD^!4D5C><7ZZ+V};w_Rm1y)e}uhpb+MIz;bF zHRbZ{LRA4=>slI+W#YYf%;)80dkk}>&amP&-QhUt%0Gbbi`6qh*B;|*m`>(Ma;ew} zwZV6XYK&gzfn5Yn+&4NkdOQA*w@mYIByMj%Zt3kNO5;5&;&V{PW|_ruF52u6em6zk z03LKUqsD4Otz0HXDV^i9`*k&ds9ri~r{H(t+9fQQIaBAe8MB>B(*vy6 z@O-$8kvqh-fw?sWkxBb+F2CBBY|Jdo%2@e#d`n2X4$!yiW|wvszE8tRPD_7`q1Zj&#C5W zv$@oi%^;&gVrG~T%yX2jysAuyeCK2)H$MNQwlQ8=UU>Z>8&`rq6XQwU=)Z7! ze=GwpDem@;*Pd2FnuUL^#=UqUTg{PLvNDtGYU;eE$4TOVu4aAwSZVZ~%)Qy^RId%y z+xQU~-`Du^IrOH38FNO2QjK?=f}!p8fB@@qmhJC#=qN2$09!jJ*;a zPV0jSpCev9)7>mz`vhx46S<>jga=0o4ZQ8a{r>IUugyDEItJ0J(|zbS zrMxHlr8TtN%^VKaM(6moHxZ%)?Z9($hiXy8AMFxqtu*6_b>FKj12!Y|tH3}pY~8=P zraHLH^7nP)8W@czT>9!&2$`URd``XYFMKA`s0{#_v5bNE>Dc*-71}um@qtD2nNmKg z50#&Q{%H*|<6%WeC0-to@}CU6mw*sB9Y;s0Pny+N>ShOrZBOZhi`GT?bt8M5gOQui zfl5ko#ojV1ZB5T)GTXd5To7-mcsa$80&!*K+i)75ptV1V*Hh$J_IJ3h_Z%QDq( z?B?GAEsW(YPYSS<`{oQZOawdF3*ZmfA}}{1o0IvzuHNzcJL@bPJAz=$Ha`T-<^6+_ zA-kAH;{(*emm{XqBJTpenZKNZ1=Fj!L-Y_wF!V9nAcu#1V`XmKS}a{0B1PjVu2aU* z8VX7xbPM4Oa0f?ku_vn=pB;dPCb}5Qdo`4hWp@h0!f2EQI9~ryJZc-j02Ho+&V5r& zPFvypXyb~W++O|OC|_yhMls>L`ukO+FOBK7pE^jUSM*TGJE}P{=JyV1w#OJ zOa!-`5t6&U1WTU&*?gaNFbuikeR*ETVf6YwUKsRF5&QW#n2Z({_oYIr!4$qRb1PQQ1T>Ep-Xf^ifHebGEH5GJMe(C!6la*S#gH+D*g>IP> zif+m7a{}I-w29UJN^W&@E!sn@_Q?&{em_cYGA=x2gB?GTke+MY{>6LvGba-F86&^zjY5#G<#lLAo-Cu zZ=A62vq51&PaT3JMtKiG%v(6#M61`#cHuly-)CeAd{=ksv%}YnHLX}BUFMfu#qJ_v z~O^KH+JF2%N@^WT&9ap27%bRe+Oom1@P6gaX=0+TH7* zibK9=v>etZ{d-M&5xUCN}+gO!4~&~ z+{ilvQLC#~u{IFZ7$~yGUrAo_@o?jNTHQpG>#8~%qkc3Q?Z6t=4BpRrX*yc?v1d9z-#G1%rG_ql{3v z6s@w?Pd8R!-a-#3;?MKU4W@4ueN;8}{ei*4&VwI~Qq8%HB4U0R?ZyIkETO2O%htx( zNylvebipz(Z;-Z+MHcZffW^Ef&S*B+--|;lve5{Xif~bC=%>s=#%nUW0dRP3<2R?8 zV!VLJ+oAdc_t9tu-_7EMxR7Byj;}ju2_R5&t}AxNEY3knQEJxP-}Z;i zx}zZOn1iBg_6$gnKrXP(PQn?9)NWficewJhsI}Yl?jbJWo$FLqb9?k}I-4^aC?+7S3NHPKyV?{`s`P=3L!-k&uIV|UOKsB4%+grAmyqI(P`oN#? zy?|1f)w;_O?@1?*eWJhegCc}woWCl5sfA22*RC`lM*Ss?=4!`fRB0TS2F)>Z%1!#j z-pbQH_?8#BGdc#s<*~0{XY_Yd`()jC-!+mR@(#|Rjsh0S_EZ<2+_>&EDG0F8!Qfp5 zhj#oJ(AXgN%s9A^ROo}fRc#Dfi0w6<4YgX{ey;+>p(_794b)WU z=De%i%N6tayHBTYqHxWKE8x?=0TBp=h|4(}UmjC^-5wyK0o2cf&Sg^!>!@PdFLQ;w z&_W$go)iA)SgQ1m|0;Y_Dp zbr4;r)7k}V@zab&m$gJ6Q!i3l?J~D#IWk|b{cV4GrOM~P-N@eM!Vp`zHbBmbzLsiD zYNM#;#`-Iif8X=j&foW?8{ru{)+9DCaLAG|RRcB*m~@BocX_Vw@zTpIR$=UgxY<5X z1fHNhfAwD7wao=38{XGtiMoir0HQGXA9jczrl>6{gzjFn| z%gNml%tRnnM|FKRO`W zbcFtHfiRRm)60boN9amFn?fjhPft#s>5R4W=@I14^TGNifB$Z6?ysJjIAwlbtNb+I z12_VMG%6WTqk$P|h&44;-@&MNCKmL#aJ&MQxET^g5i{Dv?o7e}6}zyjpheFP86h{pI|QGo z?e9F{x$%CC5FEu!xO?O0e5x(6O+p@!dG94NW- z?gIBB8}@PFhmg0gP~%r{BwM{M%eLy!*=@rH7u&urM%1XSE-2uGWt*zAfNP3o+R^_g zm*J)S?n^g7RtI;)0_V(!mEp&7@B7d7YUz44ly5sjQd%xky)`4t0Vg!2<;<=WXxR2) z-WF$8KjRkL~0=n2m^m!LoV z!!Z3xwQ&AuFA$5=*OS^FV_R>?hR))gj;!G0q8e{4Hp{EqqIv7?2`L+(y;|=yp+4HW zp^ZH%cmFo0Eh#3P##T|!LF+U$h4z2}AO<)t!2u|YD`{p=YGq<+so0S z%dBTw70wjeuYP>B!fYu@j>=qx{AEv){Sz*m@9I}SZV;oDdp@_N( zPdA&KC_^$|p^90UuX!@$wn=>?I{>7RIuT4q4_!)bvisIA|ZfLbCrmy`qKIQ0Uq#8YB#1$9}%t_e10UPL$mS5dHlZS zPWaxexP!PcD;BGA?}(Opll-xc&i9FECWh|rg~BK98Kn@m5RZ9%PCKyPg9C;B zs$vVp)_i*EZgkRGn%5VkdajBLC!^D9l~s$-laGD3Q7fYf;xd27<*WfB^A*@c zoT~>PxZj*q_}tYF4N2bWqcpyE69~O;(yS4umCXG%_A*lxCyJNH9(+j}*;qZpc#;1N z;#1MuUg8qy03%K&p%h&KxuVY81oLg|`b2Jc}S@=MA4~Q|? z-Ob6fO@p`0?8UFHeB3si)&>Q`uY}(6(xa6{{dTdAT4{RbC7cDT;<27&l5@X@&8HTk z{>|srI(C;k)o8$7>M5C&9ehxgpiL&t?Zb^7p$+;kC*XSe5^`k-l}S*n$G6f9h%0Dl zAeSx2R}b4mop=vnbx1GbwkX%YA2E2Z!FX00t^3uxm3Q95=WgVykHpbGLc}m>)@ucD z^mP!>C}fiBEvJT)ox?D}_{LHYICPDEhJt*8mg%&b+`~JXue!|K+mFp|bZfJ40|{4je*DE;GII@Yll4}JGxbAVP z*+(BgeU{Pe&n*>yt~nTlf7<7<^Acn?Y}_P=#r^$cVGir#O_-h5KHj%6VaH>46{O5^ zzxJeOM{PLy>gCWWuWkpq>XrY5Jt0P|2f{eO7mF!!^jIx2er>0gABV*$H6R@OdbR=J zk*H;^>XZ(^aW7A!&Eht>rq)*Yi;Tib#h*Sjyc&O}E%jpu<@qVWSLf|&EMEA}5(4Cnz5SB+Z$<*LI^%$gMCuN_=(`=^#A6WyZ zJ~xJLf3p*Wdu7K59l11UmkT1fH)Wq0Qkl+M+f1t@U2dLirqbLn$f?n=PcQ{Ne;d7R zwj1U3T{Fk`ra6!O9*!HYoj(?Fv?@=72RmKgj=8F^%QxQUd#nQ_tNQ06rdOs<=^(b= zvl-OjjvvfdKA$Oew_Y!=b>E?55p&)`{ov0o#R^$&^_=ZWte0O{+P?l>f-OSNI#un`3GB)<6C!2dhpBy;qpdEl682GvV?_H!gVoQ1RnnSSL3YVicRJ zX+*}?)}y+TTT|f|3>anMFZRUcueG|ckLe}<3KLB)Co+Gi?~+dHLWs6Tb_oR_IA-L*E|PkOE0A5Zov(1Eg&q4gZXY}DV^ z8nW>6%=7|$b~3H^4YCwPUT%4B{)!M%zio?RwVr^QP+#tNO8Lg>DW&d8Fa;};wsNS4 zC$y09{tqE%KBU{Y-DB>rqwrn z%7KKzfjp*>B0P+$h&L*VXHI9frH`86BhVh09Ch1G&-p{U%|$%)0zk6FE)JXdP185s z?ECikPDVB_X8sWQuAZFN3t9&7(bps!87}6^VgLe11E;6-etCFVS*T6g-f?|$<{tPL zU@=m!9wv*TH_sfG$R-!&fOX*#%Ji_?Jhs*48OKkrKDVK4tFCrFCqQVQNb4d(Wu1l@ z4)rX1e ziTifc*p9jqJZ#hL!`lW7sBF($8-8IGXQ$T_8g)h+{$O$+ zVF1w2V_su4b^z8PK39ec`-P&B3fGs7Dmv68lTQFlZ0Ao|pR}^V=8-kajz7*SP|_%~j;8eR;$2P?Yxa zT-lw#WXj%}&a1NS-V0K>oUM22UN&5SwSifjKUmhMJF|He=4Izgsh;c9yOnVNr`w+y z|AG@#`&=u={i-88t=c6XX?-(q!kqEbiHztH-ox&yA zt4!`$e`&(oeh)up*wqG~tM4Vd$>;G|8C*P_%iaK~%fs21z!PzP-cJjSnPb2-KVNt1 zDZ@Mut7r5(PdX{chG`w_l&V$MJ3xF}sbef)B++1<+eeAi40(0&Hb6Y_05m zFO!Y%9X0}C`lfvzy-U;9W6uEXyhLl-%5Ez=T{_CmQ+g>U7CWWWH7G3&F@F<9$)S6N|mK%f|*fum^!*rP5V2%hoDhr*E^4D87 zmsV&V>1z#L#1u^uIf|6dc&R&@(`>gn&F!1j-9Yu#r`1jA%2a_kq%zTlfnC~mNfGu3vqof_;Nuc!E+Gz}uXk^@ zM*!IxQWtOn`51FFJyIA9k6eWH6WIJ!M_A!57#ljsHLo3%q=|W&qoV*fN5wu4SXxdGGn|*F3ZnSc?{Pw3gj8vM|;~*m#Oj( z5dG^cj|kIBwd}XKe?}`?+)fAa@$D5^f-#yhfamf}H2yhbfwm_@6h%Mpx^Y+n7++5- zU2!F+<7kTP+bDI{_TO5UgArHIq3XFxJJD)oAXRy61uOi}O}V!I!3!Cf8gNDutibM0 zUo1|?F<^#<$W;b)=cc(>ZI2*}%ufS`7{WV9*Y_P=koKPjd3j}EY#QccEn&{zao)^X zUEIH|(-ptZFFVNm(-<89>6~LbJth!XQ#XFYYAUo=HNo9lzYYgD?#^HzJUZ@CuBX&b zpXu`g_>}&(F0_K%$YwXr0S~lYaj$jg(7(fMD()lq{mk9)tT*Uy*at|9>0FLftQEC8 zsCS@}ney2kqUW>_X)Mxiw28v4ww{l+HVZmN_5KQ$Z^c}ZWa2R4W&VU(R%b3WDu0!- zTy1jFy!iKv)9hieHWqe%fTTH`H-o}G0V1~Po}Y9rm{8vPF>8=yx4tj#((O5tO3q@h ze}1jZr&PeST60Fx>@tJFmM%oZr8r^_^7u9E|?)bsTWS|2fsU# z(1VwP2(89~rgev}q1J(6{j%9b5d&5;?Oih#qgC};o^D=O7F+Jy3o;13z`e~t5QttI znFsyM>-A-kGInz3>>mib2O+OhF*8DpZG!_KdN$cl&-MH`|7<%EnJ=F~dHTbg$8>KN zrT`Zj?v?!QIbZRA;=SF&4~gQl1?9b|fKQEV1dC|7%bJ=vp~p^hnYjTqKPCMiE`7(A zdO@2=>Y0Fakr~? zF-Wegc6@WpO$r5)B-%S zKM%9TUNG?)n-=(OgF3o}BYL<<0N=VgLI1jAjoxE5R5A2*5MKG`8^IOL>$aIReuN?T z1oh8IpLZSwm2Z#d`cPw^>@V*wM~7}iE|XN@;co1F`ac>4pmSxaF^nP4YK!b=K#O3oym7RBmm;&b(N-oXO(+pC{;FMlhj* z|UgCDK5lm2q5Nt7yPaP*A_e(mGcNkBK{rva?Lav%(j zvvKPINbGJ~vHs+=AT#?<((bQbrk2>Fn~u$E?O}MmL9rWL zci$t3U%ij%ZdAoC#ENQmdWQ*Z-u^83?9g9gQkt*MJ*iti=d!W2=6ntN3HWUqkD-4N z8}W`T9J;M#_VJgI)s^FhVL;_bSW9Yf21+@zi8EE82aGVq{XEG^QzDoBsZs$IuTd|j z2;-tZfC0TV);iEAAWhb3Wi4a1d+teqe#tU~($kuAs!*YaV{IHjwrfLKQym9JjaWPq z9Adp!j;;-3$5oYLe@|d4rpwbB*4a*1=V|E%V6efcl=d04>3%09`|;K@oF%%v!6>D- zF=P-=&m7F4)BkG>%Ty5YhmA7pU_S%;C#n2Rz%Hyc@mrMT;u@{95UiQax6^U6@QtC% zyS>jc(C8`j?{mx2ys3Fw)3eNef1^JqRNG`;b*T%bG1tCC#YTwTOVcb*zZcsVJO7!4 zpTVPTe^^EEU09TYg@VPhJj?UoKwpj-%xx)zH`$I?8_^W*)|aNe04OmOt1OqyAfr^w zB7K{DpujUm&b+fvwZe7NOdq%@C58NM;>KutIjEC+{LJhOjsg8j_GrAcxgNaa$-TLO z8)e2;x2NIiT}I-#?-kSl;)>Vv8z@B=(Y3EbVu9;qbj__~bW&$ES}M}%+ul)C!G7+f zZ*?gTx)=K6&=Ozw-nL+eq-p$%zB$M@*5Smg@X_Wl`@8bhCy?;d0uw z-KY`#Y0c5w{p~0rl`N*`{>a{^Rnp&1yNWD|w>f%Pz}#mfpC$`f$JgNp{noLRm4Dim zyRm=udX`r!V27Ne>0OfEH=Y^qFd|;V;Br5Bh#U2Zw>@@zlOr$WuDum+rpg%E$?!Zl z6`H5Io|)s)%Godv`X&8J7yc9!#)hO9AoOk5)2YMq=FCkj9Za6Uj2u;t?ux@t<+I+BYO)KL3MG>k<3Hr^t5bCEUi#ICyCa&qH>>(- zQaT>zW1bj?HyzIp8zz8#vQVTkYBXIj`w9B-N>&q8Uc4{*Ju2 z@;%wI9%=_~WZOY|(YKUv?PTZDPI5d{!KHcWPpD5|dr4KsPVUq5oD|s>`l8`b`nS+< zB?~iz>lnNYpd4Q}%Y~9^n!p%&R{UuvSF9}PT|l})(lO5KRFK)vqhYQPYaY0t756KL zlC69wpD>=om&^^ywH|L5geh6csJEw#4=d&woCCJGj$V^rp@Lr)=k7O}wGhBbu7kHs z-}R}SPq}jEbodswpPg%MPXoTycR*>kb%MX!%2G-P4P$CdNyR3f);y`hPm9hV<7aML z@HapI&&{3f1G7mr`uIRMUvsj9234k<>oQP6N=$EoPU7KTGX!|$4mYk-WQfLTpaX zr*`IrX!|2qoGi4(9}GktAtD6hxqjI@-OfGx*r)bhx5|Rgb}RO8d?uRkd%J&~^Fg!C zkj(XV`(t3ARX`u=X{~YIqh}AVpqKc8CaQWB9)C(`&06{6g6tTZdB-4>Qh(r#k2@a@ zp%3!CV>3n!sXuf=v}8W7NC8xf;tPtUXdmp~4jTfaS{Pay z#k0^k9<5h?*+eLR(hR8JjqdMq#;mHYYPPRM;aI0!zw$z+CV$3s9umBoLd+TXF5<7F)|k#Y6sn04O1NCwOOLgra{We^ z@N;GNvhKS>>np#H+Ndre0^ZY%{oXqKiQcBXn*CLO2PP;{Lyo^i?V)@AQ#xONgb_@^ zES^^4qQvdB`A%W%O=tdFYGWi1-_C&7*7tmA5OJUoar^sA$`STfUPFX&ZbGrY_sxdN zXtF-piF?Yy->6U-xi}Obzv82ZJj@-_B*A>CIiJ;<{%pMBx^r)iyNZ&QvrKKip!W{D!wqtxy9PLgq1)t}QtF~0I_Jxa*bT3^F9O4t`U{GU!7JfMslL zo_qLf;aIF{pDlIKi{k)miVj3e0~Db6+zhMF=Av~o|6bO1-Yy`7I>^$+jP8%=-XaH` z9M%*TBK~&G(be5WpCR!Ru>QSFvzhLDd+hWq_yM}E^CUpmy;nkL$V+^*>U|$iz3CzZ zXy@C#z^RMMZ2Wr3z4!3+!!`w>nkTC+F)W+IrkPKRt>VUioO4C}q2tI#;x4TbZ0XCR zXG|R9Zoh0``PBWkE1N#IEz*D4xt2dyMFmZSxXXe-!7r=J(&EgOrVR{;B6Q<{{eeWL z8^NDnZBf~gA__L3Y-wzr`)mDL;4)l4tF&C(<>5iR!FngXaw{)lB_AjOjJ?-URWDZLhjUI*j&=C{DN?x?rKjrDxDgS_J) z-KN=i>3lX18WeSFnf#oGSx>>Av7K^Xbl>O|8mF&`c2;dKnWZM}&k zE2A;Qp&!*N9F++~(XvJ5{#ikC?RJWTTBUUYk)z(v*~2{#bc}~%7lq-o#OLWYn_|sl zh_nwFfb*sSJrv z@4FuY9c;LLLhd32DxW<~UcZXzWvOc(mfO|1pGH|8__fxg%?`H1V~eKbcr@{Vs8ZpE z?ZtGXAc3`;uXYkqcdGmBz-5$8u0g0J3Vuvi)?YU`EbnUbb-!~K22~*3J99fqyUzkp zYLPdQG5ZLr)Nb{jj9x~}geqRs`D}C8PQ+(gpo&M*iceNrz7@RpFzszcopAttk{oC* zdXVNF-J5L+A(_IpW0mC@2QI4RYJo}CV?n=}PmXcHgjyg9%}p6XS9-s`nT@LT9EB84a+UG*52^ZibF%xJhl{%L7jTw8scdf(8K3RsAQLOka*H#lBj_CK!(&(3 zvW+92*hJ-iYc$O1v!;%b<)FQ+BnMf$zje>#2cKnUPkx58=7ei6$zzVZ9~W(Dh;sT) zA2K7O#ZTb<@8V3fW>l}3O_BI-=K|e#H}7+Um0HH>>WnLj{@onio~~kST+s1QJ~jpK z1#xJW#d*lS+LAw>imd_QY%?*EBO*Qd2tnH-rC$D3-Wl*P9+P z%SV`FZzJwrkZB4;j4LYAgO$4(15LC(E-^D-T79J1c=gdg5cJPyXy7aS8n#VvR=Lxx zEh7h_iV7+U3b${v=$KjQ0HiJ4=o^BM%N!fso$M~yxeFinu+>NhbxF?jTs(zm5h$B2 zEg;^mCS{atGrcr3hI_R!Bl(j{AE%0}k`A`NP+zB4Vr#^L-`AbXQc6bMuHAJXXR2HD zuY;DCA#b~UeW`QWexRhZGUn&YSR1ju1R0d9VJ*K{>kUYCbF*~ppPjV*p*&IDP&G2U=h5Pi1>` z(PntA!9G{t31eKd_v89pI9GI9=a0#zRhZ&`dBpdV)QPO};HaOU5xf4Sm+VkqE9>Fu zMrK9>aHR^RDHIMzn|qaP%`;r#*uqAwwKPeh-6=gGpB-~^>VJPJMB}4^?n1Kbb*iZ3 zSW5=0!k9B>+TM|)oj+e?vG}{s z!0lYA<&(dCLnt#FuU0w8Wm26iX8QiZ#|O%Zn(_(nS#l5iO4b0JyO`_Poa$0VQmu zTOV%NLZ?6AGw-(5Y(0NleWH1P<~;Zm9uR*bw@H)5UMV@oE=^Y0@2PI!>HA$H0DcrH z)>u9es@X}GY5e8skGc_S#AGX?jQTYQgK>ny-eY`t67o3rpyQ(eVWI21j(2v zV*Qe-SU)BG`6Yy}##jfVp-xrJnk!}H16cJEOzkD5b5JTA=vChKi@j0*E!Bsn);>zh z%^soX)9yj)rSJ7%H>kQg%B;ZSGvecS`1T2~DP_mEx8zq5NKCNoCpytKL%?3zuqegi9xYKTNYCFBcIw;PlbUzToQ7a>D(TP|g zWJ4#aY)ZAB9i+{7v}wE!5)9mNEan^C)9f=}RtKrB7TBB7`ARe#jt?M=HWm@T+fK#G zYE^nVTCqv>wo?vC4iG|@u3!JNFCALhhj@eEd*k!7&K-SCce{J_SGh#l@Vec#t~`@Z zmda+ffERHdHs9E18c4#tqfrYZNiz z9c|WFNv8Z%bDh{8w>>gkP?)D2kQ|yP%NBNdn_uXBh7GQvgOV3)>h9lfet!Io6vYC( z*nXU-?t7bFl$t%YmxVLTHn$_rflYD#pb}HAb*q#L_2DZ99Jw)nT#qO2J;rO}gQYf` z*LEcyGo@_q`zne(x4NDVGhmJ$b4^sLLK=3Pzh(M(<YWA=$2tQjcMw9U_5V&! zmXKEMEb%Mt^Y%;klu_xjnQH){{hJxjr<}2#!||deAnz~!7og_@;H*cp(Y#aJ`H}^v z?7?fpum3vBM94?+z1X_c1lcRp@4mChY{EQ!A~|pNM?V+Hy0%UdJZAR_UkwgsI3+s@ zzat$L#menrBx7E95^r_XL@2U~i>^Zbdl zZEyDnoY3&~^VkvBFxYzyeTh8m=)N#`=47i{Ktu5PLa+ z50Z@F;r#%WhB&bpJ?2@^83HF__~!t(+k7m`?|G&C`I)LuPLhE(URQRxBNZUy=_bfg z(1&4d;@p_3a=UUXnAW+gS8;41J%82mbgLcdd8GnEIbn9Y;+PH`nW}qO_i`^WCcy{?Lwo1c3$(lX&IZ6&soXOd@Q0|4K*{ z?fFQ^Jf&lc7(vyhGks6`@*FJlZS8ngDI%5H^&of6Jg?68ja5eT!D-O#=0q+fqq?#u z5xO3nqSfZ)oT82p&p=?~t!pBJ}gW`z(bB&T3e>Folu2rYpx@NrN&t_K96d`vz zOZPS?d2Fq?*=YV`PwoX@UiGyezGsZ>X(jX}J#DAB3gALez6^Y@gFou?1G)k~-(r$S z4)&pz5Ucycnn?HW$(`l zfeqY^G6k;MeN~^5rMJJVUe{;S(z#Z`z2Q;liQj64@p7lbh>1y!VVelzMM zja$i2KC2dx6T&f$@?kndQDK;wV1a8@7aL|bs>ZjuW6#;*Zrjr5VznJi>Zw@oE}VQr zUE~i*_*ANwN)yRtVU|vwm3Vw-doV7&oZA95p6WYm9Uk_Ns5RXki z)F9>?c&Wd09ANl=(3EeOxx*0d%j7y|85Z}6R!se9x8 z;a-4Dz3C%$n9t7fe1;3vT8-HwuLCBDQBD%B6K>6WD3?R$&!OEIXOq>wN=;f}gLub% z|2paBJjP-UbxLK}qrYoWM{kVpPe@s%=v>{N1Pw+rCWL=<^t<>b+%7o2DkZkIml{d>Kv48Kv{` z89Mg(3U+Dt@5Xwb%C1;>eC)CK0)+I?*&|W)?q}Nz2oEJrYq8H7^IX{hTizCE71bL( zb+BnfGc(U)j^= z70Cp6eHByB%;cGQTVtlvcratwukS{c$>4AGp}+3{f$%he?_C8i>^8MisqmUgErPbG zxkZ9lt0%J9EB<(Y(z)=Xo1H%C_w)^a)(L1IsT0_2B?yS%95i@elM zjoWe4Ox8towqcJYjQvc|QO?l{+7|i+`mWSl`7))|?qxQI2x?)tM_G5ClUuo7Ql*sULrdK)vp(AD|VK+r1FMU}R@v}zfa zUu{{Z`8PR&sIoQ@i#=(h4+U5QgB3_X=>Wo6!)~jEzavPcO@dRNngPKQE-* z5M$oO5y0POXmjrVojaI$jrZ|*NuS(t67_($miBM`zeC6!9KhMoaN&QnWYD(WN|L!GcUqQ=>4vZ@t z4&6C~Yv+$Iwhs%zK<1~5b;3IavNAm?%Aj`F zo3C`Ud>{|zNbWMtV^toGongVJE`y8&adV=*|6|RhkVl24+}~ivIQ#kJlw~n67RvC) zOk3KDgX=hl?Cytb{thwqUwUb){$Z9m7zdk-S~c@?J{^C2^l;N8u(!n6(rPcmd1b00 zQL^i=9C5-V%14H7(JyYs>!^~EE3N%$!Fg=&Nku`vGalA6qwz#pe)HGlK5f*Z+-o@T zM>9?YlE3jeXZqJt2YF7G?cC8-GjI0id?NuCPz|_S7xdyOi6Pg(j>;2ZGqk7OxZ=4< z{V-+EC4xM1JS9L%co`!*!7EM&)AiRE23P3*p`4jsk2;{0{j>I$j{WXvc2v8A0NnPV zW?3)XlSNJ);}5=27S57lkV8){@iH4sg1qK3+R&lr*=HQpjM5;(0<&Uz18K6etHdSe zfbSn*Ywbg4vhQ;Onxoh4dSkd^pE%4$)7z8-kP5CHynt>mCJ@#1@ zlHRcDiTT^;R1m=;_3cbyj=>PU_tHa`$0uSoSe+kTi+^WnB4L;s@7q4dEhg6KvgMiE zDPi{8ez)6Nm*Ab!%%;g`^HwK(@+l-yZz2#NA%p;7wLDS1>Mv{`*ry!r3VM+!hRBj z?QUk&^5?(`$<3WG&5-KfcVJ4ug-PZ_Dpd`pZN26LNo*k7tnPV!@XS&u>P&#IJmk)k z`s_*drA_-RFWLsp{R_g~#aff53Wsd<3CC;nvTm!lYp*cbAmfMEe=IbsH_3 zEISKOS#Wy&PKtQr=D-Be7hcCj--#&PEf zeSm&9Y~?K7*@Ee%-t9FbVLL0~ukDOzIri%rb{55ITr9V_O7wE|C-5W(gxPhG>%uBx&IpJEAy-=aI8u$17&27BvwS^36uZJZ`! z+p^nn_O%vUQ~8D{wZp?dJ7K&mb#v8TFH9dct`^>>^1awo2HSCwS{}d=`tOUX9WH!r znj!aPY%1ekxi&o?=LolBFZr_5`IW3);Y{X}koCjkin=K(^?c&Ii&sGA)7c#|{k&`A zul#afL!FHfmipOiaTtn--}$ZzB_q_9Rslf%R8x7(oHsem-1fJ2vlY*omAs!k^KI)R zeAc^7Xas+UV!O3L)6smlERWjkeDwVFEZ23p-Yt{hwXfE~ z!(?17pjt0-!22SgDEn-vup`3})ZSvX$tu~weOP)fx6Qvt>omNR7(323E|PTOod^qF zSueZ(OXa% z_p7(Jw@+o=zMkn(pO!OX_#7{*DU;<84TpN!7!uaXM+mFIo^Qi%qO1rg){E7@^WpAj zpvN*U=X}uPcik74q}$@mUzyAISb8YOF`~Dlm?SLgR$%8a=h;1~H2b>o#|wBL_qB{Q z1vU>AS@~D`Xli{}TV+Q1Yowk6w>#X;N}V#y26fp>o2VghRS(#&-m$W%?S#>=vG}Xw zLgFWdp38yPM4hf$v6m525YpG{4Sb-2VybusyA2BCG_l#g`H#*@f)>ZOo7Q&<99{IU zL01<}CZpA)p*N12b-E87JzMHt)CND(Cb(}8YZNlNa1Z&pzGn&<@Uc$L`flQ_!^Q8o zWuCUO8%qOp{dgCEiX!#UUJ|D?(|wQbrwWkShvOJ+A(gKec+XW*PAhqgVmE4rY02kL zwLY0w`+<^kKegOu6;ENO+uMA8HHKK%O=_d|l@_t+QL zOfoaIrmu4uLy26UVS7M{j|F81LJ>j|ovm5Qr6i#18MmW6#aLVXtMD zr#|Yjc@-Brv$|~wyT^=P6N`dgx;F00oaOyy4=Yy0S-b9e%J8p!YTaOZV3P0kq+O9h zXkzz9Ca24PlS=-?5X@B*)@P=iKTWEN?Snoi+xQHHX0Zw(B0$L3ci4pj@^jaCryz5{ z%X#i5u`qpuSb+H`CW_N|k?%c*d6I=~#wG06JXKeC3MiCH`S*fiYg*lc3pIXg zw)P$wd-IyOKh}z5A3XBu)G(|GD1=chOb-zH8~)9{R(Sn9-o@i_HW@p(xWG~>(DWy| z$@|N!hlr`}GXrNoNk?HyS^Yr*^Szm0J6eV2dg;NZ`gh^sb2=}*KoZOMc=goj5(Rcx zQ+k-iYI`JE+g}^t^}VR~yS~@&cuzEvd&FU@4XK4I$6;6QQ1aXA*P~nIHvnh05RR&K za`qS2({ZnXbVY*c7l0Vjed>ScBxG*Q{n2r^?)gg`z1Gd%Pnf1+-@_S-d$#eu{q1KC z94H|ns(_YaSVQJo<)X4$HV$E%I0n)8{ZD;oIWO*-!$mJP^)c2Lx;UJU(lA55!g-|( zCHydF2B}|=k+gBnqPK&=X&h6a&O-}LUH=rr}1IFx*}%x9(4M7hy+{~zemZAx)p9QcUF(hIq7D$1{tt8)GIqXa9%Dq zKQF(^`P0irbyywG)i9WmUK{kYdz|)OnL+dViDq4IQU3s?U}NL98%khB-{z>ob+Qc( znE1i(74cizNO^mGkrvDJ0Ih*_2ObwGK64T5_12SYuE4xjKdq;X|3vXm08)GA3~0X2 zw6zY=XLyUBpZTwOU31*460{Xa!=h_%sjW=;LpJp3fH}m8KflW07rYEe1H+%uXjddBB_)2_aUf4V@zPDcU+fc^b;q!XWYBE8T^1;d( zH~r1((mjsO{^>)wGy2@G9;D^!?}+Y4R0ADogT^P?KBac!QWGvy6%>~Z9MBa*MhziSr~8##BQ zI}@s?4-r0mxMvGP@uY3@p<87=SwG~B*WtENbcIqr(AyEDqH~R(yA@$> z{0jciBCWBDpD(GItHT|8FCeui9XN4LitWse8m~2v!h~z%oM!+0(+XJ&*%nYMYM*t~ zG@%6h$Gd@CA4yrhJ$cUd&3w5+0pJ(k!bSQ)-0FV4R!i9NqNlreSqBawGBJ`uHv8)q z>*k$-dy7_sbP=m+dn-qCf5U3_%2t?_dP_VOKE`O z^EA76`eqYG@m9r;_;t4kQnrz8g4>R(E_pFGGFpYcDX{b1QEkR;P($l#Qed8~Izv1s{1<9Xf3C{1PC%`HmtA+GM5G+a#kZ+!7 z50^}R_gsrs!KRGzHwWoEIO?~Fa|yi2XR^2^rD!RG)O zPWj+Z_VOz{emYW9#rVG=NHN6bcLAdF6{>C_;uU#7~UX1bjyW3iV#Bi4t zh2jKx+(y>lXR|8L#`a&5wRh8lgO4W5&$_k5aA4plm;85<8EF=ip{e^Wt~Ur^12e}Y z-Fvoq`yuhWb)}ntDPWxbqG=1T_7#tB;O!W{+C?C(Kr}nK@<9+&4zAf!S1Ti$WF0V_2A{)V)?Yo5FL`! z6De`4x~!@=1nZS-(Qm7^`GU}Ap6ZG!za9}wzM{U zKC|qxD`7oa{LP@r!vCdcqLY4eSnfQB)qZM+VsjMK%D>UQ?Bq@`qZR4{`}EAPQO3L< zppv~bimyI=6LYiPAB%9SM`Rif#R>Ca_S2KySyPnlpm$j=GaQq@=6P)#c52GQIB0f% zJ~)SbeH@H1+#G?4*jEXp)328(KyjdqqX`ut-!?b2F2m!H#;JAd)F)Sp5DQIuhO zKcQSGt>`#Wg>C?N5lUD&i^+)jyKGQ@?y?*1&sw)xra07YwaG(YzHtlUpVD7pyEdz@ zTSZoSPhx#~KOC^Tffz2j@*>(A6Nd6BpGNNLXP)Ooza&F`;)t!b58x@g z*@+@ow;STh+2+d)JnsIe7KXg6@-x3Vl~W#A0i7%h9z%%Hw{ygDSM7PX z^Y_sm6egtj)}L~bVcrksa2%D|r_m*snb9g0AptsR^sdPR1a+$yGY~>uyL9Oi`3f7WjrDLzL3tBwZIPQ;XrXQ*Qd{WU^cd`(l0(= zGVM0}J*LkBa}6(vlZHj=W7Ea!igB9mYrf#rIdxnk@SvNG%)8X5x!~N=np>2MgC-TL z`?q)_=GS6p+$0zCV0*|?0 zbbrnIQEY^D%Y%(wRH_*da$u6mGI>-pM$d@;iV@VU`tBccx{ehFiVh}!Z>%Q!E6LTC z_gSvRhRXuo`DAhueNi=k?kQ&0Gk}^&LbJAAE8f|#s0*dCk2t+=NEz(|T#W!S*NO(z zdnL6Zt<@@(q*bRZ)(XaPyp=WKF@MdqYFA<9QvjT!XkJNbyD9C6JhO7k#{@auYT z@2y)*DsP_;Vsn6tn*bsxd09kFx%ak<@f<{`vBM?PDIavkd-rbyJ660pgPBMuiK}vN zJtJ#wb&cT#w{tIzH*50O?!K@hH$52Jsx)`u;3|ZJI5r?EUw%#6tt^Wqb+1Wxj~3)J zm-zkDq$C(KC*|$?jE=Syr72uL#v@m|vWl=T@!b=y;N#_zDb&IWTp2bc7x91`2z2LK zjkkBw6%8it<;-;^wWZC9^Rjf74|;N6eVcP-v@rY4YcbQSpBm}Fs@V0=Xu~#2zuV^` z5HX$K2$Z=19QkeeTlSk9B=zVTbENd(SfhP@`=~G(sC=^^o$X9tJw9E${vkMM)0CCU z=B&T*&hfrqoV@+H)ty({ayW5#@m=wN)bgkEUy_?{A6pMFDfozKRq!u=5~tDYr!3n* zBpd&}-TVBdpO5c*`>^A)ZTo_vX>K-`T<6F04Dl0cY8Pl`6s-inzPx_#b(`TW?Y+N^ zJ4m0cRnAUoTI6eKRC)x#U8b!Zh)L|FQU5)e_HYd6SFg)~X~mW$qRXehkGOi-gtIMv zH=c?F;w}_#kA=r6aMUG~hJN_F^Xtt$JcZn^Jop*I-AB%q(^4{nf4OI9bo1J$nH%Kt zyT#7hMEpzR05Xg)SlHdOrG<@6T1`vww!*Ie&IMim5mKd>)^G3Z%53hvT9^6vwwGr| zZ9pCzp;JKIWc9nZws&R)Uv#dVBi+Bx{@bo^T9H4b)9bXn_Pxw>@C-@Y-lk$_n*tK@ zFgEjAO9kcc8!2C?oZw=D;K}Z#88<%YUcRNzD9YYiYpY+YwPlvUMoqz7ofMirtkKaR zVol}+L9OOy)`tD&`)3rZw^?xm;-<=7P9Nsq&AJZi2}gjbZJ=c2XUHDDMB!1((z~xK z^?wH0XkwCCO`o>t?W1=p84Rf^2_4~ zv0OI$3~>kL^QTGf{?sP&!r5M1(h_SIS)VB^opy!S>l`mX0L@1Q!$WRMaSC zrS(;S%vAe37&q=aMjl$`YihY{fdslNA)D-9_~*S+$7NH>*xw;&<=ih*a$0MJ>8@-8 zO3pY@)SvHR;Vt-m8u-Z1H<#UG;c3t3t?eFBNmvqJLGmO@qE2|fA2p{xC65?e* z4Wh?q)!ezUIE(~D#^0X*i zDURA_CV1&~x_s65U#XerN%oiHwSxVo{>j6ho*c52nw!05!)i7PzR=JX6%$9Cx|x#ABMdE{e2}Fz78JL}UF+vFb*Fb5s{z zAIY(ZQnnfm_^^wq#67-V0MG6WVA2Bdz)f8Qv)LzZ?jD4-L+`0Y)xP-(2Vb_0mVpqN zQ8~}{>9QcyDRHI9R(TxtFY}v}eRMBFtCPJ9mfN{TMRRqqzM52lCT;FW?-ilZz!R;G z#G+WK3!{zmI2EDvI{B{iY+;UVLD2$4@peOpu&YZ0EzML*!!b1|&PsqT7LPlpZz;xv zoFVMSi5Jc@I6kC&5VT7Kx-SyT6sa0@10>~SU#0b z-SuNj4EtcuoNH;AZ{^n#`t9%8hBYCK@xa~Q#o?(kE!yD)yP~(3O2>cu+n@N|5oPvw zIhv-dSf0*9O8g;c{6h+h`NyYEYQ#OLfE`RP;|~ei5ou=eFhA_I@JJaiJ8x7+Ee7tI zr4lC>0ni+uZZ?aN zZQ$RWuVZ&0-oe}mGHm2X0QQu0zZC%;&1n6CLpXb@-e&cDGxMjkcERIo#D{%-#av`^ z^8SU$TqL*1+7v$$s#Yzkt~=bme?Jlk83m_jD_larAwvIiSQA00ENe*E%}p z{7nm#(w=-tBA=ZA>)d;a=kbdm0u^#D~8q4V4?$MyNH`r_Cxa;o3o{mVF?ol)Z@u_{#AHw7_+M!RiA z{x+5Cz_7j^n2Nk(n(N6s^jpm_c+dCu@bAZ$%nqU#8FCf?l&EkHfXiH zL?;@5B^UYSy-n`3Ri)8B09Yd z0~wOwJp^j#!3kz)KfCb$4C0P8VTFD9)Ke*TFdl#bJ}|qeMWu)aNIOGwX6-bJg*kq% zR89`sC6n3jnN&V8o2Xjp)+x_}Z)MwB)TrCj9C~=8d%Lg`?sf-WV3P+^Vfrc$zlU%J zBmF>vWfh1TPwWTYi6E58IEl2ZQiEaTVH@i-6v=&eAE(E95Yb!3?Bpk71XMo}F!fll z(q%J1M#PLhoqUz2lgstur`uUFeDWxj@|jQ-TFa}l*D!!Lx97!_Ij&4XMUj7hzqbK- z`bnhCmt3RDZNd2!`LuLE5WK|4OGucUg6jybq5Fpq5tk0#<^G$9~Wn^WtRCQ?JI-mc!G%^JHB_ zpQJWGg(5O%wX=3nl#BYK{io@<*{F((eqU6{Zc9=ic9D7O)V*i6TY0>)c*mtv4PsC& z3t^tKv?}(CAa$)>P&rofou&@VBD9jWwEY&0Y@d}mpJzJ`Iww4LsvSX}z<v{OO$GPtBpB$F?!8 z!N)dyK=wee7yF9B46Y@<_#Bt6%8l4C04sfQ-;iCwAgvbeK`#Oixic7r?DDUv^TUVE zy*!Yvf6MzP($~0BNA4zv-&7vp(@hNF$J;%YEAcm1R$qQ0S1p`p?(qINAO8M(WQN3| z=t)pS7#uvBKLeE=pWk-DrFB|4U0)Acp=@T(0^4?LVm^4VD`=M)`D*UA?4(`byjB*2 z#YEUAtbT92;#&MdjAVZpwKN8Huf@|nCw2MFCOZdu1UwJJp~V!-%x?FdjlpNHKoC9f zJf^-*J0R~#b96LmOUQ}5UKFW(Ujk=Y2dq(f)Bz*C3c5c!)BbhaV!3#y7)i`(QapN6 zc6$Wq{x-P-W7OTKs%IH_x{%s@?pDgJ-tGrW`YBgBaJ&=0_<1}r6KZhhI)3x^Ag?s97JnUvO;a-xWusg=F zpzX}WF0TQgRT&nou0K8pg!uu(&P+fblYezB&aVpNA9wHfXKMPic%qC+sPz+P!z<9O z>hs;^(&+m)b9wiFdBRGc=26?k>kV=UHkU_SnAU4U(J=1TlERFgxYEmNk`#bBYPMJ@ zYu~qo^JQMdcXol1cof~~m%!Ih)_Jv&z^>2BrD1h^?*gnJcrKlJvgob16h2fx$?A2l zRbQ9VvC$nw=Rzjr&`S+lj^g-}R_3JnjbW10ezyU8IS`5Ja03@v<8AL>-(5D4PxPey z7UKq(*tMM{?PA4{N9v^Z#xjN`4vOHw>hCY`Gx%U_?#{A*4*G;wqPz@xf=M;XASrwe zn=R0~WKjDv;FUO=x$(0}I{Ym+ym(T={ddm$p6QB%%#iF04szQ|Jqu zy85%G9!U~s$&oVaz8+h)ZE5rFHQXI4H38=7EB7}#=Mby;J#}+vx|?PF>NFYts#z<6 zLargcI?pnbGv}sWDuG+AkP#g=ZqHVa%_h2&930xs3xr2^Zj}Z43oZ?+OU)^R8hu}6m zH?$k$kUxL6h+oyuRS|xz(<99#uRmoG(2b6myX0_Y5SB~RPB`0vLE{f@6XdoBGEt*h zJZq;(?FgOYTvw}KnpQE|m)JG8UQ8C-EHxvwXfE{e5_@^IHl<-dcfwL+XihyYxNB&m zjmf+2zq{+-j3g?*SL?C;-p02R@hk!K>sU>9AzS-k_yv#r;$T+|`L6d@+#(CP8)mYM zGvc$^2ICs$0c~u>+kq2D1@tcj%-HndSf}m#4`Y%n3ogID_i9PDUH^PGFG^n_-Oj0y z$&c#uj*WdAyTTqaVS}rs-_Ll*(8#e>>Kjl0WU|9e{S;|0iUk`<{*t@2UXA5|y4lE) zuir=S9y^gtZ5~^r-s--x$o9T))JJm*{DdtleixN20az?H=EmfwFEqY>w7=3lay!VQ z2xwOfJAT)CLYOJFnrx4`EA`rq`2pjw z%`H;iG0u5Lt`b94f6*G=N#FcQn&t=H?YKOc|MCMh!qKIn?W*gt#4KuyTpLPUH4KQB z7Fiy)k!>FQq1{i9Y3A&YA+NGEmDneq&E02>)$V}CACgeqT=rVz+EyS2R_ey;j^*8h<0j(n>A?LFG6J`Jd?rz8$jpGqOIyup0W z>^Ysx%OF>Gu}T9~^4b%*uB-B2r?TrS`qIdk8~Mf5SP$NPv-IN>cQRTHh7;omozh}O zFrb%`|DdhEh{OLzgjm4OdImZFt?X*F2L1(lt#$3}?-OBy$AZ@TXy~8*+w?1s6uaja zwL&q1Xj1<}2kpgpI8}piS#mNbR1assB(z41QT}Mozy@#BJew!BPXpj%(_YfWJ_iad0(AW+t>r^038UO` z%~FG|4lNFe_!$+p`w(tahf#`6{)HcU$R|_DZ8I0CdhMS{x*vN5bA`pW{GXmzej|SSPm1QjHKnzdmi32{A;C6F3IO042CW9 z{D92zrKe|QfDJFyZhKUwwt>BV(Wi>}7+o0KN91CcIhdu5%R^v&`!^B#Lkrdp7ZLb=wq%9!*LbY~QfZ0-xTUu|%*T&W2d$e@R z+v^+n#~#{#W>7_FZ>tK#mHzIDS;5Qi5x)yW)IZY26 z-`LKn*ffsUvUydsM*!tVXI?JkBZdsLkG3sttcTq{$!?6e-SxyZ^s-%Wx8KKi4B6#l zyP|XIpmR!2-2sW4J)>%pjR)biu&SIb`?QPRZziZD=EM3i4>ZxMzjpNNY7uYp*J&5- zgdE%lBWl<`o({&OR@f}!x~pG)$vocdtM|3jvbXZ_vUh8Y(*PPdu*I{7rhKD z#7DbQAIts5cE+ohUNvR=jUpTem@O$5hP<`Atxsv*t#d@qEc1dB+>uKD_PDgu+qXg9 zA)9xZRw$*|dxe2XN_4LLW!L3C^z*a*aCoeKvCQ$Ef)`-@(W154nDi&mrOjKjyDVIq znOD(;2GK$79);FjmsawVI%UKfU-nqket)^1RWdpNsb4dt|dBI-RmV?W#cY)LuF1KsFK+wq3qOq-@lXtD$)QsHqxm_2$e^ekAc7Jhynzof^KYVt#u_;rK}>*o9z08~PTp1RPBw=Y{Rqk{2C zb64UYa;Jd;a{SlPFJX|lf*++jr+@qD9=?Hlw{lv4CXUX{<~OE|WwcHBt&8o&y;MDz ziq);x<|NYp^cfY`^AoI5&k?_C|Ly;5XNT70)^4NPXRft64~nv(MM(h+z)E5 zuII4sD``0bY4`5mzj>(j%}(a9g0O`0!Y@DzpQ6CTdxzhXc0e9Omd=|@wE{+pZXKt_kg`P|}( zQ|VDD87K&^ARkVHr_dKxBJA~tUU{DvVjcxJ)w0+)5z9Vt2PF36Jq>$W5n`$lFlY}kxMS)80IaAash1Iz*Y*fYdjp};S z4-Gw;3Kd#;80lPB4=vk5(rLa>D~t457DZwC0g6k0Czb}psz?aeo7|T}P2S?0T zGZG1j$4#Fq@k@9uZry$J4k#Stl383Cf^`np{I4-3q^O?*XGONu$m)f%J!mHYpuuQ) z8eOW(^QJDjyACK*z^7GhJr+$S>k>Q!H=aJw8kza_cF zZhWl5*V zyT3zFTEv8EaMD%zW8#hRx4sUe*G8p_=-4oi!=&#bhrhKncXGVz;EQ{7SbitdK{~Fq z^$9MmG`B<$ukmD2>;wHLc@J+d4At?lN3I||$hi*~k07d&Wt|*)qJ@ZnIA4k2<|X=`AB0MXO|2`GnyN8 z`yjtxKaH~`jYg|^w}9b1gl&)jjZFY6vexx2}%k{?Mc-G0=R&P%fCrKU0mCZ z>Y?(Bxh#JP1KM`d3BOwfon84p4!+Gte86GiT_m5{EGX5O9<825?g}@xtkIk_ll`*} z^``S+2OG%F9m`Ggclsj+(AS{u%yR;6>U5VkCfiExT`I#mOwq&VU^X6{k;^+!3yMsi z54l8|FwNjy>X1%{N&y^tD>GF?}x;fmg{1LaaEnpm5*8sW4^GC%V z&j~QAs9ms1=;R9mt*3L-o5b@qy{r6p(o%N!Ci!aP1Sh{pUBx35+!NU_ zM@;|9$6#FTllP!^Rr!?Q84C7pOwWZM-{U5}6>nhu*xoJ*&Gu~rMN6;mvx|NfcH79A zAp9rb*>J;{Pc99I{7a6j?!8<1EGJFVfM-jg_m>+$2SouZG0G8Kt8E+8KRPV0)xtu6M`O0=uB{^Yvr=d_r7q1hdeC)U|o+?#uquI-?JV}$D=FDo*+M?DW2f?5&d`xS9A4o3^R-`YPeO!)f*{8*P-XcZRc^0-Wa0JPOM=>e2E;)o7e z{Z}@Vsqbuo9ywq;uEZ&`zh~JZ8}}*fQZwojJheVmUK(>9d)Yq~{`-&bVr*sk#;}u? zPw!-Nk)PWrLmiN@J`KUqNup^jJxP}Y*dt=fWFWk$JfRZ?2*i_dy@0O1aF(TRm0j@* z(0r#S`IZ;!+xNVVz<>T)Si(QNX13my8AV-ZKv^rghwUF}816;(p3^t2H5?#2cSqAg zp=q+V)qYK+Mj0r$v507LA{z&FmwwNy4#*OGdUPG?w7U(CV6nYlURa|&@N3}e-hb#l zuoTYn%~@yuN7C7LtH!lq_`82WLPan1g5If!Qc;qqR6ONU7P|Uu{5vR%sgV9$ek+$Prpq*5ey>>KO{25Pcd+ca9SkDVKZL*^6-*c#bx~?QAX#sXe;-c zT13?<^=!??rR`4+Yll=B*Y9WO$S~J+t53Io`R9gS7&8IEkX`GBsP)DylcY8NyGJVr zs9;_exFRgCb|GT<%gB2tq{{67K2Wvu_gQnLEd@-{+Qy+8P9?8qf$_8t>30$tU})BMYe5GTCa)6N1T4~4YAVgq?`Vym zvAbLa`s=Vgfke+k1Gn=v0luPn_3eQTBLdH%!u__ADkm z58&5h@zY0}mH~^&9qO1#^Fo>n%(1UY7{mvArJK3e!ZxW2=?oj3fbB9Vc@*lJz}Rl8k%eCVyz1i2+^H9wp6 z>Hf{|>;TNUc5Hsw3b)U~5#dGmUArpJ95@h|Nvrj#ETMohUqAolv4;3FRmTD+fRhaZ zZJfhI5~$dG7mZJ+TLr3-aT~PD^wqjKgeV!MKRl>TiBL$=BjV<)5o6e)Y8}Y!&&x?=D*AtXt=?}F z0GE70xi$k&2ODBF7_~y!5BFn@ebFk&VT>O(c;Ddp;@#NR{LZE@hZy0v-F`b=25*$F zyK#27-edqt1jpU#qR}b!67XEia;41u{+2Z$)}2U7As4X0qiOzF>7b9Ho3`j6gV}cE zEb{HFuCe3w-fHiLc0Ar$H?~XYSJzMbPJ+T=PQ+ zbQeS-c;jPn9Tv`HII585mTtU{_sQ-z=IpQNk4K+Wb}Ux!$w-DC`D0%9)|fJc1i!Fq zO$4VmXdoN@eJW4>avX52Mk`q5hkz3|)VTquY)6&aAoQ5x@0@7;p*c>M4N?R;t(Rpf&RVZ%R;>mEt0PT=kiHQR{#KrFp z>?}=i@Aeu^?m8^K)Mg)SSgwaB26Ve;Rw*5>o1rjgeAO(V!vUZ7T ze5dy7UG^bgsnoAq0LMkKr->5UPJ4XP)0y+pLVdH{KFCI+-duLvbi?Ko9J%d*wDh#D zZzhi(pOvOH0zdtCnXDq%qzIYEoIhR^!ckHHpl-Sn4e|vfnHC!CJ{t4`~knZnPKqY)zw4hVJ#+w0CWsf)b_nVKRHH(RV-Y;t< zl!({-{s16ZiRZysH%7F@EeWW$di?0ws~J}0U-BLK8Tm+h%onNozlhxJoD&F36f!u# zTSVh9(AMz+1m?vRqdz7O%Q>P42p|AMiLCC&5`DgZ7x&Mw`?SX0kz>NELs(lm@7`|c zH7nqF-&c$;$1W%5BE0EbQ(FnJx^saxWmY*6I;I}jezSd;uB#uL`oIRIqnxDhWR~9^;FDVq*U!J% zf>^udi*-!eCr&6()Q`nSr09Z{y}Ze1Qt4tr<2Lzk;}~i8-f>&}o zB&t$dQpL)P{MG=xohg8WkM01Wr>q)>eGt`l@2-VHOoD*{C4LFUz4sgg#q#;^pGmb! z8@asKjWcQJazFhWC23tPMDs==ytA>Jp7lp#XVW^>@-eFwwYG$ zlozutv;M|=hZu*`(AU-{jT}!pA}6l4XJcZU=8=8-z+@Ec4>1MR3_JdcA*e%9p&Y+` zfx4)3wD~k9;48`|={Stu!K{-ljHt3}v(eiNO<9pHS-yC@oiAC0LhF+`d!dNVTV~~$ z>i`r|j^77$tP%Wp71jYSrjA!G%Stj-<7=-79BlFzNy%$L+w8<~4VV zj)gz%fwjTL?K$`Yp&HyB#`^@+`~J<94sw1TlzkyPpMmP__w;Qg^4a~nNrR1fE|{;J zQO>8K`=hVe_-^#!_PJ-zyw6PbN{&)Eefbr&+0v5@E4>%X&pcP(rQcX(&c(Y2d67gv zSR0%c?FvS6#SvadXpbXLhHohItccQ8W6Sd!;pskmD+M@OYK;Pa;J~wQ?!Gl=2Cac& zYDo7Ml*Ty4SMxOZ9fbLCWmbp$Ql+iJ>2daQquT=HfZzEjj> zqjH?Qew%Hp6w7~4{9(^UQGQ>lj)ktHH1s}-ga&gz2v+?O%F_0beLah|)X|pv;aTA> z5ayQX*{)S4JPRAEjf>|M`8~)pt-bq3UrV5zk3XRK>df%&d0qyL?-*8<9X7Up+j;z(NU-90HBWKsA z)3jS*tbhZ(=G*q(I)!R!Q=QV(nee}TbhiSN_M`XG@V(HTZTf+%`>2xK70O1t>wI~c z?XxGKjug=1eY}DOzvorhjh~DCnlok-_53=NQCXTwk_DLZ1ZZV<=ufBqDG6vDwcoQ& zV=tVV8{{YGIz0wFD(H2ZeaX*dH>y)Svep`VlW{*A7j?3>=AMX#jGhy;EmujCf@8yDo1A{|x2%Ga5$&fRPMTvC-_7=Q|Zv8ay8 zGH<9CPj5yKzTc=H?K;@yT9s+Q&DI0iQxM>5PA~m2kn_~t#Ri=;Or%tw-GkpW??)4;RXMfAV@(J7r}#1!p)%V7D4kcd=h9V!>eK?k9hPUURWsEq zC%X4t|;suI#JkeZXJdQTAEgd;W0oH_+4);Lt+y$${Wy$K6;7`oo+m$d%#ag8=wyFHB58G$A-Al3Q84?2^ zD-$M%`}pkx0aC4BUdjuuMe~clzur~b0gB4gzev7bKNPTfQNlCK(+GiVWaZjy+T?Vo z>JcNZ0{g%dM&nm&7?MgvXfQ1@Z0Cy%4807f&2uf_?&xw-y}2y=q1O1A4lnE_xBwO{ zbo}r&Yq?;#@3MfcPrDvA@Tf++AMoup)|DTlIF5B($7w2$Cixd7mY zh6h!90RE5QF#H|8=!YMdW7`8vvs8S{_sF2ckL+VUDDRYZ&3ajvUblO?uh%XK`b*r4 zU#E-?)${6Pmf@p2!xsnm=7mZ0SkLg&Pz9*Gibc*Cd*7zLqIIn7auog+efCbU?ZDv- zxXL`seaMr|7j-~-m7m`6&Y&ZgXv6tjoz9QEvacmj$Y}OOfZKG`f zvBI@tSCIqMzQ1h{0lI(>uiKv$pH53Tom*aq&2Vu~smxs}gV%4G=0wXIXh5)>{~M!L zxZm&^CC>h9LY03IebHy>VSDgBcAvn=7ChNrt`>S0CPwkN_MY{=h^=n`Nq0H;qYPSh&LUT)Z#hPS)#Qd5HXghyLS+;&4y zWY~JI-?X^-YuRS9%?d;fCQAnh+eOU3WBt8U`fkGas1KyknF(HxX`|^{1Nm?-)i&q) ziqF$$PcLAz^DC=P#JRNI%{GpE2F7O)@mI6;i-{LnxVx;H3mJotJ)qnBnU|L&7v)z7 z-(!(AaKfRqTl#^Z4D2|0H<_Izg5|Da(B5CR3@bXdP_X(<%vUDr-)F^&Q^JfPKn zkVt4OFu@*QwhVlGjy`#|l5ZZU?6i)6_p7E*r;-5K1zfAod2Cd{>gEB_l3k7?%Rk(J zvCW?pB%dK7e?pb6y@4*Kh?0s-;}ih3C*Q?fg6cgG7E~pD7dQx<2oBTr0TWNzuTO*BDbShj}Ejy%bk%|L%!%L)%xvp2`zQbRmNr_GjvT4bdql^cs-zQ-X$%`*NK7xEcx9RY`t+WpqeXnB` zqvuxA+VaSub4>fqVqn8r-MPVwq8?=g4EbJDX~*B_ybt+yF|p4ZA4OPhHCS8EHGi5Z z5v8!fpyk-sok=;fR@#T3mhXy7A=^>=O;y3%GIy!cK(hgn1JRRTdz$i70j%-rTrX-g z!;@&ZdH(y<;^|9|>*w=oCXmZ`>JI|wL-#kmk{Z!~BN zhsHyIUC?q!MiqlBNcUo1GQE53tc;E=p`QbC_PT@mVWajMfFJ>MIG4hFfGARO3yd2J z1b0<_tBgP|x*%Yo(HNTKp(BvAV{8Xm!lq#W;`0kInjnhK-wGH!o4bDX007=apz6lX z3ME8w;lhDOcEylgFbgc}X#t-n$YP~e-kw{v) zpn*xK2y~El+r05|1DvzHc_i+S06aOzu_nF7SKa2NopEGiVo90K#Qj zoB^KZ8F8klCjTAjQ;&|>o7(DP$@zO57v|5NMBo2TC^(zSdaqRd?K9s8sBS3v&gf~o zaIX7(csk$Z4Qv_f-%Ce`3dr?)&QQmqvSs=CAVmEb9Ya7`-F$cC%Gqv^mLjE7Xb#{H zLlD#c)@sw=XB#?yj<%HZkM|scrcq^MiK~=RD_!ol5{(BMEAEA<^IK}by7I8FDKoq2p%||&>*mfY<)iTjh97P!-d#$=u)UTa zAns62S2a1bJ-T z(!B!RhR^uh9PX|DiB&Ej`r^Hno|A2X$LH-U{YGc_cH8cQw2mE^r9rEvQ{~$jDLksw z;-1z%HE@pFd|N$y`kJ$|k6YI0`l=j1Pg4wDZ``;yLWn)v`?j|Ar>z{Ao10EFgb{l{2sq|Z6r8V1K!Hc8a-YsnBp}eKQIk)F= zav*C9b6ej3!~!ICievqSd*7((Zn{zo>W^bUShb32^(rg$20r+YoSnbbk@qwnh2{WQ zB)6?^b1Y&HhQuE-1U^6EX|fWvO>CjE=)p$D2GZaC$c}lj_CO@<71)K=D^BwEWwAnk zv-*oC?}tjQSxb%S(1F0AfBQ1^safo79@g3*H^E`a5r01aEodxd4IX{lsx?6qSUW5S zd0M%!h2v}oSV51D-OtKBs9cMtgk354y=Hq>N}EqTGp`bn>^Z*y{&;Y*Tsf3B z2AdF{yaKkS@SS4eKwJk3PbCKEag_h*t2pQQQBSIuNR{S$oX*W z$vUL|c}v`EN5C#ekS;PZ@>OA>_`X}{tC&w1%Ia^lLqAa^`u2;zU;$T4@ zIgpfocJq^$Mn&1y3~&s7+-r!zWd&$?-niLr)9{CrKX|oMUZZo1lMqjS)ap`g@J&V5 zgeh$_Fp$GcTTsdX$;g69k(Jf}`Xq&;AO2FlA9xrIu9^#gkhJ-o37c!+rR?jifZsLpWbmZk?8 zuwuOq`T3aCue_VN(`E)PNJ;bLbpEpB)0fU?DEO8-&uibKirowY5d{<>zABxxK`bW@ z%>M2^r`HQ_Ep*{YNlJ?Y`ZsJoG&x6nETS&+!VT)#2_vl(XVtjt<6wOslb6A@+J1ND z2gC^H77fGYpK3;w%)MpE~*N#>eJ$m{bjIirfCJhgC z7dJtJ)tCl%S&A6Y!O%aRm|RpN4l(qI=Q3vu4*e4ctg`jW&2+BMe6-%c=egN!#U1Nb zqH1+`X{DiZyO68Cw|{vCSQ)o=s*Q$-9E@G>1AdSH`=5eLxLT%|Yvg$+`O*5YFJt7c z{^ZAGJ|D2NHQSHiN6ex{Ij}rru#0Z+sz15S)y5U3dZt_ILuUN?bp7}J8whMCxO9>w z=<-d{^TZkoecu8)#Gvevp=vIX`lB;NtQlD!Up6N*tB)txu-S%gf`tiYyZ`RdD5$#b zeo}ch)}$*5^zzQ*7NkcXPj)gu9c}i%&S)^pA4U+5iUJqAAM>wyg;HcdKkt`b2IQ1e z`Rgn<6HPtsl2kqd_j+xJCf&E<6x~6xA9AY;L1M+W?{krB)eM*5S`@^;LFR;J^BU7F zxmDADhojp{_q%LdDK`avgfpx1eZuH7Pz9ZDWxxF8%u_)}ih#}hL!n4rT(c7i&d*9 z^TrB_i)H7;R={iJ`rY3bCtw2iulc%Hd0}-0P#Vf0O6mTdVrlnkXam4MF_HT+oY`|f zbB7DG)rD>g%MTK(zmDs8b$MNnjdQgJe)R3RP>OGB;b-?{Fz~ZkBZD25E76D3)V+z4}GUtpHW*n?>&8+pE=LCW2ZKyZ!#{6Ps_pRaeSszL>vteZ5q(Fi6NFfmr^8L9 z^2g-4d2Q^$tyqu~s9mtgz#CRJ0DkZ$hIMmKkSyG5E_Ghgs101U_#%2&oFAbd7U3!6wzwdla7k(EM970dQWp-3Sglf@P z&$bgFL8^v-%PWqp)&;qGZM?T>0s%(SY$*M%*1b2DU+B0$(Z4>>%?wH6N<2D>n0}+< zqck+c=^N`^z^B{B4`b1*X5_K*wY(|hiN2ra619=h1Dnt3ZEhRgKPa_U_>(<)9Ivw@V~W=aB8Tld)SLXO1TkU!`y#5AjV~4cC6WjXSGIWs9Sf{p z+KlFRDeC9(ZG>OdL$I2J&;Be%{K;t%^)o1&W|cM19s#o3Zj5&OtBdY={O2gNvhjaw z=~*hy#G3h>*kLY%EI!bZ9Ygg5K9OjB_v2a&jU~R;-7NvT_udPhUk}tc_;CmfX@EPi zw2fc3Shak$i}cq;25HXLVsP7}U+yzM!pmK}-=85}-&x~kB&+)RU{;}J#ac}m%195evk>dJq>%S{n1FHSx?%(uRaGtRi7T77reG}TS z#NC2P5*+wXo{K3>Rwd7bzx3R?8uQwHhb=laEE#j_-phuNXnpxSI_FPc-wq1Ht|Z!p zn|q$m?>ZM#aP-tIStuNf%fpT$2lYRDON#w4z9;#$H2OKfw!9lFP8@?S=CgIOkn}3d z%-~cVGN&%6H`R_u@3~?`ahY8k@gQfi&bIc#=vI08dkCOHa9b3h0q*Po+5v26o2?(_Ob-f--*;o8_u{+B1OYMtWDk!UJQY5!iMp{hNEQT_-=btBnU>nzUeDzc=~Y zwE&y(BrwIU++Ms?zH5u1-mN>!=KWTlc(g%g^$4sgvi)!ro~BXZB(W2;ta^}ZPMVY1 zp)vAq%gKvLB!rN|te}_&VMYH=h>IZ=B1RXbKb!RifEX(smWAr+g;FweK-b>~BYJ!Pkx$x?i~IqORrKXvSs7?^A433N=ON} zhZG!X_%9K=*U%cVZcqN20Gf)xo$sEQ1lb*xyiNlyZ2?e5DP6hR;oIvP=6<52<8zZ( z{kRNz4K9GTazLLG4hQ#4=R4wRRxLa>PWJNxl-a_plEucZ`)p&%tlEq{K;NtaX5Hrj zyhX#bhd}VDF_kPaHL^$id3%g|B$K)~zVN5l;_d)d&vxJ2BSpd`qhn-)>xSm(51DPj z1JF(ytd}lSlu35+3Dydr5LxJL*-YaA?H+>I+zphKNw+z58mVkGtbO7$+6 zgbrKCBi1xjDr!QWqWS~=F9ZCT@VsBFi)?7Oo~gNr#z#H$`z(eaXNl3OYbAv z^p8MSM_a^z?4o-=-9kjRIJK|b&ZWz@-Ms%|_Uk*(-OiUIY{rGP%B{=6aeNp?dlk?T zIz{awfa$FYn&+UPpJ_E4YAee}S$v&g#jZV3Qd%4?6Z+m=my6VXIe(oBunk~2f_cBk z=tcXme_gWG{XB=@O$AF1tx#ztK^?Q@mx59frbo2Xtqp^o>J_`SC9EocD0+AU2aBfwL zUSNzUC0&jse6WzBHJDc$GZ|p8qbWpoKz6D4AzHkf&IVn=R4-t!T0y(_>1IV8qTloF zI%4#8tX;HlJRsikS?fI6Eby+Yyi&F}U#7dAlAL&98+|p{{7PnOS_EFB8n91bDui>;)%%cY|$T z+Bwt!aLXUsw_zN?ME)1d^E~_?pjuSj2y*xAX@_^$aGB?q1m#mT&Dig70lT=$>x6`&E%H4 zPvq3^85g~Ht~N{M`e=X|ryqG5P`D=vNlG-+x3}#9=_3OXj#J2&icaZ(MQw=O%Sszs zvs$97WbwD4$lzUD>}>3Ep?9Z7Z86w6g;gO`^Nj>JVf*jj3_4gr`U(q67nyyRmYmP~ zo$?Jv_h(1W`kNzDD(T~b{Y|kCo~eUA-WBe+96Z*_uoSl3g?%4UMI3L{d;0X;peQ|(w4u+`>q?dEnxx~E;j76>mf_p zE`Vi(&i45G{K)2jX}KyI){lDm&g5N+=?=8r4HWKuN!jwT7Ke0L?kL$B>fCSj?K1ky zw#i3Fx9<(WA}4jFLcu2T77NzqUJuN!3Q*RI6X1@h1$KAcj|y~InEW{4ZM#DVm4DZ} zF4M=$9l4aI7aw~y(uq`T^loDYP{C)?LS6*iDt6^$c?JBG>8{cdZ<>7vy6v*pg)(2? zm$waAdI9~l@FJV*XKii|yA?S3(Ivr-UweGV|82o8x?DGZSHl7zOu#U1d--Ir*p2=m zIQp>mt)RNdK02-eHk3HDE|XUp%tH~Zq>p|>3;rHrp?QD(S}It0-@+-4wuLB^v7k!)zArOrA;@9pCA^WioW7VdC- zW}HD4YIfI3_vrLYa3P}v4Qv?`fUEcpzrqQukCrHfk@d=O^IoXcTS3?YeI7E=J{cKr zd4B}1AS}c^yWeMKlDqcpK+R6tTP4ivH6k8X58Z~(f#2=i>f`TYTmM_qSdUr407LMS z)-x*Ndj#aF|Hn48^DhS7_f)M{~a%HzQSMkn-A5j zH~@|0%p>%>!Vc8E0C6pqmfh3z+)W>Fq7l~d6l>SP#pt`^!Rzq*gO4vjC>*~fZKGIP zwOf@{ka9@&oyw`^TjxFSx!0Gm=e57jCpf!)dfzMtHOjTN;I|UU`ee0L@61kLj})Dn z)TMQ4OV8&mwcU5lvt0N%bD(W^-Zb6wuC@-o4oHubR4m2kiFqt|TFnVZ$$S)!g1WG+ z*u;!;s-0;BCZ`+9{S!fXvwmzseX7WRJHxtLlek`IHNT2Xg*gyGN57N@7l0C{R+SbR z0-Mo#n{dG7kjA6s_%AMpbfLm>uK~n%tL%mmtIPX?A7++~Q1uSw?rwg(y8qg0Y1CBc z%I(5mfUR-3R^U&et@yn>%j3>+)r|cYB$b^aGn}t`<61QOyJ|N^1&8p9=fA@5olNFe z%lUYJxZTQ!mRuIZh!?ni&23}9mDcFY>;O{L_H|KdCFZCD7i*JjuRxeo{!6HItlbMdg*UgdAci+a}wO7 zb-#?&%5 z3KY#$9RbPa?GRuB?;fZ)n9KX|d-1yoQX`vMyA?{g)Q6Z^gDMHY*Hia*$T~Rm!svS2 ze;eY48-EWhKs0ueCWp<&W9zCqvzHY*Z(@F10F-}69}-+2it7IJW!+>He8+&wX(IL2 zJ~8%l!!69lnYeMg&b@ zz=h^<>2BY3=>%ubi^uLa?NxN_=qG}`UfDWkzG?W?nhm}ePymeGaswi_w?ASF-cy__ zyRLM`)8h`|V2K;FkFA{C0k=$92#$I!CI{FqB*SI3b^22+7r53o?5rz8!qVca$5!#< z_h;&Rwx-s>EL4%prxJr0$+KXwvD z9=-J4DM7xmnfuDRodFR(=M}ChJ?p#oWTG@aI(VL9g*wrG>(`YKv!?)Ed2>I7u1KY@ z&Hr|4%Y*@B`b5U^%%(Y{N}jITe9Q?GAljb%RR)^*cx?FE<+EcR>*eH9=h z95&wZK|I*<9ez|C@f8A2-<*g?*yP)y8q(#DJKml7jQe#6WuuA zYzwJC<;>{Yr|zEKpDSpj?tq*tL}{MDq^`b10pISgy5qt4B&|IDrn6!i&!$;Duu(={ zw2Z;-NJAOTS&mU?mKNP*_Bk%a+21J85fd}|$j7!*xn0GBmW1Sh!(G1SAnajn|Bl9t zoa~2;BXe~KZCv{u@>43;nnKxkoZzYm+>QSDP!V7RS|1)f%nV;a5M#%}&|}(Fjv6)vVS~I3vxRM}gQ^ zU-ExJ%*^KY96g<;fCO&gz1913SJ$h1B}pZ5mu-t)@tK?9pSI_{WxW}FFoi2W>iXr$ ziM*w@2Wo!dpL2e8iN;Xei&&Msr%%z;-{2I~;>_nx)iQRHf)*9PMf;0TuGc0Ha}^HO zIL24v!Tb)oFL`h>ubg2*0EHLipJtDzsD?oYbN#oz$R`|_cV|xiDe>JZNevwbjLeL` zqlJGmuCX6h2pT!RoXcl&W1)xicrBM~lkWHc%?XnntT1Hv{vFvbIy7%|%_ey~rD1-y zi!HJ;X0n<4iN#X_0DW`<7+p{;`*us?o`-bwyX&W={)OqJ(}PDAYai5&8~}Bf_{pw| z;{@JnVeYdW37u@pZv9WNNT1au)cih(k+#6$)_llD^}5=GSKz)%+BwMnTRtj9}jv(ht9Oe6A-}XFey~)se+Lwsyxrx5e zW&ufV2driHUh%zr-#vtHXLc4*4D4#NsOSIeC@xo_O1Cta7gGH%ckx@2?vij{PkkIv z@(@)$obM%v=&Ua2uHar@_a4Sf5_l0kE33pB>=69ktw3@0VhksP@)IW9N-3x2A9t;$ zP33Q_rsxLr(@TCy^WSdQ2rG5&CgM*j=#k@Y?Ck;ii3azJ#_i%cjj9D~bocgSpWRZ~ zJa<0rS_E9)Qa6E1bE@1PcpET`Vd%eKzuHYe9~ju%ifd0|dK>798nt1deQNG*umob= z-{S?A)tQbHSU;!dAAd353qNlIfXer4lz*)C#5?Aj{Z-C1DJbT5C;)fB!fIWYtL8rG zHd>`wS);_#U-@ll4e&`FHxK(KG?XMhU2{WZ8>dYK7*FvEdwDao>7da6SE&p3ywijJ z!0iaR{;h~YlhvnOlPMa7!+Rtq)!uWtd%kgca~pfbmI5!%HeHtUR_O-eKqjqQ8xEn} z{9Uj9i>F>!#s0is7;6nAUDEj`UxR!-z?^7Ra&rJI@ypwaU#-$O4m4Q;iTxF5#h5#x zfR_*J@+~b3Ef(}Nx4;|1!c$E+d|caTm9t2`vn~%ZoQ9l@rVEfJXB*5}_5oK-{s8|e zwK|9ow>$c?-mm6u<=9#!R-V$!EEn>gYKuCH?fl8x+?X|xU1`yOLiV7C$n*W$LHcrj zYgW3E*<2oZ{b#R_Gldu?bwFu(X4IXT!rN?4wGU5SDhSG}E>^L9#rP|RL*>RU%0(M` z%=Uqhweb*$X`4oC^K<@wO3HR;cqc8}NHkYQk1gw+H|hF*09p?sq3g$65|sy|OlbZV zD#V%1FRaj=qmqDUDx8fh{{ZZ>}-zY3^~N z8-M2jg_g3?(N=(#8?S(*!Njg(O2GZy;1*WSQUeq^_P&Z1nzf$zk=aXWc7JMvw*F0@ z#!}zbmLuQ@CRwl~L0^@+c?ySM`SN_$n-6fWX{-H;@oCJ#7~%RuFF1T2Vs8KBjUyZ7 zj(rS8FXCPJZXg^bl1sO;6`6T`1X{~Szy&U>gQpL+qixQrmUo>^6GTer9)T~`S-~u! z(^17aF1)TY7?jo-^zV!GrTJIREh4XX`F7^p_gmSK@(L@NWUn%Bc3J7@EeDC|K7rn( zhj$1A`Ad>x^*4K`mkT&Q?5794Xbg+XE45eq1AlPiZ*g970J@u_RrD~%Noj4o0Jw1( zD@MTbonyb5F(v?>pv~jM^5#gqXy~wJHj~ z&~g#5Z9Yk-_C4T;6_uvUw{#D1=+Xt%9rlbpyZWwXuzfxTkH>?{oqOd=^kCI3+7%)m zWM;?5@?^AHRQU;h%y6=Knn#+}-}(?qOY6&F)KkxI!s6WLHKA_f+2jF26T}fe4`+v2 zBCcYmQ_=nc7niyc{lrzQdGD`F_G~*Hf;8-|%h#M}^Mb3{9U-L6?=?LdMEs~9663-1 z;iKAHTf90?fsWu4J*{ntXR)x5ZTg+jXm^B|OcfOc}@L@j^q^5{SYPUR_s(u)!SK=Gtm z8YkQC5HvxXQd`v$14zG^<^mC-{$k{Qkog&W`}$7^+$PRVyYC_OEIyN;Foq$L9Xm^@^|91x=n7{q_m;>({2W#T0KU>vtLoERG1czrtm1< zac~UfdL>cKDSK*#OsFoEwnbd)rN^5#;Y)AeBMaZj-RXWO z5o?)S2)0(#v$C7~uH|)%qSCZ>9mZ9wy#-oCcMq6Nv#U}!K^ta#5-ot9u21nvZT;9! zKJ(L(_f;Qq$=9_2iv4H4kaSu>k44f)=j+I$=Qr37l;lTLU{mn(Y3NYZ6N}uY-OHdy zp30vcyVS(^3C#;6f6Cg$R<~OyZ-@M7VyXTnuUw*M!L15l!#nSs3ils(;tQ0?nm#6% z#Og1$k`frV^|_n~v`M5`GMZ@!b-CM_W(7A zemE~wmw9Qfy~ce%*lr*!x@Fu5I;bUNlc^1KmyD`*Z(_q12Nz?wPa&g@cm_*3*u5EX!`5BbOp+ZOp*V^A%skYb8-m47YvsDQU*VRvVjuJzA zJgM%Qg~&S!o_GXsZ2iqWKqpBcxTVSsxIWhpVOL9Nr9C-M^@ryw1=I2l=0|UYClr1*muVr}e1avfD18 zT#DPin!jKZX|pvvH7I@D@ltE0B2uZa0EKC|kuvrMY9{+k#4Nw;erDFmjjtCO?zq?k=g_1ejoH{td|E)Whh#i99o1Rt}*0KM#S30(J{7R&AL z>novekAEOz!*)0C5WGl84}N=io}6c8A0A&piFc$C64UXa`^0>@?S^A-?8|I2!U=jc zFs9tTcOU}@jYaG8Eo{}_Bl#a= z=h3Vx8%60k|3bxx5(F_J5)7cA0*V+=6hy@YhX3FD+^@TS5{$@bt~1vyYJAQ?Y<`|t_a@lsnDl7W?!F|@-dvqv&+y_gklEtPMcKe{XMjDEmy0UK)cLD2v)mv zUR?rhkzN23$6oIA2RM zUC8-CyN|-#dS+sCQR5_5dajW0t1J;T*PvOWx;M;;3dPJQ_NrK7wq(<=5@&dfBr07WheBKsq>`4|9K%$54R*sFeXd(n~w}_ksNkJj`$lf{{Wl|H<#8TZHKS|GKpz?0@U%4vzv6SAL>!$5I z`(<9`L;dxWkE<{AFCz3qccN)psq2~CVG(%~%uDYZlR3{m&Zjxu8k~{?&`vYyyEJ2n ztNbi+lTjJG_od@Rj9Rf5MuUNtLxwF0JP|zFx z8WF&7eh{$!Q3~VjeftrIwektso)x{}zV?-=-P=KWC;clV(oFBwUy4^xcYZ{#B%kEu zvxw}>rMcO>^VgY+LOgS4m7RTmgCpXyz*myARI2 z#dvI`vECf=zpc|WSFeYFqukHewQoa!j&=qi7*a?JcTt)4{dbz#O-Zb;eIH~m05V3l z)V&?G{I)*XzP$n40hSJ`%GcVmNp`cY?cj?!ut5slM;XOioXn=M4Biy&-i~$-*#u(69d0 zbJTv}d*u}EH~$K!k;2Md18|3o{Ms^xR6FNJHYomQr_;`>IcJ%e-rvRCMtQ% zB#kX=-O<^1&4a7^k5OkSZKa$lF7qey;TpwD7gDrODBE>63&f{;i;n}^Om(^n5+i+y zHx^+sbeK_OX^4Z6o;$w|P-21m>K8zC+7FoBRze(+3p(C-7N|1c|*IQ}a+dlL4 zC$(s%el@$%Q%WQCn7Ji*xFtQ#&y6Yb+&wh6t+wuzn#AT^KI!`paa^oR$kXVETPM?M zuFxK&>|s?YF5d4U)Lh-LntZ;%oM~l%K^JEI zC|_!6voR&FE3$nade1!FkSgKPOUjiDBjHjJTInfRwOPu3@~idy*1i@e&68ETu-0oI zB5}QX>iGb?yp6$e6&{pi_f-}jv|TeAUWi7a1_|v+k8i9r;@_5#g09S(86a2CtlEU zCC3^!LLOR1ozcIkKfro#CMPulj7y&`cI#k@CC5B==`mifG;wYmo!ZXv29Cn9XI?5- zRxS%;Cn6E3+=}0vg}+5dodN7}{gD!Fme-VXt8-;LUbc(Jfw|)RN3Z9%a-N>|d+YEs zN!NgI-mJ4UG70$RN$2u62vfwcWJU;>s6&;1$6YHM!}}wl8%%NIw@cvg^H*d!9?IE~cl%Th{Hja1jOdV>LA<%a^CJn$fGm%%w>8oTv*l%ONS z8fBMM{)k%@^ybcbtHWW?<^U0c)I%|xJ4?|TKtw9n7pu@wD$4!jTwJ9M+PsWZ$Q@=} z;D9vMFvZ;G=uVxJ`3Eb*uy`E!7>P^xVJDqSSGwht7II$9TyN5)IfsBDgR+)ZyCIKW z>6{0ie4^hn&pG|H8?N{gq^vd*qQ*3F~vX*;bW4HCvU4*CKyS1(Vk?uxrn= z9)6%}@vCG&cT)0edxajS^wa=mo!jNAFI|dwg!)t=k^l%ukAr+`wqIMe7p`%8M>W%R z`dI?f?*dv}yUO)9!F$1|O>32`=e&>4^h4KFe%wZ$wd&_wNEr{ZE{@uZ1s|ZVKpdq% zqgS@ajQClsJ#PgnHOfyvkGOeP^XEAl%j__u_Tu2OGZ6EQ@9fuygyiaqV0?HE(0p5m zUIyx>);VV4$?%e|7l*jMsV~_}evk6bO-IGqZp1CF^Y^ii%soM_Ky)^QdaLb;aQP*< ztXRG#g1*RG{b2>duv_NmYM7TEClLxi;jin-aGMeq?_*0jk}N{mTfD=m!|QHWV>kRN zLWVx&!#HH>+n{@Y`-Ogb99n?as5Dy0*>lonp|;qF#}0Mg zxvD(huxXBYR8x~R%|80cun|I)l>erc$&IFZH=e9P5n_E0!K1aS!7ZuTC8&!+ya1%z z8d3kb;t!c~=*k3(_b&X4TE?6Bo(R8N_B`k6dhRrpZ+LZFZm6Y~+(TY=lyAHBQX>g4!(MxaP7)wLWdzh193Tb4g&Gn;+g*HYq)^5alU zBSM4HFwqC~xj5FJE(KXwCmWm0h1+eOXV=xak)_mD$&uaiyA)E5U-1N3v{5KX5zr*F zyA6`=AC+5@{^YXrc58S$esO4tQ&0-#*P9%colY9#?QIs;jH6oy`w7O+AdaxtwvO@3 zz^mL9bU{t0b$O;R$eW+zSkjdJLzmn2DmpO!W|`jJ*J}`tn=L!xZuB)S!Y94-TOI|P zyIGEx8kHN+0;%sRpWhF{OS#PMFCS*Ltzr+e+{0;!Y?0qxzMUg3D;wjBB4{_7D<)#B zd~?R;#+7rp9v}`DuEq1{%rg?>h80Uo(^H6IwqRnE7KQD(0HT;tsip6n-z>%GSUMXY zUg-X!?CsS-Qd2#oed&(nG}Ep-jm!i)#_t21jeVgHZGwWC%p|cazBHkVG0(qjJv@D; z8Hh@|7y372!tdRD1v%@z%3eu>>-^L|T>7f;!esiCBLO_sl=z0)V(@vb)}WfGz~=f; z5;z*X5l>#uHD4yv@}h{Wn&2nRxu4XvzTN1b-KK2U))mN?tHp=X^A=p&)ma%Z{&3Z~ zyhHENu+tR8aw`upwcK4!xfgOc3w*%z(%ho=x|CCDcWj^TyE&VAv+FQFF;2>&{qEkP z+{1NMg3Zr2om1O5NB+PAP^y)V5anEaQXxEj=J;ac3peuk=e4A6(bb#9i`4Q?Kgq&% zAfNl`aB`0NC#l@7COgB5Fpt2P*r8u{tJ?Qv_nd4Km*r08VI!uVN%06(|+OO@IMhg624N znNz@7BVAXQ(#4uf42s6wQHx#aI*B~52V6{$w^k6fAcsp?FZyaTHzCJCLx>)4nz3(w zgZ{{s)MZi6AJ_UrBui)T-JkW9UA3JNvsYeRm-K!LwPe(>+Quhl}_X?;tqhN9+TypRB&p38M2m_ z-P^9^hMZxg^^w)_rh`!aUK*9^e1DF+#l=v67BV&T=Nq?`7(uT6oo2O%&-Wl~{IjnW zmv{l}RY9l8Ed-5jS&n|$EfUBVoz8_YDVqE}84kF2<9R58e1G_>Bg%7B5SG%i-yvQ% zZ9It4^0Y7q>4nfto$F(5XfU19VT^aLC5^CN5v0gp_vHY}2qH1+)1v?(YB@YQ)x1oQ zM$7Mr_sp_sA3EFoboULk3(kOYrVkY*7@3u_8%ze@F(8pSW5aI8qj+5vk>oR~F5^z6 zQrjl@X|z{BsJSD*T<=qM)756hFSS~m{<|?2?M?a>`W~l_qLuAyMBlIyMKe|3xMnk}Vu#*ZgXdfr1ty`sATj@KP4<5%`<}Z+Hs?l|dM*Iah zSC5u`+Ns)Y{XD=Cv?*8SUasOV-J-SC-2=c0lU++py*NBc8T2Ae+p zra_al*rR3hu+DTEAH0L97mpO4vCgTLUEz79YiP&gYNs}o?V{B<8Wrx4MqbKvNcRbt zyG7Fwzeoel{9$hxOiav}ju_hPI&>lcOVFC9=&zc^YJ3^0pv6K50Sm#p_dQvKEr_s5u4m#)xxcx6)Q|@5IjAZSZw0YtE7y(#j zDv992lJ=Iq5n@EPO119E+sj>?S>{euX5ZbdQa$bm;4AWK+uzBMrXM)gnk(*P;nm>1 zNxLhMAIs7@`!zRhB6a!MJCDEE2Z zQ2ALjMieQfx`lP0-d#or=;J>ln%_U}Y+en7N|_$~veWkL)bad8^MCx+rvY-4Q!9b~ z+2)^oZCc@Y81AL>uqT-a!lCm~W7^XK(`iQ>&xrItvJjTdt^( z)TnmL%bhB`ylqYkR|smzkM#Q+8ARj&wiO2)(T?qHn=N@1jFNu2snzM>%{A}a$+!`j zqxpR2fxlB6e-G(RYT8bj)v*1%&7hj3uVT13HeGs;_ARFKyW6d|TUfP?>9%+A0+cKQ z$fP5VF28+euSjj;Nz1=3+M^d(WzL};qyUl^7ub@F)bUycx3_yy_1yP{H<~-E#U3D8 zj%somKE5&OXW-|fmL;#M)%P%1hyw7D@-kA?;^%r{&$j69n(bXGX_cZI(oQi>`BqqECi)OzF_NUArzFw~tN?12b-mY4UXgk7mjb0a%) z14u`?Pwm`pVE4HOrMzV?KKHxT!HTJL`?>q+rO+BOFZKE2!M}-0W`8E_`D=Z!ui2Y$ z4XI~EBg9{CYMw`Tf1AO)o-{g8GYWc3?`+;2k*i&7qloR)fJ(cil6$t;X6N0|_6ehg@U38DVBfUKb`KSa<6w971_E=GiaF6UG)7~L9ub`1VXE7B_yaQu1 zzq`79aobfcGwR{lbX-u!Sx9GIrYk zQi9*4lobhSTl-%%0f02S%C`{Bgt^8Ghe_&6q=cSfy*Q?NHSzkSoDlm|R#LQP6o)!#z7B$0nNmzEEM|c_|OqDED>>_uwH9jE!%y35T-`PD2wSyBT8*gwwmI)O`uYifa)waXgR-AyYEyG zb{G$dV_?1KMENAgJz*xzV(Jls5p9do0zICvquB^Db+;@jmM+CvHSX6hXvOuf@>F+grBm4+&Yeb4 z?)B_U+}^8s!M(&l;)++TYWWJ(yY4%yoeDND@78sij}xicyKcTY zV29~kNv1IRl}}$%)B*t!LA>x(((JA^om{ zt&kK^Rm%0VgKu%LU)vWG0Ug_(9EA;OTFFS)(X#4jdmtH35`0nUEOaQl%SXU~wKoe; zX`krytXU{qu1l@T@t%Y#HIIzXYr%6yAdt$I3OC|3*kPU`E|&tgFE~&527cIl^;g>a z3~XgHyWsPeqhru>tMl&JDtKBEH<#!3LMQAKGJ9%V&{p-e)<(y7T_(q^QLnlPXdE&# zs3n_w;gRy$TQBW0z2~hud++8T%@rAiEQS-i-yz>_^*7P*F~aM>i@N38#jfxz7M4Gi z4jeo6^0k<)G_%+UQY>?`p_#eu$FJ0LiX4yYXY)}<7g_;tPdjb(#BbHqQ?Eor>nlFt zXf72&_NWZAPCX$|_Lv=&;PB=`X!IU4H>n3ghaYyJIP7My8f#Y8*D=On3z( zq2|$|^h+Sp+uY@Y8U~VYwJeQR?AoDuNVq8%eqj|McES+TaxQtq2hCc;L%h#1Yv=2Y?n#1khvgk$IZjc7gUCo}MLq5XH7gFAhFX=^UF7(C7Bu-IY5# zn{L+T_OV7|Z?WQEFU$%}8=Z!BW512`2!s1i6ecyH#+Jbe8^AHezmtE2 z{%1I+;Gbp5cgm9#{G&hpV^vqw)EB6xdjVz24!!BrTVwNrV3tmw@BDjP&0Q8pc*`5G z)jP$Tsyv*J)>J$o5M8#J!D@?Ty8aZf_N{6zPs5L~T+(I((%50Y$R-2SWBq)~8Xhr2 zgz(*7_wbZT_|r-o!_R5~My2a;R{hbvR7Dk-)bGxj?B>Ue%&dqZ^NQs?&_>?px+@5A zuQ0DZR6>opG#}{|S1OeXzx32QDdRD@JM}j`Vck^r!>;Szw(}_w_4>$mLH5#gHp>m? z!ESVBW&aMGjQ4G^pVDiAnq{V))Vozsp~`5Ml!japMgP2}^a|a7ZQ%?+LzX(FlLI0Z zT#4oEA#HzNk`Y*YR^1^K~@8Im6TnwNJkE=F`*Z*i#U*k}ssF z{j#W*DiBcCUWaPgv=p!3^A84q9D8q!)1bFZjReS+*J{I$BFQagrhDH{D?h+0$liZ* z*}ie>Y15th9BdMw$d@k)Gj_g3Yvny~J-k%(+i&=G<3#*WZ_1oDbuio?!=OY%UNzE~ zjSf?^veu*KqK`$}E4}KMN6VL!VE6J~%0VR8q-k`r_d5WExFd7e()@rob{(|(UFVqO z&l&yZv4L|*aY{-&sN;7-g6n5+R+Rab%)|;mGlKhwNjIy9`e5D_ca=v!om8TTX79(% zd7>lQD%s_XN3y_)q)wLv|BBs`=9H?5XOUN~?mhboHyej}Iv%86+@7<^X;A2nrlL=k zARjC~BhPXzU41U5#x1Qv0O?Y7D2G1r;2?;1i;1I*=}~f|AEJ}n$Q7(R#4x?YF0IZ4 z%*yPlKPC|g-4JCCcrHB{2#;xaH^e440H)_dTdTzX^Hbw|{`F{{sB*LihmMH}V;L6v<9w2Ex25_o6E#5UX0q1G-7adv|# z`mCLV-ug{-3rbYGy!T`kESQi=dLKQU$@yTy$lyzYt!4PjsbW%ZLFXNpTXUHe2#8nt+Y-Jnm>SZCBM^CoUBbF9HfaW z4@uw##AF~uw)Z-ljl3=#(o*eeMy;1$9UIiEi%~o2p!-E>Iqm}w=v!8A>aKiGS$cGv zZH@ZuMwI#lhM4MSBJW>^HC!tIt=Cqv^T+C|o|kg8w>YJw7ouC!$&W$b+X4l(+r3Ef zWqXo?cRsjYGByr`eEh~%`*Ib>jp4Ik?t2rN*jCyqBdOP0QSr%YXdo7CI)RlIIL{3C6551F3de2jF8nqXCMQ*Ar`3$e@M!CNs48#f#x3LdN)~o{G zL@=YW*~+}g=@mbY?`1?K+x_E?6mDY}Tii`}LS*n?p-w8k)p3Dy>+9oK)-JPSxIUBC zGmS06tkR~%+o;{M7wuFLX^z_W?YjI`4~>#)rQbSaT|9s0C!nEi3d?dW9;4jQ+fMOg zFn1gK`lUZyPg8=vO9^)V5LOUj)1UOu*$sqEs}P9flTt~8_*xVgfMdV4oKlfs*927A zNZvc2mHfiB`zCw8^w+u_pZEN)hqSt#R!vFvHCWu8nwaD6~SwJ78+D4>A$1CXkMh2pUe!@9tKB5ge!-xPQ^vdeVwFywo{ceMrAg>N<@Z%TD_33Ce&bE zS$^_-(GLz+;QMxN(BHkSP&;nXRZm2YXLn!dwuR2ZT}(?|-LPN66hG+YLU-JF(Py?3N7FX*xqgGzx5YKpwNYZ>m$J+2N538Fb`_CvEu2FUz0L@R|Rqb;tm!m<426cer*V+lemFmxX7^ zPG)o_HV$*iBHV0wE7nKX{qUMu{!*rO=snBRdR^SjViA-5)njQm$USz9U*WB|hI$wu z492+XxYt_EG6W<`}*IKh1_#Q!;nMg_morf zm^h`bH}FWVoJsM%@1VXCe1}XTRX(u2qm9R?UMh5_25+9Nce%k7cBMSB>uxqfdjf>$ zwt{9wm^&w6-k=q+cq8YUQ43Bps$UIt#qCMTnG7z0mAb^I`_Bxp#>bySjr5x<)q!q+ zFDrU{#4b&!g66Mj^bwqe9K?ZWD){B``h8b46A+N%FL%dKoxWADw@ZT zfxlTUvg7sIXkg?_$pquR!n#hoG_OOsomg9^g2n2>xH7P*=|F|qC-CjEaU=kx(9h{} z9hqQ2ZBw7gvm@__vOCVDbJHcI-uC&kG-0>KGIJR?_k6KE&PdqvIX=zDX?J;lytMqq z)M}7xZ=Q=`+BQ?w47tfwWOKf%#7cl_XSOlH(Bsy|*icA|TU8)MH`d1Upburo;9j2g2*ZZ%T}^O3|v^+iP!O@3xFq|9+@rE!8^G z&F7$c*FbGIY-QJ%OltH(o)5owXc~Fw&5}cD+89@>bNoQWaz?%!hbz!h7qccG#f|ax zXHbE6Sy0h_!JczYWHki{i1Crtdi@y$UO0TI_m05a5`9lbGHrM0wOZXWRp<9QcJ}Js z0O_`t92Z3A#ateZaeCQ6lil`c0Hr@MmwVt|mHN4{aR$P~d{G^z_^bHh-)HdjSLvXH zM+eF(`lqU}pE{W4HLkb%jXM{A_N|Dt#Vk4%4|EMwIe`y$5`pg@zRb>X!C-N!4R2f= zDZ6{nerBJF!IIg6(2FM-{7~JY^)+u@k!tU?RNj-=0DCoIdRZ|^3+v+4wH2CF@&t5C;p`e)pGgr?|Fje6UadS=krJ)oxM)R z>4#E#)9K979Ri~M^K4kv^q)^n(@~w`&=u8=EaUUUg_rf6tmy55I+iQLtuxkG854#h z_*)n6i~nTOwzY-KsIn2xLrXa|kYiR_Enln|P0a1#oR`|xa!@U;`LFM{9<_|sM7_^T)${8sI=NuaNHc-?d(A6t~rT6sBa zvYSOlH1Mo<>-i`(m*`El{=UvvU#PMax%M-ULZZs;GN?6;cV`QMDWeAcbH9+(RodWj zakKaA#pGzCjcrxwfF@4VnzuXIjva8kHdA2Tfk@00qPOv|xBndX2EC5V?!QH^A53n_ zQp~);5{m88vEa&Z^dPeQ{3`TTFk#?)?UsYDg(g7*M%10@^f7z)Hu;y@Ol&&qb<&(i zJjqW|inqq<99XX}<|~kaj^-==Adwwt8=QxL$dCs_yM!^;DjnQ^|(pak-REJ2n^yw^He%LRbF(3Bv zBS^2|*R5T~I#0&^!4l5KJ*WoDztn1K>Oh2qDkbr6C9j#P0Q82UTj(8O>W1y*aF}J+ zfGlXjC)tWse5$hGa!a4xLE&3EOD-~^sQBcNr zC)u^!jz8*OjyJ#Zsz^JCZu>2|=Z+ZPIvp1Mxm^cy;>g%T=ByIpo->jrv zC%-NW8_;%N{97)7hUYvnxM|(t>=SLe`N27{o3lEEOhDpq{nX$fGa6Ee)SnUeCmeo& zhCtWd`8nKZlX&OU8Vl%~+YPqMKUR}FJ9Jl9Wfu`wfldJ zzbVxt_r~NlwU5PkthEnM&lnK4J}0zex!FC4mwc;(4!Z28l_6SH^UZT?8wr;15Lufmq!vWxvgmyC>8_q(PR#E+cBA}^jlH(P#9?#*-C*d=NjpWe z6NL}eM*H>Wh>N&O)b+?$KHN{1TPT7`X>qld#`QlZ2}j!sQIL1JNL%qgq%Ibok4b60 zT(HVDlfZZ14m8)*T0NR@;k*}ASg*M~Y^Lt!?0dP*9$oB8UpSKw)AL+0a-ot_(i%>6 zSnBb7-=%!t2(x2`D3`a`h0ES&&ONtH5s+2fsDxnRXlq$3`;(x`tXSSHcY?YE+!l>E zy)Kuy`hF$jPe^?~wT1P3QRrIpTdbs;d*;m1-z*<(GfX3{C*9a2vg-Z96Q#nInvqC6 zM6d6^5#0DYLWOZb&&hvlfwF*J=ZCf=vE^+^mX*>OS?Og2@ATh7f6lF+=AC$qkyo!U zs`bjJl9uGE_6p!NGnbRx;Pn*C@3x~I_Gb)1%ZjuzEmlHKHQVv@?Sm$6q=)NkvBPT75# zMW*lRK9gdeak$nS#C)BN$jZYR^|k`DUJEzs=0!%!Ay(*KFVI}G*GX)!v!xoP?L`KS z)%k%u;u>{31IRf-hTYZ*$1!2zx&Vj$$87z9l*Z^1#r33wG?j*z0##asNsig~hzU zC{&^+6NFr60m3$FBrfS_RH~lTjoW^{!kxO7;kMG8f+Pq0_YC~j&Xp^ zs|H6B5|R+2uxJ}SpZ}_XJ&C?cJCh5;u_v-Zm0z}(Ru?cpn=jHjwqa0&-*Hhz*lNBXh6StJdyZ?W}&GZ`C}>!vQvj4(>JrZf1v zMQmNkXpOH&aMmMn(B-%5Bad|_#bTpIZJnzx)W+w~%--tTbEZgcJka*q<|qnhi*oId z+0D0KXE5{CMicw$Dq;{anklNcxeNCOb+w$NR~@nr5hidBFt)*q+}!3%?Ah1jU9M0y z^{zj;=C)Cv+NOs>r@+fr&5Y9oB-L2kd1>_g6Y3_=^z+_Vu#ss6b8YKNsZY z7mXmO2_u^0Uh^54i?%P5E8yGri+fY64%*Ets(|+3%FZiB-6%+R-jV0bNs}JikPpURa7z%9>9do>&$hc4Y)zTgKVYwOnhI;o=-%PhZB zZ#bXOlccZ%?D~e_CPG`E59)I15+VC$@9<0tn{eKT0X*vmgJG7}Hqq+U)v(8+nT4|@ zE%%<6+oJ_p-yC09xtBDvEw}9*+UgD?k^zs6Rfl(K3;2zU08 z3n40N{tarU=`B4t3AN(AgFBfi9xD5T(Q6G>$a(CR#=)Rn23cDs@FwZ3J&=ZG_iLsU zg)Xs|L_=S~a#;vHc^*jF$607SYx@qkhcO~Lo_EM!m;tZMJ&bT*HX5+WKOuVYTUxG( zXQa9>SeXA_+Cl1?-T6{1HkH5UR;l+i4-5L_m;jlrj{ETX=0(LkeDR`GYS;2F_dVNQ z*~h-Md>fhBdkB3ywcj?D3&Y!#e_%_ppdifX+YaR-F_ZU&%L=r%|0WQvt$QQCI?4Ti zKN%88nflj$@1QuiZ6|lZ*Y=xxsef6Zd;ch0_eVoUA82Lt?)bBdQ0IBh*p1JxJaDooR#G z5eIeiozEa*h(EIA@>MLrM3^W{1ZIN&2BALqP<4Msh`UeGrJ9@N zGS6BQbBT;!&(_g?2Oa-juk3!idHRvR1EDrm{_S@7W5hztP9-_D75_!MvC^*=An@-o z$YAm}6n_>Jqo=p0NDjUYud-TK} zMFIYyDXCQ;4&`~9S z8x?nFJSLyNop6sVZ^Ar2=?|%6y(`kNoad!8-N!BreptrIq4naP+XW57n=h`36*;JC(PpR=f4m5Qg&Y3f@>$4 zYth9oo?biJz>YhF7BE;GmgLM`{dV+aGiq(|A-HY-SDs3B&b|-a^nMxTxPI^*WAH{AKPgJUYDo>WpJ)69F*Xx zA4D?*2T~D`d3sv~g_qOOK9$(8^Vu){M#E%q!akC=ym`uC2mEfmk=j&ytKC$7fraYb zk%9@Fx>KhK3UylJAuR^;;znPWa?RH#yGhN~_V2J>%J=&;E?i5GAS%7)?Yv4XYX>Gw zHthWSB@UJIMvGnGfy}uCHN(CVHNAA-VJcw(5?}4&d!`N=_xAjN7Uv!#GC}wuT8Z(j z5XITCW*WS`d`A$&b$1bNTiJZa!1_99`xfNVlo>q_K(l3T+tS)C=_RbN^ijD}c`S7e z_)2$tZI!y?>bZn(@!EO5ogy6U>}8y`OV{D3WlUv}PUYE4otuI9rzfzZ$24>6%;@Fh zN^vCMNv!B^>ez7Js?p;&wLc>3i(q~_i`mu&n6SGgu64;VA*D6ef(9xIkXo*?aoG>PW^gs{2IRjry8Sw1u)K^t>Z# zx1078n6R@;lnl%-Bf4*^s3@EH<(7VB&v%4tK3fO+JWgenUFKr}r7K^~zm3&ril_0= zjyGi@c+m#}OJhmSj`x%HzN~ZG>d4H!){X4xiHuO{irPd~!ac7PF;&@{l)|BYj%!#r zv1LE*&OrpWoSXSh`35GnP_K6Rg@+xQGn}jV0f98Ik9=I8DyPh{dQCho6VZ!Y#>4M& z^TsP2y)I3OR}J!cedqnGEEB;Mtas&4jCTr40Q#Sq!H^A+P}U zv&V<-r=k1(Ddn7Z@lb~#?ZJ|0(vEj1)z+ig_JD6Z9@4k(GJl(|&On|O_l0IW%yeF_ zjkg-mWIV=Z> zxE?}1rMnG_uz1DI&oH$DNP4+_^2+s~`Dsu5LL6j62>S&;Z>tJHpY|)A z4W1{sjk3Geoa*@0Ky(@jMY7_x4Bwz|Tn2PTMk3$wzwv!q**)w2P@dxfvgh#8hK%P& z+9$65CtMKEv`~%;P}jca&S~|stqHf1GPJVoFDhpT)S9h1$A687VyMC1Vjcy#0jQo2gkI<0_5MI!J)1x5yE%v`)$V0vw^q0*{0aeY zM5#S{yN*=*=;+`!kl#6ddZWg*>^d4)H%L#nLB4-~V(NL?K5dJQ?vw0isuC)H*Sr2& zM3lkAX+mQK5@TVMAO82e$1n3O5#w|Qo5JsWh-Vp?P5WA>(h2(KHFOyRKJ0I2B@Jm= z#7TU3nsD&gb2m!x)Q@a+xu$`!(6NLS=GVR#`@=#EWa(o2wEMY#E6k-j#~5^-F&GD_ zbu{8vfX==u+{)enxPioEbx?V0M@t1ZSB-8{HA1V$yUsug7Ld?Dg|dFc4?VZLrRQ8^ zA#Fu1fW|`?m;c@kyqeJv8Y#wN73IpkCfLHua;$=4E*Dvoo4pS;qB8KxfC1UD*NXPmWnN;sIRN)Rz7DwMY=)1^h=AAM*I#$9xH)I z)05N;d9gpsTf3EZ4|qg5C@3BP6;KgG1w}zY zP*f1l8nNr9etW&&Tq|>B?wwH)wQJ9aZw|&lk&fDX=k2XM&CkN3*764hYKPo-hl4^s z536S*SKhhry>%<~c!L_hPz~sak2aQxr;pq1|bPWa2 zE)UOltYg8>rdi_vm(zIkHcnwtQ}@OjIb4K$Y`ez{=;xZFalL|XbA`0uT)K^AX)R5) zm>ku{rE4zZ=Uk^JQCFdgU4w0Eatc-$t5dKNq}20JEVV4vymm# zGGtf{Hp|o+I^#^eWrV#ljD-7+3+MGgPGj&MS-tTb>s#M-&oZ+&zmaHJTd-l?f!p3BKD3*IY+1-c_4e+ow!7VgkGV>TU6$(0$Je8KyNCPECwgO3Z$_y6MpjGlw}Dcgstn>;ulTxblFXfZSe3r;QANwVxj-@F2kYQmCHGBZSYC2?=w5!1d&X?Q-erOGZ9W*> z@x;8;j#Yn;(%Y|xJol%WIz0(hs;}Fn^Dy7xNr-^ zl$*zGYCnG-H*vUT!fRVCYkSQ8V;R zJiA{W&gs{REB%a}uVkR&o$KbEVpz5S^E%AJ_YdL;?vq+R>*nQ(REPA~{7y}0_6eJa z41^FDBr#eK%|cCPw%a8Z8a|{gd*{j$J10+K_t~kpIO!QuhX3}l?HU_M-%YLJ_viE3 z406PZjg{tZV9V`XVO~+FaaYJ&R7Zo)ih#n#{g^(zrRJ+O9l28!*YsB>#~#adZ<=#E z=1JscqnjlzJxFWbrab^t9Fn2PY>Gxy zn54oSIO_RB<*jznCRvzmC*RkQNgeW90nvJ7SH$bB%>i|;B{wgvA(Z)L2#3vlz*Jvj z4*L;U*3ZIKGIPq=7c*U-jjI7y>}!cu($>gy&D^5;x50IC%rusS{Ii|xXK!@0P$L7P z&2FtHG6JqI>TT}d@^Cnod6G)Jba&I~ zZtB^w16y3)_M1V$R4Pxh4g>beQ}QN2B}A#vmWW9T$*#+CIxl}J^T5w5Qp8iEYVbT?c08 z^IbK=94~_{-Ib~}>{)iq^(0kE*aNzIDEViAtI60Udj zR<}uzE+1-Jc_)d!K&rQk3@(b#|Fk1FJE?@$KR(}*-?jsUL9e5e_2{;$24iAm12kQx zH_xPQP?dRS8|0OuIeXQi%G!?^bVhh((PGuLiHUC8=6>FlL?-5Sk4DyW|APl^$ecvT zvE?YO8e`kdHGZElKW$&5BI`brr-X5EaYyg;+y0K?PBWu;Ya&+Eql;=J^c&#>XCpXc zwEK5cI#Tnw2g=cDY8|c8SiTaU>39P;;Zw!hKw{^u}!I386u za2N_xhl9Mx+1qZWh@PwwT*=BBu4JQu-(j(0Yn%3wl-}F}>5}Cl_V-nTx!S5b(=&}e zfJ2s3xSYrNpL1}nU8rvVesU=g_9<)nCvXs=IVK%Hr(uY@x%-5h-L9^^YrS@!U5hf` zhn#~F;lb$l{NxIYuohKH0o4_X&Z54oqMoOGhwsz)Iw>`8J%p!i;PUb)HfTe<)pNXT zpEKNQ;Qp?e7vM__Ag#XlpH=f%5+0v>vdgX$Cv^@WXTp)~m36)&G2}drlksv+t^(^Rxe0%$)`X~V|yz>S;UAbBs1CUcUU*_7%kQfM1_#ENoZyMPa*I)+Uqs098&Fe#}&q}`f+U6FEt=UXU13)lV%U6pI?h4_Bu-NC5T@>+yCZ--jHs zEr9~TS^*0ZV((g!82KT6d@W{0>sA4dKl9B>F>^|uUPgMWe1RA}c59|VGLHqX9q&^v zMtUXfp>oCDs0#6CquXuOOR^W^f!#wb^ITW6augFMFOSj@*1B++%%12qv)jSlDX1C9 z8__Gs$&Ml^lNDCHL>%-=d-h8Q;a-zg>>#gfi+;n^Rjn~od)QLCq*OhFgJ0`f8MIcd z{)w)MIRr0xedXm>tKS(9G14Wb#651E7wJCN{_F)e!9DXfY=}j^4SfXJHHSj(jY*Wc+uZ8PNn;zEml?DSG8P=4a2O64$vZ{L z0O7c(X6JTgatI#K{->I2g{LibTMy!7WtnEp0Klay|z!8gnn!NyXX*@`|PPpKd8 zJ)43F;bk99u*7?+#a0JxJ8hAgvdU~X_M`XFE=YZFUs1xVDP;5_VTJX9eTJEml&r?l zS95^DRvj!Chr7D$zT;+>9F4R^+El969TwDU*zd$5irCJJR~u?lX_yMP+Y|A6D;?hf zVVMOmNuOs_Fg4v$RdB6iP@j09ADaaWzl$m{1O$J5A8E;QMPQ#~Nj_pYYwE)1dy(3W z`4~)e0-a!BWuNvcWp#D^RUItusuOs_zAa&CKKF;L0yMBj|CG=HHk_u`KTX>%R&3>! zg<@!z5ANHHI&}Uxvy!>wiFkBc*unbKl3oE?Sw6<^#|RcIkV?j2fT}%P+lwY0w|ndS zZK#+ZvHi#i*lnBnK+FlV`fj73DXfwtjn5hYO>BT#Loto8OBE4=zdzm!8v+aG(*ujHQo%A#Ym%*@K)E!*L!Wr}QO(yg00{Nf8@8F#BlQmhmqdQp!n ztwon%wNIgyq5UB)HKgt=e9fL3sPI&QI~^M0Y|pjiajMrS;hHROA4X0o3rKs3_l7go zTb-n3^xl@Xz~fS_DSZcjm6&dfu`M=mAgXDHsQ_5KQ87mOA*vS(C!^m@ibWuKibrG2 zxrwxMyXfN}2p{Dp0JNVSIMP5g@}<)LaIDHhx)wv;@jLG{gTt)SAGFP>z$}s&m}XY> zP1132Dm_L@6VGIBKOsGz%ZXAu?sUASvk_TU$wqb_6f4gLOd{vQVgFMA3=PBlN)HkV zb^&9SPMU2q6tY`o$# zMyfB=F_i@b&0+io@Ee)W&c>;9kuYbd5 z@5jLizkfM@;WJVG3pd06@%?KDJLJdx`xiU}H%;oVIt|ZR{MlyysyF_9yZKjx{r7FM z_7_R~$8Qw%7yIXB7JqRZ983BiU$AKV-|+7P4h`}zy7{lYgGcgs8&Ci6kKKb0{TJE% z$BX=V_Md!yPh0=vf}8)>GlXmHpF?=jng0&qoGFs{`*Qpnz6d{$ z-}?}L{vz3b|JwlG33wFz30m{#n!?G3$H?zL{yts!6GKw)R#1PxZ-e*a`QPtZJpO(Q zi2v!5{yFA9&kk3^`}uqMi=-&xFI2ChkaIQeacT*D<7;FxhOqR9&gpo#JJIH zhyAG%-HYo5;V4W^QGQ6I)`QY$P`d(pZPv!YFRt3u{*yV&!QCxCzhT$SjPM?}f}FvW zo+Izxv_B8m)d2VWn!hzrq)oi!FS@g%ZM>TDfCRj~*5^CF&Mu2%x5_PE%}6JHliF~w zKgA}qS1?$w|7FMA(|KI{45}fN@)ZvE=vE-d?L(!E{WND+*|sKODOfgB`C`Xo3q?@P zI~b`AOm@>s%g3Ei0ZFZrbx*2MLK3-RbV~2!lIS1vS1P_nxf@-8S;m5I^i$kfPL%1vN9^z zb;vi)8HJ~D#bW(^jF!u6N~;$HlSwEgPRa@3Gy3OXt;(+({+MzF{d}&UrAIR7qOwN~ zyZf69VHeVdgcR-#&`-{Ij6)E?ytogZx5-a%T1aLIQE}p`W>}AN@w~o3hmbCY#xAhW zU@HngMb4h(`xuPaT&-Nn^7+WxZWo1OZ=9Ys!Ub_e9;X{cjaRH8l*#mX0=hTy${jM7 z&m}r!B(3KU4<5V603>>N%DpdBT~C`KRCZdE+mdYVELbq0)3t6R@2$g%Ryyv8dX}uS zg^AVA&!XE~+dodsbUR_eN33#W(!Ly|D^TV``WYm-a*-rK8r}j>m%0noup8YQx4BM- zyjCeQ!?JFn{6I`mmCa~g80YsZ;dgao73I2<4EMUo9dITa{7$0+|89{x~?@#J>2>Op@oe_>zO~ z^_5h1W2uIYq)L{LDC$=dW=goNEk8aFvY0xZo1I^;h&iQ^!mjmNKXt(n2M3dK-^+67 z7Ij!UB4vG?j?mh|>FuXO2XKyHVWPBk(ffwk(YxIOTo~ONn8=RHbhiYi*ZMoYKW+i2 zrt~Gq)6~{bN*>4l(rz4@P7XLDy3$P&l$}3VHmQ@*pv2Q-<`9G);MGf{Lwz zIrtu4H4DJxLs9sp>#{kv#?0iXXU4QAUX?`?kW(6_zTVt|mQI+tM*Kyr?Pt|FUrKiG ze3!UX@{Eu%KfOllu4mJYyWJVO6K&`D#SWFHNk|Xys-I;KO#hE4^Zqi(wY^d*pPINX zzK8Ju2C)J_d8J3T&L6v;UyY8`r)#D<(^qRC>>J;ulLJM1VVTsPsdEO8X96O*>Gl}| zm5EsBce$XyCmq99dl_KYw8^R%*Ls=xb(jeklaE?&N%+3HFDnJ#h8} z+CokgVB`2a9Tm3HQEYiWr1_SU>jNc2vX9M=zuv{3w#q5x+3i>EUx;B2MeYT0;4*0Z zUTyq_G`SNXQ;N$fn~SQ-&HHMp+o5=8%I^n1G~>r1(1Gc0-?dM68FoMQ-?8N<@*(;h zCu_8=(t9MECgU~Vlwv(B&|V8LF)^LauL$Y1v-OJmn4K{xu8e7Lp*EdDbGHbu z%wtOAbLrF_X#$#aN2D$(4+R@Ox2XV0_R%r;9Pff9H#ZBz-E}|vqIcpYv z)W(I{uzJv@(<72uQ`L<=Rr2$m@@s*UQzJQc;po44wKSJAS8F!2&Yym*`cBM|3w|TR z9CmJd=5>9fT6BuQ5bYJ$$`PkBG5^j^^2|qDn)+z;vY1CUht-$^X6SzRvL8I#L8jw; zP0`mw$lsoQ()r=?mLDSL8D7icX6@4-J>Emdtd!0+u?ZfO)#*ai^ZZl9&+p-bI9?YW zkJ%id<|D&QiN9jjiEs$_iiEQvga=6|I?eTi!h`R2Qq*~`t(PH&#^hqdvB`DZoURV5 z#ybx}POHSX$N9l_<4)w_(@Cj_lTW=>+8nhXJ*lKEL3Bo$r7S}@Mu+uqv;PH|JsK?}ByV#mBhBMV-t4)-aMI}bjZ(cTzS0Zl-X7ef zzznYiy;;c1>NdZK+WQB15=T8^KY5RyPGP{T9)?vyy!&nMWe#4qBdV)ju=|$6domM& zwm7^O7v=M{C|2J>!@Y^K3gg5|SR?ozecmkMQBX65QVXF3ahK}G0)-0a3>_b)vsMwu zz~5MaNm2?mV4g7je2bcGbmR;oCYhgF0a=;m<_5)v9 zHdk7JO0N*M=3ct+HjVAQzL<2Z@ngpC$zMve&p(dB$6<;stRM=GK#GgKd>&`oICt$i z+tz6?E$r_8JZBc>l;C$uaxJHCYLmYAtGCFVd$Iz1Id4BgXJ$X+}vkLk4LuQw`V*` z-+m!b&Lw>`Z}$wU)b1v17_^%8^#cTkzBkaRnU$pcOqshFI~w8v?1A{XS#Lr{IwR&i zT$kNpVFd&^k-uqE%aNNBm{gTV4Ff#TpuVkif0@U%erNbxHeQsrz`t$pimLgZ_Fl*& z^0Fyr>uPb#fSf+|hBrAPg2D z&0>+{P+C;9eqw*IlI%Yk)kXiO%tQ&>OxLN423{9hcY>6*sD+vQv`Z{7wZZw>t=hgv7NCv_@mDa5K(QL+)lJ*9MM>1_ zm!$~RcbrTgX$*g+b15rTA7P4${3H#i`)eysey{+IqO!H#(1w zYfw;$^fnY?EgrK8+QpH@G81wAs{31uq1jx($!b}^WJYlFmc4DM;a=IP@1!wGw+?t2 zYsl(yRP2feK7A z{sklpJ>LQ#oZZNb6#fukg_FAI4nZ%T^r`l1t{iBf?a)0LN7sK}2p0X8D}!Zg zZVi9eNArZUFEm9++fUmhICiJCbnnt$A=HsH!}<2^%%bnMziJhH=UQAh3Z1fY=L-Gz z%B!{(_bPF@1!MK}%JJ_p2dm?qdao}vcOCDIl%Kzx8sxy_5++S~wn$Q~fx#x*6ZfS0 zutp2$=WP}%_7?}|Imv&fZ7Qg|tIMk4(BiYzcfN=ZQ}xcDB0cjRfy{xH`+_tmCY#p-DXiFqF|894jf1c%0wvPoqzU*+ z^ih$S_P+zP+W2DK{RaR!sWArV8GHyHkm@Nr9oK1N1>V2KZ(OiPx6;$3!TnQC>)m%W zd11?Qw{xwImL%I<7oU)_DQ{G*qCgzyT=Mh!E*SRc$u1}Ek^BBe9nbh>*`yfj_O4zb zT!uRwu@-!0mJcFDK%vBrE7>|we=>nCmJ6ekmpvAU`?T3!Yz_;AAH4_^Zu`@{$JDLm z2re{%y>V4kE}S&pW%?T|F#-}fT%)i8S^P&d@1OT$mB8?L%x>pEPu9Q3V2B%V=S4tA zI~xic_FLV0xtijhDTu~k?0IgE4FE~KPhqX%1wSrFsZwzj^>>4IeKJFl<1OSVzgODc z`$u}W>T!X*a5B$(+a9-BNbRYA)~BmzU&Xwg?Zy+x&ZDNubR*r@IlK5QhFzovLHFF$ zJo+_*T9o64brg7bDdUNC`VIjv^%& zo0px>^I)0lVvwsj$DK?P(=&@d=Z*R$S?|Sy)*N|!RAyTeFh;94sD!kSuwo!Y%+UcK zCeU#KoYGtnQM6RE>1Uvwe%w(R2|TXsYQ_7x8TI!KJOQtlww&eC=T@COLRLk*h;HuX z1#D9$E=$Y8iZ9K%RIXm)inZx;)?6FYZq96cy7;+O%4I^V!zRhfIkm!g*Sze~gY0%8 z6uZwVa=kTonC+tF$dm1L_AvK4(_*A>f{fYyrGVGs=Lm%YQfoNyzw0}-Cl2H5=>RgE z%0hD|yoXF1qhG%GY(qv3`>O229sXS`ew|rqttz{DzzeG;xvZnL7?Q=uT>3G=YDOqq zrP@2V#JzU;g~(*F`noP_a@gIjHUO6#(~ta!tAE*`0AUj&885&+D^Ip=qy5sEuywSm zQp!irrkCg5n@oquG^Wvk6w6{1!VT#&;LG7a;IB=p%dhA*1n5pVn+p!}c#vjxg~`>P zui3e1o~%7+MkrR>BcbkYFV^R(cLpmzM-93JTh%6fty>1boZ+&cZ zi&&qp5QuzX~U!KHZUhRl0d*T?0 zI04Fhr{MJF#x9jXFKMCi^~@sD?6*p^e!q~;j-UIP)G?;>#;_kzGm?}I<5N~P*ZJe_`F4l&mmz*DR}{`ai6gn7(gi-XtJ$JUT%alfuWC%@es z_NQ{m@9$#qpdLJZ(}Y|SRu{$LS!4uc8m5<(A*A!%`;1pxuoIWIw7{kh-F#lHJsO*u zz8`)0ruX@DYESerI&~s&nlZ!1v5`HJLJFz}{HFUrf$#JN7B4QD9plRbsWEC^457;N|%eLT;n9G2l@6E48e-?NTYF>_G3G}tphgWDhIfecTT~? zCJH6vq?I=hO_{P*zmnZ`PI`g<9@%?!2c+d(w|m;9*xwW}j$(1PTVwm=kIv3%@nWcjQEYhDKf8d*XygTVQ>yhcjhRL-ilm6kkxsNPZ@s+h#-JF&5b-pSS zercuT(q8XZK2@RAcR;?Gaq_Sh{I>UR;>lAU^3KgWzf7+H zOYV1o+sNhe`1DCPWp{8}+V)<^9r4!KDG3v6ocb7_#jjjd`|)z|Y-;J9tMHKCq}3+Y z%`fHL_Q>VimGQTpn+&{}H+g}qam3=ArHD_+f(R0{)}?-Z2AgD`>gME2n=DJA1^F%k zeV8md{pqf|Z!SKabjo#8myX=XbPTzX>s=3lut-h3^#Qb16@fgJv18;w9b*I;6SH2+ zLCV(j^SgcinM>>OH9S(r}BSJa>cq1>KSZ*k%9>WTOiHeF zGGXsI=_tevDg5?_^oCpTwI;iN2Y5ZRS#CHGO-ADa_Oy-=;C?Mvn)Qu|qf5=We7V~L z>V|H5E(S;oGhQ>)3+4v+a@dBojE6nSEY>4y3H`iqNS8!nS}Cu>^^yil z$P3^Yxh|j2A74QcIqq85Hpe|;nuA$DV%;Iiey=|&=YJj$N`Q~C(B!%Ahh1lIG@|4} zbGlClTb3F4DPxcH!fd9WXZKkFG>GN;e(lp*ny^DUTiI;$l1AmHH&JVC;_bJ`Vzp7L zoa00aVgW@X=c$+Qh>(}Yp&&Y~G1HQ$pp|K#2~$hq`N}cQG7v$GW8HJ&FVdU0*I=_% zy16*CO7jW%u*^gGdM(DtoI6paR(mnd)%02WliRqVax3Igvs|ldOypFfRVA~DydOvR zegbPLL3gz?;NnHoBqKCM$NWniRU8L z@r&K-ZM&%D-(0xasBHtH6JrQ*pb;t)R^-dqUrGb(*Pah+#oG+?50*>Q=-LMT&4i@e zg&5oYbYYgTgm4ti8+xvO0XTX0cIX#5Pq!9vYz?g9sCaeD+f1Up>h{ zC(}#EA|T*THKNXw+3_u9N&nR>SyF)NgZlQqx_bz(WzgCHd^ zjCpWqW++SO@WXGmhy6tXM?ewlTBY>kzFaT}FDw@MzQGi?BD)s)5RtYUB$sFXsGy5` zQRLt*;@)wMy>T=;`AO_`SPiw&7GswL)(W?69Le8TCv^pJpVH|z-JG1ytJW`ZU9+<` zM6(QC@4d|NFMUwa8>g38skRAr`GrqD?veA?I&)efJL^3?W}mf@McnCn-PoY@?z6W4 z4u%*QD4#mRWgv*m(UYaO51+7&W{Ix!k7?z zW3$$-KCYjEikkZHB0$MUQz)Msd7Vp1`7Wg!=z?HK8zWFepK{L?!$4ftyqXgxUi(Px z>DH;rc!l%F%A%czrPG6tS-dKON9pb0qF2rF@RaL>m42;PDj|!s&+cL3@NE~0#q*VI z?D%@Uc+*((D!;DR<#aS*MkFU@Jv`TirEh&H{45?y2X2rvnnPiUaA&EzAhgRhqp}^w zFxu{C77sw?#Xs9q4lgY3qrTuhhx{lJ?3XZP_GNaQeHB@Bwy#62QbJTmYS5dRZTk33 zyGT1z0H;TPeGf{yGk);rC*=^;>r<}n{nJXK@SIb`)lv|+c&{FnCG?7D&G%kJVQJKv zSgLQH=b;@vA8U6vjZdR(s)JVN0uGM0^W3kzT(m?&QvBjYUg*^9cfNZE0*M2sG#I0w zHnvI!SoYn1%qdE1iCn((GjyFG!)~zyOUZoDTnlfio}z0P?5f^JBlpmtZy}D9lL|R% zuIkFTWw8Q&89lyF$c#pB0>)qD@aT0CH9g1Qdu6H6h1D)SQMu@fUd{9Bxwg#43u)ha z0ADO$16&+WCbvZdM9JoK2A(*swuZanlsdllqq5`tGIFY{ZwLZvblLZ(+B?6yXO{6m zR-vxntxr=f5Q8IM1AW=)y1fVQtDQeA4)Vr0`|l&)nl1gJyB=*itF3lgzs+{4H4^JB z{WC;*@;COX#(0Wh^bI^5cWr|g_1=;!tk%ZW1zBK2v@zq@T5c6jx2|8MAH5fqN1J?R z?<@BS=`1btmfrBIHhSN^3H~(2`cSbmGlwYMA8bmq!gfF=5P(=*5z2E(8OzT40Z8uL z?l$b_JrWYEi@}DT6x-)KC8h4L0C--c7`pxlzpHO*KRM4UK2?|job)=5J8c@0ZQP59 zzD^r=4K8>M{36I`JC;B*{RFyebSzkx2!E9-n7??;)8~1S&z{@lfv(T}z#rfBFh^&t zNrPIK-j(flP(amFgm|yXbhY1siM#GG0unkZhiW)+4B>J%+b>#4KNXrI-FoPS%~n z{L*q81p`;q8C5iDYT{%I$Xx!p@wk=p+|8IOWOIJIX;mQryk2lre)bepV*E0f6**l7 zcnZ*t&FtN&m}Sph9+{q3l{KV&4{WRgVL#}DQ_B7DtyH*+L_JIOxV8()up`fkJ&)R$ zgL(6u>2GrLuEhz|zP`+*Pb^_}k%pj>vt6x$4W$jOG4IKw_}XcO1yp2q5Ybj!^NIhi zHO_~N($pEa;~|%|3?w?(Vh~)WC8+#+r-$t<)){Qm`*iH?va8VE35%XDnh_Nv?!9vE zfqcsGdbG!;;#?YwUA$#>8KJ$4pTg9Kgt`5)vfG(g|1u8?nObgg$r5;Tl}OYX@OAgS z8*AvjaKxdK&?v-JF}KIUv{^W@8#?oMYmxeGd48f))xN28M%cVy?j`^tkMyQaW#z^- zHqvt(=9Dj1cov;pS}eHT742p&$0g~avw9cV&Ud!B={_}56#Zf1S1(OX08>V)HdWay zU5a$ks6M1|nW%`R&Z{$3ui2+G1DAt(DY|&mMC=05E5$9KVs)ii)t(ijC0ed6LNLj; zGy6F)=Wr!z^x}pZ=F{|JPzmQ1k0`%7hHd+cm2w*;diZ0ADq|Z{@4dDf{kDIb}m9^G?}` zva2Y$torQ^x368*?xMe+rLFG*`5WntKAXcwb%QG*KBWFryH~T_82QuiiTy50^q+>i|E1x4iru)ldxmt8 zo%b0pa3e_KZ_}&zBmLDCsuN^x^nIUf4}v35mO`_0MFf#z>Qq`{$z|mUkg5Q1g~I zpi+bh@O9y)^vpUD#Y5VK+sDST8u>P4VDFhcQ@Gpv7Bi{uGNJas4TF^f$f{H7o>D6X zi$&0@N&%k=-1uDHoz+FP7wk9TD#*gUYY~y2xP|1lF@oy%m*J-0xIY6 zqe$ZxNc`SH<%^nOywu%f0CV&X1XI=q>k(T(rUl>iy0(7kOMAaH7a@h6?P%^eUZeZD z|L%3bZZ5_A?9gvDV|!9QqVGbt%U+b}KG8ez9Ma{dne}B_x#ed$bQ%_ubHoY;UtN-p zT{jNX!ZCZ&6-j_sZc{(1kQe#VPv zWyg3qGgmLtcQKV-%&&Hty3OhF6;=8(vP_V>@b%?qLRdqtb_?}J4F>ZjI?z2Fm2E<% z`}u7U&D`?x!3Np44>vti-vh8J;o)IRneRS{Fyc&uC+D7wP`!kaGhu%C6|d*rGQ(c6 z;^@QS)!rhU6)&sl{F%HXQg0~vs{>nv(rDSM$#d$VS`lr83^MxF-3>OmjvKu`nHgVv zTe+pz#&2T#SC%>$(rH_4X9r4t@P0AnZKDV=g^8V>mbA-$bK=)2WX$Qshmm;-mwK+9 zT3%>wL6%Eq7{kHR3Q9_wi9#y^ne7OhQJexo9} zPUcw7V9kEXJ*A9Vss4DTYw3U&Q}>KxLgek#k~@>Vi!IZ6bMyw*-12jNiHKVrv(NJT zEFao@uYN<1$BfQIqiV(R?^CqlS8!dqe2iUMChycjS*y!i+gzpjI*|Uj5(XK!cEY6Y zN)$stL~V4`jOnh7!m4xiuE8LhpKRnhkO>n;?^{ z?e^ZNwp<53F~*2)UcNua6aPbd@h3x>$zq&|>y|1jNm#H1_4ic>n?!i~%RYbw6j+X|{ApVN>Fn z-ytp|{3^y4U6C@D@ta5>p9|ymh5k{k%Gvo75a7c$c4DUI?^-{k){8ilX=lO9G7N3gO zfqT+d;KDiN`%M0L2MWEBOmmI7G5Bqn*Ueo`+UNix^>~^H(@H9fIv8X&gW2;cme$9k z)ZgUmRh*bKNkj^@Les>UZWMjmeHGL;DU7?zPqAOpK)q7QtRX6bD~OOrGXJHXfZQ8t z?mLy{0JCYvLu-woTLIN_yWaZaenF-sF1}ebCoR8*dEj}>uZx+TbgH6ij+<+rnv%1v zQDr0#jT)HF4yQLEAoK#%`+4I_RFe@k7$!lbklMYshhP0CcXAO1xCm5h7*Q9B%`>Sk zh?PvE)RE@ssV82wy)i|Gx7k)*7r)dem8xFD$9)(3}HowZ{6%M)P-{K-PBFYs9}pZw53_$VzKAp{7q{TA2latxt77ez}F` zJmU}dZ_3Z@+WRI5X&_qmJJxkIYjQIL3Z2BTR==r(T>of&3F4VS-4b=Cy~|Nn&%2$R z<2%pfaAl#HKO&uo%ys!elbKF+lBM((X<1D=uY96?@Grrn6+&%(Xmna65rS z^zB<4cl#>Yt8%(T#rL0;IlQc~B^yu$=}RGEE-(+$pZ2(RKzVF1DG`1DJs1XCW$yz) zr}|mVhpNxZofc?FHdhYjN4y{K8(H5qiksy| zvxw8IKGpn`R`cqqAN&|di*QO1o}0|y%iPKz4|W2Jz=M90#kT^cIaz1y_xDl}h0o=z zJbTsEsbhngQoa?P$B^ag*!x|Sd*T~NC|ftxWQ#M5tRSVAU;D{)7HsxIw%?oKO!s}U zmbv<^>`5aq(67{c8lo+j-}Bdi1go*U;%HKRam2&zZswINl1iR&gP^~y)wVp)*mSM1 zIrAEV?~F4YE4-Hjez531;uk|e*(g1$m!Bg&tDq2USwhZGz2z!>s6Lw z?>3|~k%I&jK^#rb_sxl;TJfb@tW@k^s-(2&!h7Oqtwh&ZJD>;E*1UgVC$v6C7HYQ~ zQfRMoLDQMh={EiiFgo1z-n)qx_k;^APZ}3;F&FyocqKC{QZbCdXWCGBi0HcAfC{=+ zi^CcEnt^dEo#ApZSE_CX`xvTq!J*l{anG~I(kb%? zKC412+hAo$0`sE%u7k~rgqi9o!_Yi>0ok?(H~P=*IcKmtOx7F#jKsUjG-f(!XTbf9y^F zAIwVsMUxFCp?{s*zckq&Fz8HxHww-fvhhc^z4(h{{vpmLnSU6mNai0ZZ1SHzs6Pgz z!Q%&3AR4y*!xi+82mcob6#M6I|8YV7^`igjY5%Pd{2zX*Kd=xq}!I%o1CIYC!xt#b*`*0Iv8R(vA-kmCi3NBK8}0u)H;< zL?6OfGJE~oq!23TV}NAep0}uUo6mQBe*+}+CCriUTkf@Jm5Msk@@_LiD&L|YYKL}w zcJ8m;L^v&-C9{)|NFz?`fiWC%;@3^=IZoHh2^gG z_A$?8q4?|KY&d@^HG~OU5Fz6ZVVN=y)@{DD#G1wS!1VwOe(w2bwOn!*>A`H^_Wl^E3ks-t)%bN;ln< znBA83;`uzP)h|rwWXEUL7+S=DGB!wNHtVrfCbQ0rj?L{}QctLgk2;xeOKQEF&kCj= z*mc=hEJ;Q|IYrJC>{VBF=z21B`k_?{Ko4IdgLi*2I!|@?IB<)-ut*LX;ZT&yAhP{` zXgk-gMbRuxe`l@v4<(8qh=2$p;1LB6px^-&&*BLI@wnFf{Mp$#JyYFX-7{5F^C@FR zz8MkuYT)ziec#tr8)@<5e*8Qv|E&+S=v}Tgykb>9rE2T%<29IHkpRqU#2}vu$g}a8 zkHc=}W;x5rHhl?bjs2i@rhUP7AE_~pgu`|A-JVC!U|u*q#p@{fx!|B>%9L@)kybPZ zMe4a(=xy>#4Yuc6|Em)|hPECRt>JIq2R{R&(w-vUrYK0l77rEsylGp?ARzzMy%#+D zBd5M+TAaHd5BGd)JC{^zGd}>krL3(;+MF)Vm?WASi`U}*%-8O};he$p!wqu2$rFOY zDaB;yUavkE@%oxeEsjL?bE?F`*mkl_fxQTW!2A|~{MIE$iB|V&7Z;#V6>}~k&$`CF z+u70=7{=WvE;ZWovccGR8A4lW`N&wEI%ug${+uoIGoAD?E8Pf;`%`$L$G!1tjF9%c zjehz13e+uxD3Qkunnc3v?yVGR zzS8f2ec zlbP`=3WFS?0u&nud+~}1_A9Z6pXpD_xrslfNL{p0q3@x@;COCZ!S_?TsaoiSHi(U_LKE+kPLM^V+d0~Ekow4mt zlRW9XvX*_va1-fR5llxdrn=isa?L-h^bktk_#SI_vo~a z`(5|6jVEcrzXPBc;rgnez?3JM1JR@-<`W7vU9mNG3!zPNie!&|RPDaa+OL%|;WD_p z=nWHXQ{*uaN=oa~0!h_~vN`XLRsXerl1Wsgq=n0P$M;F_yz*d^p0W2r2n2Hu+WtX_s}@*;+DJ4#i4On=Thwg?*uzG_!L|-dh(SVec4k zZtm}W@42n8!%eUD*!w9Wq-)~tfsAhB<=H16$(dFQ4>mO})X#;N$h_x0&dEaB<8kcI z)!!Ab+s9^bf!q%|t~gh8%B_y2l&xG5oG6&3XnK9{otBmyGGr{>gJ02?;(P!z)Rms! z5oZpalFgC18NSg)iBznClbNXnpbRkMJ`%zpCX3qb*~_ka_$wIsQBL0U7no%@@#wW} z4_>oy)S>N zZ91G3QupYP>hBg6v<2EEp8He+pP4szv=_z{th`|o0?D77@^sdmgm!LS&RRafV*tX2 zdQg^#ORr~$%k4Khvdg%~)lOo=_8P;g4oy@rM$sjzo1zA=E!s0Pv=@1)(OFZd+;PSq z@l@AJH3FAj6#REhDfL)sbm{%do$_iHzRW~sG6f@;V1q7M+x3u5MtZ$_7hzIT9mSOu z$PK3|&tzEz-}A;1$t$my8U>-N^sUDVGiOJ-S}d{TI?YyBJNW=K{F=rXt5VvVy@`Uw zU?Oqyh0(91naeqxfUGDHoMoYp9-ZPTAHCKh$G@etI(-5jr(OXx^BQ?SPmifMlD0I2 z^zLNgSQ-U2GDOQjHOEMXs*9 zICqnXRWK=Iy;pLCXa3nfL@&uXeRk~`6-ucrR%@XG(G1p|Xz&Fq1a_Q0nm-uOA?reX zw3Y=5kT3Y6e#e;}Ph{Z#usR@Lt;0xGg{ujfq4g{J%<=W`xjXx_j)cz8n>~v`Hozcz z?cpnYMf)x8#>x%LgT{<$SK5XjzJQgOPSxhaHaTzV(fxh>1ldaP=@ot^9j)E(J2&)A z5-I!Fldx1w`Y=n9#F&&9=iUBTI3LACSw0^THb_t3B{4P8-d5@L92ShW1;Vl3Ne>tM z{G}!%6LB$^CdXU)_VPNFHma!{TuQ5}Up@TH4hNp&7&0|$qpU_jpsG~0jCqkMs%40# zGsYvYga{bzFXvh-a{a}QPv{HeQM35xw(qY%BsFb3jrL+a)5q0=dbroO6dYe=JFB+h zs_x2J`C#0Tkjif@D+es40h!8EyHToss)wUyEpe*#O)h0OH&*)ce5m3q6Fp494K6!_ zYvfTQJNnxf#eXG3{8OnGfI%q#c?tXD;`d*3EdI^a@Q>@>-+fCfvi}kJ0C%T&PWshH(*cKBp>^2`46SbDKv@P$2@$I`^`bI@oA0bLf)%qhpUm8qF} zZ|^c)6mOj{!Vq5s246}F_t*Wpq!GC{_wC8=s?MCAk_h_LAK>YwvX%GFQaXRwrT2h^ z=6c#2`o(!sK7D@3rCD?OUC~9yhbzCJD{a1f2+c^#b@7Xwsa<>FNotN)R)rb@SdC-} zs%Nn7yJ#QWeYO2t)sUAJP4CCSoQl@<`rhuFD*kEg@Y*RRnTX5g=Wh9Y)V$m-kF`3q zLmY|?OwKIbfL&F9PV^y>EIyFs3zpqK>YW>QIq!?G z>MCE_z?feqd(kdG$@jeWEr>=X1nUi)-!WRJX@|)`QRrgQ%6U;6E{lF`X5TzlK3xv? zJ=^+#&e=;V_E2w~S+f37K2~p5VM%0E(V@&SWwZ3^Q!?L^EQodigLErx)Ou$pT18)Q z(MJ48E&9b-#KWvPMgg5<4n!}%HJGkf88arJ|JNoz_(^pK_)!h&IzYWTa8zQ{<-nWxxsT`=Kd#H~h< zwZ)?B1^&~7Y@Dy?{BrN;SbXu5TYgm@7qjmku|&oiiJ4`sf2y>;rJdJ3wAk@JSPu1& z_!KfGTJ167F@L%-Zi(hrZcgFBP!EOc^-3M z*+2t9Opo}vEb@n32Y>IroiCvI?Z>u10^d)rO>2=FeGI!tFoOb7N@nz*^v;OrhcYp40DS@bDh%F{@Ib(jkb#51#9m(yALV40`ltX zBMJD?E6wRa;47yMS3~~(Y1EI;#qIUVK)!pNe`OPm9956Wtt|4WTROI;^Q2Fa(}nUt zX3O6krRIypt~GmCEcH+-c0O6VaNO5X1wMM)?zIT=$>Z)U5X;$*ebc!zG#DYajshtg z?-h`zFOBlT!z){zbpTLOaEQ^3TCdpn=|8lWYH(5nZip~s%H@v39pjJG_$a+IdaAR zAio%%oeAP*ctDoV+_lV`^?n{o_Ezk)R=>#TfO>7ld<#|KxCcnCBqmpISzV5lmn6%n zl8L@|&{d4!wIFiYF6#Z%wy|hgiM|so$cmz6}n=qAW-GXOoQk>-Z;=EFuey;!z zZjT0cX+60wqbWitXD#yI&6HpDd&5fqcwbGAEmvQp9x1M8m8z$DuQCtIqwZ(ewG>~G zo~JEzH@?lwF5eHe7lP6Un1S@+||03(hGIH zFp_<4d$o$O^2)V{efoj4W0UaBT|iO6)q3`?nM`6xr6&$$?5*uI22aVc9Hy?(r6X~0 zD$a;)cS56isj|usY|#BPGV4_H=ZqsRa@|c$tN5nS8y4~@qqp52VQg7kk!f*x6po`@ z!7EF5OSs=a5edrE)_iey;#q>QVv4p^s6NTVoNLUX?Dt zpL%Z1B-qBu;=uau*Rf1ncm;eak8rj9xVOB9%VXP$s9?HwY8#_lIWWcMNu8bdx#m4k z*wT(BLqd_5<1ZAhD8#N8KRYf;hvvxVed4gLq}*kG zMSd9)=E&p@s*gEYsN(s!c|3P`C(c}&gqK7}p-l|9m$^`YRXKl_jp6Az$~|Y&uk9?j z>T~|dPG7%=A6MTO&^ZswyEfHjD*5poXIAxhW7j|~3<&C`hk)E!{ysO4-0FwPxWmzx zl2yL!)(`6wMh3m1ak!*(nBrob7#!3`!Oy&0;dXqpFgf62b13BBuHEor*9|;SN?c#_ zbU#iNtB`Ji>D6{PDGMtP{0Ncv`O5LU=s)sdcOof6a)?YJ^kAHN+f*%IE=%)L^=v+9 z*kyJmS2C{zDXYF{O?62G-F+b;u#9xXfyJm29-d(A3G^ ztacT}cCJwBs^hfjQoZB%{=Q3U zdIuj3wrJaT_qeVtuvBzyn*G9kk*H(GHd8&oa<1?;-zgBAPv9DTmO%0+xZ-BFuXLkd zF1)g10bVB=G(#PUHy@|eXwd_xMqt+;})z$PdJ99=6rkOCsDU;>U#wL ze)cNW-rjxZmmbJQMKj{`8o24@h5j0`6-5dr-a0*HQ$>QdIo+F&*MP~O_X~JTX<-=D}=H={46qzw61f<0W*WhoBahsRrJy zuBEb0Au<2hELkgg)0?fv;R}t2+!PPbZEJ3I1OQ$xMh-sg z-HX$BXk8H{yfREuru=pOoIP0S^MfQHD$w~XPj3Pz=0&tm+J~19$~CroAjs0e2HfoI z@o@7|$A4c>2=?`Wv^vQ4>x`2%R{@BX&(C06pWfPs>0a%BwJW4nORoBCqUB48-Q=q# znMqfFbec*{-{}UDR(2_P-%XWSqJtt$3ft-kCC*cSmu1aT09SY??6Kf#+V+;Kiag@U zcz(ziUV{~E{7Y{gN5W52+H_1T8pE|b=#ag9Z5$m{`m3KP>emN*Szli;Er7UoJ&576 z*y6lL*Ha3dWB19DR!@i|?;5O3^+nae(h`3s+`KUrmV+;ANm)%9e8ddz3 zZ_s?Z(^>UP`=tGfVeced`_ODC>?9&TaqJ;Na3*qL3O% zhqkzS>f@$SJuI)4sO_dx22yA1XO{nDIZBwITT3 zAv?(x=Z|J8zS?7{D-6gZUg%=ti9ou+k16$JGk>Hf+9qWlZ-WYa4j;~9o!RBE#Fe?K zXzypN*_P>i?~$&%ID9jX#EI@CCw3AchuQ^Ni8dWMgQS}CL)He?=x~?XKd+-xxmVsD z_F3~_=D1zI#%wpeQ!=52J9Zd;`+VngU(S(CLpe`J>**eVgrK}pvJ;hy#5_$v1#$A) z3AU2$hhy)Pw{rM~zZ9p1+#&BS_+CAF&+~OdLaGKwe#p}7%eCKaLuv)9*L`2CHQ1fE zdrk+b)eAhgccTjUw_bmg+N^A{y_j$^KGQblGu8!!Fus}eW=nj2rpBF_Rcd(7NGtZb zeJi|^2y6TfTn4&b&(t;|J(A;Ht5GViW3}APp40xJOaRH2j+Yzk{&B_JcKcvwqP)3n z=_SxvU!J3$M_!=%t6VWIjwF6M&5=o=+8=!~Qg^%P@e}WYFq?C;HPvsYowi)+k1|Cx z@Wp^;Z1qKMK9qpn8+*c=w(kZ!x!()PhwiYE{aZ7nKgTcsYijfV!g>48!v=rFN&UM< zN=5b`BES{d|3H8%vj2Pn+@HVZzgzs5c=$8_g8;Zc7XK;X@yFtygT?D z%c8N9+m-Eedyfi~SVxJ+>325Dk3Cf)FEf077qtF%gB&ZFlx_=~{TmEw=Hrw8IUmzy z-Zw@69*<2i>E!j$&L*4>Pveti`{pB^_usn*UV)|!zE2~Ul|JnV-B-S+y&-sa_E~+qQ*$9_nun*YGA@24atn6m=64KA@{M|jJ zM2pBQtBYV=;MGYM`0jNc%wsL0uov4V4q6v$m`%YYs<{;v^fy@i4(S^GSWe1_`CRlS z9$xqO&QmT?Lsj5Glxx2Tbem%!bPspIYQ36|JW@PeCe2RXvM)+o38`6c$m?iOM@n+V zSZXd*pK10hLH3->{95(iz3@m$i7!7SdOCje6lW11Y=ON7^$%HhEFjvVFV}HPToaK# zhr7vdGHfN*`gx~$$p*hp-T&n0EWh5A3_$WN)4&eTE?tkgVSkKLV2+cr_UE)X;`aGD zvgw1~G$%I`v7EV)waV|o>P93~Pvw9zL~hSTdyZ8 z8=!>PNi#L()Wk-=g4N#5=APEfl+o8t+xtCl5AqCw@N?O6PGzU3bLO*YDpF2%dE-2+ zj?9}3SLdYcEgPO|cAiuG7>#C?c*Dn=n1IZ8Z(Hv$zz&z#2~q2xQ6186>th?69HUEz zMtNQ|o=Dew6#J`Ld2JQ+?w&0%m!z#-e63zM%IaL)`xo)mz$2x&?lpV!0Sv`WLN2;Rj#eEzx?vYdH3^m_Ee{fX+^3N4e{id z{9`^WV*A9>;gaFCMU-?Zg*BQZXPtJtgpQ9k>SSE=myMT9Lkf1MQr3A()4411Zb92y z<5|KTa@|7@8;#-8x#X$aV&!B>{0h9>Tgc9dYTSX5E?dPR6r9YgZk7nJL!Uk#!L zr8m*VhZvq^Ko;J{u7dc@3-sq)x?tq!^pV>ZZjbFNCzL?KG`uF{HGdekE89=fHrgyy5qmaS{C9UW{;R&Hwp`v1p%f`+EfyA1 z3z5R6U&1u@59bTGiWvX+{qEHXm`8nsblKGEcPW32mPRgm>DSzxT-89tW`@}g7_o-3 zB!rY?2{&f7#q&8x>W2pLhgr16?gnTMj-_bf=R+rCvmYj>$M4+&(c%t;R(zvU%y8H^ zOxBOX8bW*xgCKY0ve{dp9c3h6aw~!FeEo)osA{FWt*;}seEANmpB$cM{FFY#6XLaG zm@U~J7D_8qOQg=S6jmtWaT{lsN1eH?_^Pz|ZE1vffQ^z1Tsyr_h8T6YEPlm@{E5!Q zb*+5QKW83f##p$^-uK*nvd(WGwx2e0Z%SGkheFc)BH?70AA1|ix`d+x>g97_TG14- zMdPFlMp@@wdJNx;_URgZuGi`8%BwZ*46L>VBPMIT@3t;)6uvmdVt zIp6CmVNk6g)%lJ+Kd-)B>YB-J7U)+1rIEB-jNwuuL*1gfLHM=;meqY{zo|h^tT)b@ zcOy63nQ>j1iis>|hlRy;sUL@Xq2UhA?7EWlwUuzX_79$MUl|z$Ej6#BZcs-fF5k(v zf@V3BY4U(aD)-aLJOVS(-f6rBfXi9ude5hQnJE0z>c`Cm3>6=Gq9KRb=Ta`1SI`R9 z#jlvFTG^yA8gCnuIX_w*;Nh}+wmz3%zru|xYF~)F(hn1hYT!nNc*~Zq|swACCVfvjn;8LiDTNLEWT1}z~TDiIIP-7;s zk*X!x1WNRFwbGBzW?#xNdLK5bU{5>cWuj@m3_j)w-b&%9STFK!J59if_4y&+*t_Sl zCXJl>IqQe@U!?oN;F_9&3Mrs9q$8h9#)DE}eLPH!ZQVQfF#NlD0Q2Ee`r*czG@|Eo zHWYopOk{;-5TxR{JV>l|OJ`c&^&A2m{XjRDi+4wOsl<3#OA12SEnvCc!tQ%{z*zLJ zw@06qsx)$ooZ)ZRFac7at%!FbEY5xN`T*-HN4{hs;L&GozxXY#EO`qWMSIh#&5x`{ z+TU7~e>TZ7awzt6k+nI0zuHfaZ6ZW<-6i_Db3u3|_p8@b@|W#<^4(Wz@2)Tn?9N1J zU#}NyKL53k@3Vu<0UHrCAZl7lL%hi1cYQXytggduxRGm2X0UB07gr9ft4}+rgLJPP zdaC(Zcu!DJVdrHR6tdG~*k`enab_`FxM!`^XfL`TeN#8H7T;Q;idk^8z+$-2)?z_d z>E|&nF$xiExC5G*Tug)#Xi3++RjWJDF56aYOXEmH~m5k3r zI;&CZTqdDpxt8O+ZTGiF#L=N&JEZ3&#+kMHe|*jAckf67mR@zJZhc$fjnVN zLJh*KG{r&o&GQ-jK4fKfFCmR{w9I8;u;$nNL&D3jJet?a%zf+s@P~gK$|E5&QddDO zY;zSHz+H!Gk?CipX$!W=pRLRh80(T8OkO>cj8$I_q|!cD7cju;ZqBv0CRZW4b#S8)>4V zht+#n5-DYItFWC>fNDLK{wz+-(mXq{kzN&DUFzaz;>-eB@)RHPs)eD7^_JV6%R&#| zeK#oQs=-Tg_)OKL$AEEom*(TNK|y{4PQ_;L)6%naKTd9nviX&2O;2jqK(6QW(W=dD zhoG^dy6c-Aig|8!ItMG@Tah<-Y4F$D{}kYFck`O)rzS3M41HN=mygUZ$1$en8lcj> zNLKsg-&Cw-1?H`PtiUFA0Vv0t%uRv&=d0Z=*dM`IImjn?s{r=L?#PZ$o<3;`CP)) z6jSAR?bJ^?umA=eOMnYD4^vdX%bg z6c@E!+!bLqlce*tI#-x>01m$C25ZfvhijY3Cx@eW-MaYHMw%kE=b3>!Oaih;rKtntp z#EY0Kr&evSPx?8jTuydVm@uERd+x~rxp3LmKc9r|UWj0Nt<38yUQJ0|vP0G{ST5xw zCyttLZe6lb9d~J|9hhYNf`JH-T zH6%l?AHd-H*~zJ2CYGfEpfKL!S*dko`lny2Oyq9>_V(3c4qu%vvm8%ixzl%2S>*e# zXgS}!kS71dH?Dn0!@AgiJl2(0ubC~rv(hH((O46ZO-d^c#;Fipk*`eWn3!cQTe>)B zkf=2`GqZ-gf8GhSw57j2X8PxMTK>*a(tlE1`L8=9MfOjl&tG*&ihsy&{>d_dKYz`C zKT6_C|FDo|Tsk(LI!mUC6v1t<&)Z@Oyb}_a-uRA?tDPY6zbe>J4D~Emq@6 zD#z5pPcc1k{B}1(qEC&5#tUAmOglk;vAc2Z-P5~O-|C*%!~V4R@MiJ5RZ8FN@BN}K z01D82CiUW)9VnJwyhO-4n7^Xyx>j83k#DDUD@{GBt!pLBnXQ5~5{i&d#Jk3LKL)Z| zu6CsqAM(AwBMtko`(gBJA#kv+vn~_P*3BFF&~U2g%*4h$8Owe_F7`H!G2~aj)9WR6 zlD*tj7X6ZT8L>t!TkyB0A5lmI`3_dOKFm7znr0QW(`LQNcUPzs2Pd1}NVw`;7mJP^ zPt4|S;OMT`FJ6N3{!!F7>(gi6L8_IZP`Gcipiklqvi3lyzaV#Ao-ohPiOt6L$q;$V z*`ncXcLB8i_@3XUhtVYSCR^}*lv-UG*p7uey}c58lYd@UB6fgt(K5cFP~)55xaar_@^4`#H8!*(tGn?CDZ>FXzrPDl-N! z@C92Npqv}sP$pAZ2_bn@WRRNcMyU&0cavWZU+#x!R@zJbW}=dQS5^)g_Lp z0Wf8=kV4O!df*>UaPF~}-levkWk2ASHJ821b9vr}b7hL4%f>9+w?<{{5}ilpaVJa1 z^wEBVmyz68k0;}^Fa97cV_oC6yjYzxaE{|i7R6d#j^JsLxV{e%(14H`AcZ7Oe?#n&<)>(6i^c$*VFX-n>#<=yq zrS=q7LD63EM(Er1VvYU)r+q0dzX{;{emLi*g|yL7BR!ntso^$M?g)=xcQo$mvtMu= zth>T|U0;#ieo%C|-5uT){-oCA_6Ku1IHpCtx@ZU5{S2vdyoQxazTA)y+RNG;ITq^t zR@sfv>Ykfu&B5dcT^{z4p!GCHw}SQCI0zr=0(xdbV`2dLT00JS^_^=eg`hSgwa=Af zb6*Q{kvylmvj`N^LVuoP?qMGdh*6Wydhe^?tO!1T$Zw{s{@dxln{%`ig4rND&m&!8 ze(_~#W#sf%tJ=klD)l?B&IM|>%lIgr*%Pywxf$<6Yn0o-uJDp;Rqil&VTZ3Wjqtzb zY;)y4*)mQS=CS)~enWbG*U`f24AR z=Bu8zN%qm%pAw~YN%QPU;8Ol|A%l_2UmG4O*XSM*Zj;qJ*PIt5Ml+w^<|?1p_8Pk1 zBh;WdosB;D)@ZeedMA)ZubWak;0vArc0A_8Wu$Pzxrm@8re{u4$?MsT_X{0eU(pk4 zLrRM_8Yi7cn=5u$}XJ@RjO>NFLHpKy%I1Fcjm|dpZsSRs%ds8ZEtxsO){xaEb`qeH(;u}Jxxy$CLIaKxnb+7W9 z;PU4YvrjcU%YC*P+ekOg!oszqx_q91#F?>h=M!{z+^Z~?rl6zIhId_X9+0%CHot^_GDNMtkbP($Fe!zZ(USE*fdOp?UIQvvY_m4fM z07@C(H+mlRIr2whyv~Qesf7%oCd9vkI*$&Db55Eq7??+4RcU3lY2VvrLuZ|Po3pNH z3W0J7&FjjoVy8gMapCqoQXd*pqgGCyDo@CCB;&7=0jwiOxNT;6JZz0>{h7CRqJ&G= z(1G_W-A>U^){?;p;1oEzmw zf&0C@t1?;_5{gnNsXpoU<3~E6%ly~l3W#i)dZ)Xs{)%sU2IE^oWdN@*J3xGG@7yqlZd{b|?1qkHPd*$5VBCh|Gk*a@%;Z+43G?xLKPy<}k`shCXp= z6e-QHSGClj^&n5tuPIB=loVw2J=%h2;?Wc_O(&3z4KLc6SSSP4N?zmjFk=*FrPBk3 z_Zi||5U|+06e5GTyT@|5NAB;@u#-^-!{s<7_t&xwR3mTXjc2y#q`6%%hop;M{@Jfi z709q!J;0(?Uwd>|OTpCnC7h$=Jk=>sgD2sGz+ws7umz(2_8m58isI|(M&yk!F8PH~ zxOBR?l{RDO(~j9lnxk{{EOWn2>GkCF?vC=ajJ)8fNpowAk##g^FC}w*ZaExEp=$TU zg0%J)k1q7=^pK!VH)7A6%!xqrrIgl(mB>b48s|$jdQW0oDMW037rRXz z(rN{7MC| ztA!rD#Xgd1DYK(~V){eon~+)#R{ivZq#liZtwI4*jobtDKA!{!yTT$J*-9|83p)eU z$Ex48JbHIbXB0;rSsRsbC#(`){-zbm#X_NZl)1^gKnl#ei|GySC7+HaGN@i>r;Aiv zwMT2LZ{}pyQI^Sf@>1%Xa-A8LJ??0C+;>;oO{~VWIA)xYx7e1g_plzxIroQn;a#gg zrVxFQ=8x<0G!ZiLv>)rsyu9z3uyEa;sIzQfwNHKDH17{B2-gZBt(If&V1tv3L~z-mn~NBBIWs|yb;JHI%Q(a`N!*Ok-V(Q#ZwRZU@3io* zwD6HCzwFJhU%3lG_jmo>F&Kf{>7v(ZnOntQ=Cz~k`fyme^+M}7FR^!98P`CUl zvED^d21%-0=*PW^0TwgSgojU>xE_yN)y?qWdqnv&y%6%yutOS)TevFTnzO7`9(2`1 z=DVpHaI`|6med*0&=p9X}GDaoW7V$}ILlZo)wz_$O?1{5MXY9JC zaoMYjSzw`olIewb((Dgpl`MZc#*jBe*Ut}mTvbN2 zHH#}H(1z**rcqf=_odUQQ#9lSSnm=tj2j)xq|oA>Sz4BX|)(ateFA`lKlG)__o$Fr$IoA+U1@JSytY+e<2WKMmhnkj`3 zQeAbbusoLfw6?e1;criB{+M|Da|1zt=cMM}wA%hA?W6Q3S>(U{l{&ciKSj*{W>WL7 zU-r*a2N&7DYPtQZIvD*aW;X!nkv zx6?cMIRY_HMeY4ohC_y7ulC!rDdcg4&lObHe!0z^`N|-xy2M(u$8J@rT3zevkg{6* zQdXQ?$4fmDAQKE;&ZxT|##ja;=SLnX{n{CJym-mGSM%~&E^f*2`yBYxv2u@gDRbI7 z%xb6Mm1dpOGVM6M9=Mp3Z&yA;S^{Dw(R~@L8^kG-qA$rg5k+63i=+f;;SZRy>?7zf8B01Xk%dG zUJHHScoZ9KHyw8S)@#?G)H5HqSGJuNUnVxuwm8zxI?}zX{JO=(sq}ktYT?%msd~Dj z=O5#9E7YpjJf8#QusCI+CDH=b(wh*S_)>lLZa&oFA8|g4 z=LUQL znMI+l>{Ss?7B;AMDM7e4JQ znbt12mmJ}@NKs8`|4u`yC}u}7(dc%Lx{d+XyYwVlz+B9Addpk)HdNkK`_WqNFoe>E ziF=x``mo*o1dSCOa4r=r?ri(D5TofIXGl36wgdxIy~CPPb8Z83^_278{ivXHMzo_ zkKdZIJ&dkM-Cjg5hx3L9L#4V`sX54ZZ;lVdF^xNp^Sw0}HB!~`w=BT5d$1fc$JHV& zm)A{~H@8}+<08itI#9CMDb-svQY)BG*saw_h7O#eHFKR^(4IyofsIBIa4v@swbfS5 z%qriXzJKV2<1@De+4>@GW#b2vx0l)800Qvr<@L~_POrAU03~rfw+6$`+Gy_AKR&Q- zxtHzSel7Mb)CjM2#;b_TOwMHZKC=o2U{x(&y1MsicQYSWDh+STbszkkGA>E zpv6WpxLw?XbN%Zy zcaTQ}f!;q%=iZB#xU}x!yiz>W7knA%+pkuA7rxHQeYGhxa*g$+JeoG;!JVt2fdNYU z_5gq@x~CsWK!ZPK*IvJwE>!^tFm7GH;0XkA_qn4Ub`@#Z;PV*T9y&+=&FrQl>kL<; z!gZx4x~sRsTVueVpPn9r4KW{Tj~p8jk+f_gX}Qf&Tnkh>ZoJUjuWXmeNK3LHtNl!E zh#qqb&${UD?9^1mZXlG5&!rU(?A3yiqu3@QAGs$lR#3B`oioOxU%AJ`W3+Va7_Z6& zyY2_O=8bEHpQV4_RC_zuFZOb#ZR~XjDGDiU0ooU2OxA)%?&ZGpz>PAk@)DqsA=h+- zcXtvTj1|~pnDGzq936o=&+iaN+lpC0h?b5s2)Fu#ip1AJZ8vVLPw}m4AL}E)VrO>d!GMT;A$7|HKJKMhH6LfpQ!R3vS$@N`$FPvfEjPFuZZm zu8FlGZa-_vrY8In{M_s662o%`s~av>rN&-Ax7M$Y6Xg|*#*up|71rq0T1w;jAa%o= z?IbsQf@$KwA17pYOCE6l$Nb!vde|08YLOuTSG~nvp9)aSFQYCvxY8`ITEh-Xb5&|e z^XC@0N2E=4dGdg@K-?htoRIn{XS1N^x_{a;+ZBKQ9xp8qeu=D*vi7CEW-kDk>3 zh0FIph~M*Z_8j-T$wVxpIHmRPLzSSy{0U zR>V43(|65x&KJgbp8LM8!UVjATVOa9ldoXTo4&W{^;|8tkW=Gid{zZrR zbU&Y8^!E!cN8Ms|p+GyBE7WfaVOyy$m9c>#cO667ueoWJ7|dTDgo>v`z{Ub$Rx@2oBSKu3*x zXOnmL1o}{IJ0@y)KDx$7PR*^FIy5OXJY>j##p(L{G6h!!UQ8;BTzW^}HvN_~Di2C9 zNPZj3U(azH-0dM0VGTz5Cc75&NaT{7NaMU{=MX?mu zLsiu#;()rXULJKftq1k~H3DsJQ0e2!BGv-B$2@>9+XY1v#--3Jvkw0eEaN?V>&*o> z-*1!BB`Fd7JePcqTR;JatCToiHfYU%JN+VX_H{*tR4+(PWytXb?30H8SQqc^?z!+~ zA^_?FZGIY5A7+KSciDUp`c2u(5UdSUdu_GOd%(oofHgSM_C{OBcI75!5t~a+{y`)~Ca|&rkYuRKmNk2zBZ!bWt?3209l(yxZM8&zU zSK3USwE_r`C1MCz`unB%T7?BL3@ZV(cyi=+TJ_kBbHo9eb|4;4iqRDiSx9-xRURWG zKdJf~OhjLwHD9hBhOhO#3i5TQ70}_CPg7uc>D^N+M++^^zaJO0!j#MWa*GvFbKY{nO3}Gos zn%n)DBNnH4P-s8vGyKuIL^DMLyfA&f0i=`{&j#2DwxztF%oyGB1iE4NqN04UZ>JRy{=XVKx>Al@_4;*%vV{v5qe-RqDGVB5bJUdH^5uo`IP z>r2_SKaf4d_W_DO8@`IG%ei7|sDLp1#3dWUGLM+^%>)F5qiZ+57PaN!GFO5Pmx1uz z4*r}h2QaU^z&*m*Y=JLZ9ys;E+gnr}AQRTquFSJ`$U@t=Ug*iaYI2CiIXZtVv}Fg3 zZSvPcZwAoz5X^PG%d%yfGoEEqP@zSU++{!DTgykcV-QLNzLDyJ1(VIU?$4?F)Cds3 z>?G>^0IniVDns|jetyVTNX(n8x=$-d1Emrbq`~D?A9> z`2atDw`DXGk>@-Ngk~AE>-Ak)9ZD~`A$!%*lqYMZ#=LY;ZGN)qfw**w1*UGFujppC zjB&xasmmMCHSqmvQ_-*GIn)TL!s2=3Dk^LiIk*FqOa1X7Lb$;Y8{F;wBsWzv<=rT@ zW_ziWxn>v{XHzv@4}*53`Oi9e3oe>=W_V!|a$Jj#qD_M(KV7d2tXWs+pI5&K?33?4K3h$BYu#xZ68-SIFlV-abyHNitaj z`cWgB;?<@oy~0&n+W6M&NMv0D_hIZq&YX|kz3 z=H0}o+o`%Bo;xMZQ-A=LCRcvVyb6%Ok8Z`1+n&c0=3o{2Vr7^uQ8syE$J{Q+O6ucE z$=`6XlF@Q7%F!HsN-$yyWUXG(Yx?9Gda0L6*QgX~1ZVQIHQ67$_;Gn-g|a4DMVdTj zGG6L=ceUcjmz=)shj6ob=kUup`z)W!(GUVGRY@7ju~4Zm@9lXSynw*A?{yWsltsPi zU|T)cm>ZbR2ESacH5pO4o2l96INL96u(ZY2(4l{XSDS0ER9Jm)6Qne0z0dRto-9Hq zhaIxncAT^-w_a}*7-C=;+d9x_isZKJ`mde}q%Tkq&XZ zsOO#eKLgPWNa(dN2&rv$ryrG$+^>_P?tn@6}yS`Pa0fZcvbXWq_7rN_S7|W^z0jz(uOVvvq4{o(X#t*T7-k@&sE_W0O8z-_WgR2h{$*b7Ri)n&o0N(p75zP75~rPB^P zOv`&a=d-^LRJ*vq_1ZEK1bJKuh9PI2eCiB+5hhk zV*kad-`@=(|Bp{0%|Fgze|ri6(APg^a{tCt$e%y+A5I}84H^~yG9Lq&8d#9j|Ad_~ zdTR0KkEhCn@aVUOk$B(X866KN1#NKNbbkj42QkXc-K+J1<2mh4pql9u!a$MiGR!=T z?yWw+*IJXRPU7Nl(j_>fR#E#cOALendf`3xGC;^x~y6VAX0h|&LV>N%dv-*CyBMA7XJe!;5ef}mJkbNj^Z~Gfx z9Z8_bpPK}2Di>=SZr@Mg`x3#64Km#}#~nHNiF$J&feTO6*`$8(px4TK1sZUCmdH*& z)}GNgsmP<}{VYg}aW<39aHSQxS!)E|9%%19I^$}~IF9S&`}B%VO*0*u{PW$bL8neN zCUyo;kjuJ}zdfcCW$2)PGTcaBu6!7+cxSuOODz`s&Szc*B#a_p+3Gef-GSTP?P? z$vh~7-(Th6OV6|Q{c&GZ$+^^rBuiHnU*e87_4Go%^BMeB6P4lnOkXJBL?1X0a+?C& z&*}hhwdD)5db@tHjZ**Ko!K^cE5iCR(N#~H__nV#o9ef4+K+c3hbeqaKTLmetvmhX zSSf*=R}7in_$T>muLbU~x8jreJbZ%=m&|EC%-ujKVL1KfKb69V68c~4vIo_#4vPpK z&4}r*`g5`uROpS0SF5xxVcTh36;Sbnkc;r1Tg$DN|R5!_W@vnK3@ zJU5SD=W`pi9uf$EH4RgL`?&BpMfj9^C1wu;f=C7JdVsn=2{U2@Qb0GZTf9!fQt^kp zFCdfz>=xQtM}rPFhH4`Yd@1~N!S{2`kQ!H>A)Ok|R5>KmO4IU7iHnAhH%GtR1DqMm zPr(pJ_N!R&!1^R@v^UWEa4=}D={dvRb%XJMa14U-L%a0BjpGjGHdF4TaPN0cuM(78 zeU`VlWBH}hF#&7sBbA;dh)L|xFcx1$tmhJS0qYPAkQl9&`B6W{PXqQjZaCoWe23SO zH`?nxOu4o?0wBdDOuBI=)opLZ&xI?k@4OP5YT0 zR`;DZQeJ!ofKel1W`6SvM-x~In$z%A?AuQ79*#WRn2XPDqsqP4WWmn%H2s!kwK^?2P_i0q`lnMf`_>-cc7A3dwV4nQ++!xKFyHUN zlU!fb&(2*30%oReI97*pU!de*?Xs-82OwbpFL?yH&HKgjG7ow##=R3?DeGnIa|Q5s ze-Uutg-Z1Nb+GEGLf+126KS1ggK-9|xD_YAgX$Po{VY4z__rU|D)%BduO-dR?MvC+ zH;RMymNuRbV0C!uR;*bguL4+kR}q5Bq$`}wUK7B^>MLNV)Zz(W4-4&(1h_r4W7)am zTtxsa0%T2ql>;2MkDQrTq7&*y*)po#ECLaY617k3HwZ|*^4$ap0lC0zOIFs*4W|~L zCrm$bu%_dGkOH0S-?~)e>k--UdEQLrr8I?4%@W#tF=7*Xi;g%@^;>;@9?hr0<)Bwa z!;Tre;Q~-d&V+3DX|E9}VUEIZj(Nqf6Lzn@=N~(Ve)ZZP6rsB>X36}(3$I!*Mp=&6 z<1QgTpR1IdAA9}ve5WE5H6q%n3)3#&9so8*8rDWJ$>ID=RW>b z-x;rVjMFDSo=uI~UA0(bh3ALctTcPvyGGDzfWIiCF1SIm-PszXP^%tfcXxy4X;J6i zQ&wYNA^TClWRa@6m(h;^OVT=StkGhz1}OC8wL4|x?7X;iif`BR0tFoLL#X)kS*$c& zu&lmeQ7U#$wCMIay{Y~dv9VzSanw9AOYiHGIN=xOTeDxsqJam5%KRSWLB*jed(rQY z2hLYFw}n!Ud(!GI*TKcWTR7r-ryTqIdw=QyIXejwrgEWmi#_*Gt91abx_kgS3DA%T zmwvAJ;^L{N8!j>xxJJRyBkf}b~ZlaOs;tL>bL7K>9WsJeQ+hciZpL@oIwjq zEU3F&g3;pTPH9CF!Tgeo^u{fZI`tmM?9zW!%{gs3y7MYrfbeO--H}+>x83~m`kSr| zd!qw=IADWFhqs!xv0u@M4$~7}!VF3EypMNfWxE>E$96)4J4i`x_80QUoF{&#r=>+f zsNpBj;xFF&{ye>cve`ui4YoCiup+t;ARN~w7c;*O#B z&^24dy+T5{SXdO&Y3P|COj{IkuSr1M$zR^>@6NLXfB+VA?}a_p{fr9fUR^6$wiRn|-fnfs;EIYt51TJ=ftw^dr)KyqHCfnpZTrT@z*Bf-kpLbXZ^4`L*6#Ul zv_J!HK`zG)PUQ)4xhUUj)$YIEYlE&-z%qGw;y2XD=GhYeYcQ0T*8khGc-1@j3hts>p}@{{ zgreeVR5p9p_CFaCJ6TV@9ch$bL4tP*mq(tyv*A>mC zI|^H?=espue<2Cx3c!#2WEb^i81yO6hI-v7FMBOv#!fFuOp95oqvj`- zHc*^pfJ!#=)552ACp(LL;*B2-zuE-hv14h!jFG)jAdoNAtCUk9Ip%8R;n`(e^-vr&!C|P?O<>li~S~)D}D&N zefg(%{XgHI|L^bmf1CaJuig8Bz4LE|4gcr&{y(-He|PWyk1Wo=^WOhAtcU-I$hR6S z^Do}}!D64$<>MWWoBDCJ)IVlzT)$V+A=|lD)%8?}CK3hI;@Qi}@0RePd}@QbO!2(@ zO!D=LyD@(npr3f5T~xaB_!R{rEy zS&TnD9fhvzPB*TdXLF#44$)_yM&6|}`u@W2p4UCiCZ%iob{8+jqFM=X8u8%LFu-^} zyndOr7SQJ^1dgHpx{grJcz|%_bL(a-E2TD8IWeAOIoU~lii2G?{ipg zHlPr6nsJ|H2TXVbXp_ef6kO=mTs1FYI?SKTAL@77h^&ur@|p`z4bU~q&CBi5aNKb$ zwSUee6sc_UX|ek~@|E5N!#L~%?X_z3%uJ2|5tq%ObIZe^nN&G($a32WCT^k*2-&T< zqqy>c6{0dSPjQ=L+Dz}d^wtlcDS;Nzj(JV1BX4Bvw8=Za+usCj`;iYr^nx)&GzrW` zMU|0LI4N8v??Od536_M?J7_hcjNb1L#KRRP=8)wGocA|HsJXuIv_30 z9@>}vp$PUmE9P{cE}8f>ZM7bG3m-4UL}=fypkj-rm!}+1wP&!onsaYe_{YgietYOx>GFk8UATA5Z`M6LoXJx%t?o`*6Gmu9Oorqby(_m0uK--K#qv41Lvo<83O2%si0viyDs zV1~d)Q(LVIHLt%~(I23NmVCUGR@aLX!BIcADHn%Akh71V_*I<*Rks_k+|%J2anKfC zav4b3Zad2RGO_zU0QO^f6aQvK`a)7pNaE-HaXL6uJiEKG3Q&28px1i4in8E}v21J( zWaWw&x4F5U+p4qi(?hFP!>1kk^e$cL+rc;&TT?7#rzXIFmnR7i&3dK+ZsEZ8jRJl7 zfa@#jX(Dd`XH^T4np~}pxM5)fghJbvX8X@eOQ>8QDsM)C`EEOR@VnRw@Mu@#j0UUe z!MA=yhjOcb3aktH12)4RT-0YNF2+$@c-V>&c#*i??zetCReNzZ3ThUFkeF=D47H%)=^U|se^5^gs!CuV|(OlJO=m>l0 zpk?=q;`Jk}pIZ2CfMT$42bu8edFu7B>#Q$>;Zf+X)a53)y(gGbxPnO-sAPy2Qy)Q~ zJ_uI7^HgkNpQ1ff?%3EYO0iI-c`E0QW>L?Brs1)bxo5$vNq)5K zsQ`SxL@)PlJ8yF)YEYc2sVADYw5Hk6Ia2{Y$0R%ZVm~EYKkMRnLUCwrJBcxJd-mPs z=v*B_q4NHGz)S!{^Ub7d1MAfhAg=(&iQ-iWn{oHHJ9@VIkZ+W=|ws1zKm}qVZ_AOA?j24I(y(M8s`E-LH#PwomrNd^( zkcGUQKM@%ef=kNQz7i$7nj$km33D`_4}ih;wT=o~E!}DkK;$F9_OT{b_ojJ2-et~A zw76-9#|Co?p;q^1mtqI0PIP?+w<)Fc>%XVBZ()#X7BdDtp7B-xEx*9OMD9HR8b93E zPxtuTf6ATRrvFSK4IX9e^xn+#z$x2V?Z{*I@|-3#2Fzf&WjtlDMrZ#~0CeL9yk`>f zn%7SaYyCRBN2}_0c1xj`Ti0`_B)AsvjhCwH8uJr&ZJnX-9{p?6{P{(-R*@=M)N49t z#4wUV0OR{Cs@--lJl${#3b;vkgcI!-zA!)#u1njh)=09v^9s?hvtfCKlYsD^wp^_> zR{KIc9jq!sY8A)ipe0)85aQ};H>EE6c2qUu!EG)+dd*5%a}SIA4L*R_?q?V(%&8y& z&QUb4se^(y`SOnumYgc3IT)KmpX#6r>_u@Tna2^u$Ji;yUR7cG9H|E}=Rs4mRUWSkSbXZT$0pjl#TC(+faP>FOo0lSdmN^l z{;XGd&UKxm zTAZY3q7NE&6G@l9?HHb+`DMEqwS~$OP^Tf6I8V&yZBE)BVziP50xj?ka9Zsz21EO? z-@+c0CXAa;g)dGJqc>wN8~$2SJ&=!2G+6?a;-*TPqN_l za50$PQTPF{zqX5ltQzR`a6q|qsV}JUsIt_kSb|@9h`h;Buh`qVKs$hNq;bsW*LH=L zO(LsIaL|4EOc{JLD?7>F$~Q`8rBx~%$Zb8AYJ=Gf+pZu*D~KWt2pvYh-v;{@;8_Xu zojIR9g7)kaSHdON%+h%V+Jb8{Iwv*#)VsbhY#J@n?hl?BLX>baMKAa?7CZ`OOx)&RoqF0jz_& zp>SehHh}4U(A(=#n zI()a_`1eiCXMqR+bEcKMGs9G(o>@wPLLUqlAM?A?z?1iUr33(pu7Vd;YrP<$%_ax9 zFbC~B9x?9=#%aO3eI>29ak>d06Am&jYr}|}U1ESV3WPB&A_VWsVy~W^Zc+YpA(<5g*)Jmr|QeDPbD!Gb#LbuGVq)XfBuV?sYX}8cxq+cnwUFCI! zf*W$um-J%$(Nzhr2R~x#H`%ao>z3M};gVN?w&U46W=vMFd+ibR{4TBe>4d=%G1I5> zVIRVG{bsY9!_XyZtgY1*Ak7W&ez@2Ipid2>e!f#lvrTkx+45XWV7Y)Hqw#MY?Jzp1 zv>mDk0oGFfP`}NUZ)4%qbC(Mf#n zz4ngIUjdp@rMm%SB+vaU87x+mFYj)PSbMmiyjr>P-N;cfituiuTmg*2_TY$pqG5t% zua1ttYUQ5}HEBf5mW%o=X{n9#Hm1BsEz9^Fm zPy=Q(+dcY?mw=6vd<%u_GKvC??k!YZdB7c))=(d)Sxf z7I^%>$LR(4MojxVId?~A0s>jiUWY-bDvKmq$FuE4oXq>;6pw$dkWIyo;jYS@A*$6D z4N_56rQqj?LB~#*fd#;e&J;Sl_uNewszFTM;KrMc>yNmV@ukZ7IPBhK#&^al^U0CD zqZ9=?Z#}X$)9e;}o@2VXUwXMfZdmT*I?b5Ptp)|(36ePZ7D6tpX`{X5 zI3|>^c;E5xsK5I3sXgd3JnjuVMxbQ7ZPMa=u4qB0u*~wxb?DTJIkqBQG<&>0wBP1V z?%Woe25U8@TD=b_AB*)7RAR=@SF2?0prG3AZ*m80Isn7ys(HC$#lyn@=p^agH1i@d zD}QPKL!zlU?Ybo=9+hAaB)sM5ZwM#-RoSV3q<^zWje&Hu=K{@la$O; zC-!LF@ey7l-tFK0+qj2w($$glt&eAROS_IAELS^fow8)~&ihD)R>y>$cW}T`4v|<1 z5Vr4M$(Q%x(-c07?7rH(q94btBa&-YWit)MT$poEfJ6|p-SZ%=p+|HsZ&EVXOlF1N z^`I+SxqS zqyxY;eFa8*=;6Ag7pvGDhB5UqTQb`A1g|k=iBdq=iTy@kI<;tYU7($)3Eu+bxUV{( zH;roq82CH$=$+{m+nKHb7uFBqjf7d}Xj8f&ePmR(Y`m#e7HI7!xz-+bG9>pcK^*A+ ziw6TM_Ln>Ea@miX!Kcp6^UqNus|~QS@vGwP1&S`5A>L2gui+~d$1Wjf8o1}|5<7ub z4p`(eQ+~G)`O_W*EjOfZCW9V(MC#02u-Z2h58Ep({=F*Sx7o?NI_L=@+roKHugiHd zf?Am{RI1mw06;9f;pCHz=VwGt-#2r+`_zJUg2d?J3r)+$;Au0jAy%wP7uFb! zmoak|@c}Ttwa%mH6TnhVzTnmC5*@yhd6T0;bkT&h()W62F~@L*U>?3L#2-C*JHu&I zZ`0uVsG|oIf5 zsFHNo${O~Cp9qxz2<)~&uwx{m+lg7{Z&od)&wM5 z-{XAComk`xbR=4J7l&HgY9~B$8zz5UzRZWWvcVrgEi0gS-#wJ8X8U^&>fcUZD|}`l z|7JgrNZobbN9WMIfbHPhgf>TvHD>_b%$BVQemVKpHbM?_>RfAq3iqP4l82wFgR$^u z69?&DgKL4j_@3fixA+=uvQb)uwz*%mBQI$>os?QlEFWQj96p_{>ga?hM!6;b z4VA-fc)&fY83f(R4LK;MEmc`o<+7Sd48s)Ejp$YCu&havMp%{I^Z@&BmFXwPy zVDSc6hHgWy^`@zFfSNbwgbz=l-rGy+<2l`M+7sGsN`0TL6JJ`gCc||+UQ|1i@|L@t z9X7bsm-)hT?GL`o^1Ve&dKR2rqoaK?PSz~3~Mddp>6FcrcsblYWUvT;{y1-&}AW9~2De6?lagqnz$!Fc%7i-ng{? zzW5yiwm@cO#`aQ{&#KdntGze&d_~UAwNgp?CX;OOYf!rNTS6Y!&Eg|Sx_^)q0qkyn zsQ^mfq1pDK{>3&TOm(4`^Gr zjaP?QJiWz-dgb@0L&fpNsS`ipw0#MdRD zCzOW3VCdfC-nAiu>-*5Zl;D$5!q51Adb73n;ajT;DNFYDl_@*Ae8zHVv;C?%kZ|ah zNTZ9W-Q6&5-XBy}$88&`sH)_*BDJng8nfaM@QB+B#VUrit{z2d9_6sng59Y6;hBV{kTkNg3A+J@VeNzW7>X<*} z%s!`H+(+1`A)`(#$Hm;sebQqRT|iP7_Z+R%I%Dk;wrD+&?XP?8a(6CY2B_i2P!f0Q z+TJ#au{+u_^~UyHd-lr+V^!E{9v+NJ&|@46w|uz|l9!F+J;tAx`lZ~Ssl|>8DDJ)tF}t_fDM+*z`ys|s=e1ED@oY*>2TXHKvfQ9-h?*jQ`-u`sc$)8Mz%Qz z%8-CZ`sePQ192Q10ZWuw1SEUOooEQP96hc@G`yrq2e(0(buP3XJHcl4a=BeUk9zwi zy#?T|dmp<*hhn#@9nP&QE#v6uQKq&9K}d6e0x`L6bN$y&_<`qSK3xGf;Bw|m6bDlq#?&GLwyCOKeuGnU2G2VTf`+8A2cWX3j4lQt=uG7rO zDTLpVSHt(tKP+fexVGP{N~y!05U@!A<$AT+8p}D4%p=F2@^w})4fM2 zvs%N1x?ccqUFVJWGrxkX+Z_Id)6p!r6tSivgKO5RByv0`6`h%+e$hp%yzy$c?{ zyux+#buSQpYng+Cy{xU#^L}7BhpzV>^d7O>QmFfrtdO^p`^__4c{v$ZI~h<)(xZ#` z;k-i)0}+Tx2o)OE=^|H`=L4gI)7wk_P3ahrG2R0YYy#Q`;#CfW!GJp4F5@=OH0uC? zP{1P-rt(|EL5>+TtBseJn{xT6M`j%QOnv^W+@yiXsYE=r9BIrw0ZV>Z2QlyBG)fNn z+(xm*NPH%P)&nJ-2{f>j7o9{Kr!3xX9VQ5hW2gM&ran#r<0CoW_}!zIrp(YjWpRvcTFhlZiy} zMhm6iRx6<(LF&J24kxV)Q0Cob*z*X420%o6uH;Lla~spCcd7tovT*Dy)p;rE1LEqb z*&PR^TkUWh$viKlMjtyZ9_a$Qyj$JLY~|MGG281iV7<@-%g#f+zP^EOK<;|mJZbw< zJ#PSo#A~wZBLLR-M%0rPcGLHkYX>Ta>DpfwAD326SALC)5BMZH&gnT>{7x7^+xzv9 zH#sE-hPp5|&N5mLjEk?SC3UE4O&|w>T4}k~wooOQ6f+(b6f>za$UF+i<_mO#_hCU$ z?e`jX3(>R3&Jgi&rqD#&-YU7U+Iz$K4N$xeacl>++MZR&Z+AX`Zn%P7fLC)t5d9K^ z8u_bvTE87&*uAmY`zB9!VgNs@^%^N+d}{!i%bGX3Soe29!nCYg2T6*}ah1+28TXp^ z26h5cqhUpzPRhBnS@*rGGNcAG0`y?^*S$XBnvmre^@=2kr|a9FQss(YKb#KJTzpbBxSJ+7XUkID%$0n>KFz%KxUBiHxBcsqV1y~``u zlxMEnsqKeL-m|J#>^2TZTu0^(RBGiA8J=fFp`=j800fi5NYO2T`K>*c$CNe|ij{18 zDM(GB{sL-Q5%6!Ed)O6^%X0>#PiAe`C$IqFDS0MBL- zxxG>DC2F@2nl^{0!<4rTW9meMH$gc|-mD@?B{+x3a5Yv?3Ws)XSBT8YG3L(Hd(afg zvD-S*$0yDeteo$V_%dq-t5NR>(EC5Cy0okF2A%ul3yWQ`z1T{1=&@a&O1pEufiLDq zm`?;Br2Vf#GE?^RV6so)_wMjmK1Sqi{npwW`$bPn#=5fbvt8?afs0FM1UP_z%H1>? zgSsBJ`FmiAoBri29f#N7%4&)YkzE$iY&16G7$#c)p&S6~@kZV#FV1>}sy z;~Rug*VSj9n_UjRrLLTWkevBq+?wb_m@QU7(xG}Tq%FB!d*_xNYAZ7L-2*mxdp7l3kLY(9%G?fatmCqXY0n8it^Lze?w?O? z|DC5?@_!q*{ig@c|21t({y#|D{`oWi@xVy~z{$VXvNf)JtXSp8pMccO_R`z-qpEb$CAC~;{JKC@miBO%%ADIe!c%%0QOE)w~U1hs2zXHC2BPFG!Mao0zy|vG5_jz2202l&i&8`O? zKt9+-)==h&zKs+&ke-m%x$^ySDfIs*ZExDGu9{_gzGsa49RfrU1eHd>78Jq01shNi zI~o;xM^%0MS|?6sWMtgDw=&~qy*kJJ-&>JK;aO|V`J3Ht5wn{``##9rKMKCvA|G+z zc9LB!-&SNu&+UF*S-Y&CzNs#J2~r=0GP3y9NDATLN!Q*F3WiVmnG7nm!V3iNS|>uR z+yZ6=k*DrG_64+M>M|PD-BET9VmfdS*x@=XntH`+1Tlc@H&x7ugp3};)R%87Xu$m8?6Am`o#0szUUWqRSRF^l#N(=Bh zsY)GtkIXvcX^gc{A377jw$S_zY}TT_MlZP2CmhNfg%6KtzJ)3?38 zJN87Gczk<6>d35>w}g(|+K4T0O8NV7&3P0HrEurgr2_@#~LMic-_T5DIMVw zJ${@g7lv<-nbo9PL9Y4hM$3p|dLvp#y;q*pIxtB~ea^8p&QYVH2zd_M$0cr6>##?| z7k152+I`44B=1^dy4{7yqfsP_6Fp1a&vJdVfW`b275>(v{bS2`fYv3zH@jYyI?|Wz zS6>}k;u%j(P_0^dRFvz7JR|!)M9G{CZZ#g)&Uws8M@%L#i;r{V++u^LEb@5V`_k8P zQ4MZ$MGEEF5jO`{9;bhmH%2@W(BBp>e3l^Yf@y7?U^2bHuxQ&zxzhPICarjMJWfdb zo`Gh{+EN3DT&YF~$FxlQ+w|DZvv z3wiqyh19Xtz6*DOQb)!GMRTlKi&ObzcttjNc-*Muj2842g?**A z*q@^XK^f*TwUvZDlV`9k+sT49u5G0JW$CLGW&e#LY1pClQ^Blvj1C$6*Ew~nm;I&2 zi084^0=>02EMOz&vR&Jn-*ESZdG*9W?(xoi*3jkScbOo}hM!s`EOwojLrn_X4OC-| z>MrSD9PHQ8qO4-%CT#g~VEFS&xz*OS(dcZ#pn+4YN!Z}c!~t$MB8E}%}fOhcFu%=so8;RyS=jgJ7G5u$x&>*ah~ z4(kUFb~OGIJzbxjmi{S~opMrMG4$(zFBD zY8^AtiMW~LL3A@VKT^>lcP168kT}_k$)`13=*sj&)crl7+?(ujk7cv_ccLQutnxjg z>utS2a;fB$+=Jl^Cs8vf7bLFqQMDt8$}?w!Zq#TyL6p&K zHmy&`m`7U>s>ru)*4vraI@!Wj4(^JNVWKr7Ar1Z|QLWr~Ibkumn#`6Wt6o==*KvcG z)i7P!xpJmq5-+D5qdq=zn%%<@;GNC&LmiAE6#3HH#A6g4=$A#KdZ2mbR{1r=nZjRk z0TQ|y>0Kmi_A9&AXM86 z3sKjQh@i`73+>e+SIYFkmg+W)Q9O>%jTeos#}&Y>&P~2KaS!j<3_af|yQ0!f-QHq) ze;_mY2~ylFUE^8V!7wr7=-=fv^OaXw;|%o5g;X^KMLR4@6X!eMT{`RTN_G1+wB5T9 zUsUHFwI6MPL`kp+4tCpAuCLDD&s{x?AFr!A@@$~*i=|i+x$md4*>crz_V-!eIUAw0YGFi7v znNhC0?Te`r##Z%ji$of;Ff>VDbk_vD{rSB}ii<|MbiYlvUcE7SH(6OPRYu$c2=S%I z>3w)9aX2QAIqLKr^*2C|aVo@xC!SZ(6H|Z+UTwvs^jPQgYZnsP!1Pn9@BP&)b1SCV z+RG^fKda2zx#hM-Hstl5U5}Bw0wmESmyb^GsPfUN*68<~c5YAE!NLM=_^dX6edzuQ z)t2M4vz=kv-rzHSWirI)Q3M3Y4S{q%u5J3Gh84-07X<}LUMKm54Z+3!kT4qX_=B{-s>g*-T>#ZhXnm>KSqZZzJGrlHvt%;XSS{e5L<09ezNE0Uh zMf`JX{ts+!`7gkW{sWBj_g+2tf8Yjke`EQvKq2*^e7h|0cB`*;A!FeJSezo0KGE(Rx!U6%6y0*@wGCt@2wJwC<;{jN3`S2}04{ zE7-C9V%r=YPhEQ3oKC~(2`v!S;9F?uALwl)zi{#n4@>k0)U10_7LE@9;W1A)TpC_( z$Hl8;S3h<(-5pgskyxv^C?xA=P-rB*E}1PENW8s&*QM}tFBo+&Cu*{vy~E}CC2r4^ zMx>93QQZtD>~hO^lfj{;SLnX8zTm4#e-my7mf1o0V@p*^ar|H;wH` zbkcOG$856rEo-+)?&C3+dAf;t8=WpsDK_2+aYq6Q$erIw~>t0xV#sjr!ua``*iCcLpPaw(A$F4^1858v^YFz%SZj9fJ3W;R zd{Xtn2;AhtUwK+DqYmy`=_u+Ic(E=PO}B)($#QrGSW%s^Gzd+fHV5EN>4?CNjM?0} zqVaj6t)IIj$xF*6@q0+;0Zdo>2fiWA^L-|AEVVeATEB5ErQBQ!(bVi=p9>?gbMMh! zjIQ>^dpMEPm6cogl(RmuDMm3~uXZtwe?IB&W+i33wRTfi4>#M|d-e#kMh$FdO$%0Af zR!w1Ov`K`UNY3>LRqn8l%EXU!OzxJVVI@^a!agV?cS>S0IkA$pcp;h>&{VV@g>VGj z`jQUw<&AxR@O$k&U!eD9;Z*?d#C>6`>zi0i+mS!!;}I5Ah9Lc|%h+$Uw~8RU{+5pE zhr~+GGybe8d*h--hv=0AIk#?9GUuMf6ZR%OuTz^j7Y^p?FaI*_>Go~sPkQqOz!#M1 zzjk5mb*$c|UH+BtIO)u6@LWy`gU9G(KyJs{B)^$ry()qReK4WA*<97wD9lKGlwVHq zgapS|=4Yb;`VQ>eXT~?XuzBmlxBYnc&yt**vWB z8*KmB5TSuE;;!wl32(|+bkx9EI`SwLMR&n^W`@JQ^eC{3TuhQ}y$=|q_HpiP23TJl zpIG1A>=(iskqi4&Ef+QdF}3hAoc=P1kzKya-LTSHpWOSALx*z;x9-1jot1vy;KZOA zEf&(f-Uyp)F$^Jr9s=|TZcld#>?rb5=ET*rCm#S1%Vy)dQP z)Q@jh`ITH)g2T{8#_0L(jeEi!AD_|4)_AisoLRr>PTu6Ha%jhKeX{wmbYaL0p3T<| z#OSq)l5r=k*Lm{wyEh<_H)e~By!yn%;dqrFSel9WFJrXC(7Z1%nFfEj>E!LUI1KKR z8lg{z{sgSv9w8YJZ2oe4*Vo5#YhOPc zpS%+Avj;e7Hdmz#o%KEPcXi`V!)CzInN zQ-3|c#rpF*fXjQb#!T)5|6 z5R5n1_cU5zK0zO&_Uk%e&L>VQExP_W%PI;w|LBO%SBOFqM#JMukoJ4?G+vzd79>b} zxePP*pUsUMRhiP*PC*N8^-GmMA*hD5Xg&Oa(cmf=h-7We&f|Wq48=2OR}?)M9)X{g z0#9=)s*{$LJcMf@oih48-WwO-qT2cjr4^Vqs4mnMyA4trmAztHoImI__+qTIG${ea zzL}fPW*1E(T3?ASQ|KeN%LHE$Xy{?LFviH;{iF37lrVB_#PA^2{NTq%UeC^nyZcI& z?5uSat95QDqNP*z8&4m%)p1^B)ID?+t#aIi)@06&$@v3NNOfe3&XvgwVnV91KwAPg zxhKay0USVU3TOOit=zkV>$A)KRD?_ytGkXJwLF zaxYi5C&kYW!&@m`fjP23{vf=nZ%gFXk`{KB4es4#V}9WQX{VG@M2NVU6|V0btsP8f z(ymnOstz=#;rcDlfp-3Gzlihhj#B$;-<6?7AswHE=Vzz(H*B9GZR6EKQo~`HpY4*? z%IkEu+1Ykom|V7p!|^pHxZLXE(OGkf_VXZa+sMhf)Ic*nmj+KFIH0-a@VY^&8~=L* zoxCK=Q@pfIGf9|5ANz~JGvjvK*bSCmP>Po9mA=`${biod5-!3w_cDDPyzGimnZ8xm{#0}8d&ecQVQ_`Cv zKt@F;Z*!aesGm+nO;o_jY^GLl8~Mt!Z-)hH_>eIPe?d0jvK#D{$}SEIlR+b4Hq5|Z zQ!v3q(sIJ6@iPTYyB}l^Ntv?AoSHk@3%JF-p3%3vjQ<@^xwD|1zGY%qE2`!_J5B_TaU39?J}?7jM#}n;p)v&(bD-p^^%!X|-6& ztY-2_sqMOD%WEOza7z~jGhHMA;5W|Kc7t0!UMGv&I$)lKRp&FE=AMUvHmavejlB)p zD(2RF*6yFJn!`_R0+4gN5YZE~ppMBVpC75L9OhJ^oxZ0djS7y>5!KjtP0f8y=`d+WZxlUMx>-@;4( ztYgTDzHrstWJzda$>k4r0M`Q$-s=N8UZyAccDsk z(=)y0K%&T1qLNE16_)z%L3g#Fr=M=x^h!`tz!s{2-dEizQ(YAF(+d}X3d*hdG-fG> zR832Ur}+wDE2%gKTF_4#o0i?B^l~K*uH%JmJ5LaclhPZtE0VvoVInkIT4!e6?>5h~ z{#XY0>~?U@xyabNo__t_VU&zLjr=*?U$Tu>@!>uI$s?1yisSFZvCVlXfI#4Ws{@3# zp&ZzBv6i~Lb4`Aa6w_@;DvF&3nVMmrQtqpIp9;veyn{X@o*&8|x~+BLWzVd}FC$Mf zR#-KH=6l`D4zg#C@o*%qOoNI!@ak2;c8zXMQu$)V^c$c1StF)9Q+#L=7~xaVr&XcF zUc37CVVwKGg|D-%&jYrGJk;iUl`rNoK+b&iZtC4oj?T8Lb@C;* zV~dkVm-8LbX?HMNd7mfy_nkD6akw_sbt-#kL;l?8bm{=w)ac{*v9H&C+}*?_X>pc= zs@hoRL5uxn=l5CY7r=KLjc5S9h={eEzbn}@Amq$Bo6wgM3R-P6=rmP(SX_*AtA$s!{NQrILAW%o@wTWHSMI2SsdDU zwuNc>;W2(3tQ()r4FY-jc$25p`8w-g$@}Upd5~fCyy4akBWdEALG|w80x1U0Hv4hD zkMa84-CRbx9jyAheR^QCBd^xS8jWf(F&H7_N6o%}X) zhkrEgxmK%ZCG)4oW4c=rrFyzjT!1o1wdPCnVafmVXwbujdQDIHp+`metNqO$Ne{=#F?)o z9;NH^-f=<|;G3O!4)e27SnT94>*D0j5%<#kmvjoAl*TLCFfDMD+`u%kGpNtnL!_7| z#ojt*@7VrOvGqm&g>fwTE|m+@eP7Wh8_KFx2F7Eg?uJ?j$zGxU29c>>mUE)txXwyY zdj`3pL3XrGa;{Q}S6;Az)e?LC9hlc^7DshufZ4kd{wa)5agL#lRwmX9gIo{|zC5eNu}#1hINfm$pQPZ|&RGp}v!KAztK+ieID8hAi}YsOa0tIbWo#6i^pkZ44h=W3;VgBWMgPvI|_!37H(XEW0Id>4H)u2 z($Wf&`buT2DF(mm3Z35e%sJJ2c3B$!7((G^bxu0`&f1oTCZrGf!C<7y1jHW`rF<6# z5^xjrpTUqP>%Jf$#j?s`t{7{np7A6%VrMt$*s5YNOWS z+{`8`oW?1nw#5AJOjUDR3bbtKX&)EDb(ih%6Moy+jRzbwQ;rlhwfsaI&(@&JI>xeU zn(Akq@rA9%07@9JQR+0AV%Q$+7z`6zjX-v7bI=W>CJ|8LU~a8cTg^L3&wDUcI&E z;}nYlIx}7VSh+yA21A^A$&YM&x%n06Qr;yZZ5+qTqm%Nxl?&yfqtb2qJ+{BQ_qt?k zzdRszhS?jo1Mw(TEj)W^q(M)jOJ-LuI9e4aFU3vva3WL=u1q;B=f?#44X_qC7#-DBB#NmwQqyGu{?AkN-oT3bDt!-Gg0QE6uk z9><5Srk>g3>`L^R=Q@mB>>f17n^!MGBkOx#tYqz_HqD?3Cyj8C>JwiYw7r5$kOW|^ zBgK@h1|gu?Lb^W>CZqg<*q}95>ej3aaxX`mOisD+ zNx47@9aWgllWqFdqMlX1`3wEIbfd_5HJ@`LWY<~F;f{S8pK>-H48{B!OS028EfDfOk`eU4s z#uB1-s=2VfxJp`>Vx> zN4PM}7}}uw3?9=;v*FW~tCh-ueKC5@@c9=Py7zZ>1T$U)_D?@O4RVmJGyjB=x1>L4 zbDdC@BGu{%M3?zTtvOibwJ`LtbC3?Bdctah}aH2ut;Xfqj}rgv%EaQ zTPBg&6&Iw{h}YXmBf+VmarRQF$k3GHIYRwrq#n+>^^YTIIfL|8uhs0*stA`6hgOfb zTVtM`--`JD(X0Jfw~=PI@NuhTL0Sy7#B0=iWz2WFxeMN5k(S2(3@N2^FM(1zyHf_3Kk+)%r-l{sY4Y_Ya7d^%aUI5rYIIC>=`P>S^ z{r~_`xA&FY{vjDZ_}(Y)*B?yLYL9CdxX>S1+fH7&JYGLFjIMci7fzQEisp<@)$@6g z0Z0n;Lt?{%1jSUNak=(?tySqen*6A>zGGviaB_1E({(hfB*%a92^eIc^1^Rd0&rSER% zU9Br~qS`E>xO#Edoa!JA-Jq_RoRuB}6%sUCGM5YRVxcMwL&F!dAU&A2M$eL*-=?!w z4xrLUthdm)p*mUiPvT-)LngZve>Ie4(SdCB6Kd_29E=aze;zVYk3lkm*Ek}eAOQ$ql7t??Ev z_z8fz<5$0q8ZSUTP)mO7k(;lEA-jUN&)>s0sSRp^uV)VOqR8RB`>6LC-bdin*kt`| zj~Lc)^m}*;MXp8{b;ZAZ+awJ5k6#Mej)-%`AOjSQ^hcq>qr|}3#+`E>Pvei3Kdk4o z!&nBdwi1!wsG-+0tKnDpt@4d!`dA4r3B0cUNpk6xp_*Rm**=Om$_+WL+Fd<};<%8@Z!Sak zb4je!6Yh-kc_m=VGd}!)-COapolkoMu@I=DnDwv?+RL0t)lYr8Q@DRhn+Z1b3XiYA zDw&9g^OvYlsd7I(|ICwlG(bvzGtYK6$0|PTFx^+-F&geItn!Wan~zXpGA!h7K*(Zbq+8>=qicy~2dBbvROIqu`@d2s4N$&U5Gz2#+?b;z4M_R^%q54=?f34i=cbt!V*GI_B z$YHpXIC10&-LcTDx4`mKnoJ`Ic*(rw-mR`7#ad9-lhWs?X_cUM70l0X58%U_v&<)( zni2N&hos&^^k#qHS{Ao%l9Io;8UKl~y@uGZ{X7#{>mFrZyX z?AUuxxj8{UMB)nNMkR!Oy}4hw>b{+#(#*Z-RbHJ=bBU8P7If%M1Pea6G8nm5(luU1 zL&;5Q+v_pBZ3Km%af2Hjm(^a-#F=A0Q=@fpT6}qSnZPqSn!h`p7lF(Ny{oia9%mQG z!p>~3SBKnBI`74#%Qn8QwwJ8yibgF6#YDjjTFz4splzq;YUo%g)-RvVh?~S1IC@%N z$N8-HcdI}6(4kc(_sS&I{f^{x1M)W?tHNAJW7Gw5mB*`?6Sqfiv4J4Ujt#kg?Ppou z-4@;Im8IA7Za3V1>rH)X`zI*ouZw^ z0-r_3RsZbdbu_R`8!!IY^@Y0C39?dAcQoXO7FWd~q`*n(Hr~(Xp)3d?P6th z;iCXyG&>QQ_j66<0nq~KK!@cHhZgP%reMdQeO{>h=HOB0S?JJq+Y2LQYQjzJuBYB1 zORYv^%o@l(X(x3s4QfmDL9{dYQaVxQ$E5N*pbI=CA)HlzxXg9q!jCl)Pj=QagWCC>TYET zt8@M?nb&Yt7{l02*BvD5jt_-CCKCNplX&@)Iup2MJ3Y5{HFVHMf8Z*^NW0z|mc^Nv zE}+(FS0sQDR(;D$3R);F9^GdIubb7Wvp0l{Sx}2T| zMQ$o-ceDihuY3|6vzF3M-A5Ja^jwE`K9o1pT1540{Vr?t3EszLbZZint#tQk#etxQ zNl~LJgQ3=_l16)u?puTHdq6BVF_LkfHv<2l3rL1WS1SGy&_ z`C+TN}h1 z8oa`@HK~8H?nr^==8ge4{(LTC>06O~&)g5Y`8I|bXx+rm_xEs_`(meV|9&^rKc&T~ zNLjL%nlFh#cHFRRo9(pBom(?+qf9WYRKDfyWla4bxcEayh=WO_QJvw{$~`J%O4M&9 zIK^V)l)%M*zV7LDcUyJ)YvrNEgN`R=v^`)|FWsr>nfql3adn8!-{<#@W=TuGG7d(M zRx3kql6r{(Jm~i`SOT%U^J!}P2S&w>G4`hH@p=EQHS!-NMw#u_Ma;pz%m*-rE3*V{ zej?(wIjmHCW6bu4)~*ta_aWT0(bgn1y6aaoHaWGmO0EHL$nfSsq9%wxJV5WsUD>PY z0C&<;C|*kPNQUwt)pri7><|56yh%Mtky7R7K_dC`Xl(-|064CtuSzWtoq-Hh=KAXt zdziuJdA0IcsmyU);3+JAv|_n|AYY z|H7u-`W?Ri&+`l-tp8F3r{5pw z4C8);?&&@JOMV&O8~0EAw;%kEd~^Rf|MjKv?epUu#(TE=-QVIP{MjErZk<2Jcl`W5 z-tgA`gmU~l-o{^l_P0~{Z%6)jfA>G~jnDB6Z>Gda@T~g&*@1pr^!k_^uz{Pm6fafG9N0%zxcI`}`| zMdKdc&hXcNypZ)hCkr@ZT&|=Dr9WP4^)Ck^%J6c3tl0T}`s2O)xupNWyZYl<{`c$g z*L3=STaUj!{M&l`QR)2W*F%5&-tqZ8I{#l2YiR$=`S`o@%8UO(3H^6R{_kWC|NHe& zz`OeQ>roW{I4OTy4*`z$U)Mtr|K;`nwjKg3hb;a@0=a^${Nrl;Plx{ZtMSLP{<#)V z4*uODK=|vwUxfdK5aRFoF@Fuanf>LDkIo#VmU)2|a{LhEyT&gATb=`^4v#_gRCp8#zLm_nA_~tjL z751p6@+W!-)gX>-${*Taqvs)n*pYGSd_x~dF*9IG*wXfn>T+1gZ36zp8~xNWe9{Ze zE{ME2pWVI18Pu?t^DF=jx`KUYB_+SCs2M5D{E!|%i9MEXEQs!zttPiwpiHK5roLLv zv-=dj%Qm5?kP4&zhjqc(b-tA+4(oMO)m(Ck;?1^*MEv2ovZ-EGxD%jjEcW=)J@XZ$ zQ#r~_@NBihIingXH{J2=an)a^fy}F~+i~Ix)1B(*-8sUy8gnI`?ZQp+^~o8E;u0tM z$Z2eREOoA*0<+^l%N1&FR?@b^)f8p2&`ZPI?(IIQYs2>g*|fN4Gud63w?j|1?HXg* zQvKplry>4HnQ<;zvu!HBF0Gs=-tus9`+Wsu(^g)zdni;p?;moOWUH#Jwos3J1#4Jk zKFLWvA7jqVuBs3KoXEg(YkIO;pUsYKf3aU!)uq;@>EDkQFhfWo$zo@H9?BnicZF3$ zisu(XOB(&^9!$t)IhYS-JL4dEt6BR(5f_uL4#?nI8^6*h?Hvmbmqn6F=)2p^p_=3_ ztLdjcvVYB0F&7fC5|t*M*~aMtlrcS{#@_7w+Lm!IU0&>sP%8{G#cpIW$YpVcj4`s1 zJ#9NrGU)KSF&)<+H%TuKno^&3f|sU-MwJ&rbKQB@xcs4-$wiI9=oJ7vAiY9HB;Ed$ z)>qMN;<$aVHU=Gb=*xDYYaAKe-Q(1?(We~$s76H|S$?Vo zTRaNH_r`|OLmh!|l%LY|W=0Y7LzN}G`js*42di3i<({Vci#217Y$}5WtMj7!F_AQ> zHV*Zic)mdzokulN&*yDISW*F29(}vM+-ApLl;&T~v)GmL6b^#rMMm$V-GiE1%;hX{ z$LO|i4y7u##JqW4VtHo|xJc4G7gv!R7&INyDW;I!h0k1D$WiN*Le>OjIMPE*ruDRxMZ*n#|bV@7Zsk_9P?8*tC zrg6r&jh9;fGjNB9?T%+oec!8bK5+it67A@@*E2gNX1w7$`?%38oa5_UU6zGWIQlfH z+~ZER4)_~~(xW&_y^$Ab|4=LLF+Ml=q?P(KH|OUm+o5G8N<~67RFhp?9c(UZbte=< zoD}-~GNg6xRGK(;PyQa+%{k+70lM_90y5P#(PWdfY~`dvaPTT=nIJRuR)wm3;h?#^eZ?xM=!p!%;^Io)*TR$EsR#6O&HbuFM^{#pNhA1Np60KL zqB1eHpA!INK0AX#k1rRm9;+Q)3J`(u0oiX|$;^CC@x0w!KPSnhvYB<)hXi%AUCqmG zpZQVS*keaRHP63vg*^;};Z~LJsnP3p0;HjUG{v-d1-X~xr_gqLBvH$gx}%f#aqokfd$N2@{o`VjAFU<9+TE*7W{XULe$aCBYStOoQTZiR-|g69pGK`w zkQ&fdNLROJrdvp`)C4<}Git}$r&j3`pr7jnMx_fj(%N#Ri?z$&xZI`364>*eT>N!J z@zY98OV1|}8s7q^`94p<$v$U;-wPKnOsVUBa`lFD=SRq&M+y!?fpCbI23!nAmyiJqN&1OB0%9aoTb1X zM$C!6ay)IK>>G!Ko8h?XV$&Jelduj>RU7AU%uUg5a!T0|?cI>2E^}ztuNE8JzzdB% zDO4eUZo^qY#`6!g^ltEZWRJEBQfjt^MYBG%UBC#J&NeqfioKgX_tdAjV-zw(R6t0n(AH=HE*NIiAalTg-wY z->mBFfEs6}&x?wW(Iqy>?$Ktd9B1;U<$AE&`_ApXTVUtL@+(GhCNj^A%d`>DkJ~#h zyHHoxX?r!@8}0A4MDfrHnZPAvwMIeu$5c);t4GjpdPo|$%y86Hw3Sb6Z}ZD962@(C z1EEcU>nvRfZyDlnI?3KTaQbFAxE>{$$-GYsA^Zk(rS^jswL{qcnfEK3&gu~W%wyMT z>g8w2Nq2iWz@m1$pR{+{;MNB2m$6cbes{+B8tx=}INbR`vv9-=^M~Qs;|S8d{U-H6 z6l2WL_sD$YoQd9ji&GzLgPmet*&^kbT>fNk zfdo{KtMJ5*+QV3$EbpkiuHoa)u|H=k1qVEYzA&FA=qbfh-mYZQy{tU+v=50jE}7IY*iP_HQ-rNT>h#LCSZ`3%)0Y+F zt)l}Dz>?+K0G4v}Yt=BfA(tMTeypAL%j>g;ug~%oQl4UW-3>~NobB~TiriUNin}^q zSXa!IN3tujaKV`mvg7wxZML^?hdVz2%#yR3aH zkMV1Zb?pEU87x5V7sw%vRh@_kFni+gch`S+DE*q7ZCgOK2Xwi+qI`CHYMIwe!0Ojb zZdR>WAe=bn4r-QdOtTPJOIgXmi;dI0+vIko&1|;^>glVUS>3*R{ls-+|2p2*uvcXd zmp%Yw0RscCIg&koohsqNTObgec>>hq_}Y-6k$T=mp5isJR;tvS;*DQt5E`}N^pj<5 zgMCS{5j=CtX=9&N?~4<6%3;4X((Q8E7+4rawDfVk~7vd8E8e_l7Glf+JvcewbH@SmO9=Kwo!d;uPff!94ki0d2Ob( zvB4*!ecD_E-AW-juu-m`I_ZN^Sx#m{TFv=dhi58XJ zPHM$uVKNij&g~M^TM!@Ms@%*9upw*G5x=EHVtaTXK1?$h{9EWy^IN~dS5x0!Y6fBt zvS@~_iuy^09d=$j6qh+xy2muTg?{%JNFCRhyk14$#t%7*Tiq5cGQaft`AU8o^^)&r0Vw6x zY>j6GJ*vr_Oup5-s=Zy)9byo%hf4El9V_v@eRooOZ9|pGoxCnk(-J{tS*RFenHgE> z96Prz0X@M*yH{e1aqB;v)&I3N|64ETzuN5kKQRCQ*IIzZe~KdpSuOu)`zZeFDF45+ z@$koU{zKzI{G&_u&vC@S?tf^3*#YMEVo|c;;-od>vlh)buNljuOBv0@+4X!IFUL(% z>i{y=%#l5sI(^5Q+CCwVZaBQQI{7DVWirooYF?2(k562K%%a3#tVk-uMWR^@#!x0_ z?$T=t`2?cq%?9^h|E|@*UXF;AnpB5oU8>>I zzCIg{T;;>q-pScwor`_jnAHv9cvH5yMnlUV%w6T(ZhD#D>}#z3OD%}3J*dPq2ikU@ z(yr6Ul%Bjb+$b_o?}I;gwD=X0rGz08Yj%_8Dg+Dg`45nlZC zI!gAZX{N|N=hHo3tz7$yW2JdJ*T3c#9hQ*hFx84-#~5a5US5Qo-5K)n&~F)JYX#!`dxsR}=ZEBL+2NRaK^}=&fJrlH@b0#fNKvq;s>) zc|vBl#o!KvZ>zNG-*xgeDW|)Q;d^Cv{QIg--$5WxS()3e-7e!i1l3TN3$tVM;})F- zMCy2zKK9AwTHPe;bJcblgAEy3`Pj5fE+Y6zyS|4TW(DR9T82wM`B3O^>-WwP!F9_6a`D28rRGRproI0nd<^B)PoIP%o zW`y8f`f&FkC9d_3nmvE~5WB6ET?8!hwhJqbQ;nyHnzT22BJd+xS>)mMC2Q&5WvZIWQiYV4s;5GS@59!5v#cH)t%ZwU!XqK|4c^=(E;T1{qkcpBBMz@0Rm@pq z-N&2;n4jmiFk$5FT0aJYhn}MI0v1v>?(oa{uvc-7aD^#f`6E0l#nLR(L@r&dGn&|` zwBCAp$Ly|CYMWRo;DpO>a%&9&ztiLgv-EGY+}4MK$AjoaUv9o1FKS0;4VjJ|(>k+(>I@ZJmWWdI2f2#D#KU;if8boUiK z@9yj_5i`+G-EykR%F3$BJm;7?%wB*VQvw_~pocfQ&jq0zntbZ$49MJGSVkg?#Su^l zN)^$)+bzUKEn_&V2mp|Oy2h}Xni*F+$=8~>jj-zLV5iLca?Xs+%y#8fPQflv9{|EV z?(Pc92%9ll8KfcS_6uo#5h8+jeTB9mU;y9nomp%h3~Xq|PB$L#s>gW4vb@JtL8{L6 z0OwY#Su(dvXpJt7)P(VHkqjL?ZZ}+PqhPWpaz`w%)dLcS9h=Xx!yc}=OsmjVXN_6( zrLPjTV%gpl#Ck#edO% z*Y-No7CLJ-15x0bNiVoCADg@mR^T45M6=mbA&`-Jfa9II#s%;OLekbIgke+F?%jF( zu5k-SEm1l56>9_%x^-0yK#nbG8ZP?uC@xo`TXMHfeX!jsOOwTmD1_*5e zZre)N+PvGjsj!h%Ms{w%u4mDasbv^#)VyRFao9qaG}*qTw%L0nRse4{xNeWk4~I-u zwdP5$I#1=Twz6UHM1q5;jZ7wUD^cPkqE~A}0Fz*HlbGB9g34rML`;H{WZxnHN3376 zaV8JEuyH+I^H%1jE(Dvn3DIc_?rh+#s*2A@DYN@zh4W7^%%Qp5L#v%OU|(U;EcMFV*w9 z-m;l}C6ddI;@N6Vm}ZdH@G4DL%N<{<0vi0FBk=cY)-s{S3~MK{V>^o6_UF$11f;jz~>s+fy&X?&s-v zlkEo{2kXi_Oa1mZ8?`$gCVI(orKq0Mi%1QLXT&mZqQ>TCKepj#W-)4MXV~X=s>rQm zWma{({W@9-38Z-!G6{}9tgBaP9e6|wcj*X`G7$7h8S-coD!|qMX0&z>6M$s^NFh9x z@N()hH%4#N@)&wW8|6cA&c3SE>Xyg7t=deCGE)ZUkX&5*LC{`|(B59ang!648V?+-^BF z*5_dv7DcN=q+&a?Do&2#xVhqo?L3d~XF0|L;Mrt&lJZWxaYdA7h2S$N9=ij9YK2Hu z9*-ltG72gDq1;FEYPL$D(SdM^Uxd{`YY3fGt(Me0Y#LjJmN8&OKst*lc2~W?psQL# zh#nfB1n%0dHKv`}A?@7p<}?{9E$@>ZXeg>UyOM5gRbOUOwH}$fKIB~z*$j+>KCYGL z0JlK}dl75y@phmWx@}9$b+b=MkF<(go1v{_jo4)P(3O30JJS`cPbV|ir`boiwz{@A zvH_5pMNgwH1AW1Y>$IvTUM5gGL#QHW=da}keNcPZVp|`+CQaRCE;VwzFG$Qbi%jQb zg1DYy=qp-#n7MJ;nsvh2O(}13XQMVghU4{nB!36WZG)Olp9h!B*D@_96kdm<)=_&z zkYqM(1SVK;o;oiFg>k~$Fxwb5;F{5Zc-SVm)Xj^pU*z`GiIQ3}9?zn)LB9psAs2my zdij@ymhGb55o$6(}U0I=!(yNWfYCj?g z)x?I@=acjXxd1bEjfg|UxiD%f-M|fvq{pHNw@RGWf|%#)m>iy49srFVg0Ehtu1{;B zXGqO&h<(=(x5Ww4U&?wM9@NqrzrUUo^?X_0FV$+Y3N%2Smz-HlE!!*0#xTg5;dnTe zX%NMkRrADAfUSE*fyk@|RsRK+Zq=i7hv;59o#074*4W~qTT=;H zoeSA3%h9FWOpAx82MqRTp%LMbMfO%zGHbTy0x=7aA(YB_dll~|PP-YqxwFxS4Y>K} zx-Fq}p|jXlk_{|D(v?;(yx60+gK|Zd)wQPTdI4?*ZMG*F&8CtoHX+o*1Y!h*A(I&@ z#6BQCPcjWW(iWxCB-SWxP6Nx%_owxI8tJA6=b90)tWu3uZgeF!Ml)egx=l~=a}C$` z@sb;TR(H3CvD&XYPOB`}n}vZFTu<2kGRRlsNH@r+5*9s`Bk6vBs8NdX=VUD|pZNTQ|O=P0y9q)0;ph99j{L;j9r>&A#uR+jtdj+9JF5PZB|!0V-KXC>M_MEofpF)Fcm@NN}pcV+|4%AA$)3Pv73SMhEx8R*Mt?#-rz<2$m4ZFY#MYse1!wi^5#J;Z z3+!f?d*#_^ue0Xn2ky!{{}ICu_FgJktm=iFDe z#H%KAx9X9vytZ_F8pp)okj>FKqY{px%LADuhtWygUPnUBO+G(KERZgD8R9OZ?q^Xe zJ?up|Sx?&FlM|>@XeM;#mX$e;E}M09&|Rbz`jSIO$Jhi@le_ul@^Um2$zbg^A5N=W zkO*{YId?-Ax9fgyUUu%{;@-$8091l*c29VoYAkBik~tkNF8~FL zg6n5m)EkNjU}G#9AjbF0qJWBW;<&h$_1R4XxN@6Cr+KMzNvWlo2|Ex&&EaYI=xwzc zqOBqH=DIbXk!Uip@#d4rc;R#ycAFcP0+FB~OQ;O&BcDDC5v9Y^1K; zn9=D;`M5$*cN;Gg0RRg&&NsSCR;f-Q+MPd@w9(kjfrDW@aMWYRTv?42YZQiaK-YV; z501sxq{-<1xFZX1PK>c&K(u8y5UB&luuF`k;v9zErA{kxR-wUxst7K`LUrKoTU_c0 zzUz060e{^JFli={@?zb?c11MLov*=py^P(cb3(as9f*2_PzKoZ5( z(sFxOHQBv(HZzq<@*Z*=3K#9Af2|-AL337BAkn==$Jd;G#tlsUSzE~QoZEhI;jQn0&u?` zPI@9*Ni~v%axZSbEbTa~TjUAJgS!E0-iGr{G^Dn>u@kRGWGroRo$&siR&2c7xumS| zf!I}*R8gD4!dX>1~D zvLFWY*G(ZRx3;$h)vr0);p}9pWid8LBVfHn+{3aGnupHU!reKA61RF#6ioM!>tBnp zSF{?;m&T{6Brsz~tKJ^@qsS$?ud&guF zO`GBV=_qLvz0Oa#=^)j@j*lInwjW**h@_#!7O*FYH_m72}a_A0F^m8Y2d`7P(9!4aMhF6 zaC!wy%(kn&D*e&2RTj&Q9Apg1d=dR&}7YJ^YPRY65Q?V|$ z*XsdUb?N*D%=@W5-P@Z(tTNrW7XR@C-%q6IZ5G2UXiHS zW!p)$^jmz@GX(tfkZvgz=SsrZzCUHBR_991^s1oMdaJ@QyEMX%Q_n%vzh^6fT?=XM zhjx7Zlw*y4R22<~2EJ*tYcouhI}J5tX?PBv1j?bZcBbM&%qp}NUeP5-03;;hv~ywz zM1II?`6{EBxSq>qb_pm?v!mGD@rPOKu-XmoWGuDZ1dGLC$9W2|d=3q6=OU1v-iDoh zM5Y{ssB(`6_~!IzynDP{?u~oF934|-JX%Fdc&CxRW>@SYyB=H?Wz`Ly8;4e0*&nOd z{>^JjesKpfnsiLao9K)FNHyP zok@1acuk&GhlmrCMXaT(k;LlW(6SdLCiQlan|<9J;C2vX72liF(iu$>DR`P`M@qRc zg#V8+qK3DYtf-U`w{%TUbp;m-ExRLi%A4BAEidA;h0<`h_F&bjN`coXM-CmTu2Z*Z z(cHJOn#cEA;xgXSn;Ul(bU&m;r>6Yr)b5)C$ zO6pptB=cEIdMR%Nj!)|gb*GnMB#z7Bq*P2AnDXdw6PTV2pBqm)fy#})^;cX#ayLC^ zRE}^dD|t)_I!{U4RM;YcXa?XerX@rm(7`+qva9`m4Pq+i+K7nBftbl<4}u|W`mt;g zKW7u#yn`9XhU6xyy~Av$q-IWI9ved}HH#zHxV(F|Daivh%IRHn4i2 zP!7pX=mZSnxlMS?_IC4OpxYsbTm00Rw)dG;CDKEx4ab-Tq$K=W&5uSwW;i|r>b zF`F<~ha&+*(#_h9o1b^9MZq3KgNMMuLM889K9BU}X@e{##33Tb7rj&Gx>CkG+@&XE zuO%ePBl=iVY>0E~=f?Y5#$a`mdQNLM?V#VbWh5 zCjpPVF;3w5_@%uT`VOWvtfi7H%clNlJDEJeHy>MPCvSS45<19Z*;EcmImhs=CvXx9 zWOuomc@GtuI$FZcmsm8H3hP`&w9$oUbXV2&ToE2X ztznuJ1G*PPujxA9o+sy8x=`zK;g@Yz^GayK?C(Xk(w$S$pmbZ;0WlOEV0`{isHT)~ zZH~}UV(%W5&geWEhEy(=n3Zt%Ox#y`lS&0q<`%xKgyXZ1i+yw<1dTw~8g)IJ36sYR z+0kh4TtVT*n)dh0IF(L(AQDfY_IKfcRZn(9PMe_6S_)H21Db{ z;S-YU^&|{&N6Y1TRni{iv|DE}Fv;!yS*(j~?DndCLnTWtUSm>-ZQ7Jwjy#r50z3j6 zpngUvWzz?gO){SCJ~U=)q>E>)WKp$Bieu{HyiZUyV{RYf0|8r_EfRQNsL0BS4RR%S zH09WQYmU}4Ibe(A2mGVIuLKooYvcjcQ*SL+)yu7U)L+?zOv}RwJ7OYAxfsp`OGEjL zrFR>VN~QCO&JZvF7ei!LJxNuqsjqsb7|K>kk8P^oFBa8UBei*@f&uAXDo=u@(RSi; zrxOP7tPI4F&GlR6pq!%jXc`$0aBP)pIyro6j*VL+TPv<3@Ekd7+51^*;w^~jfp^K! zC4Nhd#dxn-bj&PXyMz;y?tn)_4ia;<^s>qG9ge%M3ndtKI-ZjO``&R%cr55Z4sZXLVITbgLD!c>DmON%NU>ptiyO?5j=VSCB z9rv^Skni5JyBSvuH5;|YWWHr`w=5F{96}nYoQnf4IjRRo@fBCQ_gYaRjJ9sUt6PaA zpXe=QT=J=uT5MR`6=OW3h5n{)$O$o7n=-bfx(TG;)y?UGrAxD%MXs^_U_8*Aen(qZ z>lV-j=h8q;B1Nk5X?$U~12a9CLnwbcsEp%sF#32Dib&AC5&e)oqw70Gip9(0$>WHj z-Lj3{5&?9ZFGw?S7DE@Au2)!ws(1HU;N@f>biBPF4tsFlA#iZWC$`(jHli8M{zN}g z0|uUyR~C@V*4*)O-(U`xi+rE1Hr1(E+c#sBev}n!g*PLlTJdfO5v^XUVGgUu(<|Vw zuS+HTUcI6WxZvFctL6?5fLMq|n~Q4G5c6wzUvX+)g-#dkrdsMA@H*%RDOfccZsAqM z`ZKt_99ARvV^@E&bSPg69B(J5LfpBhuF#ot<Mqti z=a#{GAvcWfxFXv=>V>7gh%Q1Cq1+`S=^`)ci(H|7h{;w<9IC6RZ5$Uyz;p@?`kp~< z?cGU{6e5-%QcNar$yN9)KM&t()Cs$efxoL(BJ@Fc-+^OG&^lwc^w|jZyjEb?`TL8l zUt+}m(~GTt=Me>QVBdqVex*Qp|3!U~KS)UaL!YRB69M-Bzvkk8Mqd4iWx{^%+5hb| z*Iy#VegJR z0D=)KQy8yTS#L(c!Gthb@cr1-FE}Wd(YDo~)zFxwsN((jOsbV-sZKBMyJpwT6|b|I zbJKID<6?X4Ik~+T0jvR2O6?}s46?12BeQvA-_diU7au>qXc2b+QnO4Pi*)4@rjJXs zDO0x9C{8y?LoVf}fncjWp48n$X;!O`-;iDE$apq-y_zZRoTAceQL(z$*c>*FM>aVC zv`>l*nvrJHXT`e2#)k(X1BvuSP4mSbu?`@6C*n>TVImQpz-hK=&hNd(s$XO`%7}2AC zrPpBA-DeDr<#^hTMViHUrA6nG*bD%r&T?P?9PL_VeDOvVzXlB2FfD0$N06mPf$RsOdSC$vJ z<>Di7;Bvcd)mQ;OMIh8S5;b&kX(iAkyuTkGc=kc}yI4umbG?0f2>p zw!Njh=H|&Wd@*C128*fbF?DO_z>i$b;!LSl#YZ<*Z_%fGVkb=bW&!92nAJ7_Fq0+` zm!p<_OV87RZj&4nvv{Zh!B{Gsn0moy7hfbC-rlud<+jn4?M70Gg;C%%4qR_NiwGf+ z&FyeA;5tB^12Z>&9$5vuGwE$J%x>T`2ZO*VuZ6MNIGKMLHC~(LiTP;~Sk4y7dCS4q z+7=mcCrT}y8wO2F~0HFil0C1$!5CP>Hu98?G~~(oTR2Y2(YB%kIL?xyxZ)1(rl( z8`fuqA|9RLdZt4JFS}@ecu)}R>PFIn*V5sFd6OUG63@!jCFfpd!gg9C_4`~%R>ipomn17w5L>R~FLE8t)b=-QnuPA@_P!TGq_; z*8S;3&4YJXFBoL?ayg>a(v>_z$h%6$i756x3*JPF?jvskxLZFTGUH|gj#;NxzV(>b zE8+Q4>ZuU)YU~3*HQxzI`^>R)iES2ED-+lSBQXM~qCk1i#h{sw4*`$Y!Rr*8W2jzG zasy*Ygn$gV8KH4CYv3fk=!OcNO?TV5zxH$R_Q*{3M_ETAhk9}UKs)(a{>+ZZ{7$mM z9h~KRI}t0#r_o?3Dk+okxqY8@vl{qAdF)!0T9f&GZz{Xe3P&!Nqt5V`1ji8KesnGm z+PbQHTAiv7oU70EHLT$7n877%gj;=k8qA|B?tDMlpjWgLt?%>vUr@>_o54A6$ z4eIpH(@|& z+D9ZO(kL@)#yVHW%UXCWGACs6)JUbQ--Q zCctOy4jU?%-)}WO?Qj?r@fGc5*s^qs8u>;fJ-eq;;eJz3HT%k} zEbWpr53#nahA%dXscrA;E4h*9dy3VmKIp^gj96%&@P&%w9hf! zG#HQgUF?3{_ zk9tNcjmi3OoW575y}FV?C*X>A1()3|K*+00LcW)txfr;1+^M2`-L>@~I9J>c@oTYH z?ylJa7n=a(BCi#VdZBs;(zugSX!mw*QyeyrhzgK9RQwjxxqEy@T3*GyEfPC5%Z?wD zFdyV(X3sEzzdfORGvWV(n2ieg^#g(djvLh151;pTA4L|MwFsg!>EN;*Y2Jw)xx{yXWrfPqdI}yY=<+lt3~R@%66a@$}5y zqCOSl<4vKyh%9zkAM6l{SP_~&@MPBiXu(`HV&179I3}Y zug~4@sp}&cMSc`KP5&r&eWZ5)hGM35_ky3MIGHB!C^Yr;t*xIhBq#U!wcER|C-fQl z`d-W5S8+2esDsA;$R&HX=W*cpi=~!qKOejLWGsXaB~^| z$o8{r+co^fNLGT96rUn^i6Fk0{h94&F*p_*FWvOAs_wb_-Sew-dOT0(v*~@YX(G*j zSpbRC-sz|7(|sJj*YQW0pOvUDAW8PJZNT11m3GIk;?aG5&-&wEerEjkf!}gMYY*3Y zegUO|A$)fir0X#2N(s zrMtI(ey`$t5tvT=Ejxdi&;P|7|Gv9@mlNpMcS(elzn|kjvVQvp`0M)|oBpZ#%MAN6 zy}$jP1QU0%{^>90pJHFmpN0Q^g5H_`GC|+U{#ergt#nbvQ_7sUZu5%J>(*I69P0!6R&XWAQk=>7Y;{*m^^ zs`95%Z#H0GKIVNvVCa-#}x(_JyRyk8vg$;$uwTTe5$gN%n8ba`cBBkR1C)kNaf|V3a?;mlTON z-qo-9#Ba!RzobzV`@VMdrHO>U4ao2&9fKeFhdfg>^u|{fGQ5LJefg+2;`ICXhul*% z2-Zg$!}+-e1u%B)GjZ9LojQsOKar`@O_SZgh;%EPOlK&{n zb02a=2|S?F{aPRV^`nhH$Mk!S_y7NyMhOC-sD1yJpL&B5iH|mDlKGGg80C-ty{FBu zH)xW78>#Q#A9F;L!pHa0AiDm(&(f;wa(mX8g;yaV$yuWs+k*_d!s9A8ViIm^a4XFZJ;p`!VMrRMY$H1n~~kTgU3_j5?204~*6A18ju0nNYRXnpxWh55&i0aNcYjs5uEw|V8Sk0E&B zqby4UlIgGQg5LG74-&8@{B|se3;n(=djEdzACSiQ_hd-pKH30l?Hy+EYgy)V>{(dn z{yAa=;zKroJIrqblPo~h`sWfxX8zx;8Zx{2hN4?7IfKGz3e z`1doLm%)I|DlI?PW%{Wu(JJo z8Og)`;g@?Jj$nS76iDV{Oa=1eOhO9e8!7i!c@bb!{-}@poFlL{{Q8Ollg4i!fRZFh zpN#}*ANxL}eeC-9V@Xdm+e~?cAB;a4h z1x#DQZ^OM$tA2YD(m>n!%Zj{T?rBo|uy?`S{TO>1PEr0n57JowdV@3&7+<@v1pT^% z23y{*OCXK%>k=>`1kgagjsbMqug5{rfpO-~M^O-6G+5amvcbS6@1Jv!ppU*VNc&j7@8gW$mWMRne+Hw$wD8-1kOrJazBX7mCi~X{NR{8tfsK*z-=RR-$2p2- zg%A4$(qIMq+XeH=zusV^z)k5_d4Us?f9=zN?d`Y6As6enMIr5tftL1*Z#U3Ee zf5Qi^`~3QY^u1nM$O6CH^E7Kvj6o30j-f4vv^a(}sU5x7St=`Ya0I4xi-RrEGAP{= ocA~{tgejPYX;`G0UBO!yyi@JG=eKK6`n_M#zlFo)ZsoWC2dlvsGynhq 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 7f8351e792a6528c913ccfc9e58d7a517679c4b2..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 2648750 zcmb4q30PCd+JCDE2_zCWL0kyPqM{J?O@sh0ECDJ+EC?Y8m9SUY1R*5}i%Tm)6^k2K z772!+m(3ug1g+Q=i4YnJF-m(45rVx5p@}E+KWJ~i_VzyC|LZ(FBze!wytBOXd$&0@ zkwJTRIytzaZJs^jeLdz`A?7!=L-H zaabpuhYQx##S0t1QV;9w?&|5`hJ(NF!8$v+xp~3g!m(bS@JBTK(8blu4enw0ZY(+_ zD|w}V?B6ei$5K8(uZ+;y1&hZ0R-D|iZ@yu((7L~oJe{2Wljh{+ivvc8}Fv~YTBafxzzZERk6{!mj zirYo@OmcGZ`he{AL5jPFrjRvto0A*a#WiX7|G!2&ETZV+x#VNHZ-fnp zwz1h0v3EsSVZmEr{rk~~K9Q4xbqpluk~6Z8!UKpTA5A$9j}P9mH{*-Q%gumK&k6}% zk+(yJtAvqHWas5#;b~?a%}7~k^jlj(b~4-_@pwvjcGe2*ASI$ z?_k~SF~>J1Vhy%_pVIkH74R>to%m!=+|_k2dUbwGsXoK~{`d(#oj6qQlwK4&%QGGH z?JoJ@ZsrE>>n>mV`D{1QB%hgizjA5W+3VpM>K?bBfm=@8&W7rdXDPzcB5>9_{vegr zck26d;a-Pt_9YH~?i)-|%_qqoI9!`m<{IwKIrI4EU(QW_UUMhvAJg1j@3TF}pO2jt zW`FWQ*fEy{kFO}54mD>xGdvA1-VXSA{{|1Gxk+8I!cEzHKlhzY*Twq>qr2Od$tk7s8;vBB|~$0(y8k zzrpoLGAw&5r|#cUeIVs{cHXgnOXJ>b_~D9J5)NS9y z8Sd=uVBg5{p@^iklp}8k8Jr29HYfP`ii&$9iH?!SvX4Zif-j3_O;d^WPWjKz1%H`*5{Co*8$~m4W{Ua=ckP81C|t za^Gym%9gC?*l=$3?#Y5r77QO)NBHdGvyM}K zC;XY|$};{vrU8HA8BNJdIleO>J0tmTFkRWyzsK~?6Mf6{Kz1fM>;KO6&Bm;7je}tt z7TuLya`*a8Q^fy%2E10JY^9nzEF%9yU8(=ukpEW*bAQwRKOyW^^ic*i+0adtRZN9beSE zEOhl>`*Gf+FVA+t(#v}LlUB}`RzLl4d)<0_lZ|_|XI?SS-}+7+A~vi1`JH~(9C~xW z>WnY^2*1W#-uFPP_Xyg$cdhkgMbh+W_2$!;U;9!slUs{Vqw}90SUl)5m0w@vd{;(` zJnuby@!Q&~-{kkCA4@o`IuV5U$99IW&rLcR$!yBpV-qrQYQrtd7lgw;*FMX7sA2j~ zUUqmD`ZdGX=fL;Y)VQ^udE9+r?)5MvnbIMOJO91tIp6#10Fqhv&Yu*FG-4uwYjt*qoE} zlC!_7?|w&Nl(Ci3=q=ijI4j>{?|=5wmp%Wuo@a@Fe6niceTS^9j|=VCsX|fMozrxy zXY+<&6@rQOt z>dG!(b@Q3Cd0#btTVkiD`(1yDpguYA+fzwS(N(*Tkv;PomCX)vzvGtWPbPo-^h}6; z$Or$>PZDiI*1fZIbwpTpa_-{{=jvL?oUnhp1+ITQIe#<-{x{|C?)5w5{z3U~pZ&?%#WnIB{PEB&xT{yb z{<>NA+2u>u(r!Mj`TlE@k+0Wa65pw@)*1Y7EAd~n+5Znv{|s)w1M1%dxHnqvZ|woB z8~?Zmfw2Chz*f@#8OPt~%)iI+&%6E`$2Sv=NXnpmn73kI{;o9scP;Wpd;dM|e_rT6 za{oWGeQQAcJ+{IBZJBre-3h-nMgA6N*c$oc2ERRIfAfI7HCp~2TiDk5Bi}zu^xvQN ziaqr=2k_^K|IYyaKJ$OW%Zf4i);RsQ<@P@o(i`Ip`jb-T*%{f#qH@Sb zVACroC7*I6W#2LK33z#b^In|XS8O==(TYz48^xJ#y|Ga2&bN*8GP91q+w&1oy=NzX`ekDplNI|+0q+hAifE9lCAfBw|2{kz`Nq35y@YFgp5THjXo;@tZcsqs)-cC3OaV*3K(rXW z4;_Hi#t;J5UQc_ht4J88=ah{FS2V5)D$xokum0|;cg`fPYmfI2`dUsH&8Agrk?oWC z9j=&E+?Aa@7qF6saQzlpU$A|&;bgEfd@3fQ^QMoClGx^6jgM+z-rc3_x*Xjr$>YZn zY&tJY(9pxV{V{P1%EP^+;HV}|tystsaY-kQO6x-@-mwwV$O)dXK~U-~Z0f0#t7YTG zJp=2!MPsDk?uRq|6cG66oNR(0DrHYk10W=kcI4Jb(*^CEgM%swd)_Xz>l!z|M>)UA zz&JYCYTd>Oy(M8w(3-7UyEcw`Iha|mzJiEEZF*NmmG{$8B{IbRTVb12mErTSklSw79-Xf80-qj<#>zv3DK7hX5u3Ux=);lFVm zrg?!<1)6VS6=ID=3nt&FOU_qL@3J+D=*}IV;ZZbQ1G14$`8}VYhdGa(W(*8h2Oauw ztq0;1+Mv)+{@8Q_W|VB;)MIRAr+we8IEhE){o=_@{!qv;(vRqke(7CGXBa)5EJ8Pl zgwYqjyinnt`B<+`n{J_K)E})J8yt}Jxydib&6;iM3sFLuhxCM^3q>4!fwqKlK?K(3u)|I;R;^vw^xvz#J3%@rp{@xzg4JqX9=q&Kd^^ z+;K2X$p)ZcOp&}@y7USb zZTSFqL9i%7Lv%jqCaDRIBB5q*0*V5FMCAq-mO{QP$qbLHFo(tp2TE1M2>~eOYNp}_ zUZ>OZUOgu*r#kkw$}}iLxUW#PX1a94e0#Qt1)iBMa22oC02vt90g#PMxG0<%pgtX( z696$hfM*tfGYv{`#VYXHQF;UMIrJ0O14!ZO&)KCf$j@gzBLE}F;uR}hQ*|D|4T=B@ z91RwzK_}i%umF+Qz`tQ~!D~MuF4*?A(LN?8wGX+3Nh5NmC zHGX!kSOJ>2r11G{fGQ(U zm;IO85q^?*&Y%eNa6yrZ2|?6fBR2ubZpgX1Ml9)p0FY_wk26^+s!{}s(py{GRTCBq za>d}IwKC`*Hvq*4shZ<1wNpj1@LEZC2OY_#*v+v^?pTmiQq6E&JXZioA&pu!t+`y@ zFAH5J+w#Fw93hh(s%-66AGT8sWJkovr}OC{jZJ-&ol|6TId?g+lSh4dK;3kEtuoxq zQAx?3vk>O8xmj0*9k-$|-SS}*%)CeV#f7n{=qcoFefdm}gp*}5KlT#$DOS$s5VYxJ z*Lt$+cxxDD7na<_5A)U1C%9YoU??q^Om-@Ek!9O6hU~^Pz~DqfR~Y&a;qZMFS3bcz z*_3e!KT2rg6HXJV6AX*7eM^D*Vc5~+ODR3HVe%ndBQN2;eZFZiK{xUez8jgv55rxG z?iuT5=4IGL3mH#LndH-x3^T@kyBx?(BrY}c7ZAJn_?EU-lwE!qt${~&IcuHVJ(_rGh_MlqKIFPq*-1x7dl$uw&x~g(1~nEjEFXoE zpU?~axV>khS2!UM#mSU1(o(M=hX*Q5*vsh}*98-gP1*3^6jGoX9>~`8jCXLyZ#!c# zO>0Xn6KDHyshfTF`8OR3`vxG<=mn#vDoj68J#vL-73tSdm5^m@ zWpOEYITbtUO&?mF%8=8vhel6YZwOwzlyfPkhb3*AOxkF>fwD+(mx$x=s~avKQIPG= zBu%er(p)%9FDBdN?KaCSoVK606*WzJWYEe~gn3!W6mnu?v39R~ZtTa3(vnPvzb!1lbRU5~IGrFZX7LrgAMIKN+|kf^)`-Do^B*e;nL;if(s1~i*EZAM@`>S?R>6E0 zyO|mh7hJH6&yJbiJ)O%RpSPa&i!b7oP@i3dvg)T2+7(<_*#Yh%Nud#m+4IdDm71gy z2t%neW{0u|niDpVsH}9rmN12RMH~G_xsw7?zZ3}B)rtAnu7civ&F~D6n}a28Fpw?^ zTbMm%EHLp9yoWBGG3CGZNR#PjgGRu7X`?(RU3|rSsITF~XDyej!Ry_!P7PO7v<%~M zfq0xqW{FCDfb=c=R^j5w@;UOVtd5+g#FPoQ*9ths+3Dh5vs^f$|7uP=}x zO1B1p7mhM1gi|ev1ORl_%>(K*Tg>GGz%Z4m1>)A};Q=ZHa=F<6QZ53LjP%k`3BX(* z6-L6kb}E3lnGhs`QFg9gGp!s_y&)HrfV_^``!XmCC_%4)1mZeDJOBa>1h}9$P7`Dg zWJ{NiIcvBt&nk~Oi2~#np_Dl!Klq_7bf87z-?FTr0bsRSsr0 zv8U209toY2u0eBBGqvk7NyFo)^XmZhprMjfIyf960OaPh-cH`Z+KI`K@rwRVUW}+z zObf%+&0WDABKt&6p*~qRF&4hv{Jn#>qP+`ab0;TRyBF_ot#+FCIZ|P$A1B1Ohu^Xm z2D9Aj@sr{Fg04+ZqRJ7Q0+FspoljgZN7m=~Plg*IVbDQ%S34|*omw4*E)Vm>Yd=}v znLyJm-!K(-b&`y$uV7VH4>vrpdk=xDCERSWPcS3cvF3>mFL##f zp@SC*uA}7OFYx7qbcC60y}oW417(CPuLxL+fycZWfurk|!99O!scnoUuh!av;h`{9 zRTW5vIgDQG%&a1@bgwk;avM5kqlkrCFoo)plm0_jtK7nW zoHrapyUHc5>Mrz>niWZyTBy~$^p*Ol&J`I zFuMg%snUb()RtaAvE|1O#HxQf$71xScLCj6DEM5=qF|DMzZZMRAKk0r=x#Gh`qjYQ0jsvf ztr__OJ8C#cq(807abC}(Mur*PL79Ft>`iI-MwdRC>i2D8Bj%e?bDH_4x!&_1O=G_1 zt><}?b%vkP8}N(`^Gz>&8t4#?fxBjeXOp#Wnp^MMngBOLb{I8}j^c&n)d1F@Ono`8 zmD0LU6yJkKkEmY<}SrF&ShqTt&w82sn@R${KGNZ5H!VD_;az4^<)=eh3Us zj=(8{>>eW*bLKAXrlIF=m|n`=l#B4lDeG162seWl#b@xoI{MV&F+8V>-azkPclm|w z;tSgi7GqgFLdSFtJ+;Dxupr(UcLY)4BXQ4Lqm0**`1F{_FMC&PwU$Y2XAwWwaytyW zuG;^KzNlOXOzFDL@3}aq6jeW_g@|OFo{`jt@(y~wh|3zy%PtJRgV-td^Fx%iB`y?SG%g-y%@=976TJ#{o?yvTFwP!Rk_*$@>Es!1w+cMU zNuRri;|jRXl}ePOa?Iqu!~C$a^;=4*Y~i}7DrTyK3q%+a&?{fqfM&nOQ$Z&6Cv1k2 z#09c7Z1(n{!Jx8$c%gLJ5iF)hED}L{o?;rG&0jpca|&HaO{b|yzf^CKEyqk#OYt8% z0DmsGd?<3NNOjUt1Tor6b?q)cpG5u0((u`){`KsZXlyxWVNOTDndn6_5*$7`83 z^yetl5;qx8hcDIvpnAo)2>Bk6ckSQkz5yJzp#rLqMJ)x;Vqy(dQ^!*zieZ01!`1XM zx7ndMr>PN_zDMO52Hg~``R>CPAMs_CFNwx3OkMld*Xkq)edfu$gB8!0X z)_xC9K4)+^S{8i+A2i){sgTexIl&KK%b!f$#L#QuA4(ezcI)EDr42XL59i$4WjBwz zp4s%EvzAbttamPYva{TI&BF-{Str##IFiDg!X}p33U7v+;cD_PG|;h!b1wy%b)=&v z%ehkEG}o>jh>Y#tDZWT0#@WLGic>5#VZX|4KnN)M7T z;^2)sRfTIh6LRd{LR@uoBMwhP*%}z{Yb39ycb*-(AJX;c3ieTKaw#32g>6~e24RK& z7X~@|bLhI4utSmOJ%6}#-}zG>%9iZU2s&(rXINR8ZCmHP6ef`ot8KCx5fl`3 z2+Pw(;AsZy-49_n28LltX=ctx-bGZ^9Iz=o^KXCQEL?F9R}WF{*g%(nIW9ZqFs>he z$l2^r(k)|Lb9>@_DlC|9%8q-e^|}?5o7+AM?lkiXUt93hKY~9vAzseHkgeiTux({FNm_cwp?ycpD`QjVi z^;K?$w9k1BUuoGHPePLV)z{Z1o^**UTdf88ELP?tJkvo?C3W~mD~}J;=dSPnWP_>v z3YOj_Kra(GHdzUdL0HMKE?Y+I+1#^XPBu^&jqt9Y5?(?rmju#vm$Qd<2bo=vPD?cg8?(0*QW2;9#{Tufu80M(9Mq5&7zk=q z$Vl^fkLDrAl0A+95L+AO+2HdZhQ}bFNdLx1pdfW!@Xb=SsmXN18#ePmD1b>YnA_rmFGGE?1aa;J4H z_l0J6qp(-2&l8$?7EfZJ1}SS-l+}F4W@zp=V8g8MC2IwHx3i24UP0<+B; z^-IQ~4TfqEoG!0avoN0z_cMYvuh+*+m^v*J{eKh#1C#>ISmvQ@1#)!1-F8^{zcq3fLFrQs&)V_rM$_zh-q3fFHdD<{;Ib6ajKBsBn zsSPrOEAJ-uTSjb4P5Bw!;m)>JrdX$(i8z}t>Avr4mH&7vWA7Yc;#5FEP@`2u(6h$v z6a!xLWC(3?(mLF-!?3e1++@1Y=dgAA!?{-i6@$BQ!KPtAOJ=qA+EvFGX7%UHhB~W# zs@adE6WzaH^4fE{+9(b|CEJNeO}pZK1Ly#>rkQ8lBMqhqTA{qLXl9#3MQu}C5o`NA zDBoyZtB5}!Z%b>l5h{pH1Kah-#t-OGVw$+oZ6(|1V~DD8dv?4dQ9vXKEe=HNWQl<5sK8;nTrZ zke6_N^DlmFd2{;!dkZW6!f1^|a^yozWI?`0{T~-#iC? zs*bcYMd0`1s|v*7Pj_5iS8)zu79kak2TVwO9vgLtC9MqlLWCqUlHlE{5|GAJdd$#J zxgfNJm>0=p?oSTbo!)Z#Fi~^;>L)j?^u=wX6E{v;Zal>^T($lz_7^Yna{iNQ#0Ps3 zeY~{BfYjW9=&j+FjJcmTpV_1}q_YV$k3O~(771;ABs+K7?o71`oKCJB%b`8CyUnaT zv|SqXVRe$@P0AUhcE2io1pmvHF;#rpI?z0_FPIt{T+oViT&gKwf*d%%`dc${ySl^c zqAwH?iB{gzX#+8fCs3fOUPEMhY|YCCG;DMiGN_Sl3rN_q^Lc#t;NEoc#^4UF4N z)IqudHKeN8SIlURgvoMjYK$2RCfX3?s&Ohw9MCkV2bwi)X&0#bw{BO_#?!jmkwqa~ zjiFw1$VDdi8J8(#<#H#Qr0H|*u~6pN<6plK2tH%t?!3T4#4wvD+f&B3<+WLGMJ>#I z7widZEn6k2)bhXux#NT+mT1z@b*-D#9ee7j+q2FK73~|T?Z(~d!4IMiAK-85YAYum z#6%Dqa_QBdYnrxbg36C9j&(hNqiX7MasZR;%43T0G_p4AH?|;KjCA|(llYch!3^P0p!~4*H!r1O=W#t6Bj`zv>5}VKOeEF$$`GH&8KR$HOnEIRg`t!$* z@3gHa{V6r?+}(k$^646*=3H@J{}C_e3J%ZMXh-Rg#pbsM#VvFpHfyS>i`S+-V}!RH zOJ4f5~ffV_Aj$EY@N6sei&tyLc>KB4h~S(#qI9m+%bq z8hOA^!*mYihS9dTCL{djna@NTX4c08{|j8Mm&N z#4ISRF!%`$l{xJy?FDKkIy09G0o63M^QLzfNLN!1J4_cTJ9(3FoM{Gs8HbOJ?~B9m z<4wo$k;zczo9oifO`D{weknIpz54~OCAt__WKU5=$F_S~Jcsk@34m^Vpi}(_-uK0^vb8P6;W;%awFJl;bivbG4Q|iG6PQCja$^CU9(? z_j-aG3nxZeTj#i-VCMR`k_4Dg!Bi|o{j>jx_iAqZqGyXw3d7W`La#D@Ive4@zTuWW zf;sAH)Ofgky{(yL#W4&n4fS)P*ah>vUdzh==LYQPwlBUrx$yFhD>ewxrKS= z7@=u`7XD&4t4k7Rd1q4srlg>G<}z*VYdhJ^*xtp62-Tb@l;T&Co`WAaY|GbDaK^JW z-C6!;_=Fkmk7Wkovj~oSnH0LPAedplES7S4nroc2HbLpNn|@so{}4V-1`$2~NgX&omW#HmCw&3d8?)-RAkF#ta*DPeOpBAM!3dOxsGBdJBhNC&?u zvZJ_M0XwFmWf)*y>4Ie%Rh`7GiUp7ckl+j#4JCipny$pFhq^xsUVsr zxU3XN*c!#+K*_A>bNrP?9#{iOweF(cE$JjGnBV~@68@rhN~vfxusCd>wRvz5QCR?b z4A%NB26?LCOc>mkRMrpCPQD_062aC!EXI1NhZmp_Fza|G%0vwDw49PfUUU*mO~>TX$c%VXae1EHK3A8 zi!>S`UnW^OO#Xwk%c*8qF~gj4iwHp6nt9Kr$&SgGmjQ$0RoxL? z^8+nr_^I34LdtDygCwDjF`8eWc+>TzcNd+5Y~ZJ2`QfvA=eo?%ZUo-iOBF^v&nz-+ zHv~t)@n)^j#0m_qjFw@&0gt1PVBNI%Ib{s9FpPH&eT)Bu5t8B0d3VI43M))DUOO`C z+Bs|N+j$v#xYVeNrcG}+8kt^kX)7M)VLKXx$)~3p!J$he(G6v5m{yP0zTA!SiKh1v zv;z|t>14P4I3eCu+QNaeB;@Q0Q*j5x1WQO34ZS}xTs#>)&c~PE)(clhM8w4ra!2#8 z;I6h@W$-A~&xPbHv#{-G+yTo2`MPE0Rugn2W5O)%QD=+oty4iKU1*<1mwmc5veOby z@`W5Xz`*G~6ow3^^Ui3Q1)wmv&z6$maJtqvA;<%Dcrh(nKRIk~f*)s#(18`DrEzB2JT3 z9qn92{0w()kO>}rc%kpo`uD9+kD{9pn6t1d+l-q1=!x6vclUpBtO2)IoBs5)f7vlC zVyn#vF7Rxfmd!^)o=08uXERRaV3)mC>umdSpK*g_xK`134S0w3-wf9e<1wi9^s9Kp zWKLDeS#;FI+Cclk&$gnvo?wbwTk2an!d5vL1(>(K#`y5iE5?dWE4zVm6I%o)S;o;i z`PWAM!w-^kRQVeFrfc2 z66KwJ!_Muo{=4^lF;|9L=c+<8EAhV=PL&7Q_l6m)m8lRL^qbI?U8DFH)*Et%N9+Rp zrz-u+hRYi+R1ywbnTl?F2kIrYej2TZ~pa~-XC>&d(mCdNkO z>QPUum|U^Lxl*e-lgCADvdj0io#b^6GsFBS*00*d2gr29-pgm^`cWA9kMx41k;H%= zH{#reUVdiNt0qld??T{F-zVeyrc!6rBmpI^~0c--5tqKKv zz1NPzBoYvJv_sjNMZs`7SHaQL1LSKQX=!lK7Y?;7L#Kggrk9QcmQ6;_01+&=vsq9~ z#1N1vWaoZGH8v|WgWP74Mg>GLeu8Rjb1_K+Xs)Q z7kMN&ev|l|%Y(JYIh5lwQw&$83eW>8`GQCzP*yoM95z*hNG^Q6M4v5E@m`y*0i-7% zzk3b_clGP`H5R|xuhI2hNPLNiU$WoEV-$Cz>%vNBY|jG6$!XJQl6ZvP&Lq~(6nd~%yUWX zCpMCjgRuV5w6mYi19pjo$|m)9b4Q9I;1mK2$VyctfpqSwXxxniTA4+bLttvAUm&kz zE7Mi6gRn0ms^r2qafB+^?Vz%y5Y#W~>D9obDXVoqUh|GdQ@OkTXs zfE*7$E=liA=urU{>(}*Esb=u{@nA3p`9je4A_Ig>|2 zCT(&qvBgafwtpD2-a^7b&*Qia;+qGBgudWmLO1@-nuo)BFuqsJvD^(mEU^7zsIl6? zR|gya^lAf~xTB$V9MiRoB#gn(jo9c)Lpka4@C^9Q2c1kKXqjhWvM{+DkUTUKj{9PT z4Pz+mQco?)EEvwJ(h*pCntL^6G6~^Yk7m%5-Q&G^ltXy7kkSlaxyv}9HleRUvZCO8 zs~g&mV3&U>jyQ5W^n|QkG@8`zO*Cb?z-A|t5z-FILY2|+*mxE{4V`NvChR@g^p?fQ23 z!)^BeXya{k`*HQBR=EMm7l-O@-zmmh&;Br^1&3eY^7iuL>&x4;X&bx|$=X%FR(*0b z>Dl_|HIELN`i#08Mp_|%#4&<=5V(X*tDE`ha|knn2NKTJBtGjM60fdoptt`VxH`Gw z+u8vw{kuPyNV1V0S^a`BDk-Lj5XJH!?e~M&W0{IPO_!>lx+EMgzwr>l^7VulAx)3j zPCRXjBuTpTo&t0UreUxut(#lurz#ZFcA#dIAx7p5jUrqT`%HpyWzJZygL>yb!Z%Qf zw(lNuH`=!5z~R`tmoSl9+tIGO=&KA+_gX3Qs?=QuCAXJI<-u}F`=s}&6}^7E9rLztcogH=}~Jj)L!@$6Vjr$$D=)MLF8owYY@f3!fZ zF3dGbl=PPxlFJ)rXgckc#2i^OYW=DmcELSvV`FQpaK5(k>#v%r3!~z=>PTNv?q!-z z=onR!AR8#oz+}b|*ce4INo}og@Quf_9mP$DAiAikAcfRPni22RX2v8t*SY4%-w-gRk29fGeHT1FuUtqc9Z#W5j&1ERHI>XAMfEK%)eUG!18(4ThZK49fuuLT9!g;bI#-O}$j4WQ*=K>WFoe!t#M^ zh&7=c&Cb%ON_$~%L7|^J06=Lk1$tc2>kvXkoWfr%S z9Xkg)I5H4Er%r31b|kk#td8lTB1Li2{E`{Iw3b{v6fk0@9{RKx-p$3_(TpezPmxuVcDY3uhVQz% zWU0kNx8v_<>-5xJ*$-Krb9T6@d8jxRkBC3E5zRledb!-{|-XzX5^pAs#$Q$`Tv7Sg!2 zJXrJgsy&f5Vt^l_1Dj$s4&0akW*Jic_Est#9Fw!Sbh zrVda6ad3=;r;6Ch0@lYYYpztJX)i#yN!6u5Rluwm;90*(;YVA21nf*SdOJ zw-5AcnT0RA%FR)q=)GHU!^-LzoMoXSf+PsO!NzmrS~K;E?gxRo=5VehqhVvKj?Yu< z$7QCH%+V7Y$)k9hKV6nbm0PH|p|W%lI62%!{<*!U@1&Q1lz+>^VI$r(r43WN|tJ?vhTuq=}OWRt5P{amoil( zalQqleNo~dT6&NPo*#CnXVdMb3agvhxtn9P}oiQlb3oZXux3In1O46)t00Rv&f+ph4cFI87*&yZGeeZ ze)9T#tFAe_V{Vl@1$XwP5~EQA6OC)T z13Ieh)>l|pw@VuUp-7h_9gBDC?2dV1%Tba{qPyDC+4BxvqX~*}SZ)qXRA1Fj*MU=0 zsJk@=Bh|>H$dPA;?>>5WZS!Z1Hwr7ZU%}Ns9{qq(NJ}oOaXGi&TNm>^;!?=BuuZ2f-NmK(JeLEJ<>(J=!~ctfQJpjF1#c4syp2wjCI^iDwE(P$1=ioXN@?PaANY z45rGvB{325cFbTMF?O^(`Zg&zW;`aCN@UqIvm6sHP}anhcGWOd!vfNpk29Nz9Nl)t zKyKZ54AF+)bdgz>{$Ts-b(}RM4YQreSB=dL&^kCw;Zl37q=ngD%KfJxPz7y zk@rxV)wW|t6gi)#YTl4ej#^G{hJpOU`0|%-nOoyW4g*%(b0XF+S_hjHI8J;I-Zu;Ff)|;lFrrh^6 z+o3jMFh~81@Mv5gzLD$}&TBlX6&PL@=J?oB)0c4mx=X|DnOfF?99mbnL(i$emUYq_ z9wQhKlzjy8iQnRd`_CU62xEDwQG!n??S!tcor*;8^(LvtNSx-#H>s&jHlfXeW>Nz; zd7mCr)lA}pMb(QKST*>v#{QI}D}yJh?N!If8Xes#AVfS&&sP5gf& z?WjTrCod9dI<`N5^uDdczeLM_(cf?f!V{Z=AJRd1`ipgtS1&}CF&cGvYulO;ZVeO2 zah=Djhi>Js!{95U{gx@*6tz4;SYcB*J#|_FJ|W*T=>?Ap*9 zM(->a~fpXTVs1-L855+VesxVLQm_isFI;nfpBV0N~8t*~i zO~l2hGV#oDd~^6@c-MtYhSgR_G~>86zVz3xLwbe`l){eTWZjLH2F7jkfnHa>9rBGM zarhN*q%9)sucIJrZ|5TZ(b7ft_s zr21S#)xNw69(vn%@_`;8VQiAZUQ?iooA+(0`o;H#2SD|8Tq{pM2=6)Uu$6kA z+wual*C|1i-|Bg=Yf%wCxr3Cfuj?7G?>@%Tp<=5+GCd_c=|`|zRrNE)XqS40)E*bb9vH*VNI zlL|!R^(9y|&&Fw!14|(0x*eoI5T{(g1mz4{UQWC|h>;7ynEq=kDUBdh=;wSUka2@P zs?if2UUU$UPb>&i*9o~*SYnA;MP1AbMg*Z(*aN@+GZCKVx{PIK;>tEgaeFQob+?Wr zx%0BM2as+#Q_?*hx^I&hR~^ z!`OT!lfo-G6hKelh1ndwkLm6VjA&>(Uc|aN$1Cbiz=!1)>TB= zc4AF*AAV=7fAvd4Y@vH93tLCV>@pF*uig7z4CaEs@}k`2zD?^M~3ekeenneoA;B=MxNe#Z@ zrtd~m{J%Nt(oN^`!N{h$lz6pLE){*!S9l9(-Lo2yrc>2aQnsRO)}?{a%{_%@s#cp!VMTVE*TiK*Z09ud95{ z0T&(c^sA4kni)gbg{XvI2wNN~mqE+|K&A>5U@Cz-Sfx(jZdvH&GOhjzv>#hg)f-Kf z3goZG$Bx`}vY0_?`nT@A!2r}eg_I*l1cHP*(C|%mC;&@>u>|(k-uOKARP=o56zGt} zrwh`Bve0H#ydR%^awm(O;WjaqU@lFQDu-X%Ee%X2Uh%C!o+O1o$iRgbCSJkCO|}ee zO&okU<9ALLzhpnzv$L|>_<>TIY_CMw-gGwf=|{F)qg(D1^yLQ(2+=uW#wKAJ{1Vj@ zJ9H#DGazSV9u7?5!i?l2?5e6yExnWAoE)~_XF|Ct^X=1j!c!bWOI zYdZHAvWc}^R)jB?0OjM2l6lvDy@+SKy)*sf{|vC!@Rge&I{* zSJ^{1N zMFd0{11N)ppnxcdF^WnU1S}?*q7Z`O#NdD+V0!jdxQYI=;YDp0x7z{Cr3Pc8# z5KKr;KUUrM-n#wX?yuj~-D`bo_0biwBo(emwSdW6)XD6O-FPB)- zQl!S!F$-4^K)ln&Z`73X+!5Lx%0vZcI?waOHyB5`g0whMU4yu7wwu3#SrK=$Nzwc) z=ULHEYirujnr)1ctp4ttZwD*ULv2S_pKtsHh`bRyzw2+L%(9PCghDZGkpd|)mIcrX zMleYky6-i4L6}H^R(5hARe(bdc9V69eh|d7mt!&K|EBl{e>(~pC1{ur!5Fcf;8NL86GHznz3~b z-r;XaXvU#IdYemuPCd#DlN371)|#W2*sHiF5L<*Ze#A!?+yHs@9~xF+wWTchZb0JK z`e+C}$(^M%3Jq@H&^U3SGPLIbuFwdA=I`4=g$yQFG`d`xRj*#UQ&o13v`m4>amypX znuy1dFSdg6%NJY4OpZAw5$Yq4h+8Y?nuU^GD85Vh6+&?oZLjYgE8FUpd)Cd(T)jta z0gQP@Z^Dx&ZxZ$$*xOWl)54E*stR)eZORj#ARfNxcER z)i}n%Ei8w<&@nwBgr>;ya(~=Jg3#q|9RItnXMAv@*fX9I2bO@TOg?|H8YXUa7jvn& za0y5#f}k$JvSp(v6>Wa6g7T(DKnfS2S1>J1{vtzm8RE?dqseozTieT4UyP=r=d#8I z+Wc@j)Ht9sO*xc^D zEPB6=6WRb~^L`cA>}tEqAzBzTJ#9wVpb`2xP!$we*sbM6-V&vjA`FFS5^H{5AQ1XKnoh zCbA6>H~vA|`a9#}e?|-XvG0FR**YV``Ct=d{gXRPvj~8K^mKG;k4DzQi=IAPzu{-_ zs{^o2Yrj0-eE!`QnWq~z$aDvE^v4xsOCM|_JglyB_r953z3t$wYy#P=ByP=zli6oY zt$nN&F}cyOf^~p0G`mYj<)6P>|DYTF9eMO0jFf*TkNj7(!@tmDe!+m?@u(kEwKW{sxKl&^j zld^tHM&8O{vEi_Cu1R`Gy?Ij9aE{FIfH(|O?qqSG52!D{MZo%d?YjQs82?9~eVw3@ z4@SBEA3f&3cCbNpy#kB>k2j!yHm2vFOK<=4c~;Nwo07Q(iQQ_}-Ms^%z_07!x>hyd zz<>VB^*`gnKljkzw`SxwqrV=(FVE`Wz&c&w1*UGkN)lHzcUZK$ zMH=qRmN-vs0U-wPi2jG$l#KqagFjCE*QOtY6T6Y#7g#=ZBWbRkG6bLG`ze_((4d;0 ze$d&qlxshp{o}>|)z9n0zkXbkePoM5(p95Z{sb$lBZ0mjP#SrW&VjO^-}^dv6OV`;WuWZFX&UfA`t+blvqF^Gz+J?i4;F2JxOJ4wrb{-sDG>)b}61$damGEkZ)lzuJ|q{#Ih$e9&`ElA~m;a zIVh;s*8kV61M1nZm*nk?^+UJ&KjtKBZ@@r7h^RvWoOLRjZ~lUX^9l++_jNEHVUM4! z(zHCd=eMtsRj{r2?Wb$Mc$&f1{(7|UmQ$|&n&Ep9YWtpAXBS&k(D#?7>~-)<+mwje zC~>3xfNiCL)Jylh%OA5_ul=#<1bw4lsU!VYt(ZspjwkF(`KOO19kAE(d7$8Co{sy; zvwAmTyU8}yUz^_+1@E@1F*xVGe`vRF?oMo*&dHgbCiTOSn;yk%+|abQ{T(kZa$u#* zzj!DWrjS{%PQ7^J>F!XgKHE^k_3eh{Tb@!L-0_e9-KYHc@}gdEo#|aA>*^e6#=XgUi@{zksXp+q6)E@xd6B<>0(bxR)?^j0)GPs&_Dy zyy|n)&fO@A6?VAR_rQL`y02U%#)*CQ>}DecnRC{69ABnNPj|UT#gPf;d<;@^FMc>~ zJ?398GSl8UKD0;G_?MNt@181Ge0p$pm}aV=Yabj{q_fs_BmOP5NxnHp<0iYU{rM?b zt3Bw&H2_PZ42C_97oIe}`7BP8JH%=e>vUI>4U z(^(8puP@o}sjb!f{>n9eV_x3PiH5rwr=!fTrVlQycmzH9fau(LQ}YJl=-x9DBAFd7 zN5Ab&e6{{Avkq@(e5$$q?v=pE+K-m%4~gxrw?4~;hAENm2j<@nhRFnP%ocVuxjzg2 z^$4T>+@?M8@ip7`AHQpScS>Vx^OoKQwXsc%)^L9PwH1B5MbZ6($JOPI_x27aCB98F z=h|u*-MrB|bO?EOxAM5)N`v#53CpSEWW(t1>tPbEcRsji4H`V_?-+Pl&|Y!(O!ON3 zI-iOMV|3~6Q|C6+7ZC{c-3_7nd#%P?Dk0+Q%dV7OQ&Q(kNoM`0T}=viPkJ{0F6lQY zs2D#q?1S~iUNIPzzr8^|@yYs|wdZNiWR? z8@xwfaL4h9g$7)ZlX?Htkz3D}f-bTLo#TGfL77Fdz4bf~+owgmT8;KKJZhZ0{%*IT zlKr_os+EcAJG?z5PoJ7@bxn_~QX75ExY)VbO!D{Zy;+q}RTfTd^1qK21tVV>#(wm;KXw5x*rJV%Fy!>^ zNaJ4o8Jj#4+xB{cgm^`b)-nFUGcJyj$Q0pN;zKr0BX69GUVl@s#qL0vUHWuOf)|(g z=F{AJI<4;$LZh-hkoZ*cm9|Qb|8W-RO<1Js6-(VIeto)=Cc~Su>7RIa=#21=latwm zIypUKRqC2^&j2f;=i8f9?;t=vz0?2JzT^P>0z!vCk`{hLqyr+NNgvb%o;D}Q$r z|HoeSy}x_a_ENw87w_fo@yP!=a}eOp{}H_W-*u~Pw(YP5Q1$;!=HOpP`TI5d&koSn zF)QayKikilWJ&m0_##%^eVYLo?{ET zE+`8}DoL-*{9gN%F~itl@!#fkH>S1#DlP+U!?&is|z1J$oEI z_e~g*$1FJZ*@`IS*k~$ZxwNo9XE=(CGkiMRm%ea#+ZVaiC3?Ri!F z|D4d%uFL*Vdi}zo@>+OHP%^18y+Pa8k9YIp<=cgA-X((?)l$ve{uaUMQq%7zth+NA zfhOb|CJiPC*3>}1UL&z;lEpUM%Nh9^he~cB>13oA>pG-hcX_hOF&5EZs#&;h3bc@a z)fE!CM!&JUq6mS0w1HQF5IQ($)Kv`nXatoP5_I)nKG=3g^BYWa(F5c6YYxXRNXb8jUm!;Nw+C3IR};2%s+La zzFMnhtAt#^(CZ8DZ51*CE*v(hmVT_UMQ-@y(F;1+@ZFzN>fnHw20ZGw)M>pem@8`9 zOthm06XBFsvU{D&;K#F-+a;7_@q>m5l4=FLns5V{oMxVjLX5d5OefbN8IF+$^ns3Q zsc4ML!UVP_k@1K2q<5;#sa`8<#8mlxD_ehkYLRZAcfpy28udY6<=Q(Ze#&**Sw*Db zHQY7)4Vp=d6DtW-OS+wtGd(_C*mhQ-PVUAbg+)%G7eQr+mgqBm)8ko3w!&gX`HXT0 zwP+(fFD=d6(bRSOqks&@fE<}>sg_024wV0A=MEKoNy=0nCOgspbN*)y@AA&0g_c9K zHmfuUWvXMCkp(vr>{q}WGk9zo-MxABeArkTeVnLrxIh<$GJ-9X}$@K26R*$Jh;D z3;MF$HC8Z(O`qin#=g6uNWWC2aEE@X%og1}qCUZ;M?nM%GOJvHr;|omU{L2>C?wr2 zh58n_G&T-2ctN>S7X%D^|Cpa*u5fA=djELq(_5?VB(}J_w_fp6&eS;+G=E(k+%827 z0VLpMT_7<$L(Y;1KB=2j;+D&!3utwekvX6_iq)wcToJ>h>FH$?prZ}qiZ%%gb(C`>qd@1B*@u@4 zyf~=2;1fie?3?Yj?j{vE*42H#p)-}aX& zoh_5c=KS_|%JTVFY84Sx@ie4u391ex9U1bL;gpq#_>R(< zs)$81dC4Q|CFI~a5~h(q%3Q&=2UNR1wzoW%EpKmO&?d=1NWv3m+DrU)#k$|ch1O9b z5OfZSnbm+_Y+zy}12{26&{g$kT2rrsj>P6EXsV_Mg_Gow=w$=3CC*}VGxAO0s7pL&CE!_wYYQxPUK?i{K?SN9b>fd)op_0~u2KB#Q zw+AR3|JZC@q4pV~Kkop+bxI;vCQxH{hH8=IzVm0J)gzkp3wPNZQq55pd?=MW`Pd>` z6QMgk3=(A4=kqdLbXxdU_$MaDDfPr-AHAi?Lb~u_A>nJPmpWTSg-wq!4v>H5UkY{uP)Liqvkt0W(6fy!iFXf(JRyI)Z zzVIH-7aQQ|qil#hhANZ$@Yq%crfE=gGUlq>^!6%)s)r@+hfn1cz1>r(u-RR1E4DMU z4Lb%gUKW0Y+5BuKVe&NQR8EDAyG)F_k=t#DB1Lxtxnk)%+Qe~vfN;x^fv1K$ww6{c zNarrSR-<|5<#l+TQ5r`Oq<3U_N94FfY`1=KJA0R=+)i)!xOD)0*n^<77Vi1gK*t=x zk%C6?OLJ1_fw+_n7WF8v$2< zS$jHJdjQ@*ZukKn0-Bi@_1q<<7%ZY?~HibZYCYA$5k9&(oJAZAI>UoB#OJX zNQ)_-)<)OyGjpZ6#N~?aw6tpZ^uELuVMZpdY2MODv8O8+7~^A|M5d?_V}~A+<}to+ zj=XVXCRC3r&|`ONc|_N@baQdQx6I1e41F&#gHVe-&{WQuq`*H6cW{p=ZP;Z<5#YpQ zw7mks`vr9Gm>yf)-z28+xD4vO0ygja=9JD=%jRa#K8qJfk7oLz$69^?1mMQBH0nYU z#5XouW?rQawqe^a)z> z%6J0ck|JuwE|Gp3xB<}LH}E7W;*%6ohMi!UE8u#j0A4ZdyBPfEKyR`z9PJOa_n`Wm z55EY%&3-)#IKB@U9hGBW^`q4U9K9WoD6I_=v!L}n(k)P1aNl+Lljrlp6c7!IG_#6GlpXl{YgGMmBu>G7l zV=ZPDD1I$Xk77=e=DU--58P;MnWV`kkHp>`M_#!WaL0B$SM{li+g&gAN2Sy>{LJv$s&IRQ zW{Kgb(%8T--^Kxu_ZofZ$t$h1OZ&-$kh}1%fDlLksx_3(ghSxuJVL0G?g=Uq< z+ef$6jv{mdF-M1luX@) zkwP-39ic+0K8_^&0E8w7QRND%tCGEpstfQ(_j9Bl+ZsJSe8TO%;*@Ja1?c83*v*lH z6JT27ZX6KdP%j`btMeUY}W z%E$e)V;dsw?JOxc`P3i22v>o5z?^M0JOD8$KBvzW>HOJ@1)zYF-f2b~L07g<*I9$F zDRS_X;=H_Dr{NB%{#1?>MhYvy3LfqVw`*s1n(0rcF@IJE8S=>inbc-PGL9YHfL3o|=_U$W$MIxnOp zZ$d&>d83X)1Y-JfmX3pGLXmDw{B0Z9((b0y{|`bB*UdAQ3iFjBop=cIY)Z? zVr5e7&Dk=asq#4FQfVqCfYeXb$*k7P2ub4VJ-&Kt=GC38^zU)S1P%WJ%zcL*>ERp1aTvAioM}-&RgGCznj~9=3HsHyTyk!b_;WM60QrfEO7&I z1u^Z4BJ|DhnT;cmIIp8aTtTJQ<<792LzBFl-R&hWoD?f2X#N)6hb24&@mCcAOa z`z0;}0)s}X7|?!$JPjr(W+6p?EYz4oo(CB($%EdP=gyT3@w0WM1qyQ z5PwMCRaO9@{T~HGUg}HQFYXQ_MC((QR)V24qHu{kmtma!1J*D!3l*<53n^CYgm~eG zn<3AX#W+zGXpj*V84c8l(12*s&Vvr=@n`Ql-~Fzb@15^DSqc~o6A+Z~*dP57L^BZT z!?yt(u8A!a{s<2~D@{@g7y7ntKRuTBT{x#ON*>M_fVmuFpg}d5%g>-V=%fAwgGUi# zaEEe7`}--Ud7?_ll?@H7rU`UsnIZ;umKKI36N)1(Lw#=v`2se7782r8K&XC7yl|;6 zwP%5{{4#`pqzo&>(&j>_$sH<~I+fNtDe{4+V`UX-JB~Fy-{u#Z5E|o-bg8_j&nEUa zRpYutvO3aueeH9x!I<23G2lWd##kgYb~F%EeH<4%lnM8&3lKEvZQc$vEh)eKlIPo= z*p@0-m&S&-&yHZ}a{-vth>(Ds^{B>n3K^ORCUmH@cHGONP51<2@FjH)brvkiGI+MU zBs>OaHn!S232ojELuV_qlTm5c@S9heass5M zX91D!hX3a9D=D#c62bZL)Z7lW)(QE*kUWe<`zQu@8tjN$FF>oU8o%>&I( z{5f`V&fDRPp%b)}#7g-<3XS6bmWm~Hl5mX!P>+}=Q!XOuHKwD*S}E*%(Rz>?v~rD) z=0baCL@8n(XagTI9NdP?@hJ&>H25o#TCr9RmZ9O|1vA`;kGX^sfCllLoM)E_)}F?L zcM!0J)f9oEfJOS?8GOe6>V@gww||V>BUj_{hqSvVyu>>@$atrkg!@hovamkD-9y#j z=+%hL1;^Lmqx+us0s#E&~TQpFEpANb77~9b8tj8VfPtjjfi9#;?d1)kMDsO3B=0DZcscxZm+n^_|0R>Lp$EtTCwtWjL=qNvX)1i?T%k1SpFZj6g#iyVN?R58z? zNnBK*ndY0tXqpev7GG_0$k~EfSCgP{(L=7BTQ}`8}mf{tOfk zG0~W)qEOMzS(-}l%sV~U@`qW?HjZ+KrlldP=&8sdF0qU)>a*k>xWyNYI%ejggx$Kc zu8hv*ys&iS9~ykmazeFaZOsOMZKHgX>;7-LhTcas*X-+_MQt6Ll%57r5?&*qv~Gro z?VKTImF2cp3ec0eV)Z_!6d%QE#+Oj!7zBC#VkT#2ay#R-Rn>Wxgbt{VcDlYREwNl* zTudJmMpH)XMwe)-!Fu>@<%S@&Isl$_LnpgA;I%Vm5*B}#AQo9B<`D> z6mchMJ!7J~&4DMQNsSI5Q!h^iNOdJ{#h~Oz)Su^Xu=i! zTKMh77(G1J(Vv>N*JS~D0LV`=6p;i4bZetg0$DNu1rI{=lyIT{Ny-EIr7HyuX%o3(dzbHhC~j54=^AbXf-S`fsDHO;``E=@>gv;wUDUQy88_@3TWZ$ynW>1tY1 zs!t@SF&>Dg8?<7{?G@u-JV`2OpksXAlovJ+Fm|gY92?MAR`e?#yngqOop!H8FER*w z0E>jMXZeneC6Q*72rAYA%MGjmU>o|~&=4>XJpD%+MUq}?FgJcGG0h<;l`6Y~pyBb4 zBY1jcN}+#*5K2lztuUzt6bVQrm-Cke>@DjuK_%^6SCM&P&UeO)W-A83-m45-Cq zpP2}S!%siFaUu9Z(oSsA<-55y-kVqv8DphnNBZcA+q6x`9Usj?d5$s@e{AC?tB=jj z6Hg%hM}P0(yfTc}GLt_&KYjhMP!;4|5J4@m(p!Gjh!jxp!Fx7#AhymkI0E$c8pL%WWhc(%EHho!ZFzr2s`02US zc33LRD7Pz5G&d3j9VkJeNR8a7%hR5O@PcC>*E?*-!%o3C8{u7b$8;1Bc}{Yw>u#)7 z$xl@0`7gRrGw)^MHT);9homUTsot^O<0@Aw{T_OF!tSJmwZRrJL8T;cZJAMy(e08y zVA-cCG^qu}27`trh8apKG?<6>v2w;)8ApG9|iCs%xL22zVuE(%dD!IsjGsf_8;bm zsdsV@ic-wrRP0*$))N0$W}elx+EG)JGp-B0T}ZoOOcn`Zre`$=L-9F+C=I_Y_dPm2 z-vhZ7QOtFF`%2k(-rpwvwaz}Pnth%va5oxjq8^0`np`a#?FPdum>FrAbx`%dQ6v}BphrG?e07SKe03$+nd|92>DWLzySR}|oa5L~s`qvKeidqBKoH_*w+cu&nhktnC<*`F84Z2EG_y~a zv13xH86V<0Y6eh0qL5ly#@qg7%HX2<5SPyue0L5t%7qr7FNbeg?3j8OM}dS?Q8aBr z%*(d0hn9HZn>NScA>I_Z8-n3H6Xx;~L^GUr5;z5kGKg!TK&*S0a1fHmaQ`eib$2e- zkJUWEUGf5?>Xa9C{SVX^7AvdrKezFClO8Ws&7eL@^h)@?jr`7KpdC5eXS#~sxPIQs zWOAFDqDV(vuU0~M5m-}6EnaQNMK-@?Ad^xk;3Y#)vGSL+*J3@8`k-K()5RkMb$Z9h z@#DvjQl$wupTZqcqet^o(gcNbanOWI+4iuLQ4~tID0sqIUnGknKlpuyEXtxzj)!Lw zZm z@IXdUNtlCngbliQ9qWVd5xtmo(rx?jIth54{Zfhm8gogyMtOuIStdD$BPwEP!Jke0 zNXd6>=WJM#n0J2(Ge+aJy4(C>fbDKWN*0gr1y%1fKg(#rWGh{|P)ep_x2`Q!Qg)Hb zDtfG;|68=`a1^VqG?SP+ik*wKv1|!!%&e7m0qTx^L@97zRA^$H!5A6MwxK}Nzq7ye`4ZA))L8E5N_NwWr zHAdPcgR2lgjof4OJ?hcT03(1Os3V?Knz%glWa~zYy1R#A`5n3#Azcb{mC=y3!o2 z{M9VxMn;nRn>eev3mhkv*C{0Y(tCv&POkKFGe4_45;u}g@Ztqfb9pQC2=o$#%~Ujt z#aSRK)p*nbGcH7V)1vJQVr;RxAUs`KTp8eH*Pio~p1gnb)Ec~^QNFjDoM~mtV2~r3{{1D)gn>Ba8L&N< z_~~|;y-ob#F<88(yUvw^4y{#19jeBn$F_PnpU=8oK@%u`w(Li}+TD4#@qVVYw<`@D zhIdNnU$~e1RW;jWQ+4K}dema}`{s_;GQ%ftoQ%DbFFxsv2sz{NBgMPV5{l&9+J0UJ zHVl93UbU%YCkK9nRPWJ8m8|zTtQKT>8JxB>i>vIy9tN>pnpnTdon>XiPH)?r$k%yElJAKh_sr?P zy*V6!V7a0~#7{QQvqSwmMenxE8DJNAad`EruBl&)mrGM3LheT>xC54SuLIY=ml=#(G%eM?(oeD|l&{ZLPO(-JhDksCy;kCMW z4oBX)eCBOMX^0QRs4MLWlSj9}&3raEvl~;P@i6##GH*%PKG=z$6d)+4A8wn$tmm>^ z*v#(HD*8U(F?u)daoXjyRpajNXrP^s=HZ5q^x=oo&N}*y)xNbzK5S7%&9Ls(@9(dV zW=2OxSv2sYnzF7|JJm}sO`G{vlrks1_X_u??SM|?hh~xKnf32(yjN5MWqrJ<_^}}> zEoh8R7Xn>;@yK~s2J*n1BZ@1Y8HyUsOl0&x6!g>m>zDd$6<00kC{$lMaHhW=M=$HT z6C3YQLAG>v#Fm8xI>evmiRRT>)CZ*dZ-qe()^=zzs%`qly>|^(5P=6xiXnPCO_a{& zL3}n8H1(7Q;XLoNg3ppgY;hm}Ji2gd^nsYtos$Nrp3%!q$;#xe=owm=w8i*daUbqrNG=kS$5=S5jTV=kT3wo) zF-sXrut-?-+p=P()i(6TPikq-1*>a4(J@x2=HTS=fi^} z3<0ni1}t3g(UI2MIu33>a=`-{Ztvynfsil1E+vs3im02X`*yMo70O?$QB&ludql*V z^lYyS^jASjsd=Yi@a^w7fHgn4vfkUqR>dCR}dIY^X}%4&_O9MtwUsjrq!sZ`c(%C(j~f*si>r zcM-`%`(D2>}^uHo8JC7u0lh6Wivx=bQy*>&1XWIYn|N6)<3vi)VDQ_K~)FI5pa z#%m3gBOD?w7Mgp!HZ$A_%T|tXykL)jbL!M#8^QR5uGZk;*j=aRJL?nut<279vuNw_ zd*=EplHG{3qIX*BD&V&y71ve35O`a-!3H>?p$=x<6zTZRrL0|d7iA=l^>(N#-!XtL zt*qO1qUNG=G2v@?CQV{NLOZ2uT7Nv^7q^!WoeN+|r6XLwz&^lP|*9{RG2UH^~RFn7zt@jV1A~3IxRjIn&z7jfW2<(@f5~&|ywJeF4dbQ|cNa{uIXr3U|_9 z8g4y5ez1QfS=E9z+UaMS(-T)!;<<0`pucxAHR7P*r0+V<>idpEyHzf+oab1^0*avj zW`}?+aA({VceSwi{AMDJo-UzbwaeJWJ7tSaoMdg@eJhWlr#>TQ1w)vP9%j#Nb*%TN zWJ?{bC7C6|lT}U2*DBEc%&LUXl6;&c)$GEaIaepEFerKhR}x)Ots`l;=9Y?zN0L)_ z?7cJ{VlGK|=V5}ta~+q-B>}RvtaxK53OR~PYoVY(XJ{4++p=*)TRX2hIVYg$F1PtE z|APZ=Wen;;1(SPAW-BU_RZtX^tZz{!Yl^j*&dCjRF9xGGd+pfGav?3FJ&ctvt9Q2C z^4oVn4T8of0ca6d+>})bh9h+JHDVl>oSh6>dpw4p#12<8l8!(F=p*hD%)0(fll_&C z&@EJw=#0C6?W|CgjuV}ILV}d|42UtRU|y^OW#T}Ble1nJ+$o%D-9TBr*+DhDmVy(F z^)g45*pxk;B@_`O1@a1Lyc5EGt*;__6fH7ZqYf>6H`H4#(F>g{1LOZ-m(*p$;&U2F zWl%l^m5LI#PN5*z=6=tuacHS*Y{-9(&1%el5e{S(ai?guZ*i5JU1Oay$@LhMd?cY*Zp*-vNZa?vW+XMLauCox$_xeS{H`bL zne{4j<$n6K9SLzsT_Hix(i|WefFx!xlF->YdN7JEA4?ty9?cJWSHI0$yY9&zcq}m# zOO0*9V8!$+ft1nA!1k>Z&h}~K_BnEU4;T(89g1Z#2P9iZk0Y8SH&E4eSxD7^R$4L?lFwn!3^n)mb)VK+x#)f@LGl)#L8lb`OR5lV+`r!R%)F_w7ltP zmO*IjwzhOU{g{ecT?3)?f=^Q@fb$a6tPzFbv65aeJ0PxOS=m*OB;%xSmze3&WI9zF z>h2`8A#BI%EbOh%x9zJ+K;$1&mY2*K&ugchR*$uvEhPtk-im##Hb%d$amnE=@TLFU zV%I9zg4C0(mb}zh4$M9$*mtqxj$LrjXH$4Yd;>{gkYimAq@AGkTigA2+$ z&f!dji`NuhnVrqpyH%t(HBefRl4&-RR96|z%S?e<+lWaMbWsR`gsc9-#f^fx9ln4I z-PY9~K4Ivrw$3~vo(N=$R~{0PUeu~n7l4Khh!eBW$6&*N%V(?ZO8Vp)OKb-vE$>QH z-&*HLm&(8i@JQUaX^#IR2UiG9WPE(z;`Lka)f4Lq+y+;!E5%%NSJjloyA~YP&%;yY zgB?>=O_vvf0dA2i&N249F#YXu>VMxg;x`tal8C z?MSIBG?Uw522!R3Ft*QgQn%Q^5LHaz?RUN7xy9&pwz=UhbHksF$_obx@bR6kQ%B)m zGAC76h*J8~hA_Eb^}!5CP9rm_qI3n38|H6IWeq7T`I{F{Ra|sd&NoTH7SaInTEDEh zqjFLiW$e79Lce!^orc?R7ijIqJG26bk~*C4>o_)?Re~ahP~39UAs0JBW1Q`kTcY$Oi(n+Gj>$m@)_9sA)2BLJXZP2E)zxh)y*Bvro#yS=tyR+ zk7E)tZm~3xUX4l0=hBbYT5Q5Wodx>+lThZz)>Xqpaw_XhG|lI!X^ARH(j)Ts**((u zImg8^Qt`Pakg7@QRu`oRucc|d7w=O0T7bN8WN$724xnWPA)}cRl}M3uSh(b(@JxII zgvqp>%S=;$ucem>X+gTU!~4;YZy?l0zu55iKr+`r+`~B3ZMwY8&;3|QJ2i<=5J&9Udl1{iO0EQzMud)z z{#I&+>+D+H@J*rpHQZwfF7w3-oD>-BH*YZp+37 zHwQT)M1>gJ-={SYg}?fN(hgA6s5!7F#=|_OdGv>)tzCO>KbBx&;V@nWlE(X`RC5qS zwK=oal8|5ot)El3d!vv8Oph(+P9i7U%>G9@^xw8C2W#bPhhvkFnjIONL z0|6xgP0U@GYLng<>m%5hBv7T7F|Q`6?qsU++qoZ*V>$YIchg=^&;3d_U#!>BIEXE$ z0$kAf>kq9mZq&G7)q{V$E6eQO!KizlyPF#o547!@iz+yd#doGWf(?9Mv%aP@*TK_3 z_xz1}AH1NdPgP7|5fzKS zGqXNaBX!TOHFj_IPXFR^qwre!3r)C}AeyloKKMmzT^$~zZEQDNmp-;t;PB;l%#O$IiWl^y zwU3P!N}Y-S!)oZTqiMcL!O&q_n~Hj%N{~1)gbjgtOAjUM*-ds4evQ@ zt0m${0m|C)&A}E*&jNmVF2LV2U4m<-D0g4lbC=mhn2p1b$E~xe<#@f!VT1ropDZ`K ziTH^lnPFwCKb#Ug3m-94P3IA2mEogW1!E zp0N3&&8FpBaiQbku22a2OMEvyPM*cGrytFcp7W5Vnyk5R+3q7S79X*WpT2q6W}oMR z*;$7%`YZj#@?t$C#dsHMzHtU*3`l7y)mPPp2cUdF;OvB&mAnui9$S}BCB$=zcdHCW z#1}dp{jC4_^(`!Z5fq!YR^kOn2GR~8?qkpze*!YqvuD zwt<$Qbu1DP+oy}oc|ze5dm%)6B<_o@*UW0jz7d@7e2e4yD@&D&p+vqx-U76$js}&O zaX@W`pb>Gm9&U*w;)XV#z8_EFLy$Il;SWyHX5s<+nDTe=P{Ew1|yOL(b2DKguO2p`WXqAH}akG`g$#T{VOTC#D5A^4S841l9F-`g%dZ!NGmrUrCLxXH0nyMEpC>t{woi#J^|v*(|CY z(7Xzs?SRC`co15=0K_8^j?y`kIJSE22!*5<5`uosMMJF9jMj$cX1tIf3&woDi5mB@ zd)Gb=Rj?rl$o|k)_5%8~-kTS(EzQtF@hl(09U(2u1vmLpnRB`A&Q}?j#+fG7fsHCi zd;2X``b-4DR!cEa1KHeCNt(fd+;~=5ZJp@Y^G4idH- zsQbc*K148VkE#gM!K`D>GP4SBvOp;s4J3H2k@UB^!Nk}C@y86aT|vcS$~794u*zaw z4^Vx}FzGB)je~RT?b@m;$E6>e6Ep~=N6XaIP(JPDgl14TGai5ph_nf)2SwZU8h*n$ zj#VcdkdjLB|5yNiOd(w?jj_7|;-&H77*KcwW=NS-`}(?Y>T>|0&j zKt~kizTbS^`4UoQIC57vvX+iXA>>FCqdImcA@H9~eTE|zguCT$z&y$mRHpxQ`9lsy zgnZVgCf|Nzx?5MW-nul>7F6h<)=1{SwqM12dfMEUZ9e))^7erHUqQs5k0!+)d*2zF z)U??7+LlBIJk^?$!+rgA@J8We_Or+rO5Y6Iq!TLi5eu6G9fl09*T6#i$3D29(c=>#la*oPxf z@-lbKPl&Y^YBkW;_!c|lF1^})AtFPkLV3{U@M8RrLA-@D_z`^LEY4 z80oW5U?4$$J9&u-E|37rEbeS869~pRG>LR0JL$;4#`!!TooutQXD6*83xpq_rsRd5 zAsPmFz1KH!@6m^wYg8K`zZiQUyFI@ILxHgwx4~epPxU&ciYn5nd8c1Q@ih742&kL? z`Umbc8EHG^j045FxS9bxrAyN3Bl&WL11-PqD|7ND54>C-bS!?d3az7a?PT?_ z9FoT;JGGj%kCA%;Ov;8x#=+D*C3Mb0S!lSQrCd1$OyyUF$_$zheJHXlJi^cI(G^qU z93}W^Obx<}=rJdRyL8T1R1YLHPC5`}L+E|elg=9yO20Rq^F`u({s^$Ba!{`|P-_p| zb8&lgoz{+R-|s+Zt&2hazWt>CYJKGcxW7@}F2nxn>&;OW>TNpu+b!-VEtZ-mvlRvc1O4s$iy;=*DhdpJ;$Wo_W5tLpG*JLg=+p$Lwd2G$kam zi?9^2(Z;bq&lkIFEE4%hyNxqMS3$ScvhoIj013}sQG`TuympZ9ELVg-bgs%3K-2r? zL4;KurLzt}yVCF?sf5nw2mmdiGgl~$e%i%a0ar>1SN9Ze2VUoLhHg+=u7BbjKl}QO zbtgo_w*P3~T5g?6?;l#i0c&hL4Jea?$A-R?!s9@PlVxoj_I@jYP%`!g+fU_J@v~a) zF0jRTg!!T(n4fT;cR+tYpAw;&0Wj%->aCQ(i+H6KaO@ZRxnory7doU4ZR=UxA1y(T zgx#(AgAA-BlDZ!5V4yBBSAF^p?9K50X^e%1< zc$|=qBe$e2jvz=QTsrB`2{_RC}{bbU; zF#yV>5dF{B)lnR5%9RR}m2wj}`AQz0{OXTpS24N3$7Gzw6XninhlDGN(<6H$nsWl| zN0`CA6tEb%5nIhH1kPBRhRFE+v6L!IeT-eDZf+}`X>xX#vPPi`z+qY>ow=Bdc3(lc zoIfZGi5ec(Z5|%WB%@3?*^0ONg{ATQ!;ZBn< zKRe^f0rGn^`plY@k8oM}GXXaZ4%h;EK!L7T$?R%MTyG@Q6%uSkrCjw-uyq0a1DwkN zedMuu5XM)wICZ8%d$zVOZqgobH9PrHJwdn-7+l}>8318c-+Xsa$!HF0Sz!F&4Awt} zXL6J>F zQr%9sN`pro0IXasYCZKwx_5Be>&r1)FFl8UtV6g8I`dt^4y6H*)8(KiQc=>}e$1Gq zG~>kvPfq*zIDoPl&PAhsdlgv5I1Fsv36cvhU0RsIb0DeUiLjr1KY@{b5UQVLLl7aI z1yO;or^58i@QX*E4AIr@u zpk}&YG13u#T0=dB5}5<@ESO4ie~tLvPA4}d&hzCZc!37W6K>N~p1oecU}s6<1S5$` z_NF^*y-m-R@YOQp^mSvbST1YfLCE>-ClPQjc~@;91c=H9xKa3I;Oal3fmEP7V?A;9 z$x}nkgaZKsS-jAW*}i)hQuS?P_Mc2*ZQ&>S!`RuxWJ#8f=k&?)0%SJ^p{7s#vE;I+ zld!3N$m)FlgnFVNV(0*~EZ4-az*E`i!h;`5_D=TpPx$I?SbshC;Z}aEi`3E7SxkGE zbT!OBWpF7EzB6C<-Y6hQQ7R@TNll1rlOT>8ET0#cYwR^vYb!Xm*D_fT<0@8=Lfnov z^@P*7bdUD@nY3rKq;#W{;;POZw2o!Ia*xkw^fP7;pcC%Z zW28}=h_%8KZ?}NX-GmlUx63G+>K1ye@7yn^^`&l?gl3Ybs@L3uwtTm~ul<6-eHXMB z`p|fjdUKWXB}*kr<#lNy9ts}9(v?Ey@+A#mkQnif6YD7r@2Uwi*1uOlhs-hZu^`D& z9{~Je|NG-RU6`OS#U(B1NmYzuspr{}L5+?jP^N%5Ty7ebptx8=z;Z79V041U5q8AR z&YZ|^#Oj_{p)LuR>LD&D^8iMz<|Gz+qd~a0hrG;w)u{UYAFgg)j;v*Zpxd3))B<8r z6P+iecTAJ6w+cca389Jn{$V#XfP#8lt1_*nG!7KP5{ljFk>I>025FFaH=PbCbVGtK zgyovwT%_XE?ru=TUjRiDu!%~DG!_RdZiFDxP6Dut5nFbpL}a%v?NfnEYFPv~+Z2%-_}XcMqvXicyR$Ll`@FO$TB( zE3SsLRR$0`7tRE{)VX`C#{cZblG@N7spLi6yS3-e@42Fl>Fl1I2zz3(t{f82rA}))iOxNrJ1NNh#@4}#=CEz zf7SCRWARhYznn5Y=23>)RXXEcJK(>D9CZdD zk(g^0t3iqMrg6XNdgL~uNnyNa&Q}k=R~Oc9gCQ8DsNcLbkWu6^-IzljQZPkox;Dxi zHB||jcE?}-+86EZ+P_*~&PGm^QDXc0+83K`L<@cJ0 ziB($0)2YGy)~HhRQ>LnDRm+&7ne!7v4yqP&6J^!J&-<#Qw*gXc7W_AluW&oB?dzlS z(Gt)vLZAkS19%?Epn=L=PMS>qNS-$74eakkl&hI1ls*k$GBMM0{a$wck&$wM2c-Za z8p)7eJ$R52E6#!_NLPl^fpzL<0hLRDnG;gjW;=6&e(yiLo=03M{P#c7Huagg7(uz- zyC8^lV5TIb2o$-Ccg)zayhyjbQ}(BebZ;M~ZyyN$Di;iOOx__=RV`*J zVLBFdIJ*MRtZ}vT6N13o1ZH5iU|~W8vS>hOo9*C05LPHHLjj(c&o1@$Ew-T1PD)FWqwz$j zI{-9}px0hM@_=Q=S}w4Oh89QFI~((%dxvv7rP(XIZYV1u>og5J+`y~80%{aBDi>Je zBH5#okvK?<<~Y$sQ_t5Dpw1A9OqvY|S-_Jvvv86i*gz972=jx`{1w(vij4f_`d80! z!cruC$>c}s>nMn@mMWOL1koRsi#haPSdjFACj|M2-n6>QmKO6ysJ93}dqHyN{kRAc zr`L0VBiM(t(ojLlFN5r+NmoHL09W3^b5yXhqmlrbCKpnK_MG6z01)3QnFB@Eo|X*H zeVk$s#NFZ4^H~kCVQuYMV+Lkz*Oe!8{fn=5Ib}aEnW6&$=IlNYyXlizRT1L=3M5p_ zINmT6lF}I%(bB!Z>&iOuPR?dyo?1}(Nk7l;;Z97s5inSLY_20m@`!k;8=sq>mJR_< z?OEtUq44Y0jxjfop7T{k!+m8#Ntbv^2RaoJeKphr7&xaBPf(K--Gtl@KA|%Mn?T@O zzaCB>gyN@K1BUqt1aLynh78;WXgw4nOl z4>L0DC3$;|FSO=$%r*dNZ%d^^alPv*YIz7i}44q-}9l|^SKvX zj&s5}SePr1_*pM%$(R^QcX_6*Q=Ymz(1@@ISc&nrgl}Q^nLg+md_NUi%a|*V9c+;T z!jRH90Z({m0Gh#gB3J8!x`ExQn=~Xq7YQVzUty{W3cE4)yXK3!!xW^Q*~@Og`sBX(Rt$RzFAWsf@zw6~cA2-67Gc<;NrJ3zX9 zgpYQAWzt}71Vx;pnf&>#W_tPnIbPe#`o2^D>e4fcg-OQE$=ZHMoIFc_ilG*vPwq{M z`kexQbz|F~h$63_^H=rttXk9m6xmFK??5JGhNV!K!l6q+KTbKw>B1vOh>~d3t8+^S zdf=FCldp+6NL*UW3ai0$Rs?rs4ox)LF!vgec&0A1UaI#LR_m^{+5KDJbh63s`H#_O zRMwRLd~U$gogvW0$%oBzh8#rX&Ol6e6C?6S1nA5jmTM~5IkG=s%qGxW8}l_<8*OY; z=(4W-u~Qy0wOmHbyWTY^52(=LN%eF3wy0@~uNJZS@JqdNb?4FsO$8Bb!eBdhn!|PB z1d>@eZU;r*aU@~P0zXr-Zx&iC4J*3V&brN9)DnH75GB4UGJT#uKiWTK{1`g*W z@>#;Tnb;{Rx1Lv&n>fW90j;zU0vt=tqGIGHu2ZGCvkNRi@&cHVQ?wh3+8U%ZPyy%) z#Y&{Mj*8MPx=SGq8R5$bh>QW|`&J0c%YG7#+G_!q3}x935klxD_4iZ4p|4vh&7LyV z^*cg&i%voJ@qyCGQ~(<(JHv8C99Is0EtvY^A`|1 z`a}u>NbrkHyqMnL28c?MgIe7q__%fw1YLzh<1KWaO#^f%iclY(wk>2CZ+>70)GhI0 zwNxd9B@hJPcWX!5O$9i(05pwYl$$+NPL*c6L9L6!tWd?cb`gFld~Ps`Q9Zh6)5%9T zr)nZFy#&p|Iy)j$$*yVul3Ffw{W6$(vZ-r`oyMb~erES7;t`v*!xhGorVWpl!JS%| z0S-3THDTAoLw!iP=_+_oJ8A2HM)7#16C?PfAqOSPymdE#pH|BxNlzI_wLE?L#B5Mm z&xgW}r4F@p4&Y-cY+KzoCxE>+{|(FY{tNsL2Ij8iP7L8+RN zh_h?7YLx_h`4z>e?g6y|eH)5C+Cxdf`CCN0*P^aK(QYciIbvESnT-GmOSz^;ISJ~( z`sRpBl)H9J%$34xb+{ytm579PZlnT>uLBs+!gPuv?*E?j@rs-_+HGA7+-rB>)o-~e z`R0!+-_O}PVXEf_a0UU9Pv1MO{HE5h5`2OQSXg9)v+%&Y-ajX(QXLWR(YuI@D+|zt zt$Vo!v!X@xzi0cn?FnxaZnl$oKQ@pVyhn9i(55I<|{E zc_qAF9=fTlBWG~V(0a|gI)hg4z&(Yj9&Ec=s5}A#{ z9L&z~7Z&$XKDLu2(`;s5Zq7t?AJP;WButOR9H^=AyzujHcqCc=tiR;MT{Cjzh1Gr8 zn*@?T*;_LO3K5zj$C%>{5+$YuQ!Hi%FD~MV_c^# z#M*eOtX+g8Kxxx<-iw!)+&K^vH|E-R3+Rs=`}IK}lNqw0S+Cn8?tN{>A16S@&Sbim zwjnu9RShn6<;S>1Ucze`C67YC-)y>GnwfW!AJF=yHAjD98w;KIgS zTXq>R_bta44JCw9jeCdem;pWTkyek%8oZ*%Oh$MpB-^`s$xmHQR1$SMJvUCcHecm4 zN+#eH=sgOrPaDd<@YqZnyLQM~#h-;{Lx=FO)Bt_2FlAjM+PEmS#ckOYy(5kD2fgH# z5x8g;v#ar;`4LZvsp3G&B9}*{9@gLAlM6VE)kF0miLJxZ1o%ho(059Xep(@KRShya zvt`Uav%=i5-VWHLMHE@~vEZ~IuOhd#>nm*Wu6mJREUYn&)rS&im7<6}cLsT3Sd?)5 zogUvsG-ku-dW+!`Nb|vC>#q|GoBEul)g=Iw8q8E=3*gMhgdPyBPyaIOP-|MuYqt8oT9TPeZLGit#T z8If}WTI^z*`#Ws|1?rL)xpmRrEfUzhlzXRk9_UfR1pa8Bl3T!07_Iu&MknaTo}<@w5Jye$@mupO?3+D}(^lDFYN)+G)}_Xq=y#*% ze%XfENHYEUUR4#LYUdfVtM`-YG6A4&R>>Ox2|+g&AJzE773Iz5#aN|8Xn9AryVnbd zu(9T(^3qR^0|fzl_aRb@ef#g%UPF5w-{6so*z)SuUAPV_)J4wZX^hUXo*$zFwUuD+ zoDS^Xrv|TnwL95GoQ5YElNiT-?y(g^bbmWgF!v8-Q|>ew?nznbD{h>qn7ASuTne0E z;rS20|A;=Mn@+&b+=Hsy8?lW#Maa}b?N*?~&{Uo_ZaMbwp(~b}ca531ejr&SbtEZ< zgoND>3U*mHVU*hOEPZJ4TBxYbI1&&h9=U#Eb@s)&4Gr0MkDsc*J_zpQK-7Uiu*hbU zVkVyjYZA5*b8kZ&D+xb*ik9MyjGRgD`WPh@ONJ!UxdmOV;!y>wJ%2ViN{5^>(n!m1 zAa#4S6J7SchIK`5A0NmZAhxIAdy8Zzw}qX_BQMm_mAZS3GL+>8!%7Dse{1Qx09MO_$L*R1+gFU0qzx07-DHh?ylCbJ!{L zANu~0Ipa#pmZ8)BwfV8d_UP>wlNKh7l%%KKm$9g^G^!$IyKC#&_m)eto!4Ib?{FQT zK{bSVZ2anVgM_9UDI?IE<;6+M=3n(LH72Frky1Ihgi(p$!_Wa0k2XPstIUWFEp)sP zn9d6GRXhY8{B(btKU1&|zMz=_68{}$Cy&LpCU%ChQ?#URUG~D=`41$W0@i~pnoM)9 zy<51QRu?=P%nW9X?F_YRbbP>R#LINqja2rev-CFYzR5^hwOBl9$DF%sY8^@TT3-Ls zBu5gkFg$SD@BAN6y~&g1N%{{<-}GF8c{s(S_5A+g!_ZE}3P_f!#+HF!FqdkS;N-kxhw1`gVx8D759|M;bI7;jR@8o1^x0Q5^7o@`SLE3DqyDDP{!haTd#8VyhkV=je@Z2I z<>3FU&i-Gp4{0)9_vpxXt6<;lcU9E?HzVht`tpBMF#h%j{7+rmUz+xRSL6L3D;VGW zyMnQse9!;&TE6}7{(0X2c?Dy;|F0B`9i6uRFY6bte8%7J7y3*~^yZ@7-@UZoGYS8c z;-v!1^|)~ZUJ|Ypq=xuU213hieOr#Q(e`;k8N2hV$1qb6bg@sBH=9%ZzbE1T|J7MP z%aN6HEsEUluesf_8+@$>jvghOf1cSyhF0Fn`DCo{dnc5zuqo?On}VL;M%-bd`7?-?tC%=_pij_ zXYLQG|F}-@x=+JB`9AqyMkN2*0qmBj`t8@?QokMZkA0WDzpf@LU*5O!VJqA6883N^ z1~|#zwiV-&7b}0im%Oj_W5QqO`0Jw+RsXi%|C1j#)|~6yt_S!1&?|qaBt5ouKSlG0@?eRTh)Ul`gz2=Ad$UbUywL1(oe*gZv z_$QRYb#s>sjzs(^cQ!mI;XE(mFu$FofG;I&dtgV1r$*WB4>%cGJ-N;seGy~fNa5M{ zn|{gZyBS>FbLrLIK2);)6Zz`zR__ezk*_}X)0eoyBU3x@r|#-#6uGXQf)^QLQ^M97 zB7G~=55B+T){`4`1aSnZeCcSP^cNng`D*ff@UGP8l4|>ny$IJoIa`g?=g=S15%N(V zAlGNR7JCV%$-gxIu@(4yU$(i5S zJM-f$yu)Nr%QE%t7;Ut4EwmJ+Gkpm3B@`SrC|Xo{)}CDKZeEo0l^a=;;AXshO=ij zG36gwH#RQb#+;?RyJl~f-L$ujb*=EFhok7{SI*q4n;U(jw=a4eDiURUz|=Zl-x;l} zU7z;nxT=T6rC)2h6s+uOtQJjgIXSMmZkxk1Ae_Hu^?G->?<{ZWMJDg~NR`W%BaSRo z=4!H0LB z8J~}re}0k(lF)r`xx4>O;`X48u^?y%7 z_sBE;&9(f^=<2`VPG|og7y19LjmB0-TSws8@xN%J@z3G!V{i?Ji|sHqit{)*g6HSYWxlq*Ri_;uCHD8 zz}E2o76-HTJ;jeUJE%ANz%VZyOiNwx!f;7mZTW?l2mma&ks6rQFvG-A?4qXYZ zf+Zl}#f)SfSza8#3LXxN1icEe>5G*O)E?rx@r=e{LDwPDB#NlOe&A!rKQKvp3c8k0 zUf^%eRx0WLDPixwS7r9% zXvJAX{aLgARhec7nkwt^jwi$}+ajaSKVRN?+IE9$`E>q+)CY~Qb|sB|_m?kHX(Q~} z8)>vSx>)f~t?a&@i|f4i*ey(S;gr^xU{=Y$Pl`U{r`nwNc!!*>yty2QeHtYQhbMCD z;yQ2s1lw)5D`{jOFH-$+M(sk5vJ&o%zGuD)y3>m$ols8*^>?{%v4A`sC~XWEOj?J9 z(SLvDJAG(DFkIGoB=4cTTPsBCVdG@_oTQt{S$fj9dpu1_ZI*^g33bk~ zoDjfq8Sx>++bfL9l%T06J5O2U30YtE9Rui+>I6~t!)LOFyVjqhQZGQFhz{8vqp@@2 zt)09H$!)2#2scq)AJ^8_JSg+j4UMnr9*l&?KH25a_Q-&i8v@lrd4~TpjgfSO_2io7QX?2*J-O+PnxX1?i^~MD zf~*pmB{#m4Lx56g)#E!4YD;+R?ye7QdyIefn9S%4;$;ttL}-V>MmJNu3N1!E)=mbb z*Fz)nAz&UdMN~G_Ow5KN#0kBOt|*R}JOqu**hA zo35}ru-Lf+JzYG|L>5ZIg#wWs}y`B{X_;%c<14ohW&)wf4 z-wP0F0Et00&-X$d__2L$+7*}OWSKN^2btddBNa^4tD{&>H!*k3W%YD;W7s>CM)Xcpc@9!>0euAkVGgHgio}BHflSB z71L={DQ#GUZNO%?0mZJ_30d25f@CR{rWtS3NE-FeThD5~L^FHb11|OVfgPxkT&?v_ zpQ__(*F#N1EqV!!Fzs4hm9nFxRM&pxs{r#X*VlYa4Mdvti1o`WcNA>4IjEtNs)oo@ zs|$LvX5GLA{m1tCgk0gT2kzG(a@SfeO(IdZD1J{frr)8=ADZdZBTKS!;tsC1$na-U z_ngbV@Ni@>vxHxV-9Yl|SAluenjg^<@e)N%w7U5_Gxqsxh}Z3QG;BtlE@VqrE3dGg zXci_UxX#mby#@6An-WZ+BHbHIchnfTITm7Bl8saKA2vPRO>`8aNhDxHz{DUy5D2b!<(m+F_O@L*bs1erKxPH2?rpNiVLbn z)vwQZ0OerBc_w zqItwxOB0hqZ`6V2gQ=+VasI#dmYC#Il?{<(T)^`uayofY2kzDNZR0x1s<>iYOvy(J z+X(sYz3_Gjp520sx6Bix(-f$?y7%^dHh7~Z6eo_dXUkPu;dc5?$;hOv*$*3*-gn;u zw|()zZ-g0e^rP8%$BJN&XJ~0d4bjaNAR+yT%iam)kn!-=RN{s=8bG`LLSBJ) zS)Ptv7^y%RYOPD7*7K;t$QTN2 zgqko67)9?sf*}<=JFG46s&)&{KW~noAcbX5+ITR<;r;+(Eg1CwSjKHm3ym?=Q(n;5 zF$QWjNwI1-GbBm-U0@`pT-iw)}*h_5lW59%leE z3G0p2iB{cw_9xdV#K0Tuf_Bn^S)tY@bNXf4cINd(KkW$@5~R-0y~mdwq5ZDUD( z4HzUm@j^L)7dwd)KReJHvEzGnTF!$b7uo?#?GwlG(>#lVPmN+qw(9}58bb(sc_PPhAZgR~1 z-5RuAG@?(Z^cPfofvsKNo6?6St~%f60+p@3>L%HJx9Z32v&#pSTbOyoqZ*#TAkM)7 zVS$=DYI7zBCl8du2a*_1JQXrvK*NO}8aZSi0dpst-c$XnRZJ!yQ!_EJ)7c?6kQyup zbPFMvI=VRWDuxU^Eb7k;;_P}g_hHuLJ(1Hh3V{M3ChHr>MOF0&@$t;wdP@0)O!fOt z{_z`;NpyTy4nBC?p&KMCt?oTXR{{|b?f@NSV;Jx|IApRfuYw9w-?X|+U%dsPo(Etu zl~rO<)6Q>L7IM+b{%CDLz>iaJ0pvw+9%axUj-!*wc|m`sh*k9v8%{@c70T(`G$Azq zm9T8?*706zT74u>PkA_RKm5lX$5W@r5F5=jQ$iFd8dmn~kVF{&Xj9 z&_{1cyLs@9OY$7>>Dh39i-oy-CTbkUOPr`nsl$x9wXz7jPrkB6p+K5k_7z`lD5Wz& zG>0GwcI6RZz781)=di-VCqMrY=a%H5V_d3lPZbtza(Zk-{DdLt40s_1jLmG^S$)yT z=f2#@HMMU%L0m@lB-O|dOoC-pO^$Kc2iHdz?E=P*A8X9-DyOYa`ENc*A z`85Dz>_%A2JX(CTXK|@4a`ZOIeRuVJ*v#IGM1@lEQ~%f z@AXM(ggDU0Py+ULcEe!UC+Nwt8@564F_ff+m8Hwtl)$x@oIm-)(3Xy8fJC}@fF>6C zR$q|$g)U!yu_ z8uW609_M`cMowd@P(r7Nq|CKS-YeIax9WkHS(C(%?+xiyEJ2knCgj*9`c%c`|>PMBX&8k zC*CnmG^xFWAOi+0x`<5xU23v>_cb;0<@pzSauQ6ASP7=-fiu&-jWAO>+f>B^lf0~g z9%0AG^zyRXeEp)bPCl5HQ-e{A^pSwRNhU-W(!}+P4I&=?uaOUY2g%oJkSkUIl#20j zYI>TK0})mx)U$q@sFb!l_4Qzu`i60}vSSAGPcS2qCsz)Qr66(O2QY}fZOixPf6&*s zaOOv%%iZk{YSDGu9oN8pau+m+Yq6!*c#C1D;`B!9wfF)dD`HGC7ti&!iXfb0byO}%{ zyI=p*ANZ6L(=!#iUYW17!Xuk2bqC*TyDtaN_c#&Zn6Fp;@;25UKYaBJa=~(c`lV?0 zhi+%zSoW;?@&QIvb%iGbf!t;j*|qw!BWdrN^PD)%$g1(#imAO1fLO4;{thi`!vgli z?NONDLg1PbV#^(Qe0uiyD6P9WjXSdwkj8}wmxYIxvdNQKs9`9(tmW$|W>yxTb`M)8 zE#`)WA-N9S`Tq7oaCbz$cs7CCfWkpDd200RU0qwG2fH~Ng%E?oY0<0oX_u5~7G`(l zLd|s9r2(vvp9RW}qC1ws!a3HS-vF~HFql3(*a_}Z=xv^e@I`r)2i0NeP}0K+01B_m z2-`1%@K+XOSERXttdZkQU6u*fi!X;;cu=gX%o2bs1?$xEhwA5N zO*svd6MYK^s+eiQ6amk2qMVuzxLG0sR7WPl|5~enuZR3l!+iS|CR1U2mJZ2=R|2r{ zqI#fzA~P^t!YADXuNg{keC$YoZfyP0m6sqw`+L~{Jlfy3<@-cr!&>O75cpqKuUV4MJ)oZzJhY;4G5BlA14D$-3$D_k;Kw{)oa<8@q3RtM#_Tc;NiG z;hosG)*3A>^BvVd_%=(O^nA50V*a614brDH!1G4ow6UDa;dm{%n%pEZv4yqAT(^#7 zsNTwu7u7?BDsqP28s1m$Sl-uUo1FC#bytx_TCtxUYsVc*2ni&v{9*kaXv^lwgtp4QwI*-jeJYZ`pta zy-|ghBBcG9)^v!UW^4sPaBIlRmkZ%}ztg#V23H8l$#hP1E3##!Mp?AdM2IhvM6^Px z3tjf3{?^O|E$H`!#rm$v$vBw!vX-Y@Wt?KrryWk4#qpf}&5hf&mSH;qjPz7^i{Qo`z3m^)0xBU(A5e|2$zJDTW7LkXfjL6k!+@LO%XMgyKKCV1BrjsD2oYW8X)j`$t>*wIj{yMz3rmPItEwksMKoOr zyn7P3oCd=#+^OELQ~JbtwR*vk4IwyKFZH8w+?^d8V*6dnGBinzA7~CDT9_Nb&i7W2T`%Lv_9*kHviVA)KulfO3r*5#*abl?^n2km5Z6F-SSJ*2 zYjo=zihBWNOR_AX9|Ksv!GhLD^^bkz34&WFNt&E$NKw$?usorP!j)gkt6x0U2~clYkVHz|r1b;>B&Jke z{AX<1MPm9p0Y3!3y}unO=s+Ehy}ZIy{LIRMx-O+XyCDsad;8bEp1>3bZa);dZ{Nxo ziDi@XG_)=LIY>UgSaqZNc(TTMlB>o%$#D16)TvFq^3gh_fo9y*7jRawunwhU?fuB@ zB~$Dq4o!@y$9Hb@$|U9^P(uj`(tW4joSt#%1UYGMbca05dou4#u81PxiRMqSB|amY!`WxePwz!<;1XwzS^*WzNrM&pSBmEp3Ge377-s+7!9XwCA(@pRMb zl0OZ^+iniREPCbX*eZB>RqVLoHthfSmBr@B3U6Pruc&cmO9VWOu%F78b$*IP%DdML?dKjKN&4{04HDR zmb*pjP$QvrfiA^2eiAD(pbKlehwWK&Zle}JD8Xp*pwjeMd2*L(v5c8MTM24*cu2PV zRx4^)eIPPN1>)&fWQ2cprsGrrxAgha!w1nDs?=xcGVjG$a5gg}8{Y>ND13 z`15l^TEi!)BIa=(H2VA&D%!mdJcwXAS1P>)(oyhGSri=qVb4dJL_-WCB21Nm!c7M- z?~7ujY4ombnYB3=_^sYBhL-z98XMGfH3X~QA1%ufdP8SI!v9Xi#E03aTjLV8UI$+^a(%7yrUJKtZ z*Xq9y@n=r7pGHt@8$U_#OY3naY;U}iO~5z-WW`S>+hYoE-AmTj*^;k}D3+ptQ*_*d zURuodcZwnoK{mRSJl3kVtqu#gFocOgz-|ncH9T%zz3$$KHK-bo9}FzE4CVDEgTq$=26K3ZIW*%ZwuZnjOD7UWJ>0}m=Sqoli* z;=GHXIx6D31eA@tuIIipXQnH(R9eRNtOx)GpO`E?Q7{_)#_LmG$%ki44!a8j&LuQP z(i^C;l&%Q#+u|YqW~bDOh~DZOx+#PQ2_139f77Q(p^D>ru;!3ho1d=ZX%X$^hfh0BW42@3q>|ci~ZB)>3=c^tVzQ14QH@8 z77q7@2lx+tMbf>JKrOzNF=jnP=%UH!U*XJs;?o#e4h@n8P%e|F`tew=PPvL}{YnglrK??jDCow7raj>a2tlET85Zb{{u! zj!$UuJ)~98@S``_b}2M@yRF37&kpF3Gk}|bo|2ho=?RyhUY~qXOj=vlV*3bI4529B zCbyMzyiW&di;6$LGCP7f)GML%L4lVqIu?8HW6;5k^789JkHvkw5SU+3Hf=ns&~#xW z-fEoPm^VB;st646pxN@&ju>$8nAhhG5W-A7$j=%<-kFkyp-6&&KDi!{B|YhW!}f>) z+2&03)X_8YKsf896k4njvE#}~z|^L#c>wr&+WuU46)kV43qwXV0|6{x3WvCuN<kjigwrm#jo+VZO`W4_fMQhx!aTKtOR1!D z>SgqxKwr$gZx8ObFF05gHeu zTrz?`T9do^`4V`HW#MP`{o`o{$htREn>;Q()nfgb4m)nf*mHrn3xd0GZkv-LTmJlh zt({3LVbUqPJ&@K3*X?D7_&&~l-1c4RmJlcbJ+fItRn8IFN@q7_e>q$2quTq@Z938+ zS2=CdEx-Pk+xs>iKBd=yalttH@Q!*jOn);yu66|T;P+Q@uF9GEz^C&$EGpp3njITI z`N2Kqfb+BSwZ@B8k2VykbU)$EICbq7DOL~QkadV6a2|ZAAabUVUvjG@;A6gij`D;L zk2K0lwQ@`%o)z;x7P?fA%IWQKk<-TXR=asQ3Lga0Aud&hi0jtwH87j4JtT?9 zfCO=^%bo`DMiS!yk9?U3>Q&^*o{6cv`HW>J!jKDV2_hJW3C+{hG%a&QP$$$XfLM)0 z7X7AaR#!T#mmqV4q=Mz^rV2A!(>B+~^W|6W|EP?`{Cb!ETWyLFcqLO3v&Gn*Zo?Tr zju0T|OSbgbeG!O=VjRDbCk84+KsOpo2T~P_gEHaA3Id+n%4-c@SEUjuQN*($T3bbv zR5bVYy2aXl)N%I_qQ6tEE*QV(5#|UrxIHitYf~!>_YDtcQ4=T?o8qo3kggupiXv|f z$}5jgS1MHKB`O@4KmP8HHV;v(9sumLpdnnXAR&p7+^gVHICt|O**_Y+d6~H3j7y7l zfObeT?a;SDN2c^D>`|y+Jz3azMBCzDt@_J{*2w4WC!fhve&W|8&w2wBuaCj@*QTB< zMHJ^mU#uPTDKQD-2;nv)`^fu;c7IUm=BGe)J`|FZ-S7QDZpxFq+1By71$WV@_02zR zu*fbCAHubFFjLyObBuEll1eDo~?}p8s;^1&#KjnQmY_wT~LJ%Q#f>j9@9G{ z+k2Di|M>Amzl`0od_HE^V~r95Gv(K5+X zKo`=}0JVnBfugrMk2ZC1M9>n5+`7;OwOC$zmIzo13_?=3{s*PB<@SV>l4lVFNXGsg z3jwL8&V?J)us`P)aj}p{))BFi*K>YELS2z8?Db&j3FzTjP>LK1g}7Vo(rLkT9wU;(#au3Pi#XqzEVoDT0%7{Wd5eeJz}7c>!n_3AYsg(oDmNh!P&*)m@9X3s-kQD^E5 zeKrls6H8|=Z_nsmLsMy!KFk%Z5LQRqT{q@GGZCON4r?RV6`L0qv^Rd!Y+fIDv#uO= znpNB{wOX#up>@Fm%`_g%!PQHP?X8LDQ6snr%snu`KGdQFad}V%F|Zk+)P`W|uOF^7 z&J>du$5QVH_gHhe9*WLxix^tn%ss_oSD=tWba6|Uq`2e_({aY8#avN-v&a3T^$J;W zXl?TWxD|UykqS2>LsK9hfaut}|6JDpdbasxBqp!!Acm0A~-{apNSAVhgKvo1@Jv)-&-Ln-i>HFa{fg=%o!3^_VoB?^lW^-lmoSzP02yQ z`lYs^&u60)RL4O1ZROgb+EdKy! zJe5lRj=0gu#C=uO-RW89@y)uA39`*sck)Pc81(KzOq$N;W7biDF*S4Aj=McJ$C=N@ zgjt_)Ys$;L7IEz6KL4RuAESNlZkdG$Un_E>o;ZtKH&R3;%o}brSyrDz&9GH;hWa-9 zzpYvP{HDTqw_$}v*;kuoi~Q6Ns8t7&S7zNLlfo;A8Xq&mlksnzy-Y_{I|C*alA;Ry z`a}8h45d2Gc4g!wK(mr_dt<6~G8bB!L@a8iI4d)gfFDwtlAC5S25v>Isw78Qd0r0X z@9yVF$Hd59z6{b!-?CDhV;0uZR#)AOAoPs)$mr1f5Nw}tV4pNQY8K!aAr7^SZdVei z5F*peVzD`I&+Iy#zMSZL9xE2{WSZ}wwbxq*_MTVIb=;>uw$fDU@8LZVY%3Yh|Czw?z%YZY?W!gAJ~L?oZ-+)jYsc-UwbJN|3w_1LMS2Y)Oc=7D+UV^l33Ygd6oBsOx z)4~{f3|DRPI`7dT&V!E`N48e^|(hWjz zON(Qxb|VsFh?vJHCd}I3@x9{EapETbkrBLEE*%1pKQ=pF9p>8NXBVvHC$G88msiI( zjgc{q88`go%QFiN)nbM;9+^zcYOZf*NCqOIb*2A#;Gr3SnYjYS!><(hGeZDd!>FuQ zUa=(}$1PNk6oT|h>MEFgee(YdoRDzDuVu(r2JYbNXpos*LP1C*4U2tuOY^_BJ*Y~6 zY>5`-;^;PEeeK&zm7VD)kAb~xH?-+6NtONYTW+oM<{tKU`43LnmuwHl^on7z<|h&b zgP23GvxYM&k7mEuyHuK8d9pjC2zFIoxT3D~6CT)R$?4SmVWWUlZK}joB;C$TXY)oz zaDMJJZF;f%hKab5Q56GcjE)vCKWkD4JxGG_Tf~(g)14(W3`yBK&~2Go`EwvNT0{?^ z`O(XrM^DjQ9=wTvdM{Ai(g4YvITG)jSGeHU$m}PD3CL(pEpGM zZ+o%tf}E$5BH}00womyr$K?`?8;*%gkW9xBn}UIUWed#@=AVuHmm7-CmM?geZNG@= zz&OY5?i;i2$yauX3Rhl^AZhQ;n7q};(X!rT`&<57C&k^%pKnH)k%x%>m8L(G zr%JQ@N4I}hH14lUDl9p^Sn_wQ@sR0xQue^-0^I_=6%cMSeXYaYWGHT|SHJjO(Mf|0 z-l!tyk?2j3M{ z6Qxfc?>e(v9TEv7UOSumvKD%HV26c>R(7RxTC$cUJ+l0)8LLs&S&)wN8=Fy927kHL zLJ)@lHMOMXfQl=3uT4GDfclj8N;hpkfoW><^!xx28X&PWT2nN+zF8e6T%mbr!SoU^ zO0lb}B|+ntDiwiv%5S`o-SF7RvCrZsZ^9b*cB!(KIR`9I)^kF~vh`_)WMjVA+-uMl z&XYP?B+WBZx(^7I5=qxF_7sOZ1=!9~5vP@LIvAJZyZ|u>U$K$?S3fy4?brlG0{p0u zAEJ)&&J;BvA*%}F(Z!uhY|f{xJu>J_Dd1PrXusab6lWx5 za>xYkXf6{X$Xfr*`E|eaIu-h4-k*~`Fl86DEac!5KtvQ05GfS;^kVzn@x2`k@5%UX z1hbG*jqj%8vb{UHt08FtaEqU`6^sk%=>XLcfE{23&?N&9honDcU+g zBE0P4hZGesXdUH?KuN-X58@<5Otk{YQ4#q$)}y7kHt`m`eIMTb(zM#xF)J!H0dL=e zPsoZOiwTV$D0WYJeNuO!_%XPI4Q!WKkXK$%|>-Qa3 zT+lO<^6T{kQ&_%la4`6B!!h^V^6IiUbB?$l{+UmFvtIX{d$hlaEcO4EF5kh7l|9TWfe5(e!iC;k)E!{ zjH4BvpVt&7J4t+4-t;whugYEuZ@S(I_p0dj6NzXcKUZ&4%b6=|TcKr4Ulw-t%PnJf zbEWGfb9wk6(E}}KnE%lPK_F9oe5Qg?gD&zlcLQKrW&zi%SslrYHHr1@GxG3!SI$-c?ZqFryxC7x zR#lv1y2O(_*4p+&ZHMW1jMR*`==s^o zex( zJm(%KP8Y4;`{d(yu4008qte@bGJ$YLwi^Xe88T@b?`-ZMh^;?^AEnD+YS&T2r)8SA zzlWsz`UyRdKsI&k#szIP!fQhVj6zoX0BiXer;sP>A(KD7fCH@ufm)IV64B0;7PHfnaKXIu5sC)td`dm8I^BtLmb}f z4@p*#Ak&A;Tj_;*{hSD7b|6m*^&MInjf@87)4rGgm4j?EI=l^tz}*LC9gyFi%u9^S zD)vj!d|DISq$MturHCgR`r5H*wDg7ENdN~9<)itoFf;>nNdT$o5RiU71B}jn#k?cp zNZrps0g^x_K{mhGOopp3IR-gZ>RL`=@_9Am zI^0$}4ipK3KQR?bYW-)u`EWf_+x6V{Xl=uhTL*rHn_Yjl`>u7bnbSHujR3Xx5QNTm zT?)?4q1Kh+gWtj&eIg9415jIF2LkESFO=D}pbig%{vADS-3rvDMf$q9RM;YO?Z=@3 zY(XB88dJaV>kpc0Nb6fhuK(Or&~rcs{kEaoRn5XwA zcWzXY)hlY|w3mFu9&5ag(xfexW5^1Xvjop4h0S$CSuBDg+4=lu|AGp|jtF_5nYEoN zT3D!TB&u%m>XpRTYMsZa2EeOhCZ)i?qXt(D7K&CW*P92EQ5OB$+Qz1MrIa$G;ucWVK!7mK|pPKsG_RL75XCBV2S z@C|J7sk&Jn5q$dLCnRrf+FgH{=l+%{}pmEM-}j z_SUyYwkucYpZjz9zW=rs?->``Xa#Ty!fna|907C_(PW@&9pI;~o`(EHv#NyBCAWZ)mm3IAq$#X+moP~} zn5>V(VhHbJ!EO0fBpZ18ofBnJCVM)@qIqKeaP(RKT~k;qni3(1aox|DL<{GxW@W(k ztI;JEKXBRyeD6TO)MrR3?Q1T*Zh+v|^8hqVfW}L(&~dvq$|Ns8j_5Mgpoqg3LWO0Xi2&g!{}g;CeE9KvSoNok!oL` zl$OpJrBz|_FpDpr`k=Bup9gQFN zbXkHj?$cTLPGz)~A9^IF8#K}Ol=omsqxha^$PW#11k1gL|HVuNd)d-FE@(zZbNVz~S!rbV#7usAfGBvPqh?l2#R@88^Ozfp=B@(YdVkKb*MAoXCJ6LNg)G z)Rl^@kYLIBtVuBu6vVn9x}vO8t2VMB2Ze#8=23({ws+AN37^@=b}GH3N>SH%%Mw=L zgU>E}E;n5ynAaNQ9t-qhEfoC3xYMj18ssO`;{{%N^IC-spTv3)~Vz zYEuTK^KCKJIO||$cuXJMl3GxxP79B}51?nH&+c`PQEcDuHyhRs!n}dOQ!3+0MrFd5 zq{g?wAte4TzP!7~h>xF~*7yF1xI_&1o|l%N`=di1KdPJ@L@o}3)W*7c!vC2rYMhaP zFTW_?!8o?w-1_f_`kb}z`+VbfjF^%?XF*Wt`nA0DzpXV;qPW|HIgUDN;Cx+=S94A~ zh4Kk=+b}{CWWsr%zHS}$SHeGj^ZfqN?!_luAI+ov@;7;KxYX0dXWm$Q zTww(kSI&TIw#CGhlgp6rUmn4*;Q+boLo_PBZ-aVNsOt(VWBZGk((D=JjwOr!I5W+& z88@x_8x*Ig7L4j^SYVtmOKrM!H2;?mzZ{R~1ITIAt?K%o#uhf-v>Fi9Zkx}HB}@yc zUA5^XA=~@5mV2I0fj#1dz1qgg(t{d{O)(#44sF_Ph*FPGl7jA*laEZNS|+7toQ%ee zo=Es$tlOWZ2RD1E-u%fEYnDaFWz3v%^hM3?W}X|9|NY_6DDB+W1=ODfFy|eQ_vtA9 z<3?pk`EdD*r{1&skaA1gVJ@(^JqkZry}OrIl3sq*{W!cN`2c_D=@fE$te1ep_GXV| zHDVO<<%tgsO$gG|=#>e-G`9cnohdmzxrx|g&!Ml5)<-P+-)vq!sItG18QFW9Ozk4F zL!p8S%TYfeQ;J=liV#ob?E7pw5`ZZj+tsP2W8Cxfpx-3$&o=W6Q+}njLRTE91+Fh_ zQJ9oW_JMdq0F0iowVaS#p&KRbzJ;(KzLu|`w~qr1zWJ`l!=m~UpfF*ZBwaWrS%wzG zN(BPn0tfG?_LhbDJHsAOdH!-6ASy~|SeAq)-6zeWjT>;-35&n86!?kG(*rHssZ0@< zH&3Zy$5Z-OZe~j_fjaT#zT7?qUBa}N6m5%heYwGE5tqu&xYJb61g=5uzm_&Ts!AbV zfh1Z+mjTRgTIExN)}-HiSDrwhb%Hrlgv=b|sjv1@98mLQ`%e)i>2$%--Iuaf@}b;i z28gbBO2-V=^e7NChvnxGF70eW!kh&;NCglP;#F5hAp&)f^EdiLKDXMj^AP&66s~%)<~5-bfE?G zNn}FlGL0$;Zs!Nl`W)JOi|(*hKBLv;)o6VqxTK`?t^r^>?ISUdX2~YgsRUk|@QrjN zwEqHex4n)xxjP@E3Cc;^7kVO@tPo&km>oIR34F3&S`wrzCW9KtSii&YB$XY-XdPhN z>F3x~W52@=lRwlofo?S!-;&bNs^#6$63=c2f+7e0dbf%p46WHz8XTFY+(Lg8kEzt#r4n_v@)JDd- z`UXtjzytB(*flwmxn5;!qEl+#%~apTQdM}EMTzpiZnTUo$=C0r26GINbv&}(#Nq#b zdwsjYzCAq;{l_Dk{EHV`KHl|2;GYNBIG(tvLDcDSU!+^2e*67O>z)&JFJg&K3WT2w zPH7FeAYMt)h7`Z&HYaZ$jLnlu(~aWh9LGI2UisPW`z8+a)JV*q#>d=-${AUXGvVGx z6;2gcy0g#x*m|PwO}>Hxy+Apm-A4bVYX50BzM_ICQz52k$aA|%o}tQOv5aH7=J{@L zi*jLIiyzA(I}zQ-kvXl}lkjR^7U@~pBHe?O{-i9rC&M*ORx#v zG{k+qZ(inE6z(I+SP^YiBn`(IxC#7}Fl3U%Ef0!}UV}8N@I$#hbqmm#2b=f$@}_CK zDfj7`2~W!s`N8S#n%fR(Z1M2dubz5PM%2{Q@LRQ2CEW0rxpQvB#q{~lsIgleQoO?8 zJaMObNPx+FK~txbUFxm&E!N>y_YIE|Cb8wH%(;a5t*Wf(gYrAC+&_1Srsv#u?kioz zGEze(t{b$t%r()%9VrNR#?BAa?|fH0XOK{!Ftdwv=>p=kc{+%CUv_CI}HBoBX>v2N%ltVa9wbVKjR@TFgGniWGZh_Y`x0BZ#i$6SxO(S^`Jql|s z$pwr{`dSSlV-LkTCOma(xNi9S+dLh3d4Ku)dQr+sWs>Tq@|e_~fWw_SVP8_8>v=uA z_DarxJ#=&{EQ{W$aY`dCHr()D^1(c@e{Fy`SKS}pGl*POEZgjx^*ZnLnrGN7yv*|P zyCvAIF6phDPA$FYq9oEbJ^oBPrtTEXDgK`0sZ_JGHZ`#_0f~=zl~v%2ScdBaye@XJ z%tA239WWN}$2NpWN|Uc2{bKxS>rf0cWWf22xzR;DZxd=l%sXwl!TM%o{0D<)=f*jO z>V=x)+A5AaPlBs$hcu>G6w`^C|H67x1m1+37dr-Ih64S+FXA@B&>-wG)bI3%ZE4<% z-7ykVJn#J2(VvLHDP1ysaQsf2VqL6P#NDiV^H`Ye*Vy|GjAeoOY~Y)Uc9n3K5)4Fjfyd{&FoaH`ku8K{gO4bk;=j(UokEFIOg(C zw%QN-94f1GAcf@xM!~z!MRk9AWOOi9>|bnqOhg7F{~pWE@~sc|12Om1%~U9Jx=1rK zE2+Er%Lm~z3R5wEWp^8ub;%Hk)KM`c&sjE;nkOur{i9&c(IZB+AACz*8JXDfAJ(cZ z&F5o^M=ez52?lux2P=WY#G7Ao9cY+e@|i5rLNi3shq|hIz}n`#|ok zd~|nNi&B>A-NFZSL09Y_ZweA+Ien{@(E*dlm zvkFm^$}K*`Oho#Y#bqG_XBXXP+Gf_OxMhRMElq8F?p?4C7K_n}=OCH^44oF>&+O|$ zqiutZKCX^J)oX|~HK8s2&VINOGGUQ%-phIMeWH2_XIheZ-|@^1QI|QF8U!KJrWgXxm_wtXK z>FTMID(4Rh^(#LV1qv`^YLskA=W|hQXsr)@Q`h((5=tr)X5&?|b>?)GD?6T^Q61m& zBxhbn=O?2hh>IkP5!;HPir){~tm+Tlvnqvj55=IJoE4im4Q zDkFKwY2WlLQqC=?7#sNN-NHv3T(*pOqd{0<%9)@(gE6iL2ItbhUV1dbESQKFs{UF~ zEoY$Ofz8K(0f@b3u_$2N?K@QQ+x?;(NZI0SDF&|4k$;|R6)4!;h=F~We&wmGB9zZH zn(6YuBusq`iG(wx_@GRG;0c9;-7oHZ3G=8&j1-1{Y;k97Js`eVF%0W&1A#f7u71--IeM~@vr*{(CL{*&ftyH1!~{}?-K+y8=Ief!}573kHs zSO1UDtJW)#0Yqz!C!A}aotKdYBhhi+aehBBJNu*35OlG%z*xz-8~n7IsP4UJFiD+ zA8SjHvIH(C_{aD6NX~mdR$cK{`{c?d>}CGA<-L{ZTVB z)V;;>CR=$elLq&^_ZJ4-)o1$f`c%INsi#?$~E} zb1LeAL|Hez_qR7Yf46@)9n-VvQ>uSkpDt-~*`^p$ZLe2cU_4NmVZ;g#(}EvczxR10h@>v2YEkG2WdF_Ui z*PkO}R3`@2DI(!rZrAxG^PG}>EiIlUytt1;BT+t{32WGsNwXopDbP2-|H0b*8u@=k z581Ax+WrR&(zoUJzqGLa$$9%vq|g672C3;kF-V6MhW;nt%YP7M|2Hs5_Wz$@kgU<* znEZc@LHhPt{_{OEnyEfG{N++tHu`*Q>W5S`{L{FR`|1(3Alb=35+*R0YZn8!|^{jE=0VhDQxY> zwpD0noQUxJB@Y>6U352K%{lwL$+k#r+w+?9t;$HuDnlPFDvClK!* zXdT+(f)nCRCp^RJ6_LpXJ>Jj#V#IG+gEpEY$_!g~R5i&t<#VaFd>%{LZp-$h3M-g% z;0<;=ajNbjr5?<+zcp3Lz0$6BsSsYGvH#)4Z6Vpr1~FaA?KivXygVyOyZW^;CHdBk z-u?k8qFjgERBLD$zXhMPKC4(9YjRj0bNf_GGjux2#eVHP6yIM5^?kvLQ-|+wQ|zcr zy%84Rol*!MjeZ1lXEy79g6EwX|&R!G+KYw=(^AYDHKY zu%cOt)_@eR1ndpF>UTx@os+|4Ydk?PR7;sz*c7_A(*QR@qI%ySmWTm1rhIu&(z0&G zN-jsUn_BHK6PWyapc10%aS`Lh2c2E9n1xsH7WRa9;T9Kq)0ll848m z31lPV1+7C`hqQHrnZ-EU4XDA5n6-keiP+S;=!#wLM#f-P@#JCOBXRcp6m~wSYRHGm z85yC`Ujy^n>W04r+FZeaPKJ^<`Pg(5ClUx(FCNz34rah-2wT2lbME5Yaq?)%Ynu+k z;{QC9R=@MSW3IqEq_@XBeL4cEtyr4jRp{Lc*XnRz$K`+U|uQ!x4%Z6A{IGg%NAD_N`X5Uw5QgJic_vOq@X&RW%S zW#wc}#&aV$1fFQ@Zx8kg1G^BAf`wM=munXeTeCv7!V{`Wpm*ojb)bZaoe_NJT@i%FoFxjr-$R@Gd6<)+(@v_;xM&|2-9|SxhcPE>Mn{gfgx$R z1CyB8)_TSzn3o(6i3By#fhr6$V5QLYpKE4#b9JX%1ew`dGf>YHuAXQ-f%L8zDz{I7 z^Oi=u^{)JNS_|fd`T=w5%qHcsiXha>CON(J~Fv%nk58~tZUtj{$c{szq;nJpCWKHB)W zFeRC}^m6C7-ihML^-}9MqDueH7Q*yC3Ew4~{^aOSw#AdE6NpsMQw=F{&l+&2u+*=h zc>UZw+H=W%nCVA|gqFAA!{ni{+;Jf^EjE3B8}yNvXm0>&kF#G`S1%N0@8W1L=nIgH z3k7pE`}}^n8|Ms(AVSVi7jttTWxkrz#xvOgwT#-x6<=PTC(^O5@=JkOqAAd#;cnPQ zSP(?>!NQx*j4OGBr%?OEoCQH(GX=ClU3?Y_?(3>+kgWE$Nj}^xlfVP(e*`B_@;u0; zX0%YHQeMtYpLt^RST;>cj#u|{M@r}+eUNaKJaFnOp^i?@ZEmV2=>Tn83MFt8L@jXB z>gn!!N1U~{D`=dK^E}hGyEpUDkdP478#QLXSmmkqM9{^TCmpQgkbQhcyWaZ&2FwQ3 z3dRDr@j{5)2p*);E}_bS#8Nrs(qbn$2A;-Ga>kSs^N|L(kvP(gR^T}4cRJ?!@#~vH zNnrFa_k_~ppPkqhj{yzqvLo?+QCUG4vH0byN$tIQMdz;|7&F<#)Wnm^KTr zsSnvt=1KukcLHCB+c-Q_SyOe|Xve+u#e5YtTp^f3$JzHBR@r^j&)dq4$jE4(if;c{ zjzYk6%tn5u<)mPG=I2*+_vpJ!Pv6pvjHC~=x6f7H_g}U!BMGp%jGX0sWq!uh9w)4AmHR7<%~C+4Bt3__dDvx_QQ2ZXu6uHU8v(9s!Aw#@;Sh09LEbAJ=7`p*n<0}E z2vB^xHvYRuhm3qLfC;vwa+|F5QNN-UuE<}o*w3EgvdM`*-b8|lRKTd1#DKZ$Fd8p1 zo8^905S1l-WxUeMv$%8kTdM*n@A;2SS4#`kaQRWjzaA!JPEw@rpQYyx)KJgF9!A~? z0ETEet`ki=o8=)|6k5O%P}|7lx{nV$J#ViM&%L59*NU?E&i!^=h%?2TrekGx58EA( zyXgE-fvmZy7C+&}fbVR91VYGUdzg%sFmdol&?;r>_EMhcN03qaxm-3_#G{H36+q0v zT%fiRo&!lGeDn-hkjA4svVms}UD}&9#vK@}}nuj%1|W~>y9kz~&ETkzRqkdy;0 ze>Mdxn=S@88;NaOk_lrdWSKJ$>=Wa_O3kXhl1>XxSfO`_4zWV#P;&^|L5?Vc=x*d< z38iQHMAOq_7=;YCqI}XeZ%Icr68Tpsg%}=B^g_KG{6RM+FW>N>!g`NmeJOMjDc*+n z)OA-ZG_>X{;?^5E*1O6tcGWjX3pD`LBg7d1nhG`Bcf1MQf(CB3?0R3dA&MVnim&RD#A>Q`7Zb-#P(Q4Je&HNTm5 zb&QB0nlAoHi-DPRKAg*iq)**)7KpS$O&PRi21YxxeZvHFC`kbTx#+x{DRQOW$Cta( zp}8SCD+J(*8nFb4fGUlj9_VGZfx)1(Tcfm$JsUi2oo=5s(l4x6fEVx3Tc(d%re4F$ zmXDR6Azw4n3f8WBSvH8VCXO%C*<{&O?Ynu7g=ei5dC~oQ!@elVt`4%N>ejSvKNx?g zmqIMan@EmrD{PdgsA2}|PGg{oWA&WRyL<0$SMKpiv=V&{k>n#dOKKY=fbh{khC;_?FTU`;2%qfj5DFGDINwSOIiVxLH;_oxlu1RP%`v&|?RNHJa_K z*Y}pZC%haNCgMQTH_?oi6u_}rg6+EIAeKc|fACji69Q!PW#F^bQH3d35e5M7g6DWw z=&y7@H1Y*aw{d8J6fIb(neYQ9xnL;#cH~_9*NYe?(^4~2-XVzyc358*BV*{^dHH=k#d7> zg}-+({p_yGchRts%p%hCC>hswI&xipz34aE(ZP@}*dYJdQ@>gnpR1AY2D*1;I)kLD z-p~$~VqFYa%LhLP2gW8}pF$^qzhwLFxCyES+lu2b`Tx1T;g6g~>YebhMfoEb@v&F! zd%Ku-0Apvi2J`0z;nK?>&o8=v7N;6IdfXq%@ ztMk>Awtn^gR1dkarn_K7%EqiC_UEF`_fW_B`+*_BtH0Y=I23rx>gv(P#bsv5IH&h) zr#XBE9bov!*yQvS9yic^FlC@!0(hdi^ZH_j%CajIAnNEH6_7K!DVOMs$aw&!@mG^+ z(N@dA@*hh`8Hapw8yMCH5BIbDuPqX|*{U`5avmeE5e(%|1|W1bWWR$nDvp17*{O@W z3@;pX-mFPWtFa{Dpx|z8|DQGkBYOs1V>jgn6EYCVT8K*1C2l!H(`-Y%+u+_OC}b`7 zp)M~uW^I1EZ=149MrF?8_=0v@~)S*H!B$og- z2D5|YnSBL>!a`}kD8*Y4B7;O(_&QL~)8CJ!vsfUvr1dpI5EcyBlZ=e9EEyQTP5cuo zY&KISh^EL$15QE$JAx}pWv&2hLcT_zDtvnv-wsocY##4xbM{H6mHGw!&^svKe9|wd z%gCXZmXs8j7>ohL3+GJs%I2mtBjezOal=QbDx4!>NRA0cRXeb9Dmxw&h2v}-#&uE$ z(=V{O75zh6bpyrC7*e4_Qy z*_Rq0GUje-+T|N4)W0KX1-cF2jd_G;WY+_cf%qu}zddH8JjR z?OEkm5VLQQ&RHfN$+m+c1ERJsbHsNex#GwuR;I#V?YxN(qi77m`?|dDx%w>;suN<_ zaK;0@(~S>c7c2(VHdK~ss55Hi)ennV5+QHMuH3>yjsZ6h04xfrxvVNv_N&~myK|O_ zWAeMFw}%hj4r7HAaQv*-kqQ~b@9W$a^oEEq7gsKU2=5|wg1`U_EUd5gD5vomA{gf( znk*A>kdVHrk(sMRbc7%aMR*}Wr@LSJ@F;@YX;cNFA zHIX?kgQW7uLYB93BCmQ_tj9vya=K^;OP!eAV(y<2??j%bQxcA!GECb_UrO#MzSRrn zPR5*JcGHu6Siu4dj6hQ}9@JiyBJW@51iNn#RKax!07lI8JK4bjzjebHbwOa{SjJxo zUL_xrDw@<4$$TJ3b?JiR3&bu?8T}xp`LT50V!v?pO?XY?+W3`IQi;Fo@cy&JOaKIsE>a{#2SD^D?OkK6qtf0P{k`PnVH_) zoh>t&O7x~?a2|sF!DHu8r{+Op_>ilIl5)_d`}llsHUxDU*@e&nr*BszmLEB(Xn0Ew zb92MHydhv$AL(wKNv38^S^PE<>xIn~2me%p14#vV zn;I_boJb`d0J7rSaCc+eMsvAy|3*Bne&>N|iaE$#KICG>_*56dx>|Qw_mGxfaM$I6 z9j_ccKp{!CG9@(<%EtL0p?Bf%eTzBPvq(AUX_ zpPRtU>Y95*QWQz`o$3P2L_D`G%lW#zw+a!^GxaE{m=BR>J9lk>xh)0!+?gw|((!|o zx_XnWyb!6`ghQjbQ&zxsut-c*sm$(ym9 zGX|k86R`vMA>;FPj+p$IUg`U_6q0&w*RN-7@4hTE%qQu$?JnsrtL9vwXT2lFK(EYm zwb6Uj*nSjmUMlfw)%bxoIw01MapdUQ47>g$y4R$4&fIbc~{&~ zBummq@8bsNoVV)`B3t-swNa_WNsC#qZ4wzcG)oe-eQ94&ZrkHsQyc;r7AFec^rn*ZlXQCXYJY z^lT7}<#46|Y#hblO(qB+O75ljo`kk0pYbpSr1|f;Q*M#=;#RZOKk^2}*($&`jig-w9IOnrpsFV>26 z_{T|LP73xnwvE{sXW4P(?GfBY%)N?#T#My0u5dnls2G zIiDMesNr9UzNWStQ| zcD#!ysco7k?M>mDUP_6-H3~u8+#L};3Axw!mY`(8UM=d!ahq=FkmqWttN}@+OX@O{ zKG%yQwAn=qmYGl)E(f|Ac7?xmh%&u&?`ga-vZ44))yJ~^Bc)W?Hflns ziVSU+acmgpZd5*)XbMF}^8pz7jru;0Yq83X`9cDH5N28>y>RX;Y{N=YDxaM~8e2>Peddjhbv2%xo!)>* ztS62nYCAHLh6MgS9JcsrsgIK@_4OTmP@u`=0O6-nK3=Au=Hz zv?W5GLq0hv64CmirF-r?a8MtfH1;)9wu3lOTRZvmPFV}ImMpdNI}-N5-sVcExIaa@ zexwhD3_-n+cqKv5chB!EvGV~Oqz3@TW`n7d$a>niQy^BK=ZGQMk~@}?&_E>AlmZUT zojz{XXrfJnZvT(-a+tvTnLCRVjN4*(F(Jye$&f2(F^ zrM8332F28R&Yp4*3s%6(#LgweD0M*M9x9AkZYVV9s`sNsUf5n5+7xTt;b!3X+GaO=m~8?%(Hz|~1?f!>Y)Nu9UH0@E z1{3~nPvwbN2@9Lkc68!BITNBl&(a(6IT+{i(vmLEIEHG!7~(e7uu~avS^X3c8cD_B zlKAehz~Y++cu+_moy+Btj4VUcf7h=8(U4a_ZzC`33>&FdTnThta5{$yGAVd=0@yp0 zFg6up$p-S5YnOsZ%JQ{BI+h>gZsag{+p9JcTAPKEZ#3Epy?c@?!3VajC(@(?v{VQy zO>&(c>$((`G0sgBNT;hwM)u9rw$Uj|3R#qtOzDjTs&^J1B;z<|IxRrJ?86dWA|?V0 z5ixbu@-X1WPM>KameE*I*->fqbmfL^KCr-G<_|Tb5wJI_TLj~yp`#r)0cy={w#vG4 z3w4=+)W0#-m<=~USU)l~>{Ygdn;Obj!-sCfKl{x?qUaHdnyrjyOY4|&V6Xw#8uZ6J z5oVL2E~mYMG8Am_t$Ad90i-1t>ljz^VC!+!_y4{*s)jdzw^8A{)4<_3{pJ2mhZ=9F zQ`#RM;msWV`6{tA+S%GBbn{k2rifh6rx>Sxc;xpYFCV_MNZv;%_crAkE0rw}W=>b< zDmFl;IhS6#a*nzNb7VaQjhV8LjS6?I?My*Pwxx=B+ytPWDdbqH@x`v3;<2KK=u)+9AQ**dl;u=k8(m+&aQ^tKt0r^%8w ztK{eiWkg zv-oId5Apa|HsR^r_MU3S&gM7+~fv55yNqCo2y7FZ?DkM#^L_S_?w+9T)lVFdt$PdVoAVa(;fau<;K5L(U0OOzKnezkm zfDWMT?6sK<$=L*`m1|bdIpslMNHl>X19`9eUi@h@3P;L0VMT>Rxjk8A5L-YjYx<~w zZ`B0=9}vE7;&FY=P-~E+D3`*Vf+xJ+mO9BuDaXvSr#tRy z`H$Gj2h0L3Yr*ku#NRGMyM8DJpY10Y7zNe)ibFGf0#3@GG3OwK<=eaOg~AbmZWHZV zVQ`Bo_-n$qqZ~vyfru08Wad)loax`Xmh<(Y5%2jSdudyXiQ2`Vs~TFjjS4U%m&dz5 zHa?M32R8=$o5ds+XxB4VH|)RsBDTqClk+D;d^v&k_3DvdW`br&`+xc4Ip8wYa%inC zPHx0YB~Cho(cGi|c(v>04=xcVOP$mdsZ5GP7)JV6MJSFpgSW~ovW=)%5YpmhDukFj zV;&3{SG;R@_lnaI?7w@apll~wS|m13zC%Ag+MxG3Cq<&>ReH`uvsOV)8Ixnyeq}0b zUfrk)wRFtT5pi(y2{_Ir*tCDR-2EWD@^Af+nw$u6Y`ywik+n`DTI!-OUJ@R6IntAV zAOD4lP3}$mRMAv?rc$@WZE!DYRb|_`^7jvo0zU%+XqMtUOxwZF5l?0{jJd4%8XY(o zS9CqjC@`PvXqp%g`#;Eg_joAx_iuDnVlZ+nXU4gdNKT6!1{E?Wry`~)m2uX>6frBt zkcv=|vto!Cm7!?NGE#JuiP4B@%35J!WEnJL=H4Ic_x=8!-}CI}_3Zt;_UpCxAN%vi zm_~EEnft!3&vjkzLr6B=(C!RT?cDsp9J?w{`nQa!QDE^b_EXvaH5JQCJ3dDRPdMbMc z&x00&AvBtNpT2gl4a^*9;-*qxZ{thZsQC7~WWKnnryA7qyAU*p*5jQJ-YkGbX;eut z1W?rQ4THq0!q6Tj|Lclbwsa(b0PLz`YcjW4rol)KvAV&{9rXA%cBH5ir#}0 zV$nduI;>S;Bv4YxN6u9*TC(3`&xx zB3KL2C$r;oFLIOOkALFEzaG{u>2JKev1r4WPM_(@_5<^^l=QSTsJmzOsWmpSpsDK> zqR4=GBrb5H!hGE)gsShMsIsG}20Ay&>l9WSudgC!=jMws2DhrRj)LMuyPY;EfGjo4 zVX1#N*%v-C+-#+OY0K|~&%fvDpSV}o-75(rloG2`(~`ps{1Qq5cHxRltr9gG?NU`$ z9+~R^yAoHK7e*-D`mvO*|7l-=TEuZWN2&pC(vQe`YW#6~9lw5VoLC!XJcAzQ)-cC% z8NyJA|G`A>4~)OTT+)ai^mS`8r#1Tr)Fw=1LyQ%{l--|&KhsW|MnWSw6L-JZ&>pG0{{PC zI-lYH$9FHUHH*XkYB15|@puPXZ9`gp zee>TrRadRvJ^fKEqq_L>+xt(NzqY2W@m>gD6>@c)b=Y-*B24>Q^px;L^4-J-PT~~R z2_AWdv}1qr#YP-%&2L_H_lFGJ-6yQLsPwz|o45sN3qtMzA-u(cXHKyHdB+hiLq9Y>7ykaqK03qnv+?yL^|_{fEnJ(e`!A_a;T2}igvw_B@!=HgepMiG z!>fhGADHi(i`hC(jTDaNALgc;>s23SNp5`dXycwevKKwWX(qeycly2rE6gcn7F044 zA9U6Jj{aHMSav^XyWo%6^q>z44o+8J=11#&@;Tc|y_HyGT91=xX8()i+x*rDTpjos%EO?N-+e={&C+zkm0yn(~PolLjfW zO6PKe0uRqybM+=3D{zxF8jkE5=sy=gj&t06#a2Q)bW#7->h?pp%$NwnxN1zD)}dN& z+!k8Ntseh+S5#bfOzkhYoAZ)O@RLbd1qBn~zxeI2X)BO|?YnCJ0RH*5{Cyne&xhmM zH|wH;JOwv`+R(o+?asHfjmQ*~pERv>imYVaa%Lzd&-ClI93y|w6M>s@pX+7 zW>0^j|4WB=RWm+|7eWzDPDek!CAz%3bIu_0QPd$}8h{tVADPS>%B<1 zYh8IRBQ1a5Va4w^>DjQaB=D$b$&Gm%c<}8F7O(T(M9SIDZjOf?Y&f#RJ$+!tcjrZ` zeJ9QKKZ{f0|6*cAV;Q_1F%7%&BZzbDerx#0Z)wKbf3U5NoKbz9a^9!SIxP}Ag40jg zoaB-@w{icL`x153YY!;~fi5xjb8?SG*SDhkPj`{Kzo%(f`s2#&d%N3mo>~4de3-Yr zNxgdP;1Q4C1N~dY=lYKK&%a3<=FVS-h5vH>_OT$9r>fU>J$q|vxnqmN8r<{ak(y1f zLM@aoI(BN+#16KpyyF>)?CHuXOp z&8W3#yr=LbHF{^#*;w-cY4q0pl9X$kf}*t~H|yT zu=;wG_t+Z0y_#~C7LFJ4uj+roHx(KOBvjl=9Mw5wopW1)G@E=FN0gjNNk97@)%-gA z*^!Ee;=le1wT%I`fLYZZo6EhoM}%c^2=zS4%3WQAh~E@Q92-X@9t+&ga?&5ufKe#h3| zFzIgZ>iKY4_--cE>`h&a=hj%+oriS^WA9H!EQwS89z0_0uyE%AOUWExa`*`A$MTn@ z-xU$Dg}Hsd$(Grilo~pjWnf5p_INb-yXg zN7PHdzbDi46{7J%S-Yygtu(K`wV|bQ!;z}2=r3|#F>As%jQb| zy-n)2y>WP*v;F&H`2AmAP=0uwNkcxEy{lBF^@oJ_mT=ipt#&!qROB(&;;i4at$#gJ zLfI!}PmDXVxioI2>)n^raGQ<8)~Yotj*L0DDNgrhVO`sH2HxN)N5SXd9zs?gDK5)5 za^Fn;ozAO4H98BI56#D~#R0#roCd}4M)#A+)HU8m32y0IWB;|cRR@l9 zN#WH8F6OJeHqzm7M}JWYv3gWgZ9WzG{>R5uBcab{&Fn~oadZ;N`!eoTu-OMw^4Y%I zUmn<=I&hE|S#5)qni|g}rm4%RLyZ$VIB-DP1cr8Wx zKko{y*6DHo1JUT8&B^~AqR~HZ{vR1^rc-}f?zQs!1^L?{1B=RvSFh@Mx64bbqFVne z(I`af+5hBR*7s%q{<#4c5>6w`kNTdBI(;e$VeX%NGU=aJJYz9u!8d#`vEcEaf7t%N zMKs#`tF0AaHT^&ITmO%v{8yq8V&CWYy8m4| ziJAA+d<%TH#xvJUpcQADvA%L4 zl2miY3uvexGgb^rbCO701kDO&W(0j?+D~QQ8E3I;37O~XOHE-~U(DpEO&LL=`o}iZ z?~ZtRZi~#KEa??K2aLAXoT?xmmHC6ctSf**SL5qAG$?44IWEZh_@`JSMeWc}8I<7M zaWCJsAm_&}z%el0dE#@=LsR9}YKFM6l#}tNyF9a#M^4t|$uotMH14MlWL66q#T0iF zR>s1)bIHf#Zc@6BMjQ8TXjE_rl>wT-HA69)4Xm)>Tx1?x4QcFh=`rxW?cD?i{ReSn zo~XkyFJJe}?_lo7@ELETXM=`}!s%lRjj-Yae0X*?GTUl1c*)z{%LAERG;9#G1kJ@d z-6Y;@>o8UG>;1P><9~d%#$WPamQPu9EiSP3q6&lbRZ0=^^kd7I1R(1e7`~KrilT-mW z1UR##g>*7$2oDp8CR!DV24COZ7pcDb;7e+6{t8)#p7@j<2l>P1nB@(xR8aia2aaL^|CzvdaHzM z&2@`&(zO;5Z3Qs%XUKuOg)!N;C7K)SpBif78dBlTCo1%VK5ALe6E5#BJaJiFZBDTu zVIW_rD{j7eVrF3u7F8>i0&}LVy;jJTx#-`h_ti?J0@(JR*MnKPO4zE670hxRE!lKj zYHDl)wpiO$uAR|VrGPsvaIejAKhmwCYsZ|EQwm@^inSI25!p{3DlhA@GfL{bC< z9o#kx z3s(;i!gy%1F`D#%DPDDbYO<`nL>C0#n$3D@(j-TL*&C^*Y#Rxvuyud9nDBn*)AEk} zI`=*q(t#i>#G9lAL3&Ei^hNv^Ds|%El|!$cXGAN&C~jhg8!tbUk`;O5u*2XuTqURA zdjo*2iIPRosvZ-9{@h@%P%M(C1lOl0ilMeAN!`XX+4XZ_*4{>J4jy>!Ks=zx&jcVL zC;5-1M&ct<&uIc^qPrhoyOpfba==FQwS8N>5A7!vTBC#O*gY6pOpc(S$)3(eE$Qaq z6)Sn>^*-kQ4Ne_L#j2ehBM_4>7NUC~jx!(%PzKTM2Y9ka!_wn_BAf+{=mpw|>Q%S? z6k&2b@cOET=4tgM!D2`-O$XQ*S-recH%lR8)ZXpYL1q}w*!U2 zxun%Ke(JWadhCQ~8P5#n8i=VU@^ILZ!eKlX-y$N6G-89wF~%3`o> zbkc+7C~7l`A0;mF$%K+A!>l18x_~?<{LT89uDGOK4MATKu%nTrtSIdXi=k*aLe?pi zl;`uZm^3w)uh%4RB#b&9#bjuRS|>a1TZzp(9Wk-8eE;{JiVqR)>&62b&OpdAYo}{* z*~7!paI=;gx~NY?X}cNX+l^(RT5Ynnk`(N|d~G-d+~>z-$#TJ%X1UPdIe%ZFSpT18 zxX&{GsO3@VqTg$i097kt;IsLC>u$f$fT|IOKrR;`O0J;tyb)t#U-Ng;!oomT_20|N zaN6>`bT$CJ0)ezX*gjKMaF-luIEo(Cr0T=#x#{j6F%@z2IP zQIciI_;6w5j_4hZyZ%8gy1T#C`}|T{GTgW*s-x=hatZjAt`@doPBzytQHjHHPNP}U z&&$5-`~A}UWW|5wMltI3W=ke1<%ESogu>f52O@S`zH{CpzmT=_Q}F5~tGE5y%5S)h zD9NlH5y)%t!El=cx3qSOriS;1ez3DdV?)mQO;zDuu@hXqJ+(i(Av;necHD&5sUK1) z(WO$I>y&FgRO``jCl(WLsCW2TshQxR)c8cf1o_j|zHU7!I?QgaA%O|_iL{9nWj0Z9 zF<`0BuiV(O-u{U~h4Z|a`Qc)+XxKd`Ng2Dbeg2bu+zJ=8@u7@MkB_9V*e%c(Ds~b` z?egmvxoBB|E;N<(W;62k3%BhB4!%MNn!HCf0iGb&k;`R(g7d2cydXDC|B05;7b92& zGWpcLcZ!?}LwGh|v5}dh+-NqT#ZV_}PO1;)7>siC=a6py@$DaR!BUlcy-VJ&^;I{N z$@sV@dTx;4yicnE-iMLPi`=^{i~yfW%|=6qP*!~O^J+r}xCx4CLB}z=qeb&`C(WD~ zS6b^p#BDhLI18D1`j;ZSQND8_BC)6=_eC3!-nF=&x6d+N z?lIQ%qLa2D2V;$9&~XH{qd0tlfxckc@>0z?wO^$zb#sqQAqUPrG*LoSsJ_nki^!c8 z(zz4jtQZr*Clm6$?SpO!Y|c2LcVBnR%|9oK=w@x4VwW8WeFk}k_V4Y0#}fIwQD{@H z*TZf2pgE~7`~Z?ku%k%8^#)7|IhtnmMsfS_Ud#z=9(h@r#>xA*XT)h%=*y%gX)EP$ zSan`%NnRTZ``{|q=e-t>_6?&`U$j^5ZkjtHABwWhNsn|U3q}3&PZJqX`vSq)M-;pS z6!zzM{NNGSrAi5%j^?JK6kfN)mFMu@qCAs)AC>D1jDXh5@@;ffY-`ES8a#RhIGKn` z6lijI;ntP|&P-G~cf@*TzR*0?uRM@K@2r~%XQ9No6FEq0BQ=j3RtInI?3PgoT6C+( z^#wh73WOFcs-=Euq77hzJx`YRIESrr$3@+q&B7isKfazCMUAQycflRaf?*f5%xAb$ zl&23~7^~Zp8S?@Ww4^G)Lm5ppcEbnsRPBiW($Y%5!-q7AFPa*+bd@QP{yQ4q#kIN9 z)Vx9lG=+tp#gL?<{G!j{R7gbTcMFAc$uGdwTFdNiF%$y{x3o}3D=*BS;jeS~EPzSB zxu=yLr4^90FR0U4S9plJxv7qo(%it};sp@I8eS1(@gU%c%Vy1q%-{cnRz4wk-FLc1 z(qqps#V-Oq9lCvimn0)6qJR5?waQ@V`VHSTQ%ur#K8xFlPOGBKz6(lawvSl*elM6U zhq$fv!`udlnF=jE`RhW6yG_@9hesN%@xDEyrp^UF9i3T2%`pWQBaU(1(&=^V3?7X( zd*uqGOM~XcJrnbD&PM1Kh&W06vzH)(n(`4{%bYwAQlH`jAcOb@OVzQM-54 zWG5|+dA8r|N+&8Dp6T=(Wnw9hoku9*G7x0Jy0Sg8LBcOwFxTUVds+o9A(-uc0La_`X)wSXCS=j z`ujt;Q>8;wM!A=dWx{*A zWa&>lhG{hs>h3#X@SE6 zP!JtCx7$+9BosZ*7xz%aYKLT3&WA~DYkJJ(5~%tvZzSx_78GtjElIDqqbHRf~@Bj_(U|mTnbbtVB{X%gWs_ zpy?b{lLfPa4_SCf?Rb9T4D9ozO?p%Hg{r~Os?Xp71?K>0E#Uf`@|B)mAlj6{@FcV_ z>NIo6QM1iZLq_X}zYhb9a`p9*TLMwBi|06iS7!=F_!P^ z>98w}-l`ml80TWeP1Ul{auI~4Is*gT^uP!NUO1tD$q`TcQP7wizCG-#01fqXn)}cr zgI$7%D-h2;ScFX~rVYimx(5e?6#!xx8t zbr#~Mp5RMg%0h3J;-lYdlgXTEpgVxS=ZHfa-3=3smSh4kQ9(U6~gFNI(1!)MEvY|d{0}@GOeCy{oQcFrh|=%jWKST z3CZr^_XvsSa-f#w4)$_Ob?}dt>N#lYJY$JTjYl!kM8Lr;l^UN!=^j<9?tU8wXB20Q-HlQNOV$^^a;T5dL& zFJ=yhHKb7@jmuAD2S)YpK}zXG-avf$nr~*;_!UJ|%D2PBm|y~lTct2Y3qBfcqx1ym z@!6ex%BNk^R5`yBjUHizaUZ@8poVSjl_c8JUUUY9zC3o32?r zzeG{<`8?d+*4Aq{9=1I?wYOzife|X(qZ%qh>k3QEd!VTJ%)&%2b8TB9hE(VwJ1GV`na(sD=*)Uck%KUtCTfk5GLqb z2E#}lx3_JTR3)$&(O>?f?65o?D!qzge$|xe#iHl4saC>dtSR1eWW-^vZg(Yt&eF)e z;s#o2XU~&1Nz>&;O0Xy|#x(ru-aQV>%IQx{gmQfe^W4es zV@?LoF8?`E*k4?0Cnh&H0N(D``5D_K$d^8n4guYmg=7#=ZAO&<@^h37LDUwdcTDIn z<-}p&l(>q~7{eDXccnsW4&i3j-JxjVTTA10GV=Ak{}}VGgR2W0uK}B?m`l%m^*z*& zb*NHe%^Vgw8=&PbEU9g1-LVsxVFTPDpuasd&b{GY+q^ZsUZ~A6oigTx*d9NP3(0J_u=vYOw{# zBqlpr1c{qEf!hr>`17hx0b5;y~fS7@%&5M!&@(6UY{#gJk z8V0O)`Qamh4(orh{+P3HP%H)pjp523ZzKYVxhqyMGr zwHRkuH-Y$V=f&?aXDqTDBrMPD@Yvg}@?G)v7QIV13db^cuDItU_VkoRV_f0IrZ5}j zblZh&){R;pgJVZ`#90(Pq8xEh38Vb>fHJQENoc?ooV$Cae(qZt%+K$BGWMRM_(Vyk zF=_=`Qowaw4-@)Ix8_w`E^tS3Bxkg*G|&WseCM=4G_VaB6#m(xIrQ5DS)wXHPS%ac zyJjXS*sS6kIt#i4GwgyoPW<78(emMbrU)OB8c){M2x_9Co9mXuG`iowr2&1|A;f!E z{S8$h4*{(WsnW9{%s@1tcK|c{&Zo{W3sB7GVm2Y@9*!_C#YoqWdIOIn&tHDF7ru3) z2FybNG#bm_=5|>fcsz{!_}+*|Y9@okJ5DLu1uRTUFp9ME_Xsea#Tbct~EF1b5k~QskaGp-8ey$K{;cg7JFuM`@y3cM8gd_Mq zN(vDiuLO?5@yoCsE^pwEhxR^8fDzSVB^a=Mm5-4Gop75<<@QTbaAO&->Efxm!BfRu zMmTu>F6BG8h~PVJbzVB^&L$r`(&p7%=RyfJN0kfWs=CBk=T32K7>%(FHA~t`#QCN9%Wj2}TO|~5VjsPtJfrKwCOGV@kEStE zjxru;+YsL|Vl|e`mi)0g)1W(@CcYk}G3~^E+%6oUr*fRd#r$?2Bc@Z#V9XCAJ3P`x z9O6LQRjKUoEi)61RHLi!3DQWJN%h2g}X=0YY`M2auC_@Datco1`bn&B7sq1mne zf>*g-G%h5|$7)FNXRJeyAk29@K9gz-RA*kNLkCp@jY<;6c|R#2Agt+$sgslUn6tF; z1F6|ll&)+DS_t7baUn-V_FSy9XeR@W4xcmk%i}@gG#&_Vr+|%m(!pvTEibQ#7B*~9 zfQBAMfDp9mD&SMP(E$g`8alX8YGLdUT1-KUX27paYh7LdO*P23l$x(B6yXQgLl&R) zamMMLr#L6$TXQS)j@LEbiS7~jLeXO2e}xTkgF1Qh!_ZO*#2zh%R@miGdc9;Z+&l(U zGQfo@rDJQX|5#L6Q(tIcTTxUSf9$Mg^jR{e;_+D{T6aAq)@bU&T-qVgCLzuJP&8A- zFXT~ZLiBSjBTbci{pjcY#?Li9?SwHq;k&dkp@)d~&nI=aw;0pKY@j(_-%*U+-N_QA z2Xo#9Kyysduhq4}mTEpE?svsXmL`EsJc?whQ);5A72ps0a5b0uB{UKr97Y0Kq}5lH z-5hc2QHx@@X^=9doe^V5lS^m=MRQxHs82S1xwVD7!oB-IZ&RT6?vDN1*6s9QY9q>j zGd()$gVj(Jhoph3qsK~Us$3%O$o1TVv>I#g(~x95c+jy`$~zI&)YJl=#de<o!2ln-K$L-m=EyqDWKQ~u3z>^_m8AW*~xX`hn>aoZ& z$Zj71noZe!$nBpLq4BRo0j4CqDwu4hqV7VLsIB;m@)ck`xX5&~d~_>&Pi1D|A^kSX zC%^eW{0&E5Ku$HPXc;`%SiG@Z-NId6yF{T`UBckeZAI-;bH+_V(t&7?RRzZ6(g+@# z?epzq*hdK;WtbaPD#E3O0P%c9y!N4B8NPJev_oG`v}j_58_2CA$%IXBC)DrJko$b4tTc-iZ^B}|g5*iNT>HYvr zkw7$Cz!W#X+CG(VRx;-7W`n%Q$I+q;I<&$EnA`pm*a2z8-+C9b7jd%Ezr6f-HgI9`A*Th7THTpPKO zZu?YLcPpH^gj6_jhJGMZLs9F9i_!62`*Prg=ZuxVymgy>_h>5N$X6$o$D~W}J_$sx zR62KIetsa|Rh||s*FMuti*(ZM5FO!0RfII>+W;bBeNg9IyS91dfpS)5~(iH0+h`_-;{fHUZB7gZUiq|K6B#j;X5CaY7ikmvQwx`UCtrV9>BeChVAZq&YtFbOToVE08eWA9A6LHVLi6S$>a z6tx{{D*+HxxWR!)5iWP4gPA(OA~H{k&+{D=5tfFJdEi4>ofBBwlp)|Mc!!GcArV$fUV{YDvfsh50fapo^g@7M(%ecO7o4AHx$hY0;7b`9 z30@K;$2wxu9gRNhMll(XsHSHUj5>gz#=2yH@XRIK7McLWRA%1rikDzUJ~1R!AnInT zeFYpNS`>}T6r~Mbi-$PTBGKorXlO|kEX0eN(pM%fECAaDFy;}rAH>Vi#PI-i9`H~@ z02Pmr`FxNC41rXMnBCn2@i`gYAk0F1X@NvA7)i|1?)USuTkxx7Xz7rHZ($X4p&Ww3 zXg~&J7)*d5vA3l+C7R4G6#3(Me4!ZVlMJjtvY8Qh1+;0A@a!;6Oid9oJ4(a?Mo9=8csq(#JFEjwQHaHuoozQ# z`n-gzd<=Ouhub;P6)XtR1g$^_s#{x&HJV~u?t2V2L|O(Z4!tF4oHthXHi59qZ6C6ed*;H`&~&+! zxpY!_U~+VW=Yyb9tmL%SSYsnNGyu8RjFEPt>|$aP*CVC63je((9!=n$xDO7}$TzCky~Z%fQ4g zHy;FfgUdVq3Dt1K8$aY7V6_K|hZ8^pil}hf1zFg|f?tE$>Cwx|VYsgUjMCtVB*6`4 zaV-I3`N_D}E}GxMFvGhl$%Bq;?UQb$%G zDBQ{UD~}0WgvG~V&VDR^_^l*&n)vo%Q^ROA&{rrunxhEUS0bpozt&UR%Xyh_e2nl# zp?C0kuDha&LZhCs>#~rk;Pg>sSp790OtJ$QVh#AvA-f$9JQJok zzS(2TM2y$3%!JISrUo91ee!eo9qo46Z^`? z<@NKY4o_<1CPy3{M3Xwot+bHy6uO+$n9GuOHi|VfXHlxZYhcgRujiEeT&8pg+g-s{ zcgn4BDCgm+!bmXse_ioH{b~04LyYv;PN(I{C=NYAMv0Zp;td>QpQW`IQ1)dc@ui25fM76@&7jA5B#k8LMmiYV6V#62 z&If4LEGB%im(YaYI6a{}V1c}a)O@e^y&{5aqT;n%UCUzd&Skd<%LT-yBDLfUo2HsP12T@mFGmq%efO0 znyorrpl`Gc$u9KJAx`=PA}|m{QKpr=faT7)SYgf!RVl_FKiNIupJXMb_0ga^4iF7b zaMxWt6@H6GUraV(HH1MI9JZNKb2xC!wK^m+T9ab=zwcNv^X|HfQZbHf2dHmN|;7z*H z#9?D3i^r3({ywE0O?R*5>(#_uJR(OjH8s`S1H3}$l3>HHfCVXmpq1&D3|9@JKQG5d z%Y{mt0RbLLTSsSDy?l_G*Zi>y#Bk5eru2vwYvMr}RSQmry2|;8c$ND5SbRNm-OZ!+IJ@LOqU(hr0 zBB%#gOaqBFO_;-avq#c*BN(k61WvLBzn308(NT(^rvO>ST7OxV-!S%7z$*~r*Vh4` z|2&SIlp(UHEuZ+3pmrR=XagbNYkk(@ejwCEC0amh=i-Rlz8i1frk9=2D|yEmdgYdN z?tb&gOANhIg0Mex=hJ(G4Vl3GOGIk-+J3_^XrFQt`$f=jDmNY_O8a?w(Y~3&=U5;s zJru6fVLitrNT`9oT)lGv<=b1qBCB2FM3$>gIXXFDBJH9%+5M||nc>3VPv<+nTP{2P z(_70Ig~(!Uc=Twbqr-g3G`1W4;XIbdM>h>YVOx3@XtEHW|APq?e)MS;(~`wh7>PC* zy-b%C3VqRHj3a)fhX)Zo>{sI;^dz(gWBzewI7T3PC#>c|zbf9p{4WpGe|lst>$*J= zk-3V6cMwjPS-HUYa-tID>xDkE{ zUaAkI*49<35NDJP)^QfkVhis&P<;WfU8O&)W^5=XknlARY7&rze9cIi(S zjKcEE4I310=w%u{K4qnFU1c@rm&`9Jumn{JbqhK?ckgsT*;(%|R_{};*~<#09#bKT%EZXM zF0K_j7ETmvNS@#8Nw1c&vlhbKu1LVge*IjB@aOn$kfK-YMJh@^Tg&{0=r%WJ433{a;x}34wX4EW>G#U_ z+VAZi+6{&k_WjxCeu@!sRDZwC{uDJt?h8!KNN7%Hde~fNO1nm?e8=4U^7ozGSzwgj zLq${uLdEzIi)vCGo4#d!^!j-uEorN#8@8c{$QYJTi!r%p7dPD#x5zWOmG$az#GS!A zy_@d%78Bq~Cb(kaz}+W$;}W2P%XL3B^`aBom5Nyj!5!M7vzC$LHtf1nw540tlPhY? zLVKI6qG|1nhhJNIT1&u0t*3Z?Msi{f^yNrpNeZ?w2cvv1t>VrA&*_`Q0djHLV1Kdx zz}@$nKjg*3qUl^Dp8F!YwOUt=`<3mva`?w^`b2#yCkcp1@y~Hw&xgtgFpl91<%D6M zS63@J*3ukDsg?$g6oD?7i4L!dl7hNk0(JSnF3sT4P?w1;bU%5uL^)LKFcPnb)+LiT z(5LY2QKo!$x)_p7gN%(qGmIQ9-kJf)w9&{=IzF9?-`s-#3hmf5AD9iTws6Bo;?sm= zawF0ABMC?0Z4q}d7xtc!xNuT zmkAZU`wQA5#82mo?(F&vcqA{Wx>xeq_y{I_{bOArG||rw8{4$$cX9}Y zjx@=|m51O+6UOCQM-ton5krwSJ0vUoRg_aeJImBAN)2PYN$qD2kZO}c+L-RJ zv68!HeX5Qj{owHPvVP+i@ST!M?VN0W{@kw;r(M?Tn9Fjo!BYw^6E0QLCD9T?k?Mf- zu7Vf5x};F-pU$7+2b09z@S8m zu=LOS^#3^q(DHND_qkMaB8%cz>TTd(tYu27Sl4M|%3?`n%=9no|JT5E{Shn!qjxRo zQhhvHTQ8z4c_c4@zGYMmA>c}4hA0o7x!aw%1N01T9l^*XxE{}&z2A8D)NN(Uh_@fq z1FqhT|I1w?3Tz$ZT;awkhG$bBJ-vLSYO>FS&Z+K1Xj z>z=c(T!>sNUFfwxoBFZ7%Ru{y#D4t*#zpNe_7KWyx*&^<{ak$%Gk5plDo)PcK=*Nm zbxqcHGk%NnT*6@5k}^^A>_z-4>T3ZFVxvTuA~2#hGiFZXAzVDSfeWU*=y2MSaAt`g zio#QP!E6Y+6^_UX2DsdO_(Be-u0DY|T`BSRu85gU3=9qvI%Mda}LPipjQ;L!T$0y315+I_^R||8DP|ax;%R z22=hc7^TN20J333VnRum!;TfiTFZ2>qUF=1SGcLm%I%B=myy^_L}f<6P*j#*roKx~ z@0)BypJZm$=E02w_>gNtx+I(9Krgxyp!3w~Rc^#x2`vks+!uqBhb-ONBD&PKM_!*( zeC`31tSw=8DN{L=Aa3^|7Rr_u-pc5vhWG}1&U8gLb8+}5wjvQ@p1A~d`7nEQvb+)B zO|l2wI5t2dtd?S=;hQ^!`TC0)5aGL_4wUcA8q z&lL|_pUf>EZeXOKL)l#|`~@^bvKB+%39|fAKSkPk(vFOZV(G1|#9KR;oOzy7Iz%&* zHcA~BrKE>NP&)BsXdriOcXRepG_)BwxIR^arU;&NCUbVgW`AaSBz`Rk;=kAa(%gxL zPwersAqF#lqfc1c0p zmc!bAUlF|Dw)=)jTB<1ir(P=!YN^kjirTlER+zul34r5w-=l`ox6o(|=%M?0kSeN= z_d~J;$ASiK;};zsy|AIBD}qaSX@7z26jv0Zx0<@pbB{KmGwy9fmV#)sE}D=nfF^HJ z;#7Y1q|xY+i0Y2cRrIF^Yyn;xOlxgu6R9h@XIq!F4%}OT$lrv#N06x67r-M#uNe#Y z$ut^o#?q-A$RbB1i`jw}kTnGOF*?STu+R-RO=)6811nfZVw(^}+?p1O>F-4L=(EkC(nnYi0G8 zN7|9pj@EZ?zIKhc4TQx)S;IX>6164Q2R|blLBRw1TU!(&=IOYU3QNB%eXu9oHs>E2 z=HR2$eYbdOag&d4z}l2{A_-#zhPT^LZqI*&*!4#@SHm(zDR}KruHEUYL}j}l z=eEErYkD1EmVVcyNgZXRgBmP6n-fp0u;!4;;zG8e8$mi4%6+_^75=qO8(IyWcDKxd zS&c<37}rYrd^g2r6SItDHPs^&cd!4He~@iJ0E07IRkb4x?HK~!eke$qRMwb_v3_&aTW@DI=5&~#ENhza9J5Uc1G1N`}}%bht?D+}-1}BxZ&M^8*7#@yp<@V04pvkakxh zumk5{bx6xSw{K^;>kYK)~F94;E2WQ0P@?3I-Tur**ppK0CU>>r1P)w0)tE;ICl){Q<%RgC9CFXoo3 zASjy4<)lJIa%;E#53b$>EXllm`+uhlamTIHG`Cz@bxh4NHPRMMpmLo|iLwQE8<$2? zo&=X{HCxPbE0fX`E76jWN66Hs8j}#ikWiaMM65szg!}zE&-44e|KoojGge24R@@iY z_qxvWb227MgoN;2N1Ym~Xq#!@WymA8I0Kj=HYiO@Myd zsNOccZ6T@&5#N0wrqH|fI<3GAe96Rx8=ZW$fRp)!dyz0(gXVaCa81Q7d;)*^ya16h z-}pC3rC#>;dLDM3vKo>4bN%F{pO@#>`E=1nutQCX9yRp5@@Dwk1Sv#QD(FZ}N6z3) zEJ1}YQbSUeIv}&_$H<92-<0?B@*q7uNN5{Cq28C%xGG&Bc+cwO2~OOXY)JJZID5M=QpwHlSbV84FZ$Pj!hB2k?CQyu{LHp&83Ovlrx`Tg|2#R#;kX0))p)wn`+-i7zx&r6VP0p|gu{H3G0u*9Z z*TRNTVi)s|znhw~Zg53S2F?vX;MGE!TNmWdE2=vOv4q z4f8M9jhB`No=5wzQSsImvSIi3s#zwlmGI~K*Oghjv+)!h$OWhVrCXU$=cU7&oe{Q- zj`DUYv$n=IfdM_hy96udh*n0ZSSl!wf+MJ!B0z4tRnLKuZ}}Z6C03m})%Jr*+;k$Cz}Ny#p5I>!b+w3Bgk?=m zq|?X?4u(66jCFRbI(6loezy&L&C)*xT{pdd75*g4JPO0bXym*+GE@kVJ|s`~Ko__v zP#jb&dk5bQN4Nv$V5K(v#D#CGEFa&xFc8#v1>>;A3~6&E?(l2)E2-w{b{vVt>0}X4EVIX4J9lROCl1>?UtmtR} zkr}-Ywd^i#-_-qX*`{T0msmS4_1WYR9XRF zm2G=6z?U^B(C~6qybQ@YDuD}iH1GI$x18GAR^3+B*_bPyC~o4;J#c9ZK_rWYk;8kc z+K4))?L*Ri#57`m55KuS_9u9rT&?eEAI*6#h`!I~5Ywj1Rtt-E$#r^*vAt0K*3$7r z_I-*VQrR|bPlk@%WHf6ianuQZzF@Sx|I#zmd_E!rkyT%emiS9xRlLTz_rP0oBSy~_ z+a>*DJLZ&@3q_S9SL=#3)2`C1`G6PwZ9tNVRMgeYsvurITaTpT1fXY_IfACq-euZtr^OLSC3M&78b6oT}6e7n+q&uw}amngxuxdb!VO zEEKml1j~!-bh;NF)FV&>@gcVWfx6Zfs6x zaz1yjbdCw7tHqFP68jMf7=7RjqWeUT4J6U+8%iJ9vFB^gK895$1?o9`9*5hSH-1VF z^~p>VwFya&*5eP$2q@U$A2zsdxbD?1dLv>+Rxa zO_AlTXUkhFPkQXvuWB%jphm~1Jn-;g7dH@NXg*U6Ah7Hv<1&k=B#s}C8Z075W#>lV z+c^JBzW?8copp%UHb($=tPiVOg zFQ3};1$_Co>&fJX;n^8idJ>``-mXuSw25+g)PKTj4~)1E3t+yYoijB^AHviH!`4~ z#|o~M{UKi%y=qABEcXIyd2`WN2Ha6lkbPBsoImZ;{ zUDkjdzYfVz0s{oPk|G_*xV#jtgE&#>y$yjgK75`O{Dv8C5$1lV)>QPP?k-~D+R`g^ zWmgQek9~Z2_06DXxy!zidlKVIE2&66(BT-V=(GlDeg~|2rp~=1qE>-9C?TY3S&^&^ z4Pcdqs}C-<1IT^XplvW?gvW}$UEw?aSXYbW@yhrUGZskG&#ZpmvZV9LtR}6gbG`-# ziZg?%SD`K9k)JNPUdVlxiNa|pQMkxe=C0TV5!Xn@r44|jQ&9&nm(7IcfuIys99wp7 zv@&R>fQA0_hDm>JE#|=f z1Vl(ovH!H|ZQ2D>AYA0Q;UWT}8?&R4*Nbx|zjdIZ`#{QZ$zrq~v&l&gjwtMQL=p>xGK*@Aoq zq$teai*>qBfVkM9;CDhdrCcsr226coFunmM??X?1`qDjLaSo4g`^F)P)bSEkZi@x| zavBLcH#kxLa|4b}7?l6Cr%)Cy^r~}i1a5AG_+K4gwRh@4QEy^mw?(P5Aq^v|No?CI z;yKl*po8z+;3WYXQ-ZkP<3b0BccBQBr?x^+FNN_8tdAHRUv(7swS*0gvVV3_=k114 z?-AZFca!a9FxnxsYDhI?t89cO^6$LOt)&wp)d5`^jzXZ9{e?@&g#=IzUwy@OGvIvY zGcj0}VsA=-T%gv=)|<&G$E2!4#2U_10K^WU)~FI?ngudP)*Rzc)fhn|kfz&A(WAw= zEb$zVv{(&>;9yJ(MEO}%SbJ-t{lG}b&=6NIkxv@NWlD;wS!f{zXAn_TO{8V2&=64N zZj(~E=YQAaQw_YU>Y2E$+lPVA0tG~$t18pcuPR}$SUQi9p3|;J?n+=RJ%bHCc>f+x z9yWp^#D@(h+BAz#$AEc#Cs&>vok-DN%M~YP%t&k7RY?E3hQVwzHqLXnsCUIGoduk> zEzn)3=ih$ma^xN`Yy&GH{_*~vTJ|Mx-?d9fY@O!Xnd2!IDA?{_yuz(mI&(WSslxhM z=6tBzCr?A>BTr$=!xmPC=o!A2-O$1g22rJz2IR$B{l6Eeoc*$(->OXEmtlx_iB}QE zRHyvHBVA%EAWR?gL9(21$uRUlRwd582ItR?kfi1UDrh76pY9lpYyS6%N=lxZx^4$% zd#1ke68Ar8Xv=jduMNM_K6UK6``-t9uA8AZuA=6KW`ZyhT|@TE#TI!(dfGLc$veK7 z#2foRUOkIuGOylSt1sPu%XQcL7YCXNBnOK%_|FHn=X7SZh+NKG`q6b0^;;>%D8bfFcFfyn4Q$m*`PC*MZT|LFtVZdEh`VL64va6v`oh^5?F< z*8{)YuxkK=3hO(`k#P#rFJn25nVy^9^eWIJ z>v(_9o0p!JO#fZC-Zbs8nvS}kF~kPJu!V6#k{r!6wAlB;6R4qz!blhpSmG4IE7D;D zMb92Nm7kpm_hWL}M6-f@OzRC3V{B50wF}<((nJdw>{|L5Tz&0gP;L(tnyx7;uiEfd z`!!;&+O*!Zc1p}S#^jGa*b4WJvmxV$YRDuTr9qONR5!$aa+{k@F7I2>JrQXkHH%Tp zRiYpbbZQKww5IkXTKc@epYbdt*g~qw+<|W^7b=!b+A=;fCMr(fMFiZ}bbR}`y+*jU z|GmZe+8_(Gh`yQXLMgjPx(%d*s?VJf*KyL&Ny{A6jEd=CB+SVIe}7%g_nn&k-1KKd z)2?>yS(TirW$VKT$|3?KO~nfyB!!pGi{a;O57eHpD5;lk>8ccn)zOY|HINLFoymmz zF06f%apmLzdwvrk@ewej_&8LrdJ+&r(8#ACwoIU^Ef=xWzJ3R7fORXwQ*Eg7gDCkO z0!MXCTzzgt@SfXV@eaQ0g7&XI0S$4JGwIai%pr&kH4hF=QFAfl@IX>3Lzs-Yk!X~&VV0)tBx1K#Vj{2>mgxsX7CEF7evl6_IW zIwUR?oTqcBMJDXv11>g{#6{CLG@g6}_HW?cefdMM}{r@Wy06#GYYU|g_P(CHCq@4}szO4`WpFAZI89gWe zBQjik=t&PWQTO1v4fl-^9HZVH*X!Fl(Dnhbd3z60SM0Zi{<#)zm#*0ix9~9A6x#My zzwhmj$9AW-RUpfc9rd+-*IgRC>vaE>*R_9HUV9Z@eD&GIm%6TTbR`2)!Z*DFCsjn& zfmbNU3!e`xtFqJ&e4lap&+3Ae8ns#(2jwIXotO@`R*1yYt9R1A9)8sKUi;mJ{qy6V?W%+H7+TC%d{`$^k=J)Hqy0KxHK_OMCO#l zu&kvR%4woA2fx4)|M>g(&R3Zidt!dAG+4SiXp;^Ih}J+XQ3vOM%-W7=RBU0dZ?A8c z0JqrQXA$UL{O z`+MFe!WlA#?tcIgfayLdbI z!#mC*wrJU%zaRXIfp)dW_A}pV9DM3MJWYdEf9ab{75Uxmm0d5On-rZ3Nb4Itx78rn za5#ACcDpL1MXY(?KN3U8jogrnEUc~5e&CjlgH=6>MnVFtT4su0n#*QmknLrzr&5FN zo{KH}xO~Kswp~~dRO7Vb51%5U!=?8w$bz!niN(pj_-590=@wmyce9sl4r0ej0GmWp zL&0LABmoDG^2C#V5ilNp7?T%v(oREX8kT=>2|B8X2ivFezvVA3O_sM4(dPmW*WW$& z#pK<&9@F09APUgJ^X_7X*H}n?wUu~&h~A$XIi&$J%JHtEmdZH@bs$^O&|VSiw^?S} zIZAJeYN%mk+$Jl68Nr$=lZyf2tI)PI_5j3z#69_(18RjP04wEE0+r(e&9hGY2R96l z!BApk@?0sJB5nf9d)0RfLTL+lL1!PS1ezN8C^X8r+;Usp84N)KQsuZJX9~qkJr*F) zsQ1O~DV9Q1Sr>%>mPGGsl)K;msRYvH&ir+n8u2g%8d3?pGIJ;z-?$nsgqi4r2m)%q zE>w2Mw*3KC)Hm%mk+M$+!anmf3^{cFT6Rb8oUH<4PCUIGz6%t}pFL1J!~D1jNI{tg z^1c8j;FthU&(96E3m4sT_H!XV0W&D^wf{Ge{)nNwfH@w61p+z<`Wxs2A>hmr=E~I0 zoI&wiePKj=4kKHvc7X`o#sREUGcF6DYM>bC-dC`Nib}ZTA|NYN`c8>Pax^8d>#w~Z zWqd+Qd&_aEOvaultR(-P2%Z=PHd7&76b+=>>E$&rn($G{(Rg>x0QS4Jp`a;&6{Ew_ zS^LPV70l?8+^Yf7gfXHAomdwI6`j)jg;hXp;u!{*Qa*YIJ@sk^Nuwr5DoFp_`}l5> zHIOuiCgJ(Rhg?>!%wGXrLDtQ&VrY>TC{Jp{NQ5Fv-I<&lwO5idBP0o1swnNIqPEV* zfTDnl1UoStR-)s*CSEeY> zY3Hy)TKKdJOs9c1^(EuX>^?TeqnNrdO9RIzei@YLM(==x!N1Sc^1C~ouK!<9JS z!ZCZ&=1|wp%MU&fex6{iyJ#7|B;ZTN!joHDy*v(jz}KL6|K;mqynD~q45Hu@D8doH z0Xo;ef5)NE>hEUVG)#&=<@@1#Z9Dt)S*!~owxLVLRA{c!sL$+}j=cWm zPgcN>?1F#Xv%W4d%23)qb2Da?t5h|0NV{j7qiFQ!ZXNYA1A*B;Iu4@ga~0V_b$t!L zcC_s}4DOCB2+9LVYksv#Ln(4Jda@B6KIY7SG##rwP8ruw=lA&e(&#DDb_&#{f75fN zGEc#vwCLrr#-5FL1+b||U}(!!XzBobiXxp83m_;>AXakLsUV6)=TuxzzX{Hd*$`uTa4o3t|G&rY0-_xUK)CMaV>YZEDnQw+XL z%ARxuKr$u_A!9B_xFb6Om&{Xp(Glb7rQ#}g{sxRT(VK{#x~DDrmt0$Zy7U*Fbd2R} z{rGGB+7#kyzRA=ahRpw#kzy?5!m#|}zm z6{B)9anUH&o`lD3gETCMq>gB3GZRlE)#Q_Y+Dg*cKb#DbkH3!JW(?dH?q_$FFWlx5 zR98!kd9wd%@kZ%J;niZN8^D)Y>T3)c2Yo9F8PT#aZMU@cGtF@_GAtQ8XOtZq(OnQ! zoWf~f>QD)|)e zq;dwc}ur*3O zxT>f)uw#Z|J06ioQ6!jBkcCgiq?#HK;vfap_li4+Pf$T>b-*{QTuFJXmzgRSq?-R+ ze{%DTmrW2zOI4|HsS_;dI}-S4RxCObrC10PO8~B`3?tbzi7fuT79;+;LJT>9&>bZ+ z6<(@g{PaT4Wd=|P0D=a_mzy~RjPuc$Lh%Un!3_kO%*fM9-*rGg5&j6mfAnu)rdp=AZ8jIqaBG#e&;QUBM-drAw?{tWN11m6I(P8#OzRD^Wi@sworSn zBdST?Nzhzpg{`JQzYCtBZ}J(S8h5A?fruPZ(4<{}N3T#G9NG=BfjMYC*_pYY-#o)> zFCi9nv^O{A?LGIcE|Cg)% z+{;S0Ed1o7<+>4l&btNft5e!_0=}`#4v2MtKZ1qh%x-7lvjw7g8hI z7z*qVqA7+R*glnNS=gO)e}y=F_VNA!b0z3}EUmTP z`C!`mS{S^9R*e-{Q8lR~sbqGXaE7JJiX-B;qF@#=h{~g(K>5_-?d_*+W_qEzXR$bU z+aO9d4cIY{e=vTZVwvMibhD=z_&)P+zNv3!jw|4`BXB?wo`_8_d9?BRR&t(KM?xjO zo}a&1qyJ~qe}R7fWsn9;C&724zZPa}z~0VeA&0jQ;9xqnplz=)*a1wD$$8?2my1)% z^u@+|@w!#Z2E4pv4tBQvp|edoFb2E8&3&;DOG5!JbvgY8)Y4=Tq|pfc|m~9)m4*Mg2E4MC!N(TIFGc#3zU0;vhd+aHN3|1SvoV+sakoG=}{mH>iK-Q^c(S-L}6HD2r zGj2z|_dRi9nTj-z^J37bS(@9>-n}}bPy*#~Q+oq#Fn@FeO8%}0_qw`3s;M)*?*t0><1M$qA{k~}1 z^7BHL(;qHRX22JHa_&`}d;cMic;wZRG$D)V6u(F2=aFJJM7-XFk`-?4VFps3+s{dO;fxRX-5SP(yhQkU9WL1*<>>=r?T_a@yzauDEPt zA3HaRbFZ$sXul9;OAbtIp(ctn3?*LWa*v{3aIc}{fp1+65f+Eh=a@3igm8@pC~^Cl z(0tiTa>IiIMrf`MG}U!2N>g)LIrXri=J>-@>=3B=^DER3;&yErtG)ulqdPd#i7q%1+I@)%_IbsmdT#-1-Sh#g*hzm~2kWvbTLmC<= zuR~9^Lkog$p?K}LnjVMW6rh6sTn8x~7#IwwrO>AhgX%8e_Yu!=B?R#nZAh*dh*E>> zJTj!#ltT-45TvdEk81~$z)ondBsufxl;DlHK@3e?O{H?ALkveH-*+NY?WLvw%`O&{ zXGj3_4MTy|yo0Hk&Gn^VCd?3RKkvf-18NVx-W) z*Cv^2sYknvx>A)HHa0@3Od<72r zt4Z#Uyr_}fh;Yd|y*YC_l^dsu(IaHlJ;OyxUyO2vdd`$C%q)TDj{XA-OQP-Do(IUV5d~-R#%{4J&%Du^R(TV!(x~1um%ps zfp-tRL>A~Hj{h43Ky~js>2bOOM1Gz0$g1zvvT&{hla`a7eSA+#>t&pg!^S1y|_6RS?<(v{##YNPFIShaj>IGU;dj^Lx8ZiChL+z#*ctlH_a0n0cp3U~?eIJ1g+8;(#)ovOu77zyd_ep)vlMwH^lVU` z0qnQ?fsWdQZdja_5j;343owAwRGm2~Ra*(ZCMh#T6}bjg=bXaTUX$lDc3*~{H>hoP z*!SK7x?FqqGciZY07AAQ2)VVby;v!BFF2Ce^iU?<>tK!WmCrZY+qrPA zmIe1c>pLoXa$t)g(o*YP%*|KK4A}8^7bY)O{ZU-pm~BX-$(eu&q%E_K4wPBD6LsoN z2DUNv->kqNG1}4voj9{T0FH>-BU%1sub{LM#R$b09LJgcowK0?Vz-e&J z`%wH0d(g?~3*VISU0Af+Fl1eS*Di^P?MC}W0I%UWLzcs3C^NhMd&)!cUNTuF*4$R- ziTBv@jC7u%P4qW6SZ~m>NW0_Y*t@D)o>H7TCtgV(VzA~^UtbNexnGNAwwcd=<@k!U zM<0H_t>nNJG#?K5;I)Ye_p`Y;OoAW|i8Jb(p z&fmi23_t=*hquJfk3V(91HX=BVBeW5d!LtXVmEXdhAbsr5ygO4T!)rv(U~SvRL3$gF!q3zp=_CFj4LJal(}lCQmM$i1_E{o4?2hj$ zS^TAUJpR7m$lbdYq&pd=M+yx5N=x%fQQj6ouCtFUknWr$x2y_Wf$r?}`w1c!Qr#R6 zY@tA@QsM~|yie>PnI1W40PEQa^IqdxOVsIkd~KrFI%yxW7l?YC5eW>X03zg9#DrMd z^e+R=Swkx>1(@D=S@g!k6(NdZa$-a0Bd-w@fyRZ@XR@vVCtBPB;#tWB=SD>QtV5B$ z9ayK`&|;qS$cF8H_%%K%%*PplORMBzSrMoJw3JSe_4Y2_>SiwiH*g!cmE*Zy$Y#(( zM)=?WO{21*y{o-#v7CU*+VjH|QK76k37DdEE5Ajvqx9V}*l-upz{Qu~4*&1vELu`^ z|L&bPHt7Dd|A)95_PYbTulCsQWjx}hb9L9lTrR!pE9}JiooR-rTWPQ6)DA3GA&-Oa z*rg~~WM7}IUC6ne#pF)l!_%fgQ*@I4O{3;3H)J7*Q{k6But}Tw%{&E7A@ad3O%8Ke z5x&aUczU^HX4GcEmk~@hxUk+!Hi<}6aD34-+rJ(l`*wb7Sjd$T2fMhb>b-@kyV>`} zQ`H58=^Wc0f;>Mt1zMz|sEyR8%ZK??6~qN^nPdTZiXM?D7ptJIw^w%P&j$XhxZpNS zhgkzZy{-7eo$lLa|9)fq?V9neiq$*NyUnh|^7NY!0~Q)}awg<30!~6e+&zi6eS3O8wa8p2PMe11#X=#tC7DKg2j0eg<9ljR(fGuPW#T3n>( zN3*PM=Nff;*NB>IByD3Og#qkomqd~+3+{!1*xdvIh_);L6RZs2+g!@&+ngt)Xio4> zlk>>Y-DV;F9pG48>U3_!8(%bNoOJh`x!z6UEG0Ub?a6wA`QZEgXgeYUAPc(-Q0??E z5P+>+*2CulTBWA?S;LACVQ4|7_@MMztUDcO`f`$!XF_viJRRX?CgaRzm*uA4)3ZN$ zGc(}c{jsL!_f&5_T;Foe7Z|m_P~uZqDEE3{r(=o7AK5t&rFTDPt!+fQBFAc#5?wg) zYrv|i4bF3S2pQ@TO$`t_)16nyG|k-NL13d+)r+>Gx<1%RBVw3FXdBi^Hvt98?_Inn zNpdbE8-mV{a61P+?98<7mFMJYgt}Z?&L{&fIp|^zjZrziRHv5RR{E>BFocr0Fx1dySi;ea|E zAtu&~@#7c2AHo13jsRqmwlNU5L#$~y3#ku6aS+r&xwC(N1Xi8o#?;6lsNYx}23^(G zg9;P^78@8K*%Wr|P3(*cG?jGoQFcFArhP)7mAC`EQ-;c^}*Jyq&q@kIrHb_Uuzqxmr+6^pYvzd=@!9pXko zsFP}rr^3a=H0{Ms{gssqG7(sNvCxQgFh~7{8xfn5=NBjdavO=f0ffZMG5ad#9yUV+ z4BoDLHTN)+oKV%uDeB;bdND?Hhf!fvc9A(%F7uVdu0y40n8R^1D&*HDhF^3XXje5{ zb&}k`R|-Y@bFnnUS$J^6*~du0uDFxlv#Zy}ccoe7W77Ob_%>(r!_#Y9%-fnXW7@4o zxl`cjnbZF2HXlWZ3dA)MW-2LpT&{d4OOns&YWB;JwsFY&*e8Fj+g=H3a_w+YPmufB z1~4q`T?INbAVD7my zkAT}|`EtX5Xg@%r7vxS-94=>V?{5ncu(BFoky8*Z)F!(Sy?#UF*{ZuRcffX(r3 zRs@yrqF1j>E)sOfdrQgzb@SN%(b^BW#4R+tlIMnr?C8O~J&UjG4|+b6hQOt#AKwZRP6E zQ!^?umJ@}Y=zXqToOUh<&=fv~f0(LbXJ|&a>NNu;HP5H3Dyprf?GOi zoxzrWU$JzP88E-@(2p-lx>Q`7_O>}g%8pYLu(eV^-DU|NV4_b(2RgCIK+ee|sn zm)2N^;X=FhyO&sYSC|bKzVs?NTlK*(%L!)6lGDgLWbaiBES#BA%O^CGFZ`0w=-Hh+(%y1wGQI@R4Qh8`fQuc!Y=N zgw?hS6Z?PG4jexPJM&lX?rYnsTDv{sO-fItRef@&Cl9spN17!ZK8tNM?GlBT;yi6$ zMx$_wDMa=#O6CV%9SslM1K~EKHHPP~*;%2v2PAj1ub!b5g;?K+UgLW5S|H8w8P1bg ze*W%n`iwT~ZEMo?ssE=w_3El_2lOHjd>RmdN{8bw1+6+~$f3u^VyVfsH;u9ZqgO-E zRku_*-{6ZxqcseiZ(f8bl`q^tZ%lH^fp2adKr+C@)G&5<->u~`i&N?GPrvVjXBGPG=RBNceb@qeFHHVaPH z>uQF;5%g7%mQq!W{q`Zx-!Glx6?|F=MXk_N_SX}{2X^_&7u+D7CF-dzT}CEbj)9N_ zjUPBfYpSK+(`cHT6Ho8N$yP!^(cqj6{d9Mm#@H(P%^axwR}F|Zuc0WQtDidoc9Ova z2%*{M=Vwc$%4Gt00HDJ`7mWpMj^CDb4;kJJf*2Ay*g=vkTeT4&#Qxl5#s&)hso)!( zeL#{l$`}RXPhfagsSY-Y$t?}OSm;+s%XYKcAB_cXXmOCx*cMvYSSWyQ%|Qz*|4w+~ zr+_+I7$LidxZKV^DUb@HssK>#$4c<%3NRk{T(kM-c|a$c;t8M`LUKkxD)g69-6x>jZG(-0yPRLcUt}&__UNPzu1P(h4Tb;4Ay)A9AS6$8Z13} zX{{%_=+1$Jp6F;?V$w#IZcQVrtzw3jdK93ZwfAOFs6)1S?d|Oyj8^8%O^rIA2NC8v z+H+{)59=@>v)hxkT$`u?71o8=WV_Z z<$dEy(moUu__9EDxIJm5xm9}4EX*5 zAFZ8D*`aH}tkq&|Vy&=jcWY-Ykn%)l8l>Iep*$6l#NgJ7Wa>ZXZ|nc9x4-okg@LRb z-ROEBoO`G#I13O_zC}4q63_~Uy6C$Y_;d0tS1Q!}ssCAyIXHNX5MB2m&btNmf8PGK z&zMXWpvvX}Lz551cg zn!uTkIO{(A6vU9je{25u@8Y6Qo1SbxRCo)1;>gSFI+L?CnVtApK?H^!^LYrOYm+SP zNi!pDSuH%r9G#7oXq-t)Bb(lRkTAub^tOmjB!HJNmo0_ne4dR*w8`;wb_6|BLf~TF__z0R#kd&o z`v35xlH|VT$u=!xW;Kksy`g(W8%|*Ox?uHgFNcP_FK<1blt&+_Yy=7sCRH=Tm86~C zK2UZSNopG|3J21nfpGod{+Evbhj={cuUqN0@#EW8wL~j!@x8;%EXTcfmlPr1tohf` z)$i|%lzF3@(cJv`&4<>i$s`4;wF5Cr?Amc5_I?Y(s{{w5_nlfA6i~LU(Dm;l>;FZ{)+VocFq_{_O&euNn9e!~#} zF36@OAIyxe^Toul4LfGq=4nx_RXkZGK}1q^NMPmyU?GD0Lud_8PntoWBPLxJF8!1C z;`;M6zDe$~yMf9k;I`5d;1q=Kf$cgVvBxaS#uVh#2GoXK?I3N zvlXc1{(ncvC31GX3d77c{4-NWH0h}V8mjNvd35z)7GRDTXd_{OB(Spl#hqA_;*Ilb zfm_PZ!X>NBr8oh-ve+Ql|4?k%QKz);ffK^kU?G>Qt{bc7jYg1qnG?61G_^B^;kXG_?Mjv*WcB(hisCfT!NvD&MxjHj~9V;jP;as4Z73Xj@ z^o>oItyfAZ>5UE5x0N~5>n?b8U4xgYoOWA92GS2 zN=c)++=DdFz4tFys`-3AG)Rb2lv(6+?3e->r1`O8;{49H%KD$@v2V2@S&-qv=D*in zK6NdHRJ)#!0Rf))AbQM3ZDVRFxZEiPPy>Jq+l=J~lZH$?||1lr{EMDng zNUAi!xRA8E+?ah$29XwVRwupMtZ)Iv ztTwjp{9^50yv7_H?t&iN(dDtH{k1KFOS~FPQ3hd7y0=#Hj%^j|--!jPw6%%s%>O+4 ze?DH)H1Zf(gH$DtBw^!ogT-AUgU0#uRAWeU(9C9YIxhe;w^&z|YSfZZoeXofi({g;xMLt4hHxiUxSz5vaP{Pp zTvgk47bS%;ElHU(w`sH#nRzn%^N1ERdsf<7y=_3I3jYu#G@;GMD+khM>x)l~yR5is z^PyrEOrQ?A$F>77&R_6{7G}l`iHls(y!TUXruMu zii{C8kIS8olDOZ#sgwVFGiO78=U@&)yeFVV{o;U=l@V_aT0uzgP5*XzWnJ7h!V2;O zj3iTyyH8Ubgv9*y`=i{xEJ>BmAB1*H*ZMP}sH+CCl&ptSm1L~|CgHy1*e{#a6zOQ^ z@IWYmlghaIzHs7S!ragFwAf6pQTh9vYun5*imm^X(pAzcWjMoFakPjR zH!iyHl)U`vy;m_xErEGU@SAy=L67NdTu z%B*KZ+&$W=sP0E192Vu6XN{LSXaRNRA{!m>oWOLmZ^SY5Tu_R`ev|l=J%0sct+jA& z%Bo})nIa1psk~jwC;TkXl2oRElE!4|Om*@L_ZB6y00|yqM}Wl$tODg;8QgHqv!^!e zQS|zih>GC>Z+GHR9abswaR~89Ir4Gvqiybkp{tkMCO0&Givy>& z-ki`_np%GJsv4V}%m#)GrZ5b?HRX0($z%BWr4d2X?p=5MF0u8HOKZ=*x98yl)MDcS zbooHCX~*<~S9CAY00x5@=Wgo+3_h?vCbg+zH)N`y*suC3*W(Y~-s;=ra}995B5ajA zh@fF~F#-QRXvF+RFmIeVbON>qF?;F|&|1Q*iMofw4tLv~e^J}v9sm0#OJvPf=#>7J z&%ckEEUDH#z2@HyM{KpGu3<@RnoRnv1TUgVe0I!MQkN4^5zv7<7E)*sr1e$OT5D1z ze%_M23>zb(NkVSM5NBVCNvHI{zKO9J_T8UFA?t4~8tu$NJjTw&#HZdgFgcwSWOEly z9SzOpQl6}jHL-16?HAGQ7J4U;WRCZei8G{N{xL&j<`~ianMOJ-XkTE*YG$yIqX_Tw zZ)i*d4~fHR!BqLH3XHAnHd&dd61BJ2WGC_lyAEZ|(6EK4QV=0SCUhPT)&C+u{a{c9 z!lN!(HMgwG=;|sSTc=n>J3V)|a3m%o!@gMjJ3k7{0BPU!c&}S8q{cwcKe$L4oPg-o z-ZPsu*C$G_;GO+L0A`t7J~bOTcxNDd@jq0jeeoFxuibDawxz5rAu;1H^gaDpQT(xvWq|DBLIL9E1KbL-mkndwPbo#zS z*){4sLSKQ4?UxF)`V5P|_|kfo3jLO`B0`wL!$|xq0rf1t#2e?UG}1J#e7dk{v}2Az zQCBNc7~xXsjhb6c5fj)}u2ejjEfY{QbvyWl%+r{N94Z4sd9_gnq>MQxKS$DhAAeBs z^%00&dTw8?wa9Y=Qtf#Be?t}iyXtuVk8Zo~>`jeDaB}GpQy?JOfjV;C3w5!ywJECu zd&*i;R9B=YN*g#BdoVi1)F?Tn*?AC5Vu0d0c;3E{XaH-ul46SNH1M>-6&Be$o0eX5 z2Qu!9CCH^mPyV{UXszd>p7B+WmO;ScA5<>afb*CnJ3E{s-3tJQC%w8pxYVyiMTEs* zlw?f@LG`dUckylUoFj~M&+{yRuNoT=bx78L5Ub-kkZEXvEcj^7SqcI!3cDWLo5 ziTGqZF9%Gr2*ad1|J?uJ!%mYqhn@RM9+bT8JgXCAv5y%34`@3qW@v_K5EfNCKKB3a zdV3OE?`uMYYY{@TkY#Q-?O6%;wccpqA|yH5E`HPC`nh?ZS>JD!I~$I_xw!Sj5fg$8VUL>8(1qv}}Yc3FGnKueBWaDs$fSa^md(sty3w zq2O#np>xsUH%qS^xx%d0O#(RZRm8iF0$<(Ne?Od+(qg9M7zWB`yTmOIw?vy4&VTpb zcgEJ&18s!D36kY(GW5x%6@oHnOl6eR>4NUT$Z`UhPh1|KpVyRA(H0mrOc$L5T9*Qr zR3{UH7z6ViqSXUPZ;eJ)4PN^iDI`ywm9}-=R8uI8%^Hnq>d?HxCH~lnTerP;?@BIf z+i!;#lNDk@;wQgcRD^3nC6Z)VzJs}ZFR{Sh)pCnz$#$j{{0w{}Viu8h{MFfOmik*F zcf-!CDcGiW4TjkEpfbSB(d&vYMyXEG)QApr*)P@M^ImMT!+EkV6X5P$^u|;0G<!a9+Oq)0`;$#IasbsnKl7)u@@Dy!ZPiXcfj~7W#-Ps;e=MfDLgzU&FbFH_{KxE^#hJW8TQ8&{cbMrKkmzWh| zea$z2iU6@mg{MM#W=22wzO8|F5x&2(LN_b!4Xl>H?>7tg4^si-58B??4(uzFIZKF0ei0zG9xHqp< z0i@}R8^51p<>f^XxI?xr>*npV^H&UAhnTh#Q(SDD+LH@~(o>+-$M{)W=O{e&?9JI{ z4$l>!1v;-{uG^e<+^vm6nA-|LKk^iFRm}}G5Qr0P&QVQ!iNrY*M=DQ=WuqW7LNY`% ziU1MA%>c>=Hm_pQUH8#Szyy!V{8d9skYrRh$7afOGTc7Bb$MQyoH|2YPpIUNSNsoJ_Q9oBa7k-HUR1vt;K zySyV6W8*0IJ3!{=$uetv`1sYNr_+Q%^-@pnkB1&-e?L5L_BGeS*#qi=&vsNhdvO#Zn!rD#UoK^Y4Q!|L~ z%zlv2gby>Ye~b$ExVZ=Mk3Iz)fjXJ6Ta(6)uB7;%i;BT+bo*bot1e!+cA@!c*_h+s%xVPr_!GykORPO6 zvP|Y0uWLG*3*iR~;@ykvNbXIw-w&)A+gcj3=bB!8^riV2kd8?!CM)!yK}?&(+cYiV zH)K?#jUd%7SgtluDf5Q-hwfW0&*!`3=CN9?!@!oP%v?yanVunFXhk)^!>9L~r?I!$ zJSVltTorx==hcq_0>~sPq_xm%InfW)spInX% zV9bwaU!1IZ?$fyOBmd-I3a*qpIzy3*@&%%VsTM?8StC{k(!Ry^O z)(yl+LVKH^@K3!StArsoy+oVM{<{+RkQ?z)DiuUExA?X zu{{uZNNA?*3_E@K|1$RGaY?29|L{F!uHasoY2lJ)R+6Dv=7L&kDO#>&MwFGfTP~$3 zqu`QLrrBbeTVvveXt|{+BWCKfj7f@NN|-YvB4Uk*fpDJ7X72lYKhN`hy?(#*hp*$= z&*7ZUbzPs&dr?5?Yil?U?R7F$F7@5jcf7tpowHGUtjiX^v`|CFA!#^dTWbvq-e7gi z#f^bR@qIEYP`YCt2#KPtoQ~mo*mfXRp9h4(a4uNwdD@4bvIx!639P2;L>L%Y);<#^LPtl2+F(7z53=j%{&n$yvgJt(nT6V+ktk z+NAR02CCGAD+X%SWgXNELAOq@6?&Ff`Bgo&!^=~wXy@RC?gHvw69xK)iPKYg1VzMn z%eE+t?(&iO>C%C@pCT6}G%xID@7WT#xpb(ziHB_%4cg7QDY(OZcr1OB2Yxy%2aNcVb&kGujCg;FH2x?8#Qw0l^ZV@KsMNm9?>I zCuy}jDbRuN0xSbR#rlNS?sL%KzRW8DT!7{g@q|}I5`s+dM(f0uSx|^zi>M<>SkG=6 zl^vgyluApbs^bV=d~>A(l*cI(EEelSKb$bW9}Hxi`E-`3vAW%_yiOlE=lOh)Qs2}(+e{$iW&=2fd@qHvhu@>j+jRVM0X_!m!QZvYAdsQxVbH^ zY)Qu}(zbT|D3kNBMcQ0!#~iD!RRWdVu~r*891LR70OZni466?mx^wC9n`=GS!gO}P z6=0gcqmJ_!XKzhEIR@0_P@7X4N1?cajuBv9wrg}$*qG-TnYu`4ggQ*}lilm0iiW^o zxQRrM@b#~EQZ8=pGb!ExJZJzcx4IU@e+3;+o3UyD|Gw#G^GeAyEj_H>68J~0IS=qc zM;wCuf(+Y(G7od9Fw=z)<9K+a$rf3md)4Of#^Ek}S94J$YB+8<6a_L>|3+bF&jT4w zIt~TXk{eV_BXKHX=8QpbBFZtwcdP-(Y#{RO%g6*?3PG7FiM<$|AhbaC&%T3mntykn zbv2HuUnCh`%mk%6Ai52DdBM zLJgn@u?aRG;_;5;@Aj=^e8YnB6d0bZ*~DJI zOl5~B`aDV7xg$}vLi+ZLZO1ZNBGtGAk>2(dceaPlx#MS|8V0^|TO85-2YapKZ<`+B9XXQNEk07 z2Zh<92W(#MAig@&4R6J;BGg?T?yGIx7+pSwlb_d$8)38O0AbeY8W@9*a+V$Wb_z@C zSJ16mfMu!XO|0BJ0rF;O&RV|Vu`nW#@X6HN1}}ea68yn_@b?e;`H_zTrc19MVizPV z#|(Tnws#-j7O8pd;l7Z-C$5jYU^fUJIksnjBF`0^X$yIY7SPoUegIyI1=^b3$-U%E zg{nZ!7qz&V+d-YNi(;Z%OV%+e^;xUf$*8Skj(i35+K61s`5~94tn+!U+J_z5A#s4$ zqC_P4GAbBaWHsBVH0ztbEK2IK&yY5F^pk_hF%sYL-D_|P_~9!Usl($4K<&G|WpSbG z!$L~~=n+51r!3KG9E-M0hU(h}3H_E^u^sXnXD;g&57z=xn!4bOM9JI`l`*Fgg> zKnw-s#6^`wDM~OZ!1^)^GN`Oa_2!sezk8eoMA(Emcx3%)9gYL&N%SCJeu6lmBRq!q*}W3J+8qNy_T1T@{R=$h)$y5yQ;&$+>NcMh zSH;n$e!hVi0|o|FI+d!nN=+{|C7HrHF@WO8kOT~cL<7*9yjCDkt|IApI)wx%Rnf+R zFcU3=aX(LFyN5aMBqu|OU&+ABGpowJ_h2=&kB))lM(8LB4R*2GekJp2rAG`pL%Aqa zchy9pSj*#{2@NzUDNC{5L zVVf>~`uzvqc=M=wc086hFO@tyzvYe5BlFr5K7lF1YxkNNLUPBu+aDs*)G~VfJ z_`fmw;-4;01gV~|HV6kKEj8Ayq}$~E_RAdNB3*Y4aE(#0BFf`_BNnS(Q#8sjU9X;H zG__Ufb=Fq{fXW;)_;iM-d`)kG^q}CuXUD%@UI~fK8^}|1+55+t(!bVx(0f804sYfz z3c6(MIXuU9M4_vDNj-@SINTW+gWT;lAdUe=u#b8CXM5(Z%b_P3O4iJ-dB#vAd%ie< zOO6_`tLhSQKh-2u+itrnt!{-FRs2 zsg0S-wT$^_qOl#`i%V|>0B%o>=Qbh7geKqCPnP*jPgunZlrn&$VtHvXX>qQQORmxq z(XZ|ijM#RdJCeGOAc@jzrY?`t)#%Ap9Qnn={J1VfC~h9g73XXj3!8DRDhpO61{>?r z>ca8UpDf(lYF8WtfQTM2`iZsjep>`VrUFfE#127QD~|F$`n`0J6@};0=KRZU21(U> z09Z>WekAdr5|DzFMw&TdgBXb3hPDY-I28Y-ljN z34a}^K9a?}YZfvV)+Kg{3Ax0|R4QFn@?9atD+VjwWl$LKG@JmGJ?JsJKnvOvYP#r; zUFj?Kg=mkHl%T&hazk?$qs3f}36U(<0!x#)Br@MOZ*1NuUNHxO{=Q(vf-Hp=?`f@$ zOT>&8A>>Wt3X}+60e%H~{}ZsMFoNldVPU_ z4OSGq9dF%I$+sortcmJ{U4BR+%x6OpP9B}9^I1{P8$ke& z&lzLeAj90}mRWvY%?vODpy78V9aSx?$GDUTlM+5^so0NS)mp%YL~Q<*?;m}px4{cQ z3>-o}{)D(NB7gJ;D>=Z}1&IQ1M{6zA8?%$G)WK*T-K*@X4k{}w*d5c9Dpw%$g{uXU zHJ+$>sUJ$G798ro5~JVyc%b9*{RG)VKcUAwOcYT%zPeTa$o|r|SdlRc=S}()K-;!D zeT!80D~P)<=d{o5GVXHQ28ONH>+6|65_i3qQ{0DmJ%9FI#*dXhHXpXNT?5;laQwi; z0nboVfl`C}nxfYaoluHl*Vou~6DvPu|J=KD{_U@|YD^h0ezAah8N{vV^TE4m5yUO zcr?Z^Q#8z5x%{dnIH5&)EvbL&!Xlf0Enez3h`R9G-ao~DshjGZF6}mJQle|5xzn!{ z8#(r*TbupjyyvA0T~GU$ERv~_rBMz5{|sHHuZpHS$9W{NcZqLL$r+@>ObrH%(6-3* zN4I6pdAb@DvRFV`l+odeVdZI6!0z`5Er0E4&N)RJl%CsLE0rZR)slK-$2_+si&WFf zp#XulU6WhIZHa2i+S}r<+D6>d_>sgvIN9nwgu-pM=m|zGSU( zidBb?0?z2|Et~W-jE)D~2R43}j%5Uf_14u6M^=f1IQv&gUU-|c_vf{e9}^}wx5zwM z*z!^$x*slBPVP!4o||9NPEO&m^#cNZ9Xh%Db~EU4jZrkx1i@oR1BHw`pw!bC^)g|H zpWn;Iq2q}HnU&LIo=7^A6lTr)>xU9D_C0~TzM*yUTOr~74b^@cG;`+wJ{5wz0LF5o zuQZHizmXZ)zBiZ-8CJ8Ql^lvfez2cg1&=4?wr5ICIYUzVyd+vT&Q)dEOfQHvj{Q{A zZqS**WNyMx8| zZ+Dl8NPq6_2X$00F#{4T{#7CV(-{(+lq?Eqyqc}Dm0MM^bcj3B20;SBN$JUWf~*V= zVQMlWQ=te^1^cTzuQlnp=& zxNmDZ=4n!dqtHWbe{y7wPeMJ1dM%b!E#nl= zt5*C^$>mkd!Is0nB09cC<-JWidf7jSXw)>=ae@UKaE$OgxL^I^=TX`OfGozK__epB{?L^#b-WpR-0@{5eAN=J&9_`&~Su?_LXQ4lgGytMr@lQ zXTs&C_r;ZQ3yyPlcU>#ybdHvcw{kQLh3!5~rm~VR_f@Nr-5Yo7bv}xEmjF4YEfKw# z0qjVGRIO(RrlFuAv8N(s-IRlv2Q>80%(5Akd^@~?Ogzy-W6!rR>XMt=m}02uH;YlG zP|#3M03>r44OO#&as!NZd9d}ZLq8DZB7DwFFY4yU9ou3^A}ZzkmObhhg%k2Z%Pr~K zQ*k9JrXyCO0nZ;u=YLffxyYfm=$LIK+=W1_CdO>LM{$q`(-}aT26Y- zD8&nav^yHQxBA&`x)_0;VowRi#UPa_PWfoP;*GQa9N^tm&X*r(aM?0Rq;&;}8ZSkC*r4c! zAMDb)5p}(<94;OX#2qBk*)e*4CqkbbIEcD?U*G8t}1H&X@DlO%cySH!O3(nws?qP}UedmCCIwWg!|W1)!K5h{Zd zD@)jB>fh0pq5K~<`oFwaFuM;PdrR;?EjMI>`rkpT=aAxx)8MFe^Xln3POZ+o~ zQm+7roSNO&_8ARa_f*6m8u%#z%q+;rT{L5%@_yr}pi95woj&wVUyzcs$URL9hp1yN zDgX%#7D0(pXc-p+Enr{F3x8*JV0p~)$&IHMnge35oF0*tv5TR;^($+#!%a9$)Vf{NJJGUOT+~1l5Bt{9ckgoJXE5oZ8GNX%r;pt78<30 zA+$a}1f85uYQFoMyIpCq-AOD@I8j=%YgXdF^c!|oDy^yPbzkBEXEWyB)7;2J!UIZ! z)UeBqMuai19>@<}MEVh(ls)5#`4o$8CnaX4UqlxL@`joP*L+}Q?XpiT8u zBk?-{HSLetM$$C$V z%m?c@yUO{2r-#QgYZx%#iif1*t+l)>P$hMqyRs6@sx$#H7`3IZucav%2<13eJt{&^ z)C4M8`j;$e8IkC-y+-;rp+F?dG!$9rUFZu&j=+lUL%|B#b= zUxwUyOP`9ab}|q$My#6Oz6`lSGS;*0q)FH%vx=@r7j*_%q$=oUEK(<&JLeM&q7tkd zIYSJ!M+r>n!F>#>;;kove>GXSGrM^$9I6s9%^amLmzS4U5S*Yd!0uKWQ#{`SQN>iE z$zS?>&>}BgQ*QE!_qP0jhagh-z}A+({#@^N3w8emYD?LC8Bmp5s8gGQ#yXql^{iS_ zAFQ9%TI}(^+a4=l^AYsefo1}o8scW??By9O5yh0wR@;}b5);S0%c9H2TPSssnN(>o z4Kv!Q-0TG^+b&c34H%u259Wit_alKx^lKn@5Rto6J!a53QFShNpsgUw^rmLcwg{V$ z24Effdw%y3z4qrO`3BH#y<(`~+TCZd1)2K!XOM%X*MGs~yAB6bX_c1=!=v%jfDzz@ zDX5%5@NF0M*$G8a9Z6TbfKBOmhi9`sHIa(|m~dHf`NRQ5B$u?vRUql@!zK!Hv%buv zmi6OB6#%sgaqCeMc3UnKd~O~h&zVB62g!A90R_rZ3^{ z-5*j7Ksidcf4W&!$!aRFG*lyOoZh)r*MZF_Q|^A7i0MTTS?f|dzVp3HTtEMG5` zRtpKB$4d~z5VnhNGpnQ97P!ekgoYvje2GOZXfa&|30@N*>7x@1gw&_utVP$Di9NFG z=Y`C7`m_`&HD#vwhv%~n0?^Ds6IgIEP;;rdu~{f}z-FYI3!rwxuC~@YyVijs2i9v( zYS#jd>j0hD3JC_FSpn$KLY_LoQDCG3`MYwuY^CQ%I`P43(!fM26)33HsRh}c;GG_V zM0T;jR)#Pv5bz@`#9ONEg~QB_Q*Y|=P#NTF(b95Sb;K5E*~@-=5(u0cPiSU;bosD$ zn^;obs^hN{7)Gg`U^R|1TbFeFb!A;kG#Q{*-0ck-)eRmGuVcVdM@NWm)|yAfN%6w& z`R)-U5u?iw@RTRQKyple$1a;86u_3f>@(3iJ5^XoS4AXU^hyXaSYE0lSVp_1?*Jm9STJi1fd&B0^P}-T~?lZ++VmL(RZJcV3g%m zfihU-Cz1<8UU4tUgKWO0oS|rWg@kks)G_k?=@%m4+=2S|fZNB=zN(U5i!^QInH-{H z@3u?mBQZp|#Zg^=lr9PnEBdeT@v0>2-~X1&*lu4z2ccF%l}MOb0jagE z<`OX$8-JRJnJpnPjsZoy|7Aj;Mq9RiU%v3eztrL9qe3pnT{@48T%C(P8wN-1MIaHY zGY1bM;1<4DW6mQiym1%LgMU2Fhv0Ee(N_>bU=t+5dJht@Z@(oX7_9QfT{<5Xhp@J> z1S^h%1;@`{j*h={?)+s0IF7~PXs~j1#`8GBdjG!f+gNzIBlaOz4|E(XcLK}z|1)n1 z=579-_W|46{IlF=b^ATvm%}Z5zz#P5-e`4))yoD4^7+2UKWFgyzRQ2ste(UA->YMY>0V`?W!!{yr~QZQ*?>`kc@CIB??@-Y$m`7T>pULRk2o zzY+)T|N9Y~!99X!a2bI@{d0}Zm!f0-_s4ZSIt~|i9&83*-Syv3es#aqCm)1>qyD~5 z)Zcdq5B|?KR{w0X`n3MDaCPHM6JG5XSluP29eba!I;^d_|M zU#GA9cv|P@V*|gyGG4*gwaXouzkSw9;g}1obzdRGd-D3})Rt?@FEZ@+_8~uq$0PTX z3Vrbbl0sjz>0RExCqJ=z92a=Jrqg9VD%R%@?$3Y zDcg&0EUh)J9CF+4cJ0q*o1n)X^z*mZq5{wOk5vb#0oQtFoZ_tme-#j-{DtO~MU0m7 z{jm{dmrmuz=$#*ky}|y|X0};R6ui)+`bKbIBjVZdU4#5(?UhR-b*WKVPqHWJoo#G` z;Z7rGyu$2^-KQs)1}4*gAKLstb^ezd{T6{X!^|_! zsa@Y}zSi(O2TX-Y3-6pC&RY9y;kYQuhQdGago9UYesR2>|HDk`wAVRA?%7}D6O2L^ z=idHu$k}OIa@48z(-rNh-7Qsd`;0R;k9vsvspNK{;xiczk|l=2l+oA$ByaWE%&0l|AoGM)CgJf@YSowf(ONg zrC}AHZvXab{lKer>Sz9S`(c|Ce{X2~QJH}Y}#Gj4(9$3G}5rhQ>7YRPn zf5OgxzF=o(cVFMbxGVpB#BhrMda0H7Qs!omq3ciH>=CFkhK znCPh0IJ^g8;T#LWV|LZ9K{mcwJe#!W1^XiXxaRE*i8`mQD8202T ztE83dG$C4b6^t(Z=y4|dzni6%)?Sq(O2^jMTc@GV-D4ZAIowhWLBCs;OKUvt>*@Z} zR{i%L|G)W_)@9!Dh>Dpx-?y(0rxZA&#}V(gdfdy{!xgBiFADgBfbD1(RjbCJUkxLw z7b%DAyEEU5d#8UZoS&kJE?H-g<3ci4RF4}~M=xbHG^hjIFpwsdTZVQLuUg#w)fqQ+ z+>I!%4VOCbl(lT%Jv^PT!{GkxMwcv@p>s1vujHBSr7tDR8h($Z(=dZ-gIEuRgL2yI z4yyUt+MHuNvsnQmmJIwUi*5m%4!c#Pcv${K&l&@at5}qn4*E##0DOWEe;jcWs{Ez_ zYWtBT9z#y2)W7H%#(Ix(IJSu#lDM*b@c8@At`ro5ff?_fa`?7i_trs264KdEg*)=Z z#wa7wwB@*S<3QuP?Kp90DOS6LAncYgB}Vy<&cHT8-y|Kkc4?G>Rcb`wOemFc96Cb)~l_jjM!;PPL39aO*KDYZkE!OfvXL9^{KntNpONPth7 znqlTOpR=Wk*UTEvAb?iDP!?d80p~nr-XrH{8wOhca3e+uE4Ky(h?7qWgSU5l%?*na*Dg( zYz?`V2b*t2=QwX{vN@balq-Unyd>5tSL7?4=~=62=)Hwb;%H{o)=n19N+f6NsA9I1 zLR-ndm9#VA_QbAgm%xM~(ZrL7PBCZNonoqyrL|q$A&)KE1=Eu~^0O5RA(Ik8)I7hI z=FI$)4z)oti16HE>SvckpYXA2Ec8vOJT^SM?oljIbC3CE+vZ(@V2j%tJ3f2*`Ti1` zd&+?&rqjN80po`hS$Aye0#NSeiU}+FPvHFkQ2et_JkECT)@kOslOCpC!lA{L_Gns% zXG5JR0}FD*4atyL$O}oaW%?Phgd>5W1+A_)`FEyq6W9@l%#B}~^ZIEN9!Okv9iTxg z_pnPq)j6YXwu>vlZlsiT$wpd&+7r~1!m91;nS%K}k2nh*VmA9KDo@aD>JuZN388Lo zGM+H_%V|-^vm%yifv3GNb)1mpw2B5^$lJhd?nFG4!hja- z=4o)-!0@FF);fM;)#ZJN6m(N?B(OukP-C2a|E4!6 zI7*OLz65BEG4z*X+ZgMcl-5%5QGcG3zp$Y@Enaf^n^ibf{DvZhnjr}zIB4%l(aEi? zt-VSIJW!pDL?QyYJ3c3{P9fL8nk;5nSu`WGe|y_Iq-`BK5i{^`g}419#U*%j_tJ(vMTn zi|ya6Jrpst#7df|2FGPAHy4V$`tonyC?4J6u&v8IG{>=TPdAP3}!@2TckA zo(o+Cgg$C3fSfXz7;NDb6jO$GfHQF!FywumoqE2$KBUd)189k#$Lb(y#DSYq+k48i z78EE>%J;cOniR$);mhfvs~I6DLnDG8F>rp~?7E^&kGkjD&Xb^AU{X@;T@*vVps!eD zj=kmtm!sp548IxcLt8V`>RnvUKTStcjv6-hl-pT>pJrR=yUfEgA>fX8oq3_Y_`zFi zTS9H%3@9L!iW#f7WO(l$Z2K+lO|e&agE`z;IdiC2*gB4Q+3#qe_nZ7hGLY-}rl4=@-lAfA>t0V)Lj6s-gpvm2=$xie zD@d+rw(Po`hbHNBxaD-k>?L(1MwjFzUsHd++TFCM zhbZQcjFTZ!*@}76<5!kn@42!u3HvxbfD#3rGEEc{=1*$gK!lY=MhStls68#Xw%)W` zZ_aqMSjk=>>u?t>7O$iu(#k^8)QAc_y9KoIpFqYm9+JGC&sKj2^CS~e*kdOrYi7H| z-IayEDgro|ecOD6JaNv1oe1e-{YKV4jUAB)IctAfCzVw80E;H{yX_G z3s+}O9=}I<76*l%3#@QmTLQ=HpJk3K3xsC3b%111{$4qL50;r}o;i+W={II)7 z*f9o8|1v0#afyATrAPRZ(5p=33!?-s6u=0lP`RSpkH3~May!IJ9U>Y;^FySoHVi(4-B=VklLwrNLIN_C#xSzE)mm5rQGogEN%I_u773o&U?Hmf zMk?@;hPtVY8R?6d1)`TE<-_`qc}tkhMjhM6&>RJvf|wvBuOII+$3pX;vCJOA^ovnG zZSW!+L)IAJxxQhE2mAZ*zrwqiAD#7+6k?}%c2~7dCvZZR<`RIAsM)qn?tDzp% zJxcG78L_w)J;^Q5qBsM{-O-*}cczTv;zyZ*DOJ5Hq#@i51a9p)G?|kz z6sC?_m9IO0Kp=dA6F+9pmJ~+;U|Aj3dan*|QbgL)ujdN@Ah9iIJ8Dl}UQthR zfl_I?lTm63Bpe3rdbgktKs|eup0M7}Rs|j%Vce>s3)_QMh$_z1@FOdGTu|hMT-59&~MHh=MTiH7ax_bXtwRMwzW8Ktq~=p%9vfLds3FoD2=p^}>o8@0K%+NJAl%v#VQ~ zCjs;u(1Om+E}sH&q|3--(DXV@VnMp3zPO{Dm~zEpuvkkB>DS=RHf_?tl`MB$dZQT9 z>8a52^*4{~i{~1PBwROxCo!O~Jb{hjmPpqThQ`{MNqa_SpwN z-I>0UJ+%{nK*!x3et*=rUG;+Hsp~y&)*VzKIdhDfb-$$W)L=OW4b5p{xYKNL>Uw#J zfkK4#&GARE=a+)p0nimou~Vq_f|;J!{)v+@VmnXu3O<21GW7Tk1IPvX;*QFUh0rAbJGAL~8cA0KF$Dq)sO)RldS_~0-9xe3O%rS*NF9DVBTaC{ zCJ{VQKvS+0)T+QwzTX@;YA|L@L9%=tOMCxD%m(5_pm&jdGg>BC90eZ-z^3+7ct8Rk zXx+YuDU%uS;3Ursv>x$F21n{Z#P+lQ_LO;Ys5LJ?go5r;JkZoRdr&P`G>wGf?IFt zU2zsU=G&{ACEpS+Unfq&Kf1PBsdCj-rDVBRiO~7ihjj{GY8|Zz0?54IAa)*m2DKe5N$z zD38MX!B+Fz^2Ch0)dwgIKehh!Z1P7}$!PW7y1kb3C**GHoSJJk$k%S01x8hI!NPz5 zsNt_Ke;o+jgvg$$Q_tP>Dg(HascOl=`0|la9e!PQ3cYU+oIgM&Qt0k`*xl}7QbJOtCl4ze5xQ`yLoUxe zw3BrMQNaPgPE1i|L8UBhdz1d#Hf5H>mny{mk8oHBo63tR!kYJF~=pVu~h{ zMh_v=iZsd*z;5D`3=pzm+5464rkjQ$tA^tNw65wdlydS~B5j%zN9$5Zpt!rel{3n| zX7EK#UdvZ484Cx<=sp0feW}%0TU0JU^YG;G5Exc`^5Ygx za0A4HhQo?dUP}D@XpnTNsK($B|1|^=RC8ZHe*QswjgCd@c8e-vYmv*j%#UVzs3X>G zY^Yio9v*Bf=90z@hndvTdMzaFS$MMEo zyM4SkUG7jTvaApWc1qny1>b2PW&KTn!?A6Fj99dmylI6E02t>uQ$kL35rj{epM)xx zq2~_?Ko;+vUh*ikRL8*u^C%DxJMJJgQS}@*RCRjkcI_bwvnQ4LDu>Hz^4&86xIt(d z?4e!^7T6>@Ncl_v7Yr69MP03JrG>^U<9sAnqKEfpsgI|Gu#W_!u*&Fih|W4(nK9bZsr9y!d zbdKow`L&|yHdO{q$*1QTShx9#n?9b${MY9sLf;IGXUw73*wM0%RH{^jNs`?~Zt8EtgFjR&!%4=7O$UBmIwGToP;A%3CT%y4IM z8A`Wr+#CXtC_8ruqdD>W_2`TyNLD74P-SDmk*9XxTkDaa1uv(ono$#opf#0aczmup zHPC++w5gRP8vR(82KZ+>t%a|(HQ_=7ExMt5WEft_0xhqeuTzdvM&NM-&);?9j?i16 zRRt!ie9WI60kVQpM_Ib`H3Ppjvb3hn&L$|>e>iJ{7P^1EUO;0JJoVRKoIq?g?9Mai zI8a7i3*x64Ogf7krr8P)L^k5K4_R+lk91aE#h0Jf1MmW+M;fxK)Na?Var+hl6r9DH z^Txn)&i))8##*Xa>#6xLm*nCS&$ZwQxHR@S;!YUx9L#@s!b-WZ$NNmxk6`8DVeU?3 zn|{?poxn3$x&|n?f;t0F;-fg_?+ZVr)mUG0WQJZcss?PJvFaJqvFK3L)UQVrT>@+I zE(rQ!uZPLTx@|wW&*%4~-#di6m9HS<k zaP8?4a+4Dh=dA3Ir){YiucBzn`ZZE6LHkmo%g<){&EB2vL#JAQI+o}CCMPjaz)xw9 zah#b0GPFS|a#{;SIGd~1o0UINk90oOvf*Wdb+A~ev+pWilX|)7897dI-_e>&_s#^_ z#-__(p$Yw>WClaY0B8{1JWoBM$&-wC?`TQY%tzQ}sdY5oPb5DHzAb03dP-5w`HNA0 zs55-lyL4VK)?M3r#3k>D`qSj@ht^!q3X3o8!5b88eccB0q){$qvj|-pDgs zIF%!3svNG~-h)I-siC&-40`21XpGCvlv=xPr9pYIao&g1-tLtHuTLj{ur@rNJi7P1 z92|f*nz^=0RWe$Qyh^clJ6S%$2lp^n{l04U!M=1gMKp`TY91{c>~yK1bTaTAr}DT# zvf1$lsN{F~D?`5efTONE(S~Ngvh6*;9)tTRX|^qHDN4Bh-ZUec!%?9zk|FH2cmBWr zNd6@~=90QIT8*gm(P6oH@vxm{0+3(m-I-&W)>vBHz>gPqj_gfa7dd~M2AV?xfo)=W zVE11yfH{1{+BWY(46nDdJtW~!=We}H8{h}~=!DU_iW7at?;_7Nai!%Fi( z*WdD+;6Gf_A@|C+e|ihc+)<<$sy_DS)?Q_j^Kzz^Fc3Fp8WI@U+2)sA$;O|=io4FX zVf&{MR~SPf?b{ZhAV?B)3h&RCLl#BPi)B1hn5FqN)l}PS=UtYnZdeI-HM8plq+)av zhodj;(6|XL6l7IJ1V^t@(-(Dd@`YaKyp+f^_`+PS-W|Jk&+-zJ+fij4LN_Bv0$&GU z0v5Op4!4>0wkw7QmkB_7QS5cPbtsaR6k5&fl3p}$kDIw?e?-?$vK-E39INHI z?=F!7*B=!D5RlBCAJ+?**{SiZ_4c=n_^ilXJSr74Asvp4RxVB-h7WdYDRCTv)u!eh zPK6k%Kzz`B;iQV7ebCIV^{ixQcgMADfu|eF0G?gw84bo1=}>aYND5^pUi=txaWsX1 zlMPv1Rdgxfo3~KNY+*h*ph6&gbZ*D5Yu>F31ajKLH`MEF_w<*Q8te(EAYbvi8I7e* zbFeZuI+c)=WZf1H1k;cZPcr&P*+fh8pVTYd#`I_4I>WiF&3wF3D5{ z>h!b?vT&LIdMsR4K@c&aZdx<6P%^oZ$$z{wW~iOmwFhXJUspZ=LnKt`nW!U+&XkZ~ zK$3^32%^)h3PeqrEvl_#5kweQ>^xf_=GEfKp)qt;8zsFz0(l#*(9{=2@2+`tC?a>g z{9`9r#gh+rS&tAh&=E-lba|?1nGjw!5%1|2HOhcg!nOP4RLzx|+{q(WEg)9GsufrJ zm&x&RQi6!es;vd8;7?_=C}3idObr`D_f-`FWLQhGduCn2A<`yH5g3(ebj3anXF<@_ z#aVtNVJyfQGZxmb4Y>CJq>t}o;RQ-09X}Hr1fcS1A;Bn(n@|fMPJ*I3?M^vhbU{~G zzIe0lnTKe;9G~hrSxelOcBD6Q%FytOR2l_bG5s3rk*!*RfCvOI3=DTpFHnayleklXvFcVqPSwrrp*&~2G0983^W3@w}${KcJ~J*CvZ<*I@zx-__O$Gy5hJM z@b<4xzv9sJ_YFHPM9hEi*;sN%Q6%TNAwiwijp!iHWw3(-3IDXr?d zDr4kW0!Kl_CO|Vca@!pT*Y4=u4^)2F;MO{QDnwiiF|y(U3OXhDs@G&`F=6=HjRD6~ z@68r|cQlw%D#$6s93n(f120}v<4u*BjoIzi`5kO;p<@P z=;!M-lZe~w+pR4*!vgwgrE1(^el)70`} zl0G+MB>8d6NiHEBO5)A`)m)kF_~RSJp#ugh=yU~w2xroz88^`Al1-0}q#(o{EEcd< z><30;Nzxrlmy?elzX-%Q7qaNUQN&3h6=YqahsQij$uLu#9bp6_G%*QFOBGjlT}xrj zWZd|)pJODqwYGQSl%<=|wLD1HD&W@Qm-hGv!!MnTEK4PU~PIfIoV$wn?4rhe}_pn6>n>2Te)wYm+ zhB5D!XfnI~;2k-jO?NxDbA6Vl!(thaDl3}-kgnS_iNtHf&PfDp9r+^!LRokHejAvj zt>J{$a|B?x2YvR69d_OVaB0xz3DCLrf|41di!)7joym0>648*1PHiWQcCtDMyq6lL zb$-FXNZEK7^t=LK$LsE6`5BFEEIgT8k1Qg6V&wMhF03A_RLcv|Lza+q)jos1HC5K` z$@qG*Hhi|b4%h*6MdI*)aUbhmcgay1T04HE6Xt`?NvR?#ODyrfg9tS z-LrC*b-Iy$%ndcg0^u)%O>Q2Xf|1Q0-W*?teVhq2JtcL~KqD_HWz5Ty-a!W1bgLtN zqT}ae4}0BJ)u#uU8lOP`ns%r$r@b$83;Em(5gye1d~u{qD21p|UCo8%j=kDCwPAt> z^pKeKDA@DWZY6^0WxF+rz`tD3knT4pgd6<#-Guo&6~XS)NN}0i}1A> zpdoQN6irUOFB^4j3oqCt;wR{4WC3t*ED4zTO!!gZYcVhl9THF=ai`}0zVzFXEV$1! zBEsZhM7Xw!yiQe3y;bCCW{aXr{Crz0O~!6`NPKt_UZvH-w^CYKj~W7E?}u7u?;!71 zaI1PUa*-}tu4=7X7~LhJa?l=pdFx8-YKsQH1Yad)H^!glX)nda@4As?qOsx+DLjogA%}e^o_(+20&rj~coHSZs z+gE<9$UFX{A(1!zMf%4hsc&mqK=|>o6G$)Ny~dx>V?*y-G=HO>z-vBrNA;FmH+46= zur7Zb)JnE?Br#c``^N@XkarW?qDKo!_t7kB%HwK>=s<4k{Zv|cw9KLWLd4AA>z;j3 z%TvW$w_%wsoHv&e|-k6ch{)bQfpEj6xJg3?B!trJ=KRDCw(g z#HU~Ny$L^4>(L%CD22W)4Qy3rZ8nWQiGvAC8{#btcEpnNdTCCxK`imqybVYF4c zfny9zZ3=PTmQd20NknsJ0cx3c6#Bj51=1|$&))szmw)-w8;?>0oGtoZ0=4yb?tr{Ubi}I-n95X9Y3Evz6^8O-V@&wCORD%M>akGLvuKsi6-xp=ApYFS(yEfq)U*MvP6^_ z>$`)wHDrH&^wz#m!q-y{K;xAnuB{ICX%W7erQJ1l$=A+)m$w(RLljU7{c;*$2N$fDBpCXTJ3=An;7|q%w|Tx{FALcD@}Dji0y| zLja0tV_~e?SXDpVS`rbtz=^x)%mbb6R)k5c7oMU_jQFN5MJjjgS9IJhlfO68(- zuK?cmn5Wef^YTHbY7ekcuHn8G%t+(Cwn$2^a=-eJO?euLfv!`kTnITfhhR3((~Zv> z8rs(zjJapt246jJ5hE!z@#~<#P)l!+6(I^$U1BtCLyQp_1(eL&iH%OKt01 zIFDk7v)uN1%$?vfemyg~LsyN*Qll<%Sb}@iV_6p-t*@Ukdmoaf_|$-8tn925ozp8J z;|RVrlO2@Agto-gM*1u3QFry2YLtFD>9DO!R%r3l#*!=UIrngm5sG`CJhHTZXr2D* zM(3L((iZh7V##Yon)3T6@CUnH<2K!lP!Hd|F|30VX~k3_EDGrx#EC5o4tHVNoxy1S z%nP+S=^a8l9&`# zMl*9NGevE1KrP2KCCf^jZ8?;tECq+GEVIEJa>yYy#Y)sPB{54^lS+tTN~pC&M9f4A zgnNHo>$jfgdEfo+eLU~6kNw9!_WcK;!HuBz_rC7yI?vB}ps|$-u3mx%j9{(+tN{|4 z$|zw!#>i08_Q+(gg`Ldqvw+7j1myDrn@8bk!eC4`F&N{PwgC7+)jAFB{%L?^UU*My zSjrrhxkdFfM4aEQ_Zee!(Khtvb3LIoCgOcsy|+e&XKwh`7r|og##v1ji!OLiXeQ^$ zewdY636Q?*6h|!wa9I%_^KOKYvm0P`Y&+v_E`*Sbcy1GkPhIH@x>i?eo>B1j#k+zp zPE&_qx>?9Jtn`r!N$#0PogZ{l{fNTYm94^L9?SifY`(tMRvSk>$KQLl;&yc*vvRVG z?UZyhwA-YrVP+FNj)Z3NxGvwxhk7W~o{Fkw7i8-9l=}#B0b(S6K zWTgr9Fh2-B&Q(U@9D-oE#H}W7W@_-H!%`Bn8^TmB4>5dWLGEm)+|My!+Wxp}bxoWe zYF26I&siDCR$_W3VadTZ5oPsTxR9nv8Xpuo0YGNd5YdT;mh4t4ff9W}C@QWyeX2W} z7(1PNTHLj)oayG-$R)QqecI{7WbK3plOIK6W$hzZf@!eq!lq%cAd zDUb`2L1(KYsI6=pAO?XClKQj3fJA@AfBiLWHrLr`O_INDTkr#A|@Q;H^^R zv8#a&j>;99^HD1KSU^5*s7r>I_DyH}UUP91ct^|Fp_s~-#`?RZs>yB21|1=?x5PCS z!TUzmU`w~dZN9uZ@3~@eOTl^W7EIW>rC)GYtK!l2&Dry=9ESr7V8_8s6 z@7pbBtdvqmHwwF39^>RB<+{RwNp+cYhao2Zwg^8A+jrHtIR245-akclw99yR^Qxs_Y;@=Xy)vJCI6RX1T9N5CB*&ny|N3)ur?fI3`lTL_*&F zJVjY${-fhl&D^=e#|%!DNhD~Lrz`ym^L;zj(Gm5&pQPbgsG}yewwjeyc{-O>l!=catVOD$$0gqCp9>ep z5Fa8K`}LM}W78n0Nqg}$=Llxp4~!&NF_Jw^CkH)`v7y^_+)=VG6?Jpw$l15ET4wV* zOx2>PC@z8U*q1T7 zj&0$hn|p|mYkl3gE|tg}6C8$>YD-`pNzum34dVp4FOANXb&(=DNT?t>s|`I1ZPQs4h5L7*NE8z?0rzdjkUNcN^^P8suR{y+;N97 z9L>s_pj3N|T|jw|Vn-K8sG6^NMRIV^$|Lq--oz(3Ppz#%!v$4(=R%ZLK;}aF=->W# zzlFAKSpQVfvRxXmQbS})dhS&D#S?OhdnL*-qV9rxFwXMVH{5Jn*lxf--UNS_9Wm^~+CQE=`h-yz6HMxOX2P~FQ zGCc)=+D2N4y^W#1R{9G9qzzblu3g$l2^;L1ICa|(LK0CND&grhOPSE^GMO!;mfnD= zOf+sf4}qI(D}H&HF@r~14xZA#v)@Ft`e7bA$KExO%f~f~{pFM^hFaf0Hqtmsg8*H*R>y`BV?;5{Srb zNK!_q@RAEP{1dYq`lL6G10z!CX+XH}3<{0@OW%O5g`bPmz(fwTk-O|`v+p;i09?(O zZ{CIiGjDiRai2>IJ`%S8G-uXSHz+zdaRni-?lV@qwNHR_j108^6Ag`VN7mx12`w&C zD-_NbL%g)ui^3(zt%g8XCKvApDX4667%1CBLhlXpAOFeV%c907daF}eb+JU*9CdL zA3^_cOYUmh5%`O2*ms>>5cFl}WP4iZ1P_WRqoYl`=&3ajHHgy#ok-_%iG0)=X(b7; zF8L7p!9hjE8>aSu?enjj8EH_it`@~ZGtxj(usV9}!8t`;J)eu~AKc23JLJ&tdO$Tx zE90oh;UV;E{q$FhW;lBwq%7BLOaB)4|Nq$}wO7yb zZ==$hN8o?UBxU)Jk?VicB=y(x);@V)lCu2U*=6~+tLZ;YQkHAJuC>RQo0(huhY{qj zNB?8U_`h>W{q^+!*(LSde>`UV5Ijxc3uY+jjKi(|uG|WRq|ciV%Gu=l&h-E8aCCc# zW$f4fydOEjM$>1uZ_0w3zy9l>s-6^Y-*4aE-uu+}?vrh5TNP%EUa~qr(LXUky~loQ zmGd;YZ;boNHo2`{fH$j}ramQDKb@y^LY#xdF`bPcVn=H2%A-Za&n8=9t#&E&wQGOp zAfLZEvghixoS+2a*F$l%V(ldVg6gK}tJ*Nh`KeR%9b-j(ucv~&M{SS&h>w+$7cp_B<_(3;0#JImfBEx;p%mM$elM zHn%LF8h#OTx#u5TvQgn}h#5X@bCmXp$vD^(wYH%@r_sYVbN0my>e#LtUAZ!IdGE=- zug7_1h6^ta28$)zW-u2T-iG9j9J5Pe_TFKey*Q?$Eol&cWIQ`#=7n%mdW-sO-Yv12 zpVDq8UEG%Pyr9lvHn;bW4!=jM*su@ijP4+h)z%kH{1+Sg_+6Xd|4RXJ0->to7Mj+F zP&=SYUQxXMFd*c!P`*0-$%@6{xdf_|XoLJCrH|*_!w#j!{qX&8X}>%IVt#6pGcm6tskX*qwz$I-lDxJ6esNeX?Pn0}0)C zHVV~u$j*)C6Rif5zo@21*tmP!rUl=JS)<-J#3VU?<|ku%Ud+6++>%!A$b6!#nf2*< zp0@AB&Fip}t zP5Q3x>hknRqpI!R&dH7vml%f*=Glo$?KW20ch5_{eYd#Mqf1B1T{6%SANLgONJ|W= z(m9gJIJR=g(Ny!5VRZK}>ht;Ihi@L(?`Xd8vdaF-c<R?p^UYww^h0r!nWJU%=t;aU`Yi4}jDsgCisc|LM(Im?8Oa9dtRWYNgD$937 zN@7cYj@38Zc=610K)p#fwdKiXde1qXzJ{Aq0S{Dar%Do^yCh#r@w&C);9ir1g||0w zo;#V%5T2+!I*4yfoW8l#lKWcm zJoe1f^=}8KBltE3rwO;F*;g+<*#7v241#qbW6#MPq6zJo?TEZfKy~ZRlzSsTMuWZ^ zhsmn9%D^=ywOf4-Ty!!WdT{O7$Qh?SuglL=8QH&!9>f~%ZQWvNye|@27T{;MdGFb~ zU%$+vMMt^^1I>=HkgX>D!u^9y9q%|FO5UkSU`M_BRCQytWuI$y|7sHG#JjGaenaxw zE^nzMMo4(r`!0EYQ>JCv^ESG@Prt8eS42rTEBxuHth|G?zH8<^YNT^tzg8p#w488N zY+H9}Ja8)J}F}!Y(p01C&^GdTj?ZP9e zUTz&TY1Bh&;ht-6K!*cm!YD-lYiY&zu>O^-}J!mIAb{8ZD2j2_NJKbvoHBQQj%jj zs0>f%rbgW5X6w)?ev@(AnXKE=v!`#FYt}xg=bKD8%GB@V>wS8Y6yz7x^x&LK#L#{- zH_Y|-r*HXbq}>nbQfq|NWZr*_{L<=x5ednEqW{Qy+3`$R8%FbT?{NMpo!(Gex%5Qo zE#4u7tn1{|U-T@SZ2Gj;dEi~i;Xgc+j80U3ZLNJ^ZYlnNW&T>#B?SS@8t-nFIFw1| z-=dYrn0o37nA2Q2s=eY9t8{}6XMd0RPECN~uA<_`5rJA6HbJKjc9oAG4a45a8*mBK zd^q4ZKx7o2uWlOMSeK88lt{Rc*net|s;O^OYv8Z5j|+Yrc6}jBt%48{C;xSoS~_dVkmH z3rnTv?l!vB-wZmU%rJLRJ{bJ-BJ$SdSz6UQ%k7&>o41B3JYRAzd-&46u2@s`dAlM zjtSZSXB(&GKc?*eVk!Nr;P`J<5`R0v|EoRn$mRblOKJUowUkClzWQJMEdSN#{ol8g z?geJ>f1ASp-?fzP*=qy*_5V*TrGM|`zkX(V2H~Yrj@l~DnE$*W0Qc@ZcI)f?!r6JU zYGSeF=$#gSj25AV!)rYHD?<9tB8S2FM}P1?JZtTXH~*S|Rv!HG?bVV|#vapSQN|m{ z=2}|wQSfSUUJR8K))AflOeF<*KI)j#<c(;K#Z_$m<*rA?vegXPY(BSVFkwOSvc;olO-}_kY!Y@PyF~C~jlM9{<$^A*K3tbNt{EIlS+mhb|_4Yig zlCKxiWFP|)21!q8z&HJYQvkvj0ac_sQcIug6u3o!IL07ffh#+`J9aE&jtM0a#)FPq zDND3CFmO!)p?bw}3}$ds&CgmZb-f#5KIY@%^0G?evSy?{R0|f7*L`{SQjC6-V_snx z!Tk|ZLb`>NB5Ne)2nHCpVV$x~(h1&GvwOm^;zMTM0Y}&77mA9y|NPGW{&y(`cIG@* z->}uIVC=Cm;2o8{c>nWiM(Gv<^-nt+QlIo(Ej|?TM`QB>FA%6-usbE6ysn=_fat|E zxZdaZ;R7PJq{0F@6(LFI{HC|}kK*^E-Z?<<%TL6hFwl1zl8wQ0=87QGD`R+;5aY{E zr9*Rfd&|Vc0Y&6Sk<%~u)of$Ow^+$yY3ElpZ?nyvHm5Y`c6T9@!%Q870lArMIm?T@OlasEa6qVo_z(TqfD_$Mo-o^;WX=lbGog4mQK(8M6_XB7qJXl z^!fyBwJwgfnLWH^&?zitczgEY7~~faCF-n|rSnKBMz>8F$G(DOn^pQ_6B~w>HRaN| zq?BYZCha0c-&IGnmKADSuoHCdt4VcMjDt`4d>qZWvg-}ObY8j2ug@?S=>9sNgehKk zuB`Ge%nP*Lv9n`j_ApDAHS5&(YJxgNMeTD54^Tvq|5w7 zt-?Xye%hcCGx?Tu&g(WH;ptZQ$S; z+}ub_W92oKW$^Le4!CWfy>5TW;;`yChulPfxFr7I#~JRlLpdL+nIm=z_@d=@zUYaD zcaK+EnxBSK>)}|yQ|nfI4dIWx$_0zdubqiRNHhu@KT9+!@BYM2%iSQp*)unV)9t%~ zX)lW2)l`A~MuniWs;s6KD01O!i9N6$6>t*UBX@O21Ar}gbZ!EJ;*9fyQ#iy0Zfegm zuy`;7lZb6O6X77CIKB>0e?%)E0%KB!Y$23s+mrnZqC3#9MEZ!R8xp0CBLB$PeAtWB zi>u7KCMmluNeRp()q)8GLTi_ckl=}mPMqQf`v%$b&T(7sUJ>%3w6u{PdY!6@dc{lQ zOnHl`B9fe0fB%U%($U8t1MiwdQHW*}jpm^iV?S?Ni00QcHTAjJc6HeZy(v9E-Zq*` zfJW`O-r2vB1^)wviGOS3!wK?lZ5t0dij+{2x5|w2dsQ6ely^;16J4hj?^2uHC!^Ao z1&t-Vp0{{pT-?A&$IJ2Btj*n(GpgamAe}$e`LnGyvz? zpe642?~8H-97)i|BqQ@qP4xge6LDy54!X8Y8OU-oEi2yJ9C{)r;q@oNOBrjl&Vq3> z&pnS7=8tNnL;`XepHbTsnAG0fh{22gnn0{kdKRm{9zU3diVM3IdQmK=pi=L=i9DKKsDL*{Hpfkbf{(4tC7udh4 zo@9u}?F)hY*Fr*g-$mO4lZqpGz^?~24ZccHcXWao9Nz{a4bmmT^$^9d3tG9baQ#KS z4yPA53r{9Q!?Rf2N|@PwHI8&Kv+faA2S|VRyadjxo9p0vyk0Nqu;GJk z8c!{sf7d;Cug!b81383AtHUh|4`jw1Ni>;n*!wcmir9GNhbXhpsMiov>Ie16Z#* zgq@vL<^^PQG6(DwBq?ZIz`A#22TIu~_1p#T$7Yb2DdAb!my;C^lFBIb2y&~A06j8t z0eXF1z>QT^x!=eUm0=Qjb-_-)#>_fVYp3gIHNCy2;{NssW-CabM;Lf|tt`dQ_=Au$ zX;*b*!AX$+K(Tif0Ka1{pap;+I7)n9^Yqc#!@LQ63t@`H?Pf(b8CNw-VHDPOULS&?o~gxxM;6K04x((@BUULJ}> zL84WlJxCUch{7z9iymgP(_%wgCVL6DRa5glSI)(?5YK^P>hv^{}tD5thxLrfQh$ZAYww>1ZD&S-PFd= zVnGud)CqwoXx2nXv17Sv>*|^b>=rk0U$WHVA;7_OHA#rO#Ihzyp&gv|2 z$sQ8T7N?ydv*}#HZ%)GKfz)5KKSXNj(CBLsSJqn#5V%jntYo(VIEZndTWDhiv6Vm& z=`=<+HPvJRGe>wzC#$KPHO<@OK^$oRVbLy9+&x*6)D42$&=}$L+DJ7sqD0DSi!t`p z1DH+qrcEkXM8#CqST$v@{D~x>4Q?xx3y4gg>yC_DQ9mw!$?PFeLpRd|p~*sYyZuBO zb?FuKiQAY?WyO(d32kj%5iKK8dP81~6UJB%1$Vvad@C!Pq4?VSjq&}~G0kIs6bp9D zSR`|$KFWd}wUc#e|IQUG6~8i)ixroxR$V74YoPUhzs2G+kBtD7K%!?R3!Oqp4WVXb zb{0$ttkgmVPJZ7tpt>nhcQ;W-^wz@TWtFjcdAaelI=zey+ge7lZ<*a(!M|KvR{!1( zg^VbF+bQA2kbuAON=5)60f=O-?L>oOuMKO^8E%Hf$n;6m`_Ms1YnR$mYna6*aBi!f z1s{pp5u4m=FtA*Mn>>?wAU|_58+NM2nhe%OsCf)JCd*k2(9IZ_M7FozT#1O&_s{a4 zo9)LkW7eVz4xc2+PQoo=X1<=;YJBsqd1vRp_?Lx&x%ndM-2Kj^oAIb$z749`hgD4c zHc}Cb^L}I%riqr56f;Yro}dU1-+f|BOYwz0`LIKV0EX#nej`lX`&q_sr^>D=j)ltn zhPb8S=Pb`*`)M529j|g~o&4BtE@`Ig{?ygYBlEYzMqvofLFwYiH&;Nn2AmkL(;EbMGbf!GIGhSs^>>s??l z&6r`#gx(J=thDCGu)Aih$w?HBK%4{9e(2fdNo{FNiEXa`wf($ja#(zlN7jV$fSLQf zL4~jYgM$U3wM$MdC$TvS3!Qb#90F(H75!Vb6A%!LOeUYJ#9|ZtnAr+qJu~@-sjSJQGa<;t1?Cgrwi5Ath1l$9D-6A zqoN!L{qy>&{>Kzm&RXs$(#8~M%|!h>A<_2~==Jvjx(@J(AT4F^^d*oSlqkeZg#9k$ z-v~{|bC7B2WTXp9Nc=(+K{IpEu|O(5>;?PC=Sor?53sfI)zG)4Oi?GlBAJgDZB$f* z_=Y+yjuxNGf>1n6T_RN94fSxlc4uxUe#(cS%u94kwT_TD;sK!uzjUEg4Bhp9BXXgW z4y6W?F)#tlo57 z#^V!CFs-Py=oL*#6?h67r^~|NA$n5zC1=E~ZMb0x7;{aM2Vfymz{O);s)wdU6h|m~ zXqjQZkOR=sAa4*kd7p@;Ls0jY|2$gZxmUYjX7z+X42vr@YX?yes4j5Q5;N>0-J$U9SI_Y!gQI@PGm{?oP=i|=1xb+Fk*2%K!*Rl)WhDosy!TsAuRgB}S{ zEQZ4O5VDi%6@3>gAv#syemMiwd3vF)V*}W2;a3VC5sfh0-z#)=2^K!u2fGBQ^*q-T z1b-_msDFOo*p9tBLngY|j02pSX$r=(Gq$emQOr=-iLS<=uCWm4ny4!%L_LTt!E>$> zada^}{%f6n%kFk2@9xVkD3VJR-Ngt^`cZVhech>}-TofX^&pIR<<03mY6sqa%G`G^ zJMr4grP)HCQL2E<_C~SNLbsTeF)L;DaR#ymN@2RN<2UpNsueG3*nAKxkxw){ZJ|hC4F`^u;5LWgm*$9Lm%? zmsz@3!SRx3?|t*%b26|2W^wtrjG6QM?mfg58;OXFap#;tqP&LIQR^o=_U|uZ7f9+K zuBGHWvbY&Z4jD({w2jqdXuWh=H%=4%(qgDN(?IL$d9!b!(s9`*b6)wZSAiRd$8RyJ zOuVfWoa(XI7js`369|GX@5c5;OJKuqS-}i;FI;|Ud!A8y`QThxCK6Zw&^J0wBw8`U zE@EX)w#3VB@mW^)D&Gj-;}Dl|Usm2&+*#*ld|z}miOw4fA`g;6ZDAHVJ@AXx9@@0N zBez?zU9D{M##+^KqIG`-nQq+GKHn5qklyv#fcKN$8#T5c% z>QD^hK+8^8pX9N^!Xzfo{tOwqjy`k$py*@`Hz5HDOw|hS!ZYdhXh6JAPpov~tNb zK?Yj&AMl{kS&&-i1YKwiAqkXlfCta+3&uc*8s;3UZlSw&MU~9lUvgz(`L3u(CKEG& zAPI>v-F%2uqgxBm09**qYc5f(tIH;-zOrbwuOo3t-&ce-2z+=xG;g_l@Va5*YT5C9 z?L1@M;nM_2bjZU?87P0jRq-gbYmbcR6#@rX9P&gA-Dx4|LD~lBrRj~3Obl!B5AC1U zKHpIb%Uqes_O&APlU?Gdz(bY4*qw%<694ofa7U>e;VwK!@HPYn&zaXHO#et}DsfAW zXpaV0-QTDzQ8%yozUqNd^$;ZLCUx}&hPr`>4-P(>1sR`SIUKxKS19bEA6eloi-`1( z?T7bRa1ZDi|YqA!kQ)ohA zS|>qg{wr_gE)xQVHB19l)YD$$g(@yRwgu2KoFp! zQyKU~DlHJgi2fA%Cq91%cEoi~O{N2)gDZEkKiZ|+9@(!jS#iN zvK5quwGG9!osF_zC1B1Txz318Q>^vOYw^M0KBIM(K5U7NLt&@ua}c!$b+`n6#K=N- zB$5yv7}2ndm3r(R0`mzq%jkctj_7x`vTP}iiUJJYKIx3Ct^jb!PId%~^*O9@>yndHh_sb8CL?MQ*vF4u`_bRm zT8;m8gZ}{!(fgRYciZJJ9wdnnWA9p5vb)~Eq$Z{=48dcPa3$QA;KcCP=CsvuBm9hw zkKTtlkKcOUqjGN@pYisD}X9#=kxX4KujzzbOp;j~>Kqmjat6Vl8z(qzmuPD!MTm)PKv5f5 zm*Q{ycB5wC0K7<}Qdd6w@b8&%b(sc=;@?7)rVd+c>?Pg%WGPa$Z|a7c0z>!fP3(dJ zJy|&77VN@a#(Ieh*RFoi|56i>{rfXLIL^T4ZD08suJ0RcthV=qI6BavO1VJmn0lhH z2{SpTiJ--znf=SvHaE$MqHNqvxhoTneV8S7a1R zNMrZQOjn(r&&xhk0PeHZtbU-ns1RlgS7;&It22@Z5AkW_dfjxm#SX)Pmmp$`$*O0iC}z&B)ptHnsicG^%w!rX{35Sd1KbDfrKY`47; z&9FOBwCuqhN?ul8*1p+RShdkSHs(mOw5z^Sj`8xu*M5sbLW1wIEw}Rf_gRdSPBtZ# zp4)BdW1ZbiVKQqx=)5zeVB=B7p%qy zf2W2_2T)}FJ?=&y79K_+nY(_IFJ=kPCm!AQBv9n;ZQ`3gL&)SUOF{H%4s=`3gL&!Z z1}e2fIMqp9Rt=;W(IFrc<)v4K=L;_t(M8>b!}JsPj4&f!-KhehU36MRSqC1hW%N}V z1{w;9N6mt|bzu`UthEc08NAFD6e^8}-$)SsJeufB<j7-|M3L?dmQix z86GNQvAoC>qaYC}^<49Zko4dW$5~zW+l0rtd{NIimV6g#Qos$`M+0?pAZkL$x6a`n zD2KWY2j(!}RN!_N>}*v@Iq%S{0Lxa!BTGWmu9b}>g_fMix+u$zg$ZxBrz6Sf_y26H z85Kk)6k1%mlDfyWp^VvdubIq2E#JBO(Zthe9VmB?MfpC4=|vq&Qt#WO^3upRTg56f z_;hrtA0>(B7HvF2T>(*Qb-|kpM<#-RhcsD+@=F9Y?Rv0}*klqh5`&FQASL?DYD#4E zAA(yQ(9e`qUDHj5pUeOl2X&w6K{FSXONWZ(WsP$dNy!qbVBH|qZq#Jh`jG(- zMPpM_RYjEO>EQILe-=su^Zv|zhm~RGOW+3x`)=`NkQV9{D&fT}jl+VNiBQY=ynQPN zb$!@d(2ag7#>xqrG3-lvOk(rjJ1{g2d<-}`8i{ohzUw8tD?o$P;*SJ53o@dB2thQ~ z-z`<}SbZ=AG4mr~Ld}Xr^`IfRZOU+&=qD=Ui|!)PSt-bo;Qij3i41(tT$O=gB3cu^JhLE+8VB!1XU5Gy- zWbs$(dHCwaH(SEO4J1L{wR?uRqD_Wa!G+5>_@;fEHwoN?7#W(vad>L;y`t=sxmr1T zd5^GK2pim#&cFpDToU4E?hV}DjbUDY<}R9gs2fPcsf%l#H4Hgapu1T^9_4yB$M2D` zHhPlo*@zT1PO>ea3C3dp*m88sJ$^&)yrQ@>NRE)SQX<(K=xO}Wzh`su)&`4n8uc?s zC0yhobhuIMMVqLtTh<7k>#Dpq`68@kH@oyD6(YuK>${k>%2)v^5vF-5zX`xwwj=48l0CNZJLrNBjU>FFaEMdE-M}L&Saf1>-(XX^;6ED>o3Ib~7@=mM%}+ z{H6`kSPsWm=^LL z0Hqgx>!|vCf2W~t@Cqf1$E{qz^L6$GSi_*mk!fQ=!=^mNxDtUX9c@KDL-4nz|z zdbw$0qOM}rWQH-Ykf~6tQtDLYd9pfgCMSJ6GzZZaI;STe%&~qhC^_1bgKZ(&_%%RK z5ZSXqoG2;bet8`lXwa=U+lh06CD}w0cia;+@1W^0SIl)oafpiwmg~nj`ZJ z-d=(VTy-2Rhtlyg+~n1w5)woQq1bW6fiK%Qz4pXjIn2_HUB17}R8zSO-Es`{+>iL{ zB~dgME9_RJi%2eb5e^8b_*xy%$tR->19EVXh+6&Y z3b;gDKAcLVDAFO|>=l;t)4L9IGojB=GY=)ahiC1A2Bq*o#%|hE5(9h)!d>)+tTX^L zqG+KObQ2peydXQ8QI*^spLiH0kK}2ZWV-#ZBdIn=wSVM_W zYJ_lw#+|`H<8_^K5+9@dA6J~jo`O3pgS6|bdO%u!1@T(T3`ApxTHbJswgvTT=yvJ8 z4ZeP)v7jJ7s&q+BL=(v>VQAgrJGhOB_TM8puBGJi_poF{Ix&CY%qDqS_wfJ!x z8kD{T`DIx!3k?;F5M;Fb(xNTq_f^xR=(QyYuPP;8+Dto)O-nWE{#E?lHS}`!l>mtn zTO7}3+;;S%p=+f|6G#%u+t!JhgeHJ64G;aB2^v};xPm8}yKiw|a-gV~a3O^3MV4Db zOB`G;|Id1Dcxvt5)LK+G`sRy=Heqao35mn&LUEKt>MD5Xq3huPWDRf$DCnr7rabi1 zH@lOHAs;bZ}*9>WSR8c_}TB02@mp=c_TjPhhmVUg{9^0KN&6_6Y;8db$q2B8F z%d4|G$0M%dtcN!hNTvp>C`!^$6GJ|_+uZN4Z`KSs4ED9D+6Q@6M%%k|HsnZO{&T^0 zh{g6PVo=Env}Wy??>-qF0cQ@T7j|7oqAwM_Isk!&)ueLTXA?|=Fa{zxZyj_mRXmBC zl7%}zk(zPB9{5nu^4pZ+I%$dUmFPDu99z%+}N<-QX)50AePbj3qcR$mex#@IE4J$hWJXC$uIrMrN!aop&dQtIG- z^K&`!#U`qS*$V@YolCds&la}!8IlYs>~?OBSFD_!U{p6RSZ~~`GbQ@&MrHDnQ@t(6 zL~4A3k2b0Je9NlH#QFYg;U}$tt=8E{@tB!Ob#TXZ+@OE2P0W0rtpGFE)x%mW0eq%`qmwj*eagU42b@d+nCTp zeu9uM6r_^V2!llQa-}sB6Pf&I&V=nPw+%(3g-kbK@_QJu*RT6=9lg(IBW`du|7s6iMKjj4L}(FDqa zS_RNksUK)Ny5%L@*r=qxcej1P8axitFRc+RkOQce~oUQpN zDD5rvc%leoJl#b-f80n;vxgRe5zn62tW4}0hJ+hdK0qwF15+YO6gTo5+goVAhx>Gn zeFAz`44MaT@bmetx1)h$m(<)-8>wa1m{jCPiEHajjzn9v5%A-(+ap6QL&#lHG*()} zD(ZVO^Ek5`<1xbhaBosWY%St-Km)jq&N_TjTAODZ9y)YyleuNM(RaT_m43ak+HIy| z562n-V+gE04w)b`F`_ZbqD>Q}jU#l$wKZ=fc~Pjah{hFZ<}L_>=G9ejJ%%ib0k*KM zj3jG`JX9QR!RUe)RkN)urrq`CthRcCt8sK7GV7FT7ScOdUNdm51H$xe5Sn~aWv7!7 z3xYN*p`o?1n$1I|MpT4bOjfl+Tu_h>0fU|KGxHq4F--&98wBpH-2`slxUDYE zeODL)B;-f}RHKF}iO-ka7Ev4t+L%eiUa_Bf$iI7}Esmft!;xfvNF(=#0shp(ElA7O z5poFI(i24lJy=CW&6i+FdFcZd7AI1CxLFZWLJgJ1|7%g>3lcqq>20?g@uxDwZC&5f z9l8m*;U$~hm+C({2e}Gyq+HPMSldL%UQg$-!5db|@9WTFjsSKi5wN{D z{wi9swrm>&p?uUG)%8MQ*eyyL6?GZ!axA4!dNX8ST1bj(RJ;?bNII;c7k3VOA3mhM zNBShp6u$T&%SPqJyY;2( zBY32hG7^+`a$@4Ldhf&}LI-~DCBZZ*ay1+V5O=|jax)6^;^1}g7g?lx*bVCxaz5CILKpE`D9_X6dN~Nv{-DYqwdm1sUD&p)6h1?e zui#Hx=H$T7W;p7<-~5~Y7TLFZTS8-(Q`f_*^Bl6^~Wu5z_o9A!OOx;LM zaNQ)eUM{;n%Ov{Fd9OagF-G>`1dp+_Pbx{JH+})7lKiku%)sN!Xlowq(qW$C@;{-^QDmf&vLFJ5BpeI$47LuT*i+`ld#EdKQVCsBttDZv7ltlwA<2>ChR}NB z+1Sw9g8fmqXAxDQ7Kt)G<*UhkQiq6imgYlG29=jiOoNyT6w1PFx=v36MRX(8pV?Yc zK_%BDl7;(Aw+URj7Z`DO*pB>$vAIS(Q}{k(dtSrb*1VB4JWpscsTu6Q3^{%8=vG+% zDU83~!wkA+J<7HR>;6(=7$KT|-Xhi$D(DErafmBW4+IHT?3amMgCuC!2E~Vt$(r;w z(0DZ3QjBy=E~m;LT(S$lbk>%OV8O%ctZ^u5?Fd;k^(Upk<1OHL4i z_&FwqgG?1*evlhED2NArdJl;>O}o0moSlaVp83jZK21dNMZ~&u_zx%SMzxO%i3I2e zZ&kN$VuGi@PUZ3<$K4u}xx~cuC-zNE$L^vcA@1BMc`le-A*1xi3$EGWZAP*l06|FNR5P`&YwWp0f?ROHGE*L88+`q zUTAfn)VS>C(xgY4?#BSxxX)){K{L>G%q6iqiAn*>zcJ{kHdc>*PHrow=_s`lS3X=y zx=pU3p*nxn5YSd?wVLQ^X8Wn4mW;z8vZc+H{Bateyl3yxzL5EA6kDlTOYkaJTFElZ1|E)5msEsq7&~HDQKF)Z z`2N>w{6F2u)=RI4pM6A-9JciNXuOu|ZH7Ie?4j;SP}KbQLrciW%w>D>~oB!$oB zrKSeW8Ezt2bH_N8npX!nlccv1@6ww8Qz;{8awLJs3KGmG3~ zIrYjk@@?sFOz%Dp&>lf+?j^{i3%pnr%d)V;)R$H!6=7? zU^YZHvj7#Dxs(=wc)+v z@okD`nLi{D_ogi1LzmaB2qg;!B?|`Teo!=CW}Ur9IjczC^W;F1Mu}mcet8-gSvR4d z?3@Tp?zs_eiQqA8ebkZuh_?33Oxaz$csU!axE$h$LtK%8vY4}7j#7xGoa}e7pvzQ- zdWCD{3|&7mRt3{AcG4>u?9aT}X(DS@Hf-DC@QxR5=h9#JwxeoEOJjTJokJe#VF=ph z{RUp7lY^nA57XK)gd|l9b-&U3l{eY~LX&tsNvsau=8fGGmkJ7Z6`EM9Q90 zbIPPNJrUd7X#pGaGXWl*1pwgIn|U|0FMn0)J~DM#o&n3X&c1shy&bhO1oa3}KHQ;& zV$qGoQKHa0Sa<+GaZ%-x352r?g4#VO`;guHkQG>V!lv%skl-W*mF zg|zL`uBHnugHD+4-zS8~LUix}A>PxE=4W%2HTT~c36zC z_LL9T^W)SgTQ&64Wz6zh48$sexLnucj$-LN;RkMa7nN%fNEvA#;R~VUI$nwpAC$}w zwV+r~3G>75DHWCANWp_)8YG+);wNd7ZJjL8atxJ0G(EEK6tvv^#2oz~dRF}TT^e6> zmcX|4AQL>JM4g>NK0mMyNHTcr8d1CK?3RR5K-t$q*J6RjbFPi%*LEY}PVbf#fuCld zOsH=(R%%>AnLs9VXDdf-r;b1qc=;yV9NMZ~+5swvUWZm{?=GCJGAKJ%JA|}gNmYzx z%Ydwt#})Cd@F+)^#Z(DQuiv=7|AcRy3N8MqyM^xO$aosa_uV9y>Q=K@i0%xy5QtB@ zf2Xamq3*L;IT}PQ^FlETq%4^R{~-B(i()xzX@*y{v)$B0O@w9&ZVV5&c`C0ma9Td` zARGXWrbVi%BLhN>)q{|JqXs*g)|nxy5_&ayXXw=-{eE(GeeqzooU#1oUuVY?eGjRLkXxY<-++`{Q>wnnHvt&VeiQNEG zcX($(^`NBwdr61zb1-`pyw|yl1u`+mFGjU<=X<*%qC6M{ahRad9#LSpge|y7TFR zZH7x5Th7A}nwi?-K1y17&JX3i&R*@+J~CqS?oi#q3FWKGQZsB2H$I=grEJ&+=egy^ zV%Tc=QGLd|xlNSPW}rE$AQ@bDH{bo&Q0bZ?jc1}YQJZ>mHOBx=I zz-huyW{2y42^M>k=h@1AZqksJ8R*gqPpL!LRwXA#z>}kgZGeciYA8qc)?SnI$K^kE z<;donC#l5hpC%(M4O2Q(8#mM?N2p5BQpVF>&pn2iBCKx;rZI4_d{WJH8hCnI87RApQda{l3;z$U-UgoOwf_VE-6aj9NeYo66sJ-lCrOL)kfHKW#9FD$ zv+_{HPRvNL=zl5{#HYo>`cbvkBd>X>P>UH_|d?)!fI|Nrl+*EZSH z%f98}^2~nzw23BaJ{An8FG-KF!>l9}0sSqt9wyCL4fYPQJWtP;%k z>Em6`gYzOqGqdT2sQ4+0$gcfFb*Ax@%acZfgW5v~!)0AN=cE@l#X4E40LN8HT);v6 z=sb;BPj1Wh2Ds-NGdRJf*J1;M*ZP?RedThwe#(rD2s$KH2LB5XXq|jUvltPn|CQSqqv5P{!kM zfGKeOK`v08+^}8`?h=(`aLu8v_u1PfL9!xw){O@iOS^q(-$M8jHmur2qD1v5Zx`If z)8so%r9WMGcFxJ&z<}mh_~)hxrhKw!*ThtZdrAi&sHh@vix%c719u6A(tEdP)4!+6 zDBn$IxHtxQL!1rGalO9S*WH!l#(|N_I$$HPn2NQEAY#;uR&ijq_u&s zUG|Yr*G{rhN-NTlmIPi(W4l>TgRno`21RThW<^Iew(~MaLNy}Oc)TZoy1R?>MkVUi z2n?ZX-mlM&stCli6veC`j19WflD+ylw4IEJId;q+p6b0Jcai}%VxsH?n5lvk)|@Hv zhB`61Wtfw~Aw%2^#;eDMhQ*8H1lQ@Io!HPlEbUAq*y~!g$JpN&wkg9X$=8x+O#JgQ zhxHJS_S*T{M zjzF)puXdG9^{9v$LjyU@j}RPkPnrQ04AGDMqKumC$Hpt|C)Q%@7ts^{ZNL9>ZDH+H zcn#6^>*KuRxB3y=byoG(404R@dhAVdY*@&GC4`y*_ia1K&{=Kv#RRv78Qjy@vjFS! ze+XqT`8R4$L4zIU*1zmofXfyA_!TEPEFl|y3=Uyd)DZ!xYBf7#(ay*J8lpHkpps@Z zjP60ue>*uyUgZH6A1$?LRX>#DjM!i6`#QhpI_CP3jxD<1&N^SJB)ga2+i=Jyuhp=R zP-T9zvhvm{kikm%NZL29pwu%^$FrRuu$IeGRl<3u9F+dz)D*r~w!V{jy>7Nw(WwH& zkpNnpkRFFD+-!Q*A|?9|^HED`2r-W@@95mar}I0h^!T4Hj46OJhR8Hk(dhUMnN03X zhm6>D@|u;s%@!&5i)lBAmgAHTUBp;oGnA%$Kh>}iqGEq~se7LBM6GNx9UaPKhF9)LokrOYCd`>8bDr7d4F%h4UNo@QDqnTg@RH}JU1mL5=mpF!L#Mir z-yhj5t+K%AYCN;nt6i~ov1943*H??zu{VCg?uPz~i4g~Rn+=ZF<;JlPMM7TPXev@) z95z+j+(k0Q!6bpzb6o$&f#jB%VS_z`*@*2C73vCH5gD7TchyV zfO!v7tuZ8H7xROVq3WSiclWYOR#}|)++`h^dw;HbZcB)?erM)7K2z>cYN+Nx`2E{D3;_Npl6{|RJ0WMmrG+(`eEc@TSyOM2&7~LOaB{Xdg9y#n?@bL6g|s+Z3MJ?< zX1>UetuZ#}TNF()ncOYGwDXcsG20GCIzJ3{pJ83tMfU!7)V+2{GVv%xgGlGEmEgWk zFrSxjQn-G2{1NG3zf{|Gh#3C)pwLx(;FpdJr7dYx=~yP*5#q}$i-_|V9G1$J5dtEm zo7vP{m5u8QW zB(fI$)Bq7S6)I-D2vTl;+fjp+mEUF9;ud+pt|nWlNa}=K0!gUfv#$-I+SYPi1#VRJ zH<1i{PSI^C9dCDmc2?p1MmYgak_oP#xBY$(U{ZNR)8}2~I3Qrc#o))&qsFDf{KY~r z0BMZk;IRlefay9{B2)nGK*96&K^%W*vo#8ziJ*M};CC7nP3(YFwb#z~B+7X1z4K>i zsyXo^u5#?~nYT(?_ zHElHP^31Yi)q9|N3jDA?SNuVdV5>UhP*9^JGJ%YrraTsN*Z}h&ASRGxe0GHdlDK?F z?saN-M5e4EuMF7K0*S3jf}BuRDx-1~G6t5*mG!NRE+LJFQ`9iQIaL>z_g?kR*0&YnXq-_-Bz!QEN9`jif~87HdMFFaAAU?AXAuUm>O(p((wUzp#sXo&1cOQHA*fVzn^S#H*F})fj=wP|$rSZZlszwcrh+vcT0$ZNC z(gVaxwV05(6>*U5V?E#9)DRmI>5L7D>eZayihp4B?7!W#`{W5Y!!ASExo4Do%x>d2 z_}K~Hu1XO*w`8{ouIIcKIDBid+Gmnv5b7(ZQ-a#(TmRE58(3`r&#k|&R_f{MLPY*j zR#v3p6ZJI%4}bS^`te?+^hF0copIyvz5E+_S2o+Dg`sHgBYPVS$($9Me)|!{`13g^cyCV+jK_>GlK~W-d!7Jt2BrBJe-KeR%Wg6 z+{w(?rm+~7@?}e--1KXI|JNG6wYE%NCTfH`RyhFU&Gx%D?j(1Y$;9Ju$&kswwO}I} zv~~>y^-Ng^`sr^E)5>bi{&2Q_GuO_dh@B7MaLOF6guT~b56jq&Wb|O$&X~j^LGj^Y z!4|VfFN|^Tp7&a{mU=M_YP%vP?&@7G@Vk0;)#rsL+1p=}d`~0t&fNO8a~>RN;$ItU z<33%Pw_89`Vxap|1rl}MXH(8#+s9!Ol2K#`>V?4T*`Bv*$b9$VGrgYcNV9s9F+A_ovYoc?$?ZuG)p)zBrjnO-Kk>Wm-GixRNxs{@ zlJ(REVEZ3givBiXfKI*6(3ysGEqw8E^1idHGJ8Dx?x_p7V~dyfVvk^JRMLLs?l~yw$*h1O5ZOXyb69gVKS;1VtueC-m6lm` zply6gJU6#aFTGi*{u!$IrqR>(z8~%!@zwo_?9IoCKumn&r-g(f8Q3cz5Ep=|Y>pj? z3*jpStwNEyVu(AQedrVC9>F!pB&lKn%Y}o1QLems=K;AWdVZsbud3=0(o|i|w?jnn zX$z`c)AL|9BaufXfNywM->!QqijS=!ezVAW_VH#o6Yko0s&??b1~;}KoZm>~%3m1n zFN=b;mH5|h0F$1O3qIyJOXA@pY1d&NF3wTLOPiT#pqB_oElThrUPGc7cH1fXog(6o z!h1=6Jk&i=$=8-xQ^DtK@Xb91o}v&o1fXgha5D5#Vh=6sJNGJ#_{CL4{VN*I&DY3_ z%f`E4EtkUW027F~s^PJ*OeK@-*bxsGCK*t5O9AX&pyKOpC+w*AXIyBjR=R$e8wpe> zt#{8TTt(xs;=bZU!8bsgVWu*PkO&u%3}CqIC{Y4vnbnY}kjrme@MFy8?esWU&+Z8#=fgq5VHD{wf8gqPIaj(4={gOu1Ec&aIh9Rx#)d>svfjDq!3 zdYZQSc9%5Kf(5CVG(|Kaqlu>6Ma=A?MxQZuc*LLkQ-&M$dZefZ9rAiTY(q*#N}qkH z&k}+C+EsniF^9BScqi2+r->|Wr-sKh*(abuHEfIFpd3ywe5b9-y?bIESt;$wgceaf zi$<^;Hj18NG&MD*Fn`E1kOgb#WIZh!FHR3(PiufKeC()_j@Y^}XRLj%AEDLfh>uk^ z;_xaxjaDeKecsm(0now3gRLnQG5Nv*r+awP&A&@zfyL#YFck#Sz!7uuAl_L^hwF3m zyBmr7u*Pct?iLo{Me~sPt_#={K@&y$aL}3*CWFrr0J171BTJL{;ME5LJGs{9& zsm)$0yPWmj7Zq`ry&=iy!?qeU3weWh21Ck z211T5_@iFU<8-a9&}HEHQBF-%bBKBmav5TKm%D>j+n)&@r}p0L@l-gkK67r{3k?&C zokuaZP%BiNLMC*scT-@a#+&65d87d*r)08R-e|kQ*>7g0C=eUsCv+1lS)AkTrbb*D z(yCkk^dV6B;9skm4djO}j(qGQ;_gWbf7{VS49~^r{=t>s?N`AhDR6+f-Tae%q+#uv zeMhsjefRBoX_!}ggLGn$tCAecJ37JkF(a8m6ha*V0ZN~ujT4(Uww`mM>Z3}~xn@6Q zzjJ2=?K4j((5-R1^x_xtFS%K|zdYIF_OavEms==C$1F&>Vcpmpz)?p_o&*A3N0qGU~S8x#Imafn<6GmB67nGQD;}B z*JtMtI{nx}S#uN3D3&@JxqGI=I$kthxgpJD$07egOs)F_^rW5`vMyr5LG8ZrRd-x^ zDNvb!|2z&w8_qwHXg5RKb@J_~$s+OR+ziiOyJB5iDuMrEo=a1iCatcbzUq2Bg?j3l z%VEXc;F>v;5|i~aJPbpxCc6{6({i=JvM**aPE#uZPDI&MUlz zgodv>;oZVLR41)7dC+zIFfKk^B}{S!-#;r=Wum!t`i`8yOhp(`@<{$<>SA>{gXF3BSWA{{zMj`Zy7!Z>jbAQAgK)s!Js>DN<}%0Ocbl@S&-OA@Wd7> zqn+T$<7-6}Es0b+ZL)N#5(5FJ7B54U^%1Z;cp?x-ZM1 zm8^3|&zQ`D1DyxvOZ@68cQv=4T0e8;vhGefANFoA_=C2B7EgnnnbM>Go>Eo4fP*M) zGfgDt(~3H`^2F&lIN3URH4C-B<_FNFK{9{1%OVSX?s>v#{E8fN^2IAx%~wZQ7M(Z8 z80#YTXBD4azy0dFJXJ+nBcFCXcLX!vH7gazxuyw5uuJpsh?gz7hy}CR+^iBcR3yaD zuHIUt!BN+G4OZHd|X$gBIO|4!@oSs+h9Vi) zH(Lwa9*AY|>x|m6b4hb5c5*m(STV;7{&rF}eqYvBJw|ENe%Rl2cLcjp+Gt`O1M+2VOM<#Jfob&~-%wtFtgdns~Nv9_IXprA52 zeZ^`ytvQ##U)Na16LI_N^%QO5oqlafbY(A_=;zBG=%D;Cr4~}^$Hvs=Ohz!1u9mA& z=P@64-F&;@-3`bHD7o7C+v6m^wU)&BTq!cMv)ehdy6|f_Z(WBZgsLI71%&$UjrDh# zKR!&XG+j*Rekhrem86Aq%drx9BQe6#u}-ji-W4}Gz&eYfiWuED5?EfuV}UykDv}kz zWVdZ_?RaU|uB445RgQY4B76>pA8z3fZVL1)(o=kM)~w2!S(ExHE#OxmO6h3iL7E6ie7!s8v?vN!b(xbY*rGbxR@!nb1RAwYX)L z&Q+%4t`)*oO%=T^ai957Q4do^cTeq&EKn&fT0}ucf=XXZgbm~3mTwp)@iXaLTJ&|c z0s!Vq)J0o%YG%?K)9*}%%~NuK>dD$P>h(WViE!ddB&zVlySo6w6o@`4@N#fKrgT+$ zisrdMF8pgGO?HvgH1tOIYt<6?tmjQAL7&pUwV5@$N^#Vx*J#B!;g{mT{f2lFaB{*)`PZt2h#^po!+`!lt@0S}vipMvfVtwC^1{ zA5~tHoy1D?^vAS9V;2^o_F!D!){BYtef#^+pEO7#?2|=A?E-uI5xXon?Xn|nFUTQ5 zYFO#cQ+u%L+18irAqci=M~+6l9t_JYSQ7c_&Ne4ahWDm)tomv$nVK+&C;DL>2cw$m zvo#z`7$r#C?h1`o?>qn7upj&TRwCSWBR|y)4C|VavwhH~bP5GoC1-Qh2BBWdDYeAd z$^!u>)HmyI8E^c!N!Z*)%O&giw{T_u?AasXb9nr7^Y2T;-FauW|3JhzX)*5m=|Y#y zUmi2BG3QnV^x!o2QP4zNDTd zC4czYXkMQntj|^6^ID@LOT}h{s9z$z^{|?HES7!KUCI zZi5xvbX&c#DQ~z4gqFTKB;GEUZlMl$=Knt-az7tUtY0pWqlSPStz{UvX`(m?yJze zR2^}tV#ybLu>CgJt&(c>kJ_joc;xfN=S9)JZ@DFDmPji@SL?ycIv>p482i>CSKWSV zwpc#B4K3E~I<_+>s5go!cH`%YJGGSQtkg*tdlOX-1*Xb0BGHLRbKT-i)}#-WW8>L= z(20uUqFyH$Oo6Q*$$M>w^#$w5o4pSY4slxs-DjYSly9$jXXz}oaan^z_ju_*_Lv?v z!;Kk(7VN;qN-;3SjUcS6W(on7!_xAa5~`T;xNLTKv-aLNUH8YH{#v1?7X@LLUIIN`B>FzfJ+<i=NEf1C*G|T}Ue3#`&Aiw;U#WzXUf6k!sMVEZ zJKB%K@xl3pd{}Q5qzyH!hQbDwD=n;3oDp|Zy0Dk`K0cI_3<5cUhmIO);b;%_%0M%a zd>;;(XzY-V{|Z?Hie$b>p>w~R%3ep_U2PrAz0OVHPpt;Zw!Lpa?FywWw7OC)7HQDD zR>8Pq7?b!F2>UW^I@a$ZX(^kTnQJ(lH1p>j+_AEH<|ts!GKpN6vsuK1Jp-|69MDJu z9a{G!0H<)gysXJ)nNs>WO99}%_w8!cT9p!-St0VlqB$Di#)t~gcr5t(DTb1n$`|^^ z|Dj@nzb1Ep@0&%!#>ojmrkktW=}}ZQZqScEi}~vcabRf%zefhbbo*zd@^=1My_~YR zZ6}>O%Txg(?0~+Dfpn&t7}o`8TA(UBllsMOU#k2s@6FZU|7@xTkN9VRNc!t=*7jr* zmzgu7bXaS-Qsx2GLl+Sk6WurEFjOx@(!~xy;{>oj9v8R-PoX>p&(&DT@P!#yGou8 zl{h;!#nTwY*p>TO%?Rs_w4J>LPQ>$|aQ8y#Wi z1A#CBgGrN>?1rG5vnVI3)SET#A+O)yqdSUd4`n!7zPF=gu@@ zZ|U|I@3yxldKwzyi%&YgyOO|gQ@5CD8i59bI+vCz;~HB3Jhi*D7K!eqq~-`Lb;^?p z`cmF*6?G)%YRT73@d>(0J=wrX+4soR$jQyjj#W_mzJr8tG(!H=uK9CA(=s+U?*34` zr=vwzV9q`uouhZtrtWHX2;=MKl&<-|Vead)3|8AqxXc3_ruR`db;Q5(@Vii_v+Z@F z5FV=v%wQ;`{i=ntcifhgX`WVt1TDmVP5)ERlPq8Vy6d!>MGm@`wD;>pzspfQ+lM?rhS%%avuF{D%{P(dk z^%c%`9d{FoouKs9Y|yUQDQ=E+eVxJj`TNTWst(07SKqH;&YDe)#Ida9E3tjlnxSbc zy(?boV?2Sna3$H;p1pY_qWSXYU6m~Z;eI=LBICuWvVi z?wNk#RCWMc81puh8ucVGje=k9^&~M$IFym12isW<()elA>={P`xI6P9zUz!z3zNEz z#9iqmd!SxSUy1V`znNw#k2gt_K8@E861M9q!y6oYthJM|yDL)b#<}n7A$LGe!H#(B z+R0)2VU=^t#x8ld?GR2PQq(RIRn@ZEMbuUi?Tw~Gy<)bCN*Mym=C1oS#L?fE%EAvV zlM7Q{{!%@Exl1q04|y}U2`21;`h8VvaBe9%9(A=|KNU6;;&=B(uV{V&n6nlLcFRB{&>TM4ST>?i0VR1CMc;Q!yf+XAqT= z1NyMjV0ipOV{%vE%6^$le%A@epeSLCHhZU2nrK+l=P-JuMwDVy^=1kVb zesEF(*b+KRN1<|wKEDGnRY%sUB*3SjTmGOUTo}xhEJj<4w3$qIn`18t;}o5-G!MaW7VbXP z+?G&3LYs4tC~3D;3`q^jZrkBeufYQ$%qZTTVi(fQVvhqvFizxZ=R;0wq@%q_OhC+` zuB=|oUX7pZ?vHAx7&TJ0b)qil`C(0YI*^3>Ks6AuCEf4G( z?~l!wvE>=z)LyOcs3eu30h2RaTU^LfHg4pCYIpI4;VkB-TjaGhFhFsAXa zIz+0nH7lc@?Kc-{ZK}6Svg7>Mp7xJc%&BJYOzt5`QZDZEhnkJN-<;K7z1^|K>&3O= zuDz!b56%#bF04zdq$2Bjv|z{TtY)!A(*srF#K?Q{);c|hzgL0sxov1zw6!wFaLh(y z_S?bU5T%52pk(5xu;jvq#pwfYH<b%A8dk3sqX-*&tVm!kSY~_cfh(tu zDt!L@Yop>I&i7HP?UX}1z>#x5T*TGWfhhWMWBGx`iCsTd!dEV?V~NWpyynKnRuyyI zgMw`aFNz^+nB-|>W><(P+Q&j0qAnX>UZQtvkK6NOG>&xuc#-||1PeOVE$`$e!bBmM z=D2hh>=o4!BW_y}CrIn<&aQ;njHF|J z-f`D97n<@V^v2|ivywbh&2>2Hx6Lso99g1?vm7%t>en9cKO+VcgHYIl9&AH%J0*VX zx=CvaWMn-)f5>039LCh0$2>7(tC>(ROUaP&`rDVw?sgbT$(6f)5sAkyWx0!UwOzbA zk*kfO>T==h=#i%`>x^YVi`4Pa&~!o_p9md9?j^BkLIriMvc7#ze;ATriFNZONs_wh z@+n4xvuEY|trAUC3My7@ZIbT>^r!`ymExg2nhMQRpWaz+c_HELF8q6wmY$u~vBlv= z5g57rQ{ktB;A&br=Uuu=X*NboTTLg(y&hvmIkeEA>L}5Hl7#C7YZA~Hudc5g*E>(J zEm_A-;^h*$NPIZHVroiGhK6$ey4y`f{onP~Db#+RDILG!T70{k8x}${fh`>wLup1C z4Z#}Y6+kKv6W??HxB0g@!e#_S4)v(N{Za=vT))--=#MTO6lPB>)V-^-UN!7TI# z6nzcLSnaBHH>5KF+7gO@!nY@b2^0z?e9QY)E=v~gFcn+jqhxS4(C7BnM3xSPXiTOA z_(^e0fP=pw0=nY{l&3}m=lPJE4 zsN-E*#9NfzGQaNWE9$AL3L3wWNt7sEfw2DmVhvcFfb=%z6Cq1k^*{>FG>aXS8F32b zBL(!-`pceut5NAnlUnd(Qyx+k9DmL;MU&%lIWMz}KiD!vp>Gfgh5FM+mL zTSvSgvkVZJ<=oE@01_31>Gj!jX_UQGS;VSSh^&Ps&oksZ*mCB5}vpBo`RKgKc! z;yu0_f57l$y4jtLVc2_sH@72_5!_|@iW2Z>xZo$ik#6&LnQm*i`<#lf{KbED= z{zEI!y>il}alJE8y-morl=#^9L^mAqah=KnQ_K~Zao?ZNgZM2We#%3T3BHaS-}>t5 zs}-KNZ@NH}4dOT_NvcA1ZOQBqhky`%v;yLl#V5bsV|U6$G~<_7JPXsL+YyoOiC+Il z#;;^s^c^|;vBwFIDv3C|6Oyd9KGVzdD!PPt?Dt!(+ChtA^da)`0(ymeteVOA&g<*@ z_L^!Z;MY%ZqVrrtkOG~_&}$Rt5o(X;sJZ(a>C_q_{9oxJb*+DO+q``n)UNGCLpkk7 zlEIcrpVv;R#XyGcT2AI@NSja*Ha=tQ;Dc6ZX(RA^!*k}#>% z%FZUdH~HK|*4#h0-x;~mB9G`kE-~+PKiE5_>(LmqK}^>gjT=f4!Y<)T_`@T-6g@V( z=80{r<8YR?%W{k(+jpR#7;~0Z0C7rqf>n3 z4I5bcp$uWZ9VR9Fmc`GFzzk~vkHmtyHbK|OhFN)rMgS}$*2^#1Q*T< zlADLZ>Ed`wq1@n8w>+a&)RauFTAL(#;MnD=2;N+sEbm%Ax_w3WbjHkqToFx4TcGjJ z*=vP4t7kPe>NxoMnh0rf)51vtMIs>1nU!k@h#-f?asA$U(F`QY=TDo4;hSh*uj6;q zf%~U957YTE*KqKCD{ZnU;@?a`w3c#*gmKd)4k)seK#l=^DmSZ0++Alt_HB`}_bBLEq zKPStAl)>MVLm^3on!LD0)zJhCOYecUrWIo1C{D#5R>sjMRBXTaxz0{;sOO@PDEn?Y zy8RG=2x@v_Y@iLN6DziEBoIs1D;PF7B90}Os53g!f||P(O{C_bK^0dpM$EWZyAb{c zcm4D}pG&ulAn+6k#kapg&23>fD#u9MuHVzq#(sEn3Bs-qqC1%Wwfbv}10wCRPhM-g zxwnNC)I`B=YGG6)j`wOluzP5H!y%9hL9@6A5c#1-Bt{dcEprU^fhZ&G!yJeD59mHL zUh||zP4DWym_v|SbTJ@ut+8<+k4WoQ3QpZTX7~ka%nW=ZXCcVEEMVZ6{Ty3ES%1rI ztda$@E3F@Hn4#tzNM|1qAD*_=sUU#NswZQZ(f>a;|3|6HR%4+(eV{wE-JKtZ(k*}J zJB^3Ad=Tw|P6N)5v3UpoX>)Z;AaRtOLrc-~75fMMs9k0`ABgmpp*}bN9{7>{eWMT=34j%qULc7`J z{yWR*upoQ;ZkAa>^)(&j?74{>+n3zRv4c{9Ds;BHC1TJGVYZ9(Z53u6DlC)>hWdz8 zjoI^DOuJyWxWI%m22)3k`fKLaF}i9ZA>#GGIQN#?geBrKq8zufR;MNleR;22v1c{n z5E8vO7?JmBXHObmqWO=w7NaY0#A?5@yWtcdZcowRXBxz(M*B*kH<$!#2UBztGb_?O z?a?fwYgZw~=f&xUpl>II3_Zl(qhK^<;K3F-3Owj=vGEz43Wi+kN+3TH{W#l_pb z7Fp}v$QoHCriRh%Y~F!(rotK^Fm5Q^Shf*oMOG)lDs$EI5jrz{q4vf zqw3xpO4s|M+#lGn3ZP!N+uI?iGBQ|KmIR+<(+c5^0*B;q{#1u@d3v*)%4}}3!N$qs zDZveXR-$g%xL(q@B0W7x&W?3N`F#s^ubc|GW|S4&mpD5Z7#1`x0iB_Wye1b`qo|+v z+$AS4fSV&q1fX8otjCE(-zJpYM%qv)>dGONR+f}IO%xJU-PFeKgIoHQ@PcNdY|c^L zNbH3($qXxT5Ig8ONLla$VVQMP1JRw}0N{_wD6BwfU?7G_0dlaA1D?#%Ia~d(&JhCJ zFy^NP_X}+v`ZFD)Few;t&PP4=oi`a98^L{+CgZ-HNd9iF@vmHEF>7j#VwjVFYXTr_ zZ>s23c(g6>1HiF;gz~vHXkB-=HxR?k&TOsg*BPc5bU>->Ha;}h8o+&4`y&-!0w(}qn7Kve(Jhtub*e-vW@@Gu?l&3~ zgZVxbF@t85t_s<=9aXMEk_rs&JEu(212>n00InPSvw#_*Bxq>Vx}q1bb?2mDrRU?vfrp=iuppuyilQ_S374 z61^yA5kAn*Pe9`n_Jz<0A!9aQg(G3r(-+@>bjC)TPuY9yg9A^tj5^xamO|Lk&%Wvwnm#?kfU7%v_;qtC#@?vE?jSe zfVtbDBhjR?d2XjAq2`6a8LM87p**m=U&DnK;N;<+lRV zwk&O@$0KzHW^e$jotOBzLDzl+*2VuGSD(H7_uj$CZ4LWpS-o3O=iR5Bb9D^RgAor_ zp$E@A&>bRB(o!mv_4ftNA>*B*T4zEAD+iGNzcAD2Jf9lB$ti#oLv z$;m?Mu8p~&=4QCm%Hv;$$-ZxETPm_5g2N3rv?8J_of|$CY-)%xH74;uE7~{CVsahDp!z8>!zKjRy}60 z=>x3UhTE@Sju7h|mW3+gR4ywx_CQ(|C^?!O4jza%7_g2|rIo_KPNJ`b+av`XCTK2` zOv2FRzy(aj`ri*~>uOlZC>e<$^q`5k3r&NxH`4vzcy-+s&(KCMej&AOEZ=<5U<334 zoIPuI^;Ln3W68_b>xNl7SIYS}EUwm~*&Lz-xfzv0jqc@+A(G9PhNz>+h>Q6a-)E1Z zBMoPBj@0gSj6ff@JIB&L{@rNRUyj?KlTq9E+Up!BetzNBi*3gKd4`4}bxmKWwCXVz z=emFD7{$|j8H*0GAv~$NUhbbQZGVT3B5O=lN7@^>TS6-b)E~VF!(Zx;KS7(7pFL*w zbD80wYrRnD79S#jzE*Yvf0X=bt>Zh|X+hME!;ZkHlMR#hGzeY6&awQvnS?N|_s*(s z7?nC+Rms`Jk91omPN??&gVoE5(`y@Z3GoZI5|P$^7A#s*Ja_+=3lPq9%piIMzt8K# zt~>V7J>iE@^=QrUVrx7vN7HLmtvnUF))MBy+JnN$_@Lq3QGVZ7J}+%vD3m9}D?xJH zO=?L}m%Y7F&XEp;<3M3*)a@kiQF5dAT7;wSPtZ3Dt{pUyVvgFhN%$#5)HfL55SFaL zP?bYI;Eorxb!1vpb{l(c&M2)n6t{VeMh=@5hn=m2#)pe{c7o@OCt4b+dVEGQ>%Em8 zw{=v3`=s3RDexd}_$#~L?^wKPd!KvUjT=c=qu1W%hhlFKO zJCzhl;#B)&fotYiG)2~<36uor+9Cp(HC0)GArz7L+#Zqm%cYE1PgJ;QQtvxGJlZm@ z)NhUI@)_m8>e4(3kSSDS8NuqfSAllR@KW?J{Nx90$c1( zW4*T6pt;LufP1QvIDSUiT-Dxu%XEl)vCx@0RTfsv6+tH{pa8y=$t-31{QWJ=f=+N2)u|+ zG>!~a*HAMuT7&nybrzpPW~?4IGNGjMO-YhAam!<`I0G+-(7|W|Ze8vNhZvc#o)^5B z8e7FIKHH9q$ebB&Qm;5s5`FSYfz8JJlL&jZU;g|?`(C8g=-PF)1#HaoK6L}HozQ6j zPr9|Dn?T8w(-|GOjOO-5T*th-i9H+E>vuLQG^L@)O~q_fX{HiT1ovo=ugfZZ7>ybVUdK#!7YCm&(m`TdtPTT&c0iMUuu2H zKOth;W(BvqlF+KF`=be7D^(B(hyAYkN6~`E9|saBGdF3p&XyLLCR|buYg>C2OmGlg zJAGC@vzHFqRTMIcuDW|HKGGiyS%Ad*SLC()G{2%&%_EfJcc)qp9*T$gD+ZY2GNl97 zuC1W2B(1iW>$zitx;=LC%H@?$Z@18Ak7B$D$$5{`>v& z)oEWBXQ`?x7LW%^cwwSOnZKCr<#y5{}>M=nUqM9TR3#j zYRg-CFG}4XS{HBHJl`Q7XL{|#`Bo0|{0F^%*y9qQmD;wycVE!){q&w!*Ps*9k003< zKGz=F!>iN#Zy7~+Tf|&;k2k-t${oA0N|`TqH1H}642fz_@5KjZd)oD^XX2QA&>85f z2zY1nW4eQ~r_bnV-bsQlkv*NsML2F;iacxt;OIl9RMKRUMj3L`?2GK0IWD%F`@u3t z!>X}5O-2MXRW)C!eLjzzt!ChZB42_G4UhWpT6?Gg_O#Hb&kj&v9m4F{>`?j~#6FCc zBot>FytMa}D1OJ)ZW>i3*<-iV-_TJ3ALl>2K7zLkZ1nQh6s^{?X6Uv1PQJcW*<)C1`q zf+Q1bZK;Ug^l^ZgTJq$2lF5$Dg;?QuTV<~*>-BKw*}6YE z*88Tq$mW@pPe9J6%9)f{S$%sDvq{-#s%#WBHg|V-G(%=MAI^n9GgD!D-O$a+!*KGG zect!y=id}_HeebfUCyPPca;-_A{t@z2cZVdg2@_a=%Rcp%XB&7%+;?|sDD$Q?J|C6 zqn-^#99PZ1W*&Rti+pv+z-?Z5Ow%a=z`nUw0kIp-*muL60 zW|rBDJ8sL(=FA0Z-z+w==TK?9X8} zog$0GPT$Q0#U7E@W~TGR_2og6SJRpE3|6|P5c1*&&f$yz}9y@vQ#$1){M zald0D0uLe{V_h;bxcu{6k(YeDdG}7Hlq%unzBSH}$+F@>NszoL%CpHIMi4 z7$Hwp$_H$vDi9b(3}@_E7{n>$pAA`QJHY2iRh6C+fvLeMz*^(dG%%kXS)d4Ii-V;S z4P6hoz7GVJobsD0p&bBaxT&h!5kD(Bx!+dCi!&9PWpG?)DFaX^g1OMOeO=?NLSL0+ zYjjPu9Zh9ACX|IY!>z+(MHuf(A+uOcgM+mP-J^ueuyn~37Y7V;jYAy9X597poR7_%P z0(8hcd6KpNsMhXHKn6hBZR?JEXJ!unceRtkKXp5xSxZg zW8KZ$f8uOzR;UUN9k z>RootnPC(Jv5n50X{%#u2H544lpkZR>p2?lZ52KgpZuxvz&5tRyby2KX_kLW5O%M9 zs(X|k8)H8#*LG|)+iy^3Vs)w2CrM9(G;#NC3Bn0F(ZfFD|9hC-5FqgC`qzXX-w3u9 zAfPrcY+p{vzsoTt&)7aUtSakop_16)f?ogf&~R21Q`iV)Fic-7O4H{@F^3zgZa1>!N?v^h5I4o1 zxMKR`F+TbT`>IEC6Jq2@l=-fQIqO8ZT7TU12C88Fh~G`}_aUa!jz()&z_c^Cnx67M zbM?i$Q=SEr+pM;?{$=*-IGml`M1RanN0U&cgrZMH*oBDWXHl@m3UrW?{V51{goK_u zCL{3Yj1-=BmwE$CNNlqA#R0;&qC3U&j-x=xbK|9y$W?4y_l&gb=jC|V}9Mfi_?*>J{X!+YFQZ0 z`$r_5fAc6J>GTA;T`E=G7tP(~VuJypA0?=-$yT!;JWg`h+k?O_eWN>Jk?*-0v#V^S zE`)B+{*vpDE?9NPA3_rHmBW~Ps05shy7WF(HedJ9h1bOUDW#hkmeDn459JV7d?gZ% z-Bmp8KrKWn>ZO{zzQabXC3~k%RV8n-E+X&qt=$!KJKZO)JV)Lvj)P`LV_EJe+q_|J z$hh$~+m_3FOA=-UEtTBPlz#0x79P)7(lKxtNxDZp`U!4>kuH!ugV})@n{;j)+sjY!Hoo!mZv4lVLCB+Vxz5^kH}Uu_>)-k< zp$zakId5j5XusG=Wz!p_;DxD;64>z?N=jYMhUBm`8ch+ld)f*r=-L%c)?;m5Y9>}g zD>P)3v?OoW4-mINlm&wT@1?~tjv8;FV#Y-;-x6tbylJO(W)-X^^+3Kzq;x{#^_?^o zr$a`e2o)vDvtblIAI9B{goXGHW(am*y~0+erqV?G)TxeqQB!7{O?6|_MB{y(M(P3m z=JsYev1V|#gUC<19-kq694_1uE_5LRAX3s6%T@p-4Fajmn@i$VU%8)u=~S>`FXhY$ zSK2Z)q)kN7_@F#}#&o`D%VOaYrXW)E})s}xXT!=0J~J`F46_xI8h9=OEAV6u&| z#6mY9?Ur(}su6E*FuRv7O%9l@@EeG#Vh&eTs(c8s&~LqLM)vifN+MPagT<>*o`;q3 zBeGQX)qr@C21(=0*}Qf-JuGT&z7vt}3;+akN5R4tpoIGBr1TYXO{UBgW;wzY=20{d zB!Tk#@|4?|waWpgt*R>--uJuXQDIRtB%9;t!{GDKSyzzq_}VyALJNoZv9b|Hqcutb zz;~wV#VOSZRqfuCwAd{(^kirwN+C*XVcuCCm^saS#m#6JebH~G@{>E0fl5e7lHLR1 z7hHi7U-D=VjGN#Er{a_8^dt#)*raKkp~nmiZDBqR?;4^HLRI@4FJTLtTO7xrws2M4 zc`kd@%T+Ej&-ESr@b?J8iWS`>7YXwZ?B`T0<_uE^ z!DA{Ri5J3a;*KkcPbw&0<17N47c(m2HbbRfD%4oBwAK6d>njM)E3}>X5KV|VL}-Pq z@Kt&Ny%1A%WQ~tt?H<^bbTzS?g&A_bYE4UV!dgr1Uh4Fj) zIz2VYBrqh26*uZtzqXD|P)FJQP!j$igRfmp?n~DWpg{;KMM20W zsK`dQNQ7VzVzAKzNGJ)(x)a^|yzh7Jxp$oN-EsfAH)9xQT((v`DhsmI4n#lI~#)J98fT(j^;K?vzAq)Ao%%vIFkv(XcoC> z2U^0Z;zfAkG7ij}l>aYH{buF#6T7|4ImXMnKh@`rz_bqrX6j-o1+s?$wKS+|`0wp? z^qP`kr@E00IzdFcy`~A2LsN7!B<&NsFFU+92_RxpYpeD8D-0@S?5I6(dKt!{wKft~Tx zihr8@L%T5b(Kc8f@@b|1sY92Z(Y56n)^ET6SW?V<6jBlzN>~_NM!rW*hFev=J3ejO zwgyI;*@TuPp`R<;$;eB8(M%_`JyrKWi|u?Kb!sijV8-c%*jq9E6Ed8VAWxV^_Gv4q zI_J3VgcaHTbVZvU4Ne+uv0mpxuh(u$6q#r?kEYfEXgJDVUw(Zi8UaU)>Rnlqf3Zmx zy(bIy(oJPn=L*>Xr8MoFz3*JnwM`nNxq&w~6m|a8Tc4w!7VWB3(C>Pw9jI-vb*C@c z24^oRFPSr(b@ysUq~H#@u;=K#AA_x#Qzq&*F?RGsjyNJJURxo##2CaFaa{C(+jdJv zLtee_b}KLB+~}Ix6lQn43tbLoA=y|{kVobyTz1Shc zJ?Bx7iCR^^f5Jex4^Jcvi1<8gWmf}rl&3BF`q4&hrm9=P%!+GQY6C;EJSCg};5{F9 z^tdow72wYRAE)^V5Jr+cpd7n?B6Ak=POmHN4yL{Jk|oaEJ`E0qrV23K0HjT*np|kC z-jaCXLX2OtD|Ad@o=48@ch*a7vD&rW#-)luX!e8ca>30hHiKdD5oCC7$98C^q=Wl) zZ|vkIjAGKb=tacKCPH=J?}Q90D^rvfDQs=_)nJK=#wi5HLs&8mFGTXHme;qPr%|Wf zu!}9(x4&$KMr+Dp+s2yM+!u*{5aA`Is*FHQEQ_!CeUZ8_57|>4Gp)Re&c)22H$zYo z8$yW+w>e3&b25MxT)-eyQ#8nDQ)(#b$ri%6z=j?^a8H7kpIS{yEs9yCb`{S+a3Cr7Q+=NOLg*G@36z8G7AB-hQ3BjPK1Po7)+_Xs)Qg`^$ zM4}hIypfxPLHQ2CyfB1z6FO_Ul+UMhQRAopUDiTqs%IWf1z~0gQ^F63C}9t>PcO)< zBS50Mr5AHkjvMJLjebmXvs8Y&8yy|7okzaT5wBioVlM>fHl(#%g|w7#d)Hfry@>-^ z4l0l@YGHjQ5U>Phs?cj*GXzYx)y|vsaGmI`H^u>7-M6v{J4lISPt}iQ$4SR9qNliS zecu-n7e=8<+V%!sLRa;|;KGZ2$q!fhTk6p-LDOjW`6{rf>yAg##S!Keh6bRq%xAdN zQeM8i|FX~=XICj++ovi^N86>6*U9z)Wye63roNjDTw#G#NJ(+Mza7ub$y8EA3s;RrXpa8^@YyiaRT})lfIiwcfdR#Th zs-D(E3y-XS?d4vUjfkQXWwx5AY$VOB$j1TP4j07{S2B_@3Ls6Ia;R`mvb1ZzZ=6?A zZ8pA?;r`xRHy=>D?T!(Fmj2e$14{Q_oc`4T{@1r+g|aTd_&68q!m^rk)x4AqDdGs6 zl?2p~&wOTO5su`)=Dldw(MvC`!pcwogm`>;7Na84sGe6UyI zyw{g|TAWl%e^|U$Timuk?XIm-B5ME9zUg>y#%Gz!-LGoeCD}O6Q0Bcp2ajg*=wMc& zJCYlbECJF(s%mRb1dbHczWVX>dc}J{I7j|fP4l6_@@P&r2{21H@?aewX9usZ=s|lr zZz02!_4I*o-vOA7li0=^xrr?_zQ#kr-MnXob`5=FKxg*;)BB@I`EG*q%!Rq!(rR7i zOyeA}k;(R@E=)1mTvOG-pcJSt!yR>f(Az`k4Yl+NV-^Pe&-0omld711&6?&j0}~*j z6%VYU@tn%j1;b5jA3BhF&NM(OrhdlWQ3!JXCLX-+q%@^ zc{N<1z@h>l#ig|2>s;@Hf+zI{Te-dB_kkE)FYIWcz13ztiNlDblsyIybBLuuPY#Hf zUd)|<^@B>z%W*fpSUySfP{6zgyo{)J9r7i1y{LU{DAx;a*ri)m{Lrw0Jsp0|TM%%LJaD9O;tm2X)j>;Npk%A63+S?Q1U4@fGF8s`$gE1fGc5 znm4$s3NTQ@tw6`rSr6zklDL~J94%e;B)C4%^Q++7-u6eVksWYD;mTFTdKVfj1K2)~Ld3y^4;Uvc6fwf7`X3c5vmYVJD_3d26 zqYKX=w^>1_ykKR6T9aef1zlX)IA$(II!l1_$3nDV)A-N^Cgp+Mfy&v;_vLaTA>mpQ zY;TNreT#1zNQPwJ=-Xp7bFf($^W>^~M_+U6jft^)#J~o@EM}N8@6qt5U1OF>-VDRRaOd zZlZD4`N4n%fBfTK{^0H2QT(}*L<09qQZ>X;4Qv;8kbvdG4p&tINY<9-j9`J`7W@=V?T`D_ugNYeR5xV@@*i&Zx2f* zJS?jy04B)dCdzgS8{gyG$Oa~$&-+3*AGhWzFxRlYvjyZiT6)u+J$lK?P7$B$ZsFjT zQozJIg1;bc-|UUft-asAIV#9ss%$$$OF|l?m`P3d@cvD)wR7EpovX&=k@B%C-Mb-! zj0P=lLn?dO_xVaj*xtTZdee7x1v28qND63Ao6#fz=p&Tr&Z(#y;`XGEvgS)F@?GLW z@)EnFI6^{dp!SMk{I5@^Kwkd2z5Qu0VtDoz22T)y(WxF!^D|iE#~?Z zUOoE(g$Dpam;DcPhsF=w3sqtb_*0^r9-^!K@#6QJTEt<|)$VM0xr3U}&(GHfm66y4 zLEhnC5%k?@sw|xw%8=| z!ZB&0`D*@WT5MBQkM68P(F|>o0QFTzkL3&e>*wde=*@zP=dXhV%md?ry;Lgr!IQZ> zZ9gi4c+gjIS7UQK^Ve%6#B|a@W90ei`wOp;bVn1e=gp)N0PGE*!$Y9}8Lbi&x)|{! zZFR9!h`e|*un6_~;%d}&TQa!>k*&0NJrivYa{e9px93mVpE1!13csC$OrOC_7$y}L zmq0GB>}sOV|^s^~{zY!1&?0Nj8zxaAw4a{K~vWn5FX#vDu}rS3!c!(XLwe zwFaTaKAMN^bu9Z}RF7oMvsl_8o_f)XP~ZANrp8{vyjEz0HIG?7H@Yhzv_274v_-Vw zo0ov*Z)<8vtuH(?8wsJjI&=JwZ-`F?~ME2`ltA$q9 zb%u&pLzmlWOKJEmSkXj_pI{cfExKpcXPvtdHW12}Sb##aFA4zu8_OltClxDmk6iE( z#_fk96Xn_C6k%;Tl{Z??lkOhcK!cv9h0v(W>E^o1+nazT9kkb64|;VN8t==SarS-r z!cHWbdw)~kt>7?i#7s1Mcq~=^J0zOd*S3U&XA<5i5tj4an4)L7Sx_VP)u#;}5u1Hz zw0efn*DoU4&7UoT)d=RGoLyKf?ctGaLa1r;o7HlK*rgW`mL}yOO_+wJ)ACNJgff^| z{!M{@^S8KxngAmziw4l11OV`12Ke&+O5eqQ+FHVdmRUlvrFtmurjT%CGd_X9pQlk= zKL~A_nZn0C1nT{bD}omwAEt1V^>?DX!a&_LrMk1Cin5S1$vZwGQ=I7;#g^ zLz3!gS*@4L!RF*!uFCpbK_9o2-l1A4vo#7AwiRTarHWGPECamjs69;S*fZ#UXGF+- zkZ0Dpm@jk9uabf%f$76;{4_mu8pz0DU3=m!>+4i&`C)$TxP33ebqm%#lrl(1n^hmG zFvxK6gpnJjPR6eg$bWsDU^`cnFzu2=Lu6N%v+e=lRj>E^!HSb0ujmqXEeJib z{kBrfBYj?D040jaDeVqPajGjK=i^OOWz9bW^zceY8ssv5elqn*FxqsYpHcEBYch(c$N5qJfy#wlQ#nsi+nEaE_*cN@~`D(;#v?~nd<`V6? zB}rS`s3O0N2aOVVG%sGjuDScH7Xm!PwQODDP32xL&{h=MFx7_e|wC9!4LS zLd1~W7a#w|FcQUv?0ooYV&guQ?Liw1Tn~qc^W^~C08Q#TYqup=e!s(U=N`-b3sh*7 z2p3N=I4&kLqmeIjKTE&?iDwpp-70fk@lHerMb7n0_+g9li3^F9G_PI`g+EfG9b99V zIL&Qlx~9FHd&#YXsDJf(@>8gn{(blN;W5?c{nyCUX zpg)d2xtL6{JCsrjbfRqOGK%SG2mlAOE6hQ#;1USQ8bR*h|xJ|DO+@DOgAHb9k~!Ps#F+^^T;FX4;v&Fy z8l=H9Co)71@bTDQ#?d^<)K1ny*(f7m=>CI*>Y*w?%5G3}^S4tSttc)S0`hy6c^7j> zP`MF`k{pSovORinY}_8hiUpj-<_JW1zyBj&07{y;9PK(FnfI(%{8DUdBcwUsn9A)9 zmsRHTm;JJmSia$LK4};k-QNRDgrfY=1sa=7t723^l};d65_rGcjn4-&X=9I~faH-v zBE&yay4lGq3NW|3Svoz=LG!n)ySCsf;69`zSYc=$JHHRQ7KemxZ>mh=! z5KtNcVue};LPt~yOLUVDX^!I)k|2lzpc4G~5|SD_P88tXOyi0U_-}I{2!(labL<5o z^zNbc`^6F-AP6n*w^?RETrTh}4GhOub9mm^@!S^gBsB=6y&*6I*o0j&UL(qb@|>2o zg+hH`dVQ>EV@neBAmy!%Flnx2*TT|nf&eh+!Uoeh>4mR-kZ{(l|JP z2Mi^qTO+Nxxmk#1FJ0vW^HXSnwrm4%r~>9|bc>(`mF4^X+RfPQapfB)Jh zzH4<=$T$^hC=t;Hv3IAMPc^)CC5n1_m*3b_L+-86KpjmWq%DYG#9;dAc-ww3u@?ed zOMR4G%*+|b$%=LTICoB}x3@QW-65Q;sdw1+hV}ERgH|K(xD|qn7h|<*K;uVDs3Qig?DohHV+KTBU#=qzV^TE|=Zq0_Hy;TTTPvHAHfPyPToGu{nw)>3~N}d%JAxHj`rlEsKGWO9yI9;Z!*vi8>SDo zYiEThLPB6&T_shfTUOpq$6?T=qnD$)k6+FJeY_~3NF`pdZk7BB*#`=~P!0U>L|M1NqOmhXEO7%{Zbr zo`UmK>Md=vlLzpO^sbO}gNmK1+(ih9da!@W558|NEEg80#ep9;eSRUU`10e&SCVzK zd}95AWd8hgUqN#^A1)5tsURxJZ0z%10zm3Ta>7mNbiv58hBRlv|0!HG+@uho04?5yYz z8GP%9Us&h1NNu~I` zF`D0W?)IFt z+qAwFs^n&ohL!D_gd+e98W@HI`u@ZpTF()Mbn#bOuTo$;j5S|bW!G&Mdy*ZLWaoZ~ zqySqco>Tel^^XUbw}fX8=g7p+>IN#lW2U`MFu8>;tMMtNC6W;t3#308jK*$L7|NE8 zNIEH9f=tJ1N$1F7USBClJqJ4}9)*t^ycwP|2(-6|0&gzYJQ1Z5h;M5lEW% z(5-_CSGmr}S5x!@5KYj*&t1(GVhLk;y?nQTJ}v+s4R7%t<#!8B>&pji>P3^gwwsFT zx=%BfPRMLaf&whr*OIqTgrl?tsG7WmFmgWe{IdkjUO6660Uwmh2pP2TP7VD;gE}w8 z^an}{ziM_6Am%ioCFVQ*3krhx_7`cO`IJE>2U;anG59)HMNQ1alt7xWq1pjjShnds zr}bAJkweHO=Hy7M9WDi0`}`N#M=y_}pzbt&0s#8+2Ssi+LaP{{C<@WC?wF4Ntw~I0 zZx5RdEz~~CE*+-fL>oZhAlw!5$K8Y{t!Y{%OZB|DWhAupVtilE<`RfcfOiIr(O6>* z4wD2IAHgKykp(nAPGz=2yOWwiS)+-BMgO_HY8O$Hu%=>`2=MsVZJS%RSyt6eeG7eH z39&~l{QPM^dMhm+Czc^o~}&q0Gn6*Mu@;kod=ly231N(yO#il zpB%l1D=n%-`;A9jpMPN5>_6#_^T$lW6B+Y#VQe*}DKI5`6Stm*`5|I{_1%0}L0c@e z7l8I##0wC~Ye46li~{+(tEl9MIN2@0Q_H~2z%)}UEHn&N4UqaEq-0zrH{|2OV+Ooi z>SzQXW;kI^*=@n!r=Y${q#~{1*Za(bK_h+CO{pM?_u$OTD-0w+qn`rz!bzNd_(BYr zsDwV;pD$}Zq3@&Y2b?R$o4;PS6Njn12g!;*FWxSab}1aY+V)}f=t z`EWwLRBf*Ss7O82ZCF>?6jJRK73TQ_P!0(6DEh%)nUi1NDh(&)`@|*lFD4h>exg%z zZjFAl%zcsyh8PSkOxcc(FCfa?)V&8Fped4rEF7>$4L9j)of;)?0loC$pN;arzGM)= zek%=ctfDvX+0Urq*XM^O94uv!7&L_^Mw;N!S^0=u{?u{z_^5U5o3HAr_`f=*y)AdE z=&uDz&L*njvD;5wIB|OC*1P8rWkDRG)+Ha1C@@j!9+&JJ>~!}gG}gRbhr4q)kA67r zb*p_xP+pX1UtigA20h-zvT2hj#s7N0RT zYBL3K{RDiGFuDU|6PW=d>dxFn2A4!TVPur&0S)8)z*VU$=a8 z&*0kyo=fz)q$SBRNwjLPvQ~olb2XA?PHo!S?OLD6#9|rXH&a@XY^QY+lWng|4@tKm zZiXeu$E(a^l&&B$Wt3Ig&AWrl4i@fpI054h9q=X0%c@bA_vnpr@$GYy6WbRf1kKVO zTNcTH<(5jaH%FzPEClG~AQUiEF%plruj18y83w(^Ovek?Opct3Qom*u#F9ay3s5-E}F9j@C~2o;j6{eaDkeY#3WaC=SK^vfO6LXF*W!aDeSJJ zC0CLj zVmS*n%H?TeP%MH*Aqb9lmz#Fu!Msueg6V$CmDrdNp;-R0aP1-NLQ2qZ%)PD39KzL1 zn=IgM!pY(@7w22~8?B(m7{9@4IGaG-BPo<$)xT#%d6Y*-wH$g$l`FxaROmGq%A?S@>=vicyr6Xm(NOFthcNvZj3I^4H)bG|2EE%VTt1BzUBUvz zWnM4j)k_#Eoag)Xe31=^;BjehAmSE?L%O+?#UlK;+;d?Vx|0Ge8&^m}gdhUsA%t$a zH4mCy)_{D4`08ad-UuOKfhxp;WCJVdhTsLY;YJ=bSt9g=0=B;us#;oSyEG8OAi`8j z%+q{`|JsPw2#Ewb0M4?jexatN$ywD;75@>{Kpt<{K(2yEHR4Pgdi&^pla%m<@YJTh zo+mAjnezz{FN`-X3-Rm6C-}|QSBA6G-(~OAIj9hX&(R0i1J$_oVfKFrb+*BgDN^6cL=v7z>`e;9H@!&KZJ|&CpS=7E!&IcDKkJ?YyM_KF)OsDq=Isv z2{W(0TQ_tMabZ)t_e1p2{(FEY56?jN;2(A%h5-m}oobjj=$2+0nBVL5&NK%mR-4IH zqDF}I(Ihtckxx_UiYti8Ruz3I?+P#n$EgI`%KC=w{uJ{4Coa0GaDRVnogC=J;%oD- znzXCR>~N#CoS%Aj$nKw3XuFIq%>Lxi>XT|>jM__PowoKngW~T~N(Ca-)JK+X^Q!lJ z!~OjOOj{w6%@3o1ZP(|Kw{aEZ7%fWpy3*+@qDe1)74R1I8xl6NHKFqLw*+Qt({s zdJU5T61_BmGmbQcnZTv^z& z2MIUwIu~^UY2=PObprgyEH+`y#>0l?4|Mq}lG3GkAbyC*&^F%7Ipv?ZEH5|6Vo*%jUn9 zJ;C(KhuJ@y8H0oUDy+3N zDDNS+V<9Jw|0<+YIJjPLab~~v1nZ65&qN;gJP{49+{oR2AJXXOCU!_8uM_dnpaOm# z0s}4*RKi)L>92CZjWA~-qyFpq@`#MaMV|m=fv@cPPt~vNw^H@~NVwUriZT1UJ_G(^ zo0ZB~*#^|~KfnFl_U~I}v=1K^ec}wL@-T1$`xD0_gTM`RJ`r&$Iv8pCt0q@Y`S(qi za=dg#iu2Xj3-y~FOeMFg>#nA{dil}dazyUSuC?pWf>k~+gVi&yw3z7 zlx5|f{&U`6Pxn8!-pDiNSoF{5{pa098oA=aLEZiHH2g=+VlYl#Ui)zIe^)Nt$QK_3 zD%aT5!~|*NcmjVaI2yTgCwQ`r?C{ZN-A|msM21I2My$LaJCH`0$gs#Wo>92t;L!Fb zV)4gMIGn+q15e;T_Xu1tSg~^7z)KbW>-{-^-1ckNnDB_Rzs|JsRQ_FpmDh2{&)4wZ zj`8m|dFv~gi-)chT-F}Rls;N}WLVqSP}M$(L`?2l)!lYU=C|>zf3*tG>_E5UeuSYE z!b=HxU)2k?U4d@fB(_%*K~!A|&*@LH=?ZsDVy3-6a~omdam#Sg9&I$~g**EDza8TL zU;J;>K(>X=e`BlvolXA4A4%ALWp!JvyTb+ZNBdw2SCq9f$7l0>@k28RhU81n{qHPX z#4Gp8hditTSU74WcMdu-()>9gp`vo{^3m15{cKtO(>rYPulMHv(_vu;h#R0Pezr*e zv#?-h`g6bkaaj1d-%69U5*B_%HnU$1Is8Aug4s%3TiM3g6t(MLf#Kg``F}KD|5af4 zx%+=^WFPnjM1D3~pD2fdv_`sgZ3`c6BE%M3>}*awsMPEzGjZS|@y1BHhEueY;l{UA zqZ2cMW4W`N2DVGdgrwe?>e&6gSa4b}W%#rhq*w`!yymKftSmXEQ$ouit=Ymxusmhh zJVcpdo(V4@vM*fy6i;SL!wQPqb}uIX@r$<3}a79y2K8+Q34ur<^$+I@lp*6v9}qXZtoxX@jzRXa1=q zH=Bo-3{eM8xhJDjnx>~5U#G}^eL(aQJX`M>*YeTxS%H?NmBGvYr&Jd8<8^~nCH3_l zPfB)fqj(Zv#VYfu#|%m-2C0VnH_Iq04URLP>InqVpxu>)v*BU5Ir*6?X6a1UcOcf`y>hOFYDGe2POz-Ro ze+BoQ8LOwX@A@6Tf2F1UJ>uP-=L#Rs=)1AL6Wy-Ae%dFy`xUIpaer%68b{?Q+B`KS za^lIP&a;B0xNR-fc4zhnW$#>!-gHbh{$iOGgPghMfsD0s$bkEeK9xUvzS+->^VMqVg{0)a&Z0m(zJU?ES zZ+@>VdXSK~^l-ziwf9l#?VCZVKuG;RPX@x>|Jw3khu6Z6 zIp^uq!I*dAnsO7iSMHDvHfLSEyOXzBYdK{6u|=uj{)h&KhsN-#BbUTUziGv8-5cm( zP&29i?%?T)vto{3Zw_d_-puCi-5wvD9(c>*-K=3OVy&}D@aKcKayMG~-N&;MI@ZN# z=ak-h1ZUk@)U4in><#+%6Kzq}d#$4pHR z{w4cqEcNN>otHm$zrf?SZ2zd=(HdcvY{n}O2|Y#omhRvrEctjiCu{^(dD0}vB&#sK z!4H{~;PR|;`{eOZ{jX0aqoJVW!>fBet~jgR@NN6}=7j&c_iB^oE{P*0wR6>!69cx> z_acwE`HMYPB$}T=xkR1UNjbOS12cWrKDzU_BTI1Io&zwP;vv#VLfv#B#aG=@Y?zYb zS%0m5V!1W?nO{5?^X^P-f8*T?z0xy70d=+Z@Vvl^oc>MJ`vZF)KAd-0yN0s+U{m(k z=QGA9<+3*V<1cPIa`RR2P@~I~mDK9S)4aVok^#lOO*ymi=QSit2yc0kk1oA1F|0m` z;@u$B_p|T29UTaKvSn4EVTNl%nA*qm)TywJupg@rOjDN1hW@C+jP3f}J%oO%#4>ba zrd~Mw%;tHzr1;Bb%T%MT`HRhlHyS7-J3RL{qJxq~RSvk!oO)%L-~E`G(89NDDR%x; ze7EYopyO&PKNgxA`_@&CVCg^naaQh+1<}kZ*M}(qj<Pu#RTz z9~CFFtFYw#hI`xY@9W5kF4VEvazEycs?=ami*rc?*MPn2&01;${p24L4mMZ()SgUv zY@BpId*S5?ou-GMB!&(desQhhJeB$8J~#YT{N>bU-c+jbIdbSJ496)(qc**M@7eK~ zqRfNiOJaaOx_Dmv?YhXMQOs4Dk+aw4e%ma!=kAR$I_0)ySa})YkF1!4Pw`nlR`aSX zcCTG?C1Q2gZ(E3wCq}}g-o@OletpSetLLLX^v*RG2OQCly>aG6kc6qdqsFaA#z&>K zThHB9?+Yr{cBZeYKUX@T9?>-9@fA%Nje5QnpY_0Q!Z47X#@S@neyJtIT3Y$KQRGNH6$>#e8%-w}i{p-(!9K5&SpBA+u@h$dx=^ zh?GyrD{fdg&r))+#p=(-ne$78FL9_Hm}2q;*;FodM&+`r-;=pTo>;L$?W$!fLXIn& z6S)V5YSJPYRc~AKF!tcK4&RSEWZO5d*~dY2M?ZK}yQwAa?U1u~{2aMD?Q2EMXB)Lj z!+kLoV;W!61HyyrlbjAo8*EXzAL_Ylr*AqUCg&td%s4xzF^V7k%UYs6o5j#7F1Yhi48amg3H- z_@`0r+-a{G4(w;(uRmaRN*G?uI(IH;Y+%E=k@};jcjOah45N5DOrfE7&66EF5Z^*+ zch>Ht*RLTAT-%@-Ow{?B5&5(-xSn&O%~a0g$4R4j@9vD)+ZXAlF4nqWK9rt#W3cyZ z#bD;ewaP`72Xin1n~{fg94~Y}?%GVK&A4Mybm-s@QK;|pTn&u**7a_U5$b4z?NLWI z?uj&h@`vGAnT`@uxOrqrSV8ho2wN44IHNjzP|0)1` zQQn2rB5@|!8nR(7KM+^V3fGy8M}>&5Yd@$V%Sb<*gq~PCwI*Ed)y{`$o?;TNYu+~v za@);6srJ*frB`wB1^l34^4ROQ>utOax-NLU>rt>uz5e0`T)b%Hk9TeZrlK5et&FtW zeq$KC)v@5GqNnvXBBi6hX+EAb|1UuWXJ!zLvpj7#^zu&|Nn4M z{_80JUTfJK)m8s@hRt25y2C+#Y!8yLfbxzpAaceXiBFaI)nXqf^g3&635+lOj$o!u z@Fh+3Kp&T|_yY0+SkFjkR{0GoUHAETfVe!2sPfGYtr28kyvb!vv22JKj5wktE^n_? zptX#o1Jw)^W=`3~wT!6jxeDq^d(n=Sq$VBF@sS zyxmdV+(KI1UIi_#d@P`u$C%^s-A4T-p~2o7>R5ACjEK_Y(*qHl#-X@zVA(26pp;RC ze!yx0BFq`}f%tGP!{WGl61z$Y$mZ23O6Ly_9WvbIPvDNKQ7IlX~cwLM0Hi zK4mDiMoi`=24*6I3>CMh{+b9woO+bKZ%kVUl;2?tJ*%Qr95?m9j-b z_Yd?fsdBaVN{o*W;zEV)LHfDY>Ypr6IG>0y&7%j%s@AhZ@?hkQV&5JlMwfKppz+3{ zkGn{Y=Uel=1`;@SA+e1``BEoRv}NvYY#b{yk=4`=^+2!DdC3)y7@PQUcFyE_3L+!3 zdg~7bn{g)Fd0?IbdnAL<*P%nS9Y`L%}gNXmNZ09qz(zh z^Cj3ojaRt1I0PK_n$9nM?6;Y3x zNoVcOp52iU!<*vyGe0w(fpzxD-!7s{CvNI|YC4rtC=0{DGHn06_?@nr4A-$uMmXIf zDg?oNp-p{N_?n_>DCqdpU6C82DV#7}MfZHT9iC%K?QJvu{Q9}R(xel ziOb#RW-LG6E=KLGXr7FwN6j&!(4@cCz>cOk7h*nr`whq>?kE(Oc{Po4T>DPyoO%$7 zbc^)OUgr{`F7yCYRhH_iN(g0*2XQvBBtPge%DK(1M0kqZjKB8hFOzBIuEtUCv>*zb zq?t&OlX?h+6b9ZSA<qCO+2`|{_pNmyuQyBp9U zRZYMT-5>2nx2MTo0$NwQ+EETE?WOW>KQ~Lw#p~PRh0!VE!(3sjQ|`e zdxcCeC9?CL-T@kTrS3u+7YIHJOO`xBVx()cp5$P_=ya#GVuA~&8j~7VB_X4W2>+m9 zsXgQ>DVw5KruI(%j{7^kcw<12%AmezXLOTk!@@Jl{(Z}piuG6sTSXleO~fr?qRoY< zrlkAfJ}i9GSg$T{(VZkeFi+G2RO^I@0y+9Q^E(IU?a&J9fX(wNj>=!4_w~jbX`H)f zbQq~eg=oCx9pij;!n&l!%9x zs7QX@a)#Op(N5IJ##!!fv+`u>OVu@ZBt0`W&qxX6y7=;XJ^lU1YlhPJFIplBrdoxO z)5Q%m(z4;)0UMwK3pMk4+!~tu_%u-;W2Ua7H{4Prps6bxn3v3NftXJi-fqm6#I1B1 zPzY`XN2Cxgl z=*N;7z9c5N!w|Li326E8CX-Idd9HgkMUY652Q9>71>OMt8Sr>Fv#*8*C9t9K-t(i* zal+}x(rhSnxdS*Q;>Z0Y!HlFR{rAe;Glk{XMJ}lxp|uHP)g90zwcUqaL+N*`$MTuW zvsCDOQXkY3&8!DAiC{+lvBKbp(Hqf$?`){lt^3M#h$AT*6^wcz284o=OHbPZ`5=Fo z@}UeDvO?NQLLY;3m(OP{LCbFvMAOZLNML0KaR~l>IKo0J#P}xM#!qUX zV_mAcO;m%`Y?B`zltGve%OFm_gqgRAC->_Xw~+F1B#Zhd{h{HhVMcKa2@U5eD???3 z=TF8#(Ccl22%!yDz?{o7qT&xHTKB173Xw=U+=iiZk;V*)0%8K_Ayv7$K4o{N?Q3zJ zLv#sEHRa>d!DgxhGFp^cx>LJ%AcHB@?%z5Y9-f%=w)?FgA#ox0Bn^T>#{n|^5&exnzjRAj3da=pus6wxaNRF;e+)fQ*kMuRRaP zMna-OJ*cVbe12eK?89G}3i;<4@2$sVTBT1|fXPg8=_oquJ<6$05j_CE+KwRN0F(lV zGm0k@gVily>ShL++F*)Qvh*|VZY-r1@=;~+8oPFEJN6{~UOEa>i_UA74vJE2_EL5^ z4+KCwePfFTADD2ScnwyfM@%$!5XB`)@HMvmnP!GM=u!^xbOPn?V*L7JLyo$W?K*&F zfeyj#^{Y!EXZ?CUp49DjOfGa-JEsf=W;ZWO-Y-PHPt~v?@8g)qR__`N%I$sr6Tq>T zC_@7>QF`Y?@zp@HES)X+g5V_H*U&Rs&+?*&Z;8LWF7aM%GBF*R4HG-*XzY@s&vnPt z9xSR<90klpcc!J}`Z*xSDWmu$wNJ*#+oN-8^sCxe1Wxh8p*Ch`z3o$V6O9qAA6h5< zZ~ClXsAoEj6#S@nylspN-xa86nV)G+$Kr=lspu4XczqpRma=8IRdxK#N0;p1#ohWt zLEpp6Cg6N?&Xz67kaxAuq^Fy(CAF^DDFTR=k9$*x%sDkm1#mQCKjL@Tx$Me43hy7m zzvvUw^j^w?<`01Q?`^++aQcY0;{6gFe2ta1WRSDYhC48s5$&tl-*aAuoU%WwRf;Y$ z^%5@d)z9z0XX#B(QshlL>z&4}80%^aOq5CyiymeU7m4N=6mrbL@hJ(@effUrb=Ya( zZp-xQ`_zSO?tG#6j1+sRL)>{ft}V|lROX6am9sv2L^*%}L)lHP5i_#uT+@{!A@DPssMNOyhyK!is_Eq61 zq4ise?YE0hFJf$u&S*GltA8;1>u+H{Y^sg-Q`)xI`%HCbNVkuyj2|Km!s} z`@R3Tj3@0O1nsBcOarV9hw|blTPznOKSVXP@X@m#lm?PBJ>Uj2H&Hj<^Jq!~$gVqTWAYkgZUu4pdTOb7b|X&IwlL0T zzCuTKw58Sy3B5fnAtj^0C+Q(!W2(cJryn8(CuJX9=*h>A~e&uXE$rS{>3t!h{jTZ#smPhW3>{OImuM_hp9_0XXpl5FEoJ z3ZVJvp=DqhGvRxS`(r&}PdK4Brt=1{L3pPg15G!MkD3UYcnhh^8?ca`WImmsHqIH@ zG)EJfum^Yqnjj0hz=nW0R|Rdl1p>}zU;cPS1re0#E#0|$pG^&alCZdagYfu_6h?|h z0AUVd&(pY&pb}ivYdoRgaJ|s8X}YA_yLI{cB1V+{xhDNH8{$JPiCZA3%6~$*fDK6c z!h_Bg=Hn;xs<~JwCfum$HGv&De*?EShVNU`B>jfUMH5PC&~!SNw3jyPGz&nl5Tm}n zHV^J?=`|VGg13QO#s{Q76uI1OIJJ>5I!~LY)im7nu3-Vfd|;z+E1f}`qxJkCK+~-o zASNjjC;z>*6=r6rweN+P>@X38!}8&LMrJoI!pc140je>kwvQ>I280s?L(P3-uK{pp zN)rh0K{shXHa5qIo@V{f6yDoH$Xi<0%5M0pLEaJwi zCu>?v`qAR_+HPc+o>;dDd<_stkx&Eg(+dX~!#EtA^T5PJXhrk)kFcy@2yNUV1;X$o zCLjyz`O@yr2L@Ok82%Lrw@$&Lxo8N%o2=GR5JxO7is2>~l*WAqj5p#GYUNit1_G|hu;|IvM z4^S!QU)9SdQp<1jOQWUwkc1D|f29|fxCv-@1twpC-rcYa>&$yA_RjJT~&KJ+O?3~oZNuGvfK z#O54D_9Nj2S~Twk-9_beNeeWXjtRA zokme9bQuFFobd(~G2^w{_@Q3eICOBO5?@vWhnB_@1|#Xj5Cl#-Y@$3po9w!T^l<)bCaS~)Q~r~A7rKjfYUgjxyhBu=mVr+4f5jn$ZH=PN1~vO1u?6!a*P zBc`rKYzYsDB4PTrTPypP6XW%w3ncc^EnSm8T2J~ehn5$eADof)TKf1Ywh>BTFy^2* z|3#EHQ_$NZpv`nFnV}roh-Rqt(`o(cQ}>d^C12;L?L1;1N%gvs$AY}MJeWqYxC|^B z=Bo5M{d2bMD_5<{o8p2|KvG4rtwi22M|CgkBW7a>;D!wHp}DPkM8u@2zt{Ma2;iyr z>8Rq)tm0s8t>xOz;CSt1#4*@)rLQpS#F)hO*1}LR~GKc1}W{0N|D5EJCI{q3XZ zo5KecGd3;h$=YSv7h1nJBK4k+ro)fX;hs!3^9bUcJBpI8;-g*&28Xxh=P=#x&4Uhp ze~!{3?vXAMcTiE?TBf9PrN<%{?)ow=E4Wc*9BtpU;9DUn_K7Y_j0#HY>bi4K zcB3nUrYEBkeCNU!{V6+)eHp1cA<4X@H_9aMh5l3qpv0xYL}Yf^ z`dst!izL(;?qz=IId~^}Tz%_r@#)l9E#V z>+<}$1UG*d3)j4;f>By;Yq#4I3v?|px*%F{B(IIMi?m;h@S{uS4SRJL$>($h=LX(%N{chM~c4Ya>Fm88y9 z3YqH4Xp-8AkH)WnLA3Efz<)Y8i(x=t!fdd!@|vG3S+nNYdcb`a2F&Lt5U3BKa3c{k zI!DzQk1nZ%ThH}PngB^pPV}5Qsz^*_ciz;io1zwotjUKi5H^NLLn22>;av)_k_~O2 zwM`^Eu-KbgQ6l@R!Wk<=gY1Za^0NfIC+_$=Z=9+tr5<^5r|?KcUHLroJlA|PTo zYa1XpYl{_ZzeyFIw4n)_v5YCIXoJ9wFa4JhgcTt&;ZqFZ;x54%caQaemfM7Ff)=sM zo3YOcz(i`WX`I?n#7W|RvxY?ZX7#{74-CQ9B=Q$NK@J{e&~zjOfsh<)C);utylJA= z`{OZ*q7QfaUN7MxprAX{nm-;}MX91D6>u9T&Xq%_KCuZ)YqItXL-ouo;96>-yUptz zA}$nepl|SJ4CEGJ3B|Pb2qY_6jFWKRhLqzlW!(;~3@H$afc3m7E)`~3 z3v9n&QNp?!C|s8jem9X=H6>GFl6UB(}j zPJVB~LZ`u$kL8J}twR9hJqS3i;2BkwRrYsP_S$&8q55tNtM59aDzqtp$!Y-XG8!a& zY|n-!I@#|*7=jt+u9nfd^~AZIr0n7j5VD@+r--N{o7-IrTy&KkO&E3Uh+Aak(n8PL zUa}Hmm)ZZp)Yr!|z4!lLm1bjO?s5|uiS8{Skr*lpQ%DiBa>{Mg<)(-oHj+w8Hxju? z6fxD@9GV?lH=I*lvY3cjIbCMWRA$a*d;i|fIoJ2``~0zac>jaE)zF$BH-PU@ z*2OscJEC#LHChkP>%Z87S#}glc(Dh2N-Gg1zV^_w{x zlc-!at40XVnT?@_9rzdu(jRN|qZ;Clc=~Y-C>%9mFpTHE80Q<1u;~FAp=WT$18opm zh0w5c`yL;lKM|OJddJ15s}Ei4&_+6VKz*9ta=Ycm23uQ7rr*}z9c~J$VVBomYREy0 zLs#Ekshd9&edWB0s&qwLhfTiy^#%kBleHg79_6$}2K>sT?>X>EqjTgIj zT_MzGQO{dmEM8?MP3hfG9bb7tPPQ4A!^h z%Io3pEdzXjaouVChs##%x9RT|WD)^70;K#9Ba_hp< zRI0|_wOuETSM;AKr z{=F|YgnV>Lqum%R=2DT)$ZgMXf<^(NM%;(K@4iaNuT+94vZvu5_=dW`+-*Rr*KTxjcV-5;Z73N@G7Pxo&pN@iw=V7W?pUcM0W zC(f3B_K}UbNIoM~4I0(n5xv-KE9v7AFCQ#E(^O0eAx`mS)1VvnpmHHUjSt{|l2jtz z(ww|6w`nWEYK>lm=%7KmG9{})9!{ELS~N9`rtq(S5$N!t!tG=sfNu@67|$s>l6TThUV z$F(Tz54KS#qB*G4qrg<1xEPK~vOuP47?C$5xeHq@5P0`b)kcKJ0to49nFb=T1Sc*h z#=3OweCP&EN!`oTwCqM{U_3gy7TWzZ+Pzg$}wZ zTXXyJC8b=#_3_fE89gGmbM?>7T+1tSvqM3=G(VWWGgqCH#93)TGeKY@%RJE@$VIUm z;W2F`dLusQa~Qc{PFL|)_xAUTT3X_Mvkt8M%@o&%r>0G?CYt}Jd24&UIx4)0<()IZ7-qYk}4WRKf`Y#&9zNaiOOxA7F zUCp3TUB2Cp&Hqq-9sTf2;Bk*QUJf+H&VjD^B=q&&N0_Q9LzneAmEDNc=yeAzP7*E7 z-MKXRb(_x(hRSTFyz%U&pH7|1(Q0&=(n>wy4$wR@6ZtOf-N8>c=%XaMcrTJg{y|Oiyzgg{yWjN;2oNn)P8At~T%kY_~w-al{ zo~zAHo2F;b$?COt^^iLn)RFe=vrqy5fKUq2&jYB!U4tHKcnbl#d#S~j1mvWb*6#ei zE0cER)?R(SHgO_OtEpL~fHrwo4^MN7w%f$;=S298|Nj2^ewz%7SE)vuz0+V+f;N|( zqaKaV&COyz@U_0HN1%D-pxlo~cHr`mPchh8T&YeF7I#|TPVX@8$!Xjv5B#p}Cf^Cy zMG=F5A?<`g3jOIFTFRQ0yT&w&FD@4_->r=<+rP1Ey!Y;fu%atb=ZEM0M?Iol)#aEZ zf{g6M4WP0S8fTDd=wBnTTgP*kyk_f?d%LNX1K7Hff($>E6sTA{HYVgeqMUOk{hYDI zfa?yMZcg7B0teQjtH*4T$awGTj@dUal^s6y&L*z}7u5s1-a?KQ!hZ<5(qZaiYN$Nk z!6}I+v|zGaSq(3TpkW%cuwc~?)WOv9`-zm4B(9h-X){)4yk$Q5*|th5SzzD9Z6`SL zR-Y^X1r-%meeN9$l$_xAcvllA&c{9+Z5Y;uvpp$`erzD{^XCXR&v0gz>c*gJtkP

{0nj)pgMYwsmjl{(Ag>Hkz3HCw~m(nFYK-~M$)w!*m>`d%S#=;H= zilf10>JRs>0K?BwM94T$Chp_W6$U^`Axfu)!zt3fcJURa6WKLc>C6Wz5ulYM%E|Nl zcysVlJ(q73BAW-jXKcx#UpG`AD){BBE<@{CQAjtx8m_e?#|kjn_Hy15^ zT{5`0oiaPo@a(c6*bNMa0>FpJrrE>B_QAy-+Ca1a!FW zaZpT7IDW>BSO*3jEnZe39_1{#Y_A~G7<259`qmq{EnJWgGNKtP+*}U*3%aHT{aH<{ zc0UEB5hzrOSbm~v;Lk$YBlhsZ3zb11?9mX^Xlqz`*oYTV@oOzn)JwSNl?G96yosy?+VPc-@M*@Pd$HvhKUlq7K=tm(nIIk*Dqq%4E0{#KMErY!2F+p7&n_+~5 z?bQo7wKJ-0TdA+tUTfm*)G!oV3hgpeA_ttvRtgq57n)s%3VC2_d%^j?FZ?>jF| za6&oAUDrpBzbq!_e$97^=(#t;Zf$0xt%L#27#ug%LhU0q8fwO)?N{nQcU)@&_ju9x zmwM!y=Sgf|2Zn>cIql|@Al=Sdy^ge3kx$CDN+rC^EaKjBo{4fP8DLW3*1~yS2`ry2sz&Kz8i? zO$yB)`=TAx1`-Li$Z%n;o|=jF>VHx3|Awwhu;E%-p>Z7hdY%7b(z?kKbq<28y;y*J z*md<_rq`@G2~O^MO>?uiGUl??z1?C`@&+5G+U6?gwKaQ@Im=46?l<$Y#}-AMLTe=J zm%-QR{`b=BI;MdSep`AMiJ~_(_a)z@p5zjKfqV*VZ-WijGiqPYnAZC{v;KCUdqPq# zxCEKke;d2w7oqtaPt`=qxF!?5@y% zA9Le8VW;snpKbnq_T0)l81-bmWQc7J=lYx3V#e9=&PY7G)~CL6sy^ja)vG;WrL)>% zb@f5cWbrQ+^HIkd`~tx-WgBYV{VVj+)t(+$hRkInaWvf4N(*Shs1dC{RQvKAK5655 z-0k*E?TgY-iBg)8MOO*Ad4B!=H;cJY#ZTZ+36(=J-Pcy-B-HAn1g;FbgYRsji`i=m zA@*wo-?|o zr?iP(qAb7|n^kT|9*1$rFqTFSj^KsPsE=?1>qK@&I%=^~%Ut)pG>+2!@9H#|9zeEC zdbc*R+o!Ymj9n~BJ3%*#72ZKP9}9qpLXTN1ZQ>I>m@P+(1@gwGT{wE`l17zvHbw4iA50&c94`;QU;wbYci3_@Oi6!8y2v1 zk&yo&@ttW1c&OppDr8AP{{sqNxp0K0u9*K3K$?f##ND%YSl>Kd?R~td4!SB){&AQN z99i<|g445YVA{76)0d)`;e*XVm&qgHg*); z$KL~w7XIuq0MLqH`F{-#ana5U*OY_oVXbv}x}B)hL1vTQG_ND!P+X?Cj-rT35Ff7i zlBl$?_dg*`OQWdhgDmJ3$4f~mVLV+WZz6$5>`vvzVP2p6(5LFZP(0XyFd)IEl1lhS za9o!^XhcvO(S*ai{(kZ!d_x*1e4uu4P}P{=a*(&61erA-%K6|!xfo1|;VFm7L^41L zZOrTp>PD0X4>M-E!>!8?kZW_)^{Hr&qf`TUz|N0Q*$2mi}G)-uxNdtL}jWzX; z9GV*_n1oC>Ws72;IGr)8`Hcw zthNkaRoR#5GaSR!hj1+yTZ#^F?~4z7>>J>|XybCpCOv_6$ESmrpfzVg`ae)J$jkGo z)_spO+HVXa82`6Ern1}D$q)K{t`DzAuQ}KXNk9;c&5w@{H1$-&6gs-W2C)5qJ>c&{ zw^L{^Yn6;Izt-H$hEvwOJ^!MvV`IFjIdSL$=d0?dN;XVRzV^lz7QlZFG?u!qds$w9 zKpn0Hs&*H}(#aZ2PBxMM)1Dgp-e}5^zr;H6n(iWvaIvjaH5K;M3d0bcxGUzW!%H4I zT5DeAkVlVJ*wy^h?nWBIy&bQ*s*A!2|qthKVIqEXm59J=AMzfZaX?kf60i)k8% zl=cnM$p$>?RV~5t;w8S%9db;z;`4KSyRW_HT=gkBGU1H0#!lM&gnRM_&fa{cgpjL| zJznDey8GwST(+(g!czw_Zpu8d`+AP$2NwBTpEmEom%cS394Qj(rU-Jl(~8UL^%8B; zWI)uhNynnJ;!ZVz-uQ%-qesNvm8X*?Hew6kIpz80tQAaM&>q@=;-?zeuPPsHOGzR} zvfGk+UWG-nBky>-bUQiiz`cJ)Rr`L9W6AI3>xhPk&ur>OXwButl|fs+@* zG9Qp$SwWM{Hg^?T?NvnZ_=4@ZAd~?))1PTmavJZDV(JJP8zHqqidO&G< zBh4i^-r`lq-ZJ|}OhO98nlfX+7;g}Z_gaNO!i^wAHu|iMDyi+c`qZQAxqf+%een-# zp;OR#laBDw)K+ROJ9fy2GmK)uJ$0YshNC$MJ^WNe)@F%*6DSM_S0*BNyPOz z*?H-{ys$?)Q|mR#i8Ug2-KjANO~|<-7IU=MthE)HXd1^1rh%2@KLF1h)sOqqZ_#!>-=GAJajm01UyMpc7q{k`vSyGyt_*rms% zH!=Hp^dUlb6(ZoUdkx+LVLEfJ$f73mOOEBLJlq94w1zHp@k!r`h;?Jf6z{69?W&k5 z_ne_>%8$R)8=nd8i+e#cuR$Kaq}XYZtxdB>2I-7P&gU(+*(hIq`-}HwA2-|;DX@t* zCf~|@=kj}p)lR=L9SgZgpiWkwVP`S)ZG`m99BpJY-u=zeYLp!^2W4l`Q_wR5-P-zg zuXHm!ezbbU`M&a9hwYFQYb(!eZ2Ks)7$ygYWM4JO{-dzTt0zL_K3D`#8WjQ@!7Q~=ybG2zMo<->G=(5 zTD*0-V}rcym*@4V@<7h_{{hcCsJ#V|pZ0&jq$8NlSwcPL`IEl|+uBlTHwmZ)m)AP8bk+H+g(r%Vs3;Py5y>aL_crj7Oy_X%Aj$3S@` z{_bA4nNHxQ+nQ6He zamEPk~UQXrK%geeAV@hRm$E*|Bk)dL)(eA?qZSXQf8K$hz24i^&|^=a8$wV z)dcj3vPZ~mz+YLzJt-MT;i^`!WGKAwQ^mbQ{uK}S)n&x#W@h5H`xGUQFFXr(TmLAeb}qWAVCo@}x6i;R`pH3*DwjgOZNdwvcuu0jk1HG8J>j z02NT?ZWyS8fY5~-g!|P_Jk?6CBvdSWo86s17Qjtc=zNROi>wGbvBvcH!Q zZ&5pZ5PE~IZEOi=bi#~xS!|al5(>nY zNIwC&{B?4PKeSTvUAee7D#*uEk0lWvBO&;qk2H;>x_^R6t0`f5dYY{(jJ!A1`OST` z=aP8wHZfp8EYIboD*~uYmoT5Fu21J!K=r}-xGj&B2s+h_d|`0=PMG!k3=a*O$#wpB zIT1#C=c;H_SU#wP$Cv;|i`|P`zR?0Tvn~5!bO46xLq&y-8RV@XXfs?l|ofA%O{Imls4hC&zvZ~z5OrqtMQhgb5z9tNoB z9a9_sbffw4{$}WuTF`0~JUw&Wp=iRzvn3>q%YakizmAK3TMKWmWpJ0T9|#<0*Q3{~ zhRLC@Z`pPZA23*6AS^gqhK-NR&Ou}CO#|VKYv?m%n%irArh5Dj%C~Do+<)f_O+(26 zWSHW*Cg$p|esCfmSbN)axkicKIoq%#w*M#>t&0hN@Xwp}zWe(JyvNpr_+ZPdnB}cocJcI9`@q{r97M!f z9@5*VnJ@#nFtr3UmK>D*(nsf7hu^Pl=L+sU{>fdS1hZ^JYL1I(X5-*W!H>?FWEmz- zxqB!Cl5xF!-#)*4;oHtmmg@Yg7tlOSr1izq=v={`qbw>fSYet$&Xl$^ZVxK^tq#b! zRr|6&p2L@rf(J4)DZFpy6CVy85NN6SvK~IV@ULIy3y&XXrH4~Qpzi5-{)yK`*m>XV zr=F`XSt1K_duZ6Y4F{sIN3gWMl8N-5tD+BTEIE(F=&!4114?{tBI}#sYud9{Affkc$)YI94*y2&_&#lmDQj!*(}m|YKS|M<-+IJb zioc+iZ0S_@1B34v(?xY(GbadkD)M%<|5QXYv5691%UhgaUoN^*4ClZz`LBkjsQwJI zR$&9pBr=ya6F^n7D8$3mlczub3PDHojK%mb%Pw^H<&_$F{3k!(>NP=^W~jT??s>Lw z?50q*FJ?yUcCg9VVs?7e5p7es$OO~2NhU&Y-0Kti_T*hhuL2u`iPan{g2m8YLEdf= z(v2M#?Qs8@wWd!ls&dBHx&+satz818T9sZ%(_C~e0ZxX-?l$(RELF-4DG4xLTBRrE zc5)d)ds7J0!2GxDNvF7^F;n{yZ`|;jC?RyV#C})xw86B+vhAm$yy1MoV!XG!w^M;G zih4zfUvUQpx=b0eNHEljKD&Claeg%AqD;^vyx*Tt$4{-;yI|*8pUJqRUGHDqz!)Yl z^q@(5M&7Q@8l&j)YYUxusCPS0>x^A^ZWp@K9&Q<7G!5L&DbuHvZl0l6=!bx6c82CK z%XAChDUNISS{64-_vwdpIB{pq5ZQ&>vIcwMN7NC^5dz|m=XP(TB4D{RGsXN%bGhvw z-n%>4bfHw5A>q;IS;?c6MsZ?@=OcL!x49Ge2 zSB|_l95}f1$01^vv?wRs3G6%niM3500`43+m~)QZ#8d|7Gx@w4`Op}ll=^|F0>cJ~;_yWiXmdvs!j_tX;J0vi*t8ZtE93@ZBG6}js0(0gc zukKNHi7O~`Cjdw(T^A|mPj~H4Yl8lbtORJm9Rau<{jWE<0a=^k2SrnyxaHgMBIyj- z1W5C4wI(5u(cG%1k_<(=gayxvZNq}QL?qQ~g&V8&CQGiGVG+g90^4u4lk(^lmv?Rx z9K0tg6Sq*NW=}0U`=Zu_05iQtt^2qr*~%F2?W0wP_T^oZol?XMuZ){E3=1Df45tX6 zIv>txOd$qer?f_QDOfxbIC(fFR3fCD1bi7MGeiGQI87NC{esPJg4rnzaKi{?KYzyNjLL@yp%+D#E#nFojzhg$@T3 zbR|!OL9AeNP*;!G$}kz4t-9L7gj!AvblRjIJIX-AM#mm=2^$G#t?_{dh;rKcb&e+d z+E&iKLoo!}P;7mfQw#9v(&kDIf@xOjYaj)G7lb@)^%1yT_N-WnvBx;TF>@RG^49_( zFNQW{6v6H?_ao$BE>}W=H$Hn}BNAfhuMDtM{g*E`=%B6JRw7n->O;boNppV?JEp;; z0ljIob;aO3TYa(jH(b2I{&pCmAElM$wItf$pn%rYL#^x1?IemF2Atd{kf!#qe8vt-8HEj}L}*XArOjeUN5P^b2v_Kl~HaZntMv;)UzP}WtN z)H80)tSt$7f)m)6#C0~hke4Fhk{{Klq|jFW{cMxPyVa0&Z5h#h9bdl`vsJ4kJidw> zVM0f*^|kGfu>a?QIy!ojcGqqWQ0jD6##l)udAbs5-cF++al9TX52dy;1%Z9+(;Ru- zQ;mJJinht?NzH!H+Z<{=utYs~wdLU(`+XU9@v-@{dK<1Af588KpQwR-%PD+UUaSIH zCDv&iHDl5}T=E^vW(iR$bqUMf`t|qR)y6Or*g_IZys%(4lO{?YaF&k1yz4ZldO|1dHx4K0-#Hb^(YdMiU;_3kJTWes6`hLob-mwO47p2=CMP}^Y z2~Z4f=sfZA4oE)FIay*6^P>Ok&&Nx)mN&YJFDTRp$i!^?Q< zALH>Cw91RFcnNy1pslMST5~~Mm^3^y!yFc}Q2&)p9T9D^g9=m!CLs2XsvH8Z90vc) zUberfv-rstZX41yR&ezS##J4qu04`>Cxoz*+v~YVX^yhevFPngMd?B>*UO@`C=WL! zh5L0&?8|bxQXVH-m6uDJYDv^SUndCm(3V{J^wlC}N?1c>n4qm?b!7Fr7=b#cWx(l7 z_#v|W?8<(m^&ekggO=XRg%qVfk$yeycjxV#I#lJi_IAJ!8xfj(g(4C)fGbR9xJH{u zTOwt(2&I@n2A4azJ{^ci4NMA(Sj|=>R6A?gLr@FyjNO4zC^&{D^+b1#hnrW28RUEgG}=b#7^j%}IXwlD(HIuYU?tcxGu%RNcal2Y;^cKoWo`KkYJl2#G|&ha9{?8&*NxE2du2B77ueiTFIIhZXvxp7 zBs~7RaOq&9w-!>>;(V>KKaKm3ciWr9bkjWTjHzl0L2e$^x4`8CHmOw)dKp(B3?9LG zc`&1oP)UaDILtC6q=m)rE;Bk>-T6-g2=5~Ey*_UIQ=#X-6T$W2+(W& zlnM>$bWR-U@A3GNzlP+V9&2_O{}*ljaKX+=Gl}fc1cgwGhmBW?Wd3q9yINZ0vr&F)d)(VL>!dVPy14K)Z=M=yp=!qA ztL^4*c6L?7(M)oV`>$PB^u+G4*S|Le-NE3-Pady1x^|CAZAHDZNx5^{0&?bxsX5rw<`+z9w_!*V1J=zm zMI;YvoxTebMxV6M7o!eYd?B3b39&$6&shZQ-fmP!6sgd~xvR};=c*7@u~nk9xR4HE zpx@@)Qag9+GoDNJ1Z>f>~e9id8*S9uyPPH$js?YuxM)hFa zuoI-#YJ9bej=T`oqQ=%n3G9c{nMy=y+`! zb_YK?uQ9be>s8e$?&TEc$Lg-pR+oe+NHWD4F_)xF=>VT*B`wLe7iU+qxXL({gzFb? zRX$qz)f#(dk^5YSQLhuJpE+dbIR`6yUN*-{s5a^p?SN{II?rHV>#R=o&Dnn|)vIF- zM)%5~ov+Ok8zqUS%%tpV*~eT1`YEznP%o`YRIvc#*=~`KTsB;LZD3B8l8|}eqg!y- z?5qH)hP&EwMCtId|4Q{BtL?fP=?&SXU$KwHl72T4ExJ%GZb z57HWI*YOL6*Y~-R4h;@DBxtcieepMj_W7J-=B+Rb1u(+ix_nBmkWVuePy;j^Gv^QO zGK4G=A1DAwB>mH*FhrQkA!lGSf(6YXA}`(vDFQZ)9s@%+nu!3CV79zv70AYya)b zTw-^QW}kv*|52!SD6ShiIdpOM8ilts-}1FDf(%OSbfjbUGI!OsV}3CF9a2m_N3v-{ zk$KQd{>A!)y100wu&}U$CZjIt3F|W(7wk*OVXl8wiy(OG>4c}Q{dYM6X+*f`jBz2N zuKik3yIXM3SU+X9pIOHZgQwrB2Q!-rkSmP{mGPd@xTH^}0l1-BCuq(AwLmYiXZ(%) z32#lHD!sYY@PDQ2GV&6$+VZ_MeCpT2rP26@A6AZzoj~FrUOi%%x67QAH9bW|uaCwT z*O=8I^xQue97Bi9(*8QF#T(BJOBeglWFt#q&h5SvC0FKabzDSba^s_HTcz>-Ppu^Cw36E44!JfLQfM~Uzp!axaj}nEuZo<$N@BDlpT-8m0Z)>+P5q}&#{S_#r6)WDetRo9`!`*I4rwVbrEk$+d<|BxtK5|ng-{IFU#APxe zLPT$*h=%#HHesQ*((TCLx`&i{IS|qJ?u0VZ$GvCue3o9kI+K^}xAZ6EyLIo#h>k@a z1CYMQ_MJUw6inO!bu6gv;@q8TNucvUH56^qJS&S%u`n*Vn|E@7LqPo92l#GE49C(FeOpaD{(ha)chBEEy~N|a>dIUp z&nKoXC#M#Bu@im+p6`6W0ql>qH*){&aT!8KD+mAKF1Z40X_^yy&HP)8vOZHGoA+Y~ z8_WeXs0gjmqgw4OO-dN2_7j@ZuNBykt5ZMdE<-7XHbc-k+lzG-|?5@;D|oynVTZQ2{gUdlxT}nfMQ?}K-}xTEUr$jlbI;5 zJ}C8~xxr%N4%_BYTs;SffaJ z%-O)2duCz0<+}8p(bGAYNZ3Mxu1Iu|s_Gz1ICo114pS6q`&2@3_MBX~Ft(5~HwyL` zss;zybj$zFv`C`MdJ%ZJGYjg`}VnX){dYFVl2etfB z*owi0h-gdhWRZMdcEl(QYJg&|pnhz4xb@nw&?ZG?GO}-O;HfMe%-xEqOZ9EcnmxsM>7=GZ#=Riwa zvJ0b=PESm5rF>PU9T#;rxE&UDiJ^{&E`ryTPO%WevLm^FW=t#g_Qy0=Ay9|%`fwb5 zr2Q&O_v{gGJ)}!Pftv6VWC;(kPt{WM4Dt+inm69(4TpxR8t9@K1*}#im2B%*DV_3l zt6M7b>8>rX=2x<#nqd*W?ODnGu(E!LRQrN#zmo9aWFKK54@+P`mn2xQP1KEiapX(b zt=XF(-dAEzMQ;oq#stTqLjAAX)B9ATm^_27fdp-zmI1eBR^8NxInh6j8@gtk2A;g~ zOFTplv1})XY4ABnhYXZMOn{^Fr7e$9-Hwo=z07?M{{pdoy(1n9golP|;qN{d8U^tR zx;(EYU^>W+kG$f&@U+FMWLLiyU0g|q&7^%_s$N)dGqdhN@K`+)UlOQQN><~xmNyU> zeMe!OuKQ>qw5NJ7REzsR-A?J8Z%%Qq{hol%DXYN);GvWyqmiGrQ4s5y2zgbupxskD+^z&ezHp= z`^FbLi}GJ9Zx033?bje^4ZaiHlt!J&x#=T=z9)f~vTJ&FG&Qdq-Q)h$f_5&EC1q50 zWQF|JBzUs}wt66_m^CXlOqjM1_Rgc6+&UIW%e%@`pbh+3#9=AGsk- z30^6MO`P}bsIN`4ciz59ip$IdjhR<6f;Kbpw_NNd;WbjGJoW0Ea;##CH3bLCC9`Zf zy^%GL9!Hw-v|s%kc5|z=&N)BaaYBvouY7+C+=b^v+^;$sXQ|Hj>gqs@szWqNu$6i1 zsm+S~x%tQQqOq4XufDKC!kTj9>dpYK`0XVJQZpaATOTRBXBic+j#$1T=9=zQLmUr5 zR8RvBBo>?BmxxKj4+zg4pn3Ati@#fX8M~tP+|nm5 zyUOu;71>+lo!VMu&*KqB1Z%<$p$=KZt&9QR%Gy zQxC5Qcb{#F)PD&07Eeegvpe+&e^>A1duxuBbEYVLvEMc)ymRsGq^RzZ z#lZX(_>ME27SY2KNgcD`F%V6aCRgy|21Lr3h}Ag9{8to9EkmFZ zA83;hAxjKMmAw7mC2IhZ2jCH?d@oZqh*uQ`h*~ zibY$Y`%*!MswhLnf~}#7FBg$0WAznEuyxOWj##K!M%^`bch<E$GRnI*UCO9wwVSwn2 zv7h(#C>Sj`nhlMTs0LWJI`$J4y&;CIWfn0|GgV(dv`>*#96MZ3@AOl|WY$RANDB1A z+=n$6A{Qz8YAw3Bp>VpcgikLo~s% z#dG-dS7rL^#;PM~6sluOF$h#;WGULZ90tkn7lBc;tO@blG_c=%z43=e>*ud~56@PX6vmKd2QQvZvW^cp@Y_!z zDd%keXwNsiy46L$IqHP<4i{CGy`UD(UdY(u^14U`L$d#fLm#*~dnRcpQ{^V@>}0Cr zNJ`3naIRErysYvg|an>GaNal}y4Pod^?$;=vB7X~SO8VXbjL61R|@YT)9}#$C7nouD~k@yj;)NbRI2 zN>-PqDvzk35Y##D?DXU^$XRh?6eUHysu}SMj1;STiG9XOF%E0aLiY9tUDK}UGTr10 zo<(%8aeJb9L(i%2Fz(ky^~*N#hJC9l#!J@CM2O~CpDDx;Wy%!@;DwGljLIWSd{}i+ zpP46RiNUlxF|=X-Ci@}Sto6s6?&xgC-@&+4-nn%)4SvAlXSDM+NxgagrnH!{%r^sUd&WiN4mI%nO-P%Yav4L zQ`$gDpp31fDEi>QlH1VI7Qu~iu`!zwbYC;ukOKPIA}CU^Hk8h3t2SJQ0nYmGDTqCW ztYG5*W9nVtnePAp|L;{|80LJ4oGD#pNpdAJRL+!BpTw+GW;t~^6tOFtp(E)aaw@Ed zshpbFW$U2p>aZ-ECYI{DE;B=2X0_Q~|Cj6f{J+2NZnv}!d*7CLKVQ%1^YOSp7C4L% zMQ)d9DOcJ)bBx$(;hbMUmp>*>YGIXu&2-4y{)Pn%2)y8>-VzP{a()YUggCN9H0t@f z)>y7I-;u0XU`*5L0*C^Vw3k9v$aia(wE$>=p%~3F5;YL+3FmvV8L%2*;dafptioCs zPHdf&_W)gWw{8rUAv@x=J}9D;2xOQY%P^$M7nKhreoqsNmM$=+&Ow6=l-xkk`ofq_ z7!zJ)^{#p_Y`NH1#GS-~zm2Dy-57u80p6bAhy{_R!b;eh+zR9bht1DLORK?R@FAV9 z=i0&PL9hu7WJr`s#-@#JO#;x(#pTFH1{nDaso_FKt|oq=4u}sjln`z-yuA2hpRw&* zp4C2gB=02BtT$mr+W6nq6jC@*j`JjT326ONhJYtR(+~C#Ww){5&paTn;?#!C`8!Dg zXg3B9scU=qtWbGa+%f0GIWY5@1LU!B`7ga*8h0o4OiJ^YT<2mt8L5nMx&kOCAGt|l zXCBcD(v;$Ss4fK|5od5sR)3xF#VxLGTHpm_k1*(pVL3J>FRWFw`>5+Xk?0s`AMxNR z1sgot$DJ7pXP}(!5y;zH>h3bAU>W(9W(ZeJk>L(-?WEf1kFv@jo56Z9%Ffa1yhYJN zY$;bGuU6Guywkztwzl)LNpM&@N>E;9dB%0T#<3H@T_=! zJg=*xC%G1N?4PkArVz!ZWLo8zCUAoFLn7d-aIQ=$AGfQk4xDSf-7g{jbgFX$N#)-zg;O;jnP%A`Pm|er*(pok^z&rEh4#r(J({q zZytfOAEsy~4~C;jA7B1Y6>@L$O(6L)S~X_UOWGU&qlzq}bVo?Ykli(~ziM zaX9IcOK;pnA)aiq_hHh@gO@(moJVBe^!ShMg9{zOJrTRHQ>oolN?T5^i9Fz^Gvmza;)beV1|5 z^7#!ioFJ4fulUl-p7>?DCzfn3XBVLZ$?*;(gx80*(zqB!u4267tpglEj-*6+K;8j) zPzzmCKZv?v8ft#S1VJuzXtXV>^!cK~Tyq3@*2UpcdBwS}o0{vU`{xf&1+K06{K?)l z!*AZprw@4v<#(t*B22wSYrB;s#AAO8;gM6)b`+kx0p(kM1VdEar3#6=gUF}p_q|W` zzG{pjTd``-+xWO`zJ0ssx~s0gHJNNZwDII5OsW~o#|@|DW_I3Kqo2xG(W2~pbYqWK zQq2RmQ?IM+E%eWkDaZ#ZUnrIS6+Qjq{Ky671Sz>nojP<84>3AS)mrt!>xGl9BdVGN z2sI*kzx1g@^-_M&A)`^F5x-)-R2$51JaPA7)e|oh3FnyAJn2MkYN*w$B-$)RMd(&B zD=GGOGh3*}!ztz7?7{N)FkkkL{?iY?Lz2%8PkqY#GW;F#c3qO0_{Pu)Zs}7qR$k;t zQ&?E`9W}TsYV$?7Q}h+vK1qe~Tk;wOw>cbQJ!yYz=z?I*(Sl!4dkL=GIE@Pv4J>Y9 z2Q!!7sE->PKDqv8_UGA1G&|eJQ}0CL8^l#NA5Z^QeMdRMWwOkFsfo0bkYay5MND4GPtoNBDd zij=4*HT)e9TzRTxVvx8@_ zp*GjH@<$ejj}=HWi?fK-{KY%(z1W?SP>C2_TStcgu9#H#(b`s5vmcv6%b2o_)?BG!rmBr!p4%$0w??g#2OJ z0v)%7Gq<_Dzm4|EiYZZKNn*P?M^fj|O1ezh+B*C2NiNyw;b$#@C`U>h)B!&p1#dQ8 z-f6jL*j2t8Et0D%XmT+W#;)Ql%!SQzd7-?Jg0H_Qi{U0yBA1RZl;p9;!jF9g;+|H8Am>Hg&K=m4FUmBr zsmi6|$Y_G2&art>`UQicQH`{x%C)6fWz_?vNFMsL`HS3s^fDIhAn59yr2if&6a zqh)olPkG|1v#SN2EON!0Uyvz}bW`s@bfOYxXP(Sw`R+S`)!_5_@-{weUotC> zFp|my$^A{aBTeG`l94b>{2FL$_}UZ$&z5sp@OSwH62=xHrk6CIf*w zfw>p#XL9g#V%V|)W0X328|S0dae6eMqXKE&MxF6m-`SViHz99lFPhN^$~Nlze`?3B zutbA>5c-2~<-$4XV5XU>en(AtTw15u=suha(z9sBYA|n>S>kGbz~=&#zF^4Os}0z} zn_w+8sA-<0AgtPF(zH_FJ5=FW0hHUWYsmkWB=~VRp8TAiU6q(_WHy%vj|`adi%F(y zUu;K{0!6qsH$5%4)2bwdC)^^=a!~Lo)C<8r^`pLlzVe^O@1GAQ-h;?l1e)v%4=FbW zL&K+Bnk#LlaqOdQ5L=Ig7$i({?dif?eEDuotvuob9sJhm|Mz0}%nAO0@{kbKct`wg zsH5loZj-g|-@2SnHscJs-+ZY$k`w2AV){p?Ku(a6{+>_ZdGF~fB3oPJU6)524Q76W zH(fK+v|Ek?q_^w%6Nl@4+>fi78r-+Oa%{%QW8a0>tdSV9IleHVa^1Ux=8VYSDu)j2 zLe3^#Le7wSx29Um*FkpV;%#)}U6;Ys?_R5IygjBhlBE5qMYI&{VR+wsnh)?7ZMM@yc z!p^!&FTxFiOd<=C@X{&{;vj&p-Wsv)msiJrnr~KdN6n*->{bmkv3=Z()zBCGnzBNb?79JQ^o~w|d3cGvT}I8WsN(Gg zH%!phuzxg0@Alo|5+5dsnKzMUsEdE#0e`o@7BJoPW9d_!r&y&b0^iNpGn?U@n> zJxEYT+F6JCy}kID;%be)K2%}#Xz)s6zL{==VcsRD*S7|2bl2^n4v%djZmDJBHOmdFhrl=>|}1!^P4YL#XLrTcCp)qura@Gp&msPyA!Cn?Gx}U zn=;7ioUaaGLEVeC$=*H4e)TxL;*Bop@AQUX7|e54dHW&=AfBxi+`>|4_DcUNWgs?d!xU==SFQTHa z!s2FXEz2%1yn@vw6trY6k{E>UTF({*O;Ny}qhiBkVX!4@oL!iho~dAk%(lZT$Aob! z=%Hr01y@&-_y|w60M@>3-b*$7bk5D}#a6%BQjc z>3W5ycl!9+iRSGSOPltRwGcFxm@`6lTNLLck6meeiAZ*qtq9~uPq$~W0LB|yVO(@M|D7@sI;FWBVPW^WGt?}1iE-vNq9+h}8AiP(GU5dn?!19y} z_tBpiK)ga1_5L!kLeJh(3sxDSsI7%I8jEEp6hw`_T$wC`xVTG=GwXT8SpI0k8ThGq zZjv&(^ikl}azi&R05CPbn!=ZfT^<+IT(zAG1Bz2+H=qOZjfqs2$dN5Jz&WhavU}j+ zMF@$2PRqc8Sp2rP73X%4N&*y&^$y?!| zX#vOpoI{L{$-wj>KnKdY94c`fZ0&=e37#ze;6fb(5ZO*d5ltq>x3fI6TNO=5a%nJH z=3Si(bmJF$0>sLz{Xjuu5S4sdc5M&$P@ia%^F6tx@*#sevSYEx>6lkb&bLrjBB};NCAQW&Mua zab=zI9c1M`yvd7WL@6fAcgLHW=VX)AJyKjbR!ho;EyUJ%w%Cg!ShOq{@2&yw{vv$-3ZWaQgr?qg#p*@u z`_T}7Kq!ZT28e3dST)aMbVTjPQ}n~{kZZPS!N!tw1{r=xz4`P#@5)06=`PTli`APErf}}-%EULHE=){If4=j|52_j@8+u{})SFiE zksGhDqTAb4%REsDlPtpjy%c;-3191D^LwV9pL>$&J@jo4=+)SbODQnB!+#oF_P^8F z-$_rd|8{-X$97xz63HKx9)Sptz`A(%qvra1P|SAEv}s-D-Em$ zeF~3eX(Xy_?tS&`NYXUwiY|I*@3}W+O^V!k5<9ykQM2a!IR}Iby_FiFGiZ1yM}i=wnrUon-ry>i-P+=}zG* zzk1VQqILP(Qr*JeKcAwOj1GOQ)nF`U6M13nRhdTfcX~sjwmYD_*a`J@mPRC%jW%$( zJM-f33Y#@QLuhWe^+zug_jT^JWYbLSw(D=NZM}q$uUn~_VSWZtY_`+%zTIJ6^P_vp zpNiMhDtZ%R$$=}Oi?7N>JZBvbyimbHP^0y%3Ape|s&aUXjHKSsC#d zRf1D3){8e&D>O?Wp*MfMHjiQp8RXXuMgP~5t#Bm>qOsGuXg)v zbNPt?QA@*9P*6GlfsS(u9rGf&f_-KT9aOw8pSsG2QWD zl0{N~@0sMlhA8-u2o;@Bb7)hVwa~whx9-OjmOn9`4P9FUy?}O!v!(A%OMbujynlno zs0@I322UhA13@=ok(^B68|@6bMzUzrdhLt}(a>9e!d!1nt8@L5v7YKLI&85>fL+&oGgioAYE`+DNl} z+W$6JS7uP%Ht7+DQ?}xWiY4cEIN1Zn{4c7-$4 zwEi6VQVrH`4_GSIVD5)+5-Mx3A|(p~=`Jb(Psv+4T?FK$^X0m1G?pjc!R3A)J;oq< z*MW+5x-A2)8{yOw*#Fwz8zc)GAxgMPArZ1#lWAbaOR)UTFZ4+7xWyC?FA1W+pFG3* zM@$I_g5>vaKBMt*i8=Cc0TGp8e-gJVr6u29d@C1sE+gFJ|$6=!~kT!Hn8SvZj+arKB9t#`Rmb8s4l$LXfark_? zN0a{INB-Qp^>eVx{Pxip(7pr^`@UOEUA63zsQ{mitzdu)C^12bynl~eB*{r=>IJs<=@D*WP=MnUWJxCr$02mn3? z7q=msr+fiAp+Kb|i2SK6vRF&Y-$Bhf0D9hT3$%AzMHTnhr+eGg)J3c6f4oDD?s z!g1%fFoVn;s%Erc0|#p=w8bTc&*D~NoDF(Lt!%f;3m!<}1$l0{0M zg3{gH<{QG$B+Lp#fG;>Y*LnBV129K?c(ZbVC)vOW@fy0-mX^+pWNBPRSA-NI9YcCL zm!rWl?hQGgz84&sK>ApSZzdhA2#2Ki3Z$dq&`qLNp=0FF+(=oFR@?ckyxV|uVR+Y34uX@yN!{T_r;qy{`CuK)g(Vzw7m9# zVJrwd3+YpmIgeWjX-}~7qEAy{|I9qLSIfokzI+ z+xpofb{1aBH0_GeuJpw)b#N}x#xqXR&sH)%%rDfwx>y~x58rXq!clc(n}5XW)rHz< z??E*~D+csjnCWo;xyITn@F(|@lHc$4uQ+P%fMcVt|D}J{Z{PhJRteYFhSyBLTd(1B zffR2NIS99A4pn?{t2#Yh;rZ_Z^=+r0->%@xH75U*)fYzLzn)KWq5S6=!o-dRvvROf zN%XY-ZTN@hZhW-y==!_kryqy3V&qd+@Ac^^5eM|K3Tgc)I*_|AmKrFIiM`j23bD#y zY4ikrNvNdmKepC;6lb?uyPk=3(8O(uHOp4_yYBu`{E1HiIpZ54+uc68p$hi2kt zhU_9%9E0sAh_K)hewY|5q5;{XY8BPb8Av_rDa;DgLZ$5;)alnnjs_Rj-Sa<)I(T^3 z&Re>z2$!jfkq8Dat^lVfx7fRQPirN|hlw8?`f13w>;dY9uDO%Z38qbb#Rp8s0t?o()c_Oi}{ zSlg-_rnP%?pKM#9z{?719Gk1sliYK4Fq7LI{oRmd^9M-~JDV<5XNTN8scruK`S_dl z_wCSwE1mb|_;i{<}9rzPoryT3&k|v zLXD65aE`y1X+|=MMCx1^#lLqaXpbg-tjH@OPO1g4;c7Rrn5>_sPKIe{2zQt5Q;+hy z=WEKXZ-(yLHr*rQi6xMLGy-RO(;`3@FeJ|!!MAbjc$-{9*c-z*<{)e#3So*%R<|gH z&zGb?a93bO@re+f>yic7c%E+W9YWWs31H_&1cdm|)%nC==b3^YSxfFS0o~w6uG!MI z30Vl6lX6?^x-dcOL%7b@kf-HA`+<^~&&TAGut3@RNz}fTr_iw+B@&fA5M_v+f5wxy z?Q3rxo0dQEp-Ew}ykwSiX4~}jO*c0wE#Qd&%nkIj*8O(h@Hg{w$L|$LC2Fu;3*D=} zF#E9n3d1Hi`@nAO1r!!^VGq_amP-sfWmOJ8Ky4nrQ#dK*eLYHpcae+J*S*8KEn&iO zJwxS24j-1`&L^_{#Z}^AJ4#CDSvFKfo6Wc)(Y*R4G{63V(5P6Clcztnv%3 z$_@qyqCp>wqF|)!B~7;US%Cc${tW=!9uU5#i~eo^AWm7R1E9mPKmCMt#RlM@SMmvb z4L`^LBLV<20e0>Mu^-NU2mcf}8Z~)9+{?nOL0F>8qmFFB=_UFb4|853+h~ZVt{eJOFbd@-bH@SGN zO^TG@@?t|Mty&whhi6Td+!xB(7ZO|@h%0!`n;Qoc^zlVTj8^otn6N31mQx_iK5MZU z4`|SiHgJ#sERS5>Y~nkY*69&w;U3TB@y4QuvlLzV#CB*1>FR1D&NA9W1wHL|L`!cX z6dq!(P>lxSg$l-G@@dr%B=0F`&_4s)OfxOjr;pdG??mHNP#Nk_>;m&aaE_2gvns0N z(lIk?245;N-~(QCH-jGCO=1(Y(gHbFN4KH1q{tgcih%dt|2e;ChW`+FEJp z6n?Z`2&J9En(HOt_w&2;x{*%fWQjZu<{c?$P$h$GXhI9gCN>qe&0$8fW>7MVxl@cl zA7JrE<0r|?xc#AeVq4Or+69$T!ym3YGuGK4rDi-6f}q)*6W(fSlaH#3A0 zOG^t~r9BL_Jy&~{m?qK=x|wnIie4hB?k&6-h(w>mj9)Zh}& zd0t0UvCQM$*2F&Q4um{Wh)Z^y6j9 zwqX7By+vyyI`+C$HYQzQf5U9LZhHN#wf9C;N|%IdG>F;U*`$V1)41U}W)CBN6vRlB z*Ht|~@l;>h&H#_HNNp(NxB_PHcva-E`qjD<14zA@v4et1$HTj-t4>Fx(ZDP}#H>#{ z8^KV27Pn!m45GFT7Xe73aR_U$@z$vZeADr_5HD{)4nN{%hj?;6pEG?DMg5XIao!-4D;F z0{Bo6(1~T3 zqQngd-*mT{HY{>uHT=3syNDIfuB}) zhMC}ekah>qBLNJ^u-P--V&?@dkk5!Z9F;XPZS(l5B;P?F9j=FP$N8;YeIXv>dBPa3 zWa)-o^_Xye1g|O_BrgcvU3{6vWMORF+MGtzF^}+Szptf#sI11R`Ma4KS?fR5^|){6 z3Omt8feSwk6~fmqzd5VpX?mc~4C zc;_DC={4Er7%&+J6z}xNey7Te`p=AjTrokBD;qu3PYjxig%Tft$Hx)lw#3G-%K}_a zta|J-g@X|G<}I{$Z;9hd28C-ZTgrv~sr3rbHVB@vY)eHsSwub&%WLPi;p6zi_%@kn z;2Y?nV;k3H2F?NsLyH2`i8dFR*g45$9JVDl4HC0Y7T+aWE)gxC&Fu;M!V_ndB^iI< zwL$zYJq!R+g5YcP+|y15sDJ`gdqa(W{+N!^I7-ndiN5SCV*sd8nv)LdjP3vnKtY`2 z{Du0t#B#wfX2~AN##hnpujNv277{-{J$x19c3sukduYdVy91TK-+!9Z9DKN?;twte zh?tne&M_X|b86laJ2n?NVJVBo#dkIY^JLX?BYQyvK6TEWL<0iZcs4_UogV1EM9uUR zeNFId;FEN?a6OxnC+i;Qp#j=M?S*R!nON}R6wLkv9LOUmSa$((ec;Ii9t}hRJ4kR; z+$!jb8jD>N_A?Z@@}QuXJHVKPCkHYH7AC6o3&5NrcT6zH__;u)`FAA|xDWIcR898} z@E2R?G#S609z+F-y6zW$L7h_yF-UNKQ$9^Vl*{vXNK!f7LV~;im){3tK9#ph>T6gk zES+ekhFSPX)IOXJXP7NgGO5`utOZF|ENv_N%7vQdgxKlMAPouIAyfNc5%U zUebEJ&_I+-59gXicQD7aB4S~3JGYVmX0~Ldb>46u5Q*FBY8hb<7Q6DL@mFYB;-2W; znk?IrgTc8J!@VusJI|D)kgbrR3jw;2+~ekcYw!)?!)TEq^qau`5r(a3uQrS|giSK$ zDGJ|#!xh2xP7x{6+(W$s7v*LWZPvjYZyD2y_3ga7p(&j=!sWgWy$7v_5H5OFz2a{l zWZf#vyJEzajyrAR)FgCw<33HCSGQSm1uJ0S4n?06acKPvXe1?p4 z(l$dH62Iu`n(c3Aw8#SQ6cnlrpK@v8 zT!=RLDZER@X$gsloZ4*N3T2G~rS06no=H{>2?H2Q4h)WqQEkax9dKZ$haAGMB-r>J zZ=G8NA}LG+hvHjV#i13j`NC+DZ~K_v8|t)vtGgCc_}S#T+I2m$bJ?RH#1iSd2D%Ux zTP{KrTh$if3c~hwFf~!(7DQ2ejnk<02@D_K+|troXf_2ahMDRSl@+Qd%;)_u?pO7` zntar|Z-gL~Em)tm_c0!d{OoUgKR$9O7v-H8Yg@RXOzAVIUs8)Hy~O<4*1X(HUw!g~ zUjxbhv$E9ljrDu71ts7=P*zj$^$-K}X-uNY**!W@v3Oe00tewGR#UbZhEoy(RM@4D z(JB}O`g2^OHwt2lmv$$n?>fHjxN(W|9jB6S#SN(khN}Gi2rxvh{B@ENV!_dhESnq2uF1m}?Zf%R_x2J# z6t$5TI2~2ZC|tUa*@<QuAvqeR*6J5)BP*CO zy@UYadNq6prwN92vwG7f-+1(g!vxbFM-=n+J{Mg1leRlswS;= z6kSKUR(Xx|W^GMdeJ(Ydt_?%bj+umNo1?2zNtvVDA5nInz`Qg1sx;GbW&0_9ha>UlV}3W0 zorj-&UOVH0t2j$(@y{m;u+u;(>s!4>xSkH(=viMZ3n&9c@3ZK6fXYd(!#fJH8@4-Q zJRFU)^*NLp2hc)KXJ+cB(^dToRL* z0buwFH*%ECwD*ia~9uyZ^aPtiYnWhO_mhD?kd&atp25&;i7K!V*M9S(qoH3;IDi6qO9jW!n; zShQ?a7HJisfC0TE(8(LCh`~vr>mz?o`O~Jl@0+Tm%7>fIZH1s{8Gr)V00JxJmKQ_3 zA>fC!^PXOy_o6*!hm`hE5H+}z^=C(&3`gLRWB@i|-jkqWg)Kt{$GG?LFeY@Sa*S!C z^IeaV%LkH4VjB(2V-;x&T?3W?Q!wE5HN8&_GF#p2z~B3|ZtO}^tOBrt777SOO)6l+ zZm4Y<>DTMaa@Y)j!)AL+g(yeak@k5S9tIYS`#_tL4ixjmQAq*F@t|q4Ync(NN&q@*-Z+{lvZ! z%gSF8h|FRQ0ZlR2J`*XF*Yd9cg{Zrd)~!%vL5XmWl9&g&uksb*rp0biRzY8qN7(p?bTfkv z^IGzG4?HCbcrC!~_W%kpm%-@66Y11A;zaWfhTshOPvd@yq3cLTS+p6M>k-H`i~Wc8 zw!fJb;e>5El#?r=wUOcW08`Pbm4|5!ZEI=fKvK_mGgQ(r z)eN4fn8%-YONHOd}AhA6e1lA-9Lqu461evLiQtT)tPSut(4ek zE7D6VnWHK}Z;AEg|uH-8QHpH>t~zk+7#ecuQrqSwhvA0ZZ2Dk+SyR ztnGhVI#cn=b+Ejtn1m8o>NhgYjBu}Euc?xm$z{IxxbLosOL18%`abDeXQK^CLU>U^ zWh5sg7NbViwt#szZxcv9z5mx?^3OGGY<>$|F2-mdb9ZzpIWG7QZAiQ$bB8`SD&bhV zTy0g?fsAFO0DSnry!?kY>aaGc15*77SN@0g?cXw9!sF2fSB4azaP}Q^g!#_)rQP89 z!-VD_Unkv-yN~#tdL{Q*cQn^UW%EJ9#%vuI8@*t}pFxm(~EyIy9YiIY)fAcbTcX6qnTnIxz zhO!Jfr@ff%C%ICclXUZWvd+L2clYD!#oFdO;AEdFz6GDs>^`9(@yHX?pg5l-ND1j^ligMxdf`A9KNoc`RcJU-5M8?NkBVHphk#dEP za)9ymSi(;qK2r{y%&0n#y1n^oVIowz4%y$a{v$p!GqZ%eyUZowx77pJR|PCo2`6e9 zG6hESER5xbiD=qv9MScmB@7!Se+PC&} zt?6PT(N41Q!pr!iGNPpKUb0XB9+_J}a+68nGXK6Wom^%4j9;%=8NZSbQ zD0*g&NLb1*%vI!f){~~JjcNHydynO(QtDMgZ{ho9puT=F75#-2n@; z7FO~UHyw65p5F0%2RxaOh3=X9#V0VI#rG2vzu&jZ1#tPu;VFnfOq&IxEP#cd$8!1S%%61vRhqOzgDxCko&MOT_kIe-EPEs2FKSlZDe>!7MG6n!+Q(P0_$;q>xs(+vT+tm_km;gpi z5Pr?UBRowulKJLGkk?0tUvL=J12wn}!5ft1i zi1MPzhyn(!8Ot4Onk)%UAYq zoB7Q>ZTqFkMm%ZQ7;cdvF6y{K7rx&@8R+TmiEhmW@9O4XfFLEnb`G^0zt~2I*6$^Z zrZ_?E0wlJs`NQfE!aN$4WD;t<3EtoEAY-_D!~as7zC?VfO@$pq7?m6B}| z>r>`753pIneEb1@``5O$&*6-wMsRj;u z^z{Q+_XX7n?2A{_qa2b*O`6+5rhKF_rN-Mw5@H>7b`s zAzRVYZLt9yv1;|?Ihfkz4x4HyMZ&55gJk{pV*mRTby!d3)lZKN+%XlulAKYL)7KiT z+3C;!xHhO7^n9`V7GNt9TvT8zMj|=%ylVPk)ySKg-=a9*Fw|*-7w6BbLL%^s zbqMp(=AkkpjC$Fvh+WG?%ZT#zHKI_(YB%cfkdNu{=PIF^`YrHOnquA!rVPa$1z8Zg(*LdEc;HpG*CKT{^Qx)ZU(md&Q|(>(9;vYL$)tx zex$F7lN*fY#BKQgrN( z;Q&i26~M*^jJus7S?yGQje%1u04hvjzOm?Jn_JMFbjlI_u@dflv*h6B_~Nt@{HF-o zz|**`aB-((2y^m5ZVSw&136hKG^s))^%MxV9w7?a>J$p8;=vYL)X3JDSf&3yyh9IO zgmZ197!7xI!0BWiEh~21}jtHB?>@XKigPysmlcRUL zBgHPMgtSObBquz$+Fm2O$71@-^lRtR<7$5M=S2(&)Bre(hwok;s($r2&>|`qgjxoY z;$HVmVRi{>gVddBk(sosm!G@Y`f?=zDi} zn<(2jOpynd0U}xp@0s}pYb$FrgKs9Twzo?Pwe;Lw>LVT}CAvR^K`w7EB!<{kzSbQK zNt(c4wh^yfyQ?wIQOGa2#XjN9oP^kFCKAO_FHB!BLt6dzgMsxjrvw_0P1b677p_27 zoI{qG&-*m4ARCI3_BG)Bvi#kt zg+wMKHJTdyd_jGW^<*K!?M|aviW6SE1y7#ss7fZm^PUPlkTFlWl&!DctbuZUt;_T> z@j{_CqZ6#Yy5A-@sJmzmsybk{cMJ_#|6&vGa~h6w9K1_x!q5Cu*K*94jP_f+>}hPWt(<)o40Xi(*u$McJM5c~;ls=DyEA!YD;6a(3yb zvJ3OsUC@uY|H3s{Nbgvt?QGeAJEJKjdt_@D8wOB`x5UI{%0iT!%nAAAcgMwcv)r^U z7<8o{Rvf^e=$dpxI_M{`acTh_oCPKz00K4-PmGF!@+0Cw#z6o1iywRYx5Z+kILTs! za$)@l*K-Hw1mJMwY&e{u1@Q9~OBqW<#@j6ZrOCX(80&h5fE5EE9!il3F%np5+j^?> z9(GKr6i-F-sVzd0gai6xvY}u^0j`uZ$JN~RvtbWU#Fl=(*!MT z#eE?=c;bBvKr+%d7aQ*%T=seBZpGzEte{1DB8;xli&dmV&&j*QJ_YoK_Wq~M^$h$I zer_Vt^Q-=y7G;lc$k!0g>|?rk%x6=(LHku)7a+eL^eu|!<_gYJA)E19(D7j$u+HbC4ZU^2uJ4_ z3nLFCO^f|4(jW+)R$Onh0}A{2#?fCSpL*eV2$Fd|T=)$WnC*E&3Xidek|ql$nG zCrG0ndD~noyi=WD*t9s?JVkWtSznTDX$%w{dQjh3fUw+h9E4$2+Qz?cgq8 z^=cEVSqKz{TMaYZ$`k*cLHysJ&fULXZ+mN7@D(al+5JytsOffSnXXDc>OB}?`%4w_ z0>s)ePr10OU-!*~fqeX7nCQ;P9z@+`s4khNnYk z?kD=y;-k>igM6gE`lXMB$m$sA!aaboGFsmAN?QM$n|rCtQc&#Ng%{a>$;+ zfT7|_n?q|~p#01~`y|@?Z9wGeuJqK#%v>Le(pODdH&}MP+26$rZ??i>rOI{Gr&X=e zn#(qm&&h<>i7zeoi&xH*yfh1so<0+5He7{*E9{W7GgQ;lK1K#kWD{#71&(silc+%d zPunztiq<*}B_>&$yP0gBB)cGk5H5blUX`1l*4=KJPI>WNH^jr{)-ZmNjhU##@Qacy zgIemDU12wUX_wZ(^!8hw{<-!@_TZ(gW+q|>!eUGO zWsi}qgtK&xh%1epyz9{ypgIrH6otpk-CdU)bufcd9whrreY?Aksu13i2((fC8ml z>8}a;)ZUnT_&rXOFYJbQ#4$xzR~MHXNRY%c6cQlzA=26zMPOv0F!{h%k!->R1IhvLmPuED6NQ0-dE80sJMT0UuJj8Up}S zfHKokf$tM3$AVrI2nmX%m_-o68zaU79)mZ334kz#^H%WZi2^zdFzEwS+E^;Y3_0?$ zzLQ0BO#&rf!NE%YnC%+7Qv*1aSP7j0W;w9EIiNU7z3VK2;0C26wkijRs|p50jIWP* zBCgO*pzLWENIzEMw8fN5E#v$SW+-Yjncr zMv!DAS~(o`NZw}xA?#%BWhgoXrb8m0d%`_c{bEB@_eNJvC`O%PxCPfZ-@QJRIhK{9 z2sP|+2dd|t>5DYumik%Lj4ysUk9PSO1 z#ohjCK?hZzb?U=VaPwo4IQPU1*jQPyagfM#XqhcfHOxjON;FPWTbirj&F=>&kY*>| z`bXLPr@3<`OEaCRY9z%K;cj;@?>cl$b~N~4NT|S~<|=KNgj(Y7zU||G?`z9HxtHAV zu_=YzqGuk>B$c=N%jx2nB5Mm({l0~}XM{#x!C4IDP&>r9=S4O6|8Eot>|iUZb)WvX zHSqI|l4*VWeN%*Rm{>0d-vUQ?UqUZ$lLwmwGX2q^9D}F&#V97>kH$L`)Nh0eUHJ9& zzmKcFKLm7)zO?P!jeojpr?nv^XCGx~roQCP)sN3GOIx~}3ay(BW-1UaDSLcu&rn6f zeDctL5;{(+^6~q}-b3H|N)XJ05Q)^5tFwJ-LFH3uU|evt;ccD84JE3DAV1iEc(% ze;z}|t*XfAxKg|Mpx%nI#NCJ_M0#RI*a~yg^rFYsWH&_ky1&soy?xS~6VAX;$5Co{ zwDgM{xSVRy>49C#SikI4QaKF}^oM6NI>qq(zk^ zR9b!Hl)!>nvUyWzp$bO5Jju*D6oY_ya23c^<1@qOHrP9*U zavO)uu8ZpK|`_2m5Y=_mg90_Dx-*fY$-mc&e7I3O|w>= zj+vP{X0_Sg|5xYp{r+yh+wXS!ubQPHH@u&(=kxh^+#lByjW1sha00TPdhLroJ5FX8 zlP;CHpVXZ^HnP&`uGu1L5?kT`Rjmhcj$TCww~6GkY%yJuNSW^BA#vfu)#Q#tIh3C6 zyE!R|-tkG7Y`Dew21)Yp*+pS^HTm{pLn6zNJ(1yrYc?rh~TX{z2?)oH%8 zpo_OSq-UYD!dZ0N`4USlM_umTl~da4|;Zgwu67V z#EGdHzWgdzF5%={_kSmmchiNvbm$w*o3N^T7BEEUJcuei-N?s&pIa*xs{67oq?W_a z)b8Q-ty+CUF&()>iN3KwFFQ@@&xfpE?TsH_;ipWt^}|_E`$*vIKa*TrBa_B6l~L_C z=+P~dZq%Nz;|7ZZJmpjun2~^Skz%0aiIb$TUk(n+(7OiZ()}>vE(>Wx%Zcr)t|~c2B0p!QVG$Qy0+p~GEi{uF(?}PU`+A*p3o4p zfO)^G3<;)SYSl!0``4~aC?X=!hu72d2k%@XCX)pX`e7;gVx_cXo&ypn>8$iWc$9}3^5DYV|p;Au8lTrmO8v<5F@3M%p#{}g_%i~ z@fnAfIGF<1q29hF8>+$PBpEGtZmSyDLLaxKt+UIG8l%SSvq_BJmp$s&{nZiSl?kG& zv@A^!9>5kdkq#EF09)ks{sOSlqHo7Z1p}ljF zbkw#=nH`E_ZzF-kw7-&X%Acccl$x7#D3=Yf{yMix z9jpE^+16Qf+kD~Y?XZcXq*F)#J$CHz0lT%y*&$kcU)PMj-%`CO_i=_6DRpN-_;+rP zKb!P1+aECw2zDgcxr(}Qy_3#ARz7vqK5Ggqwk`KSuC$x+pC~&M7dm$Q!e8!LBrO-_ zb@SI>&i>&Ee`T^CK5OQvWq;r5@WF~pKH5Q%BR^LBt(CgtU|r>&1HNgHC?gWfoOpyg z?-z!UaEAOb{%@@g{0+ulcEw;-4wwKIOsy@pW^6l}X!!Yyp7EXTLgcMJ#pvcsH1t?C_%(ruudDo9yOrv*ZdTQr(O2>zY-U z=(4FvY?Ox?QosZ&5tK(qjs?bNRfYcwk(Za3dp0srTb^#g%6{wdH9we^#qWFF@D%`L zK>*{vvg9$RH~IVC+DE=Rzy2+t3>+tRTX*i8+9zaeTpw8O;9X_YlxJ094O}XALB^{C z$!1YuS&M8af-TU2=Hk39h6X-EbuREUF_iJW2bKmk~$I$t$essaarAWnWbHV zN62am7|^itk&{PjSOz@=WUub4O&bF(;h_HYUHrQ!@tYHd68J0WKyl2H%}l;cTbGmR zl&Sdn-O%T(U}4@saNq5aju}w<7aB3{Ssg5a=rGARVUTpE-edh8V^VEIDS1)U)!yMZ<$LsbY1IG+PoPQDz8O1FU>X?)Ry7 z7jtMALF4XWoQT(-1hy7ld^Auo4)SR9uQ)LuFv~PTF15R6dVtSoCI(r`aVFe3KL98l zt4O-Y$gJGHe)ntBt9|{74gTuPXjMcsI~qdETXFy(bqL3a4OgvRq^A|&-!%ek&SYX1 zngMkWylVs%LO`{E)aOieA*wTeOY_lsC>B^~H(<_Fju+ABM|5jGG)Z z$vqRSlA+SVAxH)aiwG!!ln|c+J#l?5|IL;O1w&s`i;E_b2K3`6Py(D}y6gkscL>MR zAXQGKB{(jkrO5}yvjcOx*AC@=OWqIh^@T}x_~3ITtc2kV|Bg&(TE3T#hQuuJt|K|C zKt+TGMhw!23jRWVImoIq#|u^8Xewz8rtst*o1#vz)Qb{Aujsrb3A78uhCpu*fzN|V zRhA`6G&aFf;AmA+bN@C`u~Z7mi*TWG9)gCVEu~5vG`l$if=WK|`09DEb{wSE*(&w! zG`<8y{A7O7WHc{<7a<>3KisEO<%QE#^1+0`XaKMsOhkYC$rCI;3)KVFR>o?{V2Ks|T**710KW>HXL0`;xt%{LmPqRjm<$OW(mX%RHf$sHz{ zH%jZAf_c>FG_@K)0FKwPF$~?-F)xJF(ZbTCqmOjYS4=9+$LIBTHH&;{y$xH7xU51> zFEs<-59QFMuKA%EMI2DJ(|;FctSUbaN9?S(oou$Ua(jIk(GC`fWMIYz%S951v_}?W zR+gGPdzzkp81BH-C3AiBMA{?8kqkq|WaM4#2ZkPIc4Q8zzb%8q&$w4?O_@qF06kD! zN&%n~WP(Vm>^x)ptNL)$*0EnHSanISe9nPQLos!Uj8qq3@?4qf><@r^+1h4A0+I}N zmnoKjnFECMND@e=yg<&@11^!3$ou!7dNB;Hw6l*lHT~1RY-+G~XOst8z@O+AZx9t@ ztWQ+0LKegCPheYXQQEpyy`ao!>sJ0dO4I?w3~*!nC+^#&_%pWesPN6|V!8I3bO$NX z%yBY!$gS95q-)pzsXhPu;QjXxv#Igv0j_y4<5v|*yEe=imONkwqPYk#_sAB1Y~|5) z7UGgNj_u?>Zv&dE@3*U93g!(=X{$7My~CUAH!Sz+{U+pEPt;`zbP4P22+a0ddm zw-$@pbbR0#BW5jdx5kBG$~#VVfT>C*X8Vis4?{nH6Fi8v2x@Bo zefFn;rVU?Sb)>ci{j|5;!_0BtenJ>v-XR;V2IYZRZ_2PZ%9SY_=mLotXC7Q&ie@j6 zHCDSTl(LfLCL9=%3~0TRm@4qmOH*GSJ&TSXzDU>Xso7)YnV*;+0HkBFno{cQkdVu9 zWt|5R@Vw}7dAR0I9^&dvC|7^^blpzD1}KjgS2NgY^# z+EkYAR7DyKN~wNjrq0T17JNA|m`s`sB>$-A1@I{_P>JRwF*V*h-8^RioApj7Hs_r`Wi=mg(?^x&>><~gsF z>w(FFF~RsXSi?~7f&3|pB5J16V54qt9YulV^A!0wSsUC*%*trJ)8)wNy9a`bOM{`j zs&sQZ`9$7b9f4D@BC7iiSbStP*iPlA)SZIgD#jbQA=i*D z3VMT?+LgOj2Q~otPi^3dM=DMy^g&V}ZD_k*GSo}AS)GDms-kcr5s+PxdxY(& zrVbibUhtySgO6mE8UQ-CB_)SYiu84`@<#Pq8xQExd2Efq4+yOwIeu3D;gVo;udDnk zz5Oa>_5-`9tJg!YbK)vHyatLJjOGXXrUUax^X+7jf8M(4s4rvn=t>=)rW2C40IVtx zTK2_9^{OOu`FKsE^#B-DW#Z^+kild<-B+4_9{b4kIW%Ol>H{bAOjo)T2bRX?W~h+{;rilED&gsA<0Vm}fzW_kSz4)try zoa?kPP+J0Z=IjtewOL;(wAO;qYL@O-pmc<=Zlxl>cZ(MjS=He~61CCOT}_+6dEeZq zKSCE)n+JkKu4Vg8n&Ex`Q12?lgYnuY&<9z?1Qk)~_ZTsd+py+0W&I#JM)|^32F;t^UUpLR z`BWiYv7=%4HZHvmPlcAM-ZUvYajBcH!uTZm9wv3ZQBgH=DW*~W^^`;(+trdPX}!L~Gp}FG9r9CY ziU&PVkg!N`{KjM}m==+j%>1k29>oUWVvp%s;vceJ0UQgCEE;JrkN=RLq5H= zDcQl3aak(VPVQ6^=d@XZ?whsjcR=qswE_QNbMZ)ts4a^ZcdQ!jn&O6{VP@RABq_Fe zqmfu*EygzpaiMJQZL<^LV;2KSOZs8Jq$6B)22koArscYOktk9XhLE_E1@{KE{-aj+N~$V{XcMu?8$n3KHxG>d#`_H;FLh@xbq79lg50eyQDKu5U6XnQZX z)*U0b8UxsRg6;wXgTwvb&C~bCmNMRpi}6W3ao_bUpv|Yu9oDlWT9iS{G_A4+HA7n- zMtb|`>mB#nVGp|$7uA@$(!xNb~zfO1hn3&8uzn&_MEPFgH4QD#A_s$>jxJ>*D zX^R{gSx5^$jDi-wCM>j9lP>xMis;Hv=Db-b@T#@Sl+BusOFpcO%?Etta>-|oScU7Z z$#2t86FBE@ZPlFRR`XR^W%jz-XEzihKAKLHBj3Gt`?JEI{A;~?5Bawc&*ajol=mC{ ziYnN2YJbj-CXaF0r+}y^rj6u{fIg-88ukL#%K%FW62WW7i9Ke!t#0b<(Eh=Eo0d6g z#Y$MomvwI*>@m{{Jm^{8;afR2Ye)Xw2xe7pYFC_>y1EvzoRXZ~u+kLd0>B-t3MuKX z3SK95aiQ)5g53gT(Ta=L(H10MPr@4>>uQCjU(7Hb9A|3ByEbJ9-hE*7wmx}_4hCF~ z2hr*Fkz(**^_+b`sUnRppF~emmEl0QoW9s+-N)LTao zJYnU&owJKGk<9oKODr7x?YaFv;~}3XPQWuTV#fd`DJiF*iyh`9BujFnX-n*u&Qw{? zK%o{NJ%Az!(=9TbqTv!}HW9htv{@GH>nSsP%VB zSb2AbR6MA=zb&4gMAuN-eJtg2s4bXoDb11j)41{k*=ObQxqD8_KgBgB`f0BvF*OEf zF$L;Oup;R0@1jLe=jUZ{=w(xlW~TvxdhHrj@uk9vOOiu_CKrX!1}dZEaEQg z;|L%{-(f0`Ay)`B-4&Vmku<8Kd)YkYN$neJ*^qDYZ#}{<$B(!<#e>?AKfXE&DxJIP zp~QOuDg*MgjHR!XETmUNLw#!?C@@>{?uved z9NhxVI7xF0jq#sD=#a2*VE9oH#KS|wDjuD!k<0h<=(+;3YJr{)F?YzLkG{e|)RUJI zmbg4p3UydB&V6Iny4D%J!~$)+ZvpQfiI+qd#Yz(*1|da)M1Y&pPfP2bO!{L)r)tht zL{(Gq1Hinu9UY?jJHk?%(lHrKTB}3c>4ot*2H?pYuQa$r4=*%9_nv2;s^X(>FD+wh zW+J8prITN{AnQz^AZNB80HIdLjS|_IDT<>8VvDNQhmFs3j3j02v<3Q#VE8PRd5lJsrM+hb~v>z3^Vh~=kl zQ33xxRu7a#guUd`sLfi5zmbm!0~sBTiA^sep;PkKIr-b6RcL< z$snKsfTvN8Y|;~tFW_jMoE;6#F4=7l+ty^i74|SC{65zd zu}VnO(dPI8qhtJn<+i_g?a5<@vi>R?vC;B!7wMPhz_OfePo_^fYp0&tpY-d2#vMQH z-e+WVy>wszOO!L@iJlWF=n@$k<^0J>R53M1)*Pqf(x7%yS++k?6IzT((uwmejdgP04ADy*|_Lka5UeH3+ zBMa<)514rUqxPAkz)1g@vm1}LuX?${V3m{Jd1q1mhIgNiv)OWvev~~!1hn%}jwO`P z=vbl#*cZSgFV9$ObppzBArj1>uK0vGB9`16Ct0M)iIPW{ zJ-k6Oft?Am6mo!-D$F5#=6c*A;O-z1P{9Ep>x~)Eq<-L#{N8Ar0g(Z#=?i?Y^|5Y- zF&$*Er<|T?0J@~gK$)H0z(zxG5?`FD7RyDHoWWK~hhv|yURBq&&TdoPZw(v#MLx9Q z*G{XW*hAjoH^n+c3lTW;1D~1UI0HAc=N+5PE?@%~_ek3TFZa{6;S(v~#Tq2v(9qiU z9hjg`pr})ChY13}hOtm2x^~(!O$HYH$JmH~gMmKjA;Z`l_Mx+~krFnrf)f zPl^VSadZ-02$B+qTzL_L>Z_h=PHx1*6}h1r3i;7Sda!FEzIQ;z)42Fu`?%?fth(gO zFLX#p_&i!>S;ufm8?C_LHQ?YhB3SBgnXN+0qoXH6ZZLVQ_(VToQUmk#)u5n2od!7? zS;T8sIuZ|EApixsIu_)@N1tJLY`;m-473h$HFUwZV}aG*wiarX8`cj%^Hb6@aRdA} z+iUWbXlO|`OHaCCegatk(f6!z)KKc=6eL7TMCZc&qz*8jnHos0tv>7DK{>zG_>blL z_Azwvx9xCCN%gK+YIl>%@Qv2Bu}Y+Ju}T768|J+Tg)|xFWHl}nMELUGzFN5m4Js+a z8EG?{A=(%6g#jf^v(QW1u3oixxhV4sM$_uK{m=Q!@eqwGqpQ`z)cHZ{lj}M==)7p? zB{bi)04%(&&@#9FlLF6i>%=Lk%5G|iL`IpVY5Kbg!8A+SPss<%#*h;{dX9j%1e&Go zYSlNq)VFX~tY*$7t!wMnLy3O8ms@`hWj*xfH0Z*}^qIh|Y} zXv(GXm2a9PTrgOk?w2KIN{2QsaQK)_m<&fvy`83}WR}4lpeF{!M+m^zx0SByH1J~s zIWS!<^~@CH4~vV~8p#ed8hYrV#tSm)@+q1(O+6Rmj&C?#(SGep9>{1rc5|&&(E9t6 zM-dnu9g+53A6=*HklWf_U9D!=o%dpDD47@ok2$;1ttC;?goG<3N*$9dEAv8Sc!v465_BtdP;Pz3Yg-!@jrW4%D#*)2c!7`x zFb=v>{=Sxo@IC=^LzOeMpW0p^Pqx}=iNTtnKJs|6p^GzsDIc!|uCd8S}JME0C9$X!EVyIPHP1#S6wJ_O&)my%fmw}ya_IR{0q_Kg`2!gt}3O>i%# zmEC&J8%d%#gUT}+7?}P2nET(Gch7r!`m8G2&3Is zW9R;Y;rY|X541*#`iT(niJOn`Cz=Gwq<6zm9s31_-cG{s!+#{W* zD^I__p|l@>^_%^4y#^D@*!-AbN)K!O;TH zu#OQT>q=njFDNlZ>%*sw_M{VW8}&l0O3EGP+>w<*XKB_#Yv1W^6+)y6wD_Qgl(AHv5 z1hQwz(m-cs7wOfe-yR{gM+B7_J%?fqJh#nV%-i>DrqONA={wCo30du1ndzie14dJo z`~FToa3=OUS+O#^>047IY#>njVCyTNlt#aO&#Orm%^@p4HhjtEHBT?fI11U|fZ8uK z!`E{_x9?7G9dWAEplFIanab=lcVd9J9Cn02$58AOZjozfQ7C4jQU%AayUkZ)y|QN2 z+Jfe_-xaedPekuEQ;Emd8(&)dFu^`MTpZhmQ;*I>VKt3JwNJ0S*CJ-RuP!?uhhv7b z*`O{>Efud0uLjlb^t{FNopzs6>{7#kL@nV1NWOJqk#hP59g01>C`j6z9vclVu^}}) zbPk&XCh?LFMME&n?gvrER0%qXCe5N@zycr?Qcu%`z=OYsr!=p>oz!rSKEJE22jbUumV`eBn2%^aXioEg1zL+&?uPbKS zACCooT)IBDAC2QnfNbzL zutOKo)#m)RHirE*2vW-hY6TQ{0-C>x22hI5kOQZZ!9GRg2^X*RRe3{zmCG|rr_&-iJt=*$O>!&+~MtXVcx6~?h z_Q>x&7bpt_>XU2fVCx*y%A0NwQx{uJ@tl*UaF};nFnsF!<}+^S6=7z zlgk;zZLD6O#H>1L39Z-f7>^w#AAY@6+J=pX_%tEbDR{c3P2Ji@U!rsX>vOE2YZ6Vu z<#c7>6CcX?OZ4~7+LIxo2e62PJ)Ene`)0@<)|K8HmMsSOa?+ZzNl@QdIh>uFgXio3 z5lU*?uX$UDw_|zuI7W@)`2kymOJ1h1jMT~e7Fez^;VGoG)@yjZ-a<<3T?@Nj|i0{QWe)a!Om;U?my;uAHyrL|*mjL!yhn z+uKjL`TwJR-4OHTwB5$u>e2&NLA-07;l5pxtrp|B%&6q#&a^gQt3ZJD`Gx1w&KB$5 z8uEo=z&O!f+i6noAi94rS{p%&vVc39n7_3%0$}U_BO~a`c+-s#y@c5v4*TL-!cGSG zSB->^nJ1?Il(il9-ei!1*C2Z5AzIQ+ozd227jIgQn=MJL`wD($WF)!>54h^jBV-UwsZgKa24cdglx67&b*>6z=A8T4 z`Go|e1RTB<4oe9vyXrjQzc*m}ZIg*h_a+WqFf_W`U_`LjK6W@6AL#to8at!ym46>4 zxEQ_q$$!J2tcsICL2<7yANkq&jrrP@p1)pxdHrL~_^WWX)PoIkzpEt!1SmwA+ur}I z_@&kk+kG9kI?VRe2$;oyWQl!5^GF2O-u6xeLCasq-|lfXaSH+i^93C1g{%v8E3~r6 zgdM;tQan?-uGT&fs}(@Bw=LBUm>~Qsu+{b@Y}Q`;lvWV&=M6A;z4JTUM*(|nE9@3V z{(WKPrkCznKZ|xEQtQaW}YrVV@yCLt=yN??yPhb2{eP;VieKP2fE`5?Ytq(B+rV!C1jK@6u4)H|K zcnTNAckqGN?XKT*09d%1!!KluevQWSC}vg@xk; zs`Tb%_dOdY!6?=%IgYUX$mUYR*MlSzaCijac)#wv_zX- zJSAqm1sjbP)$(~Pb@paxsu+zH(w^W4EP!}Rebe|Ok_FkB1h24+bBkAJqCc#n^3a5& zep+{@OaWHjJdk04?^Z;s`JDh;1VB)#)%vdsUdZt3FL2jyd(U^Sp0k10?=OacW44lf zYo$I|!Y|$bERD{7bVk5B2mTp}=b=j>&^tg-u?R0wfYJUvSCF}(;l^Ea zqApA|9r<>AS3H{jv*ZTW_)bjQ;XO0`lc z{QGbDbI##UyV7<+y0Yy!bmCtXctt+aPwh9H3B9EJjnfs*(!J_%I4`xo$H1AxN9TsG1M6@vUV1sAHUUe=HpSK7D zPk{mMA+m?t?#2<2))*{%m~CdKVI0-sR*As^&!Cw<1ERD|5MDt3gjtCt)fo4Z$@%v$67{;yO(|zR|Gb! z6l|M8!Njp1b|MWlWr6Mg?W6V+|DR6kzkfaYf4_Er(lThBHvJ6j7wa0(;Ek=l+m^?V zQPM}pgn=`9 z1i~%77CiIM44sUv{usTXfy}8PBh;769-LCcn<~5-or`4;c|e-Y&{eN%*TA+g0w@xP z@Dg6MTn2G+WsCB}vncHbg_u%AKQ#6Wpc~p+U4aGY*dMoAxk@|L!tPV1y~rB&?=n~a z)gS-KFx|4@z1bJLVxTk*Fbnj0v#a7orR9!x(y_<3h)X-}9UFUNlVW~gfAM3tAW~NH z`tWjXf}^=^-7Sk9&(0CQ#8m8Zdzty4r$O5ug*g&>kj1ISM~zXDAa1yo=waXwQi@=y zrr&j6aNASF9a>>3aQwNegE;xiyV|`Ir^@P`Yu#Waj&R!)^M`?Jh=@O5SQy$7*Pk?* z2spkT@fCyeU;D4&Z*~jI?v7f7Fwau3v6Xi1itM{XCPd_z9d+!dZ78C*eZ}&6*XGbapKdg4j+t+t#yx9y)^ct93F7;HNOAamF_bKsD0TT&gwTFWDhpf~NJMevi zcQf!Va2ICZyfAivpj#X$D%Cz>67D`PqE!7N1L>o;W@;Y8q{d~(I!XvYp!^yn(cK|7 zUFshn#1bzuaj1d}ZxxA_$ug`t&Do4;OD^p!n78gbfa@pUZfiCs-_|(|ynZ=^W-E{# zlYDSmT#za~OmLX-)fS6(8u(^T;M&qX#XC)BcCN2V-*fRpAi45!oVt0=nB9V(_T6)X z(MQnhzSEC`J5U$cv$G2gPWf%Y{GyJ@=tT=5E{#gfA@qv<=2gAyULI13OKqqwVY8L9 z&mpB`P&GALU}^JQ@f@EZ#qkoB78^}jMw*h(qw3Awd^&e94c+-n>hL6I2$HEacWx%) zdCXF|GN}U}3zAmUSRRx*OoxuEGofLLT$0(v+frAeDXWOM_Cd|{`%qD>!?XG5*7*Dh zUM-=lAE*-fIl#C9N$UBr;&2`$=epXJ34)G#enro@LJ%i&Zl}$6(H0di7)V>*_SLo6 zMssghgIumzl$UUaH_u#=CED+zJ2Z|*tB%;0e+d@RKYDTG8i1wO^aK_Pa|>GJkb;(} zQmfBzR;s(SBumv)bf}V{DGSii90_{08(@_{)Tola<)=cU=edDYFw9$aTkOI^i62L2 zYGl<$AO9^Zfevh)9&X&(C(&F<*_pi(xCC*-8F)yhg6L#4)9(@Gf>3WkmHOc}liFea8a(~ewQ27zv|>dc`Sb%Ho_Q6mTGFfxUQ=7nlUV$P>> z&f8ab&8JI%6#Vl(PBnE%lGh-dqN;P%zIhUvnnG#I15yF{<75AU|5}Kl-~~hoQ?kT( zl#oym&WghdiyARLXqtY}Jr7YQeCtwI_mdqg{t^zT_`op$B;%-1KC~!~$DCT+8MXr$ z8m|oiBvButSxV}p4Xuw6`TZA{Y2XwxKhYLEL}SUPP`tjo;?cyC zbc9rDIBylrl?d3VLi|+AoadwLrT)CNUMF4ee-~P5k7^kjZu(~wM~*n&gs`1#|4`9Eounnbz7L?yAqEdVsh&>~?Hsm*2U?!x*N7-R{= zi8|ON7M7Mvs>mDNZSyo378tN83rT$OuBF_JVB6->1ExF0Mzyx~?&e1k?q7jVl0Z7q z`W?ma2qfMNq}IF7kK}%z+5xUp#0qWWuo@!Qe6tp#RiEG5Kuv4QBk04g{?NJ>LuAoG zjre|h`af0V|EI_V?hDK||M97x0;w%jLtkEoVEw2{dOJ$T25|kweQ<{wAM7Ky_#0Sc z@Qy=ll3lh@55xMhr;X-_q1jHWaoaJopR3Id;Y|-!@rIW_6pZxvV-m<-8d&m5%wyaiW z)oI^~pmu*-b;aLW%lWT%_aH69VgnZ?`081>JhM3JlIE1pVcH*gj_mT8royWFLw;Xe z3+ix%sAVw2KP!r@1%RpR6PN^l>jyC)TisY^@6dV28sop5&LSU0aBO?pYkEUO7(B9s z-McRQOTO+oezo_Wo5aS&+iiMkKC*;?JKZn08DwQRB}n9|hO(-G+(Pxtk%I{#Zz2^6 zMUx(DAfp~H%^9ZS6x1#|#bBq~|7A`+FM3S$eUcuapcLo*LBCc9ZxE;Il13sdmz(prH`&L*Ccko;N)aq{hC>D*G#}KIzGA61+CGJ-aLSU@Ef- ztG3Nu$_fAcTmK;$Boh)tEmP`qf+qnv5MIA${CQzoMk{Oawo)a-Vrf~jsUh#&JR2&! zLIJ2j%dWCvQFVDV0~wd9O!sNF(ObGPpirxKS_AO``F5A%mrXJwMl9}n{TH9l8A3>DeRBZ~HP?Ay%!ReAJI8g0GmXnq&kgj7mTV4pL)iPfT` zR}W5N{5Kk+G>t{3yb`KRoX^iFVd7^yQBkh>;P`+(w#4A80b>>_IcxX6xfZMYU!(?jR@LHkzNBnPZ>zGlGdcT?ICpKk2#uUUcDcoQZk)oPps%^P0F(ieP- zn85UC2-3d8kj7Ni3T%&Q(^E1$JJnQ{pN59!*MlH%(1i^dp@E%UFKc(16`ZZqSg_`j}b&e^-J$V5HfAS!x@Fx|@^*1oXEd0h!)M&bgAKEA~ z70(`D$)Zvq6}>jTYY)Ap7WAjX^wCV{)3Olo`MC5pA^mTk2=3pYQmAv$@(k|q&7x(} z-!f^Y=7w@fkc*CxP07Y`%{g+YP@)hisKL?DKwtGOHD1n{CauNw0`=ue6ZIis)n(?9;g#~7|b}VEyt}I>mAIGmk6FOnGSZP zT1d!TZqLn(=1FunC)#x|abqt;n^Wg?5_^VZ;ym2c4l4JLN46<$x2;nCNnJCvK+>-6 ze&N&AlGek5`CwY$o8cP)es3a!*rn5lm~(1*6q+D)R3&xkp**^$+Ob>j#&i+q+*l}D zL{c%9JS!qr)56U{L)@5Me1q1GW@*ppzUUM$;z$XmH~|h4rzT7O0R|p7zvotayq5Gj z(w2R^Y%l7xk*y8w_yz3?!_N>NzyNc+saX3NV8Gc`{&E@P)daVG6jSV=ZJ}jZZ)irY z1y6kT{2)3nXob&%n6;RyOUM#0QMh*|w!92QvO5c6J|Ao@5mgQ?09o1B!-;m-BRer*!*sx_$|Cr10-OckZm?6i9NQVL$TF;E)5gxAdzdRg4S$ z*d5xcXj{HQ%h)3JOUzxAQJ1=0)hrDgt&q{D=GB>+U!%Yrr&lG;SyD=K< zYAq)h8dlQjHv*N(=d0J#4G!g8^tx*#_qKN>gY5!@7anRgd#*X+VWbbUR^~l^Gy_W8 zJE8@E(f0cXpK#LKnIk0e(7eHkE^_1O}kQIBNFL^;G7s|rz$ZkiS_xe{j|NBqC zlQ+ItHyUFex%;YfZR@jRr-FmV)cz+4H2{ZM-7wP$rNM z2SCfN&3Eot>rhp^ui>79>>0$VUQvrRt}--zXmi05d%l_yA(6*nJWGjI)=YNG zBOETX=uUlH)<8a%(lfrAFLJOn@I7s@8Yyq5PZQcKQ-b6n3Ry}H~!hC31&j?gqn+24sI^}>1M$egXU;sRX?!v@FbKCcUO4ts(I5W?JA;o+@6v{Z`nNB%dLBOFJ1m{ zyYr@RcFMje<_~+a0fWaN3r4a5~@2e49iT=lA>(LX8EA)UFnVs_UwY zeKB_7wtj9aL7(W=%;>>vn!J)lNO#rm)SVUYyyuw^jcLhf!^I^?PcPmj4vW6V!m=3C zomre@#1(nTd_%8q%o3M7=hW51$YS>rY?%l~*kQPBy^&7eh5Hd!(O$OaU}h}R8VvD) z?RHDVub`q3beSi#tO8s{-1_(ZOH!-!GLV?$<5tKYO=2h$c=RqUV;Yvh> zALJ8v&yGBS)iR50d-Eo^?y3HHFee4w_~`+>k0sDK1bUYV)jq1D<{L&>sHmDs1|X<{ z&dbXyO4Qi|egs8OM7QWIs9VN8BUn1NjnQ<1hMEX-eE1-$J6WsV3vXznY!=7MGTEX- z22EM7HVJ!?E~sfm{?w+%<jYs2I&>F3(a{fUa4~iW)>^ zM?61h2{;;q(P+)q!|c%h2rg9x@nVN1Xlbs60gftx{y^b*0>tptej7;W4|d#2=#M+$ zPE!JlnuG19_8y(MX!P?A6C#3BYyKLqIq)F1^2-iQ=U@~h#+M-_bfqC@x8r#?V}jOJ zy`h<}VTd2KkgMODTLt{U>v$Y~&UA;{w(yg8leZcW9gMunv?BtJ?5OyACo#uf$K}Jx zfaIT@5EEv08m-=e2)w1YW&fX%ulF?P+%yL#h5A=(p6-<*%GAETxzb#iS(JsK zb(kNyC<4L<5dBxIbL>KKtG>8c8-{EL)8=;oScB!m7koh!r(4+Mh{x8IFpFaN0wUZ5 zpyyym4_~gZ*0Fo}+p~+4I45gJrE7n#y7)9$CH*;2eVK@JS_f6<-z(p9AditcJoq?k zr0RW?gYTO4=GJyZMqnv1m^o4$#g@bNEa{`Vhh!STJr~6UIzpB9Sr3unWK!?GU98hO zLKd%-ry++EMZ0aK9$ba}RHe?@7y$+Dok5f_;9h&d`Gsh`=F&Em{oCEc08D#*CrB#s zNvS{RGjFsBB(VsLuZ_hvMNT@_#ycU#Q-Xz4OZ`GJgO}7$lE9WFP@|MXz6ph~k++Ek zPn@t5p!X6?24iFUkp}C6P~dMU-kAvoT9xaOoLQJxf2q zmz;3Ae!G?Xc?JiyzQ(6z7pd6uG(j%SrZ8dJlm*+T%rxwe8Ma{!DdYx+>Ck|_npM;| zOXm-8A^DOo76(o82Dtnv`9K1QvT7-W3Ui!y36lJVclrf<0L=hisir?4J9sa9nlF4l zw$~L>&e=4qQGCYpnYt7Tb(+#oPgCK9lB7;US@hQvREjWOh+f`fEm7boS#)X3$6p3@ zM62&?rX~73lUd`RL*Edlka&XnAsKnxNMGpq!-0K8kEVIh*YPmZ)ybL3*(xq~zaJ1Z z;c@!(5}F#Uw$!t9VHOyJ4h~C6(84`msP`0vUOr>?`591{Yk6fDjTUBJF?yaE6{66< zdGv@X>Uf&!h^?RGOTe&7^~yT;)#e`!p~L`47IPCqznI8up)PF(WN(?wGP2S8jyOGo z>zP1f6b(&xLa!ZcK$-WE>fReaa(aHIW`zE2dmf-fsuQ73T*=2PEZ$P@6G-iIFq#el zE?PJAiL={9B2h>2*`BRqcWlrT;f9dxAQ}?(AF`^voiNNfEo<4XrgBekG}jqPV`upM zLW)2X<1@e;+5xwZ-+#k{Dzo);% zNpA@fi{8kgTzbx%@1fM6a+Q5}2#ua{Lerrb*5c5rW)Q7yTWYWol;vK-v(=A%--D>WozBUUn+u~MjavQr7!6pIj zSR5wKGu-7JgC7gu+KI94n6zUC$INp(N$b{kGGlma5nW50+(H=P4IYyjr@I>yrqWE9 zp-huH0A4RA-@cD5I~ZjQKWu`?MuG&B?Z}nnuHthiGpeef>{| zEeMkbRb*fd!d-Q8bPw15xp>2z?f7NgN^1`g0hu-S-VC)n$Rc}PjOu$xwFjt>paTET zZG(6eOz0t1)J=NV;?2qU7(__NQVsc8FOaYl8#b}@=&A54)$e21{8i$l`@!GdevhB# zNY-K7?YB1SCEWP+;Rd@C8-Fkwbxygxar6wdI1**Y)cTL|k}@J%ALM0H!L}c&Dw|8n z`txVw(tTI&x_bp09RtE4hle6oTECCy$pGN7=c#wQ4ef8w2LXXx54rdn*knbcfz4Y9 zwP*&Szb|QLk-GMAKfmAQ z`@LL#`@`jF&*$U$eC)}dkNe~PxZSTe$Et$0d7e3O1M$)@{ok?}GuW*g=lu6yI!Kg4 zy+nL4M^tNG{i&s;XKw1y{N(1ISGUm(FMD5KcTif3s@4zd_sKu18?s1k>P)WXWN6j; zS5{9D_i8K~R<8l!QMkDl!mxO2otq(S=a&pbp6YAZX4$hK#(9evttI~F(uAXwJ}hsG z{h3Mm)s?bm^APh#UprjiZsvs7SDkobd0Gt!$|p3wh;T?QdnzX z`x~x4m7PQkH)5WDU;*0;aAclvq4cC>9zgYax21da-i@C!@J>eDk(vc{MRQ8q zPv&`iEZqr)m1OBaB>sL#&uvZ1{@eSWW?U`r4o1JyUoL%bc^dd|nJJI!PcAr)FCHW) zdeMiMl%uhv#-_^JF+{uX@R zWRnaL_1K~wCApFFDVZZkZ7ny-Sf7$|zeAqjY)c+a5HV(XgNd}-T70h&+^DuzLE9|e zxg$ec+d8ykOkD&miVgT~X=PX)fqDa%*{Cb@dqEkF5q9Vj*d65ASS2XlxvyhLl0`{{ z)E)vxxkR^D4l7!=7|)ihQ>6Mypuq0-W1u0>KL|or9)SdAnuNgwNx(Grr$^zsqWtUz ztz<&In%s*Y+G!4Jk1h`ym!wOwUz}F6o6`GPBE|nDu^T_WFl|COryFeAHhKtcL;*R_ zY(=1;Qy0p2wlJ_=Yq?{Tpm`wBWJq|K;{q;_fp6r_Y4D=pz}Q^J^{Z-mtN-ubYXcs$Z z0D*&Um;j}w8`G+|$j=o>FMd}-M=B)gLSPSa1I_+^)~Ym6j)~>{6&YOs$#vp$*SP5JN{ApxrIKrtO1YAIf2Bf#n(vaz%pjVm zWbn)=0T_YT0;EPqYr_?p<$T(Y_bI8Yp>g2|jUt%kK(%CX5!uFPZcfxjOOaGQ=xXXB z7eNd;mI4pL{7_#Nof9Ct|omf9MDvh>K^$L2tG z!R+h;Pry_{Dwi!z=3-lsBeT|WnL$BMWb}*1s>w|y@<-_@Nl1Q{8eNN3Bf_P2S%>m{ zN91K{+eUpSE1SmP?Y>Mrlk}Q5d-&8GPi*m+$Dn4_Q%-$@LSKJ<=ZftEDL-vs?$wLf zIwqfsshV9uu3yPT_{i_Ftg9QLYvD<~q%B$MDIr0%&eK-w8xx~5nnv+xfh$SFe>hA1 z7k=06Nd*zeI!4Qi{JCJPoLNSXOp+;|P_qRxiJ71@l!%$MJn!;hSIM#Uvh{$!048mN zQ3-vkWmI7rs6n8|ud5>>0QTIz81v9AK3x%T5RhPz4y?z))@%DZN@@E5j?a4JmrHAa zkIFV9#3q(|hPJPnKMWLi!O)k_$XnvfKjhCd;UA5IfEMFXHYTH=aw3kT<7RatKn~zJ zLlK5V*-Bx!IYVDz)Sx%8g&s*Nv%uG4$Qg_zElNylLorTTqiL&2-O4O1Cl@xD;q>?9 z5B%~)FXP~|BOb7w?fdh?{9)H0E2vohnUGj=YQsX)4@1vVMivt1 zfNTLLbvWzBLAwWNpus0KKigV$DMMFYPV8t>hbAql1LfiJBLmgh)wklu9=C->o%nSB z8m}eM zxI!UEn1U5R4XzZN&#+&rkLM)v&!Uaq$lb*!t4pLd!*b5tGP5-}Z8r5Z8|nBS?74ZB zQ}7YKbrfqY=M?Xb$S%DVh>ZujPX*MlPcw!@lwy9NBa{^Bh}T;1Ro+s2V90c7$Jf~l zy8X@jPruNAoo*x@Znl2o9S`Im*{gLC`WsFTu28KFz14LJ`bSRLzcN_6S$Z`NeX0E5 zJy>@2qN#&f81k&a1D&FsL53Pmo8RZUs`nHQUQIUq0n%`})-_)J?;@1DY-$AwmCQ-G zMGd{gfKe|GMX4TzZKxh3iogQ69)R-)o-!3{=k(I0l@yXrI)M-?K^B%tm(o9=Is+t^ zJ11?V>F}W#WYlg`?WbAmN^&8P-+X!fR6kCgi#I(^YJg9jDr+>M3h&tE>A zR(#@UkCaY!!f-}OB&Qdqjc<^bMn(+bXNalRbR|4R1NBaN`v=1tF)AZN?lnQPJ~(be zf*M`X1F_lt{@CCJ9m8sws?UR#W&sF&++BcBciVCfcx@tDysaP2&h@uWHC++uPi}D7 z^wtCJ_4JW}_qn)}diqJA?+@>82Q0bXmQThQt5&VVXo2%E=tyz~ z$1XuDGu-H)rTO|Q7Q7913-W7B;6ohK(M9N(op@%nOTm0`QAAJ56i%mQ0Bf5Rq5R@) z`jD6dEXT_;MDDiZ7QtJcSDaP|om`Qh>jafYK0iZ4%hP7MSlk8{JAhB4dE6R~Bn!ks z^4GcUR=dvo<6WWRL8j0VJ7d>)c*)7=*Oa^6bCu;fWw7ES7Se)hAU<$)X0r*|VCjgH zWGzmVv{s5B!YJVfy0c4$DF^iZf(~yF{tciToa=97$}AY zBIkaq^~5e`Un~vr&tBm`Fo*p=m{JImPEagNfYP~;45X_rsT5M0su257^RD+!O~ zBmxRQlkoe>oAbi&OwPG3AKq@EKmhDRY6vCKcPJtwES3jBXVW$UAV!V6 zJJuosIA6>yJ0L~Dc6B#AFt4t`M`uQFCa@mZjw}IXhnCKGGhIAf+uBO5p%7Xd+p){0 zl5R@C((UglbEhceN^+`Sz+=9I)`ew$y!+$bPN3`nPL10BeLK7}#;>Bj+>?@DlbeSw z!DsE-(p;$I2G-*W@i=K@q*mN;AkpvIF5nfZMQXc%Zkzp(ZI3&T%j}$`QbFo+%zrpK z+OPSh1vR9(WYn*v9iLvY4pc!^Xly42W>rfo%S#g*5Izsxd{p}~2CZOdP{K8MEZ@>a zgS2IhFF=q~0Z9npoNir7BaT*;;dX7^Y`C)3+Ur7B?c4gm0!UZn02Dz!t5JdBhQe9P z>HR^+laLXY-;i0P{oHv#PAJ9z2u}bYZ+A@Ys&|M~?3JBG(>pxYlZ}1Lt5_>=yFvTU zgS+(h?FVILhj6)PSB9v6#}0jcy>vu{6kQq#h99%+EC4u?hNmlN7|Dadsc^72L+h;X zWTv~hhBHwPWH&+C{Y_x89*)Ko{Necvw|5ih=CA)bCar7({rtbLE1QcQP8Or+7G=d8 zPR1mu!yW7Zm)>ZiGF0232-QS>rFLRkI^n>G`pSII-u*`!j9-As+yCM9t=WBKo%*Yz zrC{I4%6`%9p171=lb^aPzx-cbe@OkuUOp`5#F>QCVYuj(t=MA`^1FAS(5RJ-y?ase zroQLm!ceAOxKm-^7x%Cec$`D*SyT`>1dZCY1C83f#|#w$c6s4Whs7kIc3GN%9f!ah zhr-UpCZ0YXb_NB`W4b>U>|EJ!KZM$~XZPR7n7TWocB5BLbO^lf0N&s8@3tA(w)|(? z2OMwt@B2P0$FKBm<@`RNf#rV>T4}KJ-v)oT`1cAve>eGGdseQo>%WJYfs_5ySzB9h zzQdl!BEpXU(@E!O@OgKD1O7P;*l+4}I`+6vSOWOure03_QKo+%;(#*s4Lh3vZouEC za0DL`+=Mfz-T%D_j;CYe{?GU8P;3G&Aq@0Iex>PuZ~aQUm0KT#lHYCqcSm>s(_i_J z|8>mDr&&41Y^OPB{oj@=NB{drGu@AmN(eg*Zh92Bgj3k@*c0GS=oS`pDj^)T`=6V! za?yYP?6LZEf~|@IsO>d)qUQ`7g`1 z&Tm8<<`F$#W^Obae$J8>^mewhB)MkW2lAeWQdh1Y^)BXZY);&|FSLa6^|kHs+_W{P zltsw_3x5&!Nht>U=k%!imt*fAK@M!HRKJw`;7&RA8osp83cE9vALq$%k)AL_{=BU7 zyPDGW)FS4T@mal&pQ~9g`SjuUW!LYHUyhaD3plgA`_LDU(9XhdPkuzV zJF5nF78;hnf4N5HnccAF*K?=luB>u6eLyd9D%$9@T%|_dh9kzKUW)r3>6Fc#9iP9Q z*!3ng3%5a5E17Y+=JQVVu#d{#OMAt^FDK5f{f0S&<6p_WTZlchj#L#dOp^(SjCj6fLH)Mew=V61Z@+EC*_MZwpS{;e zo7(f+G-*@@AKHX0y!5g5kk?drQNYONy~1StUo9G@p?le%eyi_e^>5pyF8*-tu#B+e zxYd<(>e}d6?{3u{c>$kutkkvm`LJNe=bx#s6!g5~bF&YrsBaOrd_E95@O;50a6QX@ zY1dcRD)~2=eNl27YVxbIUtEN(TcdRU&o+~v>cr^7uNJ31lYh-Ej>)=QcAu+7c6Og6 ze2o24P(-x}?AjQ4;=HT1@u}I74&u@68Ow&UbKevT6&0tF&wXB$zD^IBCLha~$hT1Z zBZw5m`dP5Je^cXDJ2{g!furByd#66Mt=d!Ex9Mr;GvifNX+>hMn0?$c)m?+@Y@fKS z%2TVnH<){+C_L}%WO?P9$TNFbZdH(%eUwX+rThoF^1E~P!QJp@7QPpvG|MW=bi?7k zTRdf~qMvd|ir%LduX2N;mOeDfJHJuJINkcsT~*TVFF_;MM)uy8V@T<~lHKt9_#vyN zaP#gbReyE(?>c0$Df?qGHDv3#h4qJw%|<>lNMmMLDSDq#%;fbCT!LPDg{%4F9$)zc zj7jd@FRGRg8pjXkf2gQUbtL|D)tU-R+kO2ce?(O#xJf#_3%z|EQ44#2-P81uKkgKo zFr`M6;`R_9ecsBHW!^>~Ik!psNcZu(`oUj=tKUb)D9$F2`XBxySs<5ptqS|B`m1Qw zxwZT1(ze&1mEA;ITEoKN%^mmXjYGAZ7pMhF)H{6rYTQTT*eFrtKx`%CmHeUq@T(s~ zAv;LU-i+h7n{yInKdJj^YZ+ zBK#w%uZE4OE#Lb0{GWp^qd+F>APfyr!!ld4AEO86s{5YXwhY*uRbTHJ7p2zMeDAk`)>Xwf7s@prVA}7r=_pscYn;^o(S0bCe%|5 zT~Cj$c|oQ@!wncOUL@7iGh`f(L17FvL1%&y?k!tbgtn6KltO7jju~A$ZHi^uS6Gq@_qz6 zP3hv98~NWnFI#OP%X<)vx|TvUzc;O)AU*hV8gUPH=M~=3C<<#7aw4L+WTNY*(&3j^ zWml8X1;cY3#I)%azzO&Bn9!B||j>qTCRA|Jaom&EDY}TU-vW zdY+08->-c%clM5DU0xn$c2{LI_Eawasyf-D;8k_@y;} z*7&=ssUW1@%B)>;MR#;U>(aWgeuF*Ig;jN( zcc?CNU3+F#TU8@Vl`%U#nc8=GFn;gE!rZfSRhX}d(xte%{jFug=BSM0sO@^v$bD@s zdh%@CcSc>?a3-OzA&149{^18*ErwJP@e=1D$)jW*l zmz%7eP?PPhRdqw!MSMK;o(P8{{fm#%+FeeLv^wrR@j8J@lOm->Of zURQW(n@Rutl}z07;af&xW$XiugL;^Ey|9JY!>_a98T^*K9Mqb^j}fzeVUwwgul7Sf z?N&+u$2hTM|4N+o{|S>V{*AcIcmD4vY$aIx{}qL;G(Plq)cC)nu&q_@V_DM{|Xiz9i4rB_v6m~8!yV62H;PCc+t$l+#F?kFbsbxJOQQVW$Op z_YQELe@+hO3eo>e3tUkq|1?gFjydzswN`@dfBUd9%h>Vv?Bf4*mj4;MnykBWbwHG;{d1ef0-ct-``%oc-3sP*>=4pcg>%LX16UbJIGQgFOLq?msNVQUxoRs zl`SDm=-#FeC@C54eB=`#P*BV_J*|FvcuQ_IsWC>^V4EE`kSayLl}?`CGdjypCTCv1 z+H%}*wQ}7hOznR94+r+N_)m$VDH^My7sp3)Hf_<=*HRA9JM-PUR0)C{cdJ$TdxG5UFlyb6x1sgeN+|lU-koTjR0(pnUQb=~o zvD>ssv#>4qVd?Q3^KYVh`rWr8!;cpGNijifQrz4$GLD`pTk=9e3)uB08u{nW!i7!8 zx+}9eP1OaJ{Y}f7JKyh(x~zFl+O_jTELEHs^m5ce!y$j*qqZ-`P%mBP6u>RIse9Sa ziM_2C;^kw3{KZBFq`t%g=D{=?*4jX`r*vDMSx%Ngwj9n!%Cxx{ccFCt#Jj@Rmo+U@ zGM&e2dv0u4wiO#Lhtja29kqJ<)xEO|b6sHbJLKiAz%%B==m8n0>Sj+Pz~8ggky0Y{Mcq!R;(=}ty>h_(lXSP%qE3JVAE~&_N({UF1*H;vZgV83v@QDuE zx^=XafUl|MG(@TZg7mAGKhr38;af@#WK}FNG74Iepz`0VWz>2-f8b=Q;IivT3kOs|pHyp22X|9v~^RSQ75&roVai{=TGq zpjos`hSG?B*Q3))Ceh_}MwHZv`xnLKYZph;Iw;~970=*z#pgcU=#p;tY9$+XOlH*G zn%a9}yV3-ll?m{z79M;yW5%K@4^)==d2RB9<~ne8y`njZICfLY%#ppOO)w2FqE~gI zQ+9(PSdvy^8^w+W%6`|e8c_!Sb6kka?Ky&s;I(c3^2EIWx@|fgWe`39)mZ zO6H>0P|CjR$8a3mMl_$=bjoko&u_2cL(T-3ADo$;-9!uOzXvtZZctxcOFO^!TwfEd zxJdFyEGEE=oW3q0-5aZ|hu$BDxDp(+IO``z#MP6ti=fTT=n6cYa_g%)MZ87Y zLkSxTGLehakq3qi)iRj9y)!rJ{NO_~9ix6bn>rev-+1x-#+NpVSp4U;G)d0HdMFal zN>345c2F`TfVTlnhzSICk`Pa7XyX9yB(8hXR?A%1Jetdmrsfu4)hl6S(S%iH9|V69 zSfvcvJ88_8C9RqIBL0X761hSx-GdC563$ltqM9L`|HB7|@^97*jntb87aPUKguWeE z$?deRM20vLI3~C8x&FhkROSPd`{Yb_TxKqx!oB{}?|aJu-KDM+Pz&JfH*69|U=euS z9Xv5Ry2QAXpV$=}5}kUCY^%k__hj7tx?=AZzJ5J6C9W zM8tmR?x?@e2MLzaeBWq=hcuOw)U31A6tvNfSs;i190sa>FFiyiH6JC8Tad{VM0rNK z$g83xqJAl~zCM=KAk);)aWD6(kxSSMDCcirrEsZHoeHg3BW__HNJ4 z+#5;oZyoiU&Akc?kmTv|(j(=zqM%2X@M=)33tre4oJ8mwv_s*3a>3_HJgJ^r7vz3n zd*gJHy5CqxETe@D3RK~LOCJ5ztd>fu20mj-FRg(&N@;-h8y1HNMK@{h&kx%y-EN#| z=xE0dh1kUVwXpi49btxAeSruSdrs4m`j6bnoq2WUS}T_XgNZ9x#*xfrbK_q$-8z6X zkCp4t@>U_J*@9Nu8R<$+H?IlL5Awg)np(M3<9F zln~YLIyfA|Hs>MIy=dbG+&*6i4hui(?t}FL3@O-7@-wFcFzWzd&J0`;kB0!Z49+YW z2Pogg4q)6f{a_9Vpby>rn?@GCdP0)j<)yH3XAGhALlX|TDK?!dxSjBjUYx9Z83=)wZ6weQvfwO}6N z7dk-`p{$pFw6%)Xn7Rmgm4rnrPd`;sc%W%%r6@J*hbDS#ARCqdiG%hYOOWh;_}J=E zS-P@ZzQac_zHN&qkknyzbNA!t2QE44?+@uE-q#_O*+~{128GI~Ea^)CGs$GYu=41V z>052*?Be_=jZqD%cpChY{>jBZm$u{FAXv^MLkmSWz!Y$F-WGjvJX2r}jFSuG=E*y|_s zP3o}Q=%tY#S5vJ#4fs*E;t-2A8uR!}tK5$}z=3adu_gz(xUSUCk369=wR!f2jq=mW zsxIan>G6p&n<&%>fbgrTh-E_;A$AITL1{z9rE~d#Ta_N~G~QV7!4Ykr<8_`69zPbm z8#?_>?{^RUrGP+`CNkZTbdj z#oVZ?J#i0ZG6TqHrh(mwgZle^TjQqpq87DkPgHsc-5G;5iIRLilR{xa)jUuZLFm%o zvGB6B-z@)|9W7`Wb{6vsfVbqOLo+BaYfRN(oH(j*W=7!r^gIQ)4~QWByYUbkZ2gLr z3@L8Qz4)YR&;0j`7m3-zSZ4@zSNo>9i$;RSuFllmvwZPx2UD7BB8QvS)d&6Lg3(AU zBsAccU_V76YZ*aIgkee8GjxN;=Ye1?1w@h5;s%vR-V+_rL(FLJ zOxkd&&unVq4Nr*j76m9B;ur?#hJ`OPXyOZJ47hEx(T)=^j1onC&7WX}D9{BNe_B+D|@wD4&B_)7r&3Vp$%$ zlOM|^ODY@`ypcbApwGGADfYK&S)W4qOM{)rqCq3z;eSpA@f@Zd^dm+LKg@jNV1VxThM#wdz zF4jP5h}hxgaI6qRqPMEI0Nl3~0yW@Jv?Pwhjoj-ZGn=@pQ38f!U z^!gouKaP`G8Ja}ypm_F(6F-eTPHJeTdslrauPSvW+ws7Hm9OSzsR*+Q#23(StyFyG zWM<3ucmCBjV{*+sKHy<=sVZFCE8Iv<^7};)=BDw{3{dPv^}5y3TZ5M#8si=-IflfL zSQIytQO6wOmiCE}natJFef#@XOB35tdV}0@ZP*6(Z!PU#?p6hMA}d9lk+103t)&Fw5sO73RsJVW8p12LPJk@JfcD6`Os{n*Cpn9SzG&qJ4Sr$?^>8t zw}kmVZM`9zRK@7|)^zf~u_D$T6WhS*<7jgR(`mwW_|?JJr&5r5__-->|B)_qvHLb# z^=gQ^N%bvbVnidfE8)KPdy{W}1o`eV@A^=JnlHxG^c|pdpqvhAO7){Q3#^CQbOdeq!K~6cH0CZWj!8e-=u*!cc<#`3-$lE$-m*Q}=`SYa z?zgi`vn*U+?^i*;bH0AYW{rqyX=Ep+R{s97{tlMWI;X5cP{F~tzc~5H%yF2;6`w|a z3*UDKxyMVj-NEvV{U3)TYbT|(5LeSZKEkCA_8+{Pe9jt|E-#~y9xI)AcG zXaQmAdecs84B}3-XG@<17DMSc%NRyzJ++GO^pglPFT{~brHK)f1$k{%bDFzliJdKr z{Fp80gH1sNOnF{9G7Ry-w2Dc`+4y+MTNqdpR+vwlE73qAFsh{ApTJCsKaPSH*U+}>jp57sbYLnIu^6p)v9K?9|$*X_fUs`hL^R{5mo;|5lt z=rS{16N66GV{11dP^Gevn|TM>h+T_Q9K4PNnzOimZl|xEV7`er1aSw7aI{~39`d$4 zDIJoUQl4(V_vneN8<^%fz(q_e^5c1O0)!#m2UP}u)!s2l2gH?ac$#0m&JOzCqHty} zK_G5e+K;&~RSoLj<}OM167A_p4JuJ(TglPb#1H4Sy1ML^i{PBqzp#=qsGtWU_`T!i zfn-7*781tBirM(xQ`zz==ixEsCMHH{6&)8sgeh!@2&5hS#-T{8gh-gr1`e{jD2tCH zA#58PYwlk%HQO>Q<2;Ucf1bmytitT6?K+WoUZWtOpPQH0b&8I6CIE6dgOf^h)i=Z7w_#+wR{#Zzk zQqv`lZ9TQrdaJV25k$eI2$OUT_hVnurC+G_?U0wIw=uagRF_$cAYXnbG;o=+{KbaI ze+adRjXgt|kO1m{B2!sz7C`~d4EJ0_xVgfH>WtyDk*}=>R>h)lqbZ{ywjyd*z#B?~ zfZrCo1bMtsX4OvAL+n;s0xLMm!p{R(Z)^L;BT(b_=jU5VI?6E3v#R=)-NNp+iJW_o zfNEiRnU1WIWW<(rt5a`Kjqv69Shie* zlG-F~&`3lP3Tjiy?Bu97iD{j{Oe(fHn}PFzKb+j9hl-m+;RR7XnjmM9}bXAeK-QcM{Zjl90 zf+~ieI)Bp7a(4p3&<+7UGL<400H@4hYB#<0h9XcS4jR%E@#K$cJ<`B9TLCedp|5X~ z;u`T-jxf{JwiC z&2I;sq~d10)Xc!tVXBpsJm>nNeX>gMRdmEHAQ%Con-l8QX|b?sz~PjRG;$}^LEH3kOfD{<* zSv^C9!VaTbY1KBqTXE(+1$PokhmD-OC4rePyJdW*CI=K)k+ti5w-WS9`6ipLUN1gy z?Cy=pbj|YVQ(hV9`xh@M#c1=ksVQf*D$DclkFr=oQrV+Tn!!^^h-=67t8YOOM2w7J zND;Qz_=SsDkQ`WVT5#j?_IlRaw|ia$2E7YJ*%u142`q=h46k36v8v z#ZbQrm{;pT-RiD`M@xoaXDxkacM&@;PvoiaFaoGHW%<>?51}8+!WAl^Zhp#XWQu`R z!$xlT?QL5($*VlSj7^-4Huiw9bGqLv_5E~eml!%4ISN8kr8ZkQDwjxq-csI|1minVM3AL5_(Dafo;{oD^m z=3rg6ZY`-}Kw;|O-GKSe{j-B-J%k-R2{Ulw7Nk|{%ozt^--9ePrn*U`Q8*kiSUJ#ZZMsIH;}29G0o&QD+nQ9iD9- zMXA5IK@nVW1C3wH!~PV#om{^&^nl8ysS<9(i>F?=J$j#K^?^{|ELjvXJP!@Wnw@ z1J5+$N9*3}@UQzWz^is*N;NPX!9>;5m0kal% zYj48xe>nwY{RqdWuAN0U+zYq!*yj(4O%=58EWu*aur-|1bWjn(_Tf^86h=x!@=CqH zNeFqyo7pW1oug%VOiY(IM|ez7Iwr|K#fIG#<)mpVUok$7a~6wepCwv=*;l!TN+<*! z$%s9F@cni%!Dszi<|cX6=efc}&+gW$(E&EZV|31KN8cV|6Beu%yq@B>1^CkJSpGQd zEOW6f_JAwqH**H+6x;0X_$6U=kK2WzuB6@1g#<&7y=hFAR|`O7m(jZdIgtXu6m1zk zkq|ZMR4Q?J)SRE~qFPjuBDat;Z%aXduPK3<8w1pOKRG{0pJ6z zX-xKuf~szv*#jU6EDD0CwBSvElq1A{zg-g06h7Zt9m@!E?54+k0H8bjua2l*CGVT7 z1-|q}2;yfhx#-={(WG!zD|-4#h7*G~I*W~+M;^R`LdBsi>XG4I(FUU=wELQ48d0d0 z4Rl5cv>&ExtLz;O`L9=z z5liHUL6Zf4xYc3`5~Z}(u{hnMSb&Ojdd!_@DBp6~n&}z?)&snV(Lo_NzOH-J&g z#sN=y2xdnVfr!awev|X#G+-z!S1=QWzd)WqS*!M)*8s$*jd_67o0CJdWwSzBx>~4b z_C-ciAS3ZxSq<^>R{?#IxTU89m!4MaMI`Da$tbD$4^7ZgGjX-4)vSrz%FVZxq=sAS zC0Zwra~_0biqytj$G4BkY43XiQ|Q~_=F|9SGlwM|dPGJC{vMWtTeG><#%DGw-+s_? zG+V8iKW#pzY5k8O%9+PI;U?0u4E%Nt4=s7=ecB*h2ofjpO4w&fFCsMDZaTs=91L@u z&^bA2TigF0$($1E8-Wqi;7=C9n5;0J8Wef_yrRE0`rhvdX+g}9hRSV&7crCNnSFb9 zZ>v6WNLo?JwET(&=Fj7IK5Vg%vmc{m^fN4A2{4!retYS#Det4H{iOHi@SEly;`i36 znV??T-Biv$J*G592Q_GoIq}sfTIB_{syroHjBW7r41jO@kwkGP2~sYkL>qxGmxL$! zhHK<``iXc!;uV92Ac)H*1J;E|a3NI`lJIDc^2Xh?kW?JRmfyJF0@;J6{en8TJ6%~C z?ic}Z?Utq^@YOe0PodAosKab0Iq z6KsxTn2RSmPmnLr6Q*-V)^PK{0!1p%eHS8FM5jg;e?%Vi!IyvXr&|6>7kN_y>| z$4@vYO{CwLB(AD}XL?S)3^z!6@RpA5B5b)+Fad)%{W=W@l0RQXt>=ESv~C%U3EJqU zvee9@wMlW~AoeoV{(Zq8*W+e8`H+cudv2fC$pWA74GKEbY0zhYFt8z&;&>35ecRi~ z|B-^>iTyot&l4Sa(Oe$S@7qlT&d2ZZ8rw9j{u@;T-h#z$jQ8V!v?HrA(lPMN!?isx z9V~a(#fX@5Ne_y)n_aw^VWweAHJp6hre+~;iHjs00v4xtP#cME_k?MQ+#R19P3JEjP;?f+Wk>>fE80ScQp>baTD8S>TId{r zbjf9auhx}7vQMf^Be0{i&aSs6V!pj05GhZQaNeTNF>LlMAq*; z`VN*TWhIr98gAW2M{IVg&aS$A09GX3e|ymVzS!rqcS4uIg;RBln$`~H4@?2Xhm7{E zaWX+@YD#I#VH7kB+gdpN_olLOB-NXH_72Y)u>CaxTbmZOKBdz7CbAwjaD;+kL0S>F z4PSo6W;!1^1A|xL!BfCfR?Qkd8c~cbqI20 z^8EH~>z_enohUwIe-tV7Y+=3EW8c>)iY_>A6yd@M@o7Kn>9#c`C0R6-LLf_8X!#k? zldAoXcXZQ&I%h40X?_=mjIJU+*EwP`bR&wlA`DwK&C%&N;FK0qh#TKd5w|>?4G1~! z3eC}>!c1rhV!&&wm~s$>Idj>?r{<Y5y#RseTL0%id7QmeQBlef1QQ^!(bWt&XflD%6Y*|jVySNa!eD}!B#Z>b@O%o( zpA#OVmZjXB)%r|RL*b~-b%8`27(##~2VpJU67ERO3s4!X+$pw#GK)Cu=tlF9rYB|N zOZD4({TW%U^^Z0$SrQ%YURs0cfLdum1FIOcAOk5TZP};}i>2$oc#0x^SA#<5%jgvL zSSWL{l6?476FnL4=#MbTBCy+?NDk@bFvj zQGh_AGMhNh5emhrG^6g<&~RXEl+moTmJ7=pw!_V_0k#)iN=o+EaLb)GOR7*Y`r}g3 zpR9|%77`l~Fkzal<#J>=rVwohi%{Inr@1nh-a!Oh%w+Y2c=_vBQBi(AFpYf~DxO-LK22Kfa!@S00Vr9aR&!gp=ybIW>R82j~aCdG=pMnSs#t0ND0xPwmlb0D{>U?V^c2Z&M7(5VxtO8*@u#KE$;WIt@ zf2hES4j@_Us}jBb2vwB2MEkydm#kaf+CD+QJaafM`-xLO}1darSS zsp_ne|J>lnoYr^)emcHawpUigel*Kz^?t2m8tx7L>WnPU)uc-q`d=(~wA3~>fs!2H zY|d-7I-ZLeOY6S}X5{#SQB2iqD{0tOaD9DKu^sita&J)3VccE=wX9O2EkiBY@76zv9j}r4|`>L%Exgf1R#k=Biarfy- zz3`97^M_Q=hAF80{Ri0S%&_MGZ|nBs^41%#<^c;k=?tfRn=%;5EQE^QM{2JLy=4%% z#yC0pZZ!N2yJBszU*GQcs#WLm>zbdi-n-x;tPh^dA>TzEEleS6OzD!7UG{B8>E0LZ7vtbEL*O)O(-^A8}^v3+Ea z^6hkVO$vWtr`2~@p#mNx@xedjW(-Nii+E&nRHn{AXJPin4kK09VoRJ%701$CAa2zC z@FU^u$v&&+(h>UhddjkA_f+jAW+7f{$g04sC?0_R@3OgQPg1_&s7JaygORWSq%sXF zI$|mmraU9nh7tyx65-%J9=0Do-!hxvGD(8J-+T95*p!Ax{@IX2?f4OHU0UJSHee0b zAR4$G{x-cp33UQpvswetxc{ij#;m(U^)HEN>%Z50`S^*01D|Z9d+7-+O_Y?O=uMd2 zf$d#3*E_rUiAxXNjXk#>1@)f@HEFnLJcCYS8O*kLY%Xuh*iZ@#n(gFLBIRRDJwtie z(8l=@CLj9JRbE|iNfwr+tq(WTK;@JLTf=O`yOfiL!D>;#>2&Gw5RjE$;r5(nFziJvyjIrUz{>f z+PFy(Bi$>uPPI0Ys{)asyy7e+P#EcY;Y5^OLn?)Uxv-lz0*PH-ZP_Sw5IKYVj@ad+e|s zbvSLVXxPR)Z#(3&JS8Nx;mMHUyz2a!D!siPN`UyzXk|z{OH~WOz`uP1GLA7DSKcSg z;2)-8+0$m0x6WB&gQiVIVq4zu>97-z=a_z}X}2P?Q}9D%;V+{)_gyWLgGmeVCxU@N zl2yj2nPcy;x#SjuM`i}HC)1X`>)u#xttJ%tP3PJ{qQzlr8ik)4KxuufBWP_T&#+jc zF6kbe@(VqkM+P|HB!aIE7@kIVRHqEnvaC8F#HQaUQ=Y)Sq3gbS3$NW%1cfpn){#uX zOcCMxWuKr>UMD%#6eO2iR0j5C0DC7(-0n^z01&1IhSqA@GGGE7f6)9# z+17+gT_`!0%*Hi(&uv)^E!#1Fqit}?Z$*6(m(D#~PAm?D(kdAdfDpQyD{mcR-6@9; zZ2n*r<)fyC$#I3*B9xc+Gob)J{hQ^L>11&%?=yQAOCyLcM3x@LMzru+9+OW-VzXJU zqaoeYSoxY(Wd_1r<5>P^1`*TTTA%r2tF($IL>IDZzaK3&qL3r1l@36^>^Sw;q6xs9 zi1G_da}V%m2Fb-wD0k0h%gd<79YH1|;{!lxx@FdgRfgZ+Ir;8Nh)Bwynss%Z^VO;X}>uLVu21k+YWQ!Cqh?vg!++2={7}kIJ3& zu^(Vb9}de~$>=&c1pu0rq}}Ooicr{)cISF@>TZ6wC>x{(YZ#n)5#xtRx;OAixCSuQ zgC1k8ZHQ|>wxKi3reT3fx|t#GHK4Tm8SJmE$>aB~OsIR{EO^-14nL;HDJIkr)QMBr zWxn3q8-sQ zuOz#xholt!iXf4gx->+97RL^g=+3o>bz3h1DE9?pgb9$bfF~_|t{*mT32t_(T|Nr0oc&Vgf@953KS!u?WMICFtwB z-z=BiNAg#tNsX@B~?4fMhb{hV|l)gl@&?QzMPxgv!*%t=A93E2tAagQ*c)*$9z^wdoOk9 z&W-oV-w$lup)d^Nz281?K_B(CH=R@xZnXFiVU*wg0f|J{DHZpY-+Zg4{IvYZ1*qOb z@7aZp`FfIy^8~ZjSyEYNSR$JAUMcv7qq-|_i{n-tI}=C4B;=4|FVP^*Lv6J}J|Xr0 zA?fSmncV;Xzo#_A#@t2j@1lFsl#&=K%24hqu~zDsxvShYvDnxRduR{lpH6hWIEZd47FBW6qwK2UYxqt!Y%~m%ii%h}YBGD(zZa zfo=}(DT>>%>gAw)*TQYY)~xn$ucZeMTHCph!s+2@cIpx)FF#1G2&-KhP>E*G>*kpu zCV$UeW%KvQg-tCo<9%;E^n~f)et)4|6MwoKYUB;3_1z$ZN(4*gpTQX-V{s~R?i2Lg z4iW4A?E(Cht;KHIsUb5B30GnccN@jG*a{$OZM)-CjwD<$?loVDCFCol5++DM>sh?& z=Nik_Q;WI*N4*5FUNw}l^Np|VW2%oP8U{aA8Q>Nv;i<^9B?_gGwk+u<*T6~2L6xAx z&|^2T4hhq4nZ&`pbl+90gS=RS6|Fh9KdD;dIn#3@HS2Bk#(R%xMR}Jfb|HEH!n$_W zg6I<`r&2O)(xXwTzY-T9y(Nn`hH{Ip|zu< zV_8{pLHO%+HV#GUx8Z_ol_ zs0Nd%p$8xSB$5@-E*h(0pikKz2Mp11h&9^NUxf8yjl*>}XMzM13-=wWqmZ6isp!8V zAr;R~L(R$u9{;zSS9XSJFXin%nf`&_q$k?8lLt6@AWIoH$&z zo_3w)e-ISa4eAq!47O4&AVQx@_DFiw!=dVloAnGLfIvTc;w5LO{|P%9aUB`uW`E~qin|T@SZ;mWMkdkq%JpByVGHW zOWkVk$^1EfPYrn?%Xp0Z<&=|@*V?TjFBW}bsF8G{Z1C4oiOQJ_b%7bEJDwoZ4bFn#Q3~GC5 zgc$}_ZH&Sf6J#CkO&d93qdTrUCPefx7m9)_sAUiAAtFxI6nylIACoL+4&JRCa2}k3 zqRH}@si=qto+M1)Njq=PPP~J#z_1%&>P`#-)rz-{tHN5i=#KF zB45o^lb~MJ1ZW~bMhL0ZaLeu9KpW+X+HP#rVafyxCTjG@YPrKiW1GhiS<qi&SQ!yFBLQy)gRs2Q%xjH`eKh!G%zma#@77qE?xl@OyK>VIpR~|xRMW$D80NA zN1u~3MD6@GuYR6dB+d#zTZEz}X%xzLmm1p0hfV3BRI@nrHq%Wjei@MFvay*BiIiRy zU&|2ilhHA~(}|2=_2=`#xulI8q=w-TRh$`np7HA$Vdb+H^;QVMez%T=6joF2JQ~9a#}^|f$qep zWBEp?1Rt$BS{&LOY}S21d+@)-_i*?Zxro%5Q~UGh%WnMz`AwATU^Kxk62c-uOtlK! z2L3iKpe_=!c&eU0>`E}Ht0r2bN9Zu#_|ByY8ChUt^U7i=>wl>JLH#C^XfLrx)S=N& zhy)C{JAp5qtN|K#J^t{O#wG99eXTE$TlJ=b+?zJ1b9CNYXn@SOZzL*UqV3a)Pv;?F z!`&Ew!C@+>X0c5fT3{;b%iGa4y@AbvckC>F%;3e{Gb2F3ee&%ATdJL9RuPcLfqz~4 zSm`~3iia}e?#|f#H@hY?$NSu)S3l{O(`G_}5UVb1Z_n?hTX)A8vfB#_d2!-I)+>C% zA0K*=i>$xAaIXRrGs)7wY1&)I@^_r||8i(Rz1eR6j)1Ny!BsQ0OPYeZYY zk)fdHLvNAh`qO(N3>5zy`g*=H7v*~se3Fs|d^JaI3tO$(dM*d*0Yw-aE2l)pYI;=v!z-KGzC?|w9wyu^h>M|<&Zk$=C$R_Sb^eo*Act>E;UnOluk;8HAt^EA43j~qNM|x?bKy=md_rB;(K*-YPpth*Fd71 zntsOr(;mdU(MsX5A&YhGwAefc4f;|YtTi+Jru&7+iaxkG?9j3q)v88K`Rvqwe$H7g zo#~%)QKa!=xYBT&Sl`(5KfwWwFnaFFDBLm+mf})1CDi}z0xHAt+lE&?%N417Y&%bV z8-E2cPiy!eqhsgL>_1t;9gLF{DgpLr>xq|D$#QY1ZK zY)&kinP|yTA#$k@dwC#ozLyT>oZS(NQY!ouC5TN>DeW)@t{@`EW)KfZi7>0&ckYBS zvbCrc>UaVDY#k+ydV*ud>@T(}T~r7l7kSR3_Of9IlV%{~7)_&c%Q|L-U&Q^Gv820* zYUUxr zO6rG~UchU^jH*+ZC`1pXIbOckn=BY$9mZXg>X?ww9+jd=TUN=BLz}O%KL&U z8p%%D%>P(8`AO%`m$PoHQ7Dsn$G0bIKh3pChDxQ-_kl#gnBYBK-O-(DtztmIK|-Nt zzzp>S9fF>Y?u*w^O2-aEquFmQr*IILoGpM_n_iCRoNJTP`BrUiodr+PLfASR*CTTN zd|&%kLY6>#&|gcGHgU%U%I5=s`&+Zx#26&(0I0C1XDxS1OFhtNjMx%_8G5MalvI@g zFvmftXPDIVnQkzU4S0iD?(Fl_k~nARHT3;C;Mtb>I9Ypp11HiK-(ZSQ0J?|gT=S;d zfN44-wdN=^I_sn>Uc#}}lEteyKPIGTU{xzsI9`k-fqQYkTqTWo*g00RbLY;D*Eq*c z-9x4HyUT2B%<(K&r&Chn~TIb3>p6sJy>wdPksqWOUtsCrpEQ0q%*^r-qbC za0jde{s_BLaDyC;^Yc5<%6$I3N{>5eJ^i^v{@HmuXdphTjBFA#rIQ(3zs?Dp81Xg)2UX&}WvOyRJhJ-F zH|_KegC`))#tlO^qF^3|jl)oGVvjC6yIs7Y{1P+J-N90&NJUVxQoL{3Gc@sZB|ap+ zU^s54t%h)H3JarCO}&3?mh~I{K6b+X#+iS90ky8dgAxg=3leYc*YbsDfF0UQ*RvQX ziDu@_Sf5=pQ3atPFRAvl+A#s2o^jEm?O(nnv+j8{Ve9aA?@D4g!io6Vbvv5~(`x#G z(q05z_224os>l13%5hD^W)vG)k_T2dZc~S!h4W;f%@8aT{=adaEZ}s#M25uwTFotl z8G~q`7OG`);C5`&_-3up*(2j9_v%%IV|RHh*a;+#H$FaTd|KE*GI+w~eBeAA};+Fg$Vd zx17#>I$mx!dwHXQhK4WQ3=dNfG8{j&Y64b)O964#+L=Wk_fy$cO1t3(sNCv{foqb6 zwid->8%`jSrFYo=aAL;T2AN`-eJors`B=>Y#!Zi$S3oyIiN5^uw5&P%;$z2njo&r) z{cjrnMjtX9a?h67m6jKL$tdr0Mvpr{tbx5-mB*OhKF{xPxhRBt|8s?nb>xP(!~DOU zhXuNRd)06Ek0Cq3)ps<4yQtc_vXaeohJU?X%3s*l5OP-IpwVYr#L>*(KC_vJ07A zMA*z*QzhYA@7=k}_R>j7%wXMdWBW?7^{rg<>1APE_sFqRceOJ?0j}KxLvSQ}P#NS~ z>i4kzeC*+uz5o#&B_)%V>*UNEEZkqaSf$sCH45cw?U~m9xDFpb?O8Qz8tP3y^6z^Z z9^;;gX+7qODZl=sz2c@9MZ>&ljuRZz^RiFO9ODY2Ne`F$mdGMu;?kVYw+#i5w0`Z` zQKC?@IefvTyT?b5*jbTfZym`G?&1YUYX^BmCpu^Q+FyON_Wr!}3Rx0z({w3m^Kta| z_4jCGR!bQ*?Yh41j*5^f20@N@swfz;`}XP;hHBO9nZ!1#p;K4HJShWkR-6e>6&VK2 zKHqKEiFtES`h6Qm64gmr|9`W;UBn>&FV8*12Vtlo=qtCnIt9P$$+7QtIz@5PesGsb z6h(kLMjiuaS(W4!| z8kjk0Y0SaqmoMcTTgFcFdqHEB6EyU;72TbWMtpC^KK9;GPKIb5isIqt!WEUT> zS~i!s8jtvo{0J-K^kJwKTz0a$=Gh6xLIzX{yh7?z*)(0CPchpQ@#1snnC?w(`rBlPAc6{}c++ zKb}by1J218{Rl)6c4uv$C4O51~ac=!#k}wa5w@lO; zj!u*6Fqt%HfE2`AR`yRQxwt`Qbk@(}Cj^nQ9~piOfBLqjCj6GmM{XFm0W^W^o8Kge z&!rBJk(=-`$il)2J?YRWTg%g34VMCpNN@ z`Mh>WEs0uQ6i0wQ+B-(>SV(ow3wrY>Qz;pg2HoNQyr`7>4s?~_6BA+2QRkzKgS*-` zi5j2=&(vjcS`Zf-%7Q@K`OHAa)e|Ir+lr{;!%&v2y)l_7ICm{vsbsV&n_KbuC7ax7 z-lK^crg*>zG@)GXY5fE*Dj8%A_H(=dg zOjvJZ+T2W|c+c~ZS#|?d$;`N?eb|xMh27l<=K1n*qCzG#=OgY5`QMpCS@s?mXKPP@6C=sHb;l) z>*?!ehl4%Qd|DoXL`s24Qdhr)=Cpk25zf5`U|KBpBZ>8Z^gUesiQaH#=p)4sWm>?1d*$M4&*%YSn{NgeZ;wLkWbmVOw+Ywo?d)7aHb9 zrqP@=TSWe*wnfm^Tiuj9BheRlJ6zG;PrLGIy}hrgZt`Zwh~bT^%mn>u+|L$fdapK( zxuT6@gn8L=g>IGOQpLoVBm)mKzh8|$KCsI37<1^kI_(rZFj%$XrGkClxh|w{2KyYj zk0n2R*qS91|0?j@8VOD?%EIh1xf)uuq|_n_}h`J5u;N- zYvMJd!nxmL2H)A78$i(kD2nvFj4C>xZpil&%BPc~|7iQK3WjpY{R^)Nfi60~c1jo! zyMJk~(Ju&c)2`c#%BD+4U5_2S1NZci)oC&%Lf7bfkB?D>K|dMjUimqftry-oGUAlr zN-`*RswFp7M~I`Ok`9xXFmI~&8w3ziMzgw9?+qpij^^BW0h7m7OQXZK-tIbIYiHrB z>#qsuXCb_k5_4d$U5K?)B4)ayT#px>EWpk8G*d07XFcKB@GH+uZP@s1O?+NinO~n% zNs#OMJ|wrmpQQcWBbWze&>{Kr<>APvAm@-Le!n;+QLrb1gOIzxp}#SGU}}z)hJ#dU z-rzXhcFVP#m?PVk&0G2Okm+T0?~l*baO5}dS`mBsU}Ql|LtTC5P*cqqX}Jw8Va2$m zsWu5Dkg^|?AAH%b)KTrhEi%I=wuWLoGgu+)U@$el=cf^~A!wMaiee0;4K7v1w{ptp zME=@7pr&+igCH!KHL#B*z zEaiKJeZ4B$o(d8}nddIP7llDDL{Rn`=(8071_y{~Do!_AOqNc@kIQk2X(m)*xSk~c z8uvydQTM5s>YtaZdCHXb&O6WHUXa83D4-*GOymjW(xgQwqK75UPYmtK!vlsIl#Ld1 zbedQ^G9;}$p`0d1zpp>`v)HYmx9>;N!T4NoX>YaUBa6Z@d)*4wzVx}{ z{=eh9(O^|4I|GTH!~=P)_vA;wBb;J4W2hg7V1cF)_C+$;7A`u(NWmkocr++IH$?r1p^6@Q?*5a1k3 z!Z|PFJ9U^c+nPKb@u!YQ+~7^i0T~^vJjCLg%N>VE*|NS@+s{TW3fr=s{kBn`71?&y z{XAYnDJ{-ui5LFyeDpGj>vj)u)cwyj@chw%SY0R0KpWzkV1e$Eg6V2;Q#Zpj@I&g* z>X49=j?mI@yYpM!;<%HSy*y5}yMwjoO zh!2|9q)JbXW;ZP}-yP&dveLfSYUm20aLn5vYSjDXmD3XzClZ}sf)W|Ty)TN9n|`0P z=6b0>JsZ$X5GGOA~O&H!FtB2BhuZ8h`_SvIENv1ngWxvb{pVsvFvG()#XSKKI5A5SDkH)l!{$K~48iG-1yhI$|317gt z=cyHifxW#%$ESV?sUlF>1gbc6l;zva{9+?;ShJ$YsbRi%TGMW~`P)`96hJ12*4u7UG`*#tR~fHe*N-vf>$I|hGCZnOICc- z*kq#Mb#P-P^q$Yz_}o`pU)N2;s+CW+wYqxNpdVPt30_b(Js_tQveo==Wppc9Jh67{ z=4Iy!UOemmVPnE277GXQq?PtQJG76k289hfs6&Y%@htm-t25X|q^GAx*p!Mpt%lBY z2v5FS+gi%>-zuM({&FM{uP5zSw~tN4@OV&S)~9PGj0~z-qTLa{I#9%rlCo6en?f1z zOr7zPMnDR4yUg#S`+6aqf3ZT;HXkf;A%LxoSw&AcCe1tibz0MZw&0L}g;; z=2|=kc7dc2mRj^xkJ;2dr_hRgdHv;eA$IBMN6FJaCHa+s$=m@CT===-V_v+T9+Q4{ zLKp^(T z*Y&KYhE$6I?GiLj;1;JOy(}Ca$m-%bIB{~~2K3}~(Geut4B2F4g2P#jcMrI6gRCLT zL1;2qDb{uVu76zJf9SO{r0$MUkd)C;rHP4~BiINfas=}ZmgFWMp;kp?{SL) z=XRr!U>=_n9eH!&rUkj9inv{Mj2!kz&X^WgwDzK7`bFb&IV`+W$;RShZ!XreY2fB> zL8b@V)Bxt*H)vJJSCD(55XzurXe)VIl_72t^8vTW(QZXJ#n<7f?%Y#s>gaiprJs<> zrm>NsTyTW)!%UvDK&6bHq8?-oaib%I*c! z@SS@=#Iae|ic2pMAXm1xgg|nP>lO|Mo?}6p|dYDirFX|X!zvFX|#%x$H z@ZOkLV5s#BoGWp2GXQd}p7fyd*Dp!UWY zenME7p9=*uNuU#HLqYDCyt`|5P!P_+5@mo$HrLs~n&!eDg6jsRSw^fWS(pdlH@|~x z#~|kWS|T!82Vo;*m;+UT?#5zTRaR#U$Vd+Sl&5dyr5x|+x!v&a2;jG%QMhY*=~y^~=K84Ihd#{nCm`_C7Z3K!4uz-R|D*n%1@JySC+hscuTwsaYBb z2|u>C>4Jxekpx54(|lqhqWv46ag-l!XU}9Up7`*K*Uh{KBbD@vh|ZQ3Pfax{9u=SI zUAw3&c7E4gd|TGrWyV?QlW(SE@1~ z-sZUXRh+q$3Tll=KvbdXD#mZp{<-qo@t4N*X{M{9m3F@5-o#KOpH>YjlvF!B{R$cTqF77G) zwf(VEqsKM8UG8J3ra=?Cbv@oXU08oJNq=*qW@?R%c&8*1?n&3I-v|XUT~y3JR!q>k z@rFA$_~>#A37;z$v42ss9&OW~bqNO4T_KX&Ir!j7v}gE9Q=8Z)9^zJ>nm3R692C2$ z7vaP}YzW$K?cm`j42bgIS(boav>ucehBs!5h^3+oy{=`m=Pbdc2mYw@V-d^#IqcY( zt3DM#PYwlDG%QL2oe(xExA3qNB&HHM}@^n_q3i&d{xp z4(!2lueFAE3}lCUW`~CwV-rF}5E0UP|H<99*<_!M&6_nkj1G!=c{Gxn&g{j0A|Qb} z!-MpXhI(;grN1AGmPYA7)}lXtzevk>|7_TG*PAV=_Z{>rRqZoV5QOMY;iy)!w2Ttt z4l(E};bAYYV-xzs0XT&qBi81vjw{FBrr`gIey%)48GyBP8Or@0lqGWd=zNA?nl_y1 zwTBiQ=H;N73{LO3^5Fgev^0zznN9C#z8yPz_+1E-8>47Hvf&ilPpym8jC0ePrlOHIT5GeEyap9L_zfbJD zHw^N^wE9}h!K*@U*~W@q4c2E6HOo%#7V1a$F0nwy6*o-fF@RQcD=x#ct5#XAUgupK z-S|=uQEmj%0D2LnX!C%Tpyj#jou5{i++S_Hdc%eW!gs1X>)odVj53eEV*yF>d<`Eg z-H;Fidr;f>a>}n`**qO!kzG@L1NqkEaVR-bEt!~#>Q78Ps3$y+Yj|4=W~3roo>;X_ zRY2~}QnPtHt^a_*NLHgrl-(zpc639`vioim{NKssWW^p6TKLQU!^}BXMRMvC6wZ%2 zN0u3eE299>iwDV7x(`M$pKlphUPxEO3O!n%^obOL4>fIo{vQ0+ER}G`@8?)i&e1!6 zCDn=q^RJaV29j3d@4JM7bGei5#uA&!2D5~{{TL41>OLvw&^CMC;)HZ?ZIwnZBu_f< z?-d**pZ#ntO5u)2N^o1wD8sRMplFF2TwE#(+>Y@GL{oYwaL>%xB!)yf=M~g9!>AI- zE_*fyGNf z6eCA!Ruu3=_ExcTLX7z$#fikt$6ZU60C$8)f?mZ;jZ<)9R_bm|5A7;s$)=qf8_dYd zqb_wY6dol6IDo!osiMtga0RrRLtO{WvHBcP%mtGuvxvM)a(R<6tOqrT4}J3CV;*u( zJpM-kv|E^2e9RhPH9Nq8GD_PUNvVeb>4^*JJ3Fu@(3z}~%arZ%C@%NRX+z-pUU2Ee zXM*Y&A2ZnhVyDdX&22YI!WYFZt%Q883rH|j9_~(RW4B7B-32+(_%@g3y^aM9My7By z!Z5(GCdtn-I_dY51i}3HZ1L^HfU|SWPDH|-`ss_ToVABq_DnISIlL#AJsn5ACr{A( z1OK?^`8gVh!wcnvtvCXs@-SikOpqCg8Q%we-+)gV3*!1x*1%o7*|3qDr-pp=f@=5~ zuv_~b$0{z~{V%v%>{3gLug#_lgr4FDbA!9JeZ!`75`3w{POYY=4MXl31Vjs8K1~F& zn2w$*K7Ec8;8C!aZH~k@y|67t*l>(cNuz{zj_r7TG+acr#H~aT|GhKc&Www=J?(7t z{P|k*5DpM5xgOEP!y*=JEu|dE>~r^@Tl=y2y7a2^&kcdGKDYIR9=DwX04>`DX9Yy= z4f|MGP)TTnnFIo{+-kt?P+cz;74;)+`4KfEyQg4AC>QTZHj;j#opI^bDt&!_cboIa zfOMS(cFJMmu~?epVM9zc7}0RQ^Gw*<+xui|x!}=($smbc$Y0o@3q2UNGn|C%+Z0z)iKNaOg z_oM5YzuTiTK1>cTbvf{mj$&tqCG z-=lu(nC7DDsE*d0^b;5OyY8x&6e7`6m_B;^0}7DWE0;fVqxU{CTT~k)cgd8&uc>dh zohl*)!xO@M;V`WSFyqL;jjLR);>vr<((85_t6P~-g2TXZBZ|R(Ym!0|DeKlvnvaIj zWYfsX?%ys7^;VlG)pzTCXT>jP>R>~2^QyUgG5V7@(I8V!&@xeW6y9LmTSo>QPYFk$urB45=^H2+5Exf?^QY6K%cyLmSV*BwcTer!QF1# zFJWeosQyTK5q^&rh*pg1%&()<+eIuX1m=#E3?f5jnLIUXj&bN-j$CnRmEZN>xJ3o1 z%sgboa?B<=36KYA8Ik^ERlA&#DIm+HRqad#u*JP$LS$KwVR$z`%qQ+xEDq+s4uLWR zQKys;ir)kM&2hJ)w5R!VnddV^Q)ZBFaBvrQS=uc#)A9<&DR;7<(c}376|Z;h%kUgS zp2~(*;bDCVMmP9QR>4b@(Kxh)>%u06QfWyBTu^(v&}~Sc8#9-AX=@IUorNa>)?ck8 zo+GOT(@$aywau^wS&u+^DcyhPoO{5$=y}ITKE%=H1$UCwEYTMNWPR`7QYeNO?a>dc zYLRHDt0oG!i1|MboIv}iyUtF_qvDz)W^W2*N^yeE&3U5!2Il|5Iu~mwdEgRS5?m;N zaQ!S6g!`rpR+da4HUaM^o;EoIhLL+pLI|eGd`xR>daDyZ=fTtY0aD}GbhLCTTrwph z6Nx3PnYFzNMRWsSD(qs7chysnHk2+TST&ow%+eZIS)ME%}eS(G(YZvXMhebxEbvEfBr6%kkNGGM8|cf_V3Z> zO^zwKgWt2lp?n36tL}(5(}KP#GayzBFKA+6I9w(hcPE~I7zmKZV)zL%b~VWOL)e_k zz1^Arz|JFPaU7)Jbf!WJ&glZi@Wy@Cuh)ySvY^C$AW825fe}Z^Ex7OU@R=!SY0DiY zG`w?ZT^bR(Y1OcAVP@m2|9hlwDv}Fs+BhM}3Oj*PB8cn|Ky>s8RV^!u(1&NxRuX)R zwplb@etzoH3XFDzvmmmFRxpPGVLpzX+UVv&0WyR!lyHc)JxVP#QKk$RTurAppT z7R(Fe{NA2^Sr4kSbJB&PVPKSm#kd zMcZwZ-?-8F+%WkZiEABEQ z06V1*qAAHYn)tU)afSD~*4N#??rIo`Fwr({V&1uOeW_ss3$Y2A z)~g^<*MY6*&1nM-`xgZ%d9W7hx=NIZhS>!R@>83u2e4o8hG)0miz64lbmp(LDyR#s zH?=9dFWSXnMtzRqF`>Q_e{Hb&Zt8GoswU7Q$;tpbn%OwDI5AF!?wRa=`>AX>_5$1k zegYrP44?5&UuQr2ALvo@=!Uy{y2p9Eb7IcS9wrjDv!b8cynFpK{Q9+60#MP}{1w%l{)ZSqXR zhV%#wMb3ij!I!?V{;x*xKA?8gf2)R&!&U9%N*hPHgU>bzIX8nP7EbA#WT{5Ky}ADS z0z8FHHB&TkBlK-K$ne#U>o(Mf@b!YY>fXYLF|rAyv|@JSe9H>h*+tMqxPk3CtcJsg zi(RW8+#Mgji_{e`Ng^S;xZy#08L?tm4Jb)Hk0axBh$G%PDs{h_RrWRyUv_4X7Bch* zy?wV)))(=;7q8K#-XkykZ6w%GQH+x4 zm&VaoXHW_5DHTw+c$tsOju=!%E8eAjv+;zonb7yLKgPdqz09>OI;W2c-m2j+ta@Zo zP*>q+ckDe}9N!W}FTW=5Uv^_10)3nFMEKMEeSjuccP7dqZauA!adShN>3UAt`}4Qf zSp*t}Ej4>BzTF#FGdQl*D5AsZ^CcCH`q`u+kXwY)k%>k046ArO#SMr)cm!_VdnH@FNfOo%#~p1pCW4! zow&a=E2p8{O*;;ybOLt8`|oTP98pBPCb2&0?S`Z!3Z70|Hq*6Ewj3k34yyV-LLDB= zu3Aan@*xRD8ZO~gN2x18R@qpR*_Wg%O?h@!u^YUH+_du6_9fyy$}JxmnA;spttCeZ zvfB2{5vA0QW#=$Rs!E>VeY4rrAi5`H^>;^KP}jx}2+~9(>_6l&(1rGGLqgStyDlSN zF`eubb_OZVrKaP-Q{u=vq67+dS#He`O>YYvWCT8;cl2G<5-G`Y^&Kd+Rzym@ytp{CMV;d zqzdU@Th*0OfZ@NE?*yc(28B+h!I-~1dgi*oFmeuBlpMw>HI-5b%*Uk0ToT0U@t6lV zE*V10UW+0l#y7|Cp2SxpeNIu}7QQ;L;gquMX?mQeXL9(WS4W??ozb$*Kq_J_`jmtT zphjcxmdWOk3Cb!mpDF0%;afopwmE3M_6Auoa0?%}M-MN4Eoc+e8eT{sF`=k0ZBFWy zh@P4y!K}}vJuDUN3Gc9kKRx%7C(hD^x;&oXeRNGXfSgLy`7j#0n@VGonht6;+x)!q z_(`1glkBY7T(9)b{$Li9zLG43woAs3)HAYF(1NOoqpcpC3@8rT=ur%|W7vdHKqTBx zHG>&7VMx4?;|5nC#TrN|f&9KoR=nh(DmUHOt01mV_8KB461y|5+l;!m+5Bb0ZJ0b3 zx6Y{`NFPNl`!VElQVrdxwyS*cP&;$}iQoD0H0fo&^yD981+W$bI4yOKgUyYnfh-<^ zJ@2QDGdOl7E&pD*R|hY8QgkE1MB8Ym0IJ^%Dd~{1joq(?)Z=eFydVOJ*pI|h+YHZu z4C%3?6+Ad_g;F$-20%VnR4QfHZx?dN5`V*g)=KBjt-U+1;6(Kvmh2$UaIoFk9swSu z98kvUfzMfRY^l?S-3vh#$=@0)?4Mv@LywETLG6&9oWYykI<+IFVtf})Bxv9Sbk*nK z0ZMEozNq`uO}PamQ~br7Ta`g)pfO@d&^D|jDyG|cJ$+WagbZXV*zzdHn)XCg%z-#F zpC4r5vx87e@nh}BM*ASC66y|`3hyg0iP9k&Rl|&IM$aF!A+&|Wp(jkSnMEZia@#Nv z;zAGsn$E!MZq$aav)GalVTkYn${X4OhxQ}?)6W5wHK3`^=j#OzBrQ&`&5bJY)Upg? ztStrW){PC?6X%DAQG1Vj^+hKye@<*95cmWdc#zY1gzkwUSn#UbLI%8Ki!1;Gbk1FbM3sLjLGo$XDP1kRh zW1v^C7Si&`v*db$VYJJKdF8Pi zhfh@1AK{Y!`xYNow6UgS7u9T2Yem0$;MI{;`7<>q=s2l|>qMa4n-HhPp6VEd(C6ka zdt5&`94I(wRA9Ohj&f%ediW`i$@;!iF@C`1yur5F=JKQB;hasnmJo}u{H5Gs=%Tkz ziXXvsWmU&tIQ1=+|_N@?C@832245+9pAoc%lnA)ebJk#&jd-n}P|1Bhc z4~uIk`WAG^S2x6H#nd|n@Vh`HUo9x%<>_NCzLhoks8AM zL=Oj*GGGppa(nn801y zK~oSpO4vmC#G;L`-8a5F>h0@pc*3}_22V)ctOX9=*a5RvT9oC)RS<&A@ixdC_H0qv4z(j^SqDOeu{IxeU8t- zXXp5z(Q}N3PVoNO8WDU??)Xp}7Aq~)GTwUdGd%Wtc7z#ULz=Z;+}grsATvNtkSmCe;5lIb!I4oBJ5 z)7l+qw_RxX8ymhWiLKjabSvjBLv#d-{_ad1PFR2Y&J5y4s=))3f!X~Ve&%-MvCuxz@kG>av1lI zFRkDJ0ufRqfm)uKLrSHXC3X(Sx+QFJTX4cBY?VEv>Vn;=a%eR>l|o2c<^&T2^tuQc zBx(Fu>6KnZt%wFBog_8ytBE9EDwC`4*X*vEn^G|{rlVABDA~PBy2I@g%%IVw24z zm{y|rnv{1Nw`kpQ$I#C4qov{42ngyhxtW5>kX7Bef5)-TGZ8EtfWT4mmTFV_$|a74J{-u3)@M;|yO+6L71)c~k|+sJ z38@Ar#ytv~hVq`@H;vf2k*#TD_@rsSh0V+T6|X4&OWHs`brwU?E{L6T_$2qEDUva57M>m$2gxtZb6ax83Lw|oFiBBS0YAbADO2)sEX6t)}2+~ zU2ddS`%D)%hU1d%+?{@9!Y2|DQW8Ji*jIBh%pwFsn*?0A1?Yo0yNtGB>zl#Nqg|!b zbW%?*boqQI`#I2)fhrA)^BCCN7n>z;*wnZ1I~X#Qoip)AAPATJRnvd6sgi+%85W@8 zDeD161BNf!UaW`f4H3j`#%zl704xGu!UuxCSB>X;jcOhuZ(QGwK{!?|I8xxQg_Rae;DI>HF1l+zr{k=-#d@pP6|D@PN)p|Rm0PObfI$Vy47YR3au)>hIKP= z;e>1^%J1qXSnjkJ!%XjW(SSg7r_-Xjw`$aDVg2&A_@f?%rcUv5s!z->V@|gb3)?Su z1lft($PC`Ma|Sy)Z82U72p2APb=a7zN8O>}rkw!K8&A^vbQmf-ftdfJZb;i{$D1qy z{Z3j&x~@el^nL53--g)bbLWBC$a@IJFfx<|By}KH2Q!%y2Y!E?i+~gDe`Di8^7Pso z$F{54L(LoA<8JvD?0;HKv6PeNTc`_dkE{~j#HQ(^zS=Go+H>Xk;h0BggDdRypnF&{ zirEz*CfgNxLG4Ys?=4E|^K1czV!A26f95Fwx;TCxO45Ub43cI%AU@d&B6A56dmW{0 zK#iJiKsBRm7Hz3!1bTsqgU6ECJ@!(AVI~NItUVmSc|Xb%oRWaoZA`bKe;Zom>6tpX?97V_TO7}OWP`ns>?sYCfBwNC}3tYRxoKvIs{cea5LoYOgmKGBkrqRx1W}!*)cR3@Mb$4Bu|JU?6e2 zltD#Ou$plm*if!SOGH<$Wr`+RWqk@BGoDr9ESPV7@JBPpK_6lJ&IMHc68<$-EQ_ z!3gFSPp$ST>1W%q`lI))D83pnNniB_pw=4tjo36p(KQL&%dh?Au;FW)ini8mee)6hlU8E!HTl{0h33^LcWQVfuLz~cW4?&*t0fqd?%2~H@;UT*KQgg{DM zJZRLp?;rsZ)80hbOhe@vet^H6uGqKu>PjZL5Q!N zRdY>0I<_%rA)key7CNoVKy;3xEldMJ7-uU;U+;3e#*LCH?My*gx#Xxt3g*}CwSFDY z;zTlDV(Lnhd7-C+Pec7UFwVQ+sWj6NBU1KLj)M z9{mI;zv1Kzl8`YOXgrC{DyY&M&|$YXRS}69r1<;mgL#sI+4ErY5fR4KEJ-vp2z}qx zH{kNlWq#usjUmklRQf0}1O#N*j0gd6?3zj4QQbI~-L#nmk(yW}NGhH5i&O}W6P=Zh ztp{W+a^S-w^F)O7+jN965Wn1LKo$+8r5hv$q+q}a1k4vmW)4)hvRZ{=Uf)v9FjV#x zQlW8jyR>&Pu2&V=4&p{B4b`SLqY0tfEzHjz)bRY&d*PVb=s(1w3TM^S$W}!|mahh9|%l8I>l;shG=B?V1Db zSPM{9l@QV9gv=zAcjo_qu7BCoRW0i9=JMtFsuS@8vI*5#mvXUPCus82{e%#(n0q&fz&_;kH)4O)P>!ET~BgDWoz43`t$7%sL?5wmCdnoucoAOOwsdLm}h3l)!u9ZhcAzf#8h6CsOc#eNO;#PWtGw2RN=(kjH(YE?1ig^dy z5giQvkNyKgZeTkO9k09hXiuQqkH6N^<|g(wjo3RN79ZaleMXrGHNAQ~Pw!je+J6bp z4a4;$?a?iXMy1%dyQE8To;ugN?^ICAvskZ!sD7_)1i{jL9hU0nhp0 zRbVvg;~o0R{Xp*Dm5&uH-2bEMPveqI`#)~{SCOKkV($CCv{++jYnw}pSuT~K;ewS*Y03zdI#Z2FieYG!*IX_k)_@oY=Y4ej{}1ll$G%if z;aI+(nya(u2N-y~}P6YELKshAMeH!k%UTJP!SYy(uan)8EK{)+B<<1|L;E z(F^pdl-oYuuxPOdjtc$~T3A6&%Wdj?UZ+31_fBH=*xrZtFOA3A&N>t$YylbIRTTji zYE>ffvOCA=g?l7=5aQZzgL_=4WX|WyN3XOIXey!knt0RNO6nTjOskrY1r{{2Th(l6*CJv%esfw~t< zfB-5inE^|{UgstpyW#fezG6;%e4zRtO%=WUWDJ$4&V9$di7`%_Ke@v zfJIX;jsL)ws6pm7@gf?cJP3%oILZ)jYg?*j?>7LMER$}C zU}gQMqSe3mQpDW@YGHxCMXw!YSg%5T(5CJp!EL#i=&4lK-gy%%${X!@+LzU#EGVm# zS$~^WEjaw63zEmGLBn6}=|bZ8b1_3U31IU!T{>cGbax%GVx+PIXAYhgIO3`!oNnvJ z36gxqmNzvsl{|9_BwtwW@XnV)u?4@-Zi^l)Lud6J|Al42T#z|Ytq*?+=zSYzQPqtH zJVWldcIS1~kqWzcg|6veS{k$*8Fv7iwgY}AzxiMj1>3rEHU26jT^jgBFEGLB{5B@>yC1k@jiovRpOApkxFzJ# z)!sOt+%{u%V=f2BW;&9!=XL_)b^Qog7w!#))vG?zkoWp4A~5aE>qpx4%0ON$0zeXz zAwI3IuduSky|rLG*e(5M3;oTyOnq{{nQAUKO5EvATh@ixl&|PzGsot4maO<4)DiN z<$!IhX+Bhg@ag+~l210u;NpPJ!Uyse=meWLW_i>X@>>0Cq zb~})79_6d)ZCLY&2E3+)T|K}URW*NPEy5{1fj%=U4qfz-E^vUpuf4b^#Sy%G=#aEC zep{D{C+ws^Ab7StBZ$qJG|6G73D8m|UthWvG&n`*} zdv2;A1y0#N(sNJMB2S7XG~vKXhTe+u{Q^VS zWMJ08&2&_tegv2giUV*jY^u`-j{SAbqDu zpPw!fp)H7yFlyB~AzR#Ij!^?cz&Ft0CcXod$sJ5Wz3@R|Hc7wqF&Y8mCOYwy>o9;a z0uBQZK?DYEL6@AhFY;vwn|Im*(f^b3*Wag!tO<1Mrx3rR_*k8ksgjhCOexC|RAS8U`FrWN+>^Z zD2>}Hv4c)9BUtm0!Zv6kdtSV+hbY{A7H%zQ+LUNUaE~~UbB{FP9NbO18$okYK&^Rx_SR4V zv@|7HNkEo^N|b&6cy=mU&*jW;`2p|cN>%~cj4})E!>XDoANTdk5L2?>hqaWp$1colet6Bjc2bz(CUlk^FHBb(3C))4W+n82pOE2spD?&QlZuZ z?9AZduqm9x#F-pTWN|2^EVT|reH&sU>favmYuTb2B0AYZ#szhQ!)&d}alZOo#KsdTMW(ic7tt=Il= zfY|Y}+S@A7S8fS`U{0c*$4+<7&bX^qB!+%s&m#j?t658CK6OGD5h%KKIT%U znA0sjJcyEBz~N1O6_=$7j9j)jpwRpbwlog)UBPouT_54B6WM5kb+&$QWRJRNS zlDe_n1x0PIX&;xMRjpz~Ny#Brd=z*5dsZy7rIaO3Q})Pvbq_Qj%cAGkC`GkpJx6DqVIoTVDbS9K@bGsV{~F1}$hRke3&(&A1lLVH8|3Y!sI zj#2%OH|eWwNHU2bWd1L$sHZ24n%Nd5#w$CqdV!jjq|U}hPH&%QC(D-E^%}egtY`aE ze=LZ!{0w~@uU_K)ynKR0$8Wnlq8q{a7C6MY@Z;T#X=Wp(k+D>_+(`y*u}6=5smIO0 zO)wN-4n`7D)GZ&s ziujRKo2i#^1P3tI$ps8a6jhTJ5P(e2m%RBqnaEg30_EwaXLG{X#3pe3^B|nK3IoMv zaG$6MSd08~ zsyNTilh@wY*=WemN0@B(i%Z&f(l4eY^^M`}GLutobT^|T?T*`uu8quS+F&wKA&@>n&c_UL5CjW8F}mLvMGy_?9%WG8VR zPP7N^;n_r@b~b!J$&8t>x9|X%%lZ+JxzUY08f*f}#6YtBb{oJ$6n53= zRI*9c#*I@*Ql+GFC72grr@em7hI*7g+Mb3a>wtI}VMEc^;;(jLLH^ARt=l@|#RZh< zM%B%ElXd-k zuB@oKk8IZh=%OUn0d#|l--X~cXFsn+6eFDOo>*$yqju2SN)sni8;R9uxGPfTj9h6} zJm4vP9wW7&IlQU+)~C0Q6o;3u;cDLTQg4;!JEoX5ri(Q`q9vC5k>^4|@S5S(kV(KETH;Wi00C>0D^(hgIV0(df3>PomquxJi|#Pv>92;|BIkv*%#;gi0n^xnEXzp&S!R+ z^~?cUq9|69le(B~&8xQ3xF}xK$XKD#m>LJ>QBOTKfB_+!kT9J2f;Ot$^Ra6;VW(9s zlE_rjK7r&Vq{tdK*Wp524#JzZ{rlTjA63tm+>_$0C+^AG6melubCL-m)rNY-1~fvk zQ~Ww(4nFpHN7CRoPz$@YJyM;%Np3eL4fG{90?J4>?R${Q!W@F!7ZnS=k})qoU4^)Z z9~<9zR;TqR>M?{^SeI~!4QhuYEZ%{Jt9Yo77bOjr_U-2k<}!$&W81-I4|f=DuA8is zr7g%vT{R2>flr=H;%ExgMnTA@5SfY|L$^5X_epfu#FqV)e5PW7eAdY$8OXc}yy{0- z-j7m~vpXn|C<{^?ltp&?V?C&)$E)i7HR#oy?HBTqZ$}KLflt2h3nWXL=~UH0ZCNZx zOjh>2US8%Yg2&J!8EX1eAaR~cXCn*>thk3Az&(jFw=ZV}jFmSz40TEWG3Kdy#S|#F zRq)}z94zW7*5eDp4>VblZVa4rI|SrC;Dp(?;l8x*3~#k27RnO$3B{0Paq6Fo%pM?Y zwa@J|2`Vj4+(WO7FAr2W4*>nPxcHLu+;R`S_JQ9*D5UDeXDMRH>3j4)CFVgM=QA*+n0jvV zv4`bglnVAl@}QDIlxv^i_I5((==Q%wbx;ShrxaUSTB^|)8M3XOoen0bm!Yf6eX{Ji zg;g7I`)$M~vlIeayZt)MT!VuX-osR?fjgUHa%OuR4qD*sh$4^n29J%3oNV`@s|e1I zxE=n--u_Mt*l&VgdM)L4cC>6h5ANeMu<>rbTrV-C)g2~*SNiBb#T~%n+(c+PUaj#+ z!>bgSzkNYbTyStf{=xtw5e+QpXwZRj)NC0^aH|I!_2V~>EA?$Ewd-HPEE{tS02u_J zCN=IN31KhQ>f#lz_wF!veeN{?miBcU6Olha9;f)K=7i0;P<-+i7SW$zcU#NorIBGC z+qI{@21AQ;!KfFNq!_3j8aOwglfTjl86J?((IT(;!32 z))~-RALD*?S#)Nr6kk)dzvW%5ZP-2&Kl{;dcOg*kZ2iC8b>v7zgCeRkf{V@CdfK~TyGiiE&i>_Z6j>EpJnJ&wUZAS7)riuGq1nU*9{i zsP>aveYl?RQrOV(TLa)ppz!5a*v=_?pEp=o$_{uDD##M92rWW?76IgPsH@?bswQT+ z=Z>rS|5@|rBmDtXh;iX44Yv;XT?XUTqZ4Yci;E~PXOkbvnW~;(pGC&Abpe4VhepDW zkKl3EieV058r!7*j|D*&JV;CC4Yr9P*&dD0Hzi8kxM}#lckjz}YICdC<*Or;`9xtt z5lPQ{k{c}`h^M6^%&V*JU&{9lGY3XXQL5L59_%NOVvbyEd{WY z23PubYvH;P+qxmey=cjmZLtx>hc(LlguBav%8Cf7;c*|}-XZ4_*ra`h`MQ{{d66hJ zAPZ8}KFyQHP;xs!JHQ1NB+p)u39hU8{gja#e)k`ETl}Hc^nD~IKbhEZSA7_a1%^4K z8fU98T*%p^ws$>i2rG39b%EOWD#_3S-CKCPX3v>g0c|c7e z)*uvAK_mA(&cw8f)a$w8(7xQGY5Z;W(afL3VA{=SL~$K~?-D zG{xwuCN-ZHf!+7QJ_pS(tt#Xl6K74F3Cs-Wfr|maWA4&^zy=hBcPJesUm`{n@mHmT zz5nEI6C^3(4qS1K^!(@kv;vq<>*gSqw6|xB=)j2@-$?Jyo(LNf92mTpZb9pIPO+?? z@JQSh8nm}^`fj#D#RAjV`zOUf>i3NZw2lwM-74U>oo0zcRghS5Dwjcs?u#n3`Pd2O&9)=f;@SxLq69L>mWRMtqJ<2ZAs>So0{NEd4I=}TLDitm@oSj$lMZ}(V{ z%2XX;!6+B228gsN1T~FUY;vRBFGgQWe)~-)A7CQp=H@xr&t7DDv!bDQe0&4c%2FK+ zorhF6r=?YV853&Wv25WP#h$v}$|&5lu^3z(G-zhpv7w13nDSS8E(cge=|Z~TgGUfv z)%~SY%6|@M8>MAzXl3hNiZ&!s&FMmUCm=|c+5i5HvdeI%N$_Yp6?+9pcUibT)zGJ{ zx6-LDnfA?5f<@-@oOUItW1ik#clRR&6OMHc4TvT+UDbZc6jX#!M(D5a5?CQ54_2;*VqNVm$T%0H! zyFIM754Gx}=x2R=x06hvkB*8oGkY~+GiFjuaQrZW2Z(WSJ!Vbmz{q5CI&obPMbW<- zj#teutX7<_$SZ$=3{75Wxa0VGvl3E5Q0gv;r*@nE#ODhrP#L7I6&Yp3bpd5LJNAwI zT)pWFa%YV=oodEX@qJ0K4;#|Tl%#r!d-roST9bOGp_I3UmBEY_&~+Jf$>z(??j9_m z0K4M~HH7y2&%vUdy$Wit8Og!Dv)RPX3WEMkmdC!%&g*~3aPdNg zie8yC2DV|1k6@eUiR{9jxrvwioHLCGlw20?Ag>3nTHx^?1wW*}+&>#Hq~EfDvHzzS z7xToD@zwVio)0c02NUvGg4UIw&0#fj9B!|F8Ck6m4vHEEX~21+-4q{Q2qeh7PE|go zke4?NJPV>a&#&qImUe(;Zqgn)t(nb>Z<1+LNyR29}xg?XAq*pbC9-s3m zUkyxW~&Q$$g(4^RCaRDcn@q8+22D6RM9CRKCn(~o`vqJ#6TzWdQ6lE%52FGD1M^ zr958yv8PUGOLl6;H%Rr1I`Yc7``tU9#RJ1)-N#zZ4%K^2DNnfBu=Fb%;}S>w?P4CvKd_ zoNI)XvWjso#QWar^;-uxF3UvIkWx&UA3N0uEsCQ?aZ;$Y?#XEDR86BO%8V0b_DGPg z;X!H4L+-*{uCIULFh;KjCckwTuXKQb0LVK3_0!IF`2!A_blT7UR2=-`D2%q>2k7(v zpD$IM)z;Muc3dQ!bjRIj^YbS#%{J1_?;}f?@-QAuG9PmC8p7Ks;I|21+IHrKAvX{B z?bf4H?`;Vv@lk8b1NW!=o*|A_Cq3I`vK1K(&Qp8Hso&F@cJqH{KG!cI((CHaY=FLD zQSEi|IO0E)cShcjC~3A3xepoezTmNi8_a!FsAk>XBl7+Zx2-P<69Pd>I&VD)<-Wn- z+{36^G^=XIzr^up^bm;wh!WW0E4J>E081grw$46J55eH=TZgMzd{f7|ovxlb^yJDBC(=XJTviDHsY6hg4xU^j-N5fn_2)Um9ie+w>0voi}N)wK@ z8Bj;E3F$)_^Ajfu``eY#DycNWG;_H+cjq%BVcD0N^Y1J@h_Zqp^&}*POr}>)XOnDR znK%k*2S{AokLbJo8&bCM1o3iJaa>z9nap4e42B(t??jaDlMw+7aT&_w(H|~kTPs$) zd?+FwKU5r_{*w9fV;%m_^g*bPq%X=*QbcO3vP>yUOj$oo{J3ju8#Gn3?FFUG9qju*`DUr%E#J$L5~q27s@ zO>+6socL&U9=`JbR&(TbN82ZdN_ zNy$UM1I0_qgu0e)NQHX4Q%dhEU4Q0p~M>`8Al`aB{%5pDrL4E)=0T}PvY8x2PTn-CT#w9mJjgO>)4bp?g zc$v&)iJvf;3$jK+%Jstg2p0lvqN~O1$B6KoP&~D3sP(n>fJzlCFg02$Jjb8$BC0W zuOF6nNIp#vQQT$Bm#_X~$r|7kMdh^-!DKN0w__B2zuZEy} zmwqAxyrLI2zR(##U8vl3RmRsbL%+xqRwTL$;VogAbMvum1IqvFllZ;5DfGAG%R8R< z7A4TFe9MzfVV*|FH_4HTK>^0xwR8yax;LKm{>#?4mjsSsL4Q2*mS3p{s12%sE{^%*8R}`g)6d(21^oKbk zpM|Klg(hs-t)Z>=MHlmw-eLZ#@S(K7zb>YSOQoiucb63Zmy7Af~rx$QiS?xDcKcRqwE zYI|SLoT^%^JcD^hxq7uP@0M@T8r{FW=^1z^7J%TR7YgXVK!``+Twc~ z+!Qs{%e(UI7E+IPGz;q?dljb93MnY>FIkVu>4xtNNTvoJ#D`nYm&(r_wW`Qt4MLrV zU96X$Q&i?EC7~dmR&GEl{w|s9C2r%Xs-`n}N4ud<&oqc@`MFRUQ}Ob=P1DXwK-CJx zS$L0gn1c|6U*A7-a;TfRw^_dTvKGi{g@?j@dT}a2)0O8%_6XxP)?82CzN_5&{^NU~ zd1X%SLTG2aWLz50UiJ1Khq&#{G$TG=*_c>GfpC*nyg)?!m@0%$7^)dGcH+ zIms5y#Vu8n=j#}ZGfdt@a^dKMoa436-g~tfYIVYR+TVTUs@mFWLS%b2sjrpKCvgDn zadQk?-O{yQCGX(2S4GU0Xe>k1@+oX!W6z{>ER@vKqd8iPQ71GbHpPBuF_x6o| zfa8CX7MM^<4Vm0N+VN?8qMdLIKp@VAfPGkA#L{FPgmM&%3#sbU=^R62QX2wX2wnbr zWIwR9$oT^LLgz|ym!Vsjxqf?%*COI3khYl+SvLK{E19e+ngUV2jB0;;$4Ozrk= zk~M03V%3oo+zDR7!QKj6J!=hKU!jrfMQoQ5kl%Nh8#%LRnB`9sbn_(B4Yn=*D4{m9 zQHzQxcin(cfWF$|tNwEdhyHvDP8P~WJtLEt;zybxsR5m(e&D_H|Nm0?Cg}!}hKd_Z z^{v;ddZ=MGqn)zlRk|%m4H*^Gn<+Sv&Z0$3@v;~}azl*}JxHC|V$QU6uBDop@{_v|`l#FBI(PjNT zm+t&^X`*0FzVENUKl`INKVysIXSP}&ng{&OX%$6VKlX}U*BsDS(s-@-#%8Q@FzXYW zZcrN!lUUW(*3hh|)1F?J+b}l8WVJv$nBF>|Tg4KWJ~-qZ*-H_OlF1pFA9J65@S}|X zDIBap9ujOjcwf=v;@CqPaYVaxbBShJ^wmQawe0UA`5Jl$I(6eJVy$sk5#9!MfA(JAI zbk#|idJuDwC!&mXQXQgBs`^eRn%|@fl)IH%~(Y|Gn)v@q!OMlptEMM$bKxg(g z>H|mx50W;zn_%L7q61vDEJ|QlcmVQ_H2x?j#NmiHPN3FWVFe}~2N{BS)xw|x_}z|n zPeVN#Zww_Fc%I#%d>cO(KgpOnQSP9^iO?H#Or5#CnAyX!mvSq9D-Uv7D}{ItKB|zr z+e0EL&@VJ*lu`daI89Rzwp-`ydDmTj?`-)FUgdVf`}Dgk_Bzjrr>eD+qh$yJ^hJhR zWbv4)kdrX$X-EadpMm7Jkfj;b2>_e=W(`+FxaVIuY(abM+5tDGS)k|kU>}EOKJ@9_V9swTo#-Mln(KNxwW z*1vb=jB``HJpDh9^zz14j|MpM2lP46I4X)3MFWej9QpyNlpQs?_mH<{GXd%XLld1b z8|EZY&scb31oiUhG;ABIwV=~?AmuVlIlI$b6@tx(RnC!8@$=oQKB_lH`>X|D-FrI; zv`rgJ>6lU~Ff=y>9O9JSf3|)6;>^V%FLiQuORntTBdC*k&lh{5zHY&xhBeK!z8yJE z$W~23;)Sm2$;fmzmvp6)qDb6RJ<}MKx8rWHAFT&9ysj+$7p-1n>Ia^-r?QH-ugAkl>32^SB zL@@^D3bJH+gP4mda4cb-e@{J)g5(ej^iw1&GWo&$kOow#ZgS*eVfiegiGdL(GHBcmfT*(kY3;sq#!k-BUdekk@RRDhSc_)wr0cJe%{CmS7~wUX)zlOVy<^5vNKtUek!*5uZ( zd73iBm}7k3P~)QsjhAFW@2AXx2S6n57*}XGakR8S`&G@L<(||W``@eVWA)7R^g<`L zEkP@!I=iuebP%T6B@oEu%XJ8OeA<)mq@vc=M}rprF!LbKh;c4FAiV9sA$&JPl@5S~ za-5Kx!xMOm($W&cL(pC9M~8fCB6k%w4F0?+rM;?YRM9#zQcw-2Cd8!0rd;^DbtIR%~VJvu)x*`=7y_V%Gq zP6ne}`tn$$slHv1gsrN}rENuzfrkBi`8phAzHV|tbPRf=Si*{XqdM)y2mjnt7a^th z1Z`9s2u157y2c2!;fn#eYHWxp?#t`@imFa$TM&TR3v^}c0wF!=K@URTo%t!OBhq_U-F5+!_Ro4T@W9Nt+F7rmLNKRkAH}MhrT7zxJlW|F4nx?2 z_9`i%#T&Tk4NPeIPlEwp#{T#Joz6#d{V*N(s-A-1=Q?Zxta5>)8ifYPFWH8f;dH}DGQ4Q+7sJJ4-j5>zqUVAMJJYp4I2U9A$;XVpOF+}qb=Jj>JOQlWM8 znL6m~`^cEMX2maWXG9*1>BbKqPi@`!hJUH?C1WS5|!0!i=e!jU}PW)|wXWK!Ru&{oz+LZM(&x^7K!`={8?&W}Vf7#LureJ)CMv&eQiML@Jq)q42!} z8|+M;I`!*ooxg)h7^7E(^geggF1%w21&_~W9ofm6s+048sI<;y|9xj;>P1cc^G;N$ zMjJ=fE$Qmx69o`&O006tnXT0etfAiVS@^}V_+8Df37|m(_%Fti^lh!T{(Cg#un4O~ z@QnQ|mf=AMQzSsMLZKX~X4_54V}q+Z!hR-$QOF%A`>;5U^IexSB~!DgJDZ!^jHP*# z02Ux`U6E8A?c)7FX0kGy67m0b8{9d3Y-7W3@4{?slcw~`$_6UEvENC{58LN*-MOMv zKQhCpI}m{}wi z^U&3tiJhab+T)de3$f(Jg<sjEv5_FzZtDTiOg@{=CUP2Kg3&zr8si#M&&Tz9J&XItgZ@z{Utf;zuo-cN_^ z@MG8TbH{swp~i{;_Z^dOPchSB^?g%Rj87L4Uml zjXQ?AZI8G-c`sY2Mh#M@Ss}^fZzM3{VmYz_kai;NfiT;Gc!Wa1bNd`S{$0l`7$Xxa z4iuR<#-veHvo)Zzfya&CrF7s%O!weAWpYq>)D~h<2C~&B7~f^N$xs)u4H=uP-HD~L zb!Vo!16FL+65W3P1XS21aA|uE(skb#e>Q*3^|X#^6T_94uk=xVIO)x^rtwhkzp*;M zdDD%nE}7DA5VECWifnm9=Tqj4#RX7xR3CscJLj(Yp=Q6`0|mA$BZX;%_TL|ihCS+ z(7(h*BLZ364}fM5Lb+qD@j2SWQn;Bq@CIY*=L*_!BlqyY#T#5%B)QFL1(NK;Ms@X7 zib|=*p)fS0z@`zZr0|~jEPhoc6VeOs>VEc+A8$V5DGF}CKr=Hp&{xXG_=ejXk z`ONPu;-HQ=6q?MtoM`bqYb@%o>EzbNuImpJrxlUCaf?9JP4q~~ICPXT4z@76U3`To zj0^A}=P+HCX-f#i2t()UO%Mc(1s3ZAsGawv<5!@txKr}FaY$KJ4rHg4o3cgRkJiQRNJd(T2 ziAe@A@#;8IfMq7T+Hi-tj^;$cQI-PYZI{JWZ;oq>?}xfZ0Vaz6GBEb=7MSF~-=<-- zfDApbEB3Mge-#>~FD}GKnY}_LngG_N$m9H`g!YZwf$vMtN@L)5(p`!IbZ1wSs?9i> zz_D=x*e%pv?n&-cu3NuJkEi#N5Tl4&{(DkKxsZBBSxVOz(oEu>f@IV^@BDMdM>1**&l(wj~HGUibjmO)pMLa!0qhmUd!lDwSRf%zr6SMhFgT^jYEjiv03mI z#aE_3;68Ib(j94HGd{qXDqT4E-b@ucA9DTHlkmsy@^#Y?d1DyF>o0)@&H+ zu8(7rg*yXsJ>hgdqT~-YKog#W<_?DGdTt5UZ%672na6=bW=SaA3;f1$)pKR{9 zU{n`A7Fau|jwbZnon}NgCRb)TkYaZ1j{h?@=}}t`)TiF2r@Q~i+xxjHwwej1V&odC zWGa4uwsdO;J6e#}6CM40)0CxfQsAhJZk!BCaCx)d;q{Ml+9_k865dto2b6^GW@M1- z&16o}1iSiFtg~lKOkjc|_x4P3FK=QnWWY@;2_OrV7VvHOupHJF{~(N0~@0qkvJ#x@?^#5W~@@MQdMY4f_1X; z{Ni)kzO~1?TOa$=_wVteYS0_*Z?hdu6X09Z3=652SrLnnzwKIJwBhrIF@X+s^L2wt zQppQ6{Fp!6S{-H*3#*8_6R^K7S?Bs=Tm>bUNnvF3RXq#5#b*}lzXvV0UDwX*{^)}D z{q8ZW=TWNP>Mqw<5l~{g{im0`D2yS0-W7$ozJGc|nQ@3G7ssD(G#&UD6XH5KnpdJ5 zr!rLf@W#@itAajA^=$j&=oKdKHJ-xDeW&$eH;g*uhmk#i4)VSl zFZ(sg=UW$sFDSD{fklcjDHcDh*nh5=JhwcicF-^MHxG%0J3D>2PxeNO0WZv;te#JL zO8J2De6~AHx|n)q>4}z*(yjV%?}-oeL(O(%=yQ#qDQ(l*IBnvw zNSv7?8Q3xwa=(eT-Tg`wOW1tn*%OpK#^Me|oPwB5s;PF2R81sv+csn)&{YjWj?|{Q zyxI1=I}{)Qv^ih^(N?R_g?sH9qg)XOv()>dwsLvH&fLgbjc=eyBED^s7l}=RWL?*3 zRj5kqm+BbK6;Q>eAF>HtQQJ$rsRSnu)-#PKoz7kQ>e`aWnNoQ`qKLr)iV7IFeUbs^ z_ZWMChBi~T>0ftc=N=$B^SCpDzy2DYR6}OgY>tDZsd*CCj7^XSMcFUq1HCgxx@`L6 z?>D2`IZu-~LBO_F2+YT7HA323A?TQ>R?GZE%W*WoeHzxS&#a;AkW}Fa258k#RN|a0Y(N=w=O0 zPlUMAM3K9iqXxoKA_(fSMDFu1t+VqqB1C^?;&zT+y6_0@^uFL?A@B~E?q^eYR$41@y#e8{N(Gi8z1l}%;hpizm5a?RU2Q^Bh|@WE zdGS?f>E`Se_c%>sE-vG=5$MXHFgiF|GCC3)ZM!}ii~jWIhleQz6Zr2gR>3}8!2*TY zbYzR?Vqb1rl$kLH_$4=Oj2iyGS2}ifp4yaw#LdcWBC!(sbzg1+56_P_5P}9QIlGtn zNNak|M_Lsb2Xvs;#$-S=Lw|vp$7#L(GY5A4M8F|4SO25k(rsPcO<2z-t2-n+#-`I( zCfrk;4M#~eDOU{D^bjusP_3J}7(hURdU#w>b52sVwwjUG6UadOx1e1 zKY4Wi!M#tP7#)c6U%GY{$@4Vs>SlTFVJ#}p^v~-z&Ntt9$gpb~IdTWF#qC&^dD_-7 zHCEi)PkTEC29E4-tk=IP3m(Aj$Ul3U+Iq?XSH`@qY0a34KdU|%pBfjlQ`A{&Dkc7-`?QDEZpv}c( zor|&@;|Gn;23BTtX+7f~&YoxV*HG?v|MCU)`inH+tVk6U;z;LecoF z&DT4J37es4DFwE47EPr?!4Jv&#T&Sd?~$|mu&?^C0kl$04)^p0G_t<7n)4Y^3x)3Z zNTsMHkI~k<&KN!hz3K0cPRxx@e^1jVPxK3l;m5vWq8-~|` z$}f-OI=nu83Jl?_o)E{L8{@M&LCbP`f8SCzv!F;9S~+Nu3>)wsN$PP}3@EHrEt~NK zFp*Cb@D;5<$|AAdfPbrA;BX&NM!)H~HrFu{@B7#LYv}mNg9LT8+I~aN2mqOtf-;9S zU|8P*NNQIuc;$xUhT?_~{OW6C`-wGG!coSR_R9`rDWu~5?|v8YENG@uA%;bz;SZv^ z7u!f1_S{FEm2xws{nc<+!GqHE%qe^zaW*U%pp~u9JqUVP=wWyHzzi+O^}~_ z{g%3O0VDKIBpLKAS6VcBVK>PkNZg0k$YlYRd|w*2U%|umw@b|WVhdXn1mC|=HAZ!P zr^Q!8CH8pGSt;c`esNwe9uk8}DP}Y}u8}vq(;qoM^!bj#g(8P_Wdkd0ZF(h6gY9T= z8zP^#Ra~EWjA|7-`*qA;7owg|sDoli}C24%!X!6xAR2y9q zr;V0yivS9=r@QsLf$q1~0`Pdq$}}k}LJ^_xNxhRk=UHg{erH8WX6 z-Z{n8a#UxjC$Hk0q!SM|GF3=p1H@)2rE+D;-^#2$&nqJtAkYfB26Zaa*8s_Sa^^h2^t$?&-VnEWvJLm4~=W{ggfGP2a%?P2vJj8IReRyBh z4)ZdTjpiM=k2Z7ajY)UVVlHoNn&9)@W;0V6)emp^M@jitOPo8p{5J?OH92u&KI;Gz zg;`n-Ah-}vKb5P?O_)*gnRaf@7oLo7RbeJCh=d?%E=3fX`$VuuYN=J@;@R-{@5J8>nwvk0Y60+mqBSW<`qf z6bHQU^p}UT4;BWl2?wq*(Bct19(y)gRjc@ylFf-H{Vf10ow8BKsIq3AnGW?R!YS;( z7J8QO;;YLcc!sL_A7ipW+3^7i6=!;aiqW6JVH3aW;i3FwweVxjav2SZWb&c^isLd{ z+W}Si8^--yyk|^t@xRI9#m7p|PH?ttAEP5SW#p$s1b8Mb@3Tg)FL+6&kg?U9BShgC znyUxt4gqa$@HGs~W^W2_b(i>+?bDbxLSLgxAFH!@k^v$MH&>(!N`(3Z}fan&u$?-OTIv`dv+wsd__(; z2}=61^QtKoX11exAB+-qKQ72-kdxg^O8wo7>ZvToxwF5J=N@YAhdHS4fWwRGQEk+= z8@&0t8Ev!IS2k+x!zBFh@GX+f0jL?G>iW!=bS@r$>%}*Vu!8Hygh=5fr>d>`l^5;y z8Q&)=`0JCb6885@bliNYl+(WTo9$YOnQryJ~@PW}!Z zTe@LbRw%J~s65~k(#?Oum#;CUFAj0cP)NA=U*IWa`moiVLDmm5v)ndq^ey}yV`1yR zb>rQ&=P={7UrW-t5qf(mgyx_YpXM)}BT!`AAw{=Xhc^ob*x2I(T9Jg9gbqi9UDUuw z_pEVXGXo!-ZK2YIiji8DO0XpEtH}?@Oh1)y7=FaoBK*=w$dx^zn6I?LMH7tvt2r-k ztD61_7MU!?t*Yr#uo<8#Jf5ln#{BpbA(8j`${1}sXm<5{KA)bo`mJ@z1gI-(x zV?=+c4m5H&?4u}nJ%YQu*9C|>#UIS=kp63FpSit6VT^l-(*t%zFM!`|PDP6$@iL3G zV}2L0wNa|n8~owu+YkL~)FqL%JUC^F*#JW${~yZUGpwns>*Ky>L<~JNMWlqTAc8az z1Pq`w1BkRCLX4tPq$x#%kb#71p{XE99cmDQN`L`FhM)qYqeu+FARuKNLkOTlKogVm zZl>JN`&`%a;eF4Ca5!h5lAV3_+Gp*xe*aGzJKz6uc(glA&Brx|XJ=F%MHt1USJaZ* zD`twekv>7Rv=p(@!cQV6ffUdogG6aW=MsclE>=>-SirNQ7v~$LASGw&+ZjA3Y7&|} z^JSXGn5PeCP<&7Y9uP7eB7@lnOH5<=)VGX$O4G{c*w+ejO=)8nEMkjOxXJzZLddu# z2x|MP6U*}PduCY9CL!baWtcd!c$_RuVtPnK?0MjmSCgXPT9v2ZI^SalJ2YA;APN(m z+FPd9Gui+u5gNIbz5~*P-kJO<&0?m%0?6npQXg&7Hr8WVn30eO9 zV`g7y3k5q-dByja4)IPzkPXJ z_=A*%qBb)I+jc*T5>ezk*IHm1x_DaD3xztMokAM#nOEL7FMU9i1xoQ&^6GLm!}AYq zQ72$0-GURV6MMDVIo889*S^JMYripW+#^^hVK>n_XJ}*D=PJm&^mVo1@rhj*Bg)oF zG!F5hsc)gA9hs4k{{C!nOLPIcFF*_?;N{Dr2C_CMD{PwyxQ4*`pG-%=6-HyyMBngI z>(0FkwN`+@QK=2^RB!7dCoL;C$fpTJf{I#ZKu9v^rU8fFmIZNfU!_jGHs*wqKeRkb z63uwCy3X^mIN3_81Q+1(9g=GO8Vf%=a%R@lx{Ib?Jwj*=@j1Eywf9%cYz#_G%7xBV zHemMw6-3jb z-;}$$6P{%&pRTJb>nMv-_Q{b&{7SS1qrSb`myYln8PQ$$4V7X7?2qlaka1NFus$zX zEg{~jq(6h%w%<3;lSsUq>WYYUTF_XYpvxMmcHFo6^DuZVeuK3FSCo^a`$$R=W#=aS1X{4I zN;{5p7**bNEqk~0TRe6^3W*)LQ?El87 zo~D~JdokGZw5F?-tfs3S@tTCGInf2x5H`C`dpUA_;)QfVoyLNl8;~?5YGi3-X&cB| zMARkRNyuZqv!YcUtvxmxRKtyCgL342qc6s;c>o=Bo)sI# zXo!@%+>jK+50dxN78H+JsgwYkGz?(KU=9HXHLN^7_Mckn2N+d-M`fQ*krP+U?L#yD zIz_|#Ag|j`uCD@KVVsd?RIM*A;+Dhj^b+bJqrkTZTH6?b;ua`?Io`cU72VqA{q?L& zwUA}MSEU(VuWQ@*)CxiH*($AKEI01GyX5um2qSsTFp!=i^)Yh&V?t^qNSFlg4os+* z9}w$FuZDRQq9ozj)hry_pv28gYHXDN%uFBS8gF((h{++%2tfb<4?hj$xgo~zLx1Pd z%!ng(n4Z-)i15*Sn#x0{MV^y~UC_GIpgL`7dzs^Tmbi6h8sx5I%754n2~7H|w;8{H zoy)z~zXP|WISQ-hp*n(ezPUo>>9hEs!a;LQk(2$_xz$Br=_#;w|4I_9_DI1MY>{3V59iiss^{ zCZoy+vH<=eBUADT0(7hNbrt-VQEbVZTW2RhmVPF9UrWOKlgUG2J)D%l$~M|Gjf`4n zG4MGJ%=W1Rc$D=Fa4BtrZ@#0ztg5qjEZrOhVrz}G;UL|Ux%%wCMfn6cLQ)2wAtTr5ZeF3VDRg2;Gkol3Pv z)+#EhMXrOqSO^cftOfJ%-;4$AcZt>bES4GOV-LRl?LGEqsiW}un;`G?OlW%wGRxHl zTt$1AmVkk}n!Q6b+0?Qlv)E^`ULfY9&=^slDE+p$Pu3*TNb;#~ggKHO9wc=es~HSt zgj}!M;=ct=puxYqyui8I8akN!gxSj)mLVHGEowJkF|pwW zz=JWy`0S#L+#rMLM$uxa_xibVIpK27B4H~b*%Zu%WG&sUI|}TPMO<+53RIMr?z2Ns z@nu}(N1^cS(f*8%7IstOCaq7_u&}cAG+bxl`lnvbQ95S`W0B z5UP-n5aScjxq_`O!2lRErQ-o{HXAYPHz^aP=%T1Se!e#j>Jp2oAwjg04is;26-lZ+ zUAIi8fWEH}COyDsVX;vG#%t8~0p83gzMkk6wtRxe~1E#jN# zEY$NNT|1dZKx(xP30LWq*C7trHTWz@m7GOnpQ7u0I5k|N;|}#5%Tw|GJiqVLid18j zni=fY2@f(Qi8Cn!EBtDkD(z$D{l*BO1CUK}$1lHCnmAPjPlIB{BF!n}(`EFIL7!fK z1{Aj6=bMcdJh_6eh$oZUZJdv3fowkrnxdtqG-Ch@x*G%OeGfsO&rTeGM5$<@&u?xGaH68={N}=(Ysovw7ZD9Ij{PaxU(r>0s@vq#i zQE{ATk%$ZwX_mi49*HqEn>f#G+GuMWL}!;@NC=?Babq0hY?~t+pUGgiVTp{uvFs8x zZ#9rg_D-3C#mr{ySs-*N zS6GM3E|zYzL~i-sMRx>UbJa?*y?6NB!82Uxskd-XXW|JCf~@qyvST*BN_BNI#zH?S zGUeSa*LmJ+#iRq~Yoyz(*pOdRQj;3G(a+IaL%J0fyEmkS-OK&$7$4TI^Z^A+S&re(Qw(OvZPQ+C9z5y>2 zwRll-`NQqzO~%dCE}E9#JRi-j4a>b8RsB2w8 z)#m4f?blK|`a4@^I9dAYwJAjzccuaz@L{y>Md!h?i}tkoRt|_Os2ghO?L^PC`kqI} z1zZarUrF2gCM^gRtMdTJ!$NDFRGerm6#w&mW%0n7V6oVf2GQ?F<%IQ@3fifVfXo^v zwZ09!(0=>njY@Of zi&dxn>37FfkL->(@id+^727GgYV2vD-@e0hof^1Sa?BuAPgBFv77?3Ac&_5jKB-f2 zuH@;-s7%Gal`-Lczv%JX`&wCRnkGK0Rmb8xtGY#jLZfS6Gd_8kLH^BF^jv-vzy8R0 zVX7~Qq=)d4NvE`#bVnk%H+=DJ2L4_2BxcMB-!9cO{h6z~KO!olo4ts&Q!o*_SK`fX z&)venXWNbGX>W|P7!;(<8^oB$)~r+);+$UdUce5Y@bNsHF{CzMdC_*q9Q9iu6#cA>seH3!I9S)w|@L1 zxX3krZplbN5x)~HQeG@;L)hNzK5 z!ilSrCUw(0k*u=A-nB3-}|5p9xahp|-M#$Oz{Y7p6zInOOf6LfzR@i2l{g$Av z|GRaw^glnE+0n=giDxf@O1}Uu;d=H=TsZg%kDZM@pBRDo>u|rn?)RUcUD`eGRuC#~ z(iTqLHjE!_-1Z!8^1yNLh|Jnt%(V}J`i|;w;F5gHF4jHqDH$)i=_>zJVb9a9!^iI~ zyojHEkvjO>`ua1d{Dj4rQaG^Wy+S8ZqJC^F7`;3eJC{J@Z ztZ{WCcG}GK>aL&Hs^R)GJp(t^hEFG)89W+rqPW56gSo~*kB8M~6R?e25(6|wA=HhxW{H#D3PoI&9aL7s^*meia)PpdW3}*53WRKl~Ldjgoh--=Hz>ney-1M`6_y znbAbie1ZM;Eg@HUduMnboCdaW#LpiS9WgV%2D@wZ*Ir_{h0RPoBE^e-ab>N4InJ5> z?#cY+*p*Ma?v(A=*@%(qjxJ-8To32$&?LOv>p+ZscE8PBrnGl>I3ry4yC*C6!uCa> zyux~kQHsYTy>>(2$vi07;@NXr^-;*DnMWks!)o=r_gMBze{#KR8CRt!HFVle7W4eB ztgQY>!j`}Rl;CIt8)%%Hs7yb)Z>x%;CBM33zF_)&Mp)QnXFc&DTOl4@cla~fmUmA> z-goz@ydm9-x5h3dwPZBgo~$(*Xi&Km`lq34;AF9{!&a^Emp|ONRM{=N*JzP-Gr&dM z=9xcR!|L2Kmdd-gBY9|C-Ft=-`rc+)y?rNkp z@?CBs8pALQTKFY)>|XuZXUURYzfs@1QRIJ`Cx55sG?uyFxXLE-%0Xq%tZo>UCxbKX z*(ag5uPG#`Q|Nx@+=(A_Uli>6_(O=yy>eaU)%Dr-zqL*H!vR?S6h= z`TjOL^zJvtc@M8N8HI9={B$nO)J`%qNi@vyH1_}Q>xx8J`%r{z9VfA(cuni*jllW2 z(V@tIm|MkKE$Lf=mYkZ!bBVeJ^W^`Swc7lr>Y3!K5$Ux*imH`;+)dWxL-Raxt8G=& z%x6W<-?wPPk2dCv44h-!a7Tl%#0%8NNfXue@yoxgrA&Osco+2eRZjAOE044uD?lEvX(q&Bj2>H zeS_VibaN!|-0|~~Es5W+y*XKRk{9K3!f*Sbd|%V@+BpN#w zea-$Y#rIm@!P@P!gj%DE)JKFjdn2^N5|93w#=Fd(;O^7&Js9*n%5UVtslJErpWC1v zCFg^6Dtvo_?COn_%tL>0xUcti{`})}CGN6_-l2rf=}YJEFL4J?V{26s>&^A7ppN%S zit=C4H{i|^9(iZ4+-iDoQ{v9W$7P1+AH6^R;kVdn+M?YL3uRJIw^qL$HW`siNPI+g zyK4B=@Oa$xFF8lEEb4DI|$V;Nub zZ32G#<4RF|Sbuip))a-spJXL7cOEmnxFy0rS9SZ@j2!OusFx+dpDwq`b%ZufcU5H% z?6@qM^x)5&#>=L^Fi5zT5V2*WYtWafmV1@dv0E2Uv9Z7S`-JTpK1jNB=yn2O;qzjM z^j-MtoAU58%2TPmy6s}xA2%OsULha-{=7rv2NQ`P+;`OGtA)!M!rM9@s7=3=nqK{8 z^vi!LmU4)jJ@x-Kw11h(%|6@8@_+jA&F=pHQ$PMcrt5$DapQ&GEiA2k|AV~brDtAw z@A>nFmAe&XRZ$W5-xt4nt~&gDEBw@d%F)|C{U0~8Y3lyH@ZU!NUyEpVBI$JEU&DaE zj2^ByE$ywk1%tIyAXHrL_GEkIJN89E8z@#l&9v`&ygk`k#B)9H;F6Ykcy*&a!E8|E;xuhgJVS{(cQV zp|E)5hqn^g*S7qThlLwn7kG#lnb&U@`KOtt>c6rN$;5glOWlpwqpbHZ!RzKTGygj? zO&jbID`~09>^&#nycaN?X4XjX$TrOz15Rt?95!A|-G*U3&h$y;E^4zYcuScAzbgp zZ-|`wj_o5_F;-hIxWFv#A6(Vh;y8R-ONNNt?NWGZm}Ue2#oQe}dhmUH*^dN1)B&c> z{C2N-Oy|inJaWAvLV<`x+N}9z(6L~dYUMJT33uMDHz(zhxkuu8(Wu|f%1a97=Z`B8 z3Qr9@yX^A4wsv~0gN+s;dOTO}wL~&&^=q6CKv|e3TZKMVV_##Qk=VY&_?cMJygdhfJ#H+-G&+rINszxO5#*7JN5ebfy`hr4B;9Jd{r90Yj? zy+&Fp#H;tL+;JoJk_6o%DlZ1P#haeo%E?TI1c}x1v}Tehh-%%rIAx>e)9Vwqwp>~- zXV;BfsM~~>N_*-k^%BgSeHUg&!cK;N{%q3eG2Q21oysSPvv6J@mSTm~t}I?;`0#sa z=$eYAtkE-i}Sf`rVVb(=kS zZZyAO!y{A{AE)qW!fhIEoul82HImV7$D&BtxOy0pm8?ZC-H(! zdE^x_QwE|er9StvW zBu24V;;{L8UspTNh6Dm8;}3&mtl-0=Hnwv=Nobq^aaNgf^QdhqZ$Q*|+v_Ncr@&*U zx7VLf+?g&_!;>tRHRjaN%aV|pxb^bLlwz`t*5B8=w1c34km2n$uPDHcbl~Z^6ms-iSmn7AeaVjDLIY%Q14z z9d-E(Ycy}45+Np4NE975!KzGOL}ykQkQ&iPoLhM~4)} zcYXqW?(gmQ#5ATy58XD&@K?%JGfpB!l++S!Z281Z3kvRFdHJY{>XbD7mZ?!StbkCm zfJ`p^?uw0!gyVS`&$<>rO&s$?(|WPdP6avAC$HaR6gdW*171XtS&5ASkcK$|q-NFx zg0`d(IounHoPu&kSK8f^xQ|cocMd76*J5vVUE%VFNnD7U7E!pS?)G@e1Md~mehVNR z2#h!L_WN*)7h|M5?({Y?@dmu4FQawOk1KC&?`9fbP{l32Rb}~b3~*!$$?uefcmna} z!9WZ@j8BR~;yoww^D&$_WGcNX zI4PtJAL8Zf)d~MA2M%Q6irN1%%z^ z_x)bKZ_oNEmYr-*gN~Y}W3o6ZY^{?I<+nrm^;Ub63=fwb{;lw4)6JWW@x+i>D;7}q zXjl>CrYny=bv+6_ez3?gUr2s^rs(OzdlnqixDX!>xnVYQytiq^b$%Gly`Pg4=0qAI zQTU7?N9J}r8mzkrU6!;?nx;UccTw9{(4VA4(c&GdpYA*0$e1u1FA0E3YRROhA*>1C zE+w`AFf=hC3FIdUg5Ull6dgBSYz0$EB>re<;tD1-s9_~EWlYQ(rwPWZ#deUH0%`n2 zHYNbtCko=EnPH~6FSW@Z^d!y~D~w@~X?XXSW85)nG=xgSd-am*3I4^Z%rw&^A=bmUDNe~d?-M3cl?tl+XkZvg$jlQ4WRpv=&+IhX*?FJL>cHH67u8<%z z5$dE`IB;{#xX!UXuk?9*K<`@T7kBFjGp@KhwchIWj9u(8C3Th3D+iElb}zY=wMg@j z&%|i>0# zwHM?1Is#AdUmP#%r~*Rs(w?fa<2IaU_f?t#7C1e_LXHt(>(gIO)gb zj;%$UGy8}f;|l8F>HP%0>8WUPh#aytW?$)0NXQZ{o3ijuicSCG?i~F3fEljy;W>_a zNPgQ1>Q%DSfFv_0CKj9Ve;jy zpB|n=kMDWl`A3jk94%0p3Uu+j$0tx0lGn4IrPwaZ%PJd~p7q%F&R)&%=->$h*R4 zDu}Sp%23-7KZfrP*ObtO)x$-4*WXygldc{#RCx~uF@-9#nTQ^O-1Y^u9)dVZybB8? zLoCsHPZ(XYlAT;GtD1{7uk>qMB>=ror3{!F*OWGU^3g#V$Np=e#E`{RcU*}-k| zlCYdwfdcAePcT1)giSbNVr&(Y<5 zuC;g8sws~o(qoA92yk?e&n?|UE`k8UAl_PGh_Z?jdWQ#stkLSCd$VfJTRcO!W?7HE zN8x}QZSmpc$I8KxsUqE-=6=3!VPEa*T)yfoRqn^?vYe@Gl@sXPFvyHe7sSf#@=}6Ml zSlq|jtfqAvD*;Osgt~D9PZ!m41B-jrLEa8deH^MCn_90Tbt+Ts>4_B()GekJ)$|XL z8-|8miKb@S%Ve%xPDjqEp@}o=6D$mWyco3-z@jGFFLFbn4Z&DIAVglJDPTm|khu5j zVGv6LCmqrrMw$(m%s|uCkwYo%gnh$Pw67h#$FgVc7~ZMB1e8RE)~w5jhe9Vd(wbg#1Y z3bH}1LL)|D-wI!m1zy<@S+uB(hL%e}BEASp7beA_Spm!-t9R>K)s7k8*p3;am`oGe zMg<19PQeQVdNk01Up)FAf9~3&BV!PBF25LBaS#|RBbrB(Qg(yokBN$rDDQ$#=s*zkeYg!SVr$|EPL)hy#&-lNZ4SrL@B z0ey5_=KGwaa#J93dUte6N_r&+AQc3EY`h4;qbR8C5;;H=iznSv3tlC))pDZPLCh>L z_PB3^=Rs`f?S_yGZEUayC&R{Qz3Y=?p}7AJixxH`eh-*fxkyR1=8r}yPbK8lPWRMg z4Cd#b$@iAkSBswT_;RX5{+`*FFp=Xp-Q!CTW^9EO#`WNK(h|ELG3q~*h5?C{a)A{s zxe^aS%}FWSdKKFOc<`Ua#rf#Hve_*#HJ?s3qZBZId@m8a3%RRLcr&E3%xA6Cf}~al!qkwN z*r*Cmb!6i>sG*6ThWtp$3OVC}+_}xu?0g3Y@xWnO&YnAQD%<|JdQG}2fg#h_wWD)1 zdX?Ehos32uA^Gw)gv{!EKi=NsLRbL(3L8-U9C3uoWPwOIn%`2BRTg=jqUe?u<7CF-zh!ZBwm_MQqJdjYQvyYiJw7G2U$k^hq z=Bd+|HPqZ(fC@O$xE)?laOdYe6;97X^#t-Hh}7N+VHP`ErLP2;YFtBphlD>}MEwfm z4KHPQ|C(hl`SJ;2_xr{p#dAidvr~$;=w*jHTgYJ6AlDhJ_mIkOfIR)Q?v#t}gWI$f z0H0fMFFX;nCjRPd;HaTpczPu=3C~?5m_99NO8o&;*$kA9f^{g~S1Z*Crvxgzw-42w{ zf&#*{UDlj#e4(uMch4*tmIbVgKfYq4re>MDaFveT_Q$b2tPL#yj3vY*MLzq_C zUi(Ag8J@B?5zRn6%-2GSh}Ju(?1D6g|9PPBvD=d$^Lke({!9BPeYmh0nEe`vJYryc z39zshGI0PF36hDe)bjN^+!kyt6fC4_)ihrGmO(&zyw$iNd0b7+)j`e~ak0=9xjVuj zTt~tIma6v<`}}TOrDZ~$wfe#m{Ltf5bgZq#;Jyiq*GGim?jwT>wROiqJf}U~Kz?D0 zU~1Ugw1xn zZ1GCASQ*pNW<6NLK(}kUBd02*)*zowhai)Q}+3Zk>Rw zVLV1$vCTg6;`Zx9*lF+CqWFSc``+Et_uQM8=(&q(p|~u2x7VkE+b8Do+tP62UI>kO zDqLYv+p8+kd@qh6==`RdJUNZ+l=zX}#Cz6ZT2 zqSU#f6)@Vupc&KxK2QZHU@SW*bTWX%o==eTqJ1CKCjb83IDX^{|#xprvp?<|s8W*DLKC#*Lb$=;|^XC>wyiV&4tWv~Cby0SUQdf9?=>Ln3j;xhwOw*Iz*!-z;T1nPi9p@V-3f3ADoxf=MSF z#14zV@v0{Sn0TR>2TkI~H$+Jf9loYQ%mV>JA@o~othTs?y?FXb(G<}k#zexNNugZO zX{%jicTt52Q?WFtXUS+~yEs{tRIL zI7_H+Q$r+V164A^XYhn)QUlG%wwh=;f>dy*y^GMRv&Bht!6aHlTvrQ?3w0EV($|EL zCG+Gf2-iRr2GjNoYYAiyfe6Cx1oM77g!Z~5FFINWM**Dg4S50ZQ)^?)Y3 z*KY#5ULMuP?CR$B3Tq)ABQhk6EtEADS0|;_vw`Et6|rPaF!;_IWnn8t!lvr>p!E_N z$4r1sjonpi{D#zI1Y$I?@)RL|(@o;(qLelOLhgO6Mg~7#@bL8{jL|lKnwhL$@{j`oxqyh^cKuz zY-{+Y-lckq;H_pH-5deua!~r>zT#u&I%95G)~v(LTN>|{fvl-n zNnd%OK)0^Usb{v1MwKtr<*lYhRMHJ@fK=p>LQic2IUsKBz3CD)T(9*v9E903g*lBM zoyJmRjTQ+Mo}-%g^L#0Gzi3q8g}*jG*8{c1VaOP0yzh+x=FhO+Rc3N^R9VB!tb+dF zr@J`}3`HiI&jRG%mZweAimC$Lf(1sA+XgPVIJBu<`6C>ExH=jK#sXJv?4?6vK<7gS zPi_~y!2ghivJbW9rLF|&a$ogCHNw>GUuu*(Xbzm+9p;1PUZbI_Ur+iM<2=r@5Oih z>N-t!&n)DWJA!O(Tbxi6*no=%=PY@x39*f4JlJ2lsYDR7u}ro$fT%d#xa@ zAqfq_FsW3tFzu}I4erV{7y6W(Us69ODWAJm4!S(b>;3aAk~DVxc2uR=7`dK0Uh3OI zifWBCYa&ks1ZLq_I1Y&qarUjzn{F1k?7v_RLU$@0kDT&ZiaTkiWY zw=JjkjC9_X_^S!B=1guj)ojA6JtQ2@s$6LZ^{-B+CL7enI655<2LycF2o@7x> zz=_VbfYdM#Pa1oJG#@SChOrhqtwe!ic-}6ogeK&XF}(|j7tg#+Q^~NG zbjj9@(69@2z!zf3?1fnMV_{mo`1z^)4KgWNn-##KQB795`4BZ{ow7337n**q*M{)L zj~g=BCHhj(J}A*izM`aRI?*WPA-Dm_#s|tyw*nM;nVCnFt{D`|jGaOhw{ZdnS6g%Q zS-k=-ml?DXR!Z9N5~T&i1+>$+V|;uAhTL8%O5y_ddMHi+d40PEWPzotblP3^9Cp%g zl-sKqqSSNXq?+|?&bs=$U7odsFR?w?hCu}$SyD4u?s9C;DQ-@fnl=#L1Y1+MHYn7 z#x@TVaKT|!(c4vL|NL(Ft7g&Q?wgYLZ9AO*F-L#>*?rOU0j8=l!5`M&DB#@@^B zhOqtFA9Y>khgaxw7JC!Fctuiip@%w^GKQ^(XB*xsjfUe|_C3k$E7=|FtRKk=y}d0V zGLY1&XtCApjG}jbCth#is@U!MvjL=L>G1m)NgCAr_d}K6vPZqWzbt^o8UwIjK#e9b zahwYVi*Ed}lU95D*fM!j5yq;N<1z-6|CG7!)!Aut!5Gs3t+ARE|LJD;W+HFJi<7BmI`-2rw09Tw_;(wW=Darga<%ygDiyM~v~qJ?={4LK3!h6?k6%vi zU;>}#AWZ~7&MjGw&AQV`el9!o zmR6EKXl)P);;Z`B)XD&{=rPs`_y(b*EPn=aBZP}1b3JLIFb`pfksSHAt(LO7J78Ch zoTV0este29GyU}ss`Q+r-z7RqDAM5s#F1*OjK1r~>!rL{K5G~KRK`HZqPXs!qi|)^ zHfQQ7QOyM<2{X^Vl6}=Yqe>5X=*6B-sO#@@2*q;}&bdYs4>NAbZ2@^TFoGq)R#pRk zQ$hm>s@7aQ35vNk<&OGY+-GsvWxrH>^G@IHhW-(H6PvDYpIkLdLlGx=2PkVxi1-zs z6-K8PQFAxy3``x;*;cdKGAQA&ZF_lgnd_ON9|FVMQklN>(}xg);q7V&p2wPfHq0t- zUiKC;GtqnLnuPns_=P%+osJR}%Olzf>!g`e4D_V$B?&=|aZ= z#)00o5qY{Ubz!QvN#8#FRw~3`Q(75ordX(L*14cYq|Iaf_4`5vkVv}CsbCfo zs9`KuS~<|V$Z&^uX%0WFy`qsc=)GD!&W6wpz_AAjP$JduoW6YF@;_k;RM}n}?kJRU z@@l{*?N1>%l~0&{2i9ljS9(rR-)6hsih(dE@0pcvi~D?PpY_-bw2^X40`oG%WC-%w$NIM?%wV-bW zByFrf#eLA|O)(>DwX0JvOF$DJlM}P|rh`n>9?SxeqccN`fRm3q3t=z<9{>=DTj=}z z!}!m8|4_XG6jPz&em_92SNN_e;vzUc;A_T)5bXu^VIXL_zZIlU3Ph&)BK~;kpW4u; zP&^;t@DQ1`J}%~^e{o0$dNt3$t`zQe$UNk(1JwpM#Ij<9_ zyXXc;tyk7eSao!Bn<7KRKz|3{N?ymk6A1*3w5jtz2plBP@>v{r0qv_6 zkNCWPK~tWYUD`oEX4N@Y!iza++AYJ6F$kb!_qUM-Lr*k}LIrVr2$__`>cUYvdnq)` zwIu$=BXRn?$j8>1KJY*maUopojBEnZoDiQ;Ggk+QRl5;%S$O;ei1oM80dklVqZa}i zpLMCmWJ@oZx3D!FBp-AsQ3A5Nx@Zwmg8?1g>u_d_eIT$ljl(~!(m9!u8V!$!TO9vp-qy;VVNV2VHiI0GR^KJNDIv0R zFq_#3P-ixEy#P1;|5~z%u1Mm*4&+aP&y!&GQpLZtyxqHU>~^D)w>oD6S)8>uaeU{l z`#X2{=@!V|_!52`V)~mQpZqnd0payPHO%|y@&DQs_<8BQr`vzH<}~+Hl2ltdv$wtN zek2)7Y(_Ao=9FcSO_Js8_b(^CrS&#j^S{ft2j9sCGlN+VU+L*@((KLm$wd~q$ z9{t7d$_6XT9q&NQbf@g?44F$0;$I2TwzK$^R6s1Ia^Lv7p|{<4bmaJv`5Uaz00RiO zGJYG+8WK~v+{GSdIt4`Nv>s4@t&Jqo!4{hAyh9>QB!2L0ua0D{{_s_umq;SK>u|2F zZz=qn%V_S-t%Ew}T#fcwHUkn?u--#EB}ATuOsnnyg19dWYnP|6N6!Jzs%J5Nn!ZEj zlC!I%rtYV)B}s&9QjHy}DDwxA<=@Y4s?^uD-OW~1aE9$vk&aZ~YNXd(3;%Pk#ol3a z8=sL<0}GX%@>dcH=~|Moi6ygcVoCOndV0}ul>5AO6+9W6end-g_o)$WBY9^9*J_=i z%N8y*;f1_ZWT#e7jM@UTIP_R2%S@+eN-5X%)5GA`_JqA4n@#s~ z9$GeU=b0jEX|ijMQ6f_Fn)glz*iht%JZ*3*Qn5g^E<-&)$I!hznZ^``#40L%QFNla ztBZ*ib}{H1Z3rkhkTWRN*+T6YFZoRdsLP~ngWaaXY-V5EW0kH+jUpz(gP9SxTqJU5 zi9UPt@bi|}_aU-P7Y_S)Y zSl!5u#(i|K(y)m0;7rZhjHbEJzl3zDj|SgVdY$yzQl>=4TNa)Ok8Cj+nRHz-TC&hL zAE~9arPCgeL^v)By)0gY?k7{$`kJ`BxZ~)+9j)n`mOPPTybI!-=x-C&FY>X(FX5H= z`Oo)^hKcyk`xBwg4YWYOlBRJM`}@+&xZ~R^ljcQf4i3^tT5=X7-qEEE zWonY1RquE=*l*>e`s5J!6DqEDdA3*#3kp^0qVb{6E|>)h zP9WfMM-GNxcFE2Ck|nYSuDL_XPzA)tf1CcWrW`=E9zQLb64Y-JvQ}w8O%(rmCmxm_ zHZm)%N8<&J-QM|g8a@O9W3cHnE6^(>4I1PF2O>a0K1_lH zGZ0CT(l*5t1mBwBlq1&p(J@kVZbf-LW1PqH?1@KLj<9@R2h-kpF7P-0~lQDVvAc zm;)_pzvOa&U4B-z3#1leB?cQ!fQkye2`AN&-7<(q8VkHots-+Ki^N@H(L^2P>n;7P zZp?c6tKS*~VxEn%N4C-$JiHj2O@O&BG}8QZh9n^$rs;e5J#d)}JdgqWv0dx=N-% zIH#+-8|1btD#F25O z9d_|TLW%p*NoSiq0V+$)X#u|Y_GGo6-#$I@pm_xGQuejxUFjhA>sc=a%*g0JA|-pg zuP+S5MD1dWTbY+5E6Ype{d-H5EaT%B6i=;I$c`LA8z3-}APSCwfwTeMzL!br>E3g+@G-LJgy+|Cq=rYQ@I+?~6 zK;(z>yU$%jQ~`F$-iy26YJOKI<)Lx@`0Fyjz?3+oQ)URTnz>i?9`02-XaVymq(98D zmj3GL6%a!HJ&N|kyv(Q(4kRtNeUe2iYd78l$%T{-Lg$=p&*%Gl4)1f{W<2~0(_*j6 zS2g`iok9JYOg}f6w??VTTWv{&t$Nv)EdF$L2hhatE-IFuJALbqlHVnw-DI0|k%jth z=B{>xV~Z~{54-Moc-8gc-j|f&`Pt$lO7Tm&$%C++hz&FVtN+F{n(5#*VoWA1ZWuu~`-4GpW=@8urq zTM@9N;#}9-&&j|qt(3hP6OoPj&e|{jwe2wSBjF~yIHk^o$9Luc)}WX@NQ6+%jjhpb zAHzt!jhA5sY4$<}L5jm6DS!#1%K!*WZ}RA>Y%KIHjE^{AB{7d8==H+XkKA-qd~NGD zq?bJ!K5R4!m|(~4`yLuhpqxu`gt{)SRqskV@>~{jE~>-gJL`$t!(x|)+(TU255=R>C}>g~jVlzHMh6NQ z;?8j~v_9EcOye#S!^qm7PU5}#go4)T3NFN5nfZ1FVRjtzG|rxK(@9%5!)b`O*CFP_ z8WRuAfPm1IP%~C&uy~r9&cQ>1DFIiS3khhf#U0!R{lR^=l4xS5sn)7%xhWxuly-3MPhvhmUNh6YpjT#h zt;9j5R4V+~1w32g?YrjWiEE& zXJ>J!?uf*>NGFJ5C4`234+>f}(?!rSb0SU@*TA8ybe<53D|W2CP7I&oSynFJz9!7F zgv5M`BeX~xvZM`Jb=6x<@bL15P}6cLb&lN2rgE0aENoV|ZwT&z!!9T!44Unrm@d)J zy~blItR$gyR;JjAE^Mv(E1xByU~}_N=aN)pZAmIVHr#>GctjqjQNctrRH7LS#<(<6 zGlkO>&i3o1u*nI;FXnM`)gzfu1ZYw28#}=VV7-l%lEoni{T0Oo!Ou1@&FTy7AcI)b zbTbJ7*vz!C1_S+h1MJ530o;?onkR8sGkhC++@ql!m$8RZi}Y=N&7sHXa3%&fBO8rkxw$!;D`zkr~TX#u5$?9 zZ+{tnQs?x&XKJbiMHx5(+J~J_3L3sYfvAA#13DhoMn}_xU>wziAox|lOlS(y8jKhu zqcH}#SXso77`cjl?P&tjyTjnAcM)ujaBbXkMJb^wl9Pt$-Tzfx?`uGjCptV6RUpHG)n-G4voWparEzSd0YJiHS{GB)pKn#1yev4F2p*jc|J4 zA5b2|pYoE>*+^m$j@W^Un+%Ii$#yf$ov~`@bF{Q52rCGgmrda!s+>z0Uw>`WzY@$# zp&XrpgmTeEtGk>-y@*TAh9*|&ZXamk;(s7@uEJw)mtUa_j<^k(mmV`Bg5Gi%TvGAc z?6GBUcF8#_0mgmvD07xI+TP|>$A>Nvpd+RzJfDBWN{|>~RAa})S%l(O`65YqD5?jw zBLJHRI3FHBBK!4;qTx0_ZXXSZVDFmD(%HNnK$#Wf1UiPoryk|?i9hITjOY1#{6L_)gX%@)rZi&6RDH5Z<% zTt^B^$vt7mc2gb=JCbwSgPC9^YTj|;&(Qo-xwNL=dgMRYv`__@5j0-d{2NcuS~9Zn zS<&KsAGy2mD|mr$y`0N+6+vxt7+VGDAg zr`CT0&la%y+9?~-9OMh$>FhIi*cQco?#3N}pofTuh>Vix+;lLaFJ3?33^pVnuweIRxgmA(2=B}2JfpQwB*$D62l@UfX% zo`$x;jLX;LnA4tG%RedJVMRzoRf23zz>yPygHPSJeySojsDju8X|7CTgQ}F36yr%w zR0VN(7Xlmp5p;<`%;G-yu$h~(l(V6nwJcKB`%+8;GTY#gp`shZq(P_neXiP}p+(X< zm1skqetW}mgH_`2@WI{BKkh9!pg5%Iw(og{$~XBp{`*s7@FfMH4H~1;Hn4Gvy7Wy< z)_zr%2q_AxzFoD{+%W@0Hs(>)UDX*%+#C%!OV*xL)gYUH5NYC;W0<2eE$ix}w{OV6 z`RFq6$f(G5hQ=%a3C|Cp=+ufitIO#xFR;2rBwhS&gE%(p!7&o6=ytdlEhtEB-Z+d; zz)}amGJ%;a*Po*@;*_|{N1`4&vFfuNSR*)l+>EvB01Mlem=bSWpS(1qKRLV`kQw9c zkC89~RxY5jn}1%$!Je7xyf|%rZbh-*!$CUqwc_H%{it`ua|Ls%d8Vfhq-q(;^-P;B zd1|`lJ-@?=ox{^v3w5h;?F0`yUzU6eKe@88LC_e^=UK$$@$5!R2?SCnZ6MFZi{LM5(LR)&}4|*2DPh)<1s9m0p0nuWD2h(`k+nTHYV z4BhNrdShSjb*#lg4+}HGV$)f56LzC|%;eiQ#RKx5vi8}x^gy&-vS3L-7XY~|m}sFy zXi=xg^`kHQo~yvu#p;L&^AzoCcBN@!gAitl<4p*s??@aIZ8vm)F9BN&ePm3<@$roi zCyvb%3D6*huL}jj86u153rkk6;EV)!6A63;-;y9b=pCMpSTK@;B>8PeQUZ>cu4PSC z5FowfNeyVuX|4DWpfy9jpniiO{zeW4Ja7R}^x8og1uh+YXeqxO!#+}NC7}-^dCQQ$VXAs$@~gFdT{CQ=1!ALy7@J0SK;D9ne$ zhTa%pKD5;+9~Cz8YVG;oLa1k>=|6Pvr7cjd7>^P2vpdRL7sPldk`L-f;RosvrkoB5 zbD-2-n<{&{R|lK@9k&63X7d-mWXu#oDuw z$m1H~i8w$Z!9(|gpzt?VlDCzh9o?Bt6H(jgkxUUr@ZbQs(dQ&RLsGR=fyY3HYi9d8 zvgy%W3EBd@ZFspT@DU(>!Jv9KWitsWsL`qLgS=+ zb33?mcM+Wza_W)o?@T#zpdZcvaWlj5iSY6UprrYDG+Nz;A!R_+Rw&3n{S~=BPydOO zrv68%e@Rh(7DXPz4`yW%6$<-IHs07L57THP04kR1R(yw{;wG)lD@uzM4XTEP8bdsy zc6svB3bqlOV4i(5tPHY~0B$kiiTsgx#xJtR_k1w{IpSt7I*=u8m30GKGm*uQ z&}jF+Yp>J)tio)x*>CheSig~lFijC2zuRG=uLW80*8BV|G{ZK#B#Z;JJEj30< zu6z9c_7;~T!%v95pVkW%-dUOu(fM9!YakR08riWU0pA!`I18CPFEIS*w&!^r9Fva$ z%FJP5>6=A&_lou8=a%GNgv-c269Uj+YAx!k%JEB%{)-RjrV^v-VpC$@h*Zk?BxPfG z8nyLU@e?DdT~fPLnja!s63hTWbn$`^w+ufSijw!c(e|e)d-DQhV;D0@A{bOR4~z1TC%2cy_|>>m=&NiD)fNAx+5#X2R@ZG8K9OshLqcAbZ>9 z5X>+w#@*2M?CBUIn?njJS8DxqISMJPHX0ro-fPFNn`EL$D7JhEcK_y|=YZ}J#7zq5 zm>wnLr$SaQNj3}d(!w-J-XsNdup2Wn#!yBQIurtsj{{i_pkpzY)y@*J(W`98b!}7` zFA?{iTG9q4*V&cKpV`|{gW{iJf|;nVjX7hcJ4 zF#lql%C$=Fq7cwm0;5I}2xurAnW>N|j7zWuMXW05Tn%Fjq?E9$(W=M-+0DrHZBL{W zq@U=6XirW3v0Sykn{i{%oU}TZI6_iy!KhJ^+nXE{G3?L;DbDnG5Nv?xoBxwH1c>g= z{ks0yAQW;tNNP;Ikdq-TFD9QuR1&``Yl2D5A(#>I?{9~j+p&clxFF%)R{;m)meG3S zNMK6U+1X@s*Cj!pz$GrRHo{cvwr&Q?8;G!xguOUg?;9|R#{Y=hsLrBFs>)MF#7aJb z#VRCobu=u@O37h;jjh~pN(v)cB!266eCEg*L;XbQ@EFzbBbQ@5%1-8PXRSAd3Ht(W ztF(ES=*GyiLWqO?j`zuylf5QGcT3R8eO1D4{Y><5mIdiTNu$RCJ~UyQmfgziYtz`z zuFNzKJCT^7z!wYXR1fwnS#@NGP~0m{$pS8>$O*ilVe+a_%x3qE7-#S?P<_4d-2<=6 zfWqSD+nIa}t^OgLy-1MK?Wj`FLd*Z~8JZ~3x@jb1y6ZF1`>Z~m-Sl+?8G?>L;~R36 zYERu+Lh2P&zYHR~r;H>^G-g}pRZ@Q3GMO)N%QM(;(vn)=UQ$Xd3F8SNKA-r9E)Ik( zmP)RhCb9;@T6=3efU{6ITS5)$tRjy(8ZR+&N6@xtNpDD~gchgA)Z_cpCG?ajs-&69 z7l*LXp5$b??5i0Zq!mA?rLLV!lZM;2c1W&AI6=_-6EK}Ms_=*;car<)tzEHKsLT0& z$MySYya_;*seZkEB&mhmnCoOoyIwZp#c9qA_|~l3dTpY;L)cK00w$|8VJm$^qmSND zW=^NoqepC+zUUFXL@31dMXFCLv(B8x_~Bq0+!WiCN+Y)l@zKAn(`TFup?oPmFxeAtR9 z$iD(?2bPpG$E~C4Mi%0Dc47IVljcYl+zU5Yk6bdfo{8aq*cxG3^2UNZ+gXJS6O8ct zc=0;qZ+FB(t>R>O zQ^#G?8eOwO12W!ahmv-M9J@A&r+;%v2r2=P0{Lz96P=C0@V`nZ7AOkw$-$Z?2>K(c zsG44kJ=W%lZ~Zp5ZK4S&4jC6PA-89cV0ap~=Z0Q}UyT#ZXs?jSdwo;_KWWlDOA|J~ z^~?M9hvjvz#TyTaN8+^K%uGnD)(6o{_8CJRBT~Yy2+Ni*2qWBl%`Kf7IbXN@B@Z9~^tmBDG+%Rkw!NaWCG0oDgD!`>X7h=C!xh@@1=Hz0i#f)!wUXAGf)Edxwwa!I)AxkD zkdLy+yhU7f9P{qpCWkk>S@mA5b5@b1YP65#my25iSp{4avHzV=a~&BAg;{ z<~43a|H`ndhFAQLN;Jc|jSIKFztGm4k->FGGEjbXqs`x?z6LSngO={(wtF3^teCrcrB8lOv~3cgNQ3+Iw=f zN>IlqM6o3a%Ne9@yO#Q?nJbG%wUrdEg->iOZvRg$6pwD#ZEGk`8o4a4Bmk zuU@!%>2kaq!pjx71BF7o*g~xXSi$;AAhxTlqtYlHj%QM#!`qC)$o#1#l_~y`Eil4& zD7fz2YAZMdWAQ23{*rGeuZuM1HMAq<xJXo(8O!FnLvRr)~Z zeLKU+O6GWg^%wmmAo1?P1v627JQs;@vRRN4#M@so0o?Nuea$0@%z8}R0tJj9XO+R*KNGH=Q7%^Fjn@`XBzU^M^fw z%ejR8*0oeegQ1+AepwjuP2zJ9&s@kSY49TeX>raeB7}a$2s8)KsKn;V`U<z zS6PGS;i5anJBwW%Tpig#qr+$7Lk~rB!AwHZ_GZ}n%a^u4Ws40Czdao=?y&A+QNZu% zgQ2>O~{re|$#&?x9vg`73s#8q4U?1oojxnVyF!z1L=m0sC_D{rf?m5@TXo zitMde_cNO;l~!m#pES;OQ96y}ZGF0Bsrg|}^-Sfffv^?+B#kmbJ(%o&lFeu ze)`3o>T?$x`5ccd$ZLukSt=x7nme~w980D!J*>J$KhQsl9lluMN6;Yr6im>l!%ZLa z1yCc!7*8w*XH1YO*yROLodpIq6(xKdtXtZ7>WkU1zNc_aLYj72D_M)pfsWfJZgN#GlB~kX2Uv zwf|Q`{hS$tFQhc%nzg)dYSTGtcmKi?Up>kxiptyJ^CHuCs#Rt5NfM?zs)CXR+Kijv z2on7>L2e=dZ1r>Wuj=>z_MS(W7a{98Ot<;awKkTTcw{} z{m6o^9C1Hm738P{&6x1|`v({xBD+4grMx`&)Bu`twcBD#AJ-Z}ZpmTu#Oqf~);-s7Kk`^8t`gYf%)<#voX;w`E{(0W)!}6ixgJQ&s5x&+jtv=PVQj)n=bZxoGP9TA(v?USB z@f0h3)Ha-TPy%?9gFvm zTHv5@c0`KM{$Se7cE*IzY?m+Jt9{B2d@9NH&+no6=wH>HAPHXS2MD@Vg#ZeEbU$cg zzpef98kac|f=dG~2#$~{f-rrT(i(whNsO=GDW=yi&-V)Xlh?(^H$@ACA6MGhomII( zHw9wbl;q~omV`8c`%B>bUpanBYywg7_!SW6KMq05{AJ-E3xWZNG8R5128;znf2&G; zM=eaJa8tXsF9xLl(tGP}U(0|xt2k`2aG4G*x6I??UkQ30+vyp!F9Lp=5bC7Wx;j?u zIK>4`6j}YTTDV&5XXmH6R2V#rYa72~uA#lRzM-sbRIf!Lg^_!T`OZ|#29vwF7KKbN z5Np~w%7laonb3S^d3e}@WT0Uru903N?`1&Hi6Y4AxC+`W3jBQR``0^2GH)ES@knm-g zNsBTs=Om)Kz3b`ilb+XlL7MR?EwwD1qhp#}-6FfQb6J}Ux&#OU`6S#%C*Ei?7_NoE z0-Z11^Ctp9#?!}$n`*--;8NZV10AIc>z#oZVw?Uwe{I;N?hgi6ZQ#EhxshgKZ&Yz? zFU+J<{_W<*YQ}V`2J)&sNP9*}ALPv-karOnBykn%0>JCLDFGyv20}!OaB?dnMY--~ zL(NZ&-~W6JKJuQwKx6^ul&|XjU^s3-ZY+Elf&M`8Tky7Qrn&%0hM`t?wTpquO=V>r zQ)D2{&9ddIwi42=KQ2TF<<|T9p=MhaPMEA(G;KF2!DT#UZh8}r@=KQEjC-_|W(Hl| z&7_aq_%O8h$j%UtzQ+f)-BOQetX?vNseyeke(k0=hP$v34h2k~+}1xvA6P5YjBTsr z`?mGcK(MjMYeB*kK?NMK>C~M0le2j!Tz$UqTl{Wu{cpi{)y{Rw1hBny<6^@;{T3O< zJ(N6K2`z;R#cvQTuA{bs!2>^}FB)!;bqqYqxxbHxTK^0D zNnU2s2+y=U3$;kl2{L z)}e&Xror@IVIs1Sln^$AVQoCk0iMi1ykWbVVONURZ9Oq@Hc+)`m_weY9X!%Yeae%zZ;ly5`bQ@s>2Pp;p!rj-0s4EpPTve4NyI z5sb>v%7j$9ztYRx3x5^DPo0pPqDTobbAcP1Rddk`7*EQMQRi;ncH& zQd+yi^Tj)G;^b?A=r{TUOMuerfpbYf+lsRSXse@+3dt(NO{g9@W^f<9F`GuF)DM5y zI!q=@K=YdX{$@j8)w~$LT;g8#CO{7jvW`nyRc2h#&}Z~o_0U{42)*HIQPsUXjM@l7 zDxZzR{P=As`zW|N9Xvx0Qa|@P9fQG0Ae{cvz4{3mkHGpc4?R3)beI~U5Wb-;k2uO= zC8FzF*zgi^fwzUCqtZlHK!`kb%>QZLMBP1RvUguZ4nNj~6SKNa9@iL6ZjR(BC~P#* zbTPZu0FR5~r9f9?FOf6~@FRG&<_L3&dC2>YNZQg}Ra{+j3TibN@VMvaqV;m?NA`wG z%Z8zOw6TJS)N8ZE@K79Oc5Cm+gAa$72)s9jscZUE!UzGx7YQT7cz;2X5y|y=+LN$J zCP}U!KRxOW*b&=o&sQ~Ua4rnnIAV9?rZ-IY;*BCrzQ-$Iinl2I!_9%~Q9X1?b`CZe zlMi<_HpRQoq}I#6wnJtaOZ{2ySAEM`Mbv~OF=Y{zLP;4NrtInfZ_ALiYZ_O4yUufg z#*Y|Iys^d8M|X6-?u*IAhZJl-U{lFnfoQox6o)mJWt+V~U{x0AXRnG+2{wE&&(IYQ z_{t6A+31zSSNGv1Z!#vq2B392m!y#y|3kE+_%uun__Y|9zvqwLR&VmlX!9c}Q*8H1?O$%SF2I zCH)J<0X_s9wMX@j5ilL;J2@4vFVB2CqBHhu^|$Kh-q+oJH9DYgU~lQF?oNcq_Av$- zKkT9g1M=_C!yoE1k*%!+(TB~slFi|qSP;7(36JWlATBJs01>UMby5sS=w`vfHfsoa~mRaNs)->^Fi)a zZAr&wJZEnE@2fpBAXm*OHfXEBdf2A}#noxIs=+?j-`w&B6{qv=tEJ{YBORc(Gf3K( z(5yiWUSp}Xs+CU-rzS!z6RRfTTPAxoSeM^uWfM z-Eb7Qja5w`RW82SW`->dMs88IpqncBVxZpi-+ZjOnT7TJw}G2qOOUE&F5hTfD#~$`&-|* z2tb$l5Eawq8qOBs(PH^wmLD;)@>!$%ISe1dHenq+vNG!+fV)^HmOQ_>-(7x%O#Y@E zkQ)%|34A~Fs_Vx{cK%1mWLsmT zsKgfn?;B#VmzL=KRZJKLT9JpKQHW{>ead8rH>^B~`;=~14$}DH_)+>B;CKU_b&)RR zYjBM+MxwmQsn#AcvN-@sINDEP@OB11L!?-S4LST9lL(D33V@z{7zLai<=^8V%uXPz z4X4XV$nxS1kRKgddaVmy-Og-u0fP$pX%|^(-r4U2g+pkFSq_DNeTigieKv}I_|)eS@_ zbzw$Z1sy>YhhV({qq*Y8)^>7>j7inV5z;12-%xCP$h~lsKI_Vrcly}9I8Z@KtHPoP zxb=ji(XgFpXM(d36nKCpwHeL;^4^m=@u!LNz)aHKj~#Oz1yL{HX$(IY8szLXhSj^mEFp|j!3qN+SKEshn{8`y|-QV8RC?@ibZ%DaXNSxqGH zxfAjc6*6j1+)NC>%<<>64jg6apzz}oJ2iuTmUD(L&U>?ACbErn&wPfXZq&#|l{+(} zPdPJA+RAYhq&?T+O6Z2&-h~cZ&-;=<es+9JsN(nNc7J~{3G_mlpQn@xTy zKYxZ}t%(=pP2KusvJV|otVs1*cXlTOc3Xe&099=FKMK#wK(hId6NllKy zLgN^JfzP*il2S6Ok{Ft_kX_?~4ez0Ij-2Y1ID7;XY(4~u(;zaRVK88_+tXNfRbv-? z7(V2>Yj=?~F%I)af4JXfF4-ts)8wSaODR+Mqr9Bku+55IdH3yKy4t9{Zv@dL*Eea) zYR{QA_T8Rwgu2`H?xuQMXSppz4Gujh&8tnCHv3|I@{DUw&}LfPI|L!4=b;Hxkwrre z7=c(Ycv>tW`O8C6xsk8_o1e==>&5SiOw+SUTe^IvSnW%K72no{x^WX>)-bA0AZPL^ zCBuW=IQ!LOilgxrnmLE4O0Mj+-~;avf3^ZhLov~gDR^FpgqF=%resn0IMZ{s<8yot zxMn_kCh^&F|2z#uVpWNcstXo?iI&(%LtC!oVSomg3Pk>I;}{nR34gr(t^`D78!$+vGo91JckSFVWph)T_}qb{%gwos)^huLz;oAu&H<#pB&;oYrl7L>p+;44|>( zG-8>y?nF&EHZvTJG8wHQF3d@90~u}vSrEk}{S+1inN9pf8_1k~(1Q2vy_8;f}i|}UK|2w?-|7c``jsBj0 zViSI5K>xRp4fg-!LMT}MH<1m0KkjF4_D^KPKXDX${)x2s4`jnn8pY51?6ltvfDiwI zJ^X#|eOde|y*+ zE51v$@rz&!uU0n)6y3b4`|9%=`?@!^2QE}Mq~F-{>!+cin=b{|c9nm{e^~gGo|Uq~ z9S~jksJMGjfPS$2S#Zs6?5cqJq<{+T3Ed&BdZLpIWj?c`R`hO7o1IkLT_tmyb?Zab z@t6#OrxM^e)jeamAYQq4{=}V0hrzVoC)IW#bihFs}{?!@8*L@$$P!~>V z>0T;7&T#X!+=(k+Px60>`19JOD8*X^VO!tamMPHlD%ftZWpN9?!|^4~qYfoMh7Mp9 z+MIa#?VQQ=qhSY*(eB*)heB%Op3XU|fZ#m&Z6DVwV>TuIa?B*Y&*AfhTXq0eQdJen3DJCy7wE-T)E1$LKM8|^YR+;Fd3-vyHfj|_quzVhPkMt|V+=kCxtTX)QM)1|%)gQr%ZNDohyk%htTlj&!@e0Du6B}JsqEUWo<_fCv7 z8CI=sU5|UZrM1ENG_{z zf0NJtZevbnT_{VwJP3r~YoX?NhuN<>52W-3>OtrV#}AK~iI+d!yHQPFXu8%M**JbH z>NiInnKZ=%H?pnHJpCRJuW)?!k9$q%Ci_dPQVBY&ZIy*Pbz@)s`sye}Mh|mE5tbpBkeZPgDUBw46A^J7%&DZ@8W0<(a&0zT3N{`L4K+j|ejNV}n0xQR~a6C^#a5;+%GZP zQbYU|zm@yNdym4i=bPrPdj9fg(fyczkiWUdt&)8ujz!GTlIfA1$Go$`?8~!)u>>h= zw>>^y9OC!+o{Lfo^38|!)+$!|?nWv;O^!a#(p~eHVpLZg_gCkZSGbxCBz5aX6b{TK zJSCYu)F%Czf$4pw`yl%}{_`JVT>1w)C;7ZDtO&ECbrw$S@SgLbFB>;BZLE1gHgdr4 zQhdu@kC6SdC0Z%>u(3wd1|#et`Et(I%~g6M&pWpa<;p|$Wi7u{p>Cp5&=L6w)V2s} zRcBZ7H=DD2bf)4HS)0GA>oAb-Z(@8V_eXTz;i442vc7YL^PfunjMU9eDL=Hm(&)G< zirTkZUgeX|uJj4ip_jjSgpSmB5BZ#b&~v9JG&x0M*Qs~4T|IsuPv&3PdF*+#5~^gc zu9cdGe7J_Ckwf6nt_RYR3%^9kFxnvh;$H`kU-K{bzS$=AL#&gU`JAlc?22fz9aP5V zBZ{$S{KzML6io__G!6NEyG@x_zxk))Q-cQ6{VqY>q!+VyX)_VO9P{Osj0%@{Ka|M- zSh&8uATztN>NslnwEC52>ui4X%`4wObh_AyFCTi#Wbk)St8JtKRR`=4vX7X1lBc%Ra~XMW0Q;PO3=Rsfo}KM&h_9j_ad)_{z%J!VN& z^t{KmbtF#uKaJA)_C6=A#((oTbSrAhY|L zR%3#s$2@5QhLlspynj4axc@_BkllwVgMI%e?C_nzCdxJtIf1gg~vzwA6@?F2T zf?}rx(jPZ^{8EzdQG}0oBfiDFY~$Sccpzh+dc7g{+@$No!>E$*1XtWl-Kf2D+(K7T zbFhzgHOX|cDe!LB=;J%6yrQt-2rsDw0gqoduyYw|9C-KV@xVB#@6t_ETRtipCnLF6 zi&(e%-P#bB{frthf7UIB%f2CAWje;9njAU4d!5u$c`)s6%ZF=GKH(uL zi+8mIPoFDGspg>d#;SWZEFeY5AWxd4-of3@D^J^(Yuy;~f-kc{ z>wI{s*2TW}p>~@dKAPJ+XixYxz%IrwmGJwf)amsAP>V?nLP?#F&dD~->AO%pvX|`5 zpxoIRH}m*)cu`c1_4pUPi?3C0gfjYa?23=Kr5o>3=ex{-3M#|0|HA_CJ9fF*4u&=Qs0rA@lDS{%-&|0Bhsl#l-(! zAjhuVb~d*ECT;xx26FuKS^o21ZF@7eWTV@eYmYws(A7{NCb{gjs=T^2ryTy<^_Zkx z2jP$Zsc$>8eUoRN-hWvn|F3`fS6zVhRfEYIP&${5>8pyFtmnPlN(XJ0K53USjS%n5#u))>06EnuSQNe z6IjpGr;S_;$FFca+HyEZ899VFAd&aR(VU;Vz)BI-k1kD7M_U?}A&*|kCUGX+_b6L% zb`vzqmfo8dt8ObON`BgG%nrebl?)zH!xtnIMl@E0M0?FvjF-%qXP3t$^^{Uwmqp_S zsv=QuK;-b66~9YTG23_7QNQXfOmUObeHRCOpNQU_?!MeuzjVMt(g)4bs15jiCfD$M z@xq=Q3n+n27Z8TSfb1LMPLf9^td@iki3`;6<(s^O)+JH4;H3hhWrYe&iB1{=OIxGD z>4x0w>0D~3@8Nn}cxA(&MxbY)-$rqJf5AklLc2!tPoG zS%W>5SN9xKcROW#VwZ77XLm6{2oJKtj9)u^#l@wUQ?K3jlL3d3Y%e_xo zPc3rlenkzCLNPXmsF9j<@0X3oio%iBDq~~kFIb#NogPfewfMn#t_%n;oe1=+ zz>OhugFd<)?NtHbZ`*+RZ)wFnZZ-E+v`rJpP}~IhbLeb=^6(z#I_LVwmfOC1CcV#Z zdJmA^-R;_wRRXNTM_GrcV$)im*QT|;X(gQ(UENy0T->6H1>w}A<3yTLHx_Fe%Wl0L zWPQ}~0{kPvbeA8o~!sd09N(JDW-FfaykBb{FiHROzUuuNYFQjCFIAH90@rzGFQK;fGwwMTf40h9T{3Z2e%R-`#YSz#tE}smD;j-8~BU#2>cPrTNK#o<_N@Fn8 zp}W&-CZkuPDT-u9gm9o|U#Z%;X){(LbZ=%NWDsQq5?-I3qJ!Yt*P9@dU2HP1BLzn6)!S{vQ0-#ucS5qjyNh;3i@LHj>|xVG#HMg|9*%f1ABMg@dN%M}?wrbOF83`%#>1cDvl#hwO(OG01iYp9sKvS0Lev zq)j4#f<{t6^FMZTL>k&NNmIEp|kH{#2LBaUWj(+6g_JJ&+CLB`htX=0zozy zs2vhX4(@rUR)ROC;vvepKldf-332>q#~p<1r3YIib7|0on1B3C)(uMH14l3d5VdgF zf}VEUV3?_r06@%5D)F)h`yMJ|GSZ;56%OZAMcOib)r2z+9tb=-7|{&@4K=rbYFsXj zi;E-A#Kq0+Cf!sBVSd?tHCr6`b8+7poRhl!$6z_0_4AoLs;yUn-IN6 zG?kV{74flEt)t5;bBS0gRnYY%Q^5>(U>$%E6OeC^_x!yBKzIMi&NxK@%(!Ku4uV-J zNUJAgc4tw9Q;9!n@sT6(Voq2mt&g)zhZ#S_RdaKmJ8m$A?IdnimO-vRdNdQ+pzSls zX(&CMhjJSIX3qMpG$u67mUA^t&j#>4%2r`Y+S()2F ziAM~3j75{1Oyh$Pzz>Amvrc9d^we1-Rg?|vs(w`AWnhq&(to9|e_|1t1N$=FBW{cx z3&oxqUDgD*W7yExCt;l>_uO}z8$7nBg20X^QU)C?4wiUxLpx(&>v`k=3h;*(fj#;2 zo}BX+ey(`n5L-6w7m4btxh)F%DCs8$PTxbWKWW0~1d5Qhs5-M55IsMJ1ZG8o@#}xL z?0*glToi!Dq*eh$r}hJBjW@ax6)20ib{9d|x<$(@P_aT$8^n8W2is`+M$#n(?)((}M4by-Afz<)tBi8yE!R2QgcI)CW!Ug}Y zmz_1--Q)ShmFpEXbO*XR==`ex2I81~!$E=}<65yIzi??&xN|@(ZMI5EYwS9CAwsxS z6DeZR^U7R~rt5l1Cm{28`3aj&fVU4wZY`#rKNC^F=`!ZZH{LjgIi z;=-tn6Fai^jk+}4ftiNyVRbCf(S+f{ri0IvDs5W?d>uZY&%@{Akakn3XlRi_)o0UAr8K>?dZf+Di%Dgpg=h<+Xsg+ZLm8`hW z-t3AK&eL4?N3Mt?%5daH*M6CX=2l?0VT-aHaCNUW=UtF0*7n^ohtBwc>?VbM`V+Qc zKBe{eNT%Fd`*3g5?Ax8}nS)wQ1k; zVg9z)J5x(^zm0X0MLf^ z5paBw_;9oVaRqux12h(~N`cXSAIpobL=Jg8+;a)I?GsY)u?s+6V&Dk{1GR*ZK2J%H zn?Czu}<=NAv11Ae0 zezt6u@-t{|gAl(!gXoc(;---7@l^;cFI0RgZI(WjrF@7^hfucc!NzYPDR(cM`AR;k zXZqye?YkOd`<#|*@XQH*j7zpP!kjwu3Zl>1(w7Bb!@!P^;`1qDGF~#WFQmlI3qcV zg!H)zEAaym(G0Oy-0dcEJLt==En;(!vFv+KLOyFi{5R<1j+t~3W+V~gHN|VVT@}w_ zqf@o`9sARRBrH^5k9^wcPC5xnw#{ABqC)uD%J&5`UQ2y~RuO|UHI)X%Wu^gy9a$ov zu)(Plza7!MoIA2yG555x^B%81H)!nrs4eM`nm+ES?7nM|S{Gl`NJa5?SFUj~GA1T_ zc|1BLD{b;mpX)0t!mhdcx%#-dmQ+r|O|0orxqI&dPVP2nm(?X9E)XXQ>c)tjTX;@v zOxHrBM3B3{;Bmwi7Lw7~Kj*VYXDKq`OftWk+T&W#9aSSuxcn1qX9EnQ@c~$SN}bM* zy5%WU?u2xOH=?IlW&kObsJ+sBDKuGqM(YB_FV@9PP?DE?N=^ZU>M1en}{vp z@NweSDsl2uTza~wS*y7Kqo z7-E_>hDL+oeG4{uE+L6@*A`2(VURREC|3{&rrt7<|(tcUkDg=&P$oI5reAd#%5mauL?FWRVnbHoT_=);zvH( z3B`v{(&~Wi@%Q3-rpo<`@Y!Rx(;$oM5%a-)E!J=>^PO9O+DDgWY9m;0=W`Sq^5R&* z%fxhl5;q~uPmo&cRK^)PR=byIyso&$XHeSh*^ZifKF{H%{J4gW*4tsdd>p6e4+Ps` zz`^82QC)Qm_S(9{TK{D4^t7^H3p{h>Q|7tCfu<};3qQ~3GdVkNX)cosX>Xy=r)u{P z5*4}B6^WwamMM7}o{#SvrDO3_DC6l`7Jh+G$rLqs#lw&NUo^dcJk$IC|NlPaV17<0 zDU8a`L_$i^P!U5hM9fNMM(Fr;rr9gzM@~PKl9bTF7&FSKi5=4qPQSD@)5KbJI%YAI znKs+=`{?!heEsEe>C)xGY|qEze!Jgpx2s0>b2qp@U{E|*e-Ej@Vx7sn|9hy9!Ph2_ zRvT~GcgJz%tra>eu4wEYgug_Z9ScFc_yt^-%61_L&2=+v?`Ge=uCVcV{QTCrtp;cH z*jC#fomsQ%MN$?}UN+mR+sNi9J1MKAM!0xCY?FS7cJg_>61b7!BQH10LbkppwIM>o z43%+Kpr7Vilh%CO$V^1pIBQ%MkbdQoUB;}7&}W{VHB-G#C^P8xHD1 zW4!1;v|ZZ~x5~YNcdGyL2D?+C&MRFwo6=SdyH@NO$7xInbc0j_*E&ZA4(lJxN)GrU z0R>y;XN#C8dI8&b_(b;k@AVls^eI%?c=%0`yH))HRN(hOd*Og!Q^qsIbuVN${8Ul5 z80X#JD8Ph{_&8-O5$D;tP18w}p=G45j9X5Lo) zg8BO>ba;;5nvJ``+(x)^@!bCU;a=pfJ~nY^gXJ|ThNa4q!sKn8v%a7r0LN3%6)YZ3 zfKzf80<+HTeZ5P6auxZUGAWpy1t$>2gCdXcB3-hTKDHjKh1J)xG92JVRpKT5#ohhB zDtFGZYvTv>?|b6ymqHLkjlhfr_67@^3_uvz#Ma&(JDMSy-YqK5ZwiGH{=|`pSx(eN zPalX@pv)Ld^4o4sX~*E?PjuC*72h(ikMgy>cHQiDljt6Wv%$EqEj5yhz~8{X2)&jnqUQ0ke;pX$G63th8sSK z)F{=0K#78oFV$uJa2)=qF6&}cu4U_O>}|>+ComtYvSV3s(Bd@}P4yAmqx-(yRS1R6 zalaj{yTV_t#Xv~X^y!c?6BpG%6HH4@8E(HjD{gGZVi zzzd-3eX=k$e?IZD_G*?I5|W4{0G6qQ4?fuSruwbZ{zLYbGA|^H zz8bXWUh>cy@PLF61O=q47o=eZ+HK@M&hz?t1~tS#_d)XX$rciD!p&jCTt7)6(bKU#7kw)z~HQOA5FXUUPiyG=G=? z;xv8PSoYU&7Ym}xr|#htB#bP*ueZ0uT!;mE@OuG(aaKocBa&s~Snqg76q~uOfI4)< zvm#8rT=D4K@eAN$L5E~2>1SX0q?FRjihsvdgQ$3CEnN^UE`p68;9!f>HieFRV5zCD zg{ZQS)Ntg`o^fh95}I`hF0QXzsGVa;IealmF|jRD`BsVP_9*EoCDLeBk8wYkO9q3kD0OJ9IO}JP} zvsttC=+PP~z;hKZVcndj&Fu7S4}jstI0SzDy5EM9p#&~EG&X}5ElpMRTx&}a3?1NM zX$`p`p_0KaMiwKxo~};>2K}eNvt@>?7vxksOqqrE80!LRE7s#)fGZhrT_4<;x%CqI zE^83{Y?7qWnuj8P8qDrki!{&HkJlG<8>|a&ac>~Ase0!NW;NkScSf<=$GxoAUa0cc z#SbNnzBbsCG9Gsy*U8cLbVPhu2M@7BHT!$b(Zl%#>}KN)|EaAX`LJ>SJ~O|y{u{8*Z>Tc>XXG>$toUGzStv94a&XE4T2 zN>94O*_^GD!Yw;q++Y;xt)XYE?HXtESCkoIB*rn>?Z?U;gW5$J|Fz8Y`*+@QEwZ%_ z9{)LAUNlazv2iUDX{vgAbYn;7DlJ-&B66RJeC_eTEhgXw_VcS^-H-8`ZiiOK=#^Y5Gej*__#(tZhM@tyy3$b0o#fnoe)cT;oswgCidqSPShPEcvU$IXT3 zFYNtoH(PpKd-uO5)=7B!sb6B7?YKQ&vdI zX#egu=2FOJe~kd!ecg#}qspTR%iRCD}vRI8}qnpGJ(w;x~F)nF{n|>Mb4yaus1oalbaphv;Z8`lIN)Q`h{{$!%RjOlr_ba$D_z(WQ zqDDi*LeMXL7^|X?Kc&BOOEF8VID(kaB~K&fYsr?zNO_8JDJ4iOiHqi>Lk(7V`CPu3 z?)ZHAS)+f&K6v5!z+p`mj)P6M?eA=~|FnS(j?**6r5gx#*DHIGgF}5`Af-WgO7-_jw91!TiOW>s~ zs9lJ}5zW_L$&~;i{@A$Z+=BU}hRTzhIAYj5+gx{QB45f(-oz6Q{K;oYa&`;u!1LP+ z9+F5bQ?jQei$uweWPk&6eU$idBS#5>M|M03~Qr(367$}{7 z`9b)DwI^BhVu%lWJ`b5vt06TYcPPKZwoek6s(3naIkhY-3@XMh-j93eOcNI9Lu?}v ze&$%%_U2XhbkU&;?d(2PcSw#Lnw01C)a2^DPG}Xpt;IP{)vZY;>kjb0fXYU@D<98? zjU?0@r)(kwbfL4~3l|`6oOF)2MH)BLPt3R}W-(qE)5FkVp&cioK56`KV*}OkS?W6I z(_bwY&9I{a(H3s_6+tuh@Wr|1cM75qlFta~;vEz{6)15S+Qk-7^cMOju)Yk&g;VB3 zy2&}FMY?*9xhhqYP#x$GDL8|sLIp(ryauM2X$7^Gspq2w3f1jCwK587qvM-$gZRBV zLs4ci<5XDv_>jrty?eI??)LpR?)7Fh|8%EE`TTsUJb<-u2Im&LD*O=G%c{pf;EI(TPp->Mo&zWMwCepk0J@P|rd(M)1 zGki=tn*sIDdP0jYR-fpfc*o`RU0_Va`7I^K%jY@W4dg;xXNvKqi`L!7L$JmMOq0mKN+e{hG@!TMqgY|Cl3=Di6GjJPOHkE1I}vq z@{qwglOnw>#@Qvthc=MM{{DG@j>H68k=Wz_e<#ADfYYf>(J)WbFNoHb@QR+*BFZe8os?nh000B7hfseh@V4)V9Notk znHgL!5ty|9`_udUIe{#c=NVN8hFO}X&Mxb9#F^2jRm|tn!5eI@c-sQXm*ZtYSH6UTCShpG7@x2g zbL(EdI?Zu)=n9JIzL_YR8aVvwT6Wg8YmX?_=q3C=SDJG^)LuPr>~NBVp?`R2jGk-R zsRZfjg0q7|qu5*(X{hL50;WZwq9j>Y{@>?v0|TX;m?r84djmI; zymv?YWep1r7x+`76>yTxzoCdF>~8+485t6k2TCIDR#$9$l$->}Dmo{uM>m$fzAEDG z($fHcR6RILB*XwPK*JTi@?AFJ>`iO8gQxK9oioCKk8=JuRPC|M8z!GqY`jK>uiDsb zI$3+Vy}V^l15#5vCe&QYF++;Q;$cxqTR_8b)eod84D5T$Oo6a9J@w}0hE zAB}PE1%Yk`w^1S9y)Y%-j$$zc->2U=Aa*=CVdk!VLND<5%PaqV?BxYovcY?r%=7Ms z@F-VYs~6KwCv<)7VD&)g>`E}1u}{G>*aSme&Cpdn+`brm9!l2I7pC&bzSPZ3SXvnQ z;IL-zPR|paU-dP0jQPMqP9v|!YPNttxGz7T;m(;wco3M*=tzkoU4;?!`wcyz*~%K? zmN7t-<6Gn}?bsgWw$Xc|Ug_FLuD`L@nONH)^|Mvpqqyc-|4_e+ewPBe?u4$g%NV{~ z`5feg-n^aE5PL67=(JLxp?HsYUtI!GqGZaXXbdE}{Am6#>?4#YTB%_PPpq~bs4ecS z8!-%M-vNUkF9~%HPidsv&4bVX{B1baKGl_RsxA$a-4A^Qm`$}WD_Sp?9?OGT#NYnI z!pNS!r$MvQ`kJMj#)i8_-*T@!taHtnuOYwZ_WSlnqq@0VJU=YnQ^r<_d#Q>xt7u95 zWh2(bQBZXsi=SdibtZG=-GK$?;^xafaFwVgDe7)Ip%Gx{cB&$pvSWKy5PosUia#6P z?}pe+-oI%GtYblwPx_2fH+QlB+aA=x_5P=0C4&!ZyN&0I65r3){mgf82%L0_jaT}= zk|4}1DSV*X5wcnNwJ9CVK`Ed`p)l(DctVixCpu)xKZq`Ls#BjhyCC)rRUj!(1wmpp zYp$QD5YM!!E`4B0m9k~00wYsZ#DbNi(yZ}GA0I6ysngY~VB7)-^kpA*zyMcZu-)=XP`B4ye-m7zy9^7PQiCNX~RctLpk9XJbxEbn$qg z6F{nTj1=MnAy`S`MPp1rO9rnLoX4OuS}13zTvA_sdBvdhaVF+L)*wfSD9wyT6=P|| z<;6f!4mbv>pui96@8>jBPZw(^B|&tOAPvIh4sDC4$rThjjV@5)dpafK*wl@+WN(-~ zDrtRneU1J_{fl1BjtI$y{8`ds1yT!wW}Tq1d%Dg2B6LI_j3Q59eh+%F?W;GhZQHU7 zq$Fl93UUhe?lxf~52CkDT=z)vKf5uz{B47RZ$8v3REfaVu`jCE0bZCv3Crd3Cd575U z*NJo{L0__~Ar+X#Rk;+f-H-RC_wEcs8`b$=gH?CWssdBHK&@s)!W4AGeZ67hc^FX@O!b{S0j^PaOl`<2zHs0$RQ<3ObFT;4}`MuxW3ZB!u9506sD1HAwIGV z%V}ki;?A1p7Iz3qe$&OKV6hE)cfOkcJnKvVk5f3O%I+M1_h$?U#ZD=$Lac#8+kG4e zL*Nl}w0_70WGBLp-jReB>E`tG+%U;#ZG3AF17hr}dof^o;}58!ebe{@JV~!0gB{dd z6s3{l5er zD0msvwYkg~!1dIN^u-TtxG16wxg*#+!7Jo$<3732wRqJm4(O@3+zvJe zuSi~tdPPZ3I1BG{*4y~lf78zrHk+M#)<#`MR@F10M3ZkGi<>+Y)!=THFvH=1 za%sDi_TyL4RrQ!r$M*78;pB-}tRpo<#l~i#&XJ z_{#?CqgT!bKDqm1BR3wZDjV6HWW4bSjEbi`+w$ioe;Wi!i`#8r@c!FyC`{THBm>@lK7#?)5Je%J^(ptLn8}Oxhly|58m&3%Lf8jKg#b<{P$_kSXcixIFcD$mUvQs zWyQ>Tf8aYYe2C!EB8H;L`+Sjs`;)JA2feGM)DLs*EXxRiAMKO20vH2BDHDy|)V9^T zVrjHFmE5Cu*KO|E%V%$HCm4T0B=2%+Zfo6cYqHezIKcQE!u6~ezzD*^i$a-%p-qiH zAuo5rhis8svh50P>SKz>l)>5gy0KG>A3x6baO1a(oipGD+&0Hew%QZ4ccLCT5z?Cl z@_H@?!?tXT7Mg{cC7m4UyOJ>vqN}2RrW#gmsz(0vfz0ogq9PvJi60W}CKX1I+DTU8 zI$h;De1AwcXkIQYo^=W8mlNZ}Jsds{0?He;V8Bzqh@I*&SBX~3QL$r8;y|s7L?KbL z@U8GQ$^;18xiF>t;DXjoDY1@FUibsz^Q{)}x>D|}6APNJoslVGg_4A`g~L~^^^RYn zs3>4;BGR#FlJpbVb&|*$$+)f{eeImM9}7VcUZQTf2)0J1sh{#7mI%K{h0^*k819d) zVW9mKa3j;zpC(ncc!;F{GT+9nC2A{({&~%3j_wrmd0fUlm<(zLofxd?avzAkY;#w; zBQ^5}>$}zRc4a#oiUu)CrSKhR;JaL?(y)3#@2j*>H!z4)zKW&F=Ha{HERZ%(^eoUVB;ozKjtFV^WR zh3RrN_4YW1$>`oK2`X(~7p>DCow6=GbWlsn)D)Es2%SRco`>*l?HKJ4#F}ht6of?J z>{AhUOb(@{h9mM2$?hNS6G}{@m6&(0`TS`_p1Y3}I+Znx#)n8;b* zBHd!JT`oDf&y!Q2DyeM%*W>%H4PIEyvrkH`kh^TpGW9)M$vlwjj7bLBEgboEquVW` zEby2px$6F>jvzMbeNkt_1uvY4%%=Cyi9_1%diHyswb$RBI1zFP-h%j0J*XwXb+QCG zMMzL151xd323G-}-zEL@lIpm)Nb_-&=KmHad$GkZG8<@aZ-XcaqbafWNw{Z+Lm+YMwYNocW9i-|=G^)VzY%s_{QIq?2T$K)*3V{x z^TBPAW`6w6y3h(#|EadHMj9tKftMTb)sJ4;C+R-mTE#J)2--43<3~YiOCFr~E zGyPF@k+KA7Q&^}}`I-ndKgX1mt`PKutf1vmU8ZLfH~ zDA(EV^$h{IU9aAmVm^9*f^Pwz|Ku&~=*?auZt)33%=!2I*eX+O&bX->sF|s~e75>Q zAL`fSF7C4P@3rx0Q1BJt^XciP^nV5_u#Ppx^K|t<9cUL*zk-P(zMNfINR4s;pRTr< zE-D03X$$u+ec8m3e5>EFzBt< zm;HI-W6z%)8;O2_YG^YyPjx!evcx zd^#)ssN=N{R;FV-#R5~DBEdS*QhE!nE!>Q}hGsnWA&6s(6+upt1GUb(8S$Ria0VSU zWLer~=R=__ndB7^>!0qhOM091t1q?JlRgf4k9us#;7>Cc}b7LiR*7BKxm<5)qo+Y6} zhmN@=Zfslc%bI%%iRlAUWsM8yT*At8iW|9*K@IH`1vujgYcItl8T_J z7r%tP)d{=f4j(r8rz6PA^X=b7IWPaZkiOsB5dADBa$&*%3CrhsGqZc0lMLfdu~Qy8 z#!oa}(`xQZW7-ksjMj0YGY`@pB6tyL9NsjEi6){wfsDJjz~XKH9pFrQvA+$>{7~hd zZW&qn-e9)Y)fK5`bK{zCqE{DRcoykgbMRl}b(2O-rxN4vv6?f8*%{}pJ(fky^vKpY|Njjoq9zPlf!scaAkLOzdSz6bfg_bI~qGV#Uiis)8O2VDpk=hMXr| zkc3C{Im%Kjn(p51A^p@Vj{eX#({>8gbm89Ep2+hYxb^Mq_wx) zFZ7;aH><4QM|bAhrci}An>E9*;%$-e zgw|km%Y8@FDZyBKtQOfUymga)4!p?g`no=pUr^%p)P0>d8>)P8I0@~j4M%(9VBW=$ z+jlpb5Joe#-ORV?uRV9ves89Niart(<&W#Q>ig}jgHPP)Hn_IhhX)W)`jR3& z_Q%YHgG(2-y}Wg{GXMeKp`qWb?cdp2Pjc*&OtwHX)Eoy#Ya`eFhipo4{=Wi=1AO*& zvnfL`fk7pVD(DqT_|lP6pWr)yDSb2(ST6A9fti0S=v61BU&%QalX?!GSi9={RZj*a zhd8zO|Nce0;#qmfuRGnmD0}=oU6H(I8g9vBI4`--d(!wqM56#EI90@Rx4I-@1XC8% zH<)YYMI7_o=7uaR7`LXb<}o+!awDuNIX9W9tnvy2v-eKqQ0Q32B|e&~N`2@5vgqCl zD>tu^UqXg%8?Fjii4>&3@eTE}2emA~4-rsOs72+Ricx&Fh(}9Vq1U5P6h29T*DglJ zR_<7H!20E8TX=Ti8Xm5*2G_`aV7NNLf5XFp7r%Ie!iJrp3z95Jn@$_$O9~50VYD1^ zd~0HUe8p9x&;D9Acg$D9ZrS{&VdVmk(9KJVPQK+j=n-k;lzi<0%o1!JUE28291}FX z9pG0KrjL#(L*JY?Bn5aSRrrmP4d8?n<3PJKqUehLbcNc4e5Uq+*T@ri8bTQtIe%00 z_Q_v?*Acs0bqrdNU&veV7!X3rgoiiD+gw{p8#LaW$B`{4ZGj#Op+gma4*iNFzXQ8Iimb#v~ZVdq*z_xs5&BC7f73<_(F@0Yw?aY&!Z2AO&U{qP45Gv+Z6WMC5hJ z=Eb2_)X7-(9FsXF5Rf`p3|YU|j~Jk)Q?ERw(>tY~%B`R~-cZVGyOI#MGvLPT4b~mx z@eES4fE4J?&4>K6F+I)~cGG;Lm}4Flu1rY_25L2Fioig%S~tPBkLOt<{gtB^?GY1= z6WkeChP`KnwqSAf)3sm_Xl4>Q}V7{)GG88sC zBUDUcQr2Lg(YG)+c(AgGSHOa%jp=k%_`((Xgn%TZ=H?3IDw+%BshA{Y5*5S$=>so6 z6yGQqNk;ij+jv8~2 zsc?}`Z{9=O+={|V($vPhCyG1TuA|OoW_F|wPHBx|X znoYm=k}o2UW7FKtf=WQ`hbQ90YL4Nl%E`+YA38TqSKk8DZ03VE-`BCKZ}+vc=oc*axF{VtNJu3nJFmXrR8H# z5no=|j-%sHW9G5>`n#;ZQgEGPv+nCN4?cNn+4We%JcWPPtNzy7;M=RQib)BWWQg?1 zos#H@U|4)!&;`#*Bzb($3+p}}$#dr->jyPWJ#4)Yf4?n!RQ=FCjCTkF$+rz~W_UT~ zQIp$yR+}FT2}cZ>j3NZcDYj||<-Rr?>>m8UM8ARYaf-oWsK--=CYrtdQRm^Qk;pF1 z#|7MIdI?kCD-kTs(da`{t&w)29H79YMn;&1U^N%nrvfa^!t4IKp|{oy8E-=u$DtyE zv_d_rEP&cnvfBJ|yk?QV^HrXstf$s4SQk?QZvM!t_phk@bZVnGDeFgv;zF#Gv)KCf z&;RMC?Xv+55D5)-<7H#glz!DwH^Q{Hj<#7R(`a1M{^;(Dm?N3Rx^MPF&dBn^k6t@o zd~}|A{>z&~dZ&k-3vFQAdR@^!wmWlq#2?!o)^0hQo2zADI7(OuEt1M!Z@;W<+0dt& zU*L>F-%epy_O(ocpg>sAAvuIghoC?B^rSSBGA^NX#XAg;MK&B0I1r40WgZC*m$oA}7lLmx?WT&-gJP0Oxt)<}^+TJe7kX<6 ztIpRxIQG^D2H-`VBEE#sJnc$LFrImBEw}^hILTLWpp++Q%5G(_Iu=nLi8IYU$iLz6=cwu&l&11Yf6a zu{W*@ln7Z#S*p|jVL>c2dcu<@Rea1xj0ywk2-W=rS>pSTNqf!-AxI{ZWi?hp(AUmX z%OMDK7^zf7Q{bX7H|YzFn9w1Nx}T(mM)a@`Y-WL)C!tKSimO8+AQ@}e&-$9l^t!OH z?SjeATjpeOtOX^s+)JwI-Bkych1`D903;DFyjAYB+OA#@D%+;!SUEkRET!)}hute* z*Tdo~g_GWl{Dn&9WG92))0ZVkBhQw9)G&l*XO$BO}9s?V|an zE?sZ6IbfPe?4s*WrdX<oyCz_C(?Pxk!(T^GYTXTRMv*=CIl`Ootb zhp9WyG@6aQJ9xi`taxO7V}ow8Z}>OCI-4qow=E5>HT0P1s^N$I1@}EyUB6z{*?x0u z%y5g*#B8+xGt@?y+Q7=5A?^SDgy@Fm&Ucox@~0NQRfl?zf3=CEkBOvD?;Oa3+X5To zidbCG&SWcENnX3+8hTY##pk`mP9`+gY*kx!J>|A)Whv8Aiixvb+j@0_(Fb=MOKjth zX|lE`PjdV`0N1S~7+inDcL?B>&!#Wz8I}y@u2mortTA4F*HstC{yx#f4-3z;Qny>U9SC9q(v z`@t>P%NsVWseH&PZ9$B?`E#D!@@SMdtl`UEXxN*)fBqzN{SrB3N7VZ9=g%+N15c0f zD86ygqA@T>MAfs?Odw}Ej^`n}L+4~zN-n1muQyvr$&$sS%$^yQ!Nrvf5!gr(Y)qO6Wr$`Et$Vvq>X--v8)&?KA72 zJG>XctChH>0w{h}&N&~B=HO5x=*k1U$Pu;zn%;kKq3$V%rpgBv0CkI7;Nd+ZLp7S( zfBm-Sh&6et5|!r3NTCB0_0I0 zJ=@c(z%1Zj5vb?mi$jCj_A9xz^CN8|6NZ7ekyk9jaYLiYUdcYBHW-H>d8`PY0M$zL z$@UT>`a-`SE8aa|<)%kwfdSM&jbBk|k#N@|2t$Q`8|_ zu^ojXg&wA_>yiM0N`V`UZz-Rs&bba1v(QHzNrFQ`)3>ItV<1e*Im01ave9PjWzaDS z2i_1LEs9>H93M2MNGJ}-$3G=Rx0$CyAL)GVU_2=ZqW-Yw_YIWwLfK1U(6X5`ct7YH zKPuERkit6IM1*8PL}{=zmWC?ABA0m4lEEuo8#npVG1A#X;-K@P*W*b|poL!-zeJ@M zS7RUpb3)e5U?oLeyEp171fY|?o7jN?-uAj@vIYxTaoK!Gl6+AvUr)RlT~N6ESShQH z1B@Lf29hS=2{X8AHK#Y4H%9I5r^kO?idx=sEsiD^j{MRGNs*aqK1JPw#i$25xuy8e zw^>bGnyNjk)=r{k$d9?hE_dEmO*kZ8d&8<1a?U6gpJ``^#v zAyRz9;t)ncBgpY`b?dK#B*_nx)7{hM^TOndQ`eG^^>>XlffW!vk#Ik4J1Cx0o&=kj zKL1em{n!%Y5aUqy*)oz~7#=31s#(h}8%PkUNy8WRvgwWUr4i$Tn~-i_K`m+Q_HzJT zTej|5?LHBd$30q2D?@6L*CDlXfqAhX5~`nt9#H5?RF@Rbxu3_XuxRKlK?pda?x82! zaKItCE_4mii_1WEb)hssJ8u1W30J3v`xc(Hl$1%Q&_OU(-AagV?xz!*s)H1{)INC~ zi!Z&8^#Wlk^Bg$#7-;jI)mTT?*94_#3{K}mH?y+jpU&=(&1+|LemmN`*jd)4DuBNK zAIr8E#Y4!BgM+__?>lvd~!V2x)`sl6) zsVE~ObBIlXwsN83Q?#_mhi&+YwyfD3%9Cwq24mK+#P~iwjqEk(&MngRYGLcSPt0aq zCt=<7dQQ<}i6>0yDj*`z-`@uI-&vYaVA;vV76ar{*TE+u%~@CGI4aE}3v6fye@dVG!Hs@O zR8Ym2rrEM54ATsNUX$!q^2iPwlT(dKE%%BvAF|K-a;-rRUcTkBkrDNiRHf6|JGG{} z@;>lhAiEx~&~N7vd=Y`m}p9 z#V!X-@%#pCv`v10LEHRm?ZViKzmlA_$s?J+zG#zoif!_W!dd-P;hw)&SQ>=tnQQIR zFk+jp(yY>nZaipzC-2=_vl)0sVo`Wejajl6 zZjx+4rI6>iU-|R5d$2WSHdfl5doLP?dZYYSyHKnX&*_7w^y+}V&Z7FFQnG>mF30GZ z-u#3%mL+X(8ortJ@A1}^8&B9EO++If$$a&F){NMoaPOfiki(p0<0ngba z*IG34&dpi0@`Wxw%Q($lSz^rn;NyKM^v_vev|&dbW)v{p54i1oalX!V|DF=;D=k~? zm*=Yyer6%?{s;^jKnO+T11t65_(s$EA}sm4!5UOatqVm0jXhOJ6v|)2Jjio?8x|k5 zxJZ|6_mm{tmi<;Sz4@$RiMGE=i$K72MxBdEz9tNqJNFT(Rll$RAwj?`We6ju=7QSy zH4n#(&QusL>}0E;rG$mbAKL>>o+o7*fk2=pu%LvvAR}b;Sk22`p~DqJu+gZh_3PrD zf@V0Rg#oeTX~*q0{-veo?CfHat|||s4}q%pAJ&+$E!Uhf2Dgt~61f?T1D{A{z=v~} z4xYN10RW8|R}7I;Eje-^vC~L&m7^5~V$10gz!VI~oF_p@UztiPaS*!-l)>i1jGn@@ zrrj-zMhOONg@8~{audTr2T!^ym#|(*nY-{C*$^IrY%anIF0Utn0Chs$^Le5A=nI*w zpSbGD@b&tIF9>Cboqoi$Ei)a^Xu;+U^oG*9v4X%%g@`oM`{^;HVSf?Ak?L837Yf~F zU!`K~*xVch1R_sv;~1pyn^7cearT>f!jwQWzL0paZKkT1o-)ujiis?Q+68LpyRH<- z42oQOIZ=3>C0ksC z&@zajW*hLlPOjhf!dEV&OI6Y9GzWRPz^WcuHSl0-b@LclV=y^Hh~A-~D&x}%UX7ik z;#2B+F>O$0!nzSX(c)0XUwX7=seuY*fxD9#SflnCSVlgOFCoy+24Q&<{(5g7|b=E3XJ8V>rB&z3keSK{(8D8OMZmw>_D7+j@U>gkKVs*y`1htc1LegBmY$mUqH z6AB_B^;POio=5kV+0NSfN?@QE3UVLK3<=*Osvi$=7Xd%~T`yR3lV7qcvO4dl!wIMp z`)>EtQgxOEVG4afFzQI?ra9Ih=c9rD2dGrsEAlv`fO?oJ^81%{(>T+ZNqWXEKhLuN{l|+CpAliHR?25GO#hOmGF@UW1V;6pJL`tWP$?%DtrL6%x1Ftl4qewT6P#?5!V}M?4$< z=N#}eS~OQja(mW_)1r9ZQEb%&&RXG%&DlSR%9I@Lj{?wL#{&SGunG>Gtf^2I6vWF^&Nlp*6wzBYY*sh@) zU3D}3`A)M-P}Sa;j&{t*gK#jweR;6kvQ9GXYk2Z^sqJUDH;=(x>>_=n?dJ0_O5JNK zcWQ?_cx_3vMp#$JlJu(A?n%6`EqIGNSKHmP?y$z23M22m+9l`R3U`*Dz47;&m~Ng| ze{!ievZ3(g;Gia~B?Q6C!-3fC?z@{V+nk%IycA;Fn_Hr*UEAY#QFi(9s-BAM5_9ZM z6n7G&fpQlT4*rgH2P}o6WrRRy6di`fFS}tcKV{@<=?LZ~z2nilm)Hh#${edmOHh{a zEyomR7%2pL0nho8jQ>?SOQQEhR;fQ$oHy)b5(vdIB?A~R_{f3V#njy7T!5WoLBf#T zV_XIokl>fASdvN@z!t7vp#qy5g~U)AkQk|~1PdLiJXfAu(+0r=GY_9|xoQlQ<|6&k z&6i9HaSBB=m&H4k%oI~5p$$Vb1hTMtTJH;rzr-3jX^|>fuln?jyumgO7rxzE=;^> zYN0VsF8bvBcJgPg-cDS&ldmD_yxEuR3jDEok=D&dVVyUE?&n9{FjbqOyp9_X{fzeh z=Xv7UTNxMrcdhzrWXYU#!aM~+3IsWv4TxHMe^vwE)Op*f2vL+U7W;{F!p4Y{)Mc@^ zfKkku-DYXouzSg|nH#U#>>GQ!cAwGKMP|LaaB8fWT0EH_7kVY3pRYUJf?h&*P$w@) z7A2Clt>RTicQ}$yf8u&Q_T^iVLH5kz#@m~|ue}m&4F3qPNgrcuGJ5vSZ`;Kuu6yQN zsm;4@kFlKHKIimo^UT#aac>WMHJ`$g4I{r9Nta~HUubrDVeF$bOkh>P)Gr9gGF28; zzFce}qt@3ETVh;mejB`HPMK*%uzMHE0yFC9F@7PMM4qdhLXps4;2gXmzJkulpM&BM zB9%*{aW}l@z@Cfk=7V%`pkQ&$zc*A-j6-YHZEsASADYh$EYNlCDw}U;#f@B5j%c+bf1Ew%9ig@5I4MWW#QIedUX(8<#S5Lht!5gWTNbD>m%q) zN(a*-_q`xEoZ=K5_Ln~yR487K3)1UbA zLjiw_y#fv{JE3Q~nKXO}th2}nob76ug3C>C!YD7E+r4Jyx}@=bZ}vwRX@&`QG*CP) zKRYG}(P}svR$r6Y!9i`3p>;LK%eXKE1RW$cGx3~q6?uKZbtT1T?y+@KOGQ33i1zqOx=E zD5c%2Y?LsmBg4k;2R+{HK55SLqyKx`LjQDw^lZtYEz>*jYcIqpwCi8=AHVS=I{Hl9 z8F_u8gx67^5nRnB*I7D-acV{cC)G4 zN6`Pf^*i$UTRz4!n>1Rq*J&AQyU*8Evf^T69R;gvhvvh>fJ1#4KwvYH!1CyK%>&;u z_kJg@HzyPnarw*v+WgJsq<7W70j4N?@U_MbJw&nQX4_tIDS54%TlkQTf8`&2(3BXP z-Y@QVlBFxg_ywZ{F1Q~sjo>@sZ!YJtl3pE-6TDs7lr0WG(VwERcvoe zT72lztDa*G|5ZjO8pSK}4#);gZ@SX5)k6v~g;uV1y_T*VpqD_ZRej6$c1yPX&DK$B zOB$s9v3-TX?Hb$^>-_*rNZwm6g1D~taA~Btc&AygNSRZ}WMYr**{Bhi8nwe-sb;~1 z+x9?x7&cBhb3XkCiBQ>5)w>{0PY~*gsZ)heP#=HcJLz!o{DdlhuF|Drl0yIp8arCH za)Nhe(-l^?G)_Iw6fT4m^gGkR!&#kt>vaJrjmS{O9dRc2jGfi8uv4P93!x5d!ayfz zPlJ?kap(bdCp*>MeYT|Jrrzd4i^3>)W=Mo-=b*+zXWMuZD;`Rx<<8Kc6w`b(x<9+y z2jHVQ7u?r}BfE6WwuZ!qV>1(8`l3K!?(H4by~TcdE}1?y+A+r(Z+7@us$X^xrNQIs zBSfBKdYfHa0#b}4fmqo(S*#owWyO`4Z1w_BB5iX6(8{A}q%B<-D?%jwx*d8h+&3^(!cv;A*q`(a7tvKh8Uo-ABPG zU#{&wWR7b#m(KF>NevM->+XXz$$ujh?v_du*wE2QZ>(JoJ1JUsvB(Zrf70TAw?8Ew z-+W-!eH2`8doK7!?bn&-g2uO#TiK!&R{-Y91v7yvE&FV9|u7rk8zw~--ZPVqC-cJf5 z_6&|1QNUFQON#tt4;>*A+qmSHe|N_FaxH7bt1d}xz-|Y^l(s&qrM09LaCsh~EQRuw z=3glc=(79am%~H#wdh|l2?6KNrDrjbuoZgH`z4Q=HlE8tNxCH9j&Na4k-&Vh?f@b8z1H*Lus~-qc3tkbUWnHBdb!PNzCpg00-o*SZduI1*s*KQqyw}L7G+(?AqhX2Qam3|FAv7hvZG%d z{JihR6Ym4eSOsXMQQ`5y!H@fCwyPq|)vT(l_kW3iU0oBtivSU~&^-Ey&KnyZTAK## z%I2fVJOj_+m=iR0D>H@_i(YKW5S52GT1ixqrKQ$FUNjSx7q!@$X_Jb0^}4eN6@H0I zf330V`OfYbF$*o@F0=<6VjHDY+{aU8v39zWmIMb<<=W+s{*eyTxTLgaPW?oUvC8;@ z>p#LZcN-)B>~;^$OKA3pFh79d#9`2~0Y#Yhz6PIyfqsXYOP9(Ok~W)*VP|a$7J@QK zxe_L=15OHV8;x5kV;eFWWiyquWD*n{iwQ<&e^JgFn6GySdUHKXnTtj-Mn7Isp`#-I zV(-I|;(rT{9PjY^kkl0z5~f0D)C8$TE~#6LVXO^%{OoUR#{^>{`?{5)LKXXcNe%z= zAMJ-`>R^Sq0K3BDhxZNgA)JOqQv>ba@NDF)eVKxu#hG;!bSQ>?m7x!vcJFW;Z5o?s zj``13V)ht49$QgJc(kvsX+d3Ra5kLQ@5|de_G$3bBV~e5T2|da_bjnN)`V8#{{Xh^ z4$jl2?4V7c$R*7K*)iKRUzoKp(|;y{8XMF+)N$5-JhmIiG%;n3t=&F_Y1HJrk{a#@ z$H1B;1da}S&#b(-y2W;}-#f%P?V~IJSD4*LQm9C4Q;uTl0c3_Qa^9TNbMuI;qjO9+ za6&m(AkTCUYFlBULfc32F5Pj|x-Y%!3RAM42e-4Q$5RW)9vCGuv&!wPFFSNtNAsHgpe z=!W{XcsxFiNPuNgXIOnSLKs^S1I4R+G1=eTMt!`tb7YtrA)gu(2T|1zRC&+0$xVJ} zoBbKPY2WXc@cG@?dF;-qg|=?<#IipxuhPzK!b~~6oZe`AB{JYK=M7FWRdZmF9)996 z{t#|UVXMK9(hYww&?pa)%TdRwo|eL2++)Oy4sKju`2R=QzsED($N%H_b(I`P6LJU* zp_D9*L}E^nW6n9viZW;A6tOFtLr15|DaSA-rgA7^mr3a?Gm}C(U05@fnYOmq_o?f8 ze?Gt8?e_lT``sUTZF@dnujigyujk|Wc-#*+G88Tw1-`gIRt}^GXW*q0F!O#GpLw34 zF18E=x4Hq)3imBWXvBz$8cHCm30Co#rK?IC$NT#q;D4R}qI1DOnKe#@p8mBv_p`M! zQ3q@nG44W;e1Vo*F6i#;+oYYH<{StOn(Z*(H?vFwKH>AVp=2t=(6MJIKx||;UXU>j zkKE)zpk6O(e-8b6?b|`YZir`oYgz1Gl!AVpwP~XXZ5AtJjcyr&pWRr7pUJvITsm!| zp4l$c%#%OP*+?{wesqc`J)p&Dt6mLTIXR}A+2TrxFbkL3qu5{7XXKoBnF6P9C!(f% zxB6b zon5|q*!FG6oV*toWOVOfGC59Y^^W3c&}8K*&HDZld4--syN0!`p{?SQxNQ}6aTbZ6 z6r#Q+`SiPv=7gz|XXlW`ftXf5Xm%6r$gdP={70|->(^OYTqOL3>WvdSZlm6FKXs*0 zocz9iJ)(Xhnnkqzx$)EfVWdh9JXsR#54aDq7q4w}j%sYF9KQqe@;{~Gge=D z3fv})Eh4JIKbc6H(g}p_;Gql?x};`M-myBxK^NskOVd_~S^4}=?@ets7N_aLkRT6^ zT~qyPtjL(3Od5?l%vzdo?iB6_>I~~Kmsdohi&g6h7bQ)+HI}PDhCUxwMXaq$Ib#ul z;NFWc16cR@;>#BOY?Q#CI>Kq;eD%#v@6>rzR!Wi_$x}e?B__c~K)%H(FaE^3lR44Y z^P8hLTV!`~HCQKR}X-DnH%c~e-$WLo@NH^w66!#<333o~HeuTjWg=1*eMX>i*-PY~Fs5S+R^FPl#Px@U^V zT((U2pE#4w9MqbDr+$yUrKPT=erl_yp#;O1Q9~DZrxmAd zTaigaix2kF6K7}0eN%cOa?cQ#!*|Wxxcb8bLxcKDx~Qvx%Z`C7{Z;qkX;>S4Bq$}= zD?E6R zPU+|l$&L$jiF38E^~qmc1*v4285y=O$1b54$`!>~_QwfW$j+YU_&8p3rT~x)xKeHZ zte#{CvSWPtTnKVypoT2^e7qR=?3sE8(S0o=pWyhaX6QI|34(&VA;BB-3^L%Yut)(b zjJ}Rm-5|Y9RA%ir^1EzDHj04~^mZ0T*BG5jDtzo8S=>rlX{lKJMZ2rCQ0`UVOGe4;!mAFJCF)#S`ZK1!nGv`7;7XU4g%Cg{n=vORZ>D|jXu zkeamksjjiV6x`k2eY|5#Tz%5L-_ir`*R@es2$WWHw;7Oy=QTv@e)Wt%(PB_Ex4|5E zgo+W67HwsX_`F>l^$Fp0Laf#0=errbfxWIMI@kNxtB#VE5T<_`Nn8=}0gz5M>xjvz zCjg5fpmI4X$Brz6CxLy3e`Nc!_e2$de*2WOUkg*|%z}O>J;vk6;eucv6DDf9&lBnl z_Q%G=SQ0i!J<3(FrXP1f4K*@jRa}AaC{K=tBmeeO{XpfnMvGRC)1h8IPE^Sv0RbKC zTU;`zq~=B>bZx>Cv*IU@qdRCgYS3e$veYE#gYz=WgGAq>x$< z)N|BCClt7*YAdC{afOjC1`z}hWalDL(3X-oc-OW28IJ< zqhBg*ym0BR_|SgMz4uhyUG&Ovv+aBwTY@qxK^*Us&tD$a?S%56k$H-%*znC?wa$N0 zxscCw&tl2*%7X+~8!U<*kPo?L_JtC1CG>Ed!?}qp$nDn)9MPuUT#`8KRd5yY_op50 zo3qlHwJGutG};2?w5R|9HGFf4o_7 zmu{4g;Fi-H(kCXM5=({616{`hd)7U@~yJhpKZ7?3ZFL(7j_ zFg|ag&M^CoSo%R-8|>bi;m`rZ{`d0-;V2cYGzu2gKI|v+de17de4yB7;Pcdmj)G`a zEiOGKgHB)SjS}%i)Ni0rh=nk;lR<-f;d7FXk|)9vV3HAz>M8+^H!!~}&_%Gz?{1(D zFT(B<)y>g0LW!EM27~oZaNZW}6F=o7=lK&&j@atTwA13~Z0ab)G$>@s$J^Vs-8Yv~^c5?H=FJ&h4BQ&|#4P;JU?}Q*h1>dYPWQI>LR80x4x&D1}TreMOHU(d_&Pyon66kvNDvdQj1ya`@7!1?ZkH5f)nwnGHH``V5 zHYLMC^MTJndZz&6KhE_zD&yL~UUg%B&Di8Vm;OML%l-8M+H0J6zjKBh&hqAj0H`$B z<1EpzF;*CM+&q5LUMhn{f>JVgkTaMF=!f0bnR$T8AHtqB0)}-WDtB@skRp`i`Wm7@ z3)s%F&|E&`?hYo4x9q$b3W2x_i@?+&tpOvH@CycND?Caf5S{j$5q+}RDJ;)|lnP}U zC{U5wB$=EuZt|ifc<0z;=38N0_blIUdD3r2kWS*sChmpR1|hGJRP+@UE?)+i7g;NZ z_C6#Jk`bD2{zTTMvW@0hDaq$YP|MsQt3Zyo!{EX0`Y#u`jGk3oaAenHLog9FPQQ>- zt@zNq+ZDh;@k@Q(nX0zy`2Oe_JW zoAD0ltdSH|CM7MRe3f(THH>`~W`|XceF>7rxnf}T&{@jkyoZG99+gmL)m`ash;8W? z?8oQ1#{@cc+}=!!24L1ug7rkMB(m5II}%z&KCEODwyK~PZ=-GQ2Kul1e91cqRd8<6 zf_po98JXufE6;fpe9xpWqyB>_sDN*QPmpC(!|Gm|ivvcw&1nGb8I_lZD!6xeq%;aY zvRQb)4mB0~9OATec4D)0fS~|-Q0$}R0eHgua~*VRT9RYp8WW2WwUedeawYixDpU2=D%amwfrIJ2()eBroCEJlB9Xg_ridQ_*McTzy2BK<9o_3R z)4BL0c)~yY0|@2h06&MQXg+yp9Bf!H8=@aq%C6qZJK0qmA(W&E#)z+V^P^xryQL{d*|~VmLzccw2d6 zgJ*U3ZKai@eI(8EChM8^J}8+Sem-tEpN+d@k}pToys5G4e3apBnaKXJQxl$7hNJ^} z9IUglux`V{6GUV|*~G=AT8nHcLH793zoG{3#W!6_+x9ce=g$1EZ@Dy*E!=DRw zojb5qHfjEVUagg}yMoRXieq6vpE4CNCl^#KHgH3L)}78(Um z8~5`L)w0hTtV`Hq8|KgkS%Wp zS1hl0qUN)Iyp0NCz$Qx#W`vdK6IILcSw$xtvbVtshCe875QEiRK9gldPsq}2JO@FmVL>`iB~4+7RooMIwX4O;Mpq%ow*#3FjkZTy>N zvPmiYgj5QJk`YDWI1cnHp?z(-VJdP-9KtUifm+{N=TOUh#q2aTZB$FCM~w!M&TL{D{0O z6-ys`1UQlzGf_gEsFk$RRwCe1rw?uY^?@3k*6BLVLQ(?)1wKCgj3av#zrO7399R9a zG|~w)fhAGw7^7uy^YoE=LkY%*ENU14MHYxD4aSH!`XxQ*HmHbYpkJUqhf>;ONWtZ1Ns6^&Apy%6)u#N~pSKG>#8g8jW!uaA2N+r%~Iu6u8w3`|!x zke$&{3PfdRZ{G%+B?N?S>{2U~h)Kmtz_^P4OnBJx(~`Rs=-ggh#^Uu`(Fwpqc!Yde zyuvj#?8r!1yrl6BoqAgF7j4ATXfiLkxsd{HqjdD`EOEl+3wbVja3lryMu|4nc$kI* z&>)~#MU!_lwHizk4cY6*;BpAkSUS3K^OsA=%Z?!C22nRW5+G)YvKPc;K{jG4xug*& z<*nVm?Bgce1N%q9ZYcl^%;^JmhXmknXrspOT~OC;aO+!a3GIP--_b2^ZyiDUKb9WD z|4vRphQ?0=lB%T|40TKoJ@|WjZ5!8aDv7M5Q0Qqaeu|!W4Rh`I_0T|#7`?@#SA9;P zD(Z+_L+RIfh^L8)&)x_xKGpd#is;k&d{Z3$PTx7kx3#tFdu)L^2QdF@O-zvGofKRO zBgiD1xapg4w2|}v>!v!}2g)qc>(hPc!oyG9j%X~yao%4`PckwWl$S{YH!4FwCIyV<}2h2KI78V~LagFQmK2Z8h)0(14K6c|8C+ zl-HUt#unQbYCU5EP8ImJm(c3UnOJ_zx7up#BtT5 z_d;CEW6AAg3h-QCVDIeYFsDl~T7NwBHiCW{rbBwNKxGh`atb~1cswhZ;vCY4f8mc8 zr!cI>d}5C4MM&oYO*|;`$e|2Y8e97x_eS_kT2u;NIK`s~f`{~f`BC1+^a%SXPcDfT zuc5N~`TFkkh7*ym+%a95olNd8&rkXMC4y+47S{ts;o^d3PK>vNz)zfl$}wq!zOvha za*U*k^+b~hBK^|kw64%rAjL-jAWOz(gA@So%!TV}w3&FCH{?yjWiNjvNsqdgG28*M zq43XZQRM?F4IEEY-ftca-B)eUdz|iuhOOsHOT!QB^yYZ$xa>k+^-@%jG>gZE6ydv1 z6!0ErsT|Mna^sKL1=(jL(r`T79wl^0_Zukyy0TZW3O0z@e))h`WLMv;Wn8d_$EZ^W zbwi79L)Z4N$X3(3N!y%)2l_3F%WPZehjv{ldkd=1D;lug{BR~015`_-d zXB5LE3J>WdyxuHUcw(1X-nZ}ThZBaUtrN-ls$25puHG9v^XDhCpMQQjQlPZnbKOM; z_^C2@`tq%AgO1ZTYt5d8+_iALL^i(ej1${}XLY*XkFt63HzBRXX;b`SKtm~-c_=hG zXJ{g^w8KWxbv@GV~U3MrRC%G?hF$ZC!oB5GqYv z76xh|MWszGP(!FIeUDmLEZDtW7!0>AS|@sqSJMZKv!dT4?7Jv>H6e~%xzl8rZ|RvQ|_X_r5wKjPMz=QU*La} zF6#4%iP0S$or-Vu!S#@5oLvWY0)$Y#T3;e{^nH;s%NM>}!AKs`TPb%;b0w-dqACLA z)ta1`uCYBsAvCP+>|DpQ;0?!gx+NW!fUX;Cm)B*6n`aTdOmF@G>MfL&1t9SNuN1(<%8f>xI=})WEw`DdO78JO9|FR(DcHNKiJ!c~H z8Lo%$hQ`BRk6D=2hjnK&6sXjXbNKi(`wksv)LZet)3+-w-lWTIC2_&FxU*~lf4lcfZhUg)%z2#KU{`DsxKwdWXzyO>kk0?Wg5e{Hsh!cO=;D{V%Ws%czKP@OlnDWZ5!@A~NmXg+-A!>;r zt+*XMo9%g=!{qQjc2J2=2eh}IugU%n)7AS(5Hlk2?7r?xJiNVXzf?>XP3jZ-d#pI7 zk-!>fJ`uA$d8t4Wev(!tt>6KyS*YHh9O>-5*An&EQ^xM+9+K`Amr3a@Ock0D zG+FWHmFl{9p~8K|DncULw6&8rWtoxG#O1KkSL*esLNB`=Z`8xi!OaCB6xYHW2TLFj zFf?L4VU|dkEs?Gi8y^GtApbtx+S<*bTjz46;aCt*JDiuZAG>HHWrNsq5zWf!1^CT` z5=FPS-WvK&{65wRDa`h&%3QE3{9XkST%RP|?apiJ@ykiQp>&aY&YA@fuIS z!EI_iL29~^F&e4R+Q4FnW*YdS?m4UlG~Nvf@x7F}-1WPO2t}*~gHvhxYcI>HSro zIOE36hw!HmV|h{%TbWd7)y{7Qq5~0|Jy!Vf>aOe583+bHb4G6KpzBCXwm%LUr3M1A zKS)697BV4-Mm3`>(|oUEGpYR?rh8v7{v>c2IPmOUwndfU)N@W+Zf8~_#|(ylZRXo{w}fl%F1L9d|m#Y)+EOI@Qk`BW;0 zN`H&OtYl)d-P9&0z|Q{o6=a1X+@if)qVwy8l`6t-&2ysNp)IR%fqi)4*~g{8o@@%p zy|Ewx6I*ple{#al*<;X`1vpc%J#r)FvZxB@xY@y7lhyxtO_TeZpKo^)CPHlJ#Ca5* zoerf5I}@vRFmi6AEsm8Ah^sX9E)BP>;i0T)u%{n(oBX(F)!jPPveM4oLrG~#Vvl!K zFnij%Dr<>!soEij>^=VI!N$!n1)WsmR1jd>*;)NE>gRH!+(ppzB(IfyE8}6bhn@nu zKbpYy^2Mce zNCe?bi-!Dd-LC+yR>T%~IgV{w9a$b(4rWkZ11&*i8=3@d)7X$WgqZD6gDK|#Y!}cJ z+#`O{P==?19s(4hkqGq!qUI=$-tiSd3oUbl=Uutx)MLG@P*3lNBmHqjf0zH8_8_at zlEURm(bwa10)3o;U>8Ua?v*ul(Eiu^v= ztSaL~S|m%6uJk<%YS73k+^~&r_o3oRz7`JQj(K~%y+up~6H`z4CvqfBR*aG1_r4S} zm~(BZ$JYD#fyGd3t6A~?=dQ!-<3s26jA^|1J z0C81oS-f_A5Q52b_3NEoc2fuxvD3u!LbPYqE`LS3r>6pO1O=>^gN0j%)0D~B`9Dv^ zni3X^(9rVOS5FuHu<~sWjjC18ISrYwL%iz6Fbas#M%uYW8aZonw1Z+mb?wdti zhR{8U72=z-W-VMT=zYkX%C;WUXwg=d|D+ z!6OH>Jv12-QW9v>toZolx^=?Zq@wYXp_Xm$KojslhIW-1tW-1yx((M>eN%WGn~ zrgaES37&jdiLHkltaw`4jpBZ9ra^dt3o(I60uWH~!G=)ztkzk4fcu#treMNz&-8gJ zak#|p$L{Yx_KxjU1bf78Z2C$U1!7Rs`%*Zps1y=^lt+f<6O*Gb_%l?FlNDwLhs{P$ ziD}FsJF2QW9;66Ea`{{e)EiuIjUEVLSZpI+k-kuV213?~9Krg;I+`gO#oVx7a|xLH2tBU5YcHm&1j0v6O)~j1oIPhvEom@1w8-Ug{r37%C*N0R@Ks1@ z529@`c=s(#DuxL4zYPQmucQxEO&>^aAy7>hweGb~62wMO-|p>Qp?7w2u|z7rlQ)>N z!y8Y@ylS-U0La!0?yg>wZZTHS=t@_2RBODDzfzR3O|xYs4NK$zEmvQf2Jt2g1xMf0 zmQ>u?)=yO@mRdpCke*AWJ3|bbF00zYu<##eazm7bK-@#PJW8J*^y!!gy#>jfR3YZh@hz;WFU&Xj9OxE}2~9JZKHlRrr&h2KWG5xXAa0n^;<7f@ zJirOijm;Bos-ZM_WqFEFIAZFkOC5)(Z(}mJ!j68XvuIqTIlEuN;vP*_Lh&(tqF!S( zDWn-$i)RF-TNUmPJij$XY}L zHW?kAoyU;cq$R)g3zJ00$1iF&w@x)Smpy@!GqH`r*2hsj&dHl$iii;;VFIwffP=|w z4V!{1N`4Z61!<#09XZUIm2RGhTd?DWd1JXOJ82eVV$}wv9;>(l@fW%6dmJq#nD1#} zOFOJU+4-W4_Q6dthP=gyF3w%6mgkd1)GS#}JxIk{J(K`w$qoRgia1FcKD6i=;}I%eSDaO`mOjg;DT zH7~ikSD)NC?DDl9>ysH6hVba60*A(!RVL5w@uBz*WlH?)tXV+q^)ed^x0mlOpv%l` zXL)kTSP8r`YXC&&v@HP~$suT0!!cEtCs8^ldI^)Iml?O77p7M1UX(jgvE`v zeb$g>u3RTq`IIRrIjt)${IFe2>V}x43Sc0f<1Niq@;SXiD~m^tSI!Xz1lRKeX{Lkm`wQC93sg zXde-m0=67>Du(OCw`e<5Hlf=itPF6oX89yh&ovJcp*U+L=rUM%#}KqZUwhdn544ZG z&fJnqN_OBUDx-Pg3iOPONp~*)*E#Jh{k?TaDEJsmf0Dm#*)c^|b^ECgDxOEA#5E$@ zG&-sy0WZ->sP~PP4@I4E9-iBMLP>rXkU3U%hiaCc=72rOoW7%JR@zw$+QtA$)bb+3 zDsREc4?|@NV-5^xY|ya@J6G`L3o(OF6pVk`zUZu`Ul5jCL!gD$ni;z_9ndG?R{BgH z`0V8Jfu^+QHiaG$0j2nNz2uJfbGbF`<*Dc_B6E^>UXGs`{P~j#nzz^-mpSJb7<4u* zvIP&lBPocWr9L0F8~swvFyM&SmTx$y_+zi?hXW(X5-P7oxCyWSXHFF%l$F*O9N#Lo zY%&fsCi_|VVM3>X^UE*;zo<-|EXW%6yk-JAY*%yM%r9e>Q02GL=-GL zCUg9j3u605W2>Eb7|l^GJ3csLhkHZD^ajm>x8Hci=>^dKbC$^lH(c~W&Ar_v0b1NVRlBceJ zc=_W*^C-R-D}->&Kwh^q!w-l)zV9ZJ<}O%?j@mcXS2LMjmP>trpe$rVxO7}{^XgPE z>+MRp+-BFZmIkJG3ui=MK=8=yq6r^Ifi$pJdr<-qwg@~w zJp@#c^ZD5BDf}ewYyk;a$8%hL_S*u(#!3NBb%qD?qJz z9Xn5%rOn|1j<#JGH!1=aNEy194{}j}BrVtr1&*r$cC8xrIM5ky1hq^>^g}fmV!rVf z>RxEqAt_eJ0NaY|j+wybFu;1V_<}-Z`HF7PNTZy)CXGFVw??~E+|Y6=wq0uNSUnZD z9T)0H%yCG1?uvq|M`$HcMepeC<4eM*#c`KoeDeaUt)*}IWL7#ynBnzy@7L27H^IdEo)X!}Z^>(lH z2Fm&)yFl4Pa$m0RFa-v@h*furd0>euS|?8E^Ma%J)R`GP6iabic|LctwR45`&a6!( zu$^#r+mM5#1(62S0E_=VSF^Uml$W2c9{7JhOWl;uPO&!1Cg| zlJ&<(9*??o)k2EgR_i4rmlbg~^xQoJP=q?R39K6S8RCcj1m}k*C`n23ARo6^GvtX_ z>O_2LcE>FPaha$IGzplMEP+aMt#Yc5H#;T{hH5nhiSV39z`t|7n0l&yqae_AO=si6 zT*~zZO`vdZ79Cn@{b76-fA`9H@sYd_+S-1vjodoL=IiNgWs2$kNSE*HrVKW~3|G1% zRP3T)FFq)EbUf6)w~4I?uCu8p!07@}mATzE0ZzccLvs~r5g=;$mLqMI3EfLi-5mnfu+H z*6rop@$rdUy)8aiIvYn6{gWJ8if;1qNt{SyEe~Y|NF9ZT?Fx6q`lWe9s07Y%G4Jk_ zVr`(=vCZ@Sozx)xX9%)%wV;xmK038;h8bBdel}lO5(N$BZg*a$LMfT`*eYpTm_qge zn6l)Fy|b?*%nkw1$~OTiA(aDzx#@#4Pg6MjS!9{QHk*+jIv>1&^+rXzPY5-V%E^`6 zx>02A*1{!z->>1|RA2)ei7=5OVb{}UhM?S~un}@^7!X6lxbDwQI^!R93Z;rrHq#>O z6xL{26aTUa+JV@$W-*6IwWg(YHZr$a6i|MHmV*^8-RpHtWZTjgA&8m#gL;NwBD=9E zG&f*o{>etv-cRQ(H>Da!#eYrTI0;Aa4*Jmo2Anw2qK;OBC~up2Ln;(*%E>X0Q~D2~4L?dpN0 zT=DXZ`ia1=`Z%J4c~Ne}wbwf%^ouU(@e?Z!FN`u8`@4P}5^Sa4Mqij&DU99C-icXt zVZaAuvp&s!vMOOC30#VB|329Q!l#@1@uT`6MUeRZi8)b?MARS(eEK41c(xo0HJA~D ze49cMmCu~GXzp<9rMblRJY>1nOS@|BGA|9cGsJB{gSdrs_>CDos)M_7{kl=-I0ahn z=KpllKc%(x{U@yzYDUs`f{xhDV+C2@e`vP%EML~^zGD2fTiR}#YS{vMO%w8l$w+L) zP;A9k#eOKqGL6L$FutuC4T@$bA?m5&>nFvYN&-AWo#duN%3>f=h?O*PF-i@~+r|rX ze0C3+J&0~XuaxrzM>NuyQT$03X4{BA{_)l$P(!d0nmT8?<*jJ6dEXYr94*a*4nqeI ziAka+rLwjvPcIdk%~eS}sQh_m62O|b9YC$d#nn@&JXUfw;*XQY)%8UfyK{ec9`UQQ0ZWq zw+<`rEhblXbxv7+$rC_(t^X;=$bXrzOlxDC=xZo+4R^zK>`Kp-vXU~yO^wFWQuq(f zX2kit{Z;Z(UOj2!T%L?bxR2bHhaT9il$%oLq&&`5`ohrV#XzLNm`uj(>+KPj7gsF; z7dUb5bh=D{veOh#p2w$5Ce{`{z!uLVfJesaetpsN}lRO){7y2&?W-?AF z&p@$M%$VUm^k8lpNp`6MYZbEZk|!myrR}!JR*LtyhbL^5SIq3s(yS}OL$_X?ou+0? zO>w8Inn6{OiQzfTT5wV!sGH$8&N;eWhPoOuLutz;wi3=M^Y{yWldYn|kSOa%=HqW{ zuMj$u8u_NO>!c-lrK_taJLAG4qazEKvwhEq>xU-9q}zPDuc84kbQFn%O&I1H$eUr| z!!UXQaVs#)PS#{=*-A4h`Krk*S!-m3-Z2q{d+6;8G`SUr^a$j{In+3l&bD+jPs476 zpx5eW_LT5PFnUm0%CrL5l2f`rt(12HF0PMnTTwK!SVEC-Y|9q-bk!J=ATvOO={2E$ zZxh!RLGm3I)Sty?no*s5GN8BIJrJG``DRY`mqfKlnZifnKa|qMhY*u4W}yV_eAopu zmyeC0j0$iLDq!tUV)4H@Wr&pd&jY&z<82MVI{0M9Jg=pz3pkf}$C-iN8k20W0Q+O*Op>?5lkPXc^~o(R z7tBL^CR_?;<WUERHa=ZIPW?2nxy^A^X>?s)6!kA(r+tOo+S-g;tQqBA|YGR^-t zzB!L3TRZqRDwCJ-Mj%pK%o*fFBd+C2@78+Y(~D^*1iJdo7JdcQx~`hmGN_GS%O<}| zE&y_5S@D3Tajdp~v_mCC#roMNx};tFqUk1Hq~w6=O}l?m`lD5>+kk zg|DK^!Rn~3;GCf;z6eb_!nfW7o zB5;!tNE_|_!AHo+MIN*jcvzKc>c4UOUaPUY)pUdgv$YBMa{Y1VvBssc z4-fepEPaaATTm?`7}#JQ!}LI=K^z|Gw+l_$@z>0|Tk#xLZr?i~`m3x4Jq@+U)NlhI9_GBOd%$?o^d{P*Gmy(oV3cRFH8QzWQ>rqp^BW zMDCs_(MmD>rxw>>$b4uBVY8O?8wSdXOV;IDjv!D=MK9lTTXE9TpQ}dB)=Qe`eZ->I zyJ+DaDZ8}-#(nfA{Yxf}l{w#2in}h}OLccL)nN3^p%|D5wa~JJGXS#{tKvb(#p%O} zM}iM-J=|8^nTE{fEVAs+#HLqzA&NVplYQfx{hC9^!U zQW!X&k$N0IBdWkHR#oZ?dbW)7Mtd>0c1i%<;IkP_3h!`V6!bAod)*)eEeriv&>4iA zg>Xg~LZ-4>-&a2p^qFU;F~@=0yY}{_!48fH`i#IceR>&b_>@MM@Fv8Uo1_^I)bM?G zc?#+E&Ih-*3dro!mOt=ZCbPp{gD=)qo}zLXDDXb_y^W(By)w;VC&f5T3D@EAWHKeW zWlB#$h+lqF&c^!)5!9K?g*!hWPT+~;!Go>o7%ZvldIf&;7mY_{LD8@A)OKNKhvjiv z3l2$(w(Z4}@vv7QPtxKZC|&s&wry#^BjNTC3c#L*>?}alh}~AQIETwo6G&aa<)M+l z_pd#)OfeC5)i%&42hNsI4?<_1wF5i~Yc{bp5U?$zYDV(%24%%ckDZgil49Q(tK18% ztN}ls!h$sh!3FgAEyVE6PiU^^t^iq^Qn3x~?ZfX4A118bT2z2t2edpZ!QBcK?)q!q zRepG*_6+Ua`S_1AtDhtaL^mOk^_k5#!Qsd6rg?JL?p?ZEx4t3Pqz|8)-RC%YZ|rhY zf+~PV3{N7=eLq(2kT z%V$$x{B>+@?eC|*{`#(tUmJiTKwt!30?#fTlKY^8IFQ@=7>u*9>_N}2`PW3}BNH{l zbDxejA68#0-`L?n15MEB>|ft^_|`r=wSM?Ot-qCOq?kRj>7$Gsh>y+IF7_FP+@E(v z($3f{l(prheCLja)74s0o8b?GN&HBw&!|@YZ&9C7?joy7rOAZG@=9e0Geu&3OdRh| z^eopeYY=HeQzVr?{*sgpj}1GWcq$wlvvw4BEK+vAF#?HLJ2-FvA#3D)CO#ZtfMTOQa`;jxJbQ?s?+p5O(~@Y8Wgr;dl8Mu77e zImCfC*A84g5vKe1{cdCA>V(*bTsx5`c-;oPzW={tV{mNt@39wXZ}#8oUTf|5{C-{5 z$P08Z`=3T@9rpg$;dhV!uHf~%%l~<2?HZ>4)65v0?BBs2JP5|??|v*Y{P@3vbcz9= zcaI6;zd?ZajXX}p9rp@P1fSf=gTuL5t|qe#v;4c^?#;*ZKP{cABd3MZ}NMf|IL+b@c(Ip`mc?#G0OP=_FQZI z-_a=x_0@kwEo$eQ&KklK-}@oRTNW9$jrvHF4H3!sqtc*@4nn-Af5ncE~xGKmI!8dl;59 zfslfU|K%h;Fa73B>zQXaQhWmyZV9`4Ys&pFoW-TSxFaw_v;Mb(fBx7S?ujZg>J4o% z>bl`lAA_xL-D{$HNWs1N*`E){Bg$Ei$D{VQ_&3kGYkRe+AoleVP6h;(D(p?L+kfoM zavKyn%FUO4^_X)frD$B;T-t}bEy;CC%`0m6?#c17m;1SDUs>~{Z+D~Yw=K0~KFeR4 zNR}>XJf_Ngr$}*0GlBUK&Piv|zki9p(tP;nJBbjvU$;ZjRDeuSr}j*A!m0j0;tZ+h z@9LFr>ufus%cM|_z3P%O?sC}@-*x)T{XGr!9)3U7Y#BY=Gj*?GO^U(|ICF!>BdTv0r=BcRF22;Gg}|Luus;du%SIAYy{qyv+X58x`Wwl0QOH82O)ivPYw_B9pB|jGI$k~9Y=z$*v7)OU6mVH0rpA2cbdlP@2=qC% zq1-39sQs%L-n5zFnHM-?ZA;aVku{|5m z%cs_h-@N3lg8RFpZ1~vedz&TF-fxJD3pqUrC)}WCu8;fy#HAfH5`yF5pFNag(NCV6 zb>5>DHmy`rko)_1X@b0_X`=$_X4FP~Qrt=iv2wQ7EQfGr%hLH0!Y=XyU}&L22? zu&7&rgR8{E-t(+1mwZ^;VC)@mdrR7{`xtRA4^s+ySTL!&L+lysxK^3`G+)5 zya!^wKG|Zk2K(dfUNqtX9aZPp-X#H}LZ;P0Jm^5laOssZSj5pYzE0ui%KK&Av<^4k z&i!f@guK4^V&LdK4Nrq5@_W^oq>cW?v+EsC=fgi-{p%pN^v$(>EA<`K(F%XpctuKF zcK)Gnv|J(ke9w3*M=kM?b>%?5(4pan+QWw<7ZXeWx#b{rX(Ggt6?xS$8Mi}482RK( zad5eKn&EQWpsZH|^MhCF`hWvs^o~?BX~WD#`PHIQn#x1O)klfns^{Z=?b=XfoDeQ& zc9*WWcl(b^K~$?_yMHtivc~gWoGop?>XeJzJLk_u{@V598FljJF3mztlh%CC-BbO` z$dVLcMt?4Iwjt-)r9LdNKAExC`m3~=qtfh!+Py|b0a=9OLHjloyCD*k?;TtW-XXsJ zj|={UpszWb)T7QEHoYJ?^WY^*?i@$}n; zpEY{oV>{#AQ@Z-^{vkyAMB$6fM+tKT-po7G7td}j!X$*Q zjb0|KtelbuC=I>9rJN`C-`iZa)mwic_e$N(tUW^y*wPit6_MA27aYc)?R&ZV&Q;V- z1^N-Sr-2weI}2ht=FfE@6H&SQyT+czZ(3JgJ|&^B_p8Z= zxo2;@`o}$zQe6jjxbHS>wYk%KeAZ8py$~KX{AyqN0pZc^gRXxsZ%)xN#_ZbsV`D(< zL>fW;EW9XO|B+(KFW6;?@4M;bN2sjZ3xz))!VKP;ya#Jy@8v{?pF!hdSNtAdRLDq9&hu2xEBsn1{WVv%bW-nf!EvWHp^2saK5V#3 zbo69^HZN7+%Qkr-=Wy7sb7Sm<({s;qvF{6FTC26c^|@KyF$rK6Bpj<)Ibdv_WfP)i z7X0MVmLsM0NQFS1c-!S?=etWcST3y7`s2v$=4hN}bCHrnenm_EL`3WLF+IPXmpdON z9{*J4d)8K%w|DTT3vp#LY7 zv$b{d_IALg{uj;38u{VEKs0A;fX?}pZ@*1Pt$bo?K(q#arhrO z1G3q)%Hn~&x_T)v0(BK#A0~}(Q7~2t^S+2iPq?C>(J#IO9w*Ztr%8u>jt8X=tb_y< z7^1Nwu4IyA(Q@{Qjhw~|nDkF5DlFYLuEL`tn_1k zlsbMCv6IcnDf!V4DUAHc{FuscrrFEZ51rFFN7hW!XytW|nVC8pwb`DZhjU)v%XgP9 zt3MX@!}I>Q-|x5E?V7dig$3%q?{v0fZ*5M0HQ>~(oL0z1sobwkphFyHyNg5b4 z(}O-iAQ*sA>~u;%j}U<5d*Y1EfjXl~3kX^!zJORfU$45qjc`C~NesMcN#$pF+bZiKRM8zh^a(Bmq~i1!d4wRCr!8UW(=5yi zJW_$GLhbdi7)BP_KXMsP4!Zi0dg)c*IYY##)9CErV2xBd-SBb%P^KKRT3g3zi=YUK zh0c(BBx@E%exLj!`5XeFC~=%VcQE76i$D0=h1=WB>RWfanWL~d(qRVqE#DVNkJT2 zyUJeiIYkhjMfB^M8b9a5^m#SD94bR(?f!)D8m(%@81Fx zI^~M*>#YS>_E*^y6Lu45Y6T~ku&_{#QHte zBV9{b3t0?({$oM`o1Lg^PVtFQeq=^X1SwhmFQ2ux^pPhbBB*us zGv3MKBh~akCu7O_l`K{kxc)QNZ<&NRP`70oN5(`A*BuY8hcmh%l>Y-oS^sHFJF7ZfkJkyxrhI zyQ+Qb{v6()2ewbzS}^L?@qs>Sq0f77-6+vOP#0UHw3%cX@OxO-r>mA05Bxx=*uOQm4}!!*6 z5?{s?bi@`Q%R%M=wH=xsEnqA5wWq)1B{?0;))`+Fq-Y|-WF zMF^ysR5Re;7eP}*O;=%_IPKg@gt>Ov9;Jn*U8O3yky2WuRrY9Yzt}-wVg)T~zzaIr zmakLpGn&nkiV4fvoS)hi-@H`E@%7OaKTJEq9d0gCT`Zoru_fH69y6+&Gyx(Y{}l5EFmZ>FYl*xy0)9cQ7G z#Rlp-qQXPV4g%@^Y?a|=usC=~9!V#6db@*g%$qH#G;yOGn{2dCc5kRoP@lx;& z!h%ZNFF)j&BF~aP!dpzj9Vic54UP=J61Z!LIoTavj4!ACTqMofUXwSizCH7=fEb%7 zE0BTok6PnEqJ2-jFY^wIEZ42#Yr*-foCe|ITIiwzzb%gi?OmXJrv#?~!NS^u8LzY0quW zzVjk}0GsA^3v8T?tt?i)fFp0uDg#feY}R35hqrg=VVx5scpbDv)udXZq?-Da2KPn> zsOm&=Ho=(WJ5=*L{@(9=|C%n70Gm?%kYhjZ)3O4NJUTbtlpU}DO;$T+A3gFAVY2C1 zZK;0FhuSg^mIEU`_J^PUBVLN*X`J-$dEo}Ju{kkPrT$uDjr4Q><4s5}if{>Tlm%0-FiTK)Xg*q5E{yw-4{>!th~F?N=Fd(PDVU(Q+j9 z@Or#IB#^tLn=oB|E5BY}o8^O~q4xa2Hv zX_{2?lrT>o#}HAjAZ2k34Rr5W8TAL#UCzKkQQT*e_sCf2=zk!a#}~Vkq6>8&cwwSB z*(Pv0RG4(p6{r!72@vzGok$ftIdliU%RRvylRDf99$J|eFe zjH5gP4&ti`IzreUT@ndB5?*L95CtIY0HyJyc6xrj2mHjkQm6Ijf*X8?KU@josq=N2 z2p3vv7cbU@yM_lVcy?Gy34r*JW_OT8KL+Egen9CFBor_*@A9Pvdv;Y3^e#le_UxiZ z8!AL`4*kJh^&q`>cVpyhmzlaQI0W9IntOCUB+bL{Na=6a>mqsg! z1Q=x4wV zO9p!v)arDf=&D6%NgLvSFklLlB52XfXA#m^`4O$Gq&c4+nLrUX1zyTT2Bf(rO)X#< z?$%$5Ui#~?9MXyLSB*jp=&O4G1RW>^i&#hv2>>PuQmR6nzG%)$EB^1Qk1UlarROO% z6X_6ME=LnrsC1BqV{|?%V`{m)N?Ez#%?&gCU~3CjfD9_Q)eefbmJ7q#=De8xaX@Yp zAk9)k%2&CcAW#(Ol8e_rZ>kH>Tt7I7yowy`TfUQ{Ie+X1D+?6hoKX7cGT=?C2X@9K zGKFlR=&U+bBqBmtxB0$dQIyX+E=`q?W|q$C>eWxQY%rp5tUG0r>b7I z1-h=FPe^CHTR`;!%m)`BGafHGLLdZfcrZy>lYK zpTEcFXCD?M*JRBLfDcnPdo^AivrwZUcDh$@iNo|F(FzjSA9(`%`36(V7FV#hg;_`L z9on_aTTHG7dgAch?;Bkx( z;Xn30{KJQpLSujBirHaA^?#~SC#Lv#G&#jX2o>y1MU0ghf1gc2Mlx-Fd0?;6xJ~3a`7IDBO!yp zu1QO@xQB~xF9bfUaVn5%d$-u_fR_+I{aXzGxd%z&M<~^s5t{(NgHEV8YSO(IxQ)4B8#Ab>7w5sb5u--)U7Nh!yQ}a^+ytFk z9mR(73PMZ0?)N$kOA-k)w>P1sez1*^JJec0a`X#`0M+r6Iiw|fPA)Pqxe>WqNQGma zDelx3&uSpshCjRS<{px2npLSdhGv273(&cYCvxbxl!=w3_V(T`(%>{_7au*nXm?}Z z^-kc{&;n`cCme$cPT}zB&Px|?)4crUEo$}l{s*$d><9E$I2BvJy8TfpPyp_ z9`A$HvKS>!rk&?#$m)pSY~QN>P^HSDw~bT+b=vwpKh2%*XVg4-28d=@lUHi|6>bqV5=D8(Fvvi8~=d|sPK5nax8>%>Ja7QQK z>sCW>upif>?zK`r=iK0t{QW@Zu58pM=HS3BYHM;PJC~Q)dF#iWsQrOIbg0ib301o=Qz=Fo6MMqsw*^*%qkQ1Z0oqO zn}tJ4wE>pZj+q{_2B2%NrY#?9{y!?5GU-fk3Pu67{ zZiw&96dEbm`AeJvv)xh9--afQ?{4-5zpvgHJKg!}Tl0-9rN)g;k7FuEn{h%mq(8`9 zJ}fOTf3x{QlqMH46Bpc+D%h=19B{+GI3!KAI@j5-)J!-l%1@QHMRc`m{R31=EsL)b zBoM!(YTF?!;Bgd#8T1T74&5?LyRI+A;LuIg9D?C-<(4Kt4m;-osJ%N>Z%UWYZ@GU z;5i!g_kCP6E3*pWI2vR63Cr?}F#{^9FBodC-DYL;D19xxfab<@#yPtnwyk+tX0b+< zup7Qj=GH79Az+!vi^m=iGGjfjT$$>wR1UUpWD26_XQLOljP`|gVCh{*jN)bhu08Rl ziy&4OGuq8L*x({LT$u0lz(uqDg#?6UyxD>sEutk>b#3adY3+_CQ5ia#&9X6i>Vf$1 zszVfH3X{->%xKE4p$|QK^h@)K^^6`wU={3y zjCK*Y$m9W?1|Zc8=U$=YdFXH8#|Tt|DvjS=S7aHozk6u4pCzm`ysZ}TH!AJ#xh5~W zJ4U-sKK60YNsX?5$K^+>WtoC5QcIgI%#&ky&yM`+KR;fsTf;Gpv~xy|SilMo?_dAm zmxpx@&!m4X0T6 zO5RI8U~d>SLfKjgyWvo{4Hl%6S!+AV%&~YKjA~%vn}#BE{0%R-&DNhO z+S1jK$&(Ov@puC~9*;B-rI_IBE@UV+Q~{D(QXj(f-uJMt-mM^+25tNwKd)A-Q5Z@S z160+d2u!quPG4j$wi7|D5U*L)2ckw;M;2|IN5KJkf12lb$m<=mmM&;tivE6sbrh>M z*E64UCJ*FZ2+lBw+I|-+)V7a-<0ef}$6`QpJ_-4m8l$n>ED#@<;OAyVegA7#WF7c{ z-oLzV;J880urTwWg^rl}@~^7?>B&QfhaB4eU;teqy*GPRwfwpP&) z!EQ8PvcSn{ew%IP#b8f=YsFJY2O&**aVoS_qo@5=KY?zJ4qW=co*Ju}8oQ|}#TE2j zS6-Mpe)j8*JI8ZXQSH;zPQRaGa&sXlgvb?$w+~iA+5nfe&>UG$s%6XDZEZCmV^I;X zc8r??eLmJ12*nhb`9n%*7EFbp+|K`glW=@`OJF-x@b&XfMdgx2%bNMaFH4(V@WP2W z{S)(RX5-fFgY87^J`g#jozR?77BM>q1sX|?ik`25CPW47o+|C19UC><)+_;h>yY7t zGDvF)1{{)TmF71$&xp8!mefw3q8@;0A=$9F?S}RKAfO$RLkNuw+oEuqidCHIf$BqTI5Q3+!|JN@Wy*6 zK4o1mI5Mq`4|A+->b;9k$J4p+Nl7Ygu^>;tf9#{}0dRYqS|OOPEsOt#~PYb>WXFa4dL4a5Mu(nq+~rF zlcWf7@qd;wcY2>AjK}K?xyFZx&+v7-Ca9x%R9*{pccjIOjBA zp(Y;^lR?~m5p`;TMA!`u4A0+0qK3R56q{N$8Blu7<#@7Bnq%*ijGL+t-v7>9e%hC4 zMdpRI!o1Y>%y%B%k0Q5F*d1H$Rxd}St ze-4(XL3~~Ut(pG*F3i2sC?fQy)Q~1*?!NNF@dHuqrlingTRAZwdfh4T2Px$dHe?Ra zmi>FH%4)b{zW&zzs-(*|?_i3Kpju-7W^Je5S#NV6ev=PJLg8i9_VKvshjq` z+)=2Tr5}y}Q~p5rP1M$?b9bIJJ27T&3$zU&SFhJ>HUEjTi9G*^r|v34^q-+6+Y3#n zO)AB&i!+b#?sZ|9$mq z`U0u>%>={UO_rDdS<|E-Viv#(#lDojv$@?IBaC7qygbbY_4!cn{7^_jg&jH6ud2<+ zG~D$@vhi@4^0g%twa{A~wr$&djX}Bq-NjOOF~rvexF(13OxCAdRYMF-w0IAfn=aFt zEL5TWsz&0`B2lY>SA_d?V_|OA2nGc2ji7ncay#7NjEc3{f$^24PU{Sw+&cse9CgN9 z&YNb}^_YOk#|y(cD-97`>*s~oDXCIh#XmE)fjL=hoKLf91+JEL-Kp@aOM96M$;JKYIyT&>4G7fdnAg6aFL7sXLXcYTQbDBc@Q;s7UVPQH zz>Ur_L6*8wmhY4hZP_YK$Yd~h5LViBlOC$1#dRtgG6!o!1(M$0`WQ){UI>UN?@PE4 z%IStU^TI?3n*I^g5w^`CT}Sf1oKFW*t@w@)Q*Ju9FSaSFqXhAhv^G`i%>D+E%cp|k zkUj~d`5Y9k*xy>Qzn}qhVPH73Rx@xi-gu4>U^57-S2zw}3xG_0nZLIEIvK&z3iX%rm9t!ohYaZSC^* z_NhWJ3F={i(#F1@O58D_T6nxRw*9P@JrZBdmI^g);%{s8j=)zD>8dzo$YvEiDkMPF zJe|B*34tgor96>+vR;%hTeBpUu~l;53DqXzh)Py0T{7o8rBTKKX)&&upB2R(A~yQY zLo=md*V4tF6iyL#5z~}|1E=Pp$9sBMXA@uXnzd{JL}#-Hwa3}aS43$Wv2n4*pY}*q z9VbwL?t-7Y_V2aO-ufj-t$ULz2UCsSI#$DC7wb#BHh{oM2f4A3tXbB?TqG=>WC%28 zmC86Mk#!cXp|dMwp}({zwgmib(-A-iBcPv2PocgY&xFo3wKwC z?6M3M;`z;LLaGE3>$bNnkmGx^xb#Td1cGgMQZdAs~K+b7ByVvd-?Y5gtHhZS&N` z2eug{a1BmrsV@P|jiqM^+DL6hvKk8x>sk(`51qO0)R*5FfiYqq6dXjUw8h|HLo zfIlVxlYFI6-MVoK*tEhe!)~^TfJUC=kb&_BaqdS3d?9?aWpsxtzQet?xq^Jcon@DA-vZGwJTT)*su{oab*Ve|KD5!jS(Q`v~c~7p-^jQz@%-h0Li*|@|Wa8FZUI7hpV^oQ_dMT9Qx-Q zn>6aeJlb^-n|1H_?fvx`@9?W_S+W0|890VgtmL6o+36G?*|;th$r-_WcZWV}ErC9# zArAMS8rl={UaXcWqXZ|$~8TDdl|N$N5?xou5N5(lNX>doT_h1^^qRRE09Cq zUuU(nEfx$M**&*2Kq)-i$HPGMIL(8&#|qT=b&~!)_r7?L&_$W^Y7Mufl1isQP_T9S zj)YEfkH~Y>ASnLnX%hPW{d2&-_-OZ9gxS9%y(}%})_0ZBKGNoHnk6Qf_-oSpUzZtI z42p)z?|+k_+;%9t<+quuJMDgGRtmQ5iwrVIWyNn>^)$q=C{MLN32juAJ5!=)8+;ry zL4*OcO`j0Gr#*VcB~e?rcg}f+Z}sdHNmW_`>l zZdh#Glpt3=Oxb_(*^id%ga*zlJSZ*`{)PH-@ao*p%J43wYJl9N;D~qNUXRk$kPxp7&m^l1uh=5=K5gO zV1I;su`u^SQFbLZp;Z!UE6exWagcR7e=-ZP%IHg6OkPTF4^vDmP?)CXMbIegx_)x2 z%DC0OXp!Js8}v@FWc^Er!n_6~`s=-g~wd9yhu z2A$BykK;1r3Z*e-M+=e_h(J9}q>^+juj!IB;EW6XnslH3>1&$76S9 zNixi1@1-wC&<3R!?A{Ok2Y8$~l}xAf*RCWNaCFV7vib7DFW6(d=JgC8;=Fd+{sZn>dK)7W>gv1XuvN!UqER*@f~RKG+hvyqmCa0zi>QA z#u|mBJ01$9-e|d(y8*qLV)@_!PzM|<)HU~Bv<%x- zDQn+gSQ|?OR>lHhqOh}pL8l2*_(k0{yc80Ld$86kEC@XK@NcHLl zN^vFGGI4~^2_gnKRXHtKV%xn=k-nVi{wiYjQKm5ErV zP;TRy!z#ngqlH;!%sDQVlLDG_TkyuM+-@a&Uw*ghSklj5WP4LOYnyO{@HgvGe|I0d z`7m6%|JZ%|u#TPfiIwSrdtd9D|3c#HQmZ$Gmhp8@eDsJO=Gr0V{N!WdUy`$QDkAc< z?MJ=ftBT;YuP%G&?Ckb%+R=nIo_d4KrwyTdP4c=12WbuNwY81#3iLO+`=0q)C(3g7 z_Tw*Z<^D?Cdck*Iw#VyW9X|`F#4%Y%=kj8_zFeB~`&Kw=h{nnW>!I9ps*|>v);SH6 z#iC9b2Vre(WoU!NTheEfEu- z<|(wrwh-=qfMBd$Th~s9X1NaQsox?tQR}sRvwa2qSUChev5ZWVhlX}sb#SMa*bV0& z_?2?XV&{$nLyhK?kus1Y0oE6jb#-hav>3!osU`NQMBuF~q7He!*VK1>?ePeY!vY`t-{84pk_xyWE-59$infkOIVWn5diX71;j;mfx&Pj*y2LIh@>vvGuE{e&J1 zv{u2s=)JY}sr0f+nk!+7yx&1Ah)j=Hr_D;dqcT)9yU?nhAXUnatKSs|*E zfjHryhi2fn(ul2BkSEH+{qDt8UA@~4cr9ODl3u#PE0P=!+GO5NrD`%kh!antK$vdk z7SxoAfNOh_ArpB;V6r;}F=LY5;a%%3mlSvPh{QCY9?+e7X=RjLX&fQ3pjGkd;GQp)2&ey2|;=GY;%xJhE zN}(QzBqfdP2{Z`2fELH-SbOIhh73*18ZTzxLngigJ;H7yC(GT^7sSfKog?@wNKreCcfCUu`vPn(m&aLbWLCJVIdmyw3 zGH>F3J)nie-8nvz+x{q zoRcHe(DGF+tokbD95j`s5Rdw zglLuQ2cIs!RH=>-$OIE~4W%HTshS+D2YJ5X^-v2FyZ}=@^vQOjy1*QtClBY1Sw@B- zJqsDweq>Ufay^H)%-QtQ&JEvz3bHDujnT{owy%F&_Bx>v&&y#k0yH4Rh?@au^((yR>$+HFF^$gQR2CyS?p*T9W1x{kQpz z{RNwQMwN$XMO#a=U}bwQB;EgSdDO4=f|2uSM+qi7LSkFaojoyjb^gZo_@COF>eVMM z{+09$MRGE(z}s974%*z&0Y*ckQ!I{Ayl)g9?H*PHgV&aAGBNGa@vkb@6S0+2!DD7K zTVwVtV`-pE-NWBZq~$j+e``hha{gfF1dI6K%lroVl$eC(?j7+FL(uhsaLv-^jItMJ zG{mV-wq1k8P$HX7pZWrQZZ-bw-4s%Z`10~&Q=(7srG`rBJX=Ml|A~h`bw|EGGDNx@ zML7uuqi@1Sca{}Z{nz+hgO$PRFw~cGWT15n*m5}z_{TM?g*Ym;sI{>0G~PXs4`f{n zNnq4zyq1i-_i9r$WtBDT67ox^-8T>3QmTGLA&bE;MD=BUO*_S_9KYZzE7anMM#^I5_1IN)ARbov& zVSGN=b;A9k_wY~tte6GT0Nmo0-vI9s7>|lxyMA70E5zGph_FFxCM4=d4xoCd zHAgVIH8bwjb}7a5{=Ex#-sAO<3nbW;h2VY3Aum^zf82GzLT7yo{!Zz42z&T{%Y#vc z2IVzKrSbK7(cuXf(|SXMOX$#$SkKVlFuZC5hEfy4Z9H`1U)zm3`efF6lJt34Rjx?1r@eixL{gaauqDkJ#kp|Q1P!v1vXy5jQ<}{h9DyZa zw*rl}92y+$Pp+$y$LRwWV|hANv5~}dO8$L+#+8J1!%0nDS47+cH#`sezkjpIJJ%(> zyo~F-`8#!RG2w~h!sRc~w|EQaDFRVCSMY>LSN7C5KRJvy(sHI+KwgK$c`3eK-lt-o zxjXx2ml&WP(_Qoo)ls%Fgu%NryRPgz4dUjus+`X6nmo7~b^~4ITUl(kU)0K<9ixi` zN)RK6czL941GV7fu=YBl3y#xiq3Elbyvj%Oc9Y z1D)B!H$DVM&X~pxzb8}88|ax}?H-$LTRB!Pj^cuf`-5h;Bxz%{{vJtNt;qpe&Wc=G zt4zpC*qwm5pim1wY`;G%@>WP|uk6t3Z2Of2t@;J>SE^lJF|Yi>Xh`SyNxV z6Ws>YjyjTUX9da-paWCSnC*!Uwhaey2*SkW^5087*uFL`xIsQ&9A9vIY$Q@HX8^D? zn822Yb}=Q}rn>r;$4qFdVd_m@!WsWxoYhze>WAVIw$3IN8eOU$K09dZSa(Ig0++sM z5x&o`{@s-|wj2;!uJKpvD1KX|S#1BZy%s9e)^|M7oCVwpNbszn@YTXs0J_nM$=(f- z-aKmM1<9pQ60?p_|!0uCB5R}lqQ=JPv z-bZJDKIWSa$soFXR1VRb&eg|pX78`b1293Ml91r0|q(_fghVzq=2Ygca zSy^&+j}J#B58JsYfd~m%i>IbE-`CHdt`~F`K=bSv^#l&;ctK==#2qPYmk*fJV!<-y z@c0{3@ndtE-nUX|JTxZr7bqj*2Oe!H9HJ|^2gM3C!o{!}uh)S}_XKLA(om4ef-gN@ zw#nP8`a} z-yiGPM(zx3>FvEWSi{WaWZ+k$2arM?L(5}@AZx|M8cp8t5SbRaSNy^f{ahGoKrz$h z9vtHk+D~Uc6m@ns2*<-6N=kbF9baC-l$4yft+W18b1abMB`=s;qThyh^T7WxvF|@( zXy&7aYvK|*$L{EE9J?D?mF?=178$-7HBJGw_1O;0sxGT1 zBf-VAEtfx9Swhp})F7wioafmme}8jz_)?$#sbk6UH`l*4o*#*%HXNW9H_ka{uQC1Z z;5rtH*VPWhmOv--1_s-?`B{f-c#h)>V>2{I_}DEi*@&c)F!yzY>G3*ntztu8+cyoj zdRV2Wp*Xa+LUb*y^k9*L1E;=y(AwG(mE3n*aRW8Fv%PO&;3#fPSIWR`1l@XD^AYx0G2GH=xGp| zydLm^g7${!pkZi)j{R31%RnSMZ}gW7Wx*f)tVgaGXA>;1=%y^xBsfYn9qV(~U9J6D zUyFHHw9$COYim8!(E<*+novZ~0kK(qGhXo&K*hz0n`7kGjL$gZ92$E%m8* zj7k%K4Y#Ix2Y>tL+lYdC(N@cFBlHlURBwcH?Z+dE|Eo4SP}?{C(ayonj(pHE_`Y?y zSlYuE3bU&TdfJEWEhNrj&G_E29y_unhFEM45K^$62wOO!%;U#f`%P>AJde7ykF#m; zW_VTJqYT=TGJ}U+A|yxv?$}m5)T&F$RM=8MAlUE+n+^y=iH$}%>k zQnW7nlAITZ{?KQxk>mAJNF}GeyX)XIV(a9SeIN)E&P<)GJliZO>JjaZi-_Q4hb+|9 z^%+L~%37F1z2|YVYoWy_K4_7}$oo;J8=Ci0(W zk*!iybb*#dY{tn(K4SJH3O{FF8<`M{d}$V_n_cxFU!yp?P}q&MbiL6-!4?YSHft7RwTr-EeBM%RU@&q2*f4KYFn0=wB$ zfUZFtON0irCbu<9^j&?@A}CZN1)~3g^gNy>y6}evB8&(HpVQDGHDbA5rR@}GcFQ4V z%+w7WZ3z!TYV_vo!#~#h|m-i^F zVlef0KtE7MVzDQNj5ewCdmJi47Ko$mwIv>?_6_wPf=u*J|DD!HAAaV_gs8;5b zW?svs(&V#?`>ZXxYm3+q;n%TQ1Wyr*{EU#noZJGl-sS0v8h`Mi@v=MEZsvoUyWh&# z_#dv^|7sy=(=Q`^LE>@eHfqv6_nOo0=*p4|ylxNk!a;sa<`{>pJe?J%cp97*i^6+0 zu2e~T%Y%LHeh)((ehhm6^Loz-ei4fglT_^2Kb0uhwwkCcxn{IBa&{%A3Yf^i%^}JP zx`dTNql&vU1C7%c>SeN(bZyk_SCtHAYus3SGnEjVAns`<=b!^huT*?nW$kS0vjIMu z0<#GYPH=`o^5*T=A8)$n-c?mHay{isN%wti99JK6bD!@AU*zwc5_x0Do+y(5=kMOG zGA$~J|GJ5=^*#$BO1v3E{n>TZUnTPAIkBxDAKD#gbV$bB{C*vZG|x^Yj$oycH75?; z1ZRpu-D8QLC#`K0fB}TTF;c}eM|?iMF#W_ZGy}|rp7?TXE=FIZ#tu=SRvm&raSF2l=fKRLkLG zGutPq>Z7PR3wWWmS0t4b+w)<_H#Wrtw)6de_71IfSY4yP-;`n)xSsnUcKTd+)869B zHU8FA6VG3E>ZEw=8uFk9`B5#hu!D>*!4L1;yWx2tr!lCLu=87o?S=<~41)s7pTU+3!%EObJ5NU(8M1p+ z{OvcLhhthM>qs-GcQ=PRyps=*4}w&>q^1uuH`duYTu6Rp%nfc_@8}wSWse?V@?mj% zcYTgHumyPmi^akcXg5{wEOOT=iF=cks}?&FAl3TQy1??TqjGE+B&^AK>J) zT81ywItyDGPuprE*o*vBc}ZRbOULv+*X1EZX){B zS&+&+&xpRM*~S27;(Q-v+(7tC&SHOf;hDC{dxtN1r%JdE8!e;P+s$frjaf{6MCC6DN- znlC?7`DX^;z|9*)$PWGpt*1r^uAMC}mbR*Fe=z)Ndda=LtVT7-rqeo=P)i@zOvxMN zr|-KI{icA=%!T4+>7bty6Ny?i5P*CPg6vm=6uB3lYIL+cmQjPY^d(hllqe61k!G{D z(X|2qhX~Fhs+MiE8orz0k*9S8+q2v$G{`OodAY5m*Kfw*bJ0Mstq9 z2OK-aU1Sj*>%=b8%B}kq`)qMiIWClJtFg=bi?d6s#`r5_0b-(de)&@BqLHS6p=Hm8 zz85|t{Aoelc&nX89Z*2Ls#P5~gV7LV|8rFKppc8@VY2uEE8Xc4p-`G3PdFKn`^rr_ zK{tG}t;-f$P4mgo*0E@GnyN6Lo?mF*wp<<|;DyisYMeU#{E!)#574pkJXu!Mgji~% zma7Fk%~>rk0lSr*L!fDtz?~-qx$)T9U^l1IQ>k5J@0_`NE~@y%#q|)NecM8d zzgdhyolvuEOb9i#FD|+|kAUIjGvK3M0XqTGDwxSy<9Au^6+hdz<6+{n9jykson+r) z8h#5dNsvJ4Y=Bhh&Dni9MD?PHEH8lAtQJ6o-Ksmn&P$dqh-(}?zU7uzZ;cS6+s42g z0sLuFxZS>01d83WL#uUx%k5Y-^)iL?%-ICvji;=mtQ#k6CDk)SI$vaESN1ZaiwS97 zEKXuoXluxf8w1!z&}6Ieu$$!1rgDU5GCgTMoxwc7-dr}?I#)qxz{yFku+ zj{F{=Gp>RsVOTx1x>Uz-^DgfpJpiP%wsggG-)51k(9L9GgUIWP z;SI>4)iBRD)neU)fHZw$b4okN?{vR|%wPeefW$XSI5^|UzzbWtIp_&wd767@d|*G{ zn+E$Qu<$Ub*z5OzQSJIAy^O=Bb+Y#UVzb)49J`rgumzKz*In0ENacy?y1jOXkGd3f zxHSj;bw6O>XnMOP;9~A9-|N&L3ELfH9K8i7xLe z{p}lA5^ImAVox46(18)flj-LdaN(Po`~)oanl3V96tjwrNpoD}kjKMoXhUSqg{BSB zCQ(+0j1ewKb!a5#M4737Pa}vsoe;0+9;%KFh5xe8@0W8Smk+)V@`!afR6&V)>v$^1 zrt-d1a`t)me786AE!D1(4S}apf;PP!A2MJPm%7?!X@jtU=wGH?z4IZuCQtK=7A#PI z+qW4XURdQ?nrl?N@48X@pjxaSdbXInu^KJ!3>s)WYiMoloiSU&DgsA+;Y;S}sH+LQ-ElBkAP_tU~b?8IYD7!OL4)J3kEH&1T97-eSrIbvOVkaa< zOkGTjCsFEuB*81EYaDJukx=$_vJblq0@!Q!z7-X^GNzFgc{QfXBzq4n(wFb`MdQg-i zTqbav~q?dlG-{ZF?LLE6yJiE2TfNdz2DY?^A6{?P+=A7 zbF=$p!L+&A%q0P%iy+S$PKh+&^BiUy zd`ud#(@zTgV(=xR;^?-s?vhH_-6%j4=%))9PqIy#EVjV$zolln56p6mWo5w%k~I;* zdW>faWGT~kJn=p1HEIKBeVpQ-A5bafU(_A23%{K!SA(?@%bRPH35S}i&$a+;2)Lg( zK@1X1ea@$M_6QbP(mtPTzLHN2R}8@Qav=Hk9hF!K zM4Q!%t*3^{R%$mpjF8SS;x zyg7+1&PfkGPQy)uZ2~?^H zIZZ_Ms1-`_*esNQ7@j}XHY#&q-vS^%RFa{2^xG+@fTu4_Repno3 zg?04Ok`GcnW7D%cJyY?igD$tVI@sxcxuUniE?InJEvJ^jjst}|2?@94Q#4UqDu)5` zJZ|=v^8mYXc8BJmFpdyqyrv?S$BnE_A@?Fg0?pjLv;O{` zQEs=HazeUPpB^PGHZV{((hB)OJs`_;H&e&xVT@7ds7p1Rw>}P891MxqEaa2x3-j>J zB%BpXjhXD}p<~y6WBFJ^gHf2ewfg3cf@^L}U60MzCJ*5p=dFn;H6zxKFZ`z%85kUZ zHUr4czF4dO0?Qp(W|^rZz=fg5&G% zwFI6`^4DY{uxkX9lMrc#cyS+Yjvx%;u ztKLSXg!kRM@7C8XPIC@!-2yCU=k>g|>^8GDwB7Bqy_E-Yx@*Hp445Qd&n}esI3>cY z)?qlGqQNUdt(U<=t9=>e&ogFbvaXmSTp^&uwCsXbfy+MJ-v$|E*M`UM|EM?IdE)$E znPa=0RBh7FLE4COe04;e33_;4>uk~mosoYPt+5@@8B|}bvATM-S#p4h&BmwKM+gQw zhIOv$$G^UYiB%6859&QvPuW+(p6l-!V?9_TDYLI@)?3O_sY1m5vSu$TSX#3sMjjgUlB5A?0O$wiV!psd2*;vf}mKz{` zuF%lCcq07EF9AvtbXXtERj&%HnVKnnxOVoY%kwJRZ`N}FIo&Tlb!sb(?U? z2=ciC>Sur3>JZ4PkuFjd0l^@;2#t@=D7mz@`R)lb#}gyI&VQ1hVB zzm1rvXk4KBHF@!^;H-AI+Vs8EpLCBE>3w?AT`p z<~r%%$OVn&tGHdMS83P3AsxmJ95|BCkn=eV7de|x9GAu}d7z|#HLBDe<#LpHC?Mq~ z1;YHhbXg3A(%mx$XE78? zAKn0aLrk22B$(``*mS|v9Nf&nik<8XBR9yZE*4$BgShu|Lg@A@ z&MtJyOD9>|5(<1pZu$tI?nw2D%y`DLPx$ha=V=1f;Hh_hFHO$NvNvmzMbw^1#5w*W{L&e1=mW>v(1oiOFN3(FFI?>kjH zeG@y1ZJAKoHc6M$>>4MKR6p$)vzE>YjHrG-1}WMW^MQfomx)l&9U9anp>R5DeCBQ{ z7P`k$Zlj`3qed6>e+iu6F;e$SdCvnx_#L1 zi?fS{av+Pg#`ZR{&!N-|4u_fBTr-uvtBWi>H`UCQ00tI1|G0Qs;+IP%(Usb0r=p6M z!mbe#wK?EiqBKV^SoCZq=n3|{7rM+Ntup5`;aC|$OpblHZ%;bbcKz55n5R(~&K$<+ znZ^8u?-*V3o8`a&13vXXePLY0){UVD5Xbd2n_=8W9UDd)R>4qZk{TOkRb(&rc^J-d z-&hTtez>Li?x1G3WgScREWQP?f&8IBL*0bTGS7@QDk-+UuD8->2U@9Y+Re^qb*)Tn z|KH)i-AL0=@LJsn<`pNnz4FraW@+Aci8f0*b!+V#hbc1KrF;EU3R``x+pLH0g$aDK zpvc;u6^`(5u8$QsmW+D*r^earyAlxI3|S3Z(FN+r%SD)E7qTY~;Zm*l+B*l%yUR2% z{Ug7VWuikk=dN_l`Vh8P7^37d9OtfltsIx^<^uxLb_(>Y%R54?j(;G;v|?gQyXjf~ z>3sKVGP<6$yHaCXd)4@El^piL_Q&0KjWqp(Tq=xjWcRmM;eMjxs2zV!1zo~nwvpSt z)mYm2OZ_nIxP?i!f&S9(om)*O5Cc%PyAQMG$M(05jpIkR*Hv@g-zs%%Io@DVP;$bU zipbd>Fy8EqiMeCV6$iCLO<0uYd}P$a3uWfFw>Tg!|JKTw5_03c_tx>%EVgx=adMdA zH7!=_KXC}Y%`eu_8_>{$ZK@MjmfP~P@!&r{r2~Oalu)=Jnln?s(}W$9!nJ=L$mS}~ zaplqn;?(@010TjHJQWar9;ur=PgmQ9BU_VA-wz27 zk0xbmK^VrjnC9(D0YT%g6ug(`lb8Y==#iKrjqLM9`nTIU|jw>^unRrA!b z_(Aij)8H+V<}YeSj>u6HTeX)4`fdf*FW0x$l^Ps6{K{oaO|^bx|8xBcIE?M*8Pi&{ zs=~6loHyHhDf(#II?aM{boFXAE98EyK&=xddyx0^l94YF+ab~5k!R87x(mnvBTA^2 zzfGdsFHW&__)&C4gD%OApr`MQg7^)`g55q12N0ER!RDoc(%(BHOkDArK0ZEKmXf>l z40cA%FhMX!s*7eZb)1gg^4yNh*>C*v`f4@)Yqc+fwx$|rtaR1}TWrpNBOc z%=#qkc7VgtY3SvDck!xWk*UG#-2)EK|0%N;KSu?8erTL?aj=XrXd8MZBi|_cjf167 zA3Yjv;`f2=nF3v-M%cuO9(r#HV~#o3=g=&WrIIH{&xY$wX}~9a4zWZ?ZA{*k8@nipD({4N`h zt`+9D(S&1yEC$sfenOs?O@~f*jzAHcf17qTj6daHRHL+q%GikrD6q=FKiT-iyREIR z#vcb8ScHc~*(QgK<7ENgiuTeS^5$AcNJ^)X647TM8;duq#a7 zlugW%2BkI;*-JOP^L)I*{L-6mH@|ZO6JcFM<+5s*`x?Ttdqm)0W|%K0^5Q5d&+guB zgB^>ky_!PFwXBbsqvw|!NN$H52%3U|*P|p+RHp>UL0$hoB3C{Qmv)xJQ%A@Mv7+Ig zQDP@bDvqG0WAH@C$!hN-_GKy^meUD2-)xl?rU3_3bUEma;V6k9aS$A0D*AyapH1wt zOo#>Ld`}shCy+4#@h5SSAuS$_YT^R9t&1CA(7+(z^j8arJOU9;T~ylbwapArz6yLV z+-1sLt9au~ge`INrGivBe4(2=B^zi;gJIrV7aEAi0vq&z3=jnqyeXQhD_2FzmouWr zUT*)o(@nXJ$PPP4qgIKP=Xz1Ac>*tOFeZkvf6@X==vXosoPo{*rJO(k>EIS>iWb3+ zWycaH!*~QLoH;K^7=IyN+bvWwuvKy%Ai{;`n#Jxu9#|~t0gF6t+N-6PGt#g7R|b;G z-0mJB55^Uy(|8KOw{r?H=!L?d9tA_`yaSux3fHeMvEPK8_S93WSO6|Eb` zX~n16wT%Zw1>wm2rJBOt&aSSa?i+;*99amP*Q>y$eMNYOU{5g=n6y`a%cqulGQiU0 z5{Ju8q$$#!ds@z~2w~GAt;PpdkK>%;{o0)x29YG=p*0=j!JCVW($j1QqeUEcS6EC} zMsZGM-nORHMj>tK#`Huw8#8t8prM{zS zvBDJXS zG`mU2iXte?9Yn4Sn4#$s;RfS}A(Cu(gYi?3&6hCYCP6XMpJJ)I?PB4S^F1?~YNT0V zR8ms9c>K;iKNG9xOk5CM7XlCFZE~P^I4<<^54eKGf!zytN!p6>cxb5X4L62oC@iqe z7gqa@W|H9m_}D!w*q@twQZng~6C*=x(L> z`LwQO;#N|oAU8nqlAmuzE##>-1LfBLR^xr?7oZaO)?P>GEnU}L4eh1PB+c1TF(o$W z;OE5u*4dRuZ>`^q^4qwRnEUo?-5z7!8fS;vv!K^0qhQH8k{4W_5tlKbaXR%#GBVRV z;NZ58DSWy?3d`RB`pZK7JT||5Ie+Bf!ENU`bb0B}*9WWKSjKX<8yGA{{$ryNcZuF` zAZzjB{@D9gLMa$qzwAHOB*=!$KJGrtvG2D{Hu=^g|DBXsU7c7>R9pDK)acI`@%{Ac zA8!nxf~VS`!p=WQiss@Q7nuo76MEc30e@7RxDpJW*hDI?iS{t@^8^N2GQlr&-e5Cj zG~z0;`^6hCC2ycWf}zWE>|%aLXLR(W1K+Fo$Kx5 zwrXoDi6%n!IYHn{XPJ;I6jp5Bo*i%isJ?8v@xwMlD4$n@99qhzMj(=ka)XgGD6Y_v1fKRO^*SFHBCO z;N-A*POCcimtr~OMuOmr2}V5(q7=wgbb`J!YfPaHujh07+-?VTR`c1ztY%Qx zvZ{=ETQ6MuwsG+WZ$}%7t7**{wQN@}w~^!JIxg&zR-#Z-CW_?H9^RhvS-;g`;I<$nR)+d;ME$(HP3$_p?`CoIeRtPK?T|? zm2MT;oq+^FSI|&Pon)baqO)cu=6Hh=K@;c4g%@AF<@rHm3~_rf3o1mWXH5zfH~FtW}aa|3->&6!Y}KeP%o_Z#S{ zL(>)+{eMcTiK2u3Q>V<$V1JzPo{95xp#_a)A=6AEGzZ4?3NpTACWSPdA9SeSz_iP) z$o&#Iv*oqJbMMk?em;hlBwM>NEa)M2i3IM{d51blzvv*5KinefN}W>f86)Je<%FCd ziMiQWI)4wp?0Oyi(tqqWE*_ux=#Z;-kr@Cvr2$_z6`9?e;XkSR zX0k*H%*CbqsLQ~E5S0m-kL-&LAB*s#vcyeo>DmbisMxTMwv16cY{VhHf{q`{sSVMq zXd?CP3NJ|CZq#=Ul1A&sbMARq7{2^1Ni%TDm|iHh&jQ^d#f1xxE#4^L0`G?N}?LelEMl$ugQNYIU9kv8E}yE#U( ze4o4|JCqGddxA%$!Bc^zny#Xak5ijO^yg#F{t}hFt}z_TFLcaeD_h>;-r9I7?$S|Rjn;&Zu%R%umvQ-m!GT+pxW5l;-Fk2 z@B>nD_7YD;U+e>g;Q0@E`ZfcEj}_Os4mHjaA;84LkWT=Y(m?RMCHdMOgSE=R!?qxx zj%u0n1hru99N)#xvFxr-Kh0F|iCMR?*l*XT4=p^>R@E?6gK({%k4ujVT)#;Aj>-SP zjpk(Unw<+MsAxSM5#O*i1H8E^5fN;zgOJ5Bv{1&Q4F;<$<%;ws8OS@a%|o@ZrumQS zf>7r+fZZjl70;{Q_Vt77qlt)iB}J2~R0H;|C47}><|LRRe!E+cM-*Wmg(@DotNN#T zDmj*QTBxe!f~9UcV`)jIl5?9?Ls8RkCht*-{n(`3)yGnH#fVTc1%}yoj+lB`k zcS7~pCsQS(MJ3}BMcK6bLt^C#BdoLvD+}9z<bdIE@H13#x~b4|JJ(8^@h0-!%+uiQ z1T^MD`7vZrWFoB6Vuqo<%EQs<*m$Ek&KuWc5`UDNt{XEdF7@wP7*8eAmpYi!)f0me zhf;*lT-KEcxJ!SbfLs3R?g}Rn&BKEqS*|MitJA|3I@*58lLhxWJb{ zyP11fuhM~|bGOm7C|$qP;WyfteD$&PbSH&>ytcA_imdv$WTp`EgxNxP**~+~5s-J| zg6rA!N2>UqI1P2A`;mp#vZ2CGib-5c@Yua%tA!0Q)i^Q|-wP8JjE4fuGlzC)7|#SE zp)Sp8=tR-&SHPE50lb_A_O8Z>;+2-wE1^7Bvr%8m(zak#) ziWpB_>do0}$)9d*@1KY}bk6s}Qx~Xc8&HR;@)EbNk#==exIER$bNuIUyz{}v#sTI7 zmbhlz!rb^l9bxMIkQz0A&8VXmU#1amYE0~S;(~5Q7k5r%hQ?G%U<4*SF8$}R*W z(WAG{S7%5@-aAm|)-yu>mlO3s$13H9GWKx^OLW@)&;8OD=pSOW@m}o$Qj9m0gqMVQ zbQz>jZR-YHB983ssEB_ih{FXCD~=7>Ge3H7HJ)Eni)PcazkeUDxvEd5B>Qr zcFo9y{jk$LG>6hS>i=NCw~axKqxRbf34q5*ikkNvpU5QGMUkLOKM8Cd1dIv_!*ow#78;r%gST2D_;%;j=F3&nzl#CP-C_=Dwdxp4n0AYNBa zy_b?m#akSGvR5n#N@7O+9Eh$|F)*NLJ&a)|5J9*cYX-<8%G=k<;O7TuLTOljCGa!% z_cJdru^Dx}|5wQoKa(>q0|T`-d;}kHtW3P~;unvklE1C5{BK=I)=@J=g z-7=AhWNO?hbX4PygsS^O*MVkj(y!;CAF52790-j_HpqYvIwp2%DI>lkdmgG$zB}W| z7E|~3rMK#nA6|TxOt6B=<8YsCHW8A2-Vo4aJv@>rpmZ{tl;manJq&X+)G_WD9F}!= z7edoCa_7l_s=o_gZcMf|+5LXT#vbuzr|)n`%UJ&*;TR{7u=V@{W=jZW?{y|(_u!P; z7XwK_iV^cvI3J3xSpmztn08sg8^e!6tE`V+`jeGHEuAoImK`M{wqYDU7 zv>dv=-&tHo>7=)}uHjU&@t7vM_P%W4ORrP8bZzRk#@l-O5!f(4ee@DC<4aC(;m69H zL$81N1%;cAa6KF#Dhm4nu5(~?vw!LDtct5tsj`JN!N5YRENqr({8)@2=7zM9uEY~K z>(N=p?@Qdg3_?daP z;N4a)-u(9CuAdEf_h;?-#|R-53H?BLmx?#nS!+>G&68Bc zMM$Y4861d9;Yu-BDW@%(@*oJ~E?yX5M;$Rq$m8Lz zCyF^Nl`KTa7dF@Cv`##`Jv5t9AYju$gC`)+V4mq5g~0@%P@YF?(^EuTchsIM8VM!> z?)AQ(u06Pa!HV8=txaEgsGXroC%_~K8r%g*S~u^wh#^J?qKKeJfh`pCq|qv|VqdOY zg((KK(qFNT`e0baqwPRR*{K+IEL0vxS2BgEyhXsX-x821N-9F}Qspx>rz0@^Ftv3a z1y4=dx67jJ*`ZeQsi+s*ZzK=5lA8@dLTVzNiv`Oze*kRL=feoB7)bVXKb*7Q3CU8b z_Kkfji5ozi;H0W1WYtpV?%v(s*@cme$db-srOsXgVjX_6x+)pl#=r zf7cNtMqmAjl%<}WqVHbVF-8|x%3*{w^S$2IDw6Z;Z{kzCPu%26pFo-u_>wK=s4CN= zV#Ppy|H*>9v13~GNP9ABJvdg7@uA_qUG|U%lIkeD)aiLonsL*xBkp>T%gyc{b_*ef zy3{jW`Bnj7+=L8uias^*wgHC8dW18u>};WOdsiM$0kMd<`zB<>p6X-2x3^yZcy065 z1c*^e$~@-5Y|AFUbI2wVCR6!7Nsx!+-c{72cYhl##t3vyYRh9)LMX&r{9Z-`xy^gC z*u;kin)}|aWre{N6CJ+>M$baM@mk~uy)8DrzmhJkq*^09Hu=u%KtrY1rEq3g-6ULY zx}1+4Jd{#H;iE*+cD(Fq>fLU!^3lR_NzuW>K?8nBX5HwC4pJiXXjPcoyisIptGQD% zGO2-MmM)K;a+^Ru4%ekDl5{fltfA${Z4@fINbvdLsB;hj^F0bXZVV!FjJLXd3_Fzi zd8N->C_LX8<+BJum;GZ)jCFYniWs~{FS6xpX@@4 zmW;HoFWM(R6s5Or6qhi4$D`u#$*q-7VOx*WSa~Z328K0=mq|w={#w1p<)Fh3U0nIE z)q;upZc2A*{92g2z49$9hNHzBL>~DDk!yCYvF%VG^aQWxm?Z2%yWe}HSAEqDN|#OI z?z{N0p6-WxU&N5T;Kd&vMp~!Z1=Oe$!4%}!yQ>D{^WrtGqX$o~-qPZ_?vj_yUi?(n zrS~KAhRfW7{@8V5q z_iMJrurn7w)LIa0#Z2)mB0K!tBn~_K3H?*zd#r>HF_1%SXq_ zo&zU~&X&Bb37l{Y_~uL3%?1%l=c{|4dU2U`Z$=TUm7PKdx&S|0V09(1uzt;mjfvG$ z1ILh(9Wxnw>$UDzA|>|frY;w~q(CJgtNXZ9ls?aQ#7B`$*RfD2vqJ!h5HhP4pIxHAUgqdS**#|kmuriTBd8{OW|wrdlv7wDOhrZ&vtVQH46vw z2EB`k;i`*gAj7`QyWto0P*?f$_=;j%uU|Y#{STHH^SG<$I;XNKu@HmX0|Sur7$yCv zFu;;yn7aM6@CDPHdwW2b(soW#f%nqvG_uVX`OWxoo-s;)4Y1}3r#qOb%h*Yf*aqhF zhow@*XJ9Opi|RkO;ZQ6dD|=4b-u|4PF~!wpr!MeRiu1AGe2L2LZj@Z5|6U#kXdvbW zuYI^_Si<182zs(l-6i9JoICFUcr9{e9#O&o<3#`^U|zU`mmtvT67mvVcAr<<3t1ca+UZEJJ`% zRRH;y<0vqgzha?f5cxz{A*3MdBz(&J6m4#x)rp%FM(w+byGl%sk8Bis8&1F>OLy(x zuWU?VeVhR03;?=IK0d!}z)+2)r-J@24mXu1PppM&-Y}jj5iV4TDn^(x0;gL4X&aXt z!eL7KiQLNq>1{hjx3X_0c=gk@iTJ3uGuTTH0K6-{rP$%&wrZUK|AvZxZPt`dtZ+ zo0*Jv&MKC&s5Yg#ySqByk zZe}|6ngdVGBf~u#&C*<`_YbBQhD%uKx;f04cMh@Pg3%?;C~*Q?*wr@{miCI6Pi+{f9nS&v zVPs||1PcxAFvE9OL=T8s%w0OhaD@Tp#W?-qjr5cvGQ8aHJM?5fw8FqWEeTC#VK}DN z;;uxv_%sQ_70B{R6Rjb-La#dZnAPCg$H%IQSjIy;wBWi~IJ8SDf&JHi5BucG{i7G_ zYa(50Xh|8y$+9r_WlMCy96s&G<#B8kWKmj{hN*TZ(a~kVSH1~)PUt@ z-5d-dGTx9xY(uAMf-mlN|LxOCO0HBsFc^GK#T?}FHF%mGq#(C;w=v>nJVhU#Xj!6 z0pGStNKNnN-@MYwNIG)zcmuSTrX56V9-j#)+){9>ba(6aqVllmHs$u*D6Jf~OI6R4 zM@AZr+fy$8W^QBe#LFehF_9$9ljmt0maU}IP`)msb&y%xDGoLX|% z5`!l)`el5{T%0&q)@iBBkT(y5-21uNEm{ksuF;D(ZvuHs_Vum>=6Mu^yb!?9_ox=Q ziIY?16dHK=qw!~}lQuMA8_1=_P7y!rz~rp}w@gj)Rs)y94xFt>kF)*WZNdPY9_%pZFALjU#3%; z_0Jb-b_Nz5wnx@j9KB^}9g;vqecSMQYeyBDd~pzl@aV}cFQ>dUUlYQQ4Mldb)fXV& z^468LdZxc-`9=F3dNf~ZUFQ;RTmeU>HU4EbUMJK`2$p_7mbo>oHT-CM68&k7!@jrS zuga*#VqS!1kHEjrigZ-iFubX#-TxiuoGChIWj*Mne>FYEHdIR-2fRj-PH_sv}`J z3fWvwV~>9r2Bn>6Upto7eH*6f$#k}pWY)UKNN4=;z^=z2953V1=rEv%sx-N^w)GwmLj464R(I_Dc zd0N;rae!wzEI*v>RkW#t81n^Yk7hcIz7h%g%!)^`X7j7I=HKeu7`smQg{6Wh)j(6 z?N-jiAUUnQ`vwifQYHwh_3+N=&H8@DVT2omC4I4SX0WqvS!#{^W)qr`4QK@A(k>xI z4nd6I+m6c>raTY=u#ksB?W_fWDHkfAVx|YgJ!O%9AUFD*1>eu-(uM5I2e8_SVROWj z(;)Rq25ZqY1ITHBH}7FK2$*v`8Md1d`0~mUJuVlH$-qLN8dy;DVXPv!DuW}V4n&|T zvjAW&^ojS@-r?D8Yfi0~)b@QnC=BOx!aD&a00LJaOQlSyrmBDxPEfwCPj>!GCELb( zKeKZH{ITWTjlrK!d~!e4eH-O-Ya9*J^UUHT+@<#9_WEk)u1*G^6J)~sLqs|@?}VM0 zh=ub|E;#*!TkKQ(*IA;ZZ>zx(CYN$(3j$!uVJ?{iT9{VvNtPrvlq~C$CEf2h{ z7Sk0VPli=0i4gxAz92$%(tlPk@rmzAzJqI{O{kYNMP&NfY`)r!J(TG|%|pR3)ewH; zBsI-h_&Bi#T0}W>Tm?!9=H6CM0$TdJ*Xitoves*$d0-DK%;7=Y=a|BLO)|8QT7CHa zC)fe$*bi8_5VJ}R|I(MABuX2x5E>TgcHhO)hz zD2kfgset^0WS454ZG&3n{N39r+`&i^!b())^3+ewd>4f5rX8(N zfr?(OYHC?u;XB9i7-nwxMCt&!niVuKRJ1nIerQL*%87}Dl@(fZ9vpZ!ym19#|G~qo zgJ~Y6V>gVBD?YMP>JnK6Hjj_*Ezs#hd{Z~_9f0WW#1xVpPTeS8bL#C{=Hkc)6HI(0 zJ#iu-iqKq-@1Qn2IW_cGs2=}sE&AVoT@K3pQ<97Bu4psD7fkHyU0N5J6L^Ylj5nrf zc;(Ii=g|3BfmrJrgT$BpE1-zE7$(>j^Pht0Rtm+5QrwAof1KKWV%t9qw%etp= zA!?T9rxr<0tNJ$?fEVd;6gV_ME_4Q2w2ISevOcf54)2-!~7;ww(_-T3W|f zdutgNl%iY8L#?JzbZ{^7;Pj(Lizp&Zd44T=wF~=<^;7S-zc0mZIbXlJ9L*o>2cuz5 zldJ*nNoH=w`vu+A{RRflD)W@&T1CIC{M{a;mB4mVd_YN7Er9!0(#Ltcxa%rEsYiSUZkQ&DOl6J@1+}hk<%|P#$GYxGF(8kV|Qi%&z zU(^CJL)SRyC0qYm_$&kAV(p9Fz4?KbZ*f5ta`CyrnZMM$o*{}&HbuT7HwONqr%1?) z=kuuSKn*v|q|BPVhypa?N5qdSf-%nv znuvFo>WY6{BiXd^V2~Ymg6gl?yiVsX`S*i{h|-y2oUrsGNU6|`jNnhT;2ImWa#CsVhG*nruG+mB8y#M0T(SyEGE=6lzl-)b12K^|bQ4zcMk6bN#UHzz}9>Ot~ z2`z)+5{q#(ga}_Zf0D1OZd~h+aX9_YRGG82vxBZt7TmO%h@~A>1bicRfvuftIgwG= zeD|Hd<`j7V=JBoU3V%hL!=f4aat5upcN3AA9*6Vsuu$VS*AgYSCxTZX2pu9)82OH^ z?r7dB-NzXhm%`z=j|#_qZp?uChRC;uW>%y>Jk!V1K?PM>|a% zoybaRUfwD1Y!ylxBaJ9l(&(o;`|Jnlf<03{C1ZArxJ}ZF(TFNhLKcOA$VHAf$bwSJKX40C5{< zVf|F@>F?X2VN)>@eRtO{#ZBhGII8JJ6tzNenK~7M? zTPeA4fU2tO0$3(5Y@3h(Rmib&pkRBPV03kM6-}fs^-SH+hy+DP=0^Uy0yJZ7CWwM!4gIao)o2l2_=$Y7~{qBxy~s#?qtjrXh5^Zn3|dTg>FOboN9ar)3R5`cHX7?j!QBAP*71fwJ>Ik z**6gv(|seoO&7(DlO=4S>nD~qr2?w_)5X8mo`dOrQm(RxH|6%BBKpIH$PV98H$4|W z{bQ|{)J)J1hW742m!us`GYPit!2MJN(K*9!T<*KHw%@3yc2io%6B7LD64jEcV@F=>?!E)F&Q?qn0q7eVUsI45 zzq)lW>zI_J`bRmVXf^V}PXonOoTP2(6UM~raGJf{V z2;l=^w9s{#=6|f}!w2|mZt%w*gt?KeSE1Xgr27uZ zuCaxktqHrGRBLzYtidpQl4czZU%a%^`TghE3m^C40$sZPAvGM!7%htA8*Vp( z26poELs5^zywPMGqpnU<<8zQcW1P1wJ98}E`DsArN^ye|K+_vPtXA8!^}}Cz*?#LK z<#U_pU`d|X`k6ZS+q$;bZ_m8E7`Jp`wVD|vvgROHdyJnzHbK8x+d}3z?J;qp4Rs3K zCl8094Bs`GZS69>{B?qZ>uAyNcwQg;o84S<~?%D${)`oI!Q1=rF?w; zP)cmv&L@oJuqgLuv8zs=Xt*)zdT{g2-(9!5p4c4u@|_P#OwpyD7a{EHVB&2`{i`>x zsi!QY@ieKLnTjOSeKmN;Gw0f$O``7FJdju$4_*{Tn|uCTrjge~lV4XX_sRw{{@MKF z^lhBsMqLu%etxqbuvi3mb^$S?Xl>SZF*IFHVa^ke5N0Okdqchy` zPFDCN-NE9W1LZ7wj!uKE^Z97)8jTl_MMhKN%^@9vyS zvJx4dJ!0c1W<~SRi{jL9$dhFbc0~QlH<8uh``zj-@@Hd0i%>94pRU1D9mt#t+?16B zGA|2qf&>~t9ZAKF3+8SXYl=$479f)k-Pu@f)PF(!otND$Z>UiTHFU_W=(X8vG?FB- z(={p@LC^l?lG9jB98YDpp*w5IOSMcz`gR}}F0};`U}WCpkONIOD!Z$Zt}71QEGOM*ac zZn{T$npIR=zROuj>;<4+iITw*%FgapwJrZ7ioI$JmRXX@5`YzW!wmRkhMXb!ZUu*x z-VqT?T!tLLztwv_FkkFie>Vf3HiLjG6R>mJl+(4awuFEsx@=5NXuJ#LM5wG4HOWF` z${rO1@PO%J2T_>^xH%7I((HRE?}(P=YC2KLf%f0V`YvUsGKe*CqX6-V&SOV;CU^Gi{sBo?hUHSrSoRY64Nt zePbln7A(OsJNq|Kbpf9K^5N?(a@tq74ZPgkDcFjsefnKl+?RJQ8oV$F$fbb_(_dUA zjrCcxmrxUv?Q|gPqN|kLb_U?)O)W8IcX7KgQVCFmxbc=Do|ZQ#M(0j9ujejGZi^x# z0Pft(5DFs>XG|1uNV_X2 zbh}j8sQ@hrQ0s-q-aklvh*+a}PRCBs)Rvm9$nK`n@YruKU%nG4noR|#^Ez+ujO(r5 zUMc8X>Q?r!i4v)}kk~`V0_CyCkVc+tk96ZdAe-rU)UUAVv~lU4xO8vG2p9}EiBFGV zO~&KeYg6cxsS}41`Q&lDJI=jxkCeUVZ})j6Rt~eqhEVf=i_WDJzwOLyEl%(j+;^L` zCtW&*v>GQr-GGFtuNUeDO<>4w9r^)UT@#}9uQ(V#&1|k2@j^p1%{UICV7Ct_Df8}Q zB1ZQTRiE>bv0z#V6})^(Dn1V&Q*ZvGhj2ZBZy|)&3_?FfO_@eEwIgOcWjtusyN-mX zz>r!`4bDZS{tTG`Uv%*LF>AOP`*1xj7W}2nEKw0W;$ElJ8n+m-KJSO zPDu!h2kBlo@9t8!6;tX{E2wE5avQaRuvsrEG)Df*v$1isIkQqP4WK&s8mXNtt6Oqs2)ZOlZ%r(B{Lrx~2#@Hv^{~wFXw4g0df6t?|@$jpxpvV3grz zrX!3`H@1kv1S>HFB4rjucPPC$MSbl!Tk8=}JWxUCd7P1vRLmTN5r<1_@$PvpaMMsz zSiex%QV)YChH1RPjkjqBK&U0OwBeMXl$_E7zSo>vxlS*>_uh-zYYd1LzW@L zFq(w(3;+8|ummfID(N_O_=Wp%bZ~LJ(&p#WXmv@&>A$8AH|?jsv%e`$*dnkKz3`y) zeBo~1`B1OgK`JF`e;>)*0`s3(*;vV#`_sMpT)ACFX=FX<%bM2GmWl`hOdm(i;sVjO z^uTBPJOpjSa&XtD$S{H1BOb>BZu3xV$g2XP+zEFZ)bZ#MKq*%Q_xA_!VmNPz%MrxM z5RjwX6@gubu5TbrQGjZu{IlhEJ1&qaUcWtbLJG%D_kePXM6?GFG+%B%+_7sz5K5YO z!{}B`9uQ&{CN;4<%ZX)0MA3RypZdB_b!U8Y_OP^W)Cnl39$4(1nn=pf7UbC2(1Q{w zh9THCjy0w!n3@rveY6mAb$-vzH!Cy%-_n0TZDo^ebb8`P+)UeIn>* zgwezL>0w@n*Trq)957%;$H!?7#{9NF&Trq4zCT8)I^1+TCjO>{_lX$U7`;T<({yKE?APL~Iu3UNS_PPQ7k=1y z1Bb2qqgJ$=p{nx9v#8wJx#^MB(At}jtk!81_yBbFZ8us>tUltbXJXgLKS@Gen!%)w z#+19y^xxKBUYOjU9QTnY$LE(-Tr0pA=hG<^fRXE|Hu!dyZhjNVItTi^Ck`m%q#JL< z0xpM6e74!TD4Kwo?xNAMq@wMp(0h*Lvg4Awqp(tVJ_YvFKw!oyOT3V`VsjO^)=6zRLoAK{x(=Ib0gXP2= zB`!>4D6yh_bX-jl82piz?Wbg$b@L4Ec)0hJ=k`aS5}tl=Run8rU#F~ejZy<3m5yPq8wf}`zXb+MX8pSpzQCX)A#LEk&Pj2_r< z4=S%$j+ya){rs47V&@}ta8w;Ds^c&kXYjErLNaZJ5$q~{y@Nk%FPOe_6E|WP%W7Jy zJoXVQ=mIpJlA&Utv)Q#e#u~PRchua}wS0?kfw)llo}EuaR)PlgNp+)V(chgDYxq8H zN^j4BoyVZIBN#bjfUq9l@dcUFmOF@H;G39WLY<+z0>j9GQFk^M{b7=UT-Q%G`ZmMO zzFvLbh6zOkJ(@p2p0!_GBo$|{`fNAoEt0}b4j!nyVp?S+AM31clTLI=g?NXgyYL>Z z4}cHe5n-3ZE%Q5j>s9njpafKzPQE}Ygj6c*#t`!IUsk_a3SmzURXuCITMu?limxYv zgTE?4#fF9*K+|8ZP0}Y*GO;1TK-BXVyWFY1{vgzp^UP@xZMr}S`oI(eje10t-oo_*Lp8ohai8YIgv~b%)qHUr{sFC(W9g{Uzf$l>WK;#aTkuDk8r9{zUQV zA|+>Xie}UtB6gd*qSGyFrU|Xo9doM8w6%SokNfcdKmY4`p67aYU3GnJ-}CnUyx*Vq z`*mP`3E#+6AvCR%)y~@DZ=3B@e$_E|vI^1V@_m*s(sxTfdYp*sbZ{HSl9$?s&nefw?~oIkK0UH! zJ;mQUke1okfwAz%6Zz}ph~952m{jMB{;BR>AHk3!(+;>G4|Rn_84J{=IZq7LPLNKB z5T;N;)n#vp?d|^L*B3w(5L7XN8qKAQX-iqUaCi%pVKc(_vhUAZxL;~4B-XSHk2i<4 zU)C^~U!04DPmNqUz= z{2H-0@#~yJ3?|v7an-Hn2f9w;mJWFT;;%GpepEyFWx1LkLWf86`qY&t`5$e zC{D8=@nCU%v5)+oTzJZj)6kDd99nv{|NW~bO-c0!9o_fk`Jw(n|%biNLN~YW=OBmcD0NC$&wATVV)#Q+gDFF47~CD zDwq50sX-siZQ#CknDv6td7_TyvLJ-QOvk0TQ|p2Bg@S_Cf}=r6q8n82F2r@jifWX$ zb_{Lx>1&A^@23NxJW;%TQ=_aL=&ow^FKMNMZfOm-Hh?Z3|8`??CzxM}eJuBW-U94V zmHlVx=E#wSxXj`kR>^XGowtLsss{Bwj z$~$#vuj89Q``nx<@A5=8PH1?Zw9_~a=5Dv=n_IswvN+w;)dX-6)zfz)t$e-1W-m0= zl|#@9X2rp1wN1Z>A@2mHRUuO;13}~uO21~GCvo9+FFwTf#b%RJRJU%>(a7}6*IKAt z%8RKSw**A4Ed346n^&cJ$G((x6kOJinyRXf8+FVRucueLJ0;N+83^B{ZgDr?ZYYB! zQ%_dU@&LkI(&Rpb_gWf4v9}=A-{WrO0w2SbhAA^2=>b6lK%l_6-5Lhn(U#aRsGqN^ z4+#ygPJO$0$jv-`{WYD#5;v`*!BYT@;j9Q%)KrtgKE;s%SY=K|TD-zAuIf7bh#nIx#Td7?b>Z zM_3vCI{I?dl;dD$&|o%}qbKTM^4sW;AC5XR4xd<=vGB460(Ak5=n|fzY3~xtWC@zH znP*vI=L;fBYBQ8CNY_<)wy$`$1 zk&qR2U*a;dC#gSi&3Eh7GupE+_(*ylgBeI0v2nboYhAwp844n;%z=JV0;5UKi)8Esj zf1r$hC)Pl-Y6i-=Hqe{wP1nHvtt6!h_y&8Q!-fIVwOLec4kFgfT^c~z#6UO^F$!T8N&CKhNy5TE9)2h?5=CG0^JK~H+dArw^Elq`n6SjbHRww6$`T-baXH(n1- zp1PRyQu$#u6vH2z5V-h2BPH%*^qVE z835WHW=Z3FxA|Ko{W-@AAdbA&9>qCt32OsBJ3I*x1ZGe4v`w_o0VDJ_vAZo(`_JI3 zm#!E_9^TA)XFYepixYSOv4dvi-L5`Pxo4UtTZmtW(2w#rACnU#LSi5>+DN=Dt`H{z zAMytdpD%;@h=AA`R92UXfU%;1SV=Ijy?)wid%hJ+KCkS-z(|pLrRW0uKDQ5MK&4lO z<5Pf$G)z*7nLEnZ(!OcrLr+V0L1P{J^Dd^}u988Xw3Dlw@+m|CT<=~#AXaMD`#(HjAA>mk*GI; z#mVXB5r56gKkV+jWVgB>-IL}Qk(YXp&A0(xVo-73^$2+smptev{|H`|?Z)VL-3I?* z=xR^|q*i`&19AgBXKel@a{N8v{O5nI8Y^7Su7IfNv}TrfYH#K+jq+HHdETdK@3px}`aXK(gQ6i-&p6mL6?Kv<#j}S;}d7qPl2hxaVg_%N4))QWtQW#YC!1 z;h__!VRC)2l>O$was_omo3D2-+rR-uW*pF;(#kof7r&mo=@+SX;ENzPiwbXY?&8Ep zqN0_yE`(1v3cQqOQA-GtF5>|H*4?dP<@-Qm?@0RVxYs)djtD|N%5v&cQ(FeDl@m!M zlA)Z!7Qnj0h%WU)Zj?5sFfc#aF*!5tD-7H|V{^G}t_^_hx*dr8q%DUml6IesRF~DQLI{lNkgmU`^K@f+i}_;k7h>^aLafOzBJlblpz^HQ#l@kU);WA9e7y$)<6{qE?vGd1Gm?$3A(1F4o}fO zuP9}GXiL~$Kl1^OOkKE+YS3>Nq`8(e19zHa#72Y}W$y?DQg^x~pONUrMQ2x`?PgIQ zf%6k0VVB3LAY05le=}w^O@Lqg-3sn>9f?s8yFZjdz1f$?1vYb7r(cjuz_>R@XY-B7 zi}EJM=G7jr_w@=5)!?&gXye$|I}pG;U7_FIW&9{UT`bpQvI|zOEW1pae}jy}+hFQS z(OFr5k;M#PwYZKhWFyn7775e!BdA(`YuDK;TS*X>FKV<6d&e-o5H+0KbA!> zQ=cfQPgQ8vie)4ySCTHI~_V7vBLz;%K+QGW5f(^WcK<*AG{Fs5%6{ z-Vv`daAZkY#1d0>N>W34Q`OL^tgE9&(s*Y4i zqOqi5CxB*nL^Daxs=vp=pXmXf*B(1XfK4W^Qj`^W!vLN%IWsNjc5ZH6>hT8%rwO-k@@uLefKn@EE z2W%Xlx4`P{0+LYNYrfQFpt?uBGzosj!sQ;LkBKqY27lpS1+h)=vGJqCMslEDnJVPB zuLSjO;zHDJi0>_q@dh3-8FT=&ZSn;eWC--Hpr4z-gEV8aRne{gOTBV1k1C>Hqe7x@ zC;i3i)#&u8EaIR{PmDwi&`nKZfHZTXSybN%Wn5x5|f4FEUJK5-?3Uk85aZRcW5M7gcJAV zvMio2_wXc}>h?iBHp`N)kfdLBnm2!%*iKALf3Sc0rOilj{{f^EU{UpX;?BdIiVO)w{?%KcDD984=~M7Th&aIM@Gv4h61pok=hKJe!#QGZ5v4r z4|{9~Z0u0Lt>(ih9ppA$nt zMcc!G=-*X|Y9JF+IqHuiq1eh~QS z`s>loO45E_8RZIK_S$7x4xJ7TNxCw(_4KLiqz$j07<+BY^R(Pm1uMd2xy0uOSb3XT zdZCL9Wb#g*K6y`BN^Lx$U6STro^u7 zSH|>n1&SOIJ$7cRA$45fZs~pjb@NEC!h4~C07in;DcfTs`sK#c=O%@9n_|3A7*VcW zgIe0O+FK*&LK*NJKb2%>eF>)rPVyvRT;O{{0g1S73ASmC{F6vLa!Du8zEpVYh{s8v z0zY4%TRxu{~;@_1M~|5S|xuF7J3{6|$@R z&L`z^ zDw~7KTp^LPS1weBk@D;tv<>XC?an5YBYz_Y1+CZ{J9s|eV(pYKIZA7*{Z`X?N;y-F zteb^C{A(sxW=+U%^=pcd@9p>8I&1ziY%2WK-fBJFY-Rn2$p!(``C zw71g-e)h&;$z1^ul1)<)OyO!RpnvP6&eumNx&_y?l|Da|X8@Z^vYEcpg^7teM2pG8Hlt0`V}; zq{1BS;uBKj<+D4&3Te*YlBPbanDj}5DEV-TJ2Umc8!R|{ z%`S2*=$N_?Nlsn~ob2S+j9Xwu(}}pbaA?7;V9vU|V9xWL;aC!_ywsAB8eQI8YSXQ^ zRH88HcC(;H^9#DjjRA_EAZ}|Z){J@O#fsNv14rYl{W=qFgPX~dBMbhZLjnn-rwyQv z`p5hz+z8MnK7t6a<}pu-L`|5+)Si0hcHVNCD7s>~qHcV;-A$P`yK5|of&*O@wuJui z1HJE>5DK24v*nYgsm)pS%RF4Gq!st|t4n~SHTEgXytkk|e`&i-EHwgHD0yY>0*NuBQDd~U05HWbq`S&LEVVX z<`I_*d5pH7akno7L4h{U*1RDCy(TuZOo}DUmg6P^3`a&ouI2KSe8m2%x_3n;ue)skP&Z&6F!54QT zPigzWIF2`Pr_`otgfCf7BvO{>fp-NN^wg5!?ma?C&?sC^Q`8_f>`Nx32Ohd6Ht7{* z5z~*#_R)Jhw7p;NAXNJ?-6e1`2R&menp|dJ{zF z86^{=dDI_i3;y?dDUWH2L(~mFA>LS>jb?D4u)Xy{NFm|Ft~8ywwwWV{rkKrRXa<3mgvBTd_wDeD$Hopr0x0w!%@wTs7 z9~k<^r%L|OI>VqkjgOVjY<<&e8-cgLVO2XF9pl$c5q`kUoH}vqX3#ch0lvBJZf&ik zEw)_Qc{{W~Troi6VSVH~kww#4H4GXvyRcPBCA=qhNoPsb7X?{%o_ z$2T>~&2Ms}3wAcX|I|h46$_;M#etI&6C>P6*PQRt)TnCKf5@F@Ffx6lHOSu|4g4PY zs)}T{ZQ!f=MWXyJzs7ku&n~+wG2k z4*Lc!P#(~&)HCEtYoJMPyR0FZ2CS!t-R$-_A@B%uXzemsaxvZr&wFiH{exr(W-T8F z6-8|ym{^uw-7WGkBX-cbTseqApef_=UD*t`EhI$$^G6re%=N64yLFCl`~s}n76+T2 zUjmg{b@5V3^0>h`FnO?Muv!LtOO4&-i-eJy!*Nb6%$ZSig+c+7HTbxn?5^q{8mr<6 zC0rZ#0C;z<;u4=iV<^guj|-fJQ)6cf1VZtp4mK}UJUpVa1mSqiJ<}F`bi2YDXv&GY zB)1Mk<@QI!q^A+nP&@rA^yTbY#m|-Wuf(T<0o!tOs~ENjcxFSOIV&cz{fRBa zEzl@I@Fi~}`*N5K0z`1$g(7)l;g3u3Wn-|ead_;l$h=6Fo z`ev*Oix&ao3SdSBhzgmAE66a7%5z@to{Fe-F$NX8vowTk`UQVP|*SViG!M4 z>k`^K;?MTA$vi-1>6Z!4R%r+|b5;C*>~Zmz{~!^e(IICN;zRLKt4lE_!x8)UqtK|; zg#!mr2qUkvv7sm<5B%v+@CPeV4)r`T; z{ytf2YjD2D+)svw2LFAMPEp``_n4vfpiTc;8?0dD5g!xm8JYkt-N?h?5X$JUb?i_^ zUZE)o;12w?4|{Nx;4Yj28~%M+2qXLWnArdG9XlG6fKLbo`$w#9`_Ik)d&AYc?~g+4 z`RDxhpiTZd4Mf0yueN#{R#)4z&lK$8zqVezpntwQqeFzqgwS|!?<2u+972O*Lclla z8XA2%Aq<@0-}iC#(Eoh>vW^!^eX-ZZ%#b}sEl}S;=-iv-8RpG3Q}>-Vje1@>c2F@f z$YXufgS>-<`LmH3>4fX{7i$W4Ui#1FW7VHOzAV|-Uq2;zRc8LPVx^>XeqqbL5~?!0 zL{B8@o`3tN$dZ`f!lNd>s34Yi=I%Y-87+XGzGUjnE4cU6+LY))uID;Lk;d5E&b0Rj zzxADYow4cgfge-K+wZsABC0|K)q;mPDH_68E?Y zsj$au#BkW8;l=M?+pc_z`@ZJMTQ^nN_gCY)PcP{mJ?=spBRnd*_%TmYX|t53e*jXsZzXSPOW4#eUJZMUr~Bsuf4}*0!|5e5 zPjTbX*CE`qr`G&oxvTMf8D;6cg-2rFr8bqp!)y12o_yVtb5F56>HC~l{jqN?WuFG! zBKBGpJ;ZP^uTwVPGvBpSx7nyb_5J!z?U<*z7$#!>^);;@yv^k*eQI8-qF?5r zs{h=YbZPBSp(?8;uT1vzjBZcPA3w`i?)R1-RQ}IrV#1M{%%GQFt2XYg>fzm-yY3~+ zM-EtU^48v0sNzi-r)*BFUuXT%j(KHY%k4K7-=yPj>b%E9PB$s}`lcNjVx5Wq{O-E9 zAd0S)_+4|aa#vZapnJ!kjSq((Za&G7QF*8HhDCh$wp(LQzi#7}yO(MbpE&Bjmz`CO z=(&1Bq;ZSZcfa>5MVM&@jaA>*M)b9X-9Ub+gWbNAYv#Cd8!dtg-y0YeQ$tHy@$jpc zu6t8*z7CA!A4K2y{fo6Z_5o1Ff#^VaiL^ym8hO9cmhX7wyQI^bx8 z3Cp5sl+eG&Y&2c@Q|^y_@>ixU8hOi7t}>MzeOAlu&nG&(<;Zy{)K2*jl>3irC+pF~M7_rOjRtQO9D3N_)(aO}<_rp6ajz`+Nl*Q^jy@CU(o6@gW z1nE}@7w(<3C>4~e-5lQOxa$th{*&dHXQe!?hKWu-Hb>nJGK7P-a zjav8}Y2>ro*J7elehjPHzwwkb?THTUes+IOYTu=B#b;H8;X7>})Qxjrn){PuZG&gWetS254|A0J-VJ%JeB`(e(4eXC5q)ocD)IBrlz>=wWC6Al}v z%Dc4ACTyGHk7rG<|9sT+P(Q%z*CftH)u!>z=Gc*zWxYov?cTc{0ciAojm zh{ZqR9W-v#a1=_FkW&W_7G69~@jM-cKsTg6zjCJkwoG2QKd~Y)NOm^S=y)PkGUL5w zc-G5qLAn>MdN!%1@kVeP{WSYBN!!~)SuwA3w**c9?eTNp^vqvnU+{rzjNbhc*3~4} zFH48dt%<9Rs=X(F{?a*pt5ZJ6EBnozZmUEo6v|wEMh-rE;e5Z#`u(Yx2L-)5cD?g= z{B_wDF0X}h^?o=PqnL~S9$Uw_&$rr+73_I zzQ6qXJYD(39Zl84r5BsOA2P_^xA={i=?hOd8g{HBj~D1c+T)ErL-ne&Dtp=b%=1I& z>o;rf2ixzOF$<_^bg}#1^|5g!V|(wfLmuZ?!VNp^J!6UPE7u??)&E?+t@dIyHvZ29 zXAgQcAy|!)CVT(4(7768|Nlbg-}%J<44vDjJ{j*d@%RtsjEgS1tn~Tw+J)OCMdjgP zb?@{4c&;+=d>u0AKgCJXOaG_ySdtH_V!L*UWf20|AcvjkuMGQFt3lR6jF zuD>@PA<<%a)bFaP^(+sRkT$yGz0JZ|?o)_>i=SI630eUbZ& zuD{iU|L$<^YUZ+h*Y3*=IoJLlIqd)KBZ(i$*^dB&YtXXc%AZPio({G5{ZtvJ@P4nI z{HzB$I{8x}%A`I8Ydz>ds76)Y(*#HrRJyz3r%yLwo0SdF15uZjuV|kZY5NlNc7sBjQN?P zCYyvH`(SBe5&vtaHmo=m_R|cMK?LRl z=U4vx-5h17ikU}-!!23I;W-Y;Avs zE$1yEpem6v>=$;)9Oy^Qe=&-goTwO%5&G){NNo-lv&BX%s-(;IR)CHFg)CRYRJ`>E z2**mG_3|&Z2pgJ<+!@5_9{$u>@mD#?Yk4h>G`B<6CeI1i7L)bP-R2pqb+_2fIa@cDQ-QHKa8Oc!Cb{TG-+9sLX zv4Z!oyu1#eACuG{8E;65fXQ~^WTY^$x%92E?-zNs5$V;z16Lre6B-wI$6~f)dwd? zNUXX7z$WfDu&cXn8CKXbu<+A7InLXCdLiI7JX7l^T4y6!yWhi(5eJjWs>Ni%Ef9XX zng9gnb`CPWiJu>iJON zkUK+Rc6+3nA#;f62XyW#gmvXjl)O{tHhH&TCJA*&lg+x8QuZrdaKXs_kG`ssduIn|fxF zGH3%Yk%ksrXeNA!&7^}LF(C0}RVjP!-$J&@YlNS^14nz1?9_S5;f+dLlLLTsLi(h5 z637783nK*mvb|Y?b8+ExP06e0N_Q+AEwi)Q_uTASDO#32;%heqa zi_RXQi+CB5-c8Q-xf?F~{+OV6&7K*QO1Sc|Qk$!Qz$o@wRkDD(*48jXm}9y*p}r?3 zVt81quD6LwB`(k*KBLRSrQ5*xvBlBU%;X>FyIho!~!051;DC&!7~x^cx$f3pgiw*?j1hv#yXkX*$U^$vna-} zV$b5BmciV0or{kfJI3oc2_$d!P%ZF>XV(KgVrZVt#sv`l+#W{=Cg&IUz~jZ8Hp0-4 zTD*9|gb}->VKQxrwc-gImg(bATq7?IMz3G)0ywO6G3B$7JGmC3(?!`$N$q8*!5Kir z`!vyDrlD!jezzbiz>>yvW4c*c`d(uZhms@0JBVlZfKuMPN)62EHA5*OC-?OnR*pxDKSx?R2#IaF|!K!wVG_LZB~=?Xe* zqpG+28`Qii)=plzh2%ZNvVm|!ZAGAa84lDqzachTQST$6eW2qmwprrM-+~B|ZpEdd zb3U`C@?jcU0&!HrhzQ4v`QG3+M*L|sQ%r=e0cq#uF(76?E#?G{@1iE%?T7n30X6H6 zQSz{0UYX5yUt&vy0fqvxQ0JPsV52)Ue~UK<{ir`pF{01yO6YFtb{?&n1<*59P8dp% z-rquBe7ZpY=mk(ga$GuZ$VkGbFTJ8qKot-6LQ&}>BPQyj&e~68fawpWHB;gIT1;1l zDo}xwTD1X?QakkcawNGPbkN2Afm1P$bnZ~kwv{;9h|}3CfE_BP#xAk4Rjz`<*%oEE zc~e4vT@l`Yrq5ERb0@mUZngYtLk9qN$88MY{M?-9?nhb}DK9& z3iX(}_2~w*EiHYPfRcp-wXva`@ybaSfZfiZN`HH9lyLlV2dRnHc6H!{?}%AAiRM}2m_JhXu?d|PD$^pT}8I(jlN!D zS+cCs)7+r8CPD6;skhh1TwvE{w%xSbtKUWBk5$lVu8KJpkyP_oG9UIpGJVXK!){|; zH30^N#p(8N6Q2g{|Dvk@O;5AiqZ2Y&Q{&hPnGwZDb8Bm(+#cV$ z(^_amaxAw?M`P3Hi0n3ua2o0=R690t7rNlfN)r>TZTZg7(zlvi2787_ZSs28`Ra}~ z*$`Q}X*V(tIkeT52Te|1kE~KTS*@XVz@YLNrcT+837|2}AuYpF##dh6z7z>=F=n!I zi7n(gm)prV>5|W>9zY!Ilj-|K&htZNc!Raodd=#Xf)`-;92_gS)=ZbF-Y{i-Re#D+ zM?tyXo%tqj*4P=Y`*0^-iff25w*+ldG<_=2^KgoU!rP6bU0$AtQON4XzTQ)-Nsz4-(s&q=(*_gHn;`R`>H9c$7CS#Px6=H&y+U_0B&%rTpNGB z$2;DS+Bo&*j9px6N`NoRR4{oWasIn?;c`>zR24BDH~E~7~&Qd ztfSFI(qJ)jGtPzzvB5Kr{W^)?QKz2Gq7`7x%(RL5Ju#GYRSC0;EsjbR&qa(-T0mP( z=29?FQ$R5gjWZ2K5Y8Jg2VUANmkqJnK$Bb9d}j_Sbpej1%NxoYxrBl--m5KY#{#}S z0%4S`vi2nK%g%|Qz1gq`1kzN!)Pcq-{F*pJyo(jJqy88Zdnw1fezcM@E*WS>64u9( z(O@V#RF%>_YZ%cF5A%uxFc={xd6`jr5qz>ez|>M%U|w zRXVV4s&s~On~8iE(K~9}h2?K74~Gl2WsR`kZ^b0s{i@LOMrYl0op6K`-a(P{HV-@+ zc1UvR&S*lUF1R!Cl|Ky$xar2P6Wr^6kg2r0ffepP;@#?DHtsXG1kQyvHA`$!ePeS^ zDUmZB*fGr_x|};6vOTqr*i7Xw_!LY%w}v3LSReX)7yAnl_;$k4cOdqGrl#RzPVo2H zMQ`lk_H6^k!ulB};mTY?K>D)Ki*j}-=={WbaYWvN!&Cj3fL_10bzf5L32SBaZeHX# zyvrL`Uz6g!@KXg{UiMa1?K-ZuvY1cjLq`H!_iqG7?kp=${zBeDb(}a{n7<%C+OWbF z#tcU+7x`a>@!49nIB42WpXmK&zJEtX7f(!V>&w=Y5}jFeT=0CEgaXZ9T~25mNd5=i$I`r?~2zSxik#?$INaxBy{=3c$Ih+?n)>~tt>C! zL`Z9C>|o(N#^47~jGh#CCp2~#%l9Cs_`?rGZQX&FbGel0)K;%_&w!sQ|2~y9Z6%j0 z(@Lr8vw}Y+?*Tu|e_yEWhK@1_)bU?rPKCHe?A$)3hYbH#WD*i++-jHhsGW===>}6` zm-zmktvUJJ9}$;N*~S{UUOh2~U)yE4L6g1<|MuiDKIJ$#vt6M6ymCy&vX5gL&@vwku>tnkO|cH45r0Nh`_qtq{&Z z|8&(KXos9v4hLRf)|W__J@*ov=2uL+jyZKXO_T+I&heJ4zyhGF;T_mjU!bF>#73LE zT$6Qqozxo@OSdAQi;50ap!IB^w&VE=)cg1E2d#@0Famov#`Gm zmUDE<3cg>;;e6$(peM3rD-rM;(g1GdqE?k1STmoA7)p&acBep+3!2(E93<{2B0}{_ z!k>lLTT67!b9J=8Xjdk8;qB7aoy*mny$xEp0H@S7oI3p_^_-Uf5#z?(Pm|Y5?^7(n0e$3ofO!bk2i;zblXMm`l^MNR1%|D%UJ6 zLE^*#+g~9D1jYr$5oa6W2_22TjUlKIO%zRY@>r^WK|3Ryr1K8lV67=k93~hha~0hs z1w;ve9c4k$S}TEciL3ihpL}=8Q+?|c`!z`85k_iqxTwwG$5w*P9L|4IY=!XmhKQ3H z9gRZjN~GDsm)rwI6)q6}qYJuY`H))C?i1Qo`zy(4_n!tNH+AwMYiEtlUOr}e7}4YD z&Abfk7ds$;P?{He;FkLvg)-1S$w^4kNQ3%4E;PcF1*3XS-{Ryis_m{mj)8HlH6^{} z?epE@jLwj_j7bQh3iv_I`x~w<=vgf?W%^~6x&1h1 z0=M2*FqwSH$K|5C5E897jX^qOmzVTM|Y|OrlS=oFm`Y13^Wx&Ak?z zz$cC_+X!$mM2Q^K2!K_Pf9=DIA|60RB}2TVQ>DX{VJONfW(BXnCC_W9q-lv5Zll zT`**vYupK+jT~aq!Po|4pUO!{!k@pz_EMqKN}vYH_e~>EOa~FDuSodIh5aIVQ#??l zY6Y~QOP8{h0q0NN5GF%j!5fj~6S#C#cOTy!;H_@4 z(xPY;P(oYkn9G<`ur2ds5y0>=d+I6If5VU&0FwaHj<6`oB-c_XRtgpjkDP`8DP2qy zNuWsnY0WIJA(n}HKimXO0=}_8heLDS1y_R>NH&hCAAYwi{)GwOy~hXovWdTNJPQa< zM;AvVLx3dG%j$9`to7M;nP9(;o0Z)K96m6&`e0sCU|yu7V?8pL2+tk=`lClE!UdQB z3~7L;y%(2k{?To-Du8kUHCK z;MmUY89|zG!fe_eHDK~D%i{Z1@kQ5qqS@Z}#e7jB4m)yMB;vn8uNwCyk`)w>MQ#V# z6+qi30WA*zsIUnDz`uu96K`jRh~f9p_f-AiVMl>erl~91O^ogep#Xb3d&?>%CAbZk z8V)PwGDhvO=H$n)ZI{BfryI7hfr`%&F9+X<33^ps$tdPcBwkuEHN5Nh)xA3$jz}NH z!c-Yy7R*>YOs;<$$SlZ%LE12n_5B`2zyZ(IfYsE?lszn0g@@-{%kkrP>;8IIu$tEi zMQyZ^9XCHkof)+QH%!-^;NX3-w(tmbJ`a1cU2bUf#9`=Djlt2EwENN954r8_Rx=4A zaU*)(7r8Hr>!-Q)c)_XYisL27-a#TxoBbP2=T;%&*6ipprv!3ndKX<7io~b z%KS&td-Tv*xGfo7gtdaDsCG5hDao#P+g4N$J7oofn{;t%ADPM}xT`(*po%1~=eQ50 zZfczKDtHM0v4i$48fmg7s3UAku_7b&T*>RL`i{W%9bsiQj!P;!7Lva$8R1pdds_GM zP`bFLWTIq7ZKH&5h^S$7x8(WGnL%#zba$KwBQ}=H^&r-Xal>MOGZNwEIoOQu8ag}n zY3~Zu0ZhBVTb*J@+u}){2%0Z14fvALttjFFLGRb=S$gb%f81QTCdB`Y1b%sd^&Stcb7A@DE?{j zw|!FF$&~FK8lJe}RNU~i^7+d;Rnx4pnRjh20dr+<)TYtPlm^bC>kLBJncCqL;JuHw zR6?t1xtUzQbZnuX)+~Qx+J~8LR#3a-yff$1L6efXqZ6$3h;!QVpz+XLUgaZ^(EVv6 zA}FJa*3HLyvV2{x2m4PO@kJSpZHc};M81nRG`_d0M9tCoLn=_0nrW;sSz`q&-b|s6 z{joiD_(a?}{2>wT7PnCmYpk}}$jOK8g^^CW+n6ET*r=XyYdU_5@l%;`PL9n?#ikJ3 z&?@gPL#f}tn`0UE{N8fPQ51>KirUUfgn0M7zdeoa6b)na0Lb3(c%le+S#p8G4pC^Uj~O zv}Rqt*gK&jkwY2sZSJU@=`G7^_bgH5Hcv9ElpnWUK6mBCKPf-B{XK%GO#;6_3D_X?0fa#-6m2(uCcK@V$u49BT4z%Q|UV zH*T0EHM?E5A8q+Tee=32hDt3Js@d5#5cF*gL8&0uHq75rdBg1!%0uT`WR%ya{bDM( z@iNvx+4tOmcClK};!WCV_^9 zg$_ZvcPylDdK)B3ZF{S^Jrxx2>K`t{XEEQ(O~s zsF{9u!(d9Km;I0f+VzF1l!iT*LLR{mXW`-1*Zu`r;m{W4vv9z*FP`Zwam-YFZJzCJ=P`t7VKspaPtmPl zD6Q-&Dj7ixXluLv*a87lJ{GN#Uf<>r+?PN9e(`8hzrl%C27<($QTCcMg_y0%x-Qu{ktjL zO&bnBclAoC{T4z?2>owY~e*R@|$@d0gKn4XL zfAh7X-TDxV_)R1;wA~1>WXZeJm+zov68cHGyQM-AC^d=2a(p(>^tq4JB0_utSwbHu z*xsKvkf(tHGBtR=YI}xm+Bc7WnU2)hLZCy@W4(KR32N?{c<88AJ0_`+JlqQD`*P|- zRLNXL;7xY!t&Zj~JO-8mmr{gVk1U2etLq~(5zJ02OLyEHw_d_Z_x7DTP`NAJXU<5F zTCZ0DrC^8<^I5i+?2+5U@JskJzu6Jbm9>Nn7$&&w4bf1CIVQX@%<`I+K4$_+dM*ir zx_&h5pfBtl_DzQp4r+3@SC1^vfJEUnMhc zH6#R<1Ev6>@tt(F9tk z1kUnJItMy+CW1&?;;?`00Cm4=&Az(vfW&rMPfBdnwUGpuD(HqZB%XYWGWwDWNuK%< zlN)P``0Nfr(#uU84o*1J?=SPkL_NVZ3FsgWhB<$^8T!ry;gLQ}$WN0{JlQ?C<()Z~ zmyiM?8=5*YSVm<)W=)f<=28Y>x#?`x2ptqw$)dJi7DH>+G|~{^?Q{^+;nZH0!0F7O zBJ9*R)vw?pT!@>srEK`T$?Mmk6}yDZlFx?CL&wRGXqb~+pGuh))ZGf7PD2=_(u(TP zMW`^K+{35kC6pCp$wAA#R2ArBvlUMi^V7(npc!chy`)<7u|dI@2~oxM6KziI9}{T> z*{x&^v%jkEI|$O@s+jB2W9*r)xVdQ6$!_Tp<{WU;8Y6Oa={S)jMg(S7QABtC1%4Qz zUxv~zE2m)Iz=)HnENkOtp{J)XjPSBLWgHJj4>YsWB1#KIsSI9*tA>_@4%MRRxPZAA ze9>MujS_9jWZ=R}?PV%IAWSy9WzIZ8KLYBj3>f@>G4(P zLGb+UK5PBf`u2ybG9rv99;emTM|MoDV_P5J10dkD6(u8nq zkMhT*A*H9ZdwKxkBr7S<^IYn45Qghyz;WQ0Gg-$S zs>y4G*n^5Bd0z@insORoyslmb4v4ANt!-Hp2w@*ivTf3P(+$FI8@O$`;@;PWvTSZ| z&R|kZOr!}~L%VFMebH>jm1TXs;?RRg{h()~`^B;W*7w-V&Re~kfJC6{831X!j=)>1 zgX|BOVblY_?KuRB@J=GsOPKb;iYRh{ZzI>g^{IW+Zh^?v=xE)B^WdNXNtW5TqAL#C zWj@sm_Q_jO=w+iLKU)!RxJUHPzD&CE zrS9@P;;3cPOI(0!DMf9&*N>!@&c?>p%2qP}6WO8gB&GFHf_rvh1_W4w>B}p<%NFRJ zTfRN`#{2qum(5fDNJ)NmXeNWbkGI&KKv1qz%!NWP9_epAUg?_+DG49ymd$t&@2ht! z4)#%xskgS`>E77Ao2?d;brAjNk@&+emn@+WXz*yP*R@AtS>(RwtU-<_+~#w|!4qNC z!JeIWy<%5uj%#}TGOy3m9g@v9Tz-USD&;ZxHyZ zBkr(*4~1-9q>T4stw|Rx$kL^Wb(239^7t|{Mx|Eq9`7) zs0)>EEM1;67KeJdg71Fm5K9_N*t4*WD}O1%%4TP?#+H@g+eHai-%-Ph+g9|(E8s=ftxU+UctkvmKm~RD}(1RI^lgFtbB}! z_L76}m=zWjn+DAcEK}_{J>1g38R!R+@TS87Qe?2u`4(UIa9=n;t&I6=LR8<-U4}Sx zIic>MrhkPKRyg_e-HUKR;`40^Z)h0er<}Nmz$?q4ucdbs!>W}S8_KU$&dx|%8gOg|$ zC|tYr^vvtHZHs9NjC0ivEDJQUf}_m2*??Vzi&;=axR%Yf6r za=&OAdZD8^S-Xo9GcZ$pYecg~{i&<=I`pVpvc3MJ_%!tZ?Xh32ksK96G)#~(d?c#_ zI&Q&&tF2aQGHi7^Q43!=3VI`jdK=!?u(*TJJGmymNg#M%sIP7RC(OOHBvcfqdJBSG zGM|EFkcs+2tg@rf26w7Z+x;9u&9Ef6{3PLl6Nse+K(1e%6N7qzGz2vQ_bncEy-x)p z?Y##wj5YUyA3i`H4GXeN7hE$6<^``L7LdSrJ0Y`;=TEWu4+UXg;d08_<(7wF!RR14 z@FQ3WW_rpf!rFR^{p1{fmhrQe9N2;Co|s74mTYuPGOA8h*PA-xize-`0KLjv|9T}- zJ0Tgr5WGc`f>=Iz_p&r5f`v(4c#;!SSHAy4nQ3WJuXz>8BNl*^w;$-7pH)9;6obbz zMEj)-+AIqzX)ij@@%Orw7UZ-OlQnp;d-Q-T-TT|p&>@F^NXeH9sx7jAx-~Uz3|Vyc zqQ5o^t+dH#XswM^9=vZ0^9Vk-aZB|)^*RPS*^O3T=whW0iTk<7qWt&-sZ!r!b;Dwl z8`}%M*zM6IoDdx?qt4_MO}fs32q)+MMX=fFb1;LTE2mIKkrRgokE#Z%w(d*9kr<0T zvr&Q9BwpVIIg|YYsAJ5A?egcI7HsTA%!C3S$Do{hO?bQXGDhM1h#VLm?eSckB)r>Q z*?wYM!9Q;;JKyesd9g%g%a4xP_Z2o}3!UDWRlAYXnfUpapA9(8-7Caz-3P*694XZK z_C$Sy1A=C@Z`m*tqZOsh&SvUHpWQ?i2x)MkA}2JA89g&WmMn%p#^u^rL{~7>d=}`4 zOF5Mfuskd^vi|XzC-$x0uMa=I(D-{li%&8y50Quj+f&(jQt996Q@3V2Ir$WEuw8Tj zB*)4Eb3$7ZDZrnZqaB4E`%m9CCMn&eFO+EW`9}SQ`DqFVqxEyo3ns-O__ zvLko*P#qOe_GSuI<0P)6f8EJNWSX;cz8Xe@+o_FpYf6$i|DvY z%JL?u%8%^uw+s4oe+z-}IbgWAt1VwD$#a`5w<1{pNfB!P*sI^ncz%q@fWl3s{Br9_ zMzqcKu%Wi_-JT1M3yHT%PbT#wMM>nJaphVbi+%CM?GCE_$k~dsNnE<$(#CcdV1l35 zU4MA%e;;@;0;JWkQ88nGz3dzS(GnbXejm-)XgKW|Eax zN{aIk1uw*MGJ0s_drlF5Wb$+2TSC=*6#;H9PU&6`jTR8ZN(`323(O3n`qm@DaFJc0 z4|5w*-F~gD%zz$!WC$wyA-XhLDDl~z-(3|L(KA_1R)B7_k&jmr9YUx4amNFX)=&*P zwKPju zUERRkuEfaY7)^GOqEBnVF;<7u61aG8$grI}F&KzS+VM5fjhX7k43?*oje?sc&f`yG zqxhcK5OOViTimtbvLR18f1jNp&b7*PFB2+vepOq1=YwO~9{ z`+m}vKt|l#9<=&V4JV@Jo2h&1BZT&shhNj0+q7@q)`dRQ_c2txPdps{-Q^LN2Jw!^ zA1kZfiP=7J(T+fk;@E#Ao!WZXpzv~uG`2@N(CPDHF6dSGsq%ugmLFk%gapKUZawC^ zAGeN|O;SP9L%(mCb2TR0R5V&1Hqgg}3_8li&?G=?*qhx@+YdSd*R1|?@;fQLV4a$g zm5L@P-t^+x5Ff<#u-@pPZIR!s4wKx|WIs{WVetcezQ6CuiqjP{6JIZ^EPJUIN}ANh zuh^|)HQxk;jUuZ-bU*CJV$1%;2@ zPrgJ9;clTl^VFMS6d@`OEQ$9KIb_mW*TpJT1s*>eqOMD_DNgrcZY1lk$5S%?KK%5M z3u5b*=2=5|oX%d&#+fSC~zuBzC8G?33RXuDy{PN0zk@cEF@33N|n}j+7RUe z2ia5;p(B@ZJ>*+^t~g|p6Pu=`Qq|b}_eYKT59DjaHLC(`EmxSYZXB1LHg;s8s&TC1 zwglz|^PDu{(H1Ze_e<-2GROyBt*@m{w*>?&gZA|2ed%-@*-)(5=O)pRd=i&EIelEy&nmy6q&dK}>dEfuo=A~8 z2S1V8Gu=N8K6qc%&7~|+JgFwD-9bJvrIZ8RiDyJmy2^syT1R{bo43sm;jdN)YmnYL zYI_E|io!!Uanc->0MzS{yeBw?aJ*Y}iY}6YppxtvGJijVZ#OxTK927b^d2TGx#SWQ zO2RVZLJ8r-8_sNlE7{4WdHM}S?l4hU#z zN|ks8Fe)1Bl(YQ`xiW2_N14wCIZ{Qu-CuPc_xU|yOwtx5UA3=RD(-y~h1!jP(DwEK(XKK#Th7wFRf zKwM$E2aEgqgD|Un)KiCM(SobtGVh(K<=a~CKMATKX-S%Ll>#RyMNy#FC2L-0ELde! zT@w{=xaL&)sF%WSWZ9$>yGFa~faS*|iZ_dfk355R&LCB zCzk0v!fO2;C-9V6#e@PiZvJ?%N+InDR=@ijVhfP)2BEv6w zs)sQv3U&+9SKACkvs79`b`}!vyX}3{u|)k~&jI@Cp*6d%=^=)1K3re#c*`k7MYLP9 z_g3deKuAi_5H!BD{I$eP2KOOT&*JAP`@<8l)~N~iTY`&BamR3(=+daxo?=ZSpI<5@ zRruOhOT}kjCMPHMW}{Y!R7QMsKz;jNuj$809akN~D&M`+P&2jszcPO?x3fr?&A~eo zU}d{d&(p*&k408(!Mm}e!q9xz=RM2Ha~nK>Hv1K+B{Et1y zu1TDFf-@zzLyoeF0Mt+eBa}A&?ARY<%>sgSDcF%$nm#TL8lRp}T_1E5Si^3a4<4Ev z2ry@4BwZ_pPv=r5*`7X+S|kNwBMk1h=>$i9dV8~5$97L;#8Ug@$ALg<;skauToGv$ z@%7|4O?vYq`$6u7cXYoGxYQD zi-dl*%CE8FPltvHdSH!y_p+4pTVijyPa#C=@0ZZnx#HNhTXGMD@7}{~rHn?=TV&{gYcG}Pi zv;V01W&(E5|G(5b#opTpKzF(o$J_ObTBWR)A?9EI{Dwa(d;Pc2}jy>y*ANNPTah?k(J3@5`A*RppRg- zR%fr>_s-jxhH&~R3YLj+Z~sw2vlfxMNI|zzxKX? z%rGgs%E?Q(Y+HNPMa_u<7gRjZ^Lr|yrnQ(mKCz=O)b`1+ts4aGabr6$4u*|fWefbt z(WRTMT1}WiOJ!OZ@eu|TGMS~(;=qx>g=*mui?$*qU-f;mKXULx!&^dIdlWWqd~8Ga zZE|7C!MAQ#(&9uUVZ=Vk?WPo)&Qsh~7CokU%a^-ed^f1E-B*#9Z{at<>Am&j;NudT z-odUww%Pzx?gV|DuD&?peV)GLFni*K3 zgrV$@yiFTgbXpC&y|e)v>=3dPv1xni&2UT@v&z(k&RW{w6MrI_U^Z7c9Y}Tj63LNL zNz$wLwT2JEN3=H5oQ+QS{Z4!Ee--MFwFe$FA3FIy@Z?4{kR#hda~#Idyvu{5K1P!( z`FaDoFGHJW_^B(Q|L*>tlUKCuZObyIC#Ut9cg639X99|m7b-`g)h_#w3kLtlvg#Q> z*80u9v#=rFxz5n3rm7~h79Lj>Ys2pRfnn<9GgutK=L)`d*~JKP(5p>WMY~`C$IAZp z;LuP_>n8a9&Bnu(C;!vmdLFQ3Lc2}(i*)-NSBmr>iZFSs&ih>3eH*gpm#%LXZCT7B z;T)}eL5bF+W?33rSUA(tbNEX33thkEv5GeT*}??Rk8<^+#uGMWNFoa@*9POD1D{5M zY~jOv^$>jLWMN_*osm@j(5Cc^(Jtg&BdenQM(BDJ`c46Ce}RVP8waAxvKSrR#M>OrW|AXb&Z=HTg{%%ZTdVzp1DAA4I0ScX!W;%D?|4pWefOvV0yCXm;s7^d2tI zhW#at8PDNYupCkqZ=rsiHEzgXAn zSLX1Vn}JLR{;^285IRNS6>s`3oumJ_XM0AyDMTa4GLc+2Yu4&lnxWr4v)kC}duED^ z5daNL%2bnH%0VabjV}08kFxO~E7hWKz{>KH@dm{>zSnq8#D!1MfqL4YLe!oO$JQ=sSMOuLE`I z-!mhP)#!@rZ4(TcY*D77C>7A~K2Pj%E5}*JGm(#+FgANB#!nQMlQyCi#)7$e4NP53 zr0_BrN)@FI63VDTnQ&3j`&#eYN`0L}E1;M?=PVub;sIqBB+Ao!E`AL`q@e61(R+}| z)B0aZs6?3PDiQ6=gbq2zWdypeV->5>39s(i4%cAFJuWL>Kub}|I3+okAYbhdQ$!*hv!>8R-X9V6 z{7K#vn#9Sb%G#9OkGH8Z<4tr!#584^VD~L)f7F+bln(qf2%+4)J>@4Vq%Fc1^*6pU zaR@AJ5tsIj-Nq#Y(;(hAhN|t33lAbX^1m00FN29A3dPH z#d5|M?ndRi0a2YRq+FeVe!nbjo1PU0u*1vL%y8(4fvo%#Yg9bVu7N8+gv#Qi%xL z8j`k#I$Yt;5}~fV$+X`#NQ8&OT&LzvRW}w_~h^D!|Pyv2ZO$hO%54tNeD)kvia(_s>e1Y;Fm#mn8vdeBL2L$D+i~c7Zi~xJQ9@yC(FAKfS}9oX*VLCI3us7jSrQqW?h<$f z6i!o}Yhp}MLv*Bc=uSzC%s*q_M?-@TO=N;UW0PPB)$*@F<_f#@{_e4%{yYq@YIH2Y zrW~^aM$mFX&gRbE`S%+>et1!rn=8zbPWg^c4lF`YTb7&CiSoDuT|ES z;vMCYjM>5W*cSg;hR|RB&XC8rj&1vs1LeT>ELl!&NW4Hu>Us0_>TO6Ctj44%L%L+& zf5u3e`Llm6Iy~N(fpFmGc|wfj&P#&RAE(jud*)uy`=oAig__xy=$B@DWKf>F;K&Xp zL(UV@pV)UM6@`i=jNG4oSBwAXR;D?Wp1@OugUWl6HL=_CGCDzz zIA-z-#6viQytrlrk0E7!TJ!dxWIZ z+rM$sm)Jf}Gfo-#juVKB`+RWB|h^PtKi#Fug zD$+BMsWN$djXgpiJ~6_~=2xN}iv7;-oY0#COnA~;2X*3uvw`IAM_rNMeY~9$V7@xZ zZ`2Cy*TKwMDXEuqVf7kTW-ms`DXpv2s*pBU%!=KoHlpc2T~bwS>{_7V zKTI;$A3$^S8_buIljyCFNq)bnjhCH6id@G5csEsUhb!*Wkw|Wa6LQL+S&D`R!R(*c zr)+md96Vj#wgFu%Xq7CHa_xU)5sQ!ENd+3M$h@ke(7Di6XQ@PrFf1PC{JgndO?%(E zP&7Av%JR~PAHSOmz@&1q#Zy95{t8w+hwCF8P2Ih7Ysl%&OTK>h zm{E;W_}(7gAXb?va`v&#)cvJ{^RRqB1TsluQk*oQ z8EhV#OwNwygN7Y#Q`jJ_e)D*Aej4W?HBY$0Mm1@W__x=96m;IkUUChs@7@V#KA~T! zcSvlP$4lDv-zU5f4oDy$_~XhKu`K;xv+>E9g1vUfuu|n(-PW6*Avz;ETua(N zy(SNbP!r*D9JCO-uuw%eR>{^tFySs-p!F=rs5nsr(=DxE8YgU z96e7#dwsUwt$JvYN$dMHbXago*)mt^`mvr%Z&HcHwhqV8E}eaew{Te1Z8|jcZh0ck zBuwEO0)jw^*X}d5i=yuEq>CM%EV|&^=FWDmfSxDIk+>X7z*BHBw7IfV<@jRqi01u@ zxN)3Y&%~<#{-6|`;oawQ*=J`~1T&jVT7u}@8LFu0)Sssc)_Ftlwux?I-+RVAYS!*k z%Jn~v;INDo6=QlAHu^+(Qu=B&{=@;2&ejn$9a#LXGPPab)?yDblp#&mAjPi0&zF6F zI-TVPQxZEep22o|mn5<}iSSmvgP@}noisfI5mYlHN%(#03N7tpQ_Vtzq51(+$MhE~ zzjkWn(2GetFNwSaki+m1__N~C9iu5u$8hdIRu4UVjVmgK-`il4wQ;M4_7w;9QBO?7 z*qc=Jqjl*BhY{E$$qz>uRxfy_ zk1vV}_6oAU5b@81oth34yq(qfB=6hcHQ1mvFv^*mCy8oaXMgd+4jf&G*X)7q{?ni~ zqLVp(?Xdd&D5@9kpm+QKJ#YS>FWb)=Se|>k{o11DgY_G4sd*mLy68K7!t(EO=e*U3 z+uQg!xFb`0ubBq3!g7LXp!@T|)%8mz0@x$5<18T@LHcbaXeA8ncS<{ief>UR~ zckB0*Z>b$eA&7T3ix%wbAAwBG87ed~qN)i6gXamwQ3I>-t^fI-w{>YRG)2$oX?G)yL4fJ#joO{a;&E{G|0)u$OBta@)Rsjgz0UaA!1mNp-<3WJ3^wE0@&(X z45t20zyG`$nWnAh!pcik^huZWAk0SHFL5 z?q=l@ASG6IqEJ*AhO=v)@{7w@uv}p-Gsm$*Hwjqi$c#Br9JpsUr+EH-x4978vp7N*-n7ib#8?#< zMX*-Q=j{u`eX+TxG0XEv7{s(X4SiVoyCl|aj+UUc99T%0*TO2-%Ch?Go|dL*&qZN# z5evqU6n3d0dpxFInW>vL^wnqwL}L839AanmFn+QKP!U)L2lduqLsbxKu%xf=yPp#z zfzzprbv#KAmK{}fu7&X3FNA=N%3D#o^?*klwx{YWjsOu5eOnlT^ch=9vOow8$g&{_ z9sY6uZ7~-DdB^>601h-U1VND;AWZA5Ye$b9wj5rECQ-mpiZ=8;Ri9=-&>l%q(@(Ko zwF+lQ1^p9>M@g2Fu<-;_)G^#TH63S9gbzj>Et+Tp#Y#VpXai)jhGm!EA@;g?GqYOK zo%`b$^pKi_-Q&1Y^rh2JjL_xFohOOKpis6UPmHicZR&@HaR3R%OvZs3P1~>P-H$-l zF$qF>PvO+PM~++%`t7J1!v1PdY9|w|KIMP;G+G^P(~Y=Xp|=^QmVGSI-l)i`l-TM0 z(p1k{PjA$+!&Tco{)GF2-$8`EKFm1m$gY1e8{fQhwYJgwe?C3nzuVZ2m9PBY796)Xid?`jnj2@9} z7T?=bL>~`TI&EFEiJ;u4L01qGd%d4RJ>MRM(6uAhOSt?lCHo)+Yd$3d4hLgm+znHc<5mM(N&d^Q1Y8@V~LtM zCoz8GuC+$S)nik??LF^H+_z!P8uk06Pt{Skcm4I@@$4OLRp?j8`2UL1XOfs34fh0>6M+`K zI^xnNOTM5{;FTlTTi`c4vK3vZ9>|sFr@EDf7+L?P42cJs-p8#L>Rm%NI1G22+VZ+@ zvIYpTUXYo9()N?4X0<{>eNoqk7iq$F*GyDpJEV{Gq1TP)Oz3bz>6ttaZ>s9s4-0lRt`aYu|yeg{%YwV*oko5 zHp^ixe31aSZ9Pw}5SyoP9wCzH^cr%T#RP{*T`hU#ImgT7k@JJ56m(Uyd4?@o$H(aB zKJ_Mv|9eugo^uIFk$g9CBC9Sp=JXJ&2l5|v5nl9)mPhv6I405R8DBRZJnf+AN320L z?XJS9S07CsuCjbG5M)n0IetFU*gb$x`p#l0_l5UFu$p~HIcVF3< z-iy^74DK4CtlUv&c9j$sBAM9;TSP}n zqQ48>xBCxl50^W-y-R2?>=t~vgkN=_tyNPXOXn(1$H?=tx8>YeKPR$e(C@herK~(p znXVjUM{>T2Jf;%4`2H-A9Y)edO}<5X!EQc=$H(9*&YA9WPXMj1uGmIStaiAhUyHMF z73^Co9&fe1Yew+Sh#`w=zR#G#W4nTU!3XB)o}~V%0Br208tr2J5cYt0QRa}Z>TuFv zbW3DWbo*U+TZohXP?JHcU6B-~4ZV_>H9|ebm6T>f)bjyW(y{m>EH&`B+2ww$yH;m# zw=~5|5u1r#9Bij>*qNt?0(eX53?(!W6DMUvi9kpQEU^~1?)25t!=@g90Ajc4B8mtK zu|2aP%p+|xV2dP7L#yWE2Y=I+M=fh!({o;J$3mfO&U9?|%_knk%wwktHFQu+?h@)Q z4hTN zbvb~*kPG$95LC4_GS0FL%M$* zQLl8`HF{>>iPR30wx9^0lboJN2GqKRonO|e8OIm^B~n&{0Q4ysk_4`to28FQ!B62% zRWo%3q*{<|v;|Ju_G?x+F{c#L<)4+F6o?)3O4iDrG}|!(&omI(FO|7RXakq8o*o@s z1|c+f`0u{E%hG_UB!rW;26ALGx-^betlw??92UQt6v2pvRv94vNr5lwow&B0+e$=_ zIBca2ahD-%G(%>6gVoK%X&{;D$r%=)FwoPJCW>Pl_$~O=-n$8|COW?VIyt=VG`wxn zDD0BYuBV4Ol9E!2dScy+HjW2vA6czyd=Z_nv!t|iktu3P#+AVv6ZTuQ@w&Z1?$6cs zVPvp6oCSAV*ttW5Bl}&@(}r0JPY$1Cssr-R=^~d?|0(F=iZZNiD0B9o(o2zCYC2X4CdEXx7{5cmw^wbnhLbETQO=xO8^1kV=ZVNSDYp#|@ImgNA3yj7+R0wW z`1^F|``@BDIH$i)&PC~%b2dLt{@h-@B3IoEjN8@S<=gz3kqv#Kj1m8NHp(-U#)*DQ zd~7oM%{CM})UAI3&#v-zuE!W^CgWz-L?8tFKzQgq;BSnt!ud37YIlQG5?E8!C!5%IeP^+j#t6 zua^jP==JDtRbT@iv*zTK+Ls$00cK#dv2t6Lk_6Y4)T#sIP&J#I5;^yQC zKaR^~(4hlWYez{yHy+v@V&r$v*cG?Csp7ggX97wS$dZ$woO#Q^v^hwWDVIacr&Ev5 zPFY);xdZ7FAl)65gm4{@@sFF$>xs5MJ(;cb4T`Q92vhPqGb==2$)MBu4rVPf4#)GJ zTKJ2nn_=!faPE0O&}c?Af0PLJc`4n-ub;n;{prg1KJTJCOc0CutBi;I_qBTMfx^26 zLS8@Jp;HXl5?d2RZ>(kli|o#$c{%x;dg+l>iC#3u%E``Lh|ecbKk&Z%7*&KQq>_JL zR)_eGm%uE?PZkMZj8r}!PxJ53NrM!D$=Q?rnyiDJ4PQn$D#I7rk^sf`{nEI8p&UQ+ zvkf4ScEZwCBK;g&uQpn{S5I^>L(3vbL^C!GeT`1jQu?UNp!m1$p@$t;AMV|MYI2ig z8R}+7*n86>eBfkI$+n zef#NQ%6y#E%23YBQRujxr&<)ER-o!QEB&;Ey=F*A?9=h zGDXeQBG?VFQDKeVz#oBmhSd|^P%LW2!dd^0NCuPG0`I z`WX*GKlgpgTjE{NV)33L!8|fEgkw?nLf$x}xF_!kPLbhKQaQ1nEbL?0VWv{1BcAKg zR?h2YOp1b{Kh3i-Zv5l-AW<5QtPMJuI2_=WgaGtmb-PDyuxLg=`r%%z&(sDH9CjOP z)RCasRRe0e6t|w9kPt&UzCT)UE3CAFyZs7SU2rV`<@q^cK}-rp?vWUJPXbdu3uskvhvBAP^M6 zQN@Rn0Y8+>-|P1@+1kIEaQmcITeKLVyyLRl@MX2}$KM^Jd7_T^v-3*o442rIpsR$dCt$RS$KXnsm!Wg8cw=l_CjWP+i( zJ@NEaZSJz~ri7hY$ejgMtJXHD1CVe=b$@1&qENk*GCpSu1X-ODkbZ(0J*oq?IW?2S zg4*Bl6FtSM5IT(_OH2z+6#_gHc3^0Ayd7`<%xCQZH50@R28K`iJG~q|Wubw{$-$=DgbBvlfcWk7e(o7)4u}Jzdm-j{(1UT z4ZN432wn$sZK^W0kFY|biCSi^9Kv@%5V6v`1>S2>VLc%15=~Z*GqkHs(J`oA2u|=j z^bAGHk*^xXjixrKBdn)8G7-+zx4J5ixyCph;a1Pub@rly123XgpK`8k=41_p|LaWl znPt;<#;ln#KjvSAJGyD|uao{}Z~abOu#1BhzrNj2TI-3xMbI*VMxOlgu>J3+)+$I6 zF7~ap!A|cn00@P(j!;u|bUx0B?_&(gccLqvf+F2H;m}OuB=g+s_LI$~%gY!QnR3ry zr@skKE8;D1&rvln=z*br^5cjbjlcV)pD74pRuNlapxfvp9k>U^IL)VOCyJOSM>+CG>cr#+IT?K&teoaIG%wAV)h=qr&+g*JP#Bn zou$ulRpVC|8e9SQNyoe-{`9XBVhy;R=8O@< zwL6~YY|#~bXFyG>C$cEw{$4tZ8m&@&S^jduv-_8$&Ih*niOWWPgh4Ii_61K6)vTeB zBdJ|vvsZ_n3nwA4F=IZ6%UJ*W<1G=KTr1Zog59&vZGctyH5G3_56?KZWdr0jK}Lyt z&KE-9*)b`$P1%`>$(LW~^+hg>eJnIn^gAGS+RZl=x6GSpYmhdRAG?P}m?)k5=@6~1 z!f@3molFoyj2~A0)O^Sj@%LJjr{$Szwb!X_PjU69rOJ}o+gYsfA^u!t6cF^uz zAV7VfftCky<49r^!^*hY9X%5D*h+No2pEc(<1`ZWS>61$r&ux_E9qDDQ$aI(b-srI zVO2l6e|pKX>uTc9e=#sWAAYItMVJ*SDs8%*NFMLlu!=aU1$=T#dj*UiZC zX6W2(itb3}k5OQ5G2FZ4xpWlP+Da zDtfSe!5o>PAH2^~t1Zd`qM7tmkzS*7+7bsXe?4fSJ7U40P(&f9ZZU9JQSl9j_`4DC z_;XgJ@S<*csP^6)d)@riP0)S1oJA-0bu66)ne)>J1rD|i&1bFMWzgi0%d|R~a)u#( z_zmGm*T#{7)bMmDBGPxfFhR!@-C97E+wOa}Ve^FA<{5!twk{b9K`&4@AxZy2nb&gA znZd}0-5`w@8lc2TdmegXJFD;>adj;TySH8gbZ;ez1zKQz71Ia4>B2y^cO5@XQq>ac zMdo}i$lz$@GhVEb1jyB-5t6e6tqvxum$Ur+%w;8eQkhzv$bDvB3r8{kkM23TBLzhn ziSG9Qnm+%~d4*Vf_@aYWaxI;)a#J3)3K>^NL$S&viI^TJ92n>pvy(zqjGs;_Zs#O( z?vyA& zcy;J;U}oPh$YHVf5%|Sj0e4;R={Q<`1h_$P{sBHv5B0F$A8Zi_diw`kQYqpAtU?qv z2{jHV8XJ@@dEovE2e;s`cs?L6 z8~w^q)x&7MqPBk7eANh{3o>9pvYwetMN&duZ&zUQS#Z{sQ-El!=vS}!071wvZlE9ALywAs z6lX5?;2Qkjqi!~FN6^n;?q@X$)roo3iW2~^z77aSws-*wp{a|lz67eY@0*!eoQ67k zi>E@R$&T3@O`ZUSx6#&gm~qfwdqf$A+`BxH8)GnEIrRrcvwsAfiK|Ksp21uJ}x36iu7+ETwl(94V zgscCZfyPtp@K-Mf??r*2%ox8~aDl+T=kz|MtoIf-n3I{5@zhp(1kPH)-%1X(#LV{Q zKN|2ybuwFvM+pt6N%J-x)>;V@wA25s2kt!r%OVMNi3 z+O0@rcj3)*9R+@BFare(cJ*gcKJljiCt^%zzP@zp%^D*@VuMj=jsVM;-2bE!bDd#% zByp`?>{#Cxib`-Q`t(^_ME-Y0nbps3JsmXhkL^x=ah~HxBaCB?L5TJaK@UE)J4usbJmt;Hq>eVaI$5UgrqZf%pkWPLU&)==R*Ydq*3$&P( zarm6x`h-AVUEW~S;^92&vwq9`ij>_|&5D-PuWBzH&+@s-K}>+q!^(HtPW{W(e-t+U zgS7l(xF|T>53uU|>iG*E4jHxnGnCZYsW@uOC{;|ChCetwyg|)l{a%Acm`$m#9zYV) zQ_lI$Z&6kiFVsx{L}=q(&&)~M(4@|wE@)x44k{xG{}omdjXrQnN_Kb%?|rkBzpE`d5WvfgKUnJ+2k-{ zF<2f|55S>T{u4YCi>@wOom_p6K0~|T_&ij_M3f#Z(EbdXsZ|Jp9(QeClo6LLL6HY(T?`yBJKvyB| zs4XLIg@Gtud>=T-hOh>)-zB$)MCtK}fa^1igxyQqmG^=@od-mj64tyq>9;YI@1v8o z>t9|Wm4WW{isiBxxUS(jXBQ4YVD5$$FKvXTl_TebQ1)soCrSFv&NjmsdDQed_VFHs z8wE!Zt%`X+BNye^55xQ2p4w(;k%gTcdZg+fl1@LDoHyGbP)01n%Kh$!jD0M(TB{D9 znZ2YtPb<{*e&LbM3Jvzbg@=5UGU-3tHc-k|pE!$$%=CCwCd)9o(s=kEaAwX{5M~^p zGY__`f3ap*9e#H$65n=i&x;YnWdo#J#3IjU&xt*X9*p$*zr7#1NI5M)#pO|{1&PF= zL(3dx%&sNis_qMaF!g%Vp~Kb|!!_%%^!S;3XDhE*&g^EjWDBK?)6%#^E#>*x-1%qm z&*HAxZh}6a&w1sNm&Sk|9-t_I%cX@Y^V>G&fNZlI9?R8p*n@BF*X<6O6=d*Im!<5S zA05_9B(H%L2Is{gzlRW;9C^EX&`$h4HygSG<;nY6DF`R^D)o&3q6tRsi-umS$dk== z5A?XsU$b=(w~yxN0ygbgVVue}pT@wPc&^BWq@Qc)xw!PcNU($v z*rtaY*;mV&M>Hp(#IeKH2S(JGts`jmL<%q9`E!}7fxa>XT=@&v_GAkz8#u>W2|-XTA+VqCGh<$!V(rWe2nX#)NPh8JFNXDLVzzR96TW&0Ju_K_hpS>)R7~RdIKW=zcGKwipY^6P5`51xeYpvrpW^Q zMmZ(8Il6kF`^|&qP0vjixKwl~IZm{cwRpufzdgC@LnTEL_=)42hboa52^#vEhhXkc z_6jm*MC?wI*pdl-BSXJ>>dCU8tgM@^GWCYoOOv`Ip7G{4k_c1v+4W18%<+aP0mXQj zMJlYA0J2dgjQ0^@3v?jyWWmSKiGUucl0Qq%Y|&MSo<4KKp?hrX!#2d2ja>_|SGlcw46_F` zKMR&F&Or3WeSB8AGCB|<|DKB$&+z*7=;*J;D$=R&7cyp;$(Bj7n6`6o)l%CsXFDbM4_vK35tCHdWsM(srXc9?g2guVlEFIXFL+lDYh|D zabCI-6&$25U*QA^p~dcMm(GzC`2gRIFsq5LEx@i79{mEKF*8Y{oo#LSVmp9L{TP`O zf%mZ*vqm<6+zZnS#pL=j8>beCutgO zIT7UZV{85(-7?Mf^#BtG20Ot%z@+A<8DCOIEPF2*&D=3Gn8FHkV13Zb^Icnj!9CSu zN+s5y@pjTpC16eP`L)LSw%GZ4)mGK>B{HbX>RK#YdTMH5ZwIFFd#OoJg<;RNDoNRF zc@A5Pj+eJaZ_nHd+r8_ppE$B%8x8}=BV)X34lO-2%Q8mUj& zyUrS`!tJI=2ho52ZzID*Ma%s!%Z6c`qNXU#)uorNmHGZ2N0{ z`lb^uyEUy`4c=*MgJQeAh{&Rguf8p}vpiBdwtL`4;{4R$DB?Z9B}*?8)=IZ3X^1OC6@t^QiYv@=%<0Z)%>(?MAE$=r*$eo2reR z#v+PSH(JZoSNb<7P6BjKdOBtdDLKLk$iO=IY*nr1v4INJ!(jy}JNTYus^?Opoa_Dj z&Q$Iysz=68zpeZk%B8tAHH_#H-rboSOoD`+L*jmH&6^9AZjSOU8we3ue>0|o6MAs}~;G4WQC+l(hRw?uUtaa8(|T^L6xx$^N7SM36I`*G017ro$_ z(U!Ajp~(e|9tiz~2F-{#S&u)I=Wd1_v)H9;VON-gk!sr<=ipH@>#GmQrPBSGa~b_7 zG?prXG9WiTwhel{@z>58e?MpjVx)ly-=}3|^<}IE!jA5*2Kznx#xeQCkR=)e;zzk{ z20w7GN#R}nq>*vlN0Ofi49cOwjx85cz29E*g~0)Z@{G(^i>UoLxf1g#f=)}2Pxt0n zAdo@g=R-k*86@71{A`EdSI3}AKGn6{Pg}l;@BU{J}SQ2MGob< zN;~57R1z9TV(FoSCmJryS2aN2MP!PY{Gk#ek3Uamv^7^A)LKf1dU|@Pd9BUa3z%P( zw{#?q>pvT!N|PS%r*G197?vU^f_V?=4&VW$+5vHAouJNZwm(ubddO`gB9_GG<1*O^ zn5I}&l{-la038F$Y!bT6fOg>TGG1Zhh#HNXd zM#Mnfll`@_lg2qAyjMyVb#+sd`h2X)Pk*=$M|R<5I8a%bg&oXd6lN(Y!*bf8e_7KZ zuU5@wviw$J9r1ARXfDc!@tr+ z?#p}vId29rZOpHy_0P!gI>}PK3zK4K;noo&ObQp+negBK%1iHFm`L$UrlKTAeHXM2 zUR4{HCTP34rLh8_k`mMe^!-w{SZltwtskQQGE9Ds?SNvJqK96ZdW|Pgc#V&7X>I;JlyxtdKxOIDlI5ltS!#A z6MC4j=7$Pp2x7%av3g2oAIU0A;8oKeiv_Y(@4Nwm3pdMN3V!cnV!X~npR5coXLwnJUMM37ocahkuy2$ zSbj{++ffqmK!5a5LSdr@CR{9M98^hBYS8`usNf?_OCW}T_GTkjOb>tbFb=!e3$E@f z+@i6wVVyws<@WhoVEVru_`PESe70go0>`lXZkU&%B(<>3=3SRG~SR&hUbLPY^Vps!EG%WlXAcFopUSJ`^XmhVb$ z5}>8y?S9l`UGhL=CCVkDDjMk2NEjHV(5c)wvk_R*BbbK197wXYX`r5QDZEvfFUo^| zJdZdVZ7kasZS~?-v3;|>yeX0}X5NxbF>o-Re1)AlbpFNg=-*ndH5n+-F8{tEM{2S< z@Da>n+RO5$uhz>K&cnlzzh5rA=@u-llOx~rNoIR_1>wgAzXbJwoBPxyrZ3(KQY4>_&%FYu_9X9p0Ch!(JzRl%C?>!M6Ql(^7@^E*uY9XLr zNW$&E&$PuJ{(6wF9g2LcbUEUU_j&_L+lDGIb7CzDa?t(yVbces&i+OZIgi9$+HQ-K zr2fa6gQ;r!O%zaXr_5jBd?zsQMfkBlnCmPxvx!MVPxdO`Q}1BAF>l;Utc7QhgA59W zweaNxWCE!vZEkb(=Z2qyKpg8VaGhwJ?O0ID4|%J#@3q{^Z2bAsEzb7+RZ>=xYC(-u zSn)al-8MXb4g*o289pI0N7$5*lM#I4yOd#=c{TtSPGq2vh-YtVUH$P9f6dF?T6@|T z>KJys;lMfD6LZZeoOaRUgWHzpyUg@q-hxbf8DDKMq$&yzzG0DA>c>hJF3_++30V&_ zt${y6hC$?7`0@Q7k;bqP1*&u##%gj$wPbglC|yU$_2Vsb7O9*}+=cMFn~oh*k-?*E z1KAf-3+;>>f8jS>Va++7KDjNF7d$yRfm^Xkh1FJtIlZpqj-U~dy6cA}tLPYIT}`Xs z?e19Y{DvRHjv@OeM|ode718KLh&JmzK}}Mp`%&02y@NRoXG@pd`Zu4zck9+*4g?P@ z2%kB1){4nOwjWubSHvQGy<2t8HhAGu@RK3X2G?;>(26%6Ujie`1ydT0-Rr8tD{TTa z_8yRjq4vdnZ|isG*XQ92QUtlNSP5pc$^{2MKi9DmNHCMdM8C6HfJCD+P&@Z8u8;sbnjP9AhWRO~+TTY=Gw2F*2XM1n97 z#Z>7n{9HelP7K93iRq9~5t^iy->@Q+mVF_}kGRx6U)xrNor=7>V>`k6jj^n#Z9!R~ zvtv3~K&A;#ra~)DkC)Y%N`GaULXgkU0G8htD~y>J^L$-~|G*>fRaZ!rCIb&YoASN) z;|RKM?&W1)yjMe%k|KPoRdaMgpX*%Y!W^xAmlIlCMJb23rt|09ah-$gf#mK_a3(<3 zZ#VPV4h(1RL|il4h~+NS)`4kA=wr80=-ZncCKout4shPe!^tDug-M}*ZxwMwdIWtQ z!OT(Es$Y+hN(vp=vDOm5tNZZzRN$ZR{a#@_v6-$Q<~2GsvZ+C|@CET-d%2U`n(IKE zY4EoFp%JLE`!GxD`5%u64uwmc|l@>fdrOCmwe;L~8D&L=g7jkBmt3yLidgIP$yPb+heR zJu`f^=Rmjue#b8gn@#h9nJ|q%1fIcagBsxrO8t@+PuFOz{X-U=u1Zo6ry7^n- z^Njf+2cJz{Ct3zT_iGPVj=m9bZ zGp&<@TvsHqQ9EEGfR<~UE=@IE-#rL_As%#uhJ>L`OT9I#~Lk{m*fHejBHQp2*9q$@Lwx z(Z6{U+d=Er+5n%H50z8h(btrLO`M$M7;(EUVyrYG;mDhLBhqDIK&2iGwNv#Y9bM?N z^R;lFpk8GF>Uji@w#M3g3hvfGK5&tr%5Z7uAXHkz?7pFjU{(uN_3tTBRliL|)M>jE zManR(kp!v_s4cWRSf=O1q-dp-a9 z(II5pCJU1rUp+8s1zT&*wWH^Wk*?%Zw-|$(*{YuB?Gm{?TXL1A_WGy7Pi26U>Lo`eL%}L{)6Vyoy`?^`wUxWZs(*`=Vsa`hYL) zYUV!h!t>i z>;9h>o_q;6K@OJ}U}sv8;t<`yy-zoZNH-VB0^C!N5ty}&8`EdFXgsf~{mH|!9fhCU z#!y^TXJ6LqCT1?_QY!7Br zvsziCv{>=Yh}uF&<%}nb77n5?$Heb|v)>Ixd2$)hz_ec@)U)b?MmX?Oq5F;%nOa)v zmYeB-4@l5XKv}(YLr#9asfUV^z9d~smO$ppsANnNGf6WN9IKBd z;&R-=(7>JWK>?v))Gwa|O=R_V_Ii~e9{)1al3c5h6H)15d@om5(@}b_N}r+b#ZHFc zT+l?y_>5Dpzq**m#eKS8iqo$Xd@;q5nbwnFj;70JEBi;nl{86sYHN2j(wsIZC1``x zGesn33Ir>Hphfk+Z2Nf-nmt@q>kuw5a>`VHA+b@~E>jRoPfsQDi8zwDw&t~Jro$)l zoC>cqlKWGAx}Szd(ZalDowKDs+U0GPyJkkbe&n5nLn59zOhd=U3cXl8fj=?z2EI^O zu+WRl2|zlwu|zm%g0|S6k|v_h{5ZG;vFrU|V5f>VL}=yYG>>O3l%`>6+~80zo`9>{ zK_ck!XBg$J5S!z|&w`$ZGemcUA5G`;#U1SQbR02(k7SAIBh-Uh{uFJk2B6_*lhbwi8?y!ZLpAk@ zLE$OT8?G6lvYfu;PC;lYkAtHyMC?$gpA#P+6fkg*))eY85P!sXs{WyyF@8PehE`1P zlf5cMo5$W$!Q^Zi+((L=t~47z}3Fsx8&_0F})84+=mN zhZ>Z3*B11#v}@)ZlXc2-eK`R`onjG=AthcEc}{eah3PmhA9^mB?aR8ceVT~P2xm5T zQRMCcf-)gvqP^oIBZG?$VRJq1WI!Dx9PSGwf@Tsx-t3x`D^8Q!X0^BlM0cBQJH5UZ zvFo4gZ2=gd5;P#I_o<7+S1wWu^8(x8@sZdU`&CWGK+cq zXKx=EpeSuDnJMZE5)PmO2F-z-D)I3Vv4G8|Lupn)U|{2DQ_+lv*^neHN2m;dN)xj94<~Ff~O;9>F?>)!#6pOP{x1(RUj%Fc9IUNvn8mTSg4Mvrc%G_)Qoi zA|}<3*}We|AaC9rMLFD#yMf@gAd*D`5JYC+(ob{(-RL|OKWTaw#-s}*k7&e1{U}Nj zROXmBtbCch z0+G9g3(`_(C)%lNKsH5-O`u8Pgzz z4Dd1Um#Y|F9fVTos8~U`7})mM#Z;p3()%8o4@c&B3A@1v$I{{wKKLM+j-pZ)H&pb= z_9CY8M!PEODa~+DRy?#R1$sk)6L}k$gi1=D34)sn$E>rLtbKPQh*QUxeK`t1gdO#&N*=LMlW=fHAXgLUBEP2qw*9tuR@4uj-bv*jq%UAA8OQ zj5ufqeA#!teN!HbH39r>VQ%QK`F(P~q}-UIpEqyzLW0fG%?v4BMc5eZiQNht&lp<( zn53^&fqENnEnh)oRmD!H&DY~Yf##K{IdAZwkOhCdJi_NryY}3{fRb0?D}qOM6%;Ee zHXM5y5_A4*_mgAZj~WzmGQ(IQd_Fcg=+oCb-wFhB*&b+}>K0=%J8Q*DZGCY9~XQS=9Z+J+q? z5(Nyc*x8Aoqch6IJR!O#(Et3S)5kwL=fkdTsWev!_M%e0o=a7Q@9sXMbM6VTCEm(w zU3s3m|2KRriN$yWhOIj#w5^7N{a`jXwr-LyEphwNslz(~%h_@{gf1_6t*swc!5Tx| z8yW9UVo%Ws`ul3-{3eTnpXvc!XLm&V0ZEqw!0gSAx^ddZBi#r05^gx5Qt_FQ;?{4P{3}^ z6>L7^ATftvwsU6MJQ=Y(sQ)btmyYWsFF?HXTycTxv#U46TAYAxu1ED-X$kKFiv$lx z|IFU1PtBvm*=oT@D2%*B&QxNMwsQG)R4PJ%tI5Qt-5S}2Ps68ItTbA><-$3hcsP~#wH5#ph*Y- zfzhZ0_Fa1UmQin(0B@wZ@wG_;Fhd+$5M+s*fVE6d_>&9tnZxrqF?sR`#9yjm;^HoA zR-Tl5h5rpdZ0---Crkv*EM7iDo(SI0rsI~>xkfZG`Qa9}V1_M9n867{WdmL2JU530 zWlbpO6@Ib1 za_2OYM)I1LR2sQtx`0$Izi~m>gZ2|-vRF7F72UVU=Kw#m5H-$1jt@L_4C8qRVTTxY zQG_`RD(iA=)c7eWJxfEa9X)QGW%NX*!!P?0>5Q=W#GyJG`nE4OrRVUDj@+(FFZ1mB zBq>QXDJ&-iW#f@^a2`)l(4p5;M4Lm2(4vj~inSP`eGen0r+;4Ht<>S-lY0j`@*36w zREN1MHoog&kd=m8w!M1jUNoZNWHJHEg>1^gLgPNf!a{FED@`OUF>@ z^wkcehHA3Kx# zLZw60Hq&{-yrL0g_(zY%V+#nrWg8};o=QeK3HQ_5&o7UfGWnqtdvgkjY*z~flbnY6 zY$%f*BTE-Eolr|4cLNCVh;&h;%AKRdr=^=)XUs&xj0s%UOc>#Vb^sjYe<}`;JwQ?^ zpfhNPUkO8{!$xGJ>&I-&kvHXg2j2ntKZ@kRH>!7!cXxDl5Oo@d+as<8wt7OI zip&GoFjoUbx%0^yh-hSv^|Zv)aNX0=>W3}GrBj@c5@`E@-qhq&)xuvf!Kzn{)>Gs- zj_MLRf;YE4x1y8_14Dj1H;{PFpvaq1E?+pg?d77TshQMxJQm}jvaQKQsljQm^XBi> zc1G{8=2d6)MscmSUTO|F5^o3~6LWhq=3aN|^qkG4;1VaPB~$fL$(a||o5%%MHojBa zQ%8+LJdWH4Bm&h7?9;@lN6TKnfwv#~;~U0GWZTJyF7;-X6ZU|KzqSpod9QaeFFLBf zbSpYs$`unMj+TF3s|r(9I~~(H;#O}h-;>)##UcCshPAL;}12il-ULl9t0nOZy(F{76^6 zV~-rq6svJcd`WT{neW-tn8~`$( z(G$$GdLeS>OaS9-QlA*lV+{Y$5WT9OA&z8ly19d)PBvNO_+(Ce1_Xqp=mw)`saHq_ zbBHGXQUrw_ip3m3hKj2b=lTXeL;9uoJ5ROkzZGUHfByxjFq_Tom zf+|fM=5eVmsALHpHYr}3aJpSgNu1O;sMV|D1Gh_61=i}A99A>l6}oqUON=Ek0LE`d zl6|P9c}oFi&xcBs6>u}(AX^CuA%M+`$K@Y{V;_yev#2Y^r$K1g2XXpvBVV@@%xk*F zk_aCoDV*IV&J?*>c)__K^4C|lm-?CO6)MM~?fQN3-&SD|1R!=V7?Bw{6f1}LScHvp zki|%%K`6Wl8f`^KiX!JL!z}hoR++fiqa;-nCgQ%SY#obYn@DC5zal6{?IlluS$4zB zcUp4w%G<$vS-Qgs-0lDIDTN0;a=wK7XUR&h=dQS1sockm+;QGSr`5Mx8nHJr9`}A5 zv<1n74E1x_rw?iz4r+~S{r*4p@y}O;Pqo&5y?+<4G*^uNx#qIF_s4s zA%IWj>4Ma2F;!2oVZc?@kG~v(U8;In)P8|$zk^zm)(pq^o(tk*p^qqQdz0V(fXN>{ z5p^p0bHc*82O#%HVAXX>bKpy5%Ok%XA+Mh%=|IOkAi=ojz(cIE(xa*pTy!Kj!4o6Uhi0I}7lK17N{{qo)#5P98aW3IX;dO{$S*SH=#hU;(lZ`h?@n99&Yl0Y zf|>uxgd+h*lfk8%`Md2ynEkzu3&Je$=;>r|2maoNE4WH<7fvB|n*VbG@@B3l6B7UT zJ9Z!;8IybzoQ?eIw*PhaS2tX}`=JQ%DE_(dojd=%=&=7@ZS~4mSF_z|_dhmXUH{)l zXSNR;mwfajxb<=1Fm6YWBt(G+>2vhN@#JW5e*fIL)g%A=_+>l_ZyaRAPMgEC6hGnM zXS^^W+nzY_dpnP8*NL*q8%$O#`q&$O#Nn|5Uc@U;u^)AcIphi>%q0`K3jXXcrDkwMNxWwmua*#+u zlWJJJkADP>SW1EEg=DhXY&l@r>1V;__t}~ll`rXKN z=T1rkx?g5~`hnw(Pgg1?yUf!954|ya&f1>QMpb4y*XI2>3_oeTrtq-w(f!9Cey`*w z*=D|bQH}cfN2^1W7oIxCN+Y>`x?(LgXdx!YQ|0$z@8D4#p;Kc8Rx;b$(mIdXA3g7J zEX$HUa&p#lQ+1<7%%Wa)OoY*X#r|ziD~~R!DqEZiCbvKLT)z|Doj!EQ{tt5v3HPby zbKzH}-xoHIG%M0}OpYfuoa%X@fXCb(J!O@I^yxBBdUy9id}o4^LVjcL0e3%C*rmO_ z)67i?-Jges=fSGU*4}=eC*Bou$k$;Y}=}y;QnWAAxEc=2yvg?4P)MubdIfC z14Z$k-C-Z#F*Zn59GuvXT-f2&<<*#)rR$_-myoiNe`;a(89SK>^kvfG>B^_FhHNXR zMz6`ryb_w;o_)(#-^!3`-o1Fw>)CODzUPV{_+ym4iXHmM;PU4CzZJjoQ2$>78;Dl_ zyd74S|NYAR{c8PRy)u7qe&FvH{l8zCt)D(ySX%l2hCBs`fi>5jJ!|4#t*)$%iSB%V z@zpc6$IsToBYvyGN%8)-^H~ip|2gzOarQq!$SfcwGWqYw`*)Z@nE7Jj!Q13?5ud9z?_6nMQYtgWmNW*$ee$D@-GmX;vKnz>+;Px&7`>6#Fqm~dh> zQtw2VxhBLVoD4|B909v_JDQ3;a@74K<_w61|A`XTmKI>se|8Q6eEdJL+#9j|pN&)E zPn`PaSRju4yV~EWVdvi|;s3Lj{~2kv-2MFg{^MWTFS5H;mELB7KA2&t`Wp-9g8yH} z`+r&Rj#;WdNBBJGh|QrbI~XvOpZqazD-MdtXm*qR4S&dLgdh z>N+#@^KXUk7QQiOX1oOS>F?=MgChg|QO`v{YG#0ZHA&4Cw38t+mME~rk%K0`I496s zrU))`NF@{9l))3ii6836W3jzF1zmXN6iGNljb9&a{n{jr*iqx0M z6H5IDO=o?$Y}NWb3URxB*tr+55o!Ee*L)X6y?1=e@7?JZNq%D9a)_?@^l_8CQW&sx zwV@^UW!#LY$0O@tiSRqbHLr>ae9c_O;#<<@)R%vFD21()9$VQVNUiBWEOO#hp3JDs zMUCD%<91!EJlBX*CKY`?Lopt3HX9*in;ZfIk3dRpE7IJBe{LBZhWpWt+I?X8LeP%E<&`^OSFn!jogZ8mYb-QHKonnm@VDB=#kb#1kkAA2i(jzhv7K{0Whu z9~z<4mfrMlZvsLGP3gfy19TSne98|>Y&cvqsFJ7i+V06f1R#5*ZGfj>Bvp5mBA_P~ zt}B(ekZ<|jEBjSp)DiEwtljaWJb>gJ!!}pRTZgtkOX&&Jt&z~S2$m~;eAE9KqG*rD z*>V~rMyfEx8&=d&8SDLygbKqgwr(K%K1@=bh?hOY@9`ox>m)YpzGO>au9dUGKVeKp zvJ>)Yzk06kraeKEQaYgJ&|CrAQhHy54v{#AZOkWj_G3X013!TSI;%K8(qi3;y&<^| zdIJ1#->Dm|12Y&g9@4CEXp~A#nHFUYSpMuF4NRm6f)RwN#a6-p<@=IJjql z_O%}x;O4#Ycb>Xlzw;qt*rZ)n>wPX!4w#Bhh5F;Wtz{Jx!c6y&oqp*;RK{SOgp89aTdcE&N-o=s7o+VoNo{4yySKe>g>`xv-oR|R( zrSDDx)wYtRMHgP;Yq7dH)0!!6t0ZJUdWc90)xvgB5-F&hnOyP2#02nKghC;JKm5MB zg(Mt%G1u<>H48hRg$*?6CV@0zDql?ld9%4~#A{1lUz_ihj>dLTEt#|Z?8grV2HRl; zg|E#oxalzMqJpKD_UfTFdp6@EtH9(gVQgw@0xwH%>)oIivp8}nxy}c0RUWtr0SAik zxU(uMIE*_;oIn8NHGv|TT|d=A1z1Ppu~cVx2MeN4iyv>$|IjBq-{G@99m;#1Ge_i)f_ecY<#*~*K*Z$75vVi;p!^w!=^GP}|J)14OqJ1sWsd#(K#_*tz3)EzfB-^tgnudH)E zxcj=X%df7JcA7a?lhHf&s~BXL4d*Z~%A5qpkN9+QhubN`^H_isik?_H}joMX3f-TK$H$F3WA{n+Df2zwN! zbpP_kvirljhF=VRsq9w*USlYwKccnB^^d^8t9CqptNrY{oz}XtNA3o5Kfr#k%Dexx zabIVC$na{hfw7m;aP>OpS4tLp+>XB1wm@DsFn0TqxO>~bcWULf_xhchM;fjwY>FxT ztGy<#&bRX9%P!T&7Sx5Sp$#lC72OFd(dvZiXNS}q-V8B#D037S+@gYQ#^t zF>a28FYbBCWD^_a4*7K^VjQF|Nmxq4oIgvrp5Jw>wYVc?E_OM;#rG>9e%ob!Tse<) z`ecMG-{U(1q)N$9j@qQWBVe1#odZOOpFl<Y^4lb3`XGCW&G#;d zXr{mQ`BdCZPA21uZIqF@7aU}&I+~W`l#8O_aTo_wUd6WuCVoIP7>~T^jAyncVB*aD zDgAQhhYHSF=9pYFZ<8(tHNX%}w<{ac`*mDK^_ju$BbT#(W4KJt!pl%y6xn!Zi#?ew zTV{#THVTUG$!~X&g# <&kU#9Wzp%AUD!|9TE=s@q~-sFs?w9Ri${zFoZ1T2H5VX+z*bi4vzuhobYfO>( zx;5hq;NP5`dy-P!pP64yu2cnhK8mZGTi@CS^71?~cb7uv zWLZ^f^uCchzjW2CSWkNnB-iFuADlDq=$Er`*@OC_3@d$SVYQa*H-&~|Nu%5;{?d@u z6MLc@kg3S48R@2!cLDQ913$M0u@^MN7JOgP!?8n=^^;2jKAUF%&_x$tPnt91g(;14 zqG;+uN%D8Gp@=77lEzu0O_gZs+-7g-?moAD9 zF{bwfjrvu@76Dyj!xCURfqPFdHi0KjkvTHqE~T`-_N<|yJAPvZ1Ki0%^e^MY!qjTH zuVYGs7o-#vtWRS@dIuZ7TuJ{ummUwjE!jzhM(mi9?!UFxKV~F#N%D--(RPVu% z!eWDZpkVs%xqJ{C-7K1fUI*!cn>!t4=RI|>>b!Baw)vH}`Y-KM-PfFWX)oxfBZ6+9 z-r)487I6d2F(}jX(JEpQ-I1)~40>c-Z{GaiDW(U;Pr_uaEJ44hAne@Gb!s>pgPFf( zk#xyom)?stau3`bWsYxPGZv|Ls1!N)umiGnxIEWVau2ya;?gDC@_hZngjB%Bzlf;h zIQ7wl;s?g~JYTE#ApgxFI7S<#lEXeR@y6+!Fbq+0{zxEWakdoj@OVh3y>!>(o6yjc z3rV_wM7`K5Vgcf7(0F(|jW*htzgP{O;C?<7V!fVSg7@tM5>0KSTpCm)K#9KAhM^&je%=6Rx#pCo@DvBNrH?Pu8A^@nf73ae?B5bla z5Eui2)}m1QhWTYZ5AbVr+nbwrRol2%eHx@bC8guhn|d}TcJ`4T=IVhk{rBgyg~^Mn z_lG65^P;k)PuabEMVo*x%T0y)R9U^0vQzzD_IO_Poww$w$O&Q+wBVGOW3UMO4x=i! zJC2a&)+~|rpuYuDC1M!xK%wTYf>I|km?oTXXl(qXVURs6B?-qk2|O9mb}3$!D2W<^ z#&+`JG=t|i?#HChFy=uoTsWldXbi+mJRvfzk3Etv!qFB_O`EN5@>wyhLVpPdVn%P3ER5~f`*f6EqTp}PpAYh5J_ zb^?*vJP!@S2WLyJ?W+aI07Z$Di2)T7<=$~_ZrSgjSzNoZ^{BC$_m-`87ry*P*DzCh z+;4Z?AT`&k~H)qQJ~?myoM`?Y-U@b%4DL#0Qci21H$v8}`) zIZRt~?vB2;qC6<(3d)@)O8$BB;@{stoj;etPBc?Hw@VudMuR*{) z=@heq=gDPFO;pG;Wrp_rBS4~fdoz}|JGJqFGl;|hH17R1UymG;iQ{#X?(n8dJ71fm zR-`Ny+~ruKnJ?rV_xxEx-61~}Q)2-ik51ixePK@ zASedYmwd>L$;O?%z!(2)9pd_Of>Hu!(ny^ZS>xopHeZ03FvKJC!WjeXnX?(;3xXk_ zc0{FxGk%Ok$xa>K6i-?j6#MoH^F8~eS?Rr3gqXCiW0*H_2NX;m2X2)t$A;f?N+>vo zia%uBLC6Lu8Bne8Mr++^cwyDCFgsVJMW+L_t^1b$eQ3}#6OHY8cXg^S{H3Y=(ohFH(ZaP-h|+*d zRmQ)28~zrv_rv^VT=l+!`x~8a6l*>=m}7vNcS7rYN!dfg?E1#U=jP{?bU~ea>{toR zeVu>q8#kZ3dQX17PDVSH{rK7seu*dTv?TZI8Ge>o9X%Kr91X|lfuVq5uDN8yQ+LC; z5|HM6Us&vMw^TY!u`PRE9F-U<9}UiwJO&W7kzcM#@la7 z=pU4v2%YqO4}97Yc+8KuQgw6fClPW7Y0TZ**T)~6<|GQ2!|rUFUR1dUBzDl`@wXKd zB2#~=jCyLFXcOt%!tO2i>I6rwkMggNLLGvIZxh&9RxE_`zL$Ja%$|nA)|31zaAl*w zX0F4@LmB;n0xAm5w_{5)l+2@yEH%E{Y?EJ^Fx(F?mSY zbd+3z`{@cTf7;LZa~b(|3~js}qT!&CMN+f${LfaNaJKzh1KJY@5d{n)uKYyQP!9

`C@`KblXTK~&3QI(n~swMM^tojO*!j!(ieuG&OX2yMFmBIh$sE+ z{Hf-m%EEQS?`IDjKQI=nu@?3|ZY{;m-2M65jc%t3E;YKYJp^}O`$fTMszF`BeVy~C zvn~5o%-qi2KPBnD&c*OAC0Fp%OJhxURYRK-$wMN)$h_amyyY8&TWQin!xJ={Kqn8 zPG>c^$RVbiftW1o^Oq~4mpsJq4#jbiN^k3Qyj6}oblUqMpf`TMzQAaleQjd`NwnJJ zq{qAVv1|)%*2-;Ei1L6P+x%s7uy>eg0-KJNl*Me{6c#j?F#pR&Vk`C|eOuZxzYoXo zN1a_ZzT6)w%p#9jM6YjaBMI8Yb*%UGmmGF@izDc0QG(_1;giml-iN$=cVf{Ea>@Lj zm96!Q6=wPQL446Dgyl_49lmrxyf=>w<;#_rR4jJa51$)L5aVh0&Zz^ap|pK)NY4_{+Iom1*gn zVJC9N(QTogdE`t2d-kEVr1V-T`M9kcvBy)j5m*~#m|d(qJ~SRfk4jY0Q=K_6*jx@T zjcAapRvWlyPH>e?HI3}7^03yKmW@B5PtebiGca!>xa{c_^ttAt_~^s!YmlZ6py9AfS%O&cy{c-G z7?UEY5Uj0lcR=HSk({24s}ifxP228_1FLy(HqBB}TA2_1ZkySbHtw5hJZO9U;209< z4io}^g+4*tj?hXuHPOVPnwg&m;vIrN&+s%(%A(DL?tLBKgq!$C*fBnlk&=S;8!Dfx zS>_k9ferw>!_KW?{8@zq^+E!7FsAf0k_4x%n055F_qGYg=Z5V?!ApYAh{hcIKacBg zJhy#^a#`4eo#LwSX)z_*(m71>^s9AJkK&F$N<2S&Dv~jXk>q5$(@$G3QWSV$DJUlf z->@(I3NcBrN!4#%Y4M2hIow<-v|XafFCUE_!A%%3iD_We&jiuy_YKn}K*Nw_*6myV z=VHxfEFW`1+b)qBHZ?ulVb(avhdDJ60U&R-b;^M}S@C7f&=oF`9Sn4)-sPibp&k;N z22eX8;N}WXs$IL(y%x8a^MjCXD3EQug0ulB2{Om(ja{-R!~21|cQ=4sK|Ed{RdOl? z8W-)j2=xmfKA&FCgt#8t0}KLJylkjq`N*9taA{cwRKQ z1PmUCULU(}_bI@wF-@Iq{iJ^OGCJ?-`^{l_<)N`mYYd^1pkbbKC@!ciJ+)69te4@U zc_38nQSHM`bBG5BDyXh?)?(J-3v5>TuNux=ROB`T^Mh4{N&QPZt;Qm1h!bgHxDWb- zu^yMQ0zjR2bJNU+m2I>ETFlfL+Xu*;z)N768_FTfWbQ~T&TA{1C#k&nN@kDdb;I53 zAGleMuKq$HhnBlCuiPorEtMpfSE(u8OF3qb+ z)?RF!IO_zBa$-+!GID4Ln)XZ~i_H2xjIU$@m^@q9INwf#gpC7<^b5fQfH&sVpQm#G zO@w|`)&NS;7!KkSs)U)rmGT#7X%I6-JE0BTxDid;BHEJ3{an9wWzzx>&Fybb%5)n4 z?%@Ejd5~BIw701l-vmnyhStKgK_kZ4n_{P6s}OHmSY`;S2?DL9MjpgV>Ar*FPls*o z?-^&AU~O9Cmoz+!C>yi-dI#i8<%}w9dbfxusCH}!0S~Vvkm+*jH@hgP+<2oZg)84E zdd*vkt+MNf5xvXZ`UDC=Bha9X9REQBG^dP9z4~I6lp3wLU6-n-A`sLIXD%MvnMi%t zt8lJCtKjk1aj{jjz)vJ#{I;yNMT&8<)EWx;^q=lf&&+PmyQ>f5|8 zdca-^RB8!IN)7>Tr_aOCc5aE5>vDEgKUD=q6~6GtTuIr7@7i0m57-^B(=0l*Q?upo z;;Su3eSKGgN_X?&7X@KTKg}cV=xQY?DXH{7-0|U`Q(o!0um<-2lgBP|`+HWe9Hd|G zj!&&bl&1k&(uOH(kpu(n`7W!Y)y8D~i+l?sDLa)#;e4HNDhNVLN)tF)gYUD;u9+=; zxoW3BmY&xTAMEd=0^6h9)Poa_C*LIfP?~Z}2nr-G0R5rq`r2Ek#EWbeHhLE#SlmCD zJX8k(AEHG_>=oZvcB!SVpr@116$a?5akpr%XP9!DM6@?QxN~)K| zO9#_ot;dsIZFI&`^ko`z6{>AOso86-GH7!}OriovsX5+4O$Lq)@dV0W+ig)aWOG$> zrSqK4#TI9(Tt+toh$5wd|9xNUk4#f;B4wH5@x;YyPgXa6EMEP!e&gyMo$4tu^wS|H zRu|V`iYhDhReY>8JXwt9_L&{EHQU_WPt>+TyoKJ%Fo*mqdkCUFf@wRlXM6h?0#6`m z=*)^I0T?FA4uwr*Lw91AOW2WvX3bi%5B3e9aY-TLkhm_r0|@%C$yq`MmLNJ6aam2O z6Y+^V@I!0YjXT`&guum*p1egpHhf<1%yDab+*!>(kz_J-VH3n}C-ERIM26mEcaz4K z`a;bnysKwC3C}`P|l-C+V7mNLURD0WPGo%fj&wG^tW<-u>Fz*?kzO>qR4r-;mD8I7~;1 zv$do=E7ct2qVB7kAe))13`cLz0&PH-pP$*UeK^R=LPv-UOd zj!H&h2Snvi&Y81OepCqhl>@)R4P51d)wXpm=WO6Qx;G300YU)*L}9?m&4g__&{y#L zSzHbj8H~(h|RY~JOwbq+Mvw>{+=HMGDY}cUtxw6>zs{ZVJQ`aR(C~o&r^&% zFB-oED0Q-KlELm)qa*kC1BbZd@6U#W46jaM)r@a-9+aQ;H`OEDCgm;29>_T%E-Zxt zPX z$`QHx?C{*5iUNqPg2*%$m|V>26fMX$r1i=3?8`b_pteZ(9WGujEEXJ4JfI9B#!^S;UenCw$NKR3B$V1aB_okz8;XO%J^^1o83JgEb z$>(_sb95rR?Ek>HNf5EKGzVO}tjZ7%nwL2zi5_49N0zOUh#hFe%d3CxQiXzlsR~b{ zC?BW0k5}N@zDn{?(os&bnnb$OVWI8MMW(7MTHR&vA#-H?ALiphGZ(6Gwrzzat%0#%5{EN z1WN@O#ry>o=teR`4d|>M*sOi0)l`ST4EVn?+fd$w&*Eo(#%k=s0A0msTF(G^*3`D^ z3XiNNKR`3n6XrDy4{yk9iaY7KKycy5Aenn-3 zS?rUTKJ-B;2NcMg>drtc*;RP|5P_bu4gwh$Xpd`!R}&hcH3}02y+LWNdn)Ga6}}|{DNTKw&vF>a2sh54 za!VSf^(v!`TGH*G`3K@hjc4yVU8^MuG8Z8m7dv%Z?5u;6qskQXK}xc!mlX0O3Q zrIG=;j-HO&idR}3^>^8ZPog#>(?g)+s8pzY6-=0J z{e4(i*P~=Iy@9#V(HKvpLr`A=tX-vc5`oDr3?CQAXP1$q%>n6&xQ!k@aqk4<-n7ed z+&NZs>L#7Jy#^u>IgBKHqOdj;DQwhThKB@+pO2x=3v2T0VS-|WVTNd4fn!H(fdG_1 zb4nFvyZ`xzRdE=CS8`GFz_4@EWH{*Xh~)FgM{~YOs!f(7f#m_O^h!@%o`z9pa~3l0S`)4wFSKv*Mop)TtODQ`Ug;LcpMpf&Uf zcSV)YBX`Y=-=rCHr}8#$Smn#ozn&)KESEj$=N$aFR={Rn^r|6j_90mW2p}B57zHYz z5??-f);m~j%JPK2ng!pVGVnQq_Y}G=w}8AIfq|j2_v>*k-<=jrLx z-7IICJlZ_!3b+b5UhKCSoXWI!_-OZ@ zyWhTo6esd9zvJoeizDI^H}mi2)`|bHX-L#SUjTK#fw-cf;;{)F`0-MP)7x_4&wso$ z&Rw{vb~LlgF4k_Jxa9rO5{I;c1J?>fc+v`Z|Ej%Fv;{tV8+JXaK&pT@eDr*o!^KT; z5Uw0w3O{n(Wd=G@w`I@%ZZa7=IDEY+fA^mcTzY@{XyOHR#Re(P_O^$(^sJUngq`p; zH%SD?urQ7|U<_V8_xf`@LS;Pq>O59ftyYGMdRI1jXuQXgNUh?#2!xg`4-;49_Ux}3*o|pJ#&y#MWr8&vlG|b`T0E&j{`|@~ zCNj`<6WSm!n~EZOo4J;#=$3dElu!CSAn4wfhQq}) zGx+vJL~8e9TX#C)iNsY% z4A`syxr1aNHrLDMbl@1+*!Teklfl?V>{FkAzO$z!diNCPysaL(095RAtC?>e4u5I1@2SAj11;=EAj;MHRZol}$YIk# z?;6`HYX6|od^{Bg&4SN2RU)`O9Ejx?>gQ`bn+!TJ5PfZ#E@F;?Dgh4Wz! z#DN|WXrSMZO68zLMX1fT#u>;>5IfV^pdO;J*`0*d+k14uf=SHvmNG)L#q^BCB2x%W zGTJu=$xcVy>`uXK#*+jvBBp)W6|w0XttzA_z5d4e;d3fc@_dkFy@0GcnCm1d1GWi7 zPm2NR#_uEWFuvtP7s1z5uZ!cbA93)N;6Zs&Ss&4QH5Jm0e=Jh&N!x529oggOm7jo# zNZ&^(Jsk%I40$JbO%BU;CvTD5AWrK+5y3;EbASvl9nYKl}X8 z2|upaw7=BVkX9h4Auf6F<>P}-(t2E8kfx^UTK@4^kdEMAwuRTG3<6)B3BG%P8D6ZoY*5Ai#hob{QPlNprsx|44R?6YS# z-|5vbP&B$nPw)C1Nw{Li`A~=xUtQx{Ib!R&5V{4-Vz`Xp0UuA-l`_E6;^-oS0yb7J zLv2h~HrU+;0?2TPf=ByRoA4Z62!%uMV?xmcKjNst zU`+?@;tj5ymGhF!TGn`A7pcNgwLCdy?(--HoURNN^MRp0 zo6Wbe2jap~a8w3_Br58gz`?*y0X3S^$;y`5{58dfKAvaRav)_Ign}lCTqx9fYMa2h z;66zOh%wa{n@sKi#{`-UO%4uCRU)7`L>4VzgP75328Vu$3mHogx=ZHyoS7MuP-?>a zN~xht_sk-d%L4Y!UBy@$ZteApj*ar^4zNo|+JXkc8g1pCpKGc2}t@m{D7bX_Pq6V>bU2;b-iAeb?QL{Zmzf;<2Ua zR#w)~KaWFLDK#NP-3!GJcmACBPZ3i4J;B>)JG$s|^OL4SzKy(Y_36iN-y2?vM#yN1cfvrip1xYj3u4(#(@EI6}|C&}R~xVOZ+K}V^_;RU=`%HjJ! z_57W|`{zC|l-uRdcfkrklU{=P%s0hA(9!09b0E_cR&aVEF?jb~xg^K@qQ(B-ufJBZ znw6tezg}dbA@4t8*XfC*P?=*O&Chm<{k`Z$MWpr_f)z6(F0TB~U*u<$I)7y6fzdYx zCyO8KQzN)7<<}oNAb;7b0((fN^)KqkTpqB?W5aFFQu zQe@OQY5dgoH~2Ct*aKTk>nGyi9M*DTUtlA&>4l#aw$3q<=R!=cR&#AQpJgX-4AUnUUCV}4lespRXmE_8YpbX5HN z;#?>%#9a=Ert}MCHGTz15C?k{RAP~xJV*`L`^Y2*MN5EwseoN)4WHq#mv|k5ng=1~ z-bb>!5C`?CAMY0`>YzkV^F}USG2uWBRhy|Pb(RnZLPD#TDalJ86E_};HnRpeVMI3S zk})HN$!a2I^bDZ727D+;T2_?7e4?NZx9^nwor+;Z(c!BU3H09Iyt&FY2KUUqzQE4e2=< z%CFx8@20}bt2=h``AH;a9BFPTz$yP~`VV))@6SW@ZSD{(jzv7b%Bcm*WkgWv_Dd^iAcmCvrhinp@RTZ-q3FdIanl z|eCnj9P<~`_=eb|?GYTxY#hp$RGxX|?SpM|^b%1joQI9DZCf3z9~ zl1qOCKoov$RFwNQ1i*t}>#%kD*|!MR9oR4`_I>&=dSmY{z1YLoz=Yr7EBxS(+#8iI z?gE_QIe{0~ZpeT=<{IhuvrJbQ9OJ)HzPk&!kKH0aeXA%YB!2K=lH*RGJO7X4XVhN} zf!^MZF`_5!(0iMT-gfSxF2NAamHND=&y@O|Aayd1zM0VA8e9Hamonud3atq&x_ zrN5y%VmqO&j3U_|+1@bkwAx$-UsD@&!-Zm~S8fLcPMfPkB6I(Cu$HhD=g|u<{}{aQ z&22F%x5hb3=zY0|YG!6kYZlKT6)<$o^vd*gdFT}l-Iy%tueTp6v20be7KwhBG3~bB zwj9>?+7{*lJND<-iJ~X!{85T`6wwAePJ&VTHqVs_6LqzBEVPDZaEU`^S_O7ib_2Xh zc4EI|9%=HYw%85*?ngNs7N0**n4u=A%CGh^AD6cmxAL`;Eh@SfO%g$S2&;^pmgtc~ z7Uw$Lt3S_MX9avdwmHecUKM;5k(fUZ41L$057-VBqChy$Wm1MDIhwDjZdY~~W@Tm6 zG3w4ylQc{Y9f}zg$b`iqLoVCeh&3l}=fYj`4G*(eKn!OVTPgC$vx* zl0r@2sD-)dK==}3p&GV(YPM&op26xHcl7PwnDASu%)c`ecxZz0_#V%lP-XY&+f*)t zMmQ%RI(Zci!95$M*Nu{lp#J-w0T^YZSPrktqRLqJQ;rW{7QvUebkGph;N z(-=nZRnEhB8l9I*z-@x|H+LJyW)`A{QknDlr#Sx85oiLi?1C!tJl8*Q6YyC zh{K>_p$}Hd@B%xxT*qYua~)tOO>QhH4-#<3#NQ7yH3?YPLQsI%)<^Y^Htpia>^sQ^vLjGr^%nBbsaT1(71D2TcpjoN74ghoE=A~Om-J-@<= z`3vD=S0Cv@D@t#CVzJl`n!gMe&wVAcjiaD~n2a;hxTctyqdkMQc}w-?(6Gx%yCE2I zxjC+_vE69fHBOh)Mcni!a-d~=M|6B0I5+c17w7@uVMC@ZwO2CF3#v>53lKUA1j)7- zsDTKG+WyPjRZrA%zpEZ`tNVAV8F_x*uvd@4u$KagBblJM*%fh3CCd1q{N-6FH9afd zYVwCAGvY zDESwc3B43vHaeyD`_OEc)kM4V%JhZbh5?ztXpF2ED4>9;!_%DzLPT7!$23CQ$+#EA zO|X3e;(>#n!(Lf;Q5MuyG1<3diUvAi=k(f-OX;*b?*s8wTwM5z-lCq{t*jSHalX0@ z^(`>qfy5^U;st=Hs%zK`85F?uZcCF;L~trM_q13NZ9(no#0_VN^Zp8RCTv*XSZ+Wz zfal#jWWZl|29{azR70)U_O{@FQRDlEvK;!$_Fpi4ltW*Q-u&=V!?edXiI$qUeAIZC zOmMP0mr*kGoqp|a9JGpmxc|7Fb1mqpGO0~yUOF^`S|GBKZ0sgAs5ZI{;u0D35lPcj zu!!se?qM zRv}_ESN*7rw;Akx5HvPiG(2G%f7RY|j!3<({TqU6q2h4#?+Y!qnhsvaowvgjFms(P zniE!OG8ZHiJevcsFd#y&=k`{sHuA5baaft~mtnrl8qteKhbrYveU7-;3hb;9-D0hh zQk{$o6KWHq=eyUiCMtRZ5cLIn+JG7_(8GT!z)5E;RoB=i2d`5-os+=c3Vix< z$m6D_kr54^ijTra=f^%3=@1Un*BQ(t!HfL%KV>D8vt@!;thOl$+x|>W3dleqJh{J{ zVH!O|A{<`46AG;D)UDh%*}rs=N^I8pDri_zdjoQz@vOPc*-j5>lbqW5VYIqs7%W<= zq&EkMCAr9u)|Ue~H-(_PV$gOFE~71@=N^_hQ-{ONmHW;yEUo5iK^G!-b?IszY90Co z26E8T&t3U*XrW{rJN-IoC1>@7GLg<=ZbEcA7_>rDGF*L_HJ5dI++RT$6@0ImiRWg5 zY^6*ji*oLw%OKY6EY~R+M{T4+;zL8M6JAJ80`!7DJ7BV5Nqdu8-cN+;NNOXi#R{O= zXPUk-^f5exli?7Ck7dO+_EO={XKQH7vl2eJ?*3TP|E%1E&^@m0|Jsd$Qe+yH41_n(+{E`7dQkN#b2_{ zaPhRMVG}T7>W_05GDWUw4m)?3?v?B+orIR&)<6$IKG@4#W%eS-sP86LWt^ueJuRB@ zw)foZ_zkCX6hfaKOzk2;G1Kr+&f%9}1gtwq4Mqsm@Ve|gZ8sf=;4NjplZ;YH zd8#+b5BxM`owMuA?YrBxdI(T#EVu_m$3n^fSigJFS}`*0;ptky@<-?8@f({?XTyxa zbWydIl3g`59hyviz#`v00cgy_!Xpu4to2d16~odY)mDH;v{I$;*q=<`1Q%pz$MjFsXaB7oNJiP}cH_CQoTCzvHlHsY5BIjwO>3+v9csE`REtKeeU%&p(4U2?VuYE% z1SWo!jbkr{##f}&3?G){H@5}r)v9JvOe-Cr`fo}og>vsU2SM<`QUYi4kt4j8~`^BJ>UVt^(Ak(@^xelXja4E1vLr zlf`Q&7L~d^QjrObsCm2A65(Vv6J=|aDfX*4t^Bp70TdXDLd=UnVLdV)&nSmTlbkdf z#JP0j=CQrR<@xl>%j794CHCiK`sxqVHmlYX(mc3+48%pB|3KifkUWND+poAqx||jLxbUQ*6&_J zUni0Q>I`-A2KQcIIIxJaS-2a)v!Dm!o}z4EldK;;8>q1MNCx|{!d`CA7z9DzBQjr_ zrKnzvk%`l+IOlWE=E_rJ0Ur5SV0{r<*Xz+AOKHYIb}>j{RbbuSB-LwM)TdMAD6~dO z>H6yB&U@vaz%`ZgBhl@8Jslk_@a?`_1pjsZ+}sBRC$@nXUYI=87*j86Gb}Cj^oSBI zRprab?MwxqHhKkm?x!3MjYFy!qte@{_lEx;|e=m?j?L4wJuO8nP zA5Yms{k?}DlWaiQ&hvGU#JH6kSNIwg5bb*P^>6h4)l-H_PyE%RZ{axlE$O^MAV~Cg z4WIw}sJYdi3K^Xp59B~ie&5u`@T`LiR`11=L=C=u*Ip@}5Z9sHZIQc@3C8r_#IF{m zRmnsq8o&x7FC6}Re{R*y&l96h;$%Q)8_|G}Z24V0cpoXdc2@0YlH=(6GxAMxzgMqX zWR$+CPUgo8#xLr#Bp>ht^sc_G%gN)sPWs|M9N^+=`t!wd7eO0dzU27no1?k!qjpDv z&Vso>(L|#0{lz}-qcX>T^O;H+3*efVv>Qd=kCvS<_kR6Fyzim-_xERbzWfHIjGi*S z7MVEhI6Ch%UnmSZ>PD`=pQr?*o2@P;VmoU3@%`w53U#&9-zH>^4V{x4{hSPbh2qbn zG|+xH^Tgrn0V#e*Fk>82Q%m_zL^()w|8a1G<#%pFnoF66$d1Fsd2l}rp2g&3v<;wE z|J8T5?r|FxKeDG-zRr<%iWuJr#*OyYYWz>d zB>wS(zrX$8ViHIGseEw+2uA$lYX2!Fam46ff21QOrbhopjsG_xkpGKu{@Mycy8+`d*wVL)IBor<_dcdQjq=}7LXe|chr-;Rhqmu# z91@;kp^Qd7PwJlxf}t^rIXQPE=hFF=!8A$S#lH?WIQu_#pG3s}GNW#BK_ z@(VWS(-61~iy88($l)-xo>GN;)=TB6*nqa>UA3xcPRrfbnqG2;K1C3h-ae~-FRpM} zrZ1+qR;gvS=HADyspH&p<=TR?CaGrVLlRGgbs~-T$igB=97h|i?LL=3*71PJY>t@P zZvA0{+#?jKbF=qLVC&l#{7*j|{?=*sJgH-x`^Ve-kf&+7qT;7T-(kP%?^fP*BJ}S@ z4;#M1@sS-Dt~+OT{QWvx#P8#SKdsJTccJ)NU!{$gI{HG7&)pWeY)W~hd87Y|Xk7Wb znuFica@L=wEirs#b0Tg#B6j~(cyhoQr$LV8`CM<;+33HTSuI-hNQ~K$`uh8&c0#VU zMRWV+w&}IIKDW9otvsgm8=ci+6@B+c{9*87-z&#EZv=iE)7nl>RCxR4dfzp<8=n39 zZ@mBDJJ#Nj{7iNrz|mvP&NcL6?t>%lHz$>gUh)J5ZJaEQEZa&7_p1f{SVT^;A+}5dm*ORzDe}q4=^vZYe$rMxAX62S= zJ~bBqu46MBFlP55|Dw?Z;{w(tMCESQ-{%W?UOS40EIxY1pL^x~?t3M(>y1A>j|;@1 z1RHZfVFW5jMeS(K%Yms8lRNw}1r zCA=-GT$t&w^7fd2F4xp~>3+;gcKfwKEI*I&xXHiezbLTEzwP$JO)kMXEw91wc2e+}V{?ix3y%zUt!O`dj40iya?zM)JNnMd z%afI{`o0NQGLC^YUs5b8ejt+L+mtxGTWPeNZ^?JK{qVfu=c1e&xf&+d+R&3#R}}?r z<;s0;IDE^Y1<0eGZT!;z78z#Z^y}r0FU*}kG9|ngr91ArE}EUb&oUq_i0BQ*g^pdk znZ6-i!?$i;*vtI&@~oS;bxvgV^^WrIK|aE6+>i%&(#8;Shd_2R>C6#(74a);dy|iR z>ldEa_RY}PrN)OT#s9@f<1u+sbTFzZI4iF-=IgFU3+4sas-V-2yBuo&u*+=Ur!vDD zh>9H`Z=Y>G`6}yn?|6YVc|q>&tR$&*)cfdKI~Mon^8V*amRTo?YeSYly$$X=6(-W9&(`b!{fGw9Z`iE~!MmQe3`d8tU)7Ae+;hDOB7oN%G+xYLE z=ig$MFboX)3{ui28Kr%fv`bk_aBu+-SFdlyN&IxhxqOLIO|B~qb@BOFrm96C`Y$U8i zL`+A&?$$BVr89Zrd!%{2dBf9ghEXI!<2k;#UJ2jh3{9!9Bn0weJHp((4cjWSAB7EJ6M@!I= zKX&)lz){ur-%THt9lDjBDMH=MkjgSzUl{UNP_dINnhS3qhiqx6d?R0EH zgT1&Ae@H0L1S~CDk1=mOSh8-8UyFd4Y7dV}&F|l;YOz`Ws;`Mj8MgsgQWVP0TIG7q zCgWY9xOiMGJ#LRxiD>S;lT*%c;zP0Pb2V%ZN@Hm6vQA2$ZJn^zP%?JkU?wub)%l~Z z86YRx|B{ZMqIQ-?nolSVR#!HlQR;SV)Xd%*2%-#&9<(YReP<5Nq=N1K+ z&>O=pKcsVXl2VpeRRbZTXK)aDr%Qy?a)0IDu{?YL!Y^wtCwM~n@S$`RJCFJL?ve0f z(k8ZU+;jPIFqOKIYs-axzM2j-pSJY!3PhxTD;%0%&bmQmLpC)KCvNvr?{uEuEGv#sznx!S4jonuv66$4&KZ&+d*!K$NG@Fzo?M$afIp z&L8FFr!|!aN9j-3iiOWVF^}lM*B_2~DEqB>3r+^g!7)8|yuydH1+u3I zj{TD>?9{ePG2D)l4Z^So8G(`W;?YE>959b`{j^(ii7v<`Zg97uxFqYlzFAQpW8&8dZRhJ?XGE!Lv4(a-Mh!rr%?(DG6IE#UE}(J zzB%d{KMVvK!-&x{L|(x=dbXIoB*0v6^39xQVa7SsSsg-jt}`9YFK;A%FE^JuximE% zJtOPBYqrrdx=tJd8qxW{)8&_ZthjQI#G9{)p~h6@ z%qJ-eg-3QIuAit1lkeW1{64*ZZ(piNvW`u?xw>RP>IiX3(Hzq8l+#ldy()HKlj@Fa zxo9`YZhcECB-I=^>oFh+490!Mz4Z4Ni9Ipn|J&`t!Q+qamypC9>I-8z^usZ?uawKJ zHP>Kd?N;Xvx^(W}KcKF%Rb;K)&j5fvIJ@t9ev~;TZ{YZ2wn!$*8EW(YLoj}I9qk1=qZmOg%_PI85^@n=^|fV=4};M zc{ZKu-bn=3eMp!)f5Q`bpm~jbgt=DmJzbP+GuCIz>}XFr?oQfqjS{}%(o;d@zWC^c zFz=q}|1C+e|Nb|0u)x&%R1T4_brGTBITM2Vb+g_rZ>N%-gW=vOaoPE?)aP zY}01P#$el~=Fa=#H5Ik^P2^^Y)1oR&aqG|dzkuU*VKSn7jMq_whhfqeJxOUm^P_@^ zex1uAzB*$MGqubDJy@>Hn`&ttG3ki z^5oqCKX+%UI%%}ShIj?GY)IXe^(g?JbD|luP7ZP>M@->_FNA2;aDw3Pu3I~t=iQDm z(TS#|NFMl5d$byHJGX*Y#;c|oZ7cD9R+GZm_TT2D>7rD33|V_D0es8g0}Ex=6xaEw zdQ{~36Fl~U{DHRfM#4Ax(Oyn9r@u4{_qpbelb2Z=GGin_Qk^3EY3?`SzG|m&cs@%E zR-s6$i}p*h`&BQhkUfTqRjNL&DD&~f%b>^~0y?n+ojLCbD3KG2No1}y)gAI(hKR&y zPEg2A6PHQkTy^o@pZg&i82}Q9Kdgi8iHuJtt0H(VCXXiZ zT?}tH@jd08tnK;$Ey{?=hE9yy0Wi?!?1to8*!Fbl8nN+A9ubd6V8|cxxTCr@;TS{a zprefNevizq?ZMe3HEyf*!}sho?fP`{1UpJth25T}{WhUVTfAwX&v313m8el7E&6OeI zlYEuI*doA%wegzjk=>svVlVX!Z9|J@Gz)89$>jAhaMM5Uyo6))uX3%~c+&SEh%E5A zb%ROR*hE78!9u`+)-*@jUF)TV9_F-xi-kX%)7HVQp)I*!7YiUP@bl^XobUNys*9TE z0lJfu%i}S}{;B{l^N&CLP)kQ^)BTrYJqdZtR~%@u?-H=>2t@E9gz&b_Qv7B>-ocl& zHfDELNxU1_mD5i5gYL4#>{7Lp3)N9ZsGS7p^e!_V%s4HP+G;dHeLlORv)sE~OM7lKbZThe1Z zGC{;pxQRxkLjzXLm7P^w8ipjo`^InCa6GbJt|gKbz@oDkQ_zilzv;*@cgrD6-{~zN zoU7b(i__dFf8G@-V#2+iR(3>uJ9hSS?Q!{>l!_?5)>>fwCu;+|-OqWc0DE^!(=0Vn zp<9S}wS6IKqS>Ti_eX}Zw(lIYBbyKCn}ziu%x&B4`5i1zsc~BD)O7NgBBv~U1SbhC z?s>Ehy#c>nLZZblOK+{$37dY%zD4UB0eisn1i7by7b^U$pbNKo1dq|2jgxw*@0z?* zI~54^DHPp{K^J%hoP)(0IB^3y1L*^oT|F<*E^Zwz8}RAPX{5#Uth1D2XRxZF)K3R$ z%7_A!s(eLSjy@J-0X&Nr&wq9ZWhW2YnBmshCCpi~EPStCaJnSA?smcdomCVY)zE6q zn00h1wzcTf)F?HZx7+3<5yEbT5i>|0t$zL#FY167``b4tcC7@?G4f^mN-$!BIKKvx z0rIm7llS@jTn-fuU+T4`Q?OW;FLgkBZCHrPUK)V=9&FWS$PMVWUsaindf`LwFsx(f zFytF-t~A#H^nlgD`z=dXGEP211;K@I0$AG=c2%*)(G-cW?mbJ`?)5cv+w{`BMR|P+ zwnN5neQ(*taJ1(k%`&l8S%69@Zg^OGI@Q-2>hK?MzW)eK5;ISH>r(d(P(qk7g8{yI zbr@MqdUUAqAhz^YiuQ$9KP{UXQ?3FRHbuLMoD-&w&F)zD`Ql3FgBw$1-${I9H*mpm zDo%8;y1E%(mk=;JNghaUS|1&~QXM6SjJBsTH)lNXz%0bsvAgoNim`gTaTi2&DOt5U z02nPF&t(f~_&lsbDObRtwk&u_RI(Md;Ck-H(YqatF3N zXo>;94cG2P+?Cs-gPdUV9|>c$hhTZVPeq4y@SlKy=+k$yTl2iAedGB zZ&QkW7b}Y;*6^-y);q^HgKe`T99(vFwo?$+J(k{2$!J@zScw&L(`{kNMDCY2%>ayD z63&P>h}%nEUw5$3>c$H(9~E#1{4EPW#+!<5Dn@0y5uREfy5PU%g{CevHBtib)NKmp zASpE8{@YU3Q!VASYT^giYHL(P-nUL{PfdC<9lVOjPJ$4AjFuwp6AaWW7E}yXgHjg zU5(JA%E5td>=)0?H$Sl$mdBf)P0|4vrNM4=>Le}1$G6y9N@Oo_g)P+GHtu>q;tq~H zRng1lvV!q`-uB}S;~nR}NmJJl_zOvJdA{c#1Sa!W6N#H%P zA5Nfr<1|*?-uV|9XWQ^l@6xFQ0gZ8HE+lc_Es1KG8x&7q$KRvMr{oM>#4axIBT3bWVKHZM47v2;JPfE6~`jG_2fcUQr_P2$=Fh6Q%_c2(cPmqUWSLA!ykzpo-n{Jl|D^j9$hR zhx8n)$a!a^b+3)g63IR-l;(m(9)9Cp)6(0ri7hvc5M3Y*!YN#E75QCYRl zIU@FQFyN5iG9&pCpL0D#jh@4$v}cJQFH0MU=iWJYVQx3Q_%jO$Spa)!sT zTYwd7&Ks>V!Fz;`f1Om@|GMhg4O z8TYsViaGzmF|F}|fM15)j5NEx4U%ZtBz>IQKb0AZQc7r@zW@5oFuyJslDg_a7}hj) zBK%!>@myJ84(DJ3LS$KE4o?>0HeD&3qjHkNZWbty9cpw_=YHMl8`m- z&cb42V@2nRCk=BLfRL{-wenR}dd$fSeOMP4qHmT|38<|2^Uc22+be83%g=W^Zhv6v zB$QEo3&jkQak#7ZF%`lQJ-W+$_bs$uhOe?A%Axc*X^mh{M!Y3}>(bS?sO89uy&&XUbzy7Gqu3@ntzq4K$ zgN1mfc)MYf!W*=dii5cedUAgdx!mV?vODIEA+xyh>%r)v9feX)22cyyc`;3j`7#-I zP?vT+QOx~Jdv^0_!-9OL6)7!-*cd53HkQEA$b$zFS2x93!QOX(nJEp}ZHG~pR{9s( zIxKJTSiS*fjl%jRoj|sPtG>+e)kpRCR^t zgtScdt;^Kd^|hKNhgJFlB|t5H@YY$IuxbkPJT^u8cwYH_KC0K%V}5??+^NjXIdsa@ z-8m4Egaht{Rp0XN%(}QtyTT|4GmtU_7e0uG>S|dVA9{HhS_N z*C_5Xz3K|vl@+4rX4qxB9FP#ClxT0NZ`wB0%m|awim}e>vhAdY-@?du%#8bv4;ZO_ z2;D^-X}(R4FFO~I)P{)gODdgYTvpTWLnMrI(o9?J2mAuEVdI|g#R!ZtN7rG#*Uz`K zm19ICBesGB2RA#gMPjb>AZpmQP(vLbr)#ZV0=}6opy3LS%fpmVS0uFV?Y|Urg4!dz zC$odv$Ao6ETh74JaCl_(MoYA*yD8#`M@OJmYD-sE>9mtD?00enxO{lK=M>8T?+GU6 z?>CXtT5rDEG$tBWaQMDI-*52vHjIreNxFwI>mhb@6gntqd&mA%Dqd&dDHO&ULB!Jc zrqy1->g<}oA7_h;*4{M4H8X%ZNbQd!Ji3KfcF^_!w^3(pv-_saw$4K$z<0+-ZzNfD z1O`?y(i^V<|@V{^*ogL0GmZkyhH zU+(Fq@>X9O@BhXqZWhOuhAWp`I3-RhQ_PH#D>sYvs2y8$Su71hgXEbnwgaQK0$tM7 zf=`in%WYT399=f{-omZYu()SJ*fnymy5+}JyS;$R{pMggeY5LfyB1ewE2hHXJip5P zBx=CO-Q0HwwYAp&OZ^xUNy8#6jmJn$(4MO1<_In!87ff_pg~E*@yOj|+2|C7EZaQKjUGpVI&pc9 z?%7XW)sh8zHt(l5%I0}txdnt({PaZ|a#J;cabX-zcLuZ(rX%(#9H)m9v%I73{|vQoB! zM6wIvQtW#=;;eopQ5`4MfjSSOy{MMZ5(&5rYYD3-enw=ED`!ZCpg^$Ao-)V$_A+}Y$yRYGr-W8vQ9s6uHUzk#13og z2yHmO(!F+a~;7wu>LjK`YcsE5WMt@_NHbowhT zWfHv)x{9{Sw_HTI2;^iGo>ZNgP4tDuaU+iwqk+!DK)en6z?{+y3nT9d|5d&3Ns8m> zLLi*@^X(sYw*0v>OzI`Qd_T7_S1+_s|7Kc_=Z)@Jr+4`&!>(SFImk!)J|uvACVur> zzdC#X&vL#Dk8!cUA4i{R+V*7i;u;hND8_9uWl%hs(%sO0V<0_)Ba)e$L^xMSie2BL-}tv{JDyYM+!?niFZ3}*#iA^-`!$c*?1(#d?HQd zZv@}lofl>#yX6kK`b(BRcaXW5)Y0B!C&IvEMdfJ@^EU~NGi3AHbG{pLl01Hcz1}=_ z&69KY=j0^iol1F>;uyj3E_7`03MGKa#szSwHyUmwH{n@a{Bi~qn(o6oIey@_ToquK z9!qNWzc`kuXDv8@WXIf345=!}db*4YD}L&jjPxBTNrwBuyXx;N(NtG4lEh%w6U<`; zm8E8^^?@Q%W02-Y%s_H4nRpR5?w+2G0txdHVWSlpdT{g}g%%R4Om%$&Gv-=D+_KPQ z7UOVf@jAycISj&4{WyLB-T=qk4N*NOr(J*J*?*ld(RPfoih1-yD~O4`{k#n!!UIF$ z$pSR&Y=dOBM3Z(KgK^o9OcSyz%XG4ybl&!S&j0uLO3$%04Ym5Yl1au&+bm|S>v?2% zOi6mH#?GyfLY{-nD3$N0q7utJScc(kwA%6Xk1rSq4GkE5rMu_2sdHWymBlle!@7UL zpaEtt5P01$G+LLGN-=3d6x`YhW;toMy~E$~bYoN>?f)`d1~3hc%fw`a*AN5DRB(P&w{ zb1~GEn9OazsI~44LD8997?RQ0t1|Q#Czv?70NFB`?hS;^7rqAdp8FimRlMuesnmae zQ32vUXyuX5Qo^VSU%Skqi=;pME4sL`vm9_^T)P zgNeNEK(-81b>zZcOF8*$r~RgOY8wn=>HVQv<>}vdPw_`))_#7_9blAcFC;y|Cs7}P zi}_YKCIsYY5rMVTvMY(LTb`rF4{QLylfdnR-#18BJF}jP5b-YOZ`7+g(LyU#>}4N2iMia)V}xE$p~9J`q2XihwZN(Z=lra7ty%`|xBOv>i6Q#- z^wNHYe}6KyG~jbB)tQ0769yB6%FKU(+hi%2x zvf2bt>4e(J5eo9WctdV_^3t?_)raB0vA?O`MASbtjvzZ*X{eYAcFJHIxA`?Zh~p!m z#aQYM!c0crm(?8-O#UU=N2w7E!2d6n&OM&#{{R2qPl+wVm~-TONXZfsISd^fW{M$V zRw^T*%b}*(mCd2ELkE#eIZjMnhG=$~4mw`4W|~+!TvszQb!}*~y?^iPcKiL?&8^$b z+unP>UytYGdB2xW$u@$f10Ge*)rL=JW+k@aVPtjm?sUYpQC!`rTWg9Xz>+tvw$> zRbh3QP<-}r9(FuyVqu0UmMv@!+x?*ov#A)TX@n@&uqo|=92?PVz4#LE6S{ZsKsD{J zwEDTG@X^ZLZ+5OF4{q&r?ZCr#XS%wg4)?4&-l93yzGW25M5L1N%~$cf&FcJ+B$INL zxn{Bo8_mk9IUQuX5AD*ooZq2JHXprL=^8D&j?J6sP9>pGYf*D@39_|^!-#89;LbW! z-_4t~|J+XUkYkqwq1K!qaoQ_g9iYOwYdQ}L(ADjH>UW2i#vOFkljJ+8zqUhe!VymG zbM%2Z6YOFPx57T*oL!GTg%3!>xS^idwvwWrww$iby(~m|#y}r%k()8=AP0YnSmFTL z`ZqHj>e5n8io?7wYVWSkrq|-V%f~@&JJqs4?}~Cg#c}Oz7*m~){wrVBE)>uIg@kkL z&MhZ!qb6-FE&IL>HrJYEkNUaLL({MOk~GzK0~e7U@~$cRyibR+BI^(T_6#DUsCKTD zEDiO)0ffx^+l5uw+*t#i95-RI=>w`LB0k7*Hf^ExYniOWX7(zP z$QCQ@E?M`*oa3-+764c6sFfQ=%DrdGvYn_fWz|`jAtG;QHkYc&Q&qB zmu_62B8une^@^<6#vL)AICQ&>maY5=CgWJx#_I7)h-O^6n#~IcUmnNBb`r+{p(yU} zJ5>OBv80EokSlOYMjqp<4lDbpY_dGo=xy15xEm!P6oe}HZK76EE_^dDF|iavnlqj^ zc0bY1&%^A?j61YPZ^$x%G$1Y#hkRisu{OtuviAAcseGVK@?|tIo!3bl_6*e$E^>-) z*wzDz6W&)OapKhjFCN`<-u>l+MUeN#bzC-kVZzqV#RJ^qZMBfD-O}fH`Cj=I$X?j* zCk9V8BxJQ$(7j(D{a|6tsr+kD8|IdlA2b{v(+|qOZK}*pMq3-gGn-5)jPmngA=D#Y zX8)tC(S>+z7E^6^EM1QKrTL8DWm9bQ&ylo2q*m#WSp;_GfBP^UDH!P2%Iw4QkYLk19n$UXG>cquXh| z*C`IaIxQe7<`7)2%+#J;Y7l8YkJ%1 zNO_Vc28-orO*MB$L(hzvFviCNsn)Ak(8-&aw(g!zI_=-N*uB_W^BFno(<3*Ic@RQY z2gV~n28H#$-=91<9Ju>Q#4q$?v@Ja2fX0Q?o4ytYJludyl^PJgj>Xe-Mw#BIfou0R za56hC!;}?X#QripCs$P1C$8JG`;zoc=J31hn^w|RDe7f_p;YZ~Ka^i4lhT13LwCg$ z=n*I|nEWfG4r@l;FepJO{LY2-l>&{`Ep&8FtS^l5l_7z7!pCO(vXpi~fqR!eVx7-|bLk+omTKu@zX zt&S+GQxEhh&K$LfFI=bt)EVGn62yNjZvu`IIqeJJs@#;Fq?zxQfa>K-hc6m=y1gB< zRj_Lw7@O8?nZ%bX$6e0*MZ<}&KWIRb7&vG}u>HHsXbnh-H!~EtY1}^ECr%z$O2>dz zH`Uz2(>Pf$?b7*Avk<@N?si1678A zh}^1Lop-KxuQz{@3gX_n+h?n+2Tw&oEU9`E{K)F%jzj+aGwd!lfP3qdscy44-4HFWZ-U39Zt))^mN`Xu1d*9_M}ril99 zKGJe5r2@rr6e+F1JJ+sUZ308y1WqUV-+5giTw+hFZ_v^=a8*7V| zz>tl_rq=m4iS{bT-fLcR^?+Os;4D{gm3s@8Rpzccx>zbcc1rtMt?uTr40Lqht0$(| z`yL-F6!e=FseeGb5UWlkK(z`kEiLubhBWT9PD8{sugeFlfgwL(6eYwu&g@xp4p>?K+B{E@&7A2??3e5iYt?CaaVpFEzTXNjY4s zx2(vSdNHDz+_X@9avfC##5k+VaA`{!$AX^Qaclg3{hL_k0keEjSw|AG}{-(D!1E|8!g) z03K!lMvYZcZsSKXK>+dT;e7nhoqdH5SW%^kgW(4~l+dEg0-#0(NdNFxUYuPvwFX-V z%tPP+8~M0Mo`7X>E%{H$S)2qaeo5#V<{Fg+q-*N1>&St!h$A93mV$E~& zG3MFzC8aS;tE zl2W*LD>}GHvfkmx#x{^Z11PnH-MpPz{-E9ZUQPBb!|a%`@^X$AaP%8{;*E)bK1Dvs zHN0&a$ju&0jRSEO)ZLjG$r2#5g)$i2v%%E*lZqo81MlQweXD&)c4q@C-!xHUgDGk% znUiK}{k{QQX3E^+ z&Qi_HXIB`ZJriSBdyp^UBW^t)Qr77kk8gl&b%7cF|Mjn5|MP5wASc7#2Bz2djlvK} z^vQ2t?X{>3*i{J%iFvo9M~KrITX3)OIDXVt$-=%UjW$|SoWgoLM-kDV-?s>moISVu zA?(8At2O0+hsV2?spN;QAJsDC=))&=TTlzC4g$)tz?#72vk0h|yy_&*BRMAmjH-R_ zH|^8+ff8QD*)b10r;AQ7?d#0oYs@{TI)hu|=9m7wcNv8-g;?(Z^;tOqJXZylAZr#VC0_}J2B0Em}>8Dn8 zp|*J^enwUJ@ZqKH+u#%2_ttmN-|L4*q|KN(V97H9T%pIzHP|1SX-R85{?7&SkP=o%IQq^vRlj{CA-RFjry zxqLUcDbgKeBBTpd%aUbj3Xr5~6;y9hK*4S0!r7Mf+V)OToWq{|8YpMfsODKqPw3C! z4+iGY;!tLhbiNRajq&6!foY5XW(by86K@dBP1TGHGT}t#*IH(ZBS(b9JEv5^;EXvn%cy49 za<|R-r&Dp?uMxUce!fm7DuGDN2PABgn)N!-h%KKQoB(?Jl1Jk48m6?T8e<6ugH)s% z_Y`Xz9poJ-Z6VD4N9o?vDABU~ES3~Afk=!87@9AN$;*J6p`PIRCT~QQ7C~-Pl3nCIvm0 zkKr@@zhE)HoL4y+>zW(wi2D9~bkqml_FtRi*))I<9y z4CsPqP~~Itp})@s0KY7=fN;g2%1x5T!+Ie>soJ>_j-ILo6BMv12c6uY%Z2z-P~({$ z`xi`?=tCLM72GcufOG$uN_=z3XaG0x(euJ#9ni+s&5*RTfnUO>-DJ{4em~DMZjq-V z;}pw6IRM65R#*AQ29kCbJ5X>yQC08t96-0RD?tGYai>= z<>hTCwQ5?icvB*_;|gMX+cqOvOTf}!YSsv?&J;z<#?vM^SpI6ODdQDlLB(*(&?H7R zerOv_fa=gr&F?<`Gx=#y1eQ5Iq~>?1t+;(%fB+}d@t7Re0{eoQPRZurZ;-YNTNJ=( z&21C(sg+LX20$utGz|t9sDpcr`K1WZHBXrJyu3P7zcf@k01%KIL4F?$&dGVuQd6Ll zxm_0$QW$2$SnBBf1EUOB_2)!!o*P2EkQ6$ox%MtEmksNYfg%27=3w`=6L{(p=Trs7 zjm*RorGqLah#s(CaDjt>QabF;nxmmh6+-6v_BIqPCjtbbXf1$6yqF93i5Z8hyD1nL z=(i`_jl7lDWWM4!t_y(Uv+`9FpryqUBGUcu&s$^>@cqPL1l8xkH^uVA_+c`jpisv6+2{2XkrtMXKfZOtqrTqYbB>4X zgWooB(mg9xojC-5@zl#^WIN2_IQX8dz9R?b=Q}Oj;n8h7y|*4Sg;>rZG<3A+dddon z^6@;+V7mq+K@-~5KnK^$^*5g~`dly?!)SkwonLkfRv)Q*;=u1U5!M+xUd49VDud@kpAhI?_5Ie|cOO08AnS(|b zvJZIDPv`z<)^3T>OmiARYY$aA!;p=5>zV2T0&+S7q)Ub9eVztOZn)q-H+4uH?c){I*M#SfAv2$iVP-dIcHv~a}L<;VkZ zG^rdtb`>LiU!+t5hC-#0h8*{P(-D!d6(G_@gy>TC`|}mnr%_b9!AIUHuWWVA_XR|9 z$O=B=XCOu$T%%S?*&-sVplO;RU`Tk=CG7I9NAIfa)`sjX6Sb7br(M%pV4SFsWOZzq zVj=4dX8q0@kISnJ6pSBT-AuRO7>#7V2Y!7)*u3jlV@ zm-szgT5ZNkX5%DkTOj2yJf68YN@*RY+S)zt{NpatBlzv<5Kc->6x!pf^+M!#$Kjdw zA*Cwo(0e1SZxEk3otgT(AWq$WkgQDl4J>&?M_P$!W2a1`yvMuwY7QP6WOX#K>=OJ~ z%8(@barM{6(Qv%MXqpdHG*EP>mQJ5;qqpX_Q&pk33q}3t4LB(uHO0v16PGyHFvMUw z9YlnI=OO*-Q!Tld{{8g6LnlC7=}N2Lta+!7upFlF*Ga5=XqFo?Ti;N-#xs&xe7UZ!EY$^X&ASq0FttfVVWduCh^ib3+% z;Ls~DDIiD}Mq<6eZ*8{rfAwemX<~l?c|RYR0KNd~&;Z~!GJwGXjAMoBS=~*GPm#6D z-`!&k^@A+Qz;x#bbg6@=9yoj1kGv{Wkbsgud?bE(Ak^^z)m(S;93|qyY*hM@!gPb0Nb{WI7^n+!~aXZ*HX#bq=;K-2LTnj~}r4J@{o4^Yjgz~}oE4q&UuOg^(` zVZpq69QELbCPMtdLc?6&7-qn>(PyYb{aTCK0itk9sOEt*oS3m3=mltZZR-9BkgW}J zIf7u--Y5KgRX*Hk;&brjw6CKBrXu%+K6|PGzI~B03&+awFn=zNnLH;cQq|`79%rNr zL=RBq`@AUHEzSMAeZfm%wnJkpFa#1KWBDzn$&+c`G!$*=dQ01OUHE7BlWt|;+oURw z(NE}}FtvXQK2wa%2eUcguW=QlSbEJrE-jk&;2s9~|6=@P%vcJw@V}`sTlYE#OjJkK zQ?%2{EDqcHkvt|Q@j(wj6!<0UT$W~-O^NHHESLk#wFUf#Y46O!h_{fCy@zr%p#pqo z2{&Skd#^j(7b7!ugl}J{B%`W+KM$UKL5z>PUbxws>ZUKBC{Oci$DRfLhs01vYug`Y zo)Q>d`N$i!bgg=>H;=f{fA7$B+4V)#G9i^jM=~!q7QOvxpdFziIE0bfBKb0#|-M!o^ zOctwnk2>~+!O!Y5Q1)sT=1{(o|QC|9u;E^%3k2s8F^L6X7Tm>fiy#w!V zc0}aGybK&Yqm41gBC5ea|GSIez8?_>0MDQG%{9hGX5A-alj5{VgE)}ez?oiV!XRWPi*Cc zib?BGD{j-&uJN|Z4z?0@TiimWh0lS~$R7XA=?1mkfr=7-@@&F5LC&}9;m{(S3W!wM z-?R`mw;$u^y(Q$osqOTBP&*lZ$O#)G`(ER>zRmGkKr>!1O#MD7YdpCk5;)OVn`T^n z70cz1ha8!aM;dLvrFlIIhvSh7#C_D~;p5m)xyY^XMq~AO=F(k+Ah~yd&zC0hn){pM z(JfW@jQJHzl5Z&Nf~|R53pZ>WK+h4~?}RaeCJEzEg>!oAQ%u)^3IE@hmM{q=?TkMk%e< z*48z*%57I@4_qwi3D5~cCi9|8O&}ir&)`Zi>~yHIg++LhHR6L}ZA!tzl5sh{ z9(&DxA6=`Fjm$K({gM3^&<_6AbOWYaGQvz54$=W{`wA3ib~4tJamrE&*|zss`KMFf zsU_QLo_iJ(kn|3l!xwXfsC(V-{v2JCvmw^TeREg2H_zCI$Pm~!R_K(j^I|m`w%uOG zm#?G;E@oQvSTBb~GzO=~oMx#N8=I8raTA9tX|hOciZ!PB1uDCLj0eTpH_ z7K2^!m$->}Y4tyawsiagJpe#a)}g0+hUoNK)Rnp^oSf5A3r39trxS`UO*2r`xF`*W zK1m!Wt~m&1Z@IZGN1=0a)9#9{agdzXy8o+hc@n-@OI%2&TJp6!5|YKxGut@1@$^>u za=LP?40N1+JTgrbt8iJen~W6?a5{;L0mc(>7Gy$GdmaPT3n%JihZag?=RU_o`7KFMS>#?b-!>P;m-kTTc$DvBcO_+B9u6RB`wg|kbHi2DOl z?42B}x%qokz_`o^e+_XT`+%2S(2VWRWqs}##Dc=!6Pw`=PBP*c`_0yV0lxM28N{ZD zS%hyrX*L^%L?YLDxX;L$9kQD!O}UT_u+qQC*zfD>jvuhQd1`87^z3kP(^ebqtF%$1 zw&)9QZ-}=9Uitm{Z1x?KYqu}ke$aJkDb~Gsir|`=4Dr74*nkxcy>F$b@?#r`#jmgL zpFEZ+L9g99&cI>?8tT?Gm?&RGBG;EB<#P0*z%JZ3MzKw-sQc%%7Ah1UfWf=%x(ffXaW{gm76OYVtyHVMi z77%W3l_*Bp=A@U+^`m`74#}I!2DQWUxXJR!be2m8^|Ngi_MPDBPmJB3Gu&4m6+2CC z)UhIpV==`W<7YL$U8xskRv;Bq#N+|%)5lL) z#)*P*BcbQhdsw*)p085=(EQ7_e?IKFQI(EJihb`y#C3i2E1VArg6O&d<{L1}^HVk|obP83#hO4M}LCi~6f4x~=FG~_w-L9e_C zk=P3Tu>?;;CWOn56LLFw8kT!+jh*bsn74jY-kyp)qNeV}_Kc%i4Bk&%$SIKDoqvEy zBIj)%hM?WXzikO@H7gzB6LP|e*Vp9F4Pcx9v*dANy5DH>@8cn)CWaB`J_1@Ma^Uy$ zk1yYMKNYa?6Z3&3mUzOUVw$HwZSpN7(|<6QXGv{fZ0QoBwB6m}Qay%hKYTH&IExh< zkWOz1n|XZJ<9hP_c(j|Njw0fRkd!A^;s$xB9Y*VobxzpCDw-SlGaU@RG-IVnlFK_n zO78$!jiT5=_c-2;P*5VSO`mNAHw@)i#xg-Z9$~yGj~f@(jxCVOWj!6tSZ;L9hb6K3s?YyCFx|A(*dl?i&&VXON1$i7ny@2nntH|Zj@7)oCm|d0$-9i* zGw8H2WhZWO>knQ&it@jC8|AXhG-#R_zoN8~Tgm0i04oF2aLbHu4KZL@ASX+lWnQlqdKvPP9$f7L!68P+jJ;5QXBv1 zG>AJZ9OtMSXEir_oBdx(NOs7s$*|2|X74?0i7W?kWg%zl$`>DCV_7fTQZ;4PIw`dh-U@N|{mXMeB#(hWET6JxH=VXBY8g@9sYr-@IKt)?{ldO?0eW z9Cg)#^%$?qo%j}*`oCxOsr#mgZMIqzlSwlZz`~I?@EpeT`9=-ct`uL|& z%1WT1L%KL|*C*mY!c5~h8+CsSwu6<)U*3Fk%_d)AIQ_FZs<~7Y`(ViHVSIR(8(JrO zR9%IgZkwTCqGEoXJV^FkyFNtX#F*01K^FjAmFxOlfs`;&YZrYGum8;L`w);6$H_%$ z@#D#ICAHp3Evuq)_KS~Y-x(6C{RhI2kQLzy5WgIbx4*HPG0C3Y3WhukGg}oYH{YJ+ zrlxlsCuqDOuAfUm4xgYra1xRJxxDi5ZH9;6Z1!9v<3)(AeVg{Zi5S-@tHYeZqyHN*k1r@7`{4>GgXLd8`s!^{hCngLJed zNSPtFvrPd5d`{K>^wv3nb}vl|pZ?YPm$yc_V+o=U!^xUS2!5XJ@@P84X#JyI(8hct z?~Bmxebr@UHw!f3xpz*4a>g@x(lCf$@Q5h%S}tN(TlzKJHp!sZoN8fa1I{pIVwIRd zP`ukwiI6zK+Fq_L)-)chxcA8WY<+h&m)mo_A5X9c7TX9CaynkV<-?7QWwQ4?^U7zZ zQ@v8I+--naK+2sAo~^HC*w~t)M8j29Xg-0!xUArR?rUV^cQUldye{x;q{}gG(8F@8 ztUhrEb0rX7&~nCHEm-$!Q4RcBd%k~5zP%as1Php#tc8>X;lE3up z{i|-JoiSU3U>)oAHE!*&d$_f+4J9DkFQznlfnh13r;f&r13m_*h8>If4|i;isCe`4 z>FOC9AsL{Kk108IBOD(Zp1u4Xync%fVRHk3zDm46XD1ny@HKo_!hlY{tjx0& zQKG`+)->zDcX}vr|2ycNvyQ=8$622~`{ghuFqOYNt!6IZI8^FCva{Tf=!DU@vhW)R<FG0D=pUY&8%{ zp5R27hH5_b%LA+*jN3!bhRLS$LhgeQ_LvP(3#!=aFG(lmaw`BQeL)4-+Q<&YlH!C) z|l(9{L5ap*NW|l zXUmh~cv$D}%Cy@-v@QN)icA`z#3@VH($z^mBn2k@#Dck7 z+in75$vJt;KwoUf5A{g=9 zwJcgDGJs^0d3n`BC9bjF<*U`HpUR$C1TC4l8@W5o!1L>cWciTl zB#0@xp)oF~<<@+88LxgT^IuF^ALfvf=_VZ--UxsDxO3K6zI$gEX zE(CQMD36@Gsa}#~Nf*G^P_}G|lixmRjraBzc_)7w2De0lY#V3q*IkFeJtTf)_?JPQCh!Z7TP%;+iPH@d_HTtYx};BTfQCME%Pe;hIV z*S4(-62JYImkWr3xxU!J*iEHIAfMO_+U{1bKWfPRj79)Tg7PWD?h+W-|R7<9X< zs<{@2$OX$TI$H-{5;;qUSx^XhQZ3~~PXv zBO1K_<^i8q(m#TWK=Kj1(_4G<3}Vp{3^$qg#*5Dpb*Dcs2E`N`jAHuJw(r}8q`*w3 zl;O>9!HV();tZ>0Koy@Z+7e}*J=xN+n8piF9&Fh$Gf-t#?Q*bI?_fzsg5*|b*2)C0 z)aU}lvM}NbxC>>YZ$*?d@+Lw|NCg?w`Sp!0TyrgW4yv<@0>&(}^`Dm`Fx9zqm`Q^8Rx8P4g5d5Ay=IKqd-4!VC5#nln((0Bu2He4Y|LPK$`aq7^)Rby? z?fw1tTHRvmym`nkHWSmFYno`Aa_C>*`1M1fr~b(5g5$NZ?9cPaLw9x>NUZO>N7kmd zixL~zBnpKwS6{hprj{y5Z?f07c`=gaRjjM4p4Mr-qWJm7<T?vak`|;@*1Eav~#inRU|t;N3rGHLcoxGqc3E{`dUJrYBxD57y{OV#7>R!yj%1 zXDzy5)>(tWB<;Z9hAORH&;GII-Pk}W?7CO+i9G(PGUfR^P&Yakct%x*niMmOT+bkAl^s)g!#_1U0CD=Ap{k=Y?jTMQt-QkP zxtSDzU1TH1T<9$U3yYL~5Tq|kVDi<%cXKwbWul+Ktczz-3zD{P%IBIwY$qusXHG$ zt}o8cPMwZ!W@PAbzMq0)I$f6r&_CvS>z5knAaJ@$w3#T-xdM*CQJVGLH>qz=+zdyb zu^=;8zA|4zQcIt${u>mDea5{wwq3N6%m)}5X$7&pBkQ$6f(+F>cfu66HzH)u!LV(O zMi*CDWJOYXyMUcU6?R=02t>yaxdL3GQ~-J%*65U@qL`08R`8n9&iXqJ?A1&;cEtLK z*Pe63@RIEVK4t1x;Ow@fV=!j2$oQSDR2c5n$yWJpPhwco)1r-xV$H>!H^yAhFQ2Th z)p0|IjUL-l&t{RaE8~QgdK%zR`&)w68(<}oMbhbRAUGALnW9_3shJ(vp|k2?-;G=j zL#$qql2q!dM9kY}(HS-vE2#dG++j|&jAuW!9uacwvMYD2KX$kdv#&z(s{o}nTPQ?> z4%^tM0p{vky*kBfvJkkXAaxm=>u6aNqI_Cm@bWLyt<(*=dYCy6S3d4)#;Ogfs9nvT zo;r4ltkg*ihIzt*4s)}4pu?FOLdJ%ADMUM(g&2k*yJR~KyjXm+N4(QM^kXiZc67RSeq zwW*8naxq)IXaCz~Z5vxJ@F6hM&C!XDuhg}nPSRUKy30dsZMQ}Are&{?@{gCUwj$OK z#Im{$tkIb5t%Fj{f}iXuvmhrZfxtNs_jZ`U^(sBm10A z_Ut)D2Jz;Gm)#^qf4wZ$d$2zV`M?nFh3xeBP~S=jjtRQASgUV1a~GqPrO??_Ukix#_)cchExlEOQML>?s{>25`Wm%r`h7NGv1y8VHWwWH>BS++_)`_ zqXC;R_a-;aeroeZhWBSb%>T@Bb$?HL5rLemUOadA$dWwn{4scvrpdScl9%``<&%dR z&Brf-UzHwWfLM|NsE$5#!8rZKG6mFDH~xHO1M|`5ksV8$KA+f{@C8zJ;n8&`h4TH_ zrogQb!sqTz|J?>E_3qE!t^1)*tq+6W_;2`p^E5Fs<(%JddzRPfIWJyyfv5b;U+6 zutWd_|Ho!md2m$O;sLNjp5QrPoilVO>Uc{`B6?F-7b$4U|@F^&PI( zv7ZtMy2pFIo;4K+&iZXSj<_=MW?5_#ZnwSNC5ik(uhQmj4(#IZ6jn591e5`B7`pGR zWjtiBUc32j+UxXu$J7!=di3+aL!Y8&*I1WnmZjHmG|{H0ZYf%`SNL3R6~mpU`Q+D+ zaP|wabLCsgbG4{k4jxtYbzvg{RaH2M83I(q^sb3HUhanR8&Rl+Gau5$n1}SYjW0`& znR21|X6De~s*6))L`;$R0Uf}70lNE&W^QyBW+V`IT@LmsPOn4l+{Sl0;R)?WP16=O z)~4<0Pzm4Q0|<ep$ZLBRfC4UKDCg(-4{GQz7+U8d+ivEtj$nTEv}e5=_1Ao^JUEMyXAbbV3AD% znt?drAX(z}_Hvw*=eUQ1D2IRt4jUR5)s{-JBRZU<^jMgmj^xIuRc&^> zRvb=F;-?in;J(wXx}BtOGAkfZH&Epy#Zqs3N#Yy4H=t64F#b;40KECdj$n&MI5XGj zOCkYnfprGC$$Q%p{FKpXWku!Dk3J}tP<=a@349T21L}q*H3KX~%)XvTtLuy%1IK;d zcO$G+|C}+jJEpJaKE^MGRDb;!+N$HfA+oM-xF;N+%$bN5A4bs{Pq**vklJWpTY62IezU|=Xv+ErV$;#nN2%z z!sj;s$6iS)#PKhza->pLtR%X}S7OhNuvT%SxM*-H>+@ou%K7d3TzBv$)mdw7xPqiS za(-3fHakq!9XlN<<+%c1XMM7MZ43Ds+edV6pMH(e?y~9?k?5GB$*9_#(3aZ%Gw|#- z4=|?CPe#95=k0>mRvcXKXQG>&<`Y?cqIyoA$N*POp}AHH);jVR;O8r_ul1(2vn~Ea z6zTyD>`xU&ID#j#-9a%jkV@#kP`6%8TIvg)RsyYHTkw0u@7$!kLmb{oUR>#M6%82T zYU^5aXvA!GOKqe1EWI~q4~Bsnrph*eZ#*kpo*#JX28Pb#(mK2@w+dU>*>a_%a|S-y z;@xAOH4myIL6#aXAw5#!=Vj(3R0m{F06c$%K*1Qp)h;I{ORygDQpCg;W~u?c)TIW+ zhF!x$F1+_UX`bo$F{6l`FA|f~gIpz>?={F;p7KZvz=8C|3zXhAj~5Bxpt)ax_bcS7 zYa(i(AE|%$EvwWyz99WBiOo#r2u2`>JSaTeGn1lgjZAcbQ*jwzcP;H#epOIEaf4v3*X0(IANv|<7uF_YL1bb)v5`< zfMQ?MPzlscCHuZSvIbf^2nzKdTp)V_?4Nmgx7@^U{}Wa9C-o-?QbS2gNPx1*UFLl^c(bhSIn-e0DuOb!~I7I5S);>S$I}0}!meV__U0uqym7Q8rOpI(gxBBPQ zmU;l2Y^4&!)}uzF@#za(Kq=a})v!Xl>VM)fg@_Jh%x>jBvN7iayjAf85XAacdMQcwZ$H2SIw^-SM9-)W#W?F9Haq9Z0Ibvp+Yek@zi)eKloR?Z^=pFc+C1&rl}(Ks z{X7=$bdT50`AdcU?gRv8{qVRRE&(%h zT`RqInI_q+d=)servwY5_C5?|A^Msxkg21SZvspHr?++;$E=D#o8Nj~k2X@kXsT1+ z8M@P};D!Nh1nO?0;+0J*Vi^X{3Z&##%ZmnVB7;7qbZq3V|LQCYa~{g3aI&QX;|hRC zTy7eqv6s^kz$=@;1xlH$sy}9?x^ru+#&&oG%*1fcwRi-Jfz_lmNhna!1OUFbD(3u_ zvlKWrH(dEE){=HgUn@g=rj)c`Ft;H)PR{28q<)&hc*+$I^@%G#w1_G2p2C6kQstxai4;m zk-HJ#Co(ae73HtrnyuJEgCO^4{8W4Wljo7T zbdydF6_S@qT2CN{8gOC~1B|_xpnfrXEV7H+!)=z?Dkpg-xhTh>I^YZYi_(i#)Ps;! zMfNQ&fzg&VKvqbFv)Me4+3Kv8<0YL7x-A`a8LV zHJX$bgM5H=_S|**d!xj{BsxuskuEJO@Mk9wQ-DZ6Dd1fc`4^ilIXV9>A-|K5k(O_O zFTn^1v}0am*=XAtjh_Z1G0dUQ07E@ApWbnmqa>?1?0;i`4jK37D@JRa#0e5R^xSCf z^@-4le8)3ygJ?Gf(~Yl#pdki%u21C{qNiM~7Hg^IF4M_m8GEL&VQ6I%c^~;8KCE4U zUklm0(FOaIqyJ==&5v6Y{r~E;BP1QqP?qn48d#aqF1YLK+yM3auxd(fxpm%~u!)pw zsUFB5?CrBIBg{v`i_W>kAN#YmSr&dVX?&945$1kS2Shx_F>SB@0?RVWvG5m z#BL@E1f7f#CJrZJaRfL)4ag?#gCf#B^ zbdau$8>5u+a^*N4sHnsYaR>R>M?L^X*)>*(-iFHNz??&}U`lQ1>$3LZyagQ}42j;t z>ZEJ#H7c52YNwWGj0-IK*Z$=bHPX7q@4x< zDquytOwX@C`3V)$WMKX;W)?$|I|8pDk$h3Km!|lahx(WrpzShpkcd=V1!-t`{kRFC zTvaIPXvXVuQKg$`bxE&%Ml^Imt($Deeqcc?9#@ChDKnBb-BslSL&{5zb>`rcjHBa) zhygE-osP@NMt@cB()g0qs>y2HZ9AXwq^!Z|6>vLEcSD4uu|yMo5%1VgooCHn5Cv>G zHlE%Amq`H#k5YFsxQZlaeOsmbP?%0=d58v>_lp63oNulmcr`L5^ zWg_d2TR0;8>Jv)JFC?;ix%|mtZ)6}h{}#MRR6glI4rcaD5@I=n8EK|Lww`0eQqw5Z z$l(o!<~nONoNs@&-E5R`0qwQB5E63Wx6R-xDf8Or9#<;2yt~cktZ{Qkf-lldUtbl! z`Tl$^ugE!`V0SK42`<;WJ6=F`Zs~do>2bJy(DH(w77u`UqeFim z4h%94RJkpt1(6ATN0d)`=6CDeuUP8nQ5pG-j63L9gU;uO>dUC$#l{^_mM4GL1!B8& zd_YKDEdQ-MrF@Ur{RpkfN$=YwOr$I<;)hu~cwo|yfT&(XD4QX7_}`1+Q>Hr|;nsxW zjJ&(q-|j!$MI@`7e$zEUd&Y7q_oje+FBiZzi##C-+jA)Tu#J|Ehw8p*R0B=6>>Jj= zz=?*nV;6$_5Kl}|t?5R-$v1g1e#|R7lPgp?hF@S_p3Rzm~D3Uyoe-_$D)3O8!vRDjtauCY5O8 zwFtsid_WSmC=hf_;sD(Lkfv~^3bDrmY-{0r+{_*>M z_aD01d#$w>YqRgQ*L~mDbwT3O^mhH$d4bWJm2Y+g4+^vEgrtBDU=_6mcE_#jilvG2 z@n$NRvMIA?HrQlt_8ItQ`1Qr1YKS8ql0amlY~~?OfI=j>Drxt#73bau#@?-bloKBB zG=ZslZKw~b@TnD`%jG^F6)DIK1;3XIzaK@6w4o2fPPzqdYg*s*%YhCOFNcVlviQKovy2CWZMh=se_IT`9EOdmP1_bG9S zRu|WjAE034Pf@S!>^z`|@Y9)XQ|CY}K9v7FAdkUvw64?QF`HG<#Q^ zMh^f$t^v#**KVvGFfSG9C-)g9hK{thvOx+k+jYpz$Bmjn3KwI8nm4Wy2|}h|V&x3{ z9v6sg7lW^a&LB=TyLUaByyrdKmM0II1!H2O?+*rs&D=NKaS`iNSm|I$E*^)uVW_kj z4lbvwKLPzlW^Tq}{+xJjeiTm_Ee>V!0t^!=!s>BnkVJg6xLRJT1zMikVY7ACCHUA| zkF}<{8MLsjh_DD;h@#^iw_sD9pQ0B`FicvSYw1jfMS((@xdbzAYgXAtD6POUYdLgfZIFo=_TrlTig+c*q@6eMJbm((gQh4 zR!h?~XR=dkQe-_N^F;brYL8u^CQS6D$*`HP7-i`b>eQ{!t*oCBCj;~on`Mx$Eo$C> zB!FRTFu2cO>c3W_4Pbr}B^&_c$nBCgamejw$Cp5KDpTeo=`iA9a`uPV?QaC_VLU^~ ztL==v%7eBsh4g+g{ln~fSN9%bz>ReQ$Jdvp#oslg6XP;(#MR*~z@^o@sJ!L*;8(Wp7eqrE`On7@7>RA~bm!t=6am$OZ?Y?eMd7#UC+EI~n7 zd6GmKSm?Xj%j7o$BHy*0Vc}_gKK5Je@@lmq0bq)JB`zHx>K0_B&WA`A(yucmGIp<^ zCK->XUNa)W^7?$h)z6CSO5QAQqMb*0y|ov(Em&l9PUv=Iwr%wd9;+8Vv4d>jb(Nkp zl!t?{(OO3JbRu!l@SVB$<2rS7b+a-D^n=sSl?;Oi`VZj^0w?Qv#AUy3|8K```Z~!* z@#*8l_70tQVWEPw=PKHP^?Jtl9l9L-E|4Mb>+Z%KzTOD{r|6>%SIpsLFrjm`k}(+ITjI-U3V?8r6Z&Qwn7wY6)jwm> zxBph9=H}iMBF?WHmv+2OKFaQP&-2TJHks9<>o;)O^a$b{$1e2Gm$tJod)T2?^06{A z{qDGD9)ts8_Ykh6H;&K>#u%^K+q2{ALGKrGr`UH~4hm$0Y4|Gr>xMDy7mR-;yCETt zHHwy&#`N*)*7cFQBN;FszIHR~%28KxJ)6q^+JWHt(99 z)TF6RXUk5dRbt(WVLW6w_XDGqg;#+deYM6{b5pzO+f%A}UsRG$v;6A!yqNqzj-+BO z!idn3oDOfwTG zheoqw3uzuVkssR?)t?hsf2W%`-@>Ep74=wn?To6Aw3+vdg(uGy`^)O!oo~nb94X@ z`kCREk>xj$W$BTH$Ferz{`z=ECICq^-I4nO^v(sp*(PBSLC$t3rx2LhEwV(dGy3BO zFgzD~`6_Du{7z1HLPs|yk*EldQE51G*IBv8(IB*3&Sjcw#3>n62taj}uE6Yasc5nC zfK&ADF@aNc&tdIXeNegax3km35xj{7B@l9#SHVU64EpWI!gkK}AI)GQv zzA8#zl5MDnY)+ZHs46FZ-*hA{EW2jUQL<{XuF~344?*|0G`~H;`f)N4vze57aihoS z+DcV10L;k}O@p_+wSgywVcoIB4HbU;A3B1d))eh=;kX_hSr!*KF(a5Xprpez-owY0{BSi%Ep zwqC84UP79V&*!E(sbBL{;WsCTd1}ON8z6*~{9*);e5`u^}=JV9I z;r>Nm@&KNsJ&Luq6if9}0WD8?{m}gg>m7lV4^wD2FyKyGOBU-T$^1KqLCivJDXq4X zGcHi+Th!NpBxIzeu3?2V+c-dJ>ax`qPxn20bL+E1_H&4LnR`f&WAZ>z7AcOx#uT

UWiSnMK|j6aI1As6@(RkNQu&o{?A#+wP_P}>%brCi6Ao9Lj7 zW@`WT)Ivwz%MA;>v>qy^9rM<{av|E}3AXQrQwRBE(I#6PBnC>FTd%wSdlMZKPZgiq zQ|O>*Pv7g*x3&)|Rrd>}v1?R|&-z+^fPyR2|4t(X1#K*3^INI_XVyG-{-L?FK>-{VvbDZ+*JEC zUnFjsSd+$7xUa_VApW*@@CSe7)e5BGc4`M@DCxam;|2d(c7CSaki2V}G1N-EHM%yc zrHJP*h|}WaYX`E@yv|kTLM6)hctaHCl*jK@9cy5Y>qHa$yr`*=t)I+Hae3oERsw_*3V}?y_*(2d5I4oOtM*ZedYV!g`{q@8@ zPx9cf+71qNTg}N5MHe!ubQ_o|PwzKz^ugo&e^^zhWhPL&l>f^vPt`I+>FGWs_{soloKpa)~ydwg?98uUw;XcY`6lTj+B#U-CA2Y&B%OE&by#H9&TYq8|rdRemx zNmO4%>An1F*%{=*05Y!DVz8VEP{f5$$^}JPw_D)qr&C0AU zJ8%ve;&S6YW~k>9Q!98WZBNjra!UHVOfO+5w^X$}C}zo9&OEuTNx6S@iz&2B>;db#qfu_f82fE? zr#JVOyqG?4RB-MJSq27(al?6<3Q`ZV=lX{-=(vDWmS!;EF~b?R>Z;;gq1Abf86yi; zS{pj4*ByF~SySMiFLx;Mz)-@5+4$t{Aa43t+UO9etd7*u%%paA z3y#5EZ~7T>GHQ?&jO9sIdd}=DH-y z9|I(DQU$exz)>i6;_K@K&E9Q#`Dr-SAsk#NeYNV0fgjwuUlqVBsrjDybp;8U61}c& z1z__J>5X7gMhcN@*Ufik@`YSLAWdd42rCvAK0u)|E)DB>uB!+vu2u-!ZY$sRM=+EJ zdq#%6r3%p>U}Pq3E>B6zYW{q2j~G5g5ED?Hn#J(Bb$TTMNjLMIXM_QmOa~zBJK{vo zJ7YGW%Nxh#(XK0vh0XvRIBm^>A%fh5xMo7G&>@guT0ipn2t_h51C_T;O)(9X6yuoIAvyjS zmPX~%X(Md+jYHhjmwFY}BRmK;aY%EDEi9%)lu44z?>h;8+8&Zg;!W@yAQc{#5F)gQ zs3EJ@{&AQSvA&hHL3b>i)OsJ=e)DZL)X4xs=m=k4A13>}DLt$An|9#2_qmACx_NsbLL4t`2C-2aj?GebWb?c!1 ze36X4TfR_R*IPFkmxtVX-)kQQ!f}Ssd?dsq8SWkH`qinbnu7REvCa)nwt5=bfB52_ zdU-*Co@YTROeS?i?hZvk=Q!x+SIKz_c_^@hM;6?@Ay7qNJ8Fpbn-|RQ!aKBJMl4|z z6WMATSXV!dwg$95v=0hhy@Ti{RN(yPk7}-YprBz`H~!rn!IY4$Gy~wRu z5Z0wyt=7;8Va^&ENPDH~)c^c?#BapI=OY)c44JHgA`G^+njr)J>>V=ufZgA5 zUB?6(m+BT?Bmt2^;o8!zvi^PLt7(Gf1y9830kdG#Jin{F5%=j3oGD3!`7+SJ)qUhegWE#qU-Z*0O!;s}&~Q)2H}rCj z+C6aG;(@!_B}{hlyvHsCvgFwi>sXY~Ds`SF&k;d0 zeu4*hVPRuoKCo+MTmwoX-cG|oqnE!OAl z_rkE%b5p44^BznAv)D`s?l5rT!8noLR?u+|6;|Nu%C~A~S8Wh1sth z?vghWh}(cahwI|Mw!^T{>WqgcvSjLd7p$aml-=a_^|=elLP+U{_!(1@>L3w& zLUyOvU&7Ktx#FgrkVPO}CKVL|C3^Y6?01(=AYuX;0DtXex#Hb>fhe5MClErv1_llK z(O8KBSO2WpGtdIG`6W;y?l&qgo(5iN3ru<(;2qyY1!~Itz7znh_~vdZJLF>yq5iXq z`!-=R0ABN(?0#0ez%$CjCz4L#F}h%REhP3+rBsrtdI`d^+p+h;TS8l-{3OmyGEw)LW!y-V327V;Kk9X-Yo{ST9ljIeNkMH)hPlmga zMB80W74jbW?3p)qPL-3-G=a`1>B+0$yNS`sxmY{+(x68_=;>Fej^c@pn2$ILEpgE} zRj;+`-eMMm7Y}a90DDIeAjN^n@l$Inp#Q}`P@)9{+T&mnEIV->&@q3&&5Lu=C@b28 z=ooJm%NFE9R-ZMW*1!(WAZUQ`OlU~T92N`dGyu}RnSKWFmOu$P3mZ>Dx_1d7eN2TM z3Qa_yCmt-`6jTwXZR2o4N;ir@OC!YFh}zqmPi4r(U7%h(35~R1flz{{`@H;a?J>kP ztWhNj^X{?z+Xl$(_Z*4aQCA@C9EozV+X*{ckISj4e;AM8*Yj7{77fZHMe`|u_g}3SP@v7N5aESy>@dD50 zs6sgL#NFT3d;8-Zr@QLK-FeIe+N>0Q_|C3$3mp^hG4+}eLxN!ZIJP2;tx;=zAA>Jk zMxSjU7jp8}ib)GJyD^^?`X_v>+r>Z6TN>|5xsBwkw0*%qn3KO-c>1Ea;}_( zE`fjOAU_a&U7{U>@;p~9V{0913lZzNdAg#1?_@2yViC{L=+32$Hv1sa1=s5BhcM4f zFmFPy!j(^CZ`@PtL3hfMGzr(|dIVTM^Y|LC{!4t|mfM<`EPC0=qpns)_oHe&nl=^( zY<7YevKr~WzTT!Cj2)IGZ!ax=+DMm7>$(3JnSJMqN2QRbU^COH4K>iG+4YONrj*zMNJ`yCHcKGR|3cTXpTCiU}q=f4(5#)z5AUlG0e= z48PXeoC2&DCPxK_wqHvz9oQS?=H*#pef&jEU-~5Yn5QR9o=Xh_er~R;2K5{w+TR?L z1HG5Go%YIBQkjK97yRNIBR53~m{*9AK3>n3O`AQ;PqhZ z>pkg~v%2SE^(oMUbA*idJeNk9C#wtT#>O#sS6p5nIBH&x&R_C_r19#|kSoW8DAa;k zqfj_LPjr~Svm$SJ(LAt$^7XLLl->N|5Cq|i(yx2 z9MHe>{8IJLKbHRRTFb~jwHXL$q~vPRf(sSM{b+)b5i!x}dRKFPOr2grVua3Ss#St+ z2WyVw-@2ET8?gob#2Q-4X0`aJJor$d<^XL7ZJ5x|E|e~nrO9Y#@;b-7>FJ9-_oV5h z#F}x{h3uMWqYbzc!P>81k=^S1{cW$EH~V^KPJ};h;~A>u(q{A#doaiMsg5mQ3w1;6{T3jM(n&%%lJ?S4@*0UgB=dB%z ztwwp^T$k_cGI7&Qn&TfPOXr#5(p45$CuuTRR{M2;>A)evRn3W>&M)4uz)ef!xTOeD zMoPLr9I>81LpaS`Od9;%=9Y&0e!!CnS3_uRqOLc=74TS%AWe3EL~jYm;wFKp8R%pQ znLbn@Q`$(w2ue2?Cu$YP8{!tLnLtQVxRv`fG=sQ7OH0C6lO#qyzeNvvv)X3|^nk15 zDNBx%O70nX*h|$tiwg_b&S54`su-EP9YPu*1~Cb@32n=pl)fjD(uYe|*DKuR4crtU z0>9>FoB)8cg3oEp8QZ!M%{J}?52R`+Sq|5M=Jqwo? z^q=?e@19|a&D<4q$tVZM4h!dog@m_uiuejAeT?M)(R42GOz(gE|DV#DY?@RqDRT*3 zNk}9O6)}`shnPh&mvD|t(d@7psibs~yAGB)Oy?LKn*B@{I?g%T&P)?)@;k?@naWI? z?fd^YzyE)a$2mRDc{H2b=lyxV->=v6C4e&foWieXw|cf{rTP@XtW1`RuY(-fbgJ^;@&dGi}L35h;R_=QuV`G+uZN{b&s7drt6xYXiM=Y&;q1e93e$ zN_OcNkM$k>_up2r_JMp}K;_-ZI^^%b6hsLQu}Ncv3Z$}q5*o+4CWEuu5bjVJM6E*X z-&Jx61z4)cQr#z*uEIfPD#@SF*(yprx}!HQFKen7$I4@QilnM2rE;vIX~p(SrDqgB z;@_rB`oPP?9q==)fSR+leoVKj}$QDGP(dFcT|_OE>#G)KCW`RhA4lPf?)*|L34i!u0u zi=Vp!2VbI@7hu1*#%G*24%}@FlJ7Zw@0>epoSA?i7QP6{!Ho;Nfz@KS-}Fvr)m4Wm z9b@}k9MYr3m?F%4aooq+IN(6QIS_u{OxT&2eb>1Yd{Q|KHFy$r0~zkn7N36mkglf1 zsB6`h7mn(QUD`!O1sMCCeT?7ZCrORNcHU!L1x?{`(8c)#mUxG3bRydp_@_6Q8Csmg z6vm$(O*BToG;VtOco0>%e)DLcv0b3qZZ7!vU}y|9mWEg-j$dm%cAp!*#Mf#2J|JEI zw;*f87aiWZ-D?oG_a!uB{(ZIqX4~ouWEi;FWc=yeP{4@9AMrV19>&^O#$8W47YT&y z`cM1op1ku~ZxHqB^QCf<4;XWPcydsM*epxib2FX9LC8nwFmnIq4)oWxWt@MYes=MI zcGl26c=Lkyf!hcC?1n3j{PDO6bz}HkF2t+7r!|4QzizxU`qi%m@LSjUC#5(P+*wn% zA>G>bLLSajV<9d$hR8WR9Ncah?A7z6@UTI{NQJ&wbv`8M^Z8Mz%~&H9bp zw7zqwWa0Wk*kuP49v+|mcR>x+!u4qS#RA|CL!5h;b*c@7D+uVq+=v{lG48@U$GxWk zYsBQTu`@O|k1vL?h5G0L)ISzBn1z~6hc_NfJn4ln+;=fXE=|^WOx7~oFu?J5P0scyw$=B|u`F9CnOx!o*oqH{3sIwQ;LgpK1Nwm7HEOWu zoNb$YUVGk+gL% z5`p3f4nC_L%0)@wJK;pXZ`fM=;vI$nYU9c0i(gIJ%;wNkxtHn;so3|tzTg@VB|wHB z39UK2;fUqwJLb2N8NGh(OJsspmNk3rVe5`^=b7V6TI;>fvuP zoj?CjtJLIn$VwGKA_6h7^l)4;RuH5L71R8fWBh^YGr@zljdqWMpXWi*18a4~A%S9w zf+0|g7asJN;~=f0j^WI=U}>Zrx5&`g6K(34xpPWjhEE&gK09&hUGa9R9;Qd4^m#&p z1im-b7O$eY3LI3lOp-HY#JpzQ;C2gb8;D!ZowTPZA7cgz^^MW9^)5aoj$pUyBYxz~ z$z($xIL)(_WsL@}c#sNQvV+1DW3Si9Kcnk$9bI4~>ZhJ)GSNRj05d}4mU0I*s zHe#!UzV3mFxj0cTq-16;U`QQ2~tFjN~k?W(>zVq-Kf%dZih_ z+Wibf3fwIXDP~LwvGQ=sZw+5%9-RnW;)>Yk_VcCl{Q_2gk2DfA$%;zc-%s+Afv$n;x1*8Bc(>l4S`g0)YKDh^{eW0G|&*J{RiB8HD zNaxZ(iv>X%!~HYAD-f(q6FYD^fTa|ReqPrLrVDU0ivgx{AqQLM)9_<0AsZH^vBMP1etTFF$LgG3LL;PaV^}T3SrYZ zD#I5s`3|i@Mvr8Xt?i4K?Bmijq%_ZW%gHlO7i^eY&Q%K8&;;w}tkVXk0paR49BAG@ZgDbk4=FS3;{Cjb zkq1(W3K}v2lo)tDwoo4oM)~tn?1jpUvM9aPVg$e;=goW^I){M;wVjdI$$_VMNlHs^ z?160x9q08$MM;+|Ek~EHTf1em+E*Ot@`k&yNs@p=|P&F8{R2^JJ zG5_|^L9CPGYYuD!{1)IwHUJ}@ai|>h&i_6xqxqM`5!B$hJJb7|Uo?6|9J|TYSEzWXD_nHrkrHSp@L!`qR+3xo#Wr74}8*f z(4P3y&14_OJvu80H?KIoz%85Kq`#>b0ExjSEzwxVCm0YX^nEzX#Z6^SUUeC{y$opn zsq&mH#e65SDbT#PD8P0(W}hqB;@U}gg+5{PhLVuF-yZr_mM3eRrP`x&A~4`<{!XR> z(H3jV%a#nWL@=$SltM06EL+U*CE>FE4 z62`Lizf~HgQUwLF#j2c!S+r{J)!IqJ%kgh!G8Tq+7;Njij#+{`{1}G^!QTI|@PY-# ze|OZ_3NUzV*V_)ifES}DMxFn7zMsWjRyXsQ%^;?MlUd!gwNQW2G|@3=E^szjRsH4Qa0TquJIX~+_)k`i++yO6g@EW=Co%N9IeUq&eqit5l9Cc=Ak6RwT zD=yT@?LAkmr`y2EXY#=U3L@=b_hv25tLKeDx;C~+j_E?B>gXypD!qLDTb>-NGY6Kv^7b1T)7zZ{Cyv`|$O`S4l zxRdge%IcQQ9zYrEU~BvPH|EzvJ#%br9gt^ARNYioRD_f->F&v_M%X-dAN7Cx<)IU>nNKF7m0JK55qE~`O(0!>Er~06zer1d#O^#c6C9THsc5dXSrMo+B+w!Ga8XdeI80Lvq zDj8p`p&3_kzELs>;uC=xCJ>U&+IHL&#NQ3UQdV?Is*Z{hD8cQ%vX>-If-cN%8`PC67~1^yES@~tSraZH$<^#Aup3Zm>|O3? z^3;I}oE-S>{CE8mdJf+}Cfrz^c~OliC@16d^!sC)o#EOg0SQOKO@Lux`yQ}OhvduO z7DchLs)eegR*`Bs84}{gmQG0V4nL+g7ssIfHBbZd)veOBKE3wI=Jw`Z=&M@I%yM!E zbyx%Sk)$**=WTDxg+wnr1@i8`=RP#d-NR2D4a61CjqQ<6d}baUNxw|iS=GxJmR`SM z3(jqRsDprkY=UC81!(|>t15DiwIqdDA&XiCZi95mJ*Exx6yV`_gOgOtKy2k)k~Dp- z#q=V8PcD66?XgjpT{lpGLEMQ?1sM7E1t4pocJ#d(%kOF@QCr*TJwnlMTOm2N?HoAM zj~7xnh`QZQw#!)936GzgCtK?MQ@qaWU-R9MO5C>D5O|BW86O*fRizl8O-|o9D#^frG-wQl znZc6%V9F~z#p-U8MG9Bn0C=1r>zFxIB_r&G2>S(|niqzF0sVOcC{^1~;|-M<8u~qk zPES3AZF;g=S-}JFjdV=h15Nhm01ZE<0hsNmTgM6RWb*k;NjNgA~y)=lx7I-Uj$yAG8!nUr4{7xpV6 zlP+Ltn+{qy7VFPLb3HZ{Pt)bS9ayTp{F1r;{6m+~1fLrP<|5@n`do98yESU_N_M2Z zKtp@?krwU7Q?X+_Ka1Ck*dQV8QA9~QW&W&5!9Z|CEp7AdG_BEQYKb9LZ=!Ozq-?ASkFwgyr;; z$z)7-YpdPt-T1f}tMVUbiuLJZAneIFtWS6R*zeyAIs9E{x)!!(lg@6=BVF&qhj04= z1qI#+c9O2Dwnz!V~Wm4{!8olrkrDVU2n`-Rw5J*Ck@(jB$(3{zFzbsHhQ#6Gd*N zz9z`qFOv_RaUFS!E;W+>jz0u!ETt+oop_S|6ONvx^y6|j7So!@nZQ163s@t!;GY1F za>^v$>69^0S)?A`Fn_`w)4rE5d&H)S2AtBPv6TTM@KyOHNG>Tjsx<-=Int!3LZk&j zajzmG{12*cGDly0XS+LV{ewhfOs~Gdp1#DIZ#NC~!0$Wx%~oi=+y_JX zEl@6j26ZvDy^zH%<=?rHBwAP-IQiK(v*srCrCE^?YHDQ=CoM;uDZZ2E=cF&kHjo?0 zdCW)IzMQ0{N7qhxd1Emiu1d9PC+Y2hAPvP_(+tjETscQ_HNG;aoD4xzte16dv?sI2 z6|6ZZwK3Ni>)~>rwH~>i*3rt$~F!3^?=N? z4`MQzDl5`T(e`yf-vDido|#v1JclTxPBuu}QY*AwiV1$^E*FhE_9#U1KOmY?FK#m* z+f^!H1D`iYH`yCA%wMsz)3W7II3PK=k#6B2^?qBZCs(*AoMJ30qMEr3$X|p5LnHy4 zyYN6kf;jmBApO9qa2SsFlk&Gix<2P&9q zh)r0ks?24kI-!!DySCGHkT3u|1_Hm)L|6PqDroAE%+#o;DD{M{Ow%TqNFb4D5;MAtwj`kwST*^U@fk2N>SsXY$e(XahqnrA| zrH`&Akdg&TK@V+`_z+4U&EM-#e15GCl(Qh{6QDe;J`!|M5K}7qUZ0FTfG;w`yhsVQ zG%8xN9=XaENh0f+j(c-^Q=@kVZK%p-3#Z=J)T_hVHS_%dVVVI-0O~cxMB!P~Wr}xn z#oQ@LbUYyL$-Y1wk75FP|6m`EWJsXo>UGh@i-_`+cpE=EwEqvxN?egkn1f9 z`nv}=vK0fWvASjV;-R*d2dqi$k3e)u^ks1-uiEmnmUF zyq5Yx2Z#eJ^c$P{2)pGR+}VFG0RRVCIp_-BaS(>0HI2_e*vo{WlddTts~Qz#DL5f9 z{L;TV3|7IB;Nd{|b`vUrViJt4kDq;`r^oiJv1H2E+!~gDjxMAiO8_&5W-NFQ4j6+qz@#`RFPscdGaOZQ!zX}m; z2km4RS%J`sFvoU}CH401%T4)(NGwz2{gmIym#~E7e57et5 z-s*=!@hWK7`&g#;XlcW&MZ6Z0Vm%o+)0S3>$+7(p4HF9d(qpN1J_Z(U1}WFQI)B~+ z<*_yYeFgl#?wJc5YDd+(Bk1{&wIZ7ag9EW!5dzB5^*xxayY{Pgy+a1ep-LIp=>nx~t{K2chH}>IoZV6Qu|0(_M{y$+_ z_9TQ{@7EbG;*sI*&kU(2GlMGQM+~W^AWe8>zbTX{Yz{Sje(*r`-nI>isF9Eh73BX8 z{pA?z?J)BLP0w;GTS}jk%%=00@;;Wkugw(7fh>Mw*Jon}%BTOOYafu|*F2n=K~Wua z3kpwr3tlo%J#+wM(8PYmlz#zTX1wo>O%~q!PL69u1kYQLx@od4m5<{UcT~ZuH)47K z?eNW!M^|o7WEb4m!M?wCHb=5)uG1mh}BCIBe$Ih$DOw?U3=-}1L}CG?GB+7 zTHaqjWPOn%H0V*-zbwou0 zjT$#vlf9LteVmg_Z|UlN)hkyqh@hL=>rgd&DCiFw1kILtirLzFFlho>Q8g5!*{R(Kgz+d`x6q@(l1~#($pfoMG#i`XFt{>bmRGh=mswN{q7n7F*;l6B1 z*wk_U&lX4p&h;?OzAJXSx!{A2DHeNxjpo%#iRW_CgD8QT=C6uM)`}D(*<`?t{z7J2=E4xG)!hH+kOJjEFsai{ZL3R)WC^EpsP~xZh#wT zJZHC6f0xrXgk7MWZTMC(g~ewwx#}nnmwW9~Rd4GP@>_+I&{7`>YU_Cpi0+4fC~&Mn z^LFCb6KFyf1&I4mVDWwMGZUd0W`g{C^Q13@uH9?}OXV`+B zje$wh1@s_=lU!kD3mSIEL!IPb^m`JGDT8nqit(~f7&vk`8}G0uxUdW0l(Xj=q%yl1;=Gjm@F-k z@J=drgu@`@TM2c{vcCj9+eMukkH}tr3uTKEN{%ZABgUudO+loF81FOh%)}3iv966x$ z(${eZuXE=8ojrp-4c?et9L>e>LoIY;p35WxuxZqx*kzNjsuIX7pSEe44Hjt_C_`UI8AGwFJ z6{CzW5rYOzFxWIP-iEsor|oFVd9naxv@ybnp0Rrky)g_x_v5(S~vTcOqi6Vgs_8Yvg) zY!H;k(f0%)BT&rT%o%`=_jL=3`cikFXmYKF&G^F}O3jr+!n~*;wjfpjNk!U^nP2}4 zjHEmsGx%u?m?mjiNrFJFmcg74?(gaY|3f57s)lm&SuM{Tsvx~yfhFcSv+%>`98DR>x2uI}VyOdzbgYg3E3 ztlqSe>j8UbcZOO^n#OkTYp6V5hzv=uMxGrT1U{jRO{V&zNm~NNu=<2fOgUM2HUfdZ zWUy{_SCcX3#lI`pRqZUmy#;!kN1b)3Pv>QT-^ERKMOFH)fb>a4Il4Yy{hc}a|9*o1 z{bTrvU+qYOf85cVmc3;6&AGv3a0NNOweOE%-Sye=Hg5TT8WM=IRig7sEF*S_$T(U8z!V{o94e2m{b2zm+JmxI~p1| zTXPx!6yK*4hgr2*e3mG*-9{o8ZIo>NV&u+NggunFFtA|9+E`mSrNJ?#il-Ra8gD(u z9y_xgEUC1E<;i}km3+My@g>-+JfLjXsJGa6+6eXjutTOm!P8{3mm#vGi+9tL(<=7; zFf}v-T2QBwyAQJ%n$kH?bZ}9a&fcIBLI&_u#I4goSb#=Ntr`W$rAffU{_WY_(^o-q z!O+R8MdmjtI~tFg3bY--aX>lmgRd|SIQ(eW^iK;_0*!4;4=q>`faX1QsJ~NcJNd>g zcKDkfNHq^Iw-*QRta*(76PVry9Lz=%*4b|IF84*S?Kg}zEdneKGg4PH9;j9~jl1Ti zwq`?+PUo-`8=QD3l#|q(go*{1V@ol-P}j>A^`F8`aB}%S=>8_}a^jrkQcql&Mic`m zU59#uc#K|E)bOO?YuhWtidTJ2Ms4Z!v(C7AzVC@d{nd9If}qAvSDXA|hhHx{o38CS zv7Mn%FeI1dGL`mTleB5p_MM~acOT0Q+`Gg8WsR?RKd4LjtHvRI(8hf{U{4qL_Yy@A6Xw0BMt_osyJri_Z7;Tflo)_zmfjkJc3wzT7Ky0<|RDU@;p z2h9ZRQE%Huk~Vd)d4j%3?4oj7<9?F|ch~dl9A*vb&ehs1qEhK%*CVw9m4!Qjb@NL_ zo`vPmt6}%7v5<$RyTOaAqoEahnY-Wi@4y*q%Ow_KgM=nQ1RN-p4k4qkRmbm=Z! zwOZ;-3{T7lb$i(=HTK|oQDNe9TKe%u9(Wowb^jSDhpYDS!kf@KoNy$ znVrKgY$Q1?%E?fY8r+U-1u)$|O5WDtR?6?QfhG+)ksoYyi)p8;5okzYPoRki;%6={ zH))h?HiTnOl71}RDlglGR%`np4OcmHm3^tY8R9@9s1Z^n0pV+0j}(exvSqd;5^0{@ z#T@|=&e8)U1@uXk3(r!3kmj!k?kiMM2$F4G{PAaNBM2mLROK zQG08%3PYeXq^S~UYzuTbrWHD%=B@*}*M?%X{7w)K-0mI}9h(D*KPg`C(CMJnZ(gcs zOC}sLC-Iv*5}`hTT{|=x!Q30k&`K4R>Scxlo3SEPYHr?ovmIJF1X=R$m@RaCY~&{y z2l<0m7*-A21U&e0B`z*5yV6+ua^)I84J&E+ffBQdYD*U9OpHT{NnR&iD0P zwl`R{uD5Kqsp}ow@;J5{9}YLa7@Va?a1dZiu`a;IC+yx55ykB6HUz*raXnjp3hDz< zQqV{)^tTfFpZU-@)XV{x+i8FsA`RbFa{AOFDt)}+)fUh>4y+Bt{D+K@bk6M%;u3Rv zTKE+Ah!{vi&F`VjgS+3vDL|=RZ3{~(8q+`8BJ7j98^LPzuD!n5Iq$gA^R+FzcO!P^ zcP??+^Q`{bZ z{d)Ux(f6g;n?b(lcj$?}xsAoDKe#z(5?Z-wy|h1guTBU z9aZ_}cTSwCV7Hz_wdFr}T1NL&T#82z=88QW@<1meWk%X~Xbvr^K_-}%8<-td99bJ6 zhMChKm9pdM=v2IHllf@p0Q2kG3okEUDI78|*FRS9UAlMtRfm)_KQtY*ssqW0TDIQU zwk-=@#)0#$J%RB2Ro_*tt)d$h7K#s^r+A@@r*}|n zw`QNaX3$g;X^?c`Piy0-FgBkQZtV07Tw*^BU%ZkLZ|w;h?lQSD)4VVlMD~S_I)O#_ zBRIz5(T)mOlB2cRf?H>r0r?UCHi6(K&;8OzSbGB$O%-S7sTc?c2ie#TdIe{RE zMH7UVaY=Eb-psKXxWnaL4GtOQLsY=2yIHzAA~&h*?j8);+qGS zDuWBg1JI*M{ub{*gIR1<{3vkH${U$1#HVA|Ya5+7z{b^phb8R#qBG1fq1dh)*{J$( zHkPX-(1^>Si}qutO7)bcg2;dB&Ku1)Oxbmm8q+jwVE0{mll5s=0@;SB%5C5y zzmrpeLK`XkUa`eVVi(`LsS_LAchkwlwdwseu(*s*Nhnaw16A%&Aqfgv8iVFUjS^N4 zMI`a?I23)gT*E|EaJh(IMgtM(&tGg)fGlE{J2}7-cIo>2x4JsMsgVS*NpD)HmqtQR zo{02EVZ`Dl6);>Yv~5#ewHEZPhO9GK+2TZWrf6|$aeEZfX*_;$=VovtT1}C7KWs3X zrSe6C@E*LB@xFe(>8w4ZP1fxvuTx56jF;G%ZckNFJdKzU&1io>uuZC`h4Z;csv+0* z7W}>go`}(Tpdl4&fH}Mf=sqFScFn7ec^g3aXw#I)NBbY#^l%0xg&W1%89Tg@G7<9_ zT^__By)Tv1p`E0~rXN>>hDfTndO_xYH_#uGmRQ<5J&FiOMA*<1lr*{Ck3EMvby2P0 zCu!wiNRg`xn9zG5>j=_{2T7dW10|Oi(*HKUvj*I;x>&@lMRzt9U5LqLkd{<*C>)2o zx##zL0q}Kl>}}W z4CsJIfkY^?u;hAbFCy&%9k1qpQnS4Zbc&m$ND>YQ38akZd`;d@tmIyZ zwv5C5-fka_B!(KC9mT%NwJKvnbG0Ofq+PNOI~q98i5`yv?=FeW6hfNj_Az#JzYywI z%4uJ35h)rXxuI5s0cme)tl!<43ay`K@uWz^#K_# zQTUX-4mGJ1cikw&?u9X~jM^*27Nr39#M_$d2FxIhGZds|sMUQdB4B;-*0Hp_g8$L$ zzAJ7yKCUfvsfyq zaJ2#OYHL#@?8W6+ZfX=RH#N^+DuIKdISN8ksbn3C7L-Hys6$;Nz|bXC$y_$&TwbkW zFJI`4W&nMw&_BiYR6I(sTK6OX5_%*OVXHs%-hNPTsW015cYW${01_`)+mlQTTP<={ zUZBjiRALJ8Fr%l=RJ|Tb;rcC^tEI`}J$YU6GFPz({!&-#L<^8nevp(l+-r8Th z(7%!G>(D?(XT0^CSNDnaIv?KNpMBP6Z+l$VKj)vi=H4l^62P59JP98dwfDvfDWbVX zSoYQnPoLyMs#C46Un@y^VbB5}#9aUJPw__3#lCu;O+E#EPSLT6{ezN(_l%B6Hc;YY z7tOrE^gQ8*;*qCsHhQCc8es^mB_%eYrvu7brW(%wh33IA<90!ude}FxM6*`-Iq$XQ zUho);TNb+IC694fkK^BE&t%U`U;A>&%g1E*X*+#Is6-24hKTSM__4QUXVRO*$Zrr| zE?VfH`L6qym>%M}J(Rie__)C!;MhQvseiWi+WF0+G=ijSQ4M#fiEP=7qLOv*t~&_R z{h?`kyN)Z;IwAOGBH*vGUr4luKr+>vS)DUTCG&V)yfZlu9{9)rrY3ksWbGaw$8rzC zI)|EOd&70_!V^G5k(bkkup(O+@|*7+zCVEA7^6NMv~>Lg>51!iS_XR=o?3EL6Xw=! zVj*!KLt&mBf*A4#F)8`!oL1y=^~od7-VFFP;efCfv8Q9naY&DI+u z?@__1kzHsr%0X|d8wD>%Bt{o>GNFa!T%iP~$y8%$&CRK>EuMkhyrxNyv+-ismiY>N z%NzG5gwv_Du%KbhCgN(Q>q7jUGa^nZP<#D_CU&p}!*nd}{U1zatWBcXa>(CTe_vaL zD1c}E>SDTafz+>Jk#OVn7ag+{kk>uM*nar}`9t3`w9Ki318|doI`h{aARxWs`rFH) z9>n#VP5#D7dbjspGg(by+O$LF(8Xjcf;feRt9uZ8I-?U(C?J+zd5xv_MHxv$ggT5F z0x9uvbCNQb)il4j1B?Mu&&J1zT_#<#>&U5SGSZuy`m?puDYKeDola)oO^vZ0HLHpn7QK-rfVyR4=r9aD}2_Kn#%A0}0~z^3v{cfBFjrQ<9t2d#Or^ zJR4sO`cW_l1t^3!M^-;sAGzPkXBg#t2G*^NUU3Uv8l2n4`3<_H)uut(XJfZ&GGaLYy_-|9+3Hp?X;Pzt z=t*tL@py#IBE*?%Q%tth(R*_`Y8(B7N&Z^ZY z|7a;}2hyWATUPFoG-7*A-lWX=ZowY4!Jw{pgkS1eS?2@I(iRp#Is+p}cOnzOGnpD~ zyOItm4*jFX#Pn$ES8S!E{3fXtlOf`zcsLJ`6kCkXqmGT!SJ^OR-If{`(*}-gUniiU zLfv)XiBb*YQX;dj3xwK+KLe!9dR0tZzenaGU~>Gne~>Y}LB1TH{xG-^wuzGk({*~Y z0iX^sPo7}$u*R;6SnkbK;KLauc%MxcX_{qigl|>!n%_g>B_JH4SCDldq>JmZ+X1eV z1nEThUKC&q;&9JFw71ulIv%y(6CbVwOkR8$(0iV*Y~h5Lr{77XY$o)?2nSo#fim~b zR;5haeNWBRg)~H!KtAHH?eDmHkvGs&VxO?J(fMARio(Hw_0NniEQ1V~s<*eT#qCuw8r@$RG zzGZOqwDGx9)8CqxKsNtP!d`m_c*Yytv-s+}_`&iKJoY%SgUKn}rb@n7-jxpKS@z@(f890chG3IWRqQx}3V?6oUT}=U*%5%=prT0T! zI_6<;H)+eB3IAdO%{_CwoY8)1RLcwOFmH7^V5#e6>4zw}@-pO?N3Q&=CV5Y;!W&9enfas*u5s8A!y_W{&Av zodbR*s?ki zp%}aG%yJrdQbj(b2_(afeKy6LeJR|w`LAtov0k~Q?unC@LH6~x;;%LmNel)p#xR}S z*$NPr5~m8nSqC!91%V#=Y_h%Ul<^hU*x~wT<+2twhW-*r`IN~sR?=xx)R4Gg{ChF7 zB;DeD?DEL8m+PN(msV_{PaSnk7Jp1Kn?u=_%+0P!ZCD^vfkCh#J)NMl4e9VOM}PM2 z;q+!sdH3<`YZE>)>K0i@)G3YQ-hGm*n@5Z=&u4d`+s|47mGux#EP3PyDN- zmpvNB)KnE?u8%<27=2S65$&d3oD_^n&mC&U_mPW{VKP2>IX>#q6`%QW$3@FBc_;@s zTWTo-u&Z!3)m$JDKscp22tDVJA{G5@+0J|q_l{an4W|Wund&YcC)4n|ppQ<%UM$s* z@0A&33M9>@){Fi>QOs?P5O+}6uKp8SKR?e5I0+P=ceaxR8buLw^YagFFNcm%e2A%O z#EyDxPp`}#61Az!Row0>30I=T!03Z;H_YVZruT0*IRo1VF112Z=+|Nr*|~K&&J5{Uf=>Ci1OEU17MSq9~HM9?4ck?9Rz(Suk%QQ6eOw#dtxGxn*xBS zBl2H7es>Sk$mbafO@5z!esznIp-OO{cU65!{%})A)~w?xp($$2J!~b&p3LHfnL}7F6(mfSLiCxJq&vnlFCXy2 zz!tw}!(Sn&@yCP4f#dkI_&veGPJXY(Mxj2%nP*4J9{x_^RWN$!c~KfAX%Uhhcmkkn zY7GDpugyvW2}e&!!PQBIzD{PCC&z%He3f3Dp7FAZ0LuFYkWQ4GoIduGtrD@}2)m88Hrf&F`*{CDW$S&z9^T7Fe-QspI}hB<;StU}@4sV7nVkLXdnO*;$) zv@sc&Qfz5lip@_U-N3&ez0ZEa4@`CmN^MoHguPUiOcT)|NU3b8>Zo$5%C5WdW!};i z6oS~wK%h-Xo^=*xj$+h6Itn7qVY<}ayX}B}$z>OL!;5`1Mj}Dfz%fUBP;UV5`s~Gz zv$8biFULW%nO~J790Uy0X;2F+E$$wE1^?0WHy{wAn3%0W*qqu2a-R1Tecau|!?sw& z7Bp~R^1@UdQ=~91+f=YI^BL5syP3qmbU%-U##QL9X8vw_INoGr(<>|Zlk2-+wdzc zYu}msG+ZFN1(xmE5Ai3G{TV^)#NuP1NTx<1?zqW*+;c-Ni_!< z78YSZ{OM*;4)ZC1;Z<57-tRB5-E>&b5usbI^_~knkKt7~A;U-{0={DO=4_3VFLBn1 zNAyU?Gz@=(z1{Hr00r}ZN+_tm;S^LH{H&!8l6d@69&krcw%vJci@NsxTU~@>;-hd` z2z5Kr1J)@RbZVKRlqlic(La_rEw@h*32KuTZAH53o- z7{4jU0!LU7lT?K$=&#-4Ffgpgo;N5ga7VeU|e|TifpK=Yd<~b?_GD#rm?V zHUpHQPe1RRk$s*Cc2M_Wl#^&~*?*us4C&Gq%S+ddd^bWN=Dw)~KJ%JIW~ zd#okc3|+t3QiYK;#FCxXOJA=!V$#0LTuVJxsJ0|UYe-`}Hdt}*=x643v|p+suqHuG z?gyK0>It_NK7WvmzkSPhTW0i|oYl(ttKLRrD5aRzFm}%w-2B#{Tqp+}`c&(db8{h~ z^b_9evmL{ zq_wlaEv}?o^Fl$Gj)6glp^@xoJtIbaB2fS`WqyS-HprG%D``2a-D=RI2+b91=&QXR zv=F3)QlVSq^1EDrjg&-W#4vD+kf5WU#}>)#Q7L6>8 z5I2{8z_XeC0Fn_8VWBVTJC{j7Mk~TW8iSMUsh`}{AjqN=Zsr9%_P(YmPL+u^rl;t0 zKRG?q+`IUsuuxNrbc2)Bc*$k(D1^hfC;dv^9vPO-9LqN z7$*tMdltI+U5wluy?zl$OT)T1vofXq@|C?Dg0j6W`0~Hjd7dlYYfx9XR7DR8uk>}O z4BQ2B_qLpd!CfB@ti?Pxa{%Vy&@oO63ZKT?(AH9wLlZ_3y#0Cw(fMQBr38XvAt>k)P6MCZP+MN^^dP$uuvF3_YsG6e3qm#B>3F~P^3Tx4FFbG)v!uj|< zvKwOdJ$u5>Vg_tVjl!(OHeg22qikNBls*TuWuGevR9{2gS%+ticH&f6|7P@X?=S>1 zn8-RNWtBkSIUW`5;;dPHaRURE?Hkj`Pl;&FTK|t*;qHQI7u^@&95A+YqjK@<4O)yc z4B{V-o&0)e;NDAf_|e-g2P1}m9_^I8ap8Y?@~dIi{r3fTb#LDue>(Ez=Yreb?hFl# ztRes|fIA|jt0~^0%;?j1c;8n{ut-I&h2EC)3K0*yMvUg0>#4y$5IXs{6NM!U@A=((m~vEWA$&3>NwdwB5l7_XBQu~AO=pm zcP2Ls%dS0*9oSz>Pfk`yDV76B)U4IvLslF&6uNK|V6`=&9`9P0hSRdNKN3ZWZn`~b zgT=b;k1kId{$_c6Q>pD%uj8#2LI#vfG4|r*w1C{J4GH>Jtv=j-anNL820cW{JU&J+ zeDN}Ka~V#G>!PX!G+}n2)BHWEZ*Dj8$Ubi}wipAO`Cz+!!l&Wzq3GppS z)&hzCkmJFPxq6}^j?t@EuLOv)o$f%vK-VOTl32vi>+(@So_fq^Vv^P#l|unpTu(8- zUh(byWk)Lo&@6p^T)CdbRY|p;XW!~NqO?Em=8%+q{eVNJ z!10S4%{6;4p7Ry*phzs)W`T3nEpU6UeqpL%cf!cqYM;8S*$*Zbr_-dN3gJRwu!k*h0g8MGS0AL$d%+H34x z3-#u-#a%Nm+=gvaRbnDBD~ie44vdjQ$8}EmI@GJ$mEk?@gQg_qDP?2$m|W1+&EkKI zI3ZBQFd+p`z(P@c?XOr^Mktp8E@*^fZICiePa%i?I>Qr+Sfo%UpP#ue1OgmB!B4Lg zHPOKM*k0B7c4ixJhtQQt%_WacLlq0rD=s_ODjfex_?EA_kX$XFhon)^6DB09U_|HX zv5Cr_WN8s-Y=24OhdC+y+`uj zpZC%=f+euJ=nn=U6Bj}6St zZetKmHrj`Vok-@3zep#Eh2F!#VO%pv82C5e;O`cC&vx1HWwSPcZ z=|1#4^|0aS;Fz?jtU=IlYfD#{J8N?@qf^ZNQ6-|3n_++i9h6fF*hsq}%y+1uYH( zZ~sZJyR`fpz94R zj|O5-X~GRu0BR+K(MAT+U(GBEGvzh3uEg_`QsSMxogs^22KfXaP(nV69i$wKs%Us12b#%TV zXe%OOeGQ*0!8vUU2Yd%u3X^Bj+pB z_3Wm;w%q_y|I5p|lL(To3P316?N@M=b~KK9qRgDHO9zmL<*e~Z-=n$STK}M6`AG`d z@WQtbui!<=&|1Z^Yr4TvruUp-nWtfPb9S>sFAPs9Zoav0;9ll$e&)b?qSJstX=pWq zCy!~xIB;MGj3O7{SI#Q!bo&Q>DQ?1BJ+coFlD%^~PO-9NrE*|<9F7t#(m==4?Np`P zMgcIzHX>n<&gUMoHH{hPC%KPe_0Ds8crY8sr84wv8tfAzTH~V=+U=Jo$nDnt+2%nm z8UrV=*^{mgSJJ<6<-M-7jK=~)HNYjjQ$-X2a7)vZv&AoVeHVXMM82%lOPexY6oT~> z);}aqHJiKt+4E$1=Zl_CcWKH=*vUD9szjF#zy4bgq=mtZ)zcft#tr-Q4`>1v=t<&a zpWX+Jbj3WwCE&|8R(P*P*xZ?T;^-g0Ar~CwT46+nw1rN-Ghzzh-)pK1BdsI#`|XP~ zRe{dJZJl%uzGHdgT0c$rMLdD!Nc) zrQ(;Kw&MVjk%dT{H_e*UjtZ&jX@Wf1BG%XAGeC_%Q_w_T^_kGvTRVykrCH(mrFRuFg_d&A{fOPr&uyaj!$#j7gI~^1h%`htyw_Mexj0l-G zA#PJoar*513N(%1+M2PGNzUNDw+>A2Hj=C$k>s-Cv;L`Ry?X?#s+^DiP$mEh{r#q{ z9v;LKK{{elpAIR4PT~Y{ST*c#I`!g;aihpd{fX{naVby^$dd1s7g2;cBU{@cQ1atu z0LO_DJ4K1%ZH6ub z=#wD=%~bZx$_-H+l`VdMm&3^*EKdwVq3Hn2{u+b%3Vf2M4TOZI_Lrpg>C5&2nAj&X z>eli=w|RIVENMIy2VqkN$2POWX4pQoV4wLqIz|LFl?FlcYeoW2%3i)+UZ@0=oxWD~ zy2J)Vk>~2fX9snG-k2_0Ql-Uedu}@(kQ0MgonDv@oEZVnq0;C1}C# z0IqOe89lTUs#U%mE&x-i`-LdC`yD3%2L|bSMGz<81;$5v{R&WkiEsTGwof_D%Rh`B zq$ywr2emb`LQc*<{?2JqOI}&;s|g#&CiHfp^el#cmEBX22|Qm%y`SxtHmuh&L>%qJ zIUx!G=@&$!=j(!}hY;AoT*Ww3cYtmj3&ymuI@2HX2?9=A=}e|~cYffv_4No?Whp)i zLL?3~M+{MdK3>gsLPxWd> z|8b~nQgU;uYkP!dHP$sd>w$%7*HLo0_ibeSoFi~C#cqTj&AvR_IRb!^pMFL;3dmdd$4HXJw#GSR-o`^k9eqZ#XW4vqzP#-@|*58<*%M2&YrKlJQqqc8sTxt9p ze<-S24N0I=71$yRDYoI#$K^&S6nTE{nfDJ~jAk*D>97!hGObI4Hj-I4aT zW`<;%`sY=P#5~5NqiU`*eAN#D%;2JBNIX7-6WiKnb{4rr7cK}r0v3JC2Pf3*UjC|a zDe9HJf~w@bi!cY0e{&hA?eLz)u-S|ObaVd#oCf=(t@L}@vg`Q@IzwDVWIBA3hgmrt z6%X81e_NF0yzlhZ;w5yYy^TK|N)jcbXU1nMXC|f4wvtO9U!L$@H2h)xNI%lFt=wn% zy>^aAIvhdI-_rot1opbWuliX>o4Z^*Q}ZiUikg$z$sTFdU2bgx+ z5?f(bmp*8m*_GsNW)$z(ZQ+~*x`w%Z>D#V}>e{-5tGh(Wb-*2T2SI@0vY@~SsuSxI z0F90nK;9!av*c=Mf*au==x?>Z|9K8;YRiJ=46^T93!#3_+D*ejy3G2odhDJY z1Yv-=0H*0#(*2eD{O5PtfkrzimCfP{SY!2~%481a;nu-#VC9xcO~9S7&+OiRq*cJj+0k{tG7g(-UqW4{#Y8F$sa<+1A%7vm3p^Hq{yj05@A_SS__v^jvz0*uc^ zNf4c-l%JkD+@@j!GoEj`0T>vb=H=9!HVpv;vnBi+@*I)9FaUAZx4TH?z*T4sF`aOr z#}+67h^um1s50DMkNUo_IN)%?ZOG5Bz6#oE2k#7E&C3Gjko_OGe>Cb|rTZ{KJV zw(X>Np_`bsH#9FWDSO`1tr-_|gEd1l^9d~)GQ~d|5iI*@Jfbfn+CjHzgjIHW$8XN~ z;c){z-7TTMXO%S=4)K84@E~`#edq4L&ZTS{^^>?0DYeUkPjK6>coz>U3tWpY=Gnkk zMjkikrX0@HGH+Siaf?ioxY6ahaPda6;r`QYyS&x6P3=4qX{zV?@(G#dc4U|LASvcv zZK0#1scvc5T!O1nYEtckYlut=E11M}7X_jgg>J4NugJtVbp~>L+j}Z!rHOKvPVEYH zaWqkxFwm7 z5L7p1!`imd)SJGV=j3Rz-))w6Yxatk(K7FygpQcrDcF&^RKnv3P-l-5IRrgHAR@E27CQ?dNW4i2Q@fx%Q4LU z96{>0mQEZ#e|Vv%n5YSf1*B=c>Q2UBM^2=rh>QxV>M<|N*$m6h6u1@YZ zUKXhG7FxqQ6}1%>F#;LV3u#-q&zKN=lW4)_fj_=(SV#`f@5s}v7C2NA!Z$;pSJHFQ z?uP$h)6HR;X&dV!#V^D(kje@VR+!AeNR=i&6gHd+FU8ysq-5+{P({MzeAm;uh|!TDaB$Evwc;?*{@ zo$BNVCueVpn_8}$m&O=t%WMDqsTsa0kLEPVe}1g^C$#5&Z!fb?SAag{l!0LENVq%EM3t=C&7(@#wYp6IjCB+V>7` z75bpzbK^uIQ@Xx?-Hr1_k)lGcx~`JHoa>$Y!-Am@@4q7-q9~bnZbxgBnI}o8DEcC9 zo1b@HTyqh61r#oLW|n8vk;uprKy-8~BK%EYSM#~6O`v$*5&bNb{=I#M%S^-E8!vjQ+2B+7cLKU*UCRuY?ieIif+=_i*Qp zAWj|2DY$lGspU>P{Pzs2A;Wj3-IdK)y~J@vK!~}!8`KT-Z8LE3!vThf5uxX|trm%Y zGZc$lCq0NJuz~GC%7yC43mp?_E&HfvZF##DKanEI(Z##0_ju$$u4aqR%QaurfO>RaHnh^p6N^lrp7W`3gMufz_Xh!|D@I?o z{sCJ{qYTCFJCT6-lkShh+x@yxwGkhSLIZL0oJ{mv=6j$PRx9?B4>q8}~BCEbdUx47|<#0di z{DA47g77PVb#5y)SICGKOk{` z{`F4;>L~V{Of4W9HMO(J0s;;q@Dt*wGpYOvUSR7;7oBJuw55nXRno;0IYMg()P$3$ zKAfR?Ou64Sk`F%=8nd^bFE@#;jB63|>-b~h@hFJ9I6)imIV2Fbz9p830tv!?4m8h& zlC-pZ0Vb;&SHDd{7L;kd6t-byv1I&;QkTs8AJ!)qbJNe*aUUOKdDA^Ifx!Tq^F`Pt z3cC7Wd5JEB){s?DA28+=E1Sv21?@Dv_z+Iq^ipz%pX}Ak-lMoUO507g_5wX!S9iU&s_m$@J-6qg7V~z%&6! z$;ucJi`{q`tiT^W95sox1lsNm0EQOl?~|+4!@!g9C$Gku;Off)b2IH`TNimyS0FS; z;|LPUx*2QFfDsA+?m7i}7W@i~c>6Zxsxo{B)3BC63*>Tv)eggFRynxNi9YH?1&}+b z45#7U=}FKTKtvj&j>VaACQ~7gb@AP!w_X6o5rv8)v+I>nTYlo$vabS6^Tq0De`T1K zi#8E-bi)Gfg*BWK%G%Ex2<_RTs)-(G1bUw}Zm|7??^eQHySfT22XHVo1%FIffENN79TT}R*8a7y*wk4V_bD5D>H zy|-&>+YcJSA3fM(v9|<`T`r9^EV4osJa0&xaXX?an(!*lvHw*va#vK~jiJ|b*F}Mn z*?wzPPHFaOetMguEI4Z>Ed1Tt+qV*$$}2BvY?Mp=n?4*|ml`9q*n(w-69O*v?YNQ~ zF2WBARYc=TXC=&q)4!(=j^BbwSixeq7jL2mh6gXQ0vN;v9dts(dv-e%Sce&I4gB_E zZQgcdHh->kyQu+7#v6!Xv-vEl8k;EaZAV+I@qah)WBA7&>oNi}H9yD~ieQ8QP%K&Ds zp-8k>*eK7!%=R?CW$Yae2I$=QOJ5HX!pN)MOs6i1$?6kD{}{=oZFg0!_DAorex3iR zcmt8iqYHQmtrTI)>{8X>xMEslcC@wIL{*xhvKj+7i8_!EMhrRR>q@ljDN)vKK5gi! zA-CUDx*oHQO~$aq-EjioK1H0jIP2U5e~o4K?z&Hl>B9|nFm3KxrgTscq)7yXoTz5!eT>iO1X>m z!z8plJ%XMGDhYL)p!_ML{tH!54lgyCJ&t)O?h~afk?Dj*-^sqasm>2`eH??G7n_8` zW>iTKX!?ON6-Lx;22EXn*b|LSH~aXxwi(x!I~GcYtrlq+p}D+LuHcQhzV7ep1gokh zHE72P7o8uvC#j+)`uv&aRq2_I_r5D^xl;5CmjID53+=36mQXO!pr?ZoQO{lhZ3yut z>~sOdY*J8x0OCoQvm&V14on6WtK;Dbpk#v4wSz^3U}S^lTkAZSfkIw5JwX)5-7W5^phJl*t#1SmV)25Hqt2<{!4!2Zpp-vD z&`l$}I0oE;82GLCzat?oD2|^X@V&|ncr1PokZQnqV=~gyNy78BeT;vu*yr-zxNf0x zm#e4*@c?o@-*#?Vy*a!72DTB0!Ov6qL2AG$;;{{om=e9(J_w2|;?B;m2h0*$`{bz} z-(DE*>^tqq$%#y)6-n{xr!F8hwUD2HH5Nee!cB0btiG_^pD5#z5hf%SJ+|lhKM>4v zI9#qEb+&$|cg^&yj>*Qo%iXhqe8YHzvoolu4PfIESS{IJKziUOw)kJ#>2M2Wrx7fM zuJ^<-ED)O`^zf>$O5Nilgy{3&(hC=TzMlKhy5@ZFq1^s=`$Xp64DW?PWcCG9+_Px)f?OuEqGy&x;eJ#$;avGS z@0Dm;;IZ{!u+7Ly!zpY3A>b$~sk$JFHEcgxK9kaj*Ug%I)_=4k+Mb4DbMbJa7#eW_ zxY~aLL)L=`l7Tz~@5;RcdIBb-uH_GBI{UWF`Ku|b<93r{QEfNrQSq>v^^L(peP>au z86LyWZXm<7%%8=VdrZ5iDfC_b8>?r>SjTr=i$;x5!k(Efv{bn|V-%F!vQiTnG+*SH zTSDkl5S8LCe=si$nlbQb^h_o!F<~KIwg!O;l1d_!s@~|Qo3oUw;m3x~S8RZxfB*Q( zH3|JiBUYLErP^IVfm>o>VgAx8AZPn=i!ABNE0vhx^Y`lvZzTQZln42iAAM3&x(DS_ z#q5e;x(N;|z#HH__nGSOTLjgHLC8H{ZCVh{=p-K|6C%30^PXkOqj)~GDJr%Y;~8bq>AsJugO;* zY2tx_gkP6K_7a*jLcW*%H=(11c8Y=6}jdPjs>tB^8bSdUpVhVum+_ zEC$f3a}j5&ot<8{AWD#(7hd*r%T8-+ipe~mnZ1GDz`r+ZH>0Fo_c!AC9KvXTCXtaY zzgfk`;dSq#rUD1mR6;a|qORr-K zBW5{srYT;F5$xPUcGT*z5a-o>usLLJJge`wM{8pa<~c(!-p>sX$7U z5B?VqmBOkdUDN<2k%njKfQgBVnNRjsX*y7-+DV7RJv72ITqfJk4dSGbt3I|*(Ak3! zhYw-WxEuk=`4qmyr^tmB28ei2E33W?0!;)ySq4Je0*(YIGFfpKxdMVfnAFpwa`@S> zJv2feH;Xgl-82GK0kfTgAZ%y`7n%itl)&*&JSX<8cu+*=B=A5Q&V8^mP%|shVU!_> zu(J0wISnhc6y}z$q%ZnB=2KJIRCcI{OccXamCbzsNXp^krz|*bLJ(|Bp9+6aLJ{AU;hSjq@SK@DkjCNoY$YNOb53(Rx-#4Ysgw| zZ(+3bAqwLsC7(&ise5I^^fe!jPfF%zk9^Y8yL3lyo5h7}8IYb~!fkVJGJw$&uXw}n z(=v|>vN84FKnAE_?BaZ)%-EsV7Nrgx{)7#m1wUU_Q0Oy`UoOFXJM~)%O%PT`I|tX# zCNwH5#U;0<2Q*_h8lNes2rACcA9D&~yMG=(#<&K)4G7xapql-m<>rymC$}`BJ6^eN zc4J!TR^Aw6EQ*(h1}y%(@TzsFKU-XyQhx#axaD)W(6NH*KvL-dE_BCoxfJYi{R3NMa=sB z0I+m;N|8QN>gRFMjoffVWZt3wBna!tJ>-W8MMi=9rIt!pN&7c`%-*&vSPc%i z*+s1ty5?nsGUR&UnkqJbBc>b0#~riuiP`&4qK@*+BSj*v3p8=b;%25u=ccr9nb zy_H3e={*};F|%#=(?+l5r2*Hq7HB5JzPWc3Z-nYGnk;^15NG%hEX^XGi9RW2<|Jd3 zDXrdv%w_tikYltN(+sXhE+c?q<~5M2N&2*_urv4eP9n2*?_sri&BNNJ{2bMLKkwoH z@1M0cl!Zk@h#MA7h&ovL?HPDKlfJ$Yiw^u-f5d9(>KI8oIh()N`Q&W8{`&v*@e5*u zY*c*YnWWQE*tqp)3CCh&ccXSA&5`TR4je$rngyIqj6$0EVoyeaf4rh1aahNMG-Mdq z#2jh0+Z?%fp9L};yyc5M9TlI1w6eAUZ}@>1{G!ezB%eMWbp{FcV|FM3yt)3w%MWR_ zZ|~1-%)H!?d(GE(Do{U9b~ozZla>wtpUu`k)6cJKujRh~WAyrf|9p35 zhj6h;QK!MRj|InZjyj$Y3BF0ssQ8mf(clFCy(sI4{?GTn+4a(c;KK=HR)|dbLg;9c z{NZ2xi<}QX+PiEpzxDF3_#*W!=IZ9r6$P!KH%(r;*&Ky3T3+5utG&*{!VvnO#=k9e zbuAX~uW%dF6kqD_&K-`xjN97Td47s~G#ZWx@1fCq?v@-pBQ~pgwYX?>>bj?^7V{rY z@2d#Zr<6ylc*oCIR;L!eWm?durN$$)pY5?uzi`jXAf@Y=fBtb+L}bWj3mu1C(=Yvx zUtJrsIn-ajzfD_e_U@Pdc)0V5cUF%=T$;kGzu8~U=^nR@Ry#l4SlPK- zgIw%5S+yDy_D=b)Zc`JL4gVb9IPm#{f2PTuoI#JIYDsC%)l}i^)Yt7-zZQ}ll8kLO z*c<;~j8vFEQRPJ3cNA=m^QrE%HgRmFSN{gXd zQs&_!Cw38$qp%70pkU>Q+J z@(LpZ=cjJ!om9Q^z0w%}ZfQZ{_?BWB(XryNy?5j4MwN5ou zhw0&GofyIL(PkyR#|EiqbDY9uCb|o{9~euXyK0Mg%Z)9b#4)R0Jk(Ho*cfvny)Z54 zjl!3=MGQ8B;-t~BI*liKWbnTI6ORJ{qCXDk2>M$B@2!!P$fOMsV^>X{Tz_rR;iWqArH!DqZ{Gvv z2Wiyrcb#iqo&M~v{w%BGs%r?Q&kuRk_sAxoK6|0~fKho_t>4Y#bw~OKcN^5-h$hNd zyE4ui=D$L!8GPP)^>i@KihMom+zxI0jRTQM{qJIrii!#k?UC}+eB_KM?S;L1z`b`i zH>030_LoYH%GZG#55KX2vn_@)+_4G8yWc48*j7>@|BC{1LWTT8x?BF_Ys)Qle?B-e zr}QK4m+FvRJlcEcukdn=;lv;1U*hdgk9} zow+(=kEZv_Rm93ggi_uAQ5O}oKaBb#>2tY3lfoGDP>cFTQTgND*LOHa!zcQ81vRBV zQ}_CCxIM(H6m6@0{FOlRx9_Ev2hw*K+(175XY=y|OYABzyxi(?fjXw#AI3Kk>d5tlRy- z`-R+>*PW+#cB<8QV2}2&+E+sDo8QVE%9p%Qhl)r};YFS)>$v%@OK>$*9eGt4bwTPc z$Gc+5&Of_Nuu)50$Ip7?dw2H+*W2in1r^POvubMe?YoPohL3lkc>qwn$BQ!+{II z3_8earBq+-=x0%Z|Ad~Zv5Aw|INJq zD=jhePd=9PGZ*`rcp%NZv2h@r|5v8+-@)F=$t@t@5H{^U@m|&}7#9iRy@e&nCCpr- za3`aakbCxktjo+1mvqKA>ax zhlc*iLiKG$I{EqEJ-76J{=ep||JOIBBp?f|(C-^%%suN$w?DQnEm&4tH8xs3P=Ap- zkp5-&Zz(6t#tKWijeN3&GB*dqWU{j(?mim*ZsVt{^kMEHUpPR>TjYiNXVZeY%tUdO zIOv%9+Y80a-3kwtbqH&Jj+aH}+>$%}8#-&_5nO}HzTK>*_NnXJ9ri5&A_8jOA5GmH z>FhbB1o3Vks`384;+-H2+ zwE1PB`<6%gezLW^T!%8;Ca7i7)jaRwX$L=te2tHZ*&SWOC0Aa4MeK#yFaVBenfJ28 zFeL=(1W-)W`Z@2>7T!CLmZdv1&HoRB1*_e)!_wxymQgK%2aN~GNON!?4n$a zbT-%obWVNHIY;E?6?3yv;g{_y$muh)c_LF$=4U}?E4``hmfD^W|H-#C`iPEGaAWiX z`(kYXnY?F&z*-e1r(*+cSN3vGX2%-UyGZlz57`fAJZ{$4%n8t>*7*ag3hREX(0fv_ zE%$q{^L!pr%ceSe5tC%M4Y&-Pz?ztHlZ9d}(@ecegG$O(#IoLO$P@-yBB_k*4PrUp zeHm7IT?r7ONkCD!!+YM=j_DJg&bltq)F}fA^scdEJOD4PCF@|clSA%>4)iFxe1m2O z`g=UkQJZkzLbC;;EajvKVmj*~2eRC>W*|0wX)2sHTCa@yqb3N3zaUgLTGnIdH=xDv)o@sIbgg>W{7 zD4>sT9;Fewbwn?6pakx+i_Rcn`2k}rxfSRRqJjz4o(k|OM29O`^mMQ!+*176X0I zV-IwJyw&#n10m=fuedL3g= zXZDd2ROWL=)ZKDRu*M8I^X%D`TiQA3${R==n>Z6<;o~kyPRcRG2!;uTIm4!yz-wap zI&qv1CtdJ5SRlYq&*9tdQ$7SZ9xG$Fss6P=(q%)SBt}<3XL)&bafBAf6@9?ev(o~^ zEWtkq_Leo8)BL@J;lep+B@Ztf<_56+(h{H7!SEwg+vWWhs^5|iO+uY}D45Tkb2XTUs*~sl2gqu?aQ?&vB_?nlis_uDt z+PwY(5ftUm$2C2218lww!UTt!L7bQI1`;iJEg(#$9c#eGOG=lGJGJn7cvNAd7|2&o z(1tsg*iVrRN$J^am_-mU#MRR?{S475WAP8(3Lmqu{vDG!xh|3boUk!}KUNBBQK_t} zpa9e1wazExWpb-bRT{qL8e`osA!6>C>Z&!ktGX4sw z2eC=Di^(sayA^t2dE|4sWbe_V*{>=jJ%B`;(PpJ2?TJznmD@!2`f7}(4yMiwpGE6! zjntF&MjXA!0X7B--Fm*`6I~>CKK>bDxl~A97Sag0^bFM7SC7s>hH!)hy6Bl= zS2jbcda^i^=OfItYZQGGofFvvLN9m$4CEch>THlHeS8%?X%oO4$avm4&f!o_ zKQMU#NK?S*t~F@wAZjuP1{9~CZhxwYm4;cHhcR27foKe&4&c!81zMSRM22A6V?jQ*6D@ydlVgm3C+YW_N zxDkiEX%qrq2t7lP%J$sHntR``U3AXN1)3%wQ0l%Hd+Q4WrB^EXFIHZNI|KywpbW1k ze{m>?Cpwq8NPk7ptEsg3ic{#XzVu68R;A~iZTYvI&|KO^!`~~LBdIWJTz%h&D8_`- z)R^-Fage@3pGsbtQ5ffo>DW_r4!7y1+Ks+Lw+9s9#ho6sQ+n^ae}7{0K$!Wx@TirlSr6`rS&`)dYW z6#wz%wEOq7+eZ_lHD&$LH)T4b@XHiyWMRlC@h|o{e7%zQXbcP`TcFEZD93XbVU^w|hHV+Hsl}^GKI(MxsPaJ1JNDxt$=B-oVYxh?W zEhCdu+2;E%kUh3QQZ}1$PGxe6a!g0mrMu%wDoIXO%6(=UHNbL8>=ZD=#pSrru~hLp zE!%X@@ZnwHey;GGW{RSOrkwf3=8{m^gywQMm{BL|Z%Ipp#rGE_4qIva zfz!yn-}3?*g?OGO=VBTsN=1uQ9wdMOEUdXg@;>Qsfb#BOF!P5*g9%$teaB6!nvLk{ z`Hg6xF;oq-EENXdh{%YUM^&>aw%-Lrjz!WcdG7RTUp$*T!v#$$5b|Ak+(rp zeiR_{A11XwvX<$S&{zQu2f+lO3Na8UB8c)>Yh^k#$$Ena^z?Xg&z(kmBb;~g3+RDX zgw&%3PCazp>pdFL4+NrrPUqVMsbq0a)$=Mr4wMZEMWXu#Jne>GGLJE&PMaG$~!Xo6y5t(74;`W!W-p9UY46+g#&#H2d1|b&rSP8B#SP z>K&|4hMyDI+QSS-whIVJU3iEenp#^qIOe{vT}n>7g(} zRpu<{Ygs_ukxY`6LSTWl;1+iVKid3O2|Be^0NnOu&Ap`L zyUl$}lmKrb9!7>IYUP4aO{n#uR!7UVuM|WMFsLM{Gw(Gf_ivo zMZw6QZv8IP6<<)hD~EPvVeNuUWZk1Aqy>Q^_jcZOJ3rTo3k>@H-Y#W_y;M;5!JsgS z_uG{cMXj?-UbcVUS-2!qIxV%IzLG+WeYZKwr1?aarldiG!G0Ne!Kx?X z#OH>*TS#9bO5F!$7pi*tiErL<^i8=Es5J+9B02w4k$L?^=?#c{tiPwJJHxr=`>PON}%2@KPn7ks6SnJlN%%J!AFKzQf7q%PLwxNxYSOL(+lqY^ENO7b*`cd3WG+ z%FGzruB4SmOR{X?1(c2~-Lh~wTrOQKEmN2zSxG)m%!R97`X|yAw;w&2z~gk%?4|p@ z6gdoCme3{YZ;C}R0R6iLv4lWR4*J%)wfmpIuC@dG}B`!J4G%Y>0?{( zbRKF9OJt&l@DarZ3fBJU%^Q>?cwNnr*+3wAo)M1#*5xIAG7}ZJZ$YBqdCRaVG+lgs zXZ={9mwrp|reQCl{%e&$oMp-Rl1}GEzq2G@>{nScw%j>O3m4Sy#nV@lvR=x)v$=bC ztkJu>_^zYjvBK)piHUjcO3Op$u2uVNh<7RmH?La7|UzufOU#a0Zb#E6@?l=Bi}&908)GL(YfA zIshoa=d5t}av_saO`RmNK-|WMhGn=cw%2FxruL2#3lAt0qF1ytAwbP5OEZEY*XCTiEG1v&-RWr=4pWnT{S?o`_D$%TkjGyGXT#ny}prdpjf4wO_Uq%UaPDbMk3 z@7vrw0z7ApL0kajHZZ#k#sQBFa_n|p4vC@%+wweiAu zKHWiE(7Qu(t#mCN80qWjv}fC?)}9K{aBIT(+^wudQF35FcXwCDFtsf+4!d$a);uKt z)JK5V`l=({usxPB+)V(Y90@I@%Vl`dNX!-58CANtO_hA`+ZtQD3=$LOb(2J><`^#B0uf@K69%*yCG3w1e9E zU>5cOpPl7pGB2+)o~&tIM$4r$VVu~ppzRFrN`TP%T#8y>3H z1*Rk&9%sJX6qNXK0{(QM87<#7Ybuv3T6IRA-F@lTnDU86P9U$js;!i{t(6GZR3(=u z9?h11>g=NP{*wMH!P$5B`N3argi>*RlR3w-q?F~XXkA`bdRt4GUY3h9MuQ<_L=N69_MmOjLiBx7Xe}qryFIW)10EWg zc(L?R@pGpD0fQ~4nUYhzHYAs){379zZ}Yr-J^6l$=Kn+0n};Qp|L_0r$`ln8Tyi(u z+cYy=(o9jy6_;ExO^LD+cN>?olu|_7%%#*U*IaSI%B3)6#1^e)#w5ikHOyv2Qmhdv z2+r>{pYLBk{KM^t4^jWa4PVx+!BSy(xfL zH~PuEGR%l<%)lLS2Yb=N$JFjy85Fxxcm{H%oFaiGHk#3nBE4FWSFgP5J9zlcP%XlE z+N$W!?U5A$+{Hd;vSH{A`_=L6xAD7_$c_cP56KsM;|^IFn^W&G$@_l%m{lq6=~Y7bi=;U`KmHx%OrUq%_CnVeipv)YW^37#$p${C z%D+&*D6qVvL@GX7ILi<(2^)Q%Z`AzXC2A$k4RO5o(~mCMAYaxvUyW6{Bqmt5tx>Ny zt6hJjWa4oM6&mqLqBJ=3^FB2r+3{*&sKF*VLrs^Ff!LZrTwTpkN~3FD9bkex<6^hI z6bAh`|1K9@V0;~Y3+SP0Zu3khEHnbFR;xiiEHzGjq#-o`43f?+xO}*o`HGu|ari`1 zwM7olDKB2z*x2E`NaB2ayD#_b<*6UoaV+JKUMWR;+oA(zO`5n zafi0`abT-NpV@H9&kCeppqSa zH!RnXIqEX2HEG)N*R3KvTgLOYwfc&05iG7I!DF(OADI>K}JQ{nAM( zUJ+ohKUEnmVlfI@1Y4Wm6DAT^6Dsy2<^C7fo^pvF2Mb^u33bjE4 zVt~1EcK$%|{V%irHs1=od6J1ahD?G#DP!OlXtLT`EOeD2gt~m@GdwjKk#8K(^Gwxc zHT`{C^sBp>DaBdYBUY2n7o=?VEv{C$fV6=AztXBqvNkJ~L^34HxiuTrhu-cyO@R+8 zMkCJ!L=NU0*hvDe=lpCQh;XOX)mje$LH|IyaQ&}8pLW&jpYE1s^Ejple5~)%(v#`Q z>0h&?qHthTEZykr@-zQ$h*mIp+9i95PRe0Xw&=2)Z1;}X8Npu{x+`6@KBR!zxN#f; z9lGm!{)jc1OfWpcWNP3}WN zK4KHhP5Y=`F2joeKSu6IV_ zit`o(vx4>$YZxA$-L=5gm39wC;F-`GLz>C{SWQ~xvwNK7r*Q?j@1mzh^T3elF!pq~ z^|A5s%l9_3ac;(sFW!nkkk#ih`lwY|Eut)gR-8*8YvK2T)aF6)x@Se?zm7k^9%dJD zhU`%1Ryq71Z83D5R0mui7?TnOBTpQ|l?hk3;+CWiE697Zup>(ST{jeZ#cc2h`xm|p zUEXvyjGm8kfrNc!PilBMyo2sx<$4;c?I8crKcUYRu#T-8XW`wiUo-l2x%T0bCRugp zq0=Z4wC1JKY7PbOH`ojfK~Q#MH*0O!{=~gKA(z`jUB_I_k*7mo9!XQhNx6MG7Hce4 z+z$w< zfg_rWmWV{_>XfMH;d~edST>Md@K$;4koxAfGJPYI9t53t#ZB7c=jK|v+BSpg#4?9N z&2GsiW2V#9T+*H&bNPu(-?74s^~nD8^aAJAjMbUxPV3(t6GkTN0_bhpeZs zyTS<3;WT7g|GK9R;e{Y9kbaQ_ef=Yzo&6ymZu$)Pa6rT_ua{dlyw?F#uCsfiJ=nk+ zMZ-h%e(#+3)h*MJ)A6azc||+Q`j$NO)m?|Ze?y`4SQ94suTkl_Qc=hA8GeJAfjq^1@iuJng|UfdXyNDU$O|F5_29EL6?-!g z@_EX!Hmp0TsT8f|gDF)6-SMJg>#!;mYO8h;dn-)GPwAhy6Ty}ZjTv6sf1XdswZ`%z zEHB^R2D|7!Zm!kyIflfTt58Dr7^=@K6MT*rem(By1fKq$uVi>)*m!2V?yXyyT);Ei zbzkM+Kb$W;+c)whk^Bpf-yvgESRMtpT_Q5;n0)p`GV?%GN^L!q6TzJt>bjfX2}!V8hkfAXRyofHlM%n6jZRDm}3l|It@gAX66i@y>+_2O0hOJ8ksq}zQrkI zi2l^@cu_9d?H9$--{YCp<9qA$;-a`Mz1JQH3f)>X5?wIzs4KwA2Da?jHcry+Fy}w=nd0-_0TVJmH;(qh$86LmoOYv(F>E9lcp#1GR zbxt5Wl9UxCrv(VVTZB+n8V$-WFVW} zD;)Y74`s=?!*dxGHafbnxewZeEWJ6%3mZ-SE*pHa1Lh`q7~&6)q> z3{9Th_R6)uwfRITVLx(6f>XQp&@?>dZvJ?d3NxOQIYVOmJJ@apV2m?F3n)A$szC$H zYJbD><#j5p@&Z-_#rGG!I%bUYarj3%*BL33wvmzSW}$>jTQ6)XkRDS9$<1k>Bi2Cl z>?*e8x5M9o8DiW&H;WMH?2JekPfMMhZ6kY4x6Pnl@}~3IpsmrXwHJ%qSj@bWkC8`g z0vHD6*=o8)RzG=CGQ@9}9h9ds=BSy=5NT%P&Z;^_uS_TqFQA8&qig!qlHfJu)VEG! zpB2I;GO14i{cZIlsfmI7(F%AWnH?M{*KsnR3K<2MTm?XLbr?oBPf=@F5GKT(P0@6A zGK6I9oDU?x_X-fKpY;D%i<2Br`}N?^)9hbV)H~!o_e1w0cwZkMJ_oW3QmT*X*b9d~ zkBht5O>DhorvT+nYNqj-bhbdo=;z3K)6+x$c%N$uO9RR0ORVlI?q$Hj7$(M118`~5 zo1G(JWnb^PWOX*T-HtD7&*pUXLp1*T>i9FAh_Ih>=1gqP!kbfQcdtJSQxWpYKVpPt zI_E}046B=49S8~;RV^=N!*M(8sL5KZ6FGRnO(?bM zmi$zr&B?xRlay{WSDE6uK+SEO5lk3K&@1WpnPJ5uGrgBF@2+j|@?@UUuXuK-GOP?< z-dGD#Ext8=`m`pbRCm?9oRgT4El_!!RUuo3sH^RCS-L@+S+DL=&rjy7t`Cx_ZT9QH zoB;+iRNZP7q7+>&&$ELUuXW-{&AbQF3!&kYaP

FDC)yyeW1!0~gG~b89^Lxk$AO@xhen}u8Kud;^j4lemkBFFmK(T3 zQ|*!qM9xP{<#eZ=nh>;}LJJF}oT0&_e9{Bxd%8h-yi4}!0tYOIb0%m`E zhS~>3ITl5m{8EU`g(HuHUfw}j8axp_W-_xBO*c>Rh&dBbbcq4yYp^kzo@yN$OrFABEzG!YVsNMs=jh!dkRB#o+%2Ai{}GPEFf;nv^0B}V@mvlek4*KiVJ?Mp<<+mr z8Sjb6oSSKG?A=8beil~ZCD7m3SmLC+-Wl6LmY!bcjN1rExd!Y{>wYoR8RMHQ7PFTV z0~nD6GAl34#Qh||uwdn<00;}-0`oYC&1FNCw?S=InwXe8Ab3pbE5=fGRQj1MmA(al zveiHz!T`9FprG;mh&68nTiOk(yOu58RjCgmR9Fc4JN|hV|8-cy>H|~KwEcE0f;>Tw zLzLPcZI7V6_HrEXovmF@N#I8K|G&_-@!L_;?1B|i zekxfh2?`Y2aDJl^2dTDf{v;u1u5?^EZdO75YN63!@w?M8^L^jFhxwN@mVZh95jC zXCQcD88O33{<-B(QiU4!&p+h8wDx)FCJ9!m@pC`rZeYFKU|!EYtMFXF2v~Xn)J=|j zfulA$6fYcx-4f04*4F2;-IbqXR)l6o0TdNE)8S!ce<8uTf3bMQGwH3~k9Z4?@xYYT z?#a*~O=E4N)mu~Lg0W*59sLaCe)A=*BVDXWcH~)@A+rh=3*YRoM{Ef4v&n|v!uaS0 zjFUv;17+F&8xGvw>TcXjjBJsTV#nbG3T5Hf!N8zPlKLHupX;ikewQgL|vWIM?+r z1-rwFUoEBslHqsc?(gotyih;D5{!$tFd$zcKOl5+Mx8Ry#b|pGq9CU$U%e_KIGX6& zc^Eu&GI?cTVBs^ds2|odaM;fzR0x@F6}&Z&$zFdasjTUF(9%K8?W{xNWiB?Q)1}XV zyr|xt$D-p{(S~&SDaMJ*VOnGH056HnniPHzE*?1G1|QZop&<9kDO^Wp3C!0ON5($K zcjcu|rh*3~$#znVdH?E%B_la_8shT#p)LQO7 zo^|RuSAmq)ztqc@wd2>{ZgD2b1Va4m5NWCcG$3Ox8?!i_7IF8i5AXS4j@{XiSyT&c zWw3h~Jn8Q29#37q(XB0j;6jrXq<2q2;-#Te^%^>taaX-`6*2~!)fL(OA$t7C63<2{ zBnF1p(Y2O2u+0=W(>cjMtA?g@mJDWE60EzK%`aeEMISSDohB=FfR^b}-i^Slsb$}M z3zdK}E}0eBM$P0wg#dmRzyKq}1o_n4zw+`v2hRwJdv`gZe^XhOpANU}VJW@T_A^Hk z?6W&*f6Kj5DU}E0dnR8Qs~{q% ztgO7d5CFB~P3_ns0SLXL$*M&knkLvs{0$DGr(5Esb)#K*IC;>a@i>PaeW~hEO@3^< zh#CF7TT`BMKBY=@A>d};kXz;;Y1xJLYcUC|jPNw+BOs ztJxg!Igva)qE+X2RhGBAxUldh+@ekzZvEle1xU14(bE;&1Y?uQ8GP!ADpDMS6viG5 z4bu(xw>>@qrkhq`(}-dT6Jc}mwgOReUMhQUit|Ui03lCAuuJI?QjKTWvyvxiUK$Kh<@*7UJ^BWktF~%J$|h<1r_j zg8_OIoYT#J)uc~cwnMs9kawBG_Zl>@w+Pl`L9O4oJuA6 z-HJLEEWW~i+IPU<<{>-e6~Vr;MPgRyu6XOA@^{X>)8(_rg3}Wd%)c3!S-L(Qi-;Zx zd5yE8WR#Fq5$?#U$h9$(0eAiwoqB~hJ!*5<>h4&yfq9qETm7o0Pv(_{$mc^g(%eJ8msMJo+{ELTrztpSTdn0)lS`yN)YU)^OFcz_pxi&zR zS_pG$e}u9@H;sJU<<3!lXsL&HK6(_r!s}g1nfi!Rvc^SfOI+>c5^J zzy4;S@y4B!a&zNW7{)&CUNyax!YT-Z`2FtD3?J6gAcGG9h>Mihrxjo`=6%-W>P3A} zREA+zm{dZELW9$&@8p=vVA{ZV&x+HEln5h904t%li{;PmVL!TQ@$8X5rsc#&oy!{# z%5y~MeJa7(nb2A9&Jh*W)M!DC>?J~M7X%5O07(dakWyZCF1~I5={IkRPM`RYpUBL5 zobuhBUN__Xn`){rO}Y@ozF0|;dY|p7P~?(^mdz)+SOE#9_p%T-BbiN3n_{@|=dR<# zdgAOu^zvJa*n2U{PJWe3$cu6G)Q+|SKK_T%IwVd*36=V&1JG9?A#yHHaR=gtLUSi+ zd6QAer`Y{+fZ4}XmF~CMw&rU@Rv9a5TXfFmHnI+D<&u`_t-Ru({x#GCXq{U9cSh?) z7bPm#qCK;0#vttao?0`0DxE%kJZ6uQlQMdw)4oq}gl@Xx{}H{mHtXE~K?={(3|NjW zvQ>6y?+PQ$KqBuPStrx)Fp*-E?63P#JN!7=Qvh#MP`tI*+SPTuyRPu6kwYI#)eJH6 z!Q9zua8lH|QV&h!W(?88s+Vfdh0Tc*{;*>#9%*hTkFRmxp_#l~u;obq4#R2;?A3*% zm!sSg)CeWRYTVKnS3Kh(#JM;=ZSdqtsU-@}UplcTOaR4a*RI}k>b_@-!wBRIawdC~ z>%N}^MKH&g0WfEU=D930L>-Hn^~7c)hm(5!aL!Pl*EPtz4eK&QH;5rU;z!TyY-Vye zVP(y2EuujT>rjHnA>_;6v=O;0D#L9S506&dIUk=zl(^Rm_(q$g5Hpc6dj(#UE|6~b z6mc>o#PIOx$J5PLLh+)92Z>lv_Bc&_?51~LPur0q2FY==#6K4jaqpeqM_SB@%I+#h zW>7lwZ&(A=auppRe@K=$zhiEJW|4#wPOQ27cqvVv(pqo)eUy7ddJgTTKdVO)&da1` z)8h$8;-++Cg1)Z&C!C1nIg7g{w%p6w($@xw#^NI+<6*U3wM0%9@#Eg>TpA&fKpuau zEp6l=&Jp$&X@Z02zUx^Ep|VP6(sdU}INOysAW(mUNgCG`$z zT=Ju{@LHS;Uz+s70CI6yME!;9WOO=aHE)_427+!sSM% z-sL2NnXcFlS=D>~0A-8ngAC*4HO8YxLLHGf_laNlx2l4Zj zOa!Ml&ch%{7vXz5^hism?97KVjbAONL%AIZ34vHL^TILnJd-r0E$B=d5ET@&*nNZf z(}duwIJ@o5RWg`0s86ESJ0eiC-ORfAVms?fBIcv*e_+p)Q(X_dGN@IALhror!YsPuXj|jVm#rsu&yJi8^EH zx<{F;99UW3H}g8=P4EjXC#{dS_nk&Sru&p!cAT9&*kP)DBx+`4wH3q0h4lTQ&>QW{ zIm_AiCEJB#I24IKX^cJAY5GkV@TJT4{B#3TwYO(H5#J2Ci;N>8`r|4J$zoeyzi9^+{zW_k{PPX zYE4bk9TY~R>k+$)Ui{z=MRB8{$~g}>S8h4PLS=c<%_N0I?6lzZ)y_W6iBR^EVEJ<) zHJ5Mc+|kmoP+8fU-Tbup7iM(+%De{+W^bmtRvAX==N$R6!KzJglUkQ_Eaoy-VN2g& zxBqk+a2y=CyONiEqKu0F92xpx@^~+4N1^Rhu~(VK8~xRT?pWS)-qU+_)on)asu%a8 znV=OmnT+4cr_RY39Oax0pXg%_0Y|z!)J(vxEhduUyA41Fi`sa`0uq( z{r2K`=9v>Gw;4M$UOHH?MeB)uL8-wY(OxY6c#h0sg5iAaB&h7JTwu?7kS zr%W)Q*b%4hP~UgOQ$BU=VY;@sk*W@k%&7E6N2g2b6~fso8|uB+MY{x*%L z31?t$LUcaE?6}h*tcnazRfV9ei)qkJNX+bNH?@De#r{_)BoXslguk+m{7W~9wDa6- zs#LYLE|Z`zrZQr3y*y|qK-(5a&-WB`4U)d6hl=7*+pLu1sP!3)pH+Q-K_X6k-8F_DzPOd8NuO*Vk^sB zX5T~W%nO98;5WPul4fX}+Q>G(utbwWWGL4Uf>P*x#`a%E{0Y0Oa|<=v9fV({LNTC1yI(o`F$Sx)_TH{$u-CF;NL;%9`Em`Ui6Y$y`4qJq7-lMY#=1HcW#k zX_((Rhm;9Zv3z|nc7~Ic$&a7EFU>bM?DxP*(~nuqQK_#%SiH33a7VD77e+U2vS%6d ze`0uys=Uv1oWD&*y~0e{R_yY(tvrZEO91EDbh%RoJCN#xhvwqzCGm~iqzR$|p*c_a z2LLR^tRf3L3UM_c+E|s;SQ1Qk6nb01Q3sh^jSL-czyeRcVDU z!!Lw1`mCn#J~Yo@ifBg-Wp5^HXx;R=?g`d>F_B{DPS3fstrh59PC_Q>nZL|`U?JYz zY#W0l?U{*6T0V)p3S!`T+WLku@WE;&idGJ?Z|kqyw^`8e4)I(~J+EGrp?2c_34O3h z8;=3KFjyfK(KU2P$)EH@eTHwv_;OV;m{`EU<>P`+RH<-Bl=77F!gd)MSf4(F!dD~r zk@ZN+(qL%l$FiM6^LETTCv52jv;PW&?(QK@_<#cH%$@e|GX^wXM_zkeO(iaWG>J6F$Oeqey%;t8$mr^ZS zmaqJ80yAMn`u0+8B>-gMjw+IbU{m2c{ux+ToZmSsz{@x9--y!ioxb`b9K*bqa!2pK zlB9M(dRI#d*~62ifA@TEXPPr*$S8#nNN5fER+jbd;-h~oHG70-U(v!AZPBsPwJXou zRk?CoN&a^y#%9%@XO2YVP1;#2euguly7|)CM+$ni5+YYqMD`WJNojL(EFn#tUOF(77oIuJB zK>@xaHLez`EC#2ik+@Tud{a_?Cm)&s8%%R3pS@NX&m}GN3dC3!vIH2@ATJTSv^UiM zoq7PCDR?73lHJ)!B~iJdjsaqsXTLOTqETGJS5AA+ckc~ZRyqlE%+B_ZL^-a?Aiv1+ zzx+j{b@g(3f|(|$7`WXm{gFB|mVTk_*Sj=~6BUKNH-i9YLOL z#e9f_*(~gl*EsmX1q^M_LKWJ4ar*T`2SdaIv{^`Ckw?m?{P#^;$R>G}oBIok$KdTd z5H>e1d%+qn+7M9X8#mn1Y4f{%=OW!o`FKYHC0Nd+@wkoa$0yhOMn-??ZyE6_`s<`+ zqesfv=FxBZ&rUt+IBw&2Q~TPyS#g_s!(y>QZet(p(1@un(6W9*?drb%_S|sEyhF?e zwW;t^?+vYV(9~>L*>8TUM*3S`Mf7VGa!cXQQgV-~+<535pYS5SuJ@pFgwHK@X>Sekp#dEAP7F?z5PWJFIjz^c=I(I%)dW&J2F(oz?a<6P-=N zfpWKX5LVmd#^hqE{vSyRdL5lR6;U5sk?0$8e4m4>>&TRD@}yID)8El?R1PC1N|Tj& z$C)q13xz{dGPlz&5{@b)ZVJGg{O?lrYd=)&y^*=kF@Ou@sb&O?`kK5{e0p?O;U{|5 zI>L$dR>AO~yN#zRBuqAUz_Anu*Qxy%cf8;8S}U4Pf;tYVUs$%qi=RU{r{2dj83+)a zBt>CZz2fTYQgK`x)FPRX4Ha4uv~?j!=xe7@0e>AfB^l^ltG10It(Q*(0T|xSfvemL zVZ3gj+OFfjyS7E!Oi#1<5%U>({&|AAy5%tJW(v@$V~jD1;cokYdSfz6)_UN6oDJ@f zcf%%SclnWLm-4nzLSH3tD>K90F8z+}Ve*#X8XC=Lqds>zR-^aqZRdrKinsgIfo=;% zaPXhBS2P!o_Io_m^}TR5UAoOR&&$G>Miw-gzKxexNpV!{O>PQcPZY634Er-B6Xkb| ztz#}0ojD=zb^Sd$r;Ld2qKjW+MvGpJ>_T%ZG|(fP6)ku2@}mi|TaP?kFLNE<>E;Kl zJ}@+5cRboM{AQzt&?1@k@kqf%JjX=KK+bUI^FY74QWb7$LR z{dkB!>%T@@horXnfTk&A+HDf)$hRE#w=G(8s$LYqI`rB72(Bp&epDuA1}s3YaD#kP72&eQIAnHV|f)mOtb^p;4dS@eWgu$@dz_;V>Bfc zO&;76>8;wE?xeSI4<{oQ7N6BUkrL|;N`=u!uee?+G*;JO2BFq+;YKpe{AUC`_X!-~ z$aCA5BT6pN7b=p!x#?M?Les-z~_21~Lhj^C0i@C@$p}6iW89j7#;`h}EHMW*w@zHwoSFaz2hv;;iP9N53 zK_P>Ua{PHrGC!%s>#HUEyZ`nFCKsG`DYXp$CD-}*pR``zAc1nCBf+|R#&1|vZY4Ta zJFxUi&!g%!MxR=GR@j%0V}W<%>KmDz6BCU^*B_@1Lay(2W=TyQ>5YmrAv@?36U+dQ zm#37v`ESSf&QRH~!`3z4&#U?lVI#0Tx{+O_tjVm2OpV+ePTox16o*aDr70GRX}*bR z1&g1qr4?`C!oPgf=N`u223@zPQ`VLKM`y z_-5ZXySGk_aLrvVZ(7g9W8*`%mQ`gqn~rC2fTOxT{{3|L8yGT^BVuGnYue*OJixdR zC;X=Ek@Ut_zl78)miOW&(N~M=tIglNE7JM?&_PI+O!G5M3MRN2<$aoFucSIun02MU z5goniK~W>{g_ABVz7r7>@`t;xTgai`8EJj&S0t~!9L;02H$&i@Kcq3-N>zU<%6Xj) z7fa*Gv!zlYzh$kvv}yF*IbzEPkPVRq+B@7h0XD64tF?qfToO}(2QiTm0n7H26Ss%s zLs|2;ErUTd)1|AwtJ8%@%OnZe>$2M9SuN-$9l*)(kwY>;`SJ1FjWzWWeG&wTc|#MD zi1=3QS|EgVdgThsSlL=rUB-aR*DpOs7;v~TYm#8e^6*()AX0oW`cKt}u_ni!(xDmQQ zo4=!6Q}r&X{g?%9h7kg-w0D4OWPIEC$daHla@n#MWI}r%sFJ7Xw#PRQLYyqzc4Rte zo7R1%B8OG+Ac@7&X}&d0&~Z@O4OmwAAFeD}8gHUKzeUu9CroA-o6Pk``ba+HFFLCS zOfgsJ{A_u(ZV&aXAxj^PlKL15^>lG3Yi<9|`0pq46Wtag;Oos5$R<5!RFdT!K$=N7eRN8_e8 zB zMZ9r(bRp?SgAV#ozOAPFm82&9(NE7Vb35f9a+pW${*Eg7ef3T8yYbfTUGiq>jmK;@ z6nmU%##<{B%A?L3jmG5OjU6Te{I#k3tD}YR;&_wi$7~$aKmASr@~6?ikN=4+ zmU9KG#{YZmYPkRLp`YH=kCbyZX{yT*gDntBer_`fBzbTZH;~0)Rgp^74Vlk?L_0~J^x zNDTeZ1e|r@=&?&BmDkJeL$U~}U&WuRdrarwDOO;>8p|Qc>67s`oOK2n)2$VfI(_l9&<11YXjoqWQL@hA*(^=2t!=(Y@Bd_!H{eP zi0{$+e{Hx4e%D7WLmjWWUqOHZ42euzqnx46;$MV{rHTnzxrvYw3Hd@pYiny2bArgo zNNjZaa?)SZ(Q9kB2?zQn`4XNE=R;cF$vn9MSq0gU>pjdl@gyo~h?)NteL>aeRQ0agquu=RvaVIuEGG9r3(wcg$ z-@2rX8ex$_XV7uJ#=rZJyySQX6Yk{~ zFKuqTqB2Ks>FS>eO!A*`;&7A4R2J$N&3Oz_KD%y&%%L5b6U)?DvfU&|$|V}rY*KBK z?tbx{@k2ZvEt;y&nr(;L%!2O&+ra2wYf=*YG49Q^=vv5k8AhbZ#B5$}Tm?QkDhFFV zThh!+tfe;!838RcL}a)xwA#n{8jS2^^XwyIcUf1}UHv<>bNOpMD^pYAD> z`;H^Tjq*rBcO4T+fSY~Gy%>0tLvVswwaji#$ro#;GbI7H%^-zGHI+-6AxOQn-6 zkCQzuyICowjA0QTfo>$q8|0W3-3==A;f89;Xsp4)@CXMY- z?>;=L*^mF8v6Ug@k3W65MImALFAM3<^S(kb4bMoWM|>taTjtEU-O?jlq*C|B>gKK< zWa9AP9JF@V`_BQum|&-Xf0bkc_D8IfFGT~rvOX(-82;r{;R8jN{;Z$HnzD+xV!y9Q zbwVznSg%3QROjarkJ|^2J=zfs3956a2Kisj)hQVV_m3Y#i&|*Cii1hFP8gfiRm=MC zz}t3q_FP8(E3Zk|mIH~}yGE2W3!}C>WOs_&<35@<^yL|=C@BZ9SrVeV(l}Vn9a?s2 z?>qbkv@){`7dRVl?$VlJv$_RA0KWm8Jl7m9&7%e`IyY@1fK?-oq zi!&@uX0QE>v4LwYDFtdeMtb*5LTrqdNrm~s+s0rH-J+lK+NYGzhKtZ6^;vnPLIV-ZHvR)C=*c)c9{C^VL#|t-LHr z@^2(@L?Ngi6mK98F6B@vBuNwLr&KPzVzI>ZkXoP6TO08Hyus)Ck9_%J(VPk$X+kcrOsE5 zD0VvAOI=|0&kV9w1xjL5pEYe(}y z?w%?$H(*di71eQk3$O2TM@ZM(ZwVY3g2ho{b7vPPOask+xaR{YDmXw8*BkI*szMLh z{jT!0`DHZ(1Y9e9!W`t*XGTF@dw%NZ77qyZIw9!n`*4k7BmLrweIB~8 z_{sE7tz`u?%alw-{+G^HN?#nZc&m4he>y!b?@7?C)_2w}xQ1L{$RSW{zt%Lkd&-|v zm&Z*0c=*r_U)#TMo3rg`)T#bmub2iKH!2(sTpvvulJ;(cl}%z+G|VT(B5826s3D+{ z4&m3ze7`R@{HyrnOIvdC-bjLgS)qKkh(SK$E|rw?nehKZiGI z8gy6n3|ttZu4QO+CPxuRLg2`ka}W*77&P}pm8mJ#mnIdS_;ROSCKR_5cVUX_QCG3) zYfs1at?@aog{ITd8fa;fV2056&FA@kv)x~0IAK0&*Z+EipY>bYi1Kg z4er)@lG;ttu%`GKk@bB;-ONV6u0+t4{9v#Hhq3Zi-v*}qjNd4GT$}>)p6gX0><*kl zgT;BXrq&;5j$)H&#y;Ygd8Nlm$`ywUVS1PUVl`KRY>=F#5&km7E!TYy$aRxu|A4u&6zJklJ7@pXuHlaoH_bUVT0f&mlJLde&&v%|z)e1{vSq6fwNE?qA`NEjL*WEXm2IzpT+#_V0TE@pyy*r$rl z2~NqsJ`)fjGz*aK7k7u0wYT60cMh77h_#!QY9p1YRI8c&hf@{asK0&3Te{_veXh69 zfLd3Yxo~^qT>sFP+QmDDK43#=30<@h&G`%nmZdVay%4@=jV-L&xpI#s`sapos2O%? zZ6pMuc<2idT%hvYBt)V*uqQ1FjpG1v3KmwSqJGM>)ZdU*_c>{eET~PxjcfhbdA>b7o*)$ zTcU@KHo~tLUCs+yHqMydksTVU;M!^(z3@meDKgf)*GoOvLRgVtX}JS`b~Fa<{ljO{ zffZQuexkf#M_Z@bRzSelP#OK)n#2exGr4YxOjX_Nn{&E->}W5~qK;eF6}X%h57D3FSJ zsmb4cT0D(iI`Hqx{=Las&C3?6nckWpiI>EpPyvZOn}!z(K)O|c?f!SYlD%|^7(}R4 zlJIPhWbecDv-Xve@I*T`c<|O&3s<2K!HN6CcJ6_G-{vZ~@m_i5?EaRtyi|fbIXf{Q z1K)$)gW^Ak?4`$5`Wf{#09CtnnUZ#WcYQt(SsRtN5e&w?$~$9OxKmW^6f(dG_O#wQ z)o9IX^wB+n4m!PMvnlwIL#X#NlQa)ikyJPP59z{<-QOC`y$(n;Z!KQ)H;~tb+0UQ_ z`e+`AQlV1YVvcT9OUi3aQtuuR@YCa4ZpdQ2OI}UdGKoBHaLB!=15>&kw#r7s-FXF7 z*BEn+ou)qe*Hp^zoDXrzCR+n*@@5&*f>4Rv{fc;~oGmQ6`*+SyjL|Blbft2LI zxuBX&h?F)ebQ-%!i`SeJcQ?&4%a8uq9eDBmmIN@Xwh_m5N zWH3Xtaj{*eB4!*peqqnO?gPcf7G`GH7TvG`oP2OXLpR7N#!}SeVg9WbM#8r3@e929 zIWzwmun@w2os%2^FtxZ2r9+-4DQ46?&4ad_2~%0q-MT*;sy!U@ZIsnIcI}9@T~q(p z?lO5FC27wK7MN7ONV|AXGBpz z8lzT1{FmO+;@1H~%LLJEUQ`;Ca*DasI~SqqKbfDEk$z-ZWADpc!(N8N)L+nYRpyVd@B^Rq`AO6C74F1+6DbzKK^b&6rfD8UEc z8r$jo@7O6D$2}#WHFc_gA=z37&GA%=^!V-wdOHt~ok5nR^+f60d^%^^=L*_Yl*?*k zeycH?V*0H1>!4FSb@Z>$>p*P>WqDTTfTzYyP-!`{8}$rj&dq(V_2%t!%V3X-r$^9w z9=_&x^xw#PozmZfDzATLrDN1_VpqQ&{8GI2iwGj>_puwua#!>iV)SR>kj)>a;JDS2 z!a)@laqxYi$Em7AS)dG?SRV5D_m~Y1*B_}}thCkw%fST-piD=%;fwdVij@}LBc3B^mZ;!n3dyC|1S zbv!bXQRN=j=fSz`tuoTF-w3~SR2O~D_J5@vl<+S{{g11IV^%`CfMAgSDv)fBC20M>>o$7&k%YXcedVV$|3iUd(G$zuqbK8x+$7H=ur}UADk&rJPu@@SLojQ76 zIf={fe?MWlHxNhj4VjOK*wJu(^5)=|-A09lX(%1)>piCG9tFK(R&|kn&E6{;{Fqkv z9%{Sh_2gC87Y$Vx6W+Y2s~c>WL+w<-J-d#UX?1?tw{^!w4KyK`g;To_Sc`oXgvmI= z?tOd9zdB)qAdewIG@=+_7vnh!C=zcBATkyZ)p3`2nL(Cyaz6 zGje*^Bm>Lj?8uwh^K=4cY=h#4T!2!`4`5~{`w}VM{5a8kfAZua#YQE;MN}7CP<e;cFOD!AnHr~=dV9<&kqYu|jD#)ud5d#5H z7z|hij(Svc-4IS@mZ5GL2TT5y!d3Kf7&+$P7qwYqote{9B0}ho3E!j z#Vi}}XZ6qzqCOu$W5*+T#rKO#Kps4yq8LPzs=}Nx(%@b;%S{p#I<=ZNB*cbC0@cCq z!*ETPsfBG{jr|ufbFy`Mgp|f!Y3GS%AG+)EJM8*@${l+8zSdZ~FgF#WKz)jid0PSW zBPq-d=fJ@OF0(U6b2Ct{8I`}-zMn%9(a)EpVaq*r(EBQbt^ZWV_E6y!Q6tQhu>*IB zqRiw0>CWiEEa@Qdn+-V5W!xrZz4CCqFL&;So9?Fn74|A1nVDLqPVk4@?%@?wg#IS~ zA7$?z&-DNQ|Gz3R=Lv+ z(|ejmgSZja5P?SP#qT$%aFBzyGrWni9OXe^dKRY~H)Gq!>EURkyd+Y8o zPNXxE@V*aqyMg%xT{4U0wN=N-xQ=l*p{eUTBxZkmv&A1ci_9tY`gY{!L%h&$ujuv4 z0O57YNHdMpGZCb_>~z<}=M?f*JyV=rnIfDQHTP#|K~15h(24U2;Jg+>lHm$!r$X37vGOHLN_EZB$7yJDBZbzLLtPP^A{mQ zga9qw9oN+17jNG4E^M*h%vL>^+23Z`vvdQ8?6M3_3aP? zTZc*i&YX-%2}Zbl>{sA78hINma>X7!Hp;lS3FIo&=(k*EduH@4O>fklhWK{6+}u#i z_J_JrH1Qu>Qt%<2#qz${fJur-NEk;^GV%3ZK;t5aHAS6gKuNS%y-w{z5*pEJ*t<4p z3k4-6EVuJ|(2Ow|HFHi9Nbcki<5d^xM{uUu#GQpv$bv9pQrm^hD(2tbZ=khI&Qwwv zRzPwJtX@rREzja)Mj?SVLua>vMk+!`h;nj-5$1JttP4J;j5kmE0-wlpV>8CRSqTN4 zvDLJ8GjP5?-`h~P)|n;_mQ@_!5R#}F_YTk63r@IOIVkQK$_|pNaU+1^%x>B(PHw@$EXeM?uItM(t;uw`{82CO%;c$bg-!uFo<^O$I03t6y);Z0BzDJ@ zFSS}cay4n%g-_8PGIg*Eb#eY!YuQ&>SQ|76IW_D}-$YiX4VJ|AZQPmx|uE{`r=nvjLQ zy9xZ>zFq(3;yQ;Gjec>r*eP4kfcg?A=S>Af9nRuqL87vlEOH1x z;Id~V#MG@Ry8G~@&^p7HT6wj(gK1t%6#&;rPFb5hDUB@c`fBPLlH@+yO-^hY{oH6G zXIUEfkT^8$Ea#s&r#GiN>b^u{rsM0gYPPL9n6#63+OB+uR<5-7`VABwx2WQ|HwM)| zK4d_iZ4P#;h99eJ_M_}MBy-HNS~itR79BDPxgj+kl3}mvNf+?nSXyv85RwFo(Q87?iDQ>?$W!pEzqQSanj>bD2wHLwY$}RNRxM-}4vl!Dp4*)*ljZQdd1j1iCYYMzcRvyY#_wlu^6WUUA`S!8Kee(TXe8vt( z3w1ePWWT-yBCM>s!$6`T)m2Iku~12-P{o}WDpbbjkY(xPPDd8EZ%`>0--?+RFwV*x z6hhACw~ITPe<;`j4ShK`26tt*|=z_PJ^vysgmVPeK>3Cbjh;;oX>2~EX z&T>m=xd|=3yNwo{G}L z>-uX_mqHgVM!qvQ9++c53<`tH<+6m#^!WENOhTcZ8%kG6-g54Mr@3BXJUT}zCI~p* z`?0<+!VN&I*R7mdQ3_(&ZrxoKmQBpA-Y{Kr(NPiA7G=3zxsTC4l7^omH*i}_1>Y=b zS^R<45}Z_o_9mPweLW(Vr19?B5u2Ly1-5jjn<+C!aS5R3Ny3gxj=c#q(V^2*Q(7}a z4+`JpR7=QNNxv`C{gM3D&Q3}a{l=i7T8m0x&wN@s$qZP#4yAEZc&?&kRKM&ugJH#@ zoackE1KTUgnyaa7E(@Ykx?>}Vx|K{_NZ{Sw*IL#Zee&jp9UJdsB5;L$p6`0-@|FU0 z?Oc+=V`CBd0}T?b6=n1~KtT|;ly+|=xnnrY(ac3H9Tw#{XX%m}P1zVz*Dm1ZFNk}t z4yh4(eV2rR!Kzx~BDdqq!ccaH-^ZR(iz6Go7*6n1pa|omm|rbx?1hk&*IZ%=(-xS5 zd;JNj#6DWawVXo(D&>sf?t`S$atgZvKs5U9w#7l|J{ENUxPW|ggLID~?STx}>35O1 z{OuL1J~7lzvHzxDiUQrL`xO36=uLlr>AutNzBVY1Z?6rQr*u-gov~#KDpp6?1GAm3 zl({nf7rdGKbJm_V8EPi*d_37Hfo_m5GYNzcf=T|k|Dh!>AAiEWks*A=;A}l35@*OxMzX4i zdbkZ{*N@E^@r0r@Mm}~9(lz$06klU6Epxl?CV4?iGp&#HLA9@62K@dk>Ba2Ps^uHN z?e~)(3mq_^xOSy#lC?s~qD=^a2&CN>RrOYF28P=}oPFphp|g*xdXDmuOzwvI|H@;@ z_SM_7gl-y~U2WHpexD=&H&!iNIfG$DmpmIqTlB?V zWN1VrRD0S0SNYhO7)ZBrcf6O#4hN<5yrI|7FlWxYE7kvM2&hEvE_CHA2S8eHB6}*b^=07CkOee{^UNPCAQnO8*>N! zQ#C4G^a$u)s<&6P0?(V)1V_#9Oz>)$Xy(hjZFC6#Qc--W5rMsmSrB4|C~yRFq{tPzy_1lywZj= zY3|I^m_OiYShv>&b~AhWipW{30HW$w$$+BC@7wqb7b}OwoF7FQCye%W0Re4xX#7*QD|Q``k{TH+)>Z^_$uO_kbNw) z;ElH8gnQQ5$q--d!M2>Q8LizlgVJ|sm=Td4aOGu2ceUP)>)I5+kPg7I+>`R2Uhf`d zkul=>U9S2(o#BvkP>^<><7M+X?nZG$?cwLLL9P-SO0lC%OlSE+0{j-neu4<5PTD^3q$?4V!f?-rYAv z%@=f{?L!&yyivZ_5n0(X$)Kfeh^3w@$2xu~D<=irzR^||6!h-KCLn=dsGO1=oiXNE z2}YawAsIo>qYHN%2*zfTf#Fbq%kl#G*61WI*4TH>mLjja$Y2Cx+-|Kb^%~o{TD4WQ z-_~EDc6QGMFn#&=qnl%b`Mh90MwHlRO&JYLa}Oa$le^v7P~GBa;PnvGVCHOJS3``J zt6qILIioqv3%l0f{0_0aD{W01pAy}Shps4qKB|10`)t!}Q$zJx3Fndby&JvCw!Eh$ zy(bg<7HDvKP+Vto-`IoWMKnxRpJnUKx6LoJ6CMLYIxKdj_Cz1edx)q%pX(X3o=BFtB zpW1qBiKx1BZ2hClQ*OQ5-JLm49A1jLg2m*TV*dkMf&{fa?1T=jk+b3DgxLvcik{q^ z`HRG{j-;T@3Aeo)6*an#tjjUla6CMi)bf`T^Sy$}Ry#xFzyP}R5iaSEAXTMtR zzyzaBy6?0UAFePo?JV^s9t#eJT~5H8N_XB0@|y_KdQ+@qJzH{`7ity0BkZCq-kndrBZm`>| z=yo-?LwRDS&UaxSo6=W3{uNx)Hcepy42BBLiu4X!Y zGd>Y)2dVBj!B!bM4I{7ZsjPHG<}+2sHTQRo2HnSjlZ_yy{IS7&y+gS3;s$+-?iah; z@aIc^gvrTf#*ak1=K3lFQ%!>$vf7PFU^TJm;lQ?3G2M~5pZIC83ZIFG3hRSqbyL1{ z#n7gAU#%$^n%!CTQmHDiRYNLmim@XC1{6W9&B5_3n(bC+*jL%2X;08`9a@SGD6|Z6 z`{;5q($J0&+~;)p>dsQ+2@9f3^#(ebtcU9veyUd*nE54~m_k@$*d9InZRB9io1pqp z-2<*{;Po`(uemRDX5kamaVY9UxTea&1zApgW#Yw!6W1j@FGx{B5c8|i74K=ZA$`&z zg{6MGy)t$MHzo^pE{^L~HlJe$Hwe{FO6_sqP@8Dsb4qKiN&D#=#JG1MxQ);W>|rSb z=-QbB#rao~2uTdOoQ`Zc@2K$~r!`xyT2y6+mDhkfho7W4Qj#tioB>Zp4>~CTN}+xu z?fE$3+ccGZJXRNOLnx>8=!Fm2!P4M;HrYh4!Y7DWiLGqcoE&a5pVtRzlOhcAX>mv8 z+EA_INLQUBQ@(AxuU?vO#qxwwRxG?O@9X0ZaNu%jq%d}-K9&90$cO;-_gHyS z@H<9qKsHUmvIH$fj&X&gC$pQBJ3%sRC#Aq4X(*z4pG<6nzUcxsk`;}M7vLuiG8)+| z_aDcx4SmdPO6|-{nmbi!aOoYk(kF_GunPZwwfyM>s^@^U)z##M*tmbme$^hLzR4}2)#mTuxiyKoml2C`hKC#PzpTnD%O#WN$OP`x z?zBOU?^hke<*lHtmfI=jq>z)h%wZ$}*GvEA`t|EJz_zNW1&7krBR_Uh`Zrjv-y*Ym zh~~cBouQhXDOjM?=@%eAOj|(9f)~4>8#-?VOy5Rau&YhIrPdtisDb5Pu|h#<2HSC; zyek_+D_b`S#V(4&d~VBYsl7A^xUo{xS5yXIh65_ZD60k|^VgJZ|Nx}XV*@?fuaswe8}_@}F-t}kb@fVWxerYp9d#nrO)o2^DuD76ny zV@FFN;W@0Rx1-$%S-l}g5*{nrkOV_sxbcpW++tM}4raCc_Oo_Z3qEwB_5|!qs!Gqj|X=j%Ytib;E40^}rWgq3m?FitBw&#@JTG ze1bK%++k&TOAyQ!6bq=w(N704Lg2S@dDmAp?YgDa%lGlEVfz}&O!)!xW#MqdTs={` z@R8G>jzDYv&IxDVafA0OjHCXF#YRc7yHsd%L3eGWtNLNNTqi2z)hmk9Gng%#vxV3L zz&I>-(uXj4?8%sjtD}f&(CH4=UbkLeYOGafM@$Qyhh-wWyX9lp2DNj$AMchAO9K)g?J2W^B+C`W+V{n((Bq-H} zTU*s1?C7b9Vg}t+IYTN4yJpN1F%=9Ej0n`6WZ7eZBWgy<3I2h z@4CwY?)yL}I3LCqqx&mZ-arq-i;l zM$pi@lf4h(v3hM$q=T={Sf7b^Z5tXKiItehX;^i&<*%IPwN7GNn+mOu+9nX`3dOPb zn2+T_asi%BzyFXn-$H{70wBn%YiWB{{YryIJkaCIXHV;!t`$%Hb&0_3Ncw~oEE+j$ zug}nEofzhN^+BxmzGu6uJ_-kd#dbMpvAj6R;`fG_n3*XdM57KBLrd?su1L`=22Sqb zflh&8=1uBkhOo(6MR5W8q3o}A_6=l#nxyiQMbvtFXL&2ztrYPMo^C1+EgnbwC`(y- z&)@+JUm9>PYP*K}2^Y}{@%?5GO<$SYGv_a~z^<^9X$i}QX6>ah3k>~<+%MPe&HKbHD@MN5Wq)&Kl?<@U^$_D)Vid#be?K4jfncY$J`uVq&%SCqN zBsZV8u(J*Bh&_OO;wIL3*m@n0w@o>j=)$(M)NpDqYURU&8&x zBP(>hpG0)H`XkpPg&!Pr%(SMZZ`{q;0YSrN$3apF)J3I*e?Nm3@J;q0%hcB;EPA+r zH|8E*>iW77rIn96H~-#vR0Cx>U3&4nktq@S@t*p0S%`)5dqa}<7b`(^8ra|vhobO6 ztamS!F1vK%_u5|5#?Tzky1Vdg=Z4J;Rg~;q|F_ zLsmZ6gJH8Bx{nKMou^AnsJ-X+?*?0iKK=cn80-dzb3UT9ccw50_`C^BJxeKNW>L>psqhrU!O>*ZSw!0LgAAS?(_b`Ru=@ zopXPjx#&?eNLKbnw2=b6Im>;0729>@jzc^~DC1ca#wa@R2w^*m0YUprK|k^VF$-$= zMhs01+T8aGV*USyc>Rg2{}19--t-^Ft2dy{1I8*kG6IkL-&yehwfd9Ly2s{Uth`U; zuklG|jz|8(Up)-C^N9WX5vFJ#K)C;hS#OGV1%P`b*qRUc{3rQ-?|)vKgV#Uz0(|ZZ zmbdxO=e|FeH~af@c~f67z~xGx5iLBNGw9;HA^y|19HxF!hT}O$6xJzt`ai zjuM=OUje-SpIw$WbvzTF@V}oipZG*Ty$44l|8s0)T*S|F{?EXluYwWsW>)_kteMq6 zM<5^a-^Hwcp0=NhnIo-j{%7>x1OD^7`!8_!@F}pJ|B!C~#pIg(y@LOn3|t#9adl!3 zJYBJXu;Baqp}7!l_;VAuimPwcI+^yU+kZa!4fT8}C?-VC?e0AS)@}N-O>Mhtu!MAY zUde;odw=~?^e2B8!Mud-<;!BDK1;>kNEYxh#V|j5MXTH<}L?3yusDdZ+;T- z=PTA6p*NpD8S&Sf?NMEx+ow56DP!(|uhV7T7%RuWVvcP*m97}P>m~oa3(qdkJYbjm zmyeV!EuAT|F^wztK2~i$-;1z*GN%8jU+_4ZyET+X*luNkI~ue%*u;yDgIfbGplz!I3@r4RL!j=f31LT{UHw`fuKRSpr)c zW);{x*vtmsfBL(;O`wHW;YJyy&7Ji+nWzr^fAG3-NC71OM z{`izW_Bra$kG8OL=ISd-$l26ohZlX7nsW-79K+J!w~Z&CUfhvzuO^B*j915xlBQG7$u$M<=d~V>Oe$V-w=I;ftdp&L zR(B)R_1oF>4L>fWJ(j#diDRbZPUc5jFK$Sl7&z-T&Xg-czir(!FCXgi>*t9xmAq_Q zS3{Wh0mH^0-|yzI*;!?#N9#9~eVMWiypi%pL{2;{4#D|No-M00cs7<9cy(P(7)AHJ zN3klbbzR1jiC6a=gP1y#)=>kaSIoy7_Y>2W`T{@jm~vI*rgr20@!K5CmD)TbrI|y2 zDZev;*_0Cd3jc)&P8q<*t9GiD`Vu2OZr})xp!xvs4Gyx!}o^MueAd! zXJ)^?fZd+`fV}oA@5PFhg0K4}w#ymwj+22+e%wej_oy%-xM`29*~ROjbN7O;iBVB-Rfmye`C29 zMOr}S)D zUDf4BtBytyQ_m`RJI~v@mDt#N;E8R!779Y^GHP#r@K7wU*|FD-dfj`UEho(74_wuj z>_Xd;U(RUDJ^gy{PZcf8j%li>W#HAdJ)Rd2%T!J5WL_mDhagO_&%Or|4;piA-yfvk zkZfa{9scrSBsb!HV19oidiAg8CIzG0>%R@%9o72iWA>DEq`u3DD=u7$QK0N~F z?{_u`qc)rXcWM(D8a&7}@1~gQS(6^gH|{;_^XEJK(CJ;&Z=4e;kdxcHM}vTk-L;ed zSzBWE{yTJ~i?e0?xqG+b>d<$t;jf7L?5#(#sB4q+(Ayg8Pi}fVK~tmktG2i*z24Wx zaak8+z8qI}X_Wp&GC#rN!jg=P`jKlTvI#8|_4W5Iygj>rftunZ`LSZeN}Y9Z<0D?Z zs?YUP8D-|)Qb!|goaB=gACK&N5~gCH@{)dW)jM(sc5n;VC{t4Vq{d6Nmsguq%}D7n zHLZyD-!?AOA4+n%-Cyr`A@kne-whF_#rH~jI)vti zuT>{{UfIAA&#tG|M5)6c=JIBBJ{N|m&qUYXdnV7{rm90i9BeRAcmHim82`qYfAMSf zFB5PH>7aGbt}l`g9idj;y*&2hdZc_;gt_0YwFA&JDc-naG(6TUjMiVGzq;#}Cq5gs z+xKi-TtCxu)z6mR-V;$RF!?O`>s#Y3lP9L4<^?CF-kVe^a+2-`-tKy@_2}|xf)wbw z`L1SD9@V>kNbRO5yt=cgW#hgl+eeQ}9ebt>r6t}yEK&06Y7ZqvQXbJhDP^X^X*c7PDu{XJ9C?~DcGlAufwQT-}Sj>pQ@+MqY`%8^Eq3uKRh$A+h`kc z1oLa#sI2GuCv}fe?_yH}UVmx!J-aK)>}{d=v!79+@@1pNl#ky?FU7qhzCWAxXRYy*YsyAA zg)=9=Soh>OPtJ}V$TpD64s;~5vV1o6q3vmL)AHQ1pSN9#r^4rg!*YR%NDy@i)X!%g| z>bdIB^NsMZU&X`I)W#yXk)t*MGA*Q{SZU#Ip&J|H<1Brk=Rif8Ur}ApV;x zIXb%f`5nfk{wH0MHx0l?Bt{|3tt>4OrY@2AlTnEX3k#66nmXVUfAx+$;}{>C5Fht5 z^)*A7I>w)hKjWK#I}TRu6q$@a9_f4rcNQd<9+7b;!D=imEcaOd{L%6Fh)9qz$NrNX zyCaPM8JrXw_v=5~`k8V5XCH#WL79OJ^Z#1Q&!q9+(>A22pmF*?wZZ?NrynP-M*6)R z^B|X-KG?HGZd=jip;KFLjOi)&Y`|c`D5ER zosP{(xBhCBBnk;?GORI!Y8@yeG3w8Ozk(l{EAL)sQw(T5uXKq&o)t9m`Iy-`qt54ECAC9)XCz z?QsUJ0m93QdfXrZmAWFbvl1^ojAnt}mJC`AtSalHX6Et23+B^_Fh40v`0bq^!r&*) zW;>n?d|P1zA)Z*Bkezb(@_ObIz+w^vA4oPiY3cQ0NSKE;*_|{0ax)H z1%q$9E-Q2aUZ&ZH9$tTK7LwQRV0reV!hkM5ih~JZh@>9d zN>?S9A^^}1px!d!BT;)5n>1Vx*8lcE&JlU+E6hb5Rrpv}%0ha^paDPAUQrGltngpA zNod-7F?0r|7uC0YsB}$;7|>I<344xoma`m8dbBf{&IW zF*iuBAyJJe5(9(E)SxoiQw^lmRL|mbi(V7>`lY62%2X1Wo2KY}d%v#dD9modhY$3# zhPu=pdD7E!LvuB!4-(^sO61DSQ>S-KS6p0(x^402`B!DS`x0HwX-nY>i#I0s0o_nW z<<~>PW-N)u8mVKZ(a(prD|fRPy_4y2*KLJf(rn-=3p!9poT5~GR~jJrqV@%O^^Byz z5S*%S2zpVT!4>6MgV;jjnj>--Ros9se%EV*VOw#>%JKmkL=bev1aYB2ewXkgU|w{i z^U;E?D?u~ZIzM(-YY8LPmbouzW{D&`|aVX#!~i zl=2Ns1wlg9ZYs0;e3V_Bz(K@X;wEwv+32y>;?%S>fP@tipeX@1lPAEAxyV8u7x$W! zu*H=fMx$$XqNxT-zkzL5yI@4O$Fu_409rAc5=;l?+-{vxqRp2dwNjrUO{eXF8PvLHYMr zt`PEP?QbnrLQ-7NRw_gh1X#h2E9oQYN;EN({8qchP%sb=@wrsDX3$!S1^=KHIyCfN zizajznT~h?&Sb2A@s};#qyRe!EwQ#KowSmJ0RYhH#|DHVFKF7?&>)LX09;JIxMB)| zL=t#AOe91=X~b|B?#W{FWFg4^c(2clXBZDE4S~{DxGd^oScb>RVl`Tk*N+`(8GmMU zt@wNP-c5w&fNKJmkkKrfB6FK39_}85#>OW1W(WbkQzX7cC9Ig8fTkcCmp8e*nVB)B z<~K%fdo?A1$U#sjw+@0D2qDWSC;_}IJkVGPY2fC1^HhEF3YWVwMTH3BojILZrg-b_ zuFft%>bj8GSrUb1&(sMpqV#4Vo+~=@Bq{i$5Cdc-Aeuu-u?@*9E0A!08O);;hyUgr z{yWT4VdoY3s{lBGM3LkRok?IqJViCS#j?1^E5C6LN3xxZW_EO7g&91rl`J0CYmU|S zD!@Mjea=4lBm_NZs4Gi9S`)Lf{D<-!8!wee$03Q*mLvE(F#S@mkDY)`u}7QD%>+c_ ztJ6I0sye+z&L%Jp1&^@r9 z*VgumjgwT~@f*2;q*0p4@Dr<rFGS*fVc+{Rf zyKtG0fep};x}U3ktmZKfCii!@5Rvr#*>HS4Jfg}V>gz$K>s4jo%WKILy0#UZL#N`| zRdnh4IsIGcW0*U@IT(<=rXqS7#@3tGZQ#|&8mYNZKeJQH=KF-&3BqCnU z6ernhmwFxy`1^4pa(Aq;M+fNgZba4bgF_4_cg@u)lx1%gMsL%<2~X9p%!;Omt7a;& zyK|#~*E9_2Fud=wL6lSY4rupiXTYYt)_0`4%GQik*Oy<2#g z(Lku8M^E-c*fD1Q2so*i!t%fz9(B}}#o`x-kK|mC`E7u+|C> zB=)LYlvG*$6`AvhxL&2eY41=yY%n6za^q0AmYl{V?R)iMSB~qdtBNlkx3DZUJfoSc zhQ@TbTu#w;hVa55()I#(R(c|oLt<_8+^y`P5AT;OOU{NP9e`YH0|MpoC=+f`A*W8V zP)OZ-2Yq?LBz31ZEJ|Y2x_&sPSZ?*$b89az)TYd^YRP`mJi{lsA9TsuMA_KbM5G=X z)Jycz%Jwj~$#Lp=cr7BH#dpf7ah!KasUP~CRMyeJX>A=-^DYhXCXg|8b2OafdDxCD zdVH4Ogcsjy;kH%WJWHA@>5`7I)m`;hP?V8TuD!IKKJdH)W(C_LcLOKc|29QV+lf*W zAgN4pFO6{5nMfF}y47~^n9h-c!s0G%Ed%LI*+b4Xj??8e0V2B?h966MFkrSQWomFH zm^$0r5tl7u%j-_C``$U6p2W7_n)snTJ9W%pK=%M}`w7e-`YmmhEZ-$rj+oq|5i2oc zjlOIAcGLJ-+cT$&ug>XszqL6v$ zO&yH)c@`hjCTUGEM-w}h@pk*rK*`_*I#F{JjNTUyf8NFu zbEYzEDg+)YRA4b_vt|-4`-IS(1Zk_JitSgs$E?KN!p(z19*Bh4^0ptC{$#3?)%*>LqQql9;VPX0+u_~r%aQjLS!u##Hm~1^gqxQ zDLH?=x<5|~j1UN>Ah21&LWvN2^tBk-WNmzNdU zRA8A;fOJEMgyB4;0r8mY0b$q7xn>@VH3kTntWe0idorf0i{CxF=u1xJt~nj)mH z@c!~wIJ<%N)j(X)o!nW{J!vo(G|~2gMG#-VIhB&Z4tj1Xz)q#m7+g^o6%ttrMW$FW zBuYQFD@NdkBQ)g+y`LonyV}i;&b2a)=+WJx0e{weS~p9;or^v7vKz3_UM#aFu**#} z-uudCVTx-;R}XC^`9}FNt)2v6^IFYno-5(j;Wx&!%O`95vrymJ^0Bc}h%X6aR?=+O zX8D9`miDj=Hk%;7tEZibY5(>Yst$Bf4oJ7X!dA4r6waNq=o6)$xab=k%n&oOZ?qF( zh>;}B{ezqVaJQMH>E|HbyIx)rj(lRKpoSPpeErEX=(LBQWpypvf53ldb|(=XqK8e3 zjdhgQf3t_SB0MJ_OzobSGod8Yp?NC$=41jr-AB$~&D_RQ%{1Z&^zy653O}r38?~Ou zAj|myK2&(;p4|w#BtTwmfTsD}dHaS1zo8>H6^*@g*KcDgp zTyih1=3c&eG!P!?4UbeH8m*HauD<|iVJ9>ZOk3NZ&7^KjTv0AA4p<0mp^szGjktZ$ z6MjUrRNljFvv>ZDzTo-B1G-WP@P0%9y0oM(X=u{cRTJ+17^77puzuHRQb6y zjm{e3B$J!P(vyj_PYQA-nSNR+;VO6uy3|~4QHO-Wmzd+3)xyhq8a)zpwOr`)wZ>=D z+uU5{&_|CIMm4IBBi?06Sio0bT$4$@X1-&m2uxAU;6E6kb2UqfpvMd>y;IBqH z_p{ovK2VLYmzz76C79>!1#W>!^4bH0_Hd|}|j2dG9ufyWnF z^ZI_gb<))Qb|*+L%3dIj2~LmGm`V>qIV|3}enXMo;kg;=OL$g^x#0=M;^0_cUtjZ#!@LUO zj}4@4I?@iBnVQpn%8Nsfky$IDC*UKF#QpG9lM@!%N7Qya{!{L&cGa&O*dA~# z7QCyf?XzW+WmN4#MtkjI{q$h~%BMY!J_0|ZG}PyK`=*2!;x{Mwv@y&@=QLbhqFQ3) z%2CC~`(WWi-Aby3Rwv}X9&Y5ST{)$rx-mNX+3tM|H0BiP^6dkj+C|Rot^@vuQ%tf4l74m-Ew zru1~2v%|Kd@J!8{=L5Aj|K4vjtVom|K@)ZD<+F)7Qluq0!$1(j6t;Wzy9PUP;=4R< zqv|&qBs&2((2YY6uYSF4?KFubdf(KZ(zORx(pl2V+trK@O!{`9cv;c{JU?Lb?QQjN z+y+a@_1nus%Tgxa+PGRTeY@>*-Y#**O584VwTV&C)JVa1C@7-dR}j0Ur>S~r^4VoB z$bpS|vC7@LKWv6vbR3Iw3>4fJKN(z^b|>n&>EVWsut{zkq=$Ae7@ewL)5T-owblaq zD!0)Bmik0N>B;Q(%jI#cp1VZ;Gj<{8(sf1AlLxlSTYlAFc+c+k)ZEUNuev2?;PgA{ zfvub{^5sQmC(2!2M}0|8HFH30P@*kwW*SKLLN*(DJ7j;3v!rLoDtlzR()xoIuA zYYV$!hMZnSPcHRrWjdrqmlyw5EyV^UF~`pCygreUT|UDuP23K*F+Ymh5c=s4oIOJ} zJq=37gNm^MV#bik$LpJCQn1mq$mw`dsahkpR|d_W#TaF-@CggF@8HV` zn)quSW$S>a_xEokS1>gZKp}W#+Y3bF&4hGcR&$K_ck1d4^EjgpNEkr}H;W}mPg?=C zVakJ#CD0FqT?^qzTLiN2`}J_&wsd9^MPwQyN`X4CEUzDC*POL}XzM}Z$&B8Wtfa!L z9Sn$@Lj~PL(26%*@S$=5B0yq$vDKpPw!?RWltBxvsSS+>VcYsT?i{JvKLsN|KP(p} z7x)kjmM5GJ#}*K)xFX{@C>_K_aqmpfhwhcJrH7`X6A<)q3s-a+V(}Q6yIRuiMduC1 zwk$@I1u6y7^91}(o3`3r*~h%(28=In(##>%2eR?ngL+D-_dAb`_Pzr#tEq6Vb* zz|W}FZ`El19xSidgSH$=E>@fi5&|)2+{h#i8ynXSO?U~LCrw6$gkz#+xmUDPP}>Uz z#KMr%#8Xvc^m@7+vioNzYqs{!Fd1e2zNwz5Atiqa2CBn59^MDXDM0?H9A2D*?^NYv z<;mQVj}3+aqhk-t{d%?RNfO1l{ox)8BSwf{MHAYEf+-r!n2tMRi>i0lz{LXH#E}(I z#t@N0YQ|5#+!tje(~%92gCk23Q8q1RXbFX_swzL@C#VEJ*3?{((hMU4xu~We@*1+K z{uW-pzwVuHRO~X`XIHahN87`nh18)tAk;X0Q9>O4{r*XBI1bpTlNf#gBJ9Z%W^d+a zJIj<}=6t2kTlp$9B3qRM!>9@2L>1}!3wKa^kOx0Z=H)rE!!KCMUlMq6$p1#IP1>;B z$h|H*gK#!DfTX5J=HK{=B$==3-yD>I<+lO0W3}W>$0|DcycLH;$ECI3k_~zfw=_*2 z;GqQnuH?VZWru#bnu{uFJosGRawN(;P`c@OR`%f!okTsY^x95f%MKnjH99)>-DBO& zX?&K1!Z;3PMVs%>bRFe}-3s4afNFj^;Lt?c7OYbCbZNg6;YY+L8;i`MYK0N)w}`s# zmH<@?mw7qz&OJNjrW#t1lTk^6CFNZg@?@loPpRC>J-dBVcTNICn`WO)JaOsrLQYMK zkJ&8IQ&aOo)rT*UE}BC-qs2hT1xuUx&@7(h$-LIqczxrJFRp)*3bm?*HdALBdak=G z_@EEm;(r%GgS3_NL$2BIFrvg~H3CM^+E)faef&59G$n3ICp3KjP8QQ<$ux0gbT4&D zlr)!~9>e`ubC|9~S9)x-rUN^pN%R=fR)KR0uIZqZbMs(n=6f}=j5bs#M5#X~>28E& zdcX7<>ewzF<@&7pTf0gN>87l?vcvWoBWYb7DLy|K9ROts+dPy5arQZ<D}2*G}|6%lzb)&#ZcvxtLRnJbU7gx64iis&sye<~vinY)@ zPP6+=Ke@k(eLv#(Oec|;8_@9EHYXL}{%9&;o7bm>xtB zeIIfy$XPq3j@%NnN?pmfB0<^CN;%QuKK}A9cWBL;qck=B#9n_F>?$;Tamjhh002af zg4mFLE*2UHv4~lMZQt`A!@`$l~+G@EmAGOyM8R(rOUI)|FycL(5yY_RvcI z(lnrs{v~Y+A-k#MnyTTAESRfArXnpy!A$IYnYagntm1xEoGJrFpcy1es1(EZ2mGuf)6?U5tb2#VZ}&m8Z?6f!c$Fq@ zo}ZdZyh)e{h4>R)UEDdY8D9j6X3o-tRya1n4B{6`Vcch_*d!*oBMUlZ(%CF*5Rrd| zWYNv#lUxEgGo4YrrhU-F6t6cOIK)0@gSxv{D3U^_;Rj;%Jn6|z1MPO%o!1-EDb)cJ z@`h<_jfGL{TyiR?d86Rge~`xL_hVdS$shceYuHJ5O(^Mf!|h&J|9$q zfGPq^4o;!Ifv!q9#Ay(`Kjr0uGVy5zM@mH*ZKgsp)qKunl8B7yo;)T%?1Q2Ry9Q(8Hv8 zq#XdDoe1I9v%Bb0NfO)Ut+b#U4k(z-vnR&GFzVA3Ut5!x0~Z5ox7QzRGxR9ZIgkJb zA|P=!j5zj^`Q*Wc_`dR#ApBw+e#7(;DaH3wb*ve?Aqvs?cvTcdX;Dh5SPRU^3)$%- zN8he>F{M^pg&{)1mG+1|!?$E0XlpQUEkht~7DLTU!lWPw;(Kutnkm$&*^b3iKAPjm zB=r#|lp${TEKIZUna(Gt?GXkAkEVAkA#ycG9FD0OC`764QHaw15UnF|Kn_mVP`Xp3 zlz8g8eIE^r9Y9a3`G^4vlD^6z_I z%beA`;`J8_eKd3Da~q^b$+Pn%ZcPoV(YFE=+qvxKq@D$0v{P1c88;P`IfY9o)oy^( zrRu6q{PqZNr{p-9Ws>XQH&FZU!io_N4x34OFq2GWnC?(nnY4G#Chf1!A3N?dFF%qZ z>73}Lp$7*ht%LYNZQ^e8lmtBK;$V>$m{(Mso@;07#3#B9{6AcM30RU@-}n2JAu1}l z{GfiU>Vwe)u zG$J9^h#1IyzT-U4^IqTgab1C3$=c2RKj*h*FTH%rZX_;#m7xyOR6kU$nBvXjOq>om z1%(Bij-`7XEY3H#Ul!+-YjO&E$^q+JY8t$r$ab5wXTu&ztdTuH3^padUID+?M{lg9t&vVj?=u1NT$VWGM@Cxm5kF!B5Kvku^eF`RX|f>A z_J}Oez&3UjRVZXgGryX^JRRiGM~A0~_tIYTfC%Ep5htYO)w*aZ&PBEI0xfGGGNFb2 z=CCt#fB`;AD7^YEAS{_eR1j_|o}Kb<_D7^ma&0vVDKw z_6I<~-@61Lv$d;dv#94x8&#pu@OyczUZh*uAeG8Nw`NN_j9HfxAKpWrN2}S0_n~#0 zV|k@iEC^@~Vmm_7$YTszud%@dR)Tm<@1jL8CM2SjuolKz?z}e`yOygH6+qu1kQvG{Nz4;n{n4IdZe~mYtF1~o5|GS7ICAM! zj+CO_zJ-{W(}|Elk5V<-sRE68CQpNHM+#$0ZApud9MM_<>9=6Wjo}Ho`sWj2kd2$2 z&vzJqOM}(R-I5t+fDE zLfS7MdlF;Zu?Bw|zZXY?ZErQG`_H&~nWmW{%=*vf#I}NP(-VsBi=D9B3r=Gg8?<24 z=RxYGjC{3?_EPLBF8*ary;;7_G$(GqbOt_XY;W7BUSh}11R1@lUZ}6#UV6BQeBa+I zU~%)|vnW~)o=}|>8hp5m6M$M##??#sXCwI!EBD{4-GNE)N0+xty__aC&G~F^pkN%i ztNs;2pvyc~X0>BXgGu2qD0r4O%xo`Xg+-a(CunQK{ScvgZm*lYeVW(8pLI=+tAE9X zVcwnP5`?4^JiR}+zA@#DF_@S&`r9|NwwnGS^4Fz12VJ~2ZQA6p?!|FbXq=nL#LL3>8*<|k9Sm*Hg}lz) z48D--uQ%tO_SWL)FV-4#HMd_aPAxNs-O&2jpmjgRZ@W<7xTHUJqM*jW0*$$eeTqJ% zgWA3A5B%|`=v4%@&Wppub1?HC6$i{JnuP9#^ zndC5u_57UvD@xU1;mMq?lNjvLow0Kvzw{n6d2P3|KlausSCe8whR_grb=)%z9ylsl(UQrlG8cF^S`Ng(H1xF0F-{ zN+NF$sU1lrPdF@Zw590tYQ@#lwB)U5cNcH2Zs~#j`uO6t4;+X^MbMXQXOus2J5Jmm z(cj8hWmuBYzh9M57QJ0WeSY#w^plv5JWyMuR7ivqyS`8a5&?xO`6!O)fquW9kSt`7 z+JJF1FwjTQ22arPcW-yB@1sw{w`wZb#`1Inm)qHp*^Ng)Gf)vb zuC~BkkSs(Ykn<6Hq$Is1+u1v31B}Axd4(mK7z(&=dr?^Q|)L zC$#3*w^i0|+%aQLgaNqZIT+M1rGf_~(mF)cB!_D}VXx)e_&qAti9AZmve!A~EfS_I zy<=HrE@CFSBA5eT@f-GWsK6B1{2b&ws{*KH!M;$n)nZ*OnZdLB49)D8AV(=44b6Jf_ZS zEB#aeyjqdAs~5;|j+&At!73`ytai{ia_q0M4mZ9*EaBa@#lNN39( zqhizo&}*3~8k+@D1dIb1kw-+vToFa-BrFc4j*C6QrUXQthK9tEA!>a`RdzEYPZq|C zBC1GLJ<$h`OZi!ziJz_njR`crn}K8JW3xlLWzNHFg$Oos_xMRf!py|l`W=el7Cc)Y zXC7*WXVi@9hqSwsJlYEKf|AyxLxS;_`s2{=5p44JcbH68XRnm+d0(e+=j~94W7dwm=N-Ot{R4W7)^aSAf)U!G;AJD- zMn8OnbVNtSK#E9pwsbekh!$oN{>Dhu`o$JR(Ap zMY}SztnqzY;~fd~iWtlGu}HEu+}v@rv8Q(qx;eqYuybVOT_5VXc|hULvkl9i=?JVh zHWI)pmL>V=~7Gs8bZc8&HDJWxkAk4f1!+b_H9QQ z6JQH7++*hJD3Rkjd2MCAwD8xq6)3xn{)DFspPc$1pwlFJ;b9!~(fQ$a%YMuwNZvTH zFAy5^UEFmm;oS($Z%oo;F1FtaqQWcEwf`3zUHHM`2*w8^mid7f z=0kp63;$}l)LNjLY4N*9iaON4cX$de4Z?LzytJ%NVu$n_W6K%~VJPj_qz$|GVFsMM z+tC^AFKFmPc8f0$T>M;p`N?xt?Vv#SR-B!b8aOl^RJ_T<DgKA zYNcLvS>{@uUtjJX+=}yTYe`@ywA8ADeDAKu^pgv&oX`9aYDrbrBvPov_dD1MNg{|8 z439VWviG&9?%|@1?nd=^v_lu*$id_PqT7|655}x0{CLLRwsiNYWpQSU?6%Q!9j{_u z`V$Pjbeb$5;O_lgq2-7^W{$_$uQ-OeLC5y#d2P%a{Qk`2MDh@m6u}=1@XI$=um?Bw z!H?U(E-xV2D;^(XPN-QHZ1u*NzRlcctIz4ejf-q^(W}s@{azn8e*FHyDZ4*k4BEYm z&BxyHaXNvLRcW&*251Z66HE3bfiBz1=IJ5nt8JRS@Pq-pNpBtkcof zbf2%7?{r+WuwGv<-@{kwHUF>(@zS!JAY9rD8^ilbW2Zy#f1TC8IP#+Jk0q{7?)ZvE zLVIA}whHb#`nkUs23JjUNr$-P^|k#Tr!tGj7h)R3#Tx?0%ziJTwfl;VI?j1)+Vm;A z^>&{1gN@Cj0f`J;%fxo~ZgrB0iE(%PT2&$+k%@6iRDe3Gb|kTWtoELZ_n2eE6#Qb5 z3KAq7Zv0lg`k|DWeRi+brnU{;t7sc2b*x$b%E{2D=2odswcE!61Fy>*2M_ecjQ;-k z+=7g%Bxe{{v6&SXrURJ#W+)2_8qBC5)>at`V5Y;oV+kD!R!IpHIPsRSTDhLK;lzE# ziRlWhcLRoWMIfeBqGe?s1O=wty_JOG_Xe0NPL(l%Be7L!fnS5)pl1R<(--C?6#6t| zUbRMgC|_(Sa5LzaQ806#+T-}VN19WR4r=&a5_BLBQ9nvg@tu}LZzpeQNp_V*c39XA z&sbSmM>U|ZX}9rh5|miGdL+}JCEQ~(oQ>lOfJ5+=XNNWHi zkv!%+c^zmx+jnSm!<`kf4`aRH{3E1i-a!tvqjS-62@_CSJrU1)`*!w3*w~nUJhMTb z2#{W;B8?r?lYQxu2cmx0*2M&}I@MhC!Gxv;Acd!ENnTbr=v~P_G6?4W4h}G8^YzdeEw^WLr{JdR>%ri6>=?7Rn~~lwFbUMJH&nsVC>9BT z+at!3Pk=cqWz5!i=B{PJSJt``3^+p6Gwkc(A2;6Gc*_A?HSV9TrG7k;$3)C#d&~6m zA*}e>c`O1My7D(=_U7#PRcR?(P1S(E6B2oEF8>ZEA@ax@_}jf&C;xgRE)#wPdyldM z_q=0IDuxd$Pq3S*5vms(7#g62Ivb#hezA8$R|FzeDes;G8s+bG2wT(~-)K+B4hBls zdTof<_I%A#$y6CF5W^D9DnJ%se#_ngH+€thH>ak}Y>M6ix@k@df35;enBBF30z zyeh!;eR((mJDvZ$E4t%`P^Hw5^6ttvVt28Vo%LJNgoscE>ZFoHW*bLVl|{;UG5J<= zOZ|Nn_>?1Hv46fJP%GrHqYmzQgojPcZAY4Q^6eI(Xot(rYb~fm@K1N`+HGEawq`$l zq?*>T#@vCc7w*|B!jg&_1y45b#iisr6@hIbDYHUhgqgZ`c2k!%XoYh23IyV zfxl&i3)SLa*4y$I>v7>ukU6r>a<;iF+jRogG_+&kbUSPu_!L+1bRz-v^dt%nK0H*J z!mTF?zEL0iZ79Ip{r&reS@rMB$_@K=8K7NQgk0_txJyIbvZnKN%TPMioOts96jYFE z4U(t<$*!|JoyL@@#4E_W5U(6K|F00d3s)?E0#1SV^>&Pd0_&h)GTrrW#kxTT2nl@H+yYKVX)hd6SDeNOR zdqNpfsSx&S#vQkoT)O48J2=cW?XAU&?O!!r^^4hwRE;$>cZ8kKSf@%VwSJ}lQKw{} zS{0-U?^*OHm>`h!N|M8%PbuemdlzBG%P>ZDVCU~~W0`5gEELTbRc>HyOWP@)DVNv( z`NVZIdkBNmQ1~gPjG@}vu>lV%Ea_CMlq&Q#oG4ln)6v^G$)HzCBcu2`no{cYvXRc( z@h&jjqo%IZf5`~2_xjw>mD60#6p3Id3BHste5>~7zzygX&8dG^`-=slw5vMe5I(0N zwCaklIBff@01-NDZC?F!gVmKmG{b> zdO-Y$;9#Rx-R!bkyeY>tT@aX@-kQ873^0j0iQ-inYS8Pa5{U&95lBt?34)AXc%o^& zQJ+;?HB%vJUxPhA;WgVO)kIJTQjr>C^z5oxSkfBVk*Lsi4+(X6yVoPXd^1hbu8^>r zfLeC-K#X4A2RZA(+S$%r9bpn3xT$_Kx97GPf1?C4cEn@OikJt z>agCs7hch=@5*Z}yK<-+(5=^UvR#WkvSD`!e@m#!7mo z@cfZ{%gA>}<7Vgri1q-&cBcO zbqy|VXCyyc4lKPo{tt z=VHTC`OaL;PHZ|c?Y|)dcW&dpk-8o)s2PH((r{NofaTX)Uk-n?E82>&jhkH?N(+>C z!?7{}RfVGlRq4dkz;+PHXkpMr`j6GdP37dNI#6?worrc-vJiondv`(e#JkA`cu zso6{WjBMsDP1qvhGwwc5RU>HOLx&poV^~m4V zXT;e2cvGxzQ2@HOpMniQH~;Il!5O8tx%I-r_sx{Um;g`hnb)Iz9!xwzco zY!K>{doZDL$w#aAnEd|t72dUfdN}oO^v8_+F;Q@LWwE94hU0`_m*wb9pKaqUHmW}O z)J)v=cDT|IU!=({_RdA^gw&&(_j>Ht>98f`-@+G>W(c993><22`p~A&SeKo#XSH3?=_b>guW7sOKKpVpx}XM~MCK$}*hx@A8+55gONF1Fc${x? zZT~h>(^`%`4ZW@6mD7XxJ5T)D81BR+I+er<+os=PcPAYjQS!-%}stix- z&KILT*5v!-pZhbT5no1%{cZ3P^ywTNxPrdkU39mtUjqA+DzW4Ty4p;xV4dPbKHICe zeJyApGKlfJB)N&<$_71p@2BAV^naD#*iHz)~pGbaq% zj<|Tx1Hb0HS{pksXPdTfD|80gV;<-{XTuj8?U~vYqY`L#&$RXcX>WP>Ysv~lGmo#5 zG8>ci1SwaR!`7s!0my-iu@>a_MJg%fEw}yVS6Aa7bpRkr(ky{8eb%$Y zBJMY;Bxd={$Gn&aUXSgaAV8=g7r^Xy>KsucNC(rsq8uQCnEn@}Kja6ZD&~;qr{44} zLMC<47EV0*x|sP2qErfe_5(@G%>cn1k)!|$^^8DHWXstRZtac2x9|U$s^2jGlnH*k z!UBgxt>{+fw>)JgRiyK?8 zOH-!isQd^`h#FRd+LXs!pR)3P^S2 zEK+*A8y^{lbvTq!lE=Pb%T$5p1W-`b!|yAY8h&z0iUJt|vg}SURZT-L$DTz!bylz7 zXuWT=jbCmG>v`eM9Bmb13U~f^0vBWH`>c|?Z+J+*cKN|NfoyZ2b)@y^z0{VeUXaJA z)2I`ta*}a>$YoWXt^kPdZC2}iZ_1Adt>o3$wD`O7>doP@>Z~?l@y?M(D9pNTn*>{} z(9k)7Kg%uLpG&^4zg6PSL%Ux#KS)Y;5Yz8QuY!=qq$Nas4w6#ZYwr03mTtNbO?QW` zK)QL<>cNCI4(SA^Iqn3OJPVO~;XPMQ^&lmRI6P})Fp{Vk4aZ}Ry+P{;+GIW9E>2JXVQ_PSIIp^w~* zvvkNd2=dzmEQw&@$^Lga=X12^afu+*qg9b8NRMh45*A14baAw;aVMoIOA{>V8*Pw) zyxnoNdlH@<(9Jk>JkKMo*<^&RYVDFT zfyB9&RR;w4-FMLi@3*a@4@MuuhFn`koUWjMAuaCqhlUkL^l9|nCxko)l)+E8?teVE zA+@m7Yv(INFLdrwt*u87Sf)>vQ5boVir_MmcB*)MpHl^l1vmD02((;f;KkOZ72R#$ zn`6vDu*sQ`1|{+#g4hk?_{qi*lA;9dri%D$mkU^hW(=jgPMJ^t!LXhq zlIbdD+@a;(3ID3Eyc55z)nyFxP^4fP!J3)EO&2nNE z0wOkgy;#p|aO?4pzFCqvgFMs=;!h$Pq=ia_qqeTIoh=QT9!k>8@Gu&TMk+_7VZ@nl z6;QB*@L5zv3eZb1>kMPVW<2dgD3qFOY;3OAcOr$b&bQ?^abtFHtoI20@z=r_HNwcm zS%~k&Z%uH52Pr{uKl1PVxm<|gdnx=jN^P0W2pz#F; z$z5%$g#955`V23rq22PHi@Q$ae-6a=|KM>;m%_+M#`-;f-rKNA9JoXQJI)3SzrOR* z=i4U!W)mt>QoI2_TgY#>PFVFzs~{YkxD!TJt(1Z~;IZh~UEAX?2X}Mp;#kX)b{(n9 z+~Yg2F&EXiqgSVwT^D>qwCBj?l&`j`mNTX+TNS&mY~%WBCv*LLeyZK*{K0$bhVIpB zku(ZvYDrf_eXH7A=^9i4OB2mP%cF9dZ-S^{q`8SbDNm88W*}&*Wf-~b$Jg-4XU}w) zwUFW+K{wTs$6=`b0P3J9!l$aq+#=FjJ=wMUN_CvdT67F-N=% z2fZ~Efg(D4Xp?VR3#>tZzE$X3$yPn4ZL6NdX74yR3YWiC0?3)){OzDpL4-{xrn8JR5oYbabzzO9J#c#b=5ANq ziJNn|VfV&eMp$jvk>OkNvDNlx7{j{Gf?A)n-SH?c1Alyp{hg~d*K77Z`rV#vV{&U# z+Y^uAmjh2z063(`Q=&B~_+z=(x_+!HVMlZ7S0hJggLl{YkzlRov-(ZD-z4Q%qmcktb+juOA&3dkmq(~K z*3nQ-2V_puydRZdwxhxdbjq}RjN+UvjNAt>^MzF0DYJeocGH*IATx`5@p&~fj{Ads zgIH2#@#R-`?>K^B5@|cb;f5kqv-z{_bZKzYyV5|r++2!0wz>vQLK*AiqK;|B-=7Rz zS74j>)d+pt3vJ)GEN(s83;lfW!uq%I{LcKRZkyiqVeF=V==0^=)^P~zTHJ?K22Do!=X@+EMiyI=E2Yv zV`2}+QKx<_gBBiDv43IOCjZ=bsQtO#cWxcdHttw--yncFSW>`Lctw=RQg=`xWoX@h? z@_7^x48CErb?42YF;%J*fOHX605s>NnQW0LZz4t4)q@!NetdzSmNHPoT#g)k8C9cN zS{BqEDmJ?=XHr2On-N6LZchf6a^$>O&yP>k2vE&dLU=-h+pD92-(CR8#CgiqMN-Q% z^e^B`zYq0t?Y_i@=O(2K%0#B<#`b$V&K=JPWX_kCXt*cTFhns_9*Q6{l5la#*eJq2 z!5%9BGd{TsYhAfO7SO5|1PkAt{|h!GpQLWEnKXniP?^w~DE%UGSQWT8=UUO2_o?9E zzhDva7-*r6O`5`wTM0DBJoOZ%M1ZMiw=54t_nyKRL^w1B4B2lv|)UySit?!)>15SabG2!%vVnrqX#? zr+ESODFB{!o0V_M1hZqA2%DI$ab?FSpy@#h6fcsfqnZN<6MVb^UO#DE_s5By@FCS4Rj8YIAq$9T83THFO836-O53WX%les>4D1qk<}eJl;!dF?hBNAqxg zvPV>hr7!}sip&h=hj6U%JWi^{Bc|t}qK+=ZS$s=Ac$~>n@S^16ya!Hzv^n2Q?(fX? zcWUD#%iKEKDuM~QNnV9pAT)4aqobm3#oLT)5b^VN%5Bjy-zlbBc;8N?xew2FL4pnMe|b^S-Fn(8H2(2sf7`ed zj{?qc$3Ek4@OT71DNldPWC?)~~4n?CuM`rmry4WF;bQ=ni>E7n~zqtWEUT~etB)%J?VT?0$)X-awv zF;Fo3QSYnicO&(?2Y=l7Dbn%M>>atxDN!9%Uv$iS_i|}u^M@-}BnD9C3lz~n5Q$W> zo0)ADlTDk6fQaMt{R)XI?_UV1`SjD~TNhzp6qv;q)b>?a*r4;!S!?w_ow|JRjdV?< z@lr*QZi^H|XA@9o@b^h*G96z?yP$=kK^^A~lba^L{0^~_cZc%LiyG_{D}CMLNBA_v*;woL~MJ!bmstS zk4Y)I@YKicXgjUdr_A3w(p+I0%8M7??|vS%BWQUS?fHm41<@T_`d7mz_KUaLN6HA0Cy7F%Km90E4uzBy7HhxsXxTw*Po@&yjRpJTn}XWRmTuf22b!=E3`S9_d!+`o6=sZl=WmX;iL0$S*p?Aun-7WW5CAgGf_rRg<9 zW&^Qn#eGV8?fo+m8t4maUmKCF%B&ZSS5!|a1}Uj=1$oJX;h3Un1}!oos4kXAXp_Ch zQw#~*g1uWDPxwITiShC~!GAsr;7y%-4#Gen8>ylu`XQb?bsax^R&a%=iufRsrg50z zl4ddVt}^JF403xN_2EFe|pTvsWgsX@r29&-9=W;<(UJICHoOjRi$+chLWY!VZt)dT{Tkst8AU8diRzdsFn;qnQwO}PlY-xjKpXrmXkiz8_4?jm z>qmDnTw#O6JWZ%Gg2;dr4{?)uSXQ%K+RFZWyJjS>H0tX~fNq6Q(eT;L{OzZn#63HD zalW+D*K_vP#`F6;yKxS?Y&2AEifXtUz>y!l`jY1rKRi2%8Yz~HxgA-4$hjQ)>Zp{6 z+u_NP@RgPmRf%LzB$q1x=JI*V{H;eGq3TUNo}-^%QK>B&Vgp+)$E}{Nssq_nD51T_ z5d_J5)#^+(Qd#pOOTht(zazEXuT&{mvo<0rS-e>g?HT^~B|mEuBP5FFhgg&$2pArc zt78;_a-v$Kk!1q)A$EfjnkJa4loVzL$D}-u9VI(R&YX9bkL5F%ZGwo%*_rFx9AhB$ zna-TLNsLaB-5QU7Jk;V!EL-bJ1ZfH&g%2Se>!NBdVw1cUG#;h6v-e>iG&B?py16%S zt#)IR!su4<_)go8&pP^=pOZGT+L=QvMc3?y;h|Ye8J(ZsN!l?&a^qy&+oYUbW}#B_ zvcy#^O|SG+I?$A@+&XO84&jyrF28oT>U40fe*Fe)@Y%O+MIMKH3h~fA*M~y8zh7=r zZhyIi@Z5^rLdJ1@qxNz2SB>r)8cIGfHIx$mp2-SVUy&t;1Po@rwXL)UeAH{Eh!jGMq7MJ&|044(8)T2O*i zf4FG-;W9@*meXO>K9;;hC=Bl!#jJnwe@~l$c%KSu?8TeAgeX&($^Q96eQ&(~`R(`c zolwz2WLq4$B@jtN7%B5w{_-Om< zsT!AjDDcy*$je^_A*d`Zjm2|M%wi2RuhDyPJJp2AIdX z{;9X|xAs@?Rzi^r^F17N|29Uzgy#`*j(OPU;GI)Lv9uedF0Hn|rraq6UsDbjTP)eN z?r7X){t^$TO{}Z-_v&t~g8~qj8BVQ99ZUB(PNxwUc)8!DD?glBZ#=9BNDscXDYo|a z+}KLr{=EfbqKFs>PePnYJfBte;yxho$&oJTYn>Rz@2%%9}v0S#3kou>}Nz#;g3fhU&eh!4GoUKSP|edRQ` z{Y6|_ntkQgyZdu7pE(LC5nS}vGWY7=q~%?x4R>a~h52XcUej@6uec9(x2*oSb@H}_ zE$++<&h15dblbRiEBh4}FYmtlhl~G@JA(Jp3GeP3-)ge7y|wr}y|R}d@fpV@G`B!^ zOquT}K50~xAu(q$XzV^c%mg)cW^;Il*`f?NYMD&kOT>EiL ze$av7SMI0WPo=6#ve5Ry-*l(ICGUX9$>uKDcxI++{25n8a((P*sArIyIaAL3F*Df_ zbydGW-(~&J9;#K#c5$}FSE0-aC74SS6|CTMd#xz1ad>TVdAo7&&TwSTj0;u>loe~*dZVjsCu z#%!(Xc?$MRCL+lqO>=7%W9Woknmp*iiAoq`A|BGuzwK(7X538>Z!G{L)6W^%-TCXo z*>h~U#v|IZj@dBdNrfQT4p2KrZ8eMqf}w5*Mb8}xgY6Rj4n6m&B25ZJ(#Oj*pKT21 z<_EXIri%F@vo~m}lKTA0S9?#9COSQmlp=@%1*1TAklM=5n+4I-&-sqC@IM(mX8`g?4kJ11depCmt@8$~0#vWQVd6!UJU2Fn8 zeTnlfk+>0h!c6k*bbnhusi~l?hQy$=SyVBdd76~Q)shAWu7Ns(`#P=|T&X{FEJH!V zVHs{(sRJ?8`Ys69TL z9&)$&Fv^M-hj%7Q7@ApjpPs+%@BbP+UWkpQTiU^J32R)b?e9z6e8f>--Ru5^KDNi= zHFj_{&gypDDMweYBA?fV+HS}FyX_t}_CIfB6F~sSKmoHbJUKAf&-D&Z%Z?dOLeats zkHv}?qw)ELr_jIjpF$JuQZM(47d#V8%KKTrW?aZcadF&6j%E;qnFTso3xZy*n4>I}ky#m1;< z8jHwx~UWqPTT8XdDqkl9yW_#XZV}D+)`?1`xz1RaMw~`vt;i^%l zZD3C58H*aPakKJB(fQfql#x^Aey39z<1j9QRPx;M#6Fc{?8mqGb5G120=ewD!A!a= zvb!aUMNDm(TZ6%V#p70XpWI>q0PQ`_$jcsEcK=wf6$aBk>hg_NW3Oxg;Qw*-XQrpd|z zU^awwAo-FuUbmn-P|Q~)N7XCCg%oP0A$psmft58}XG^xb8A!J9VtKC%cQm!dWxVp3 zrfI=6CyzV(QT`X%4;M-ILU5PL~du?VWGa1JXoU)ck1_^AnA6vmp?7cZ(&IVbgOum2_C6!v=Pa-xe zSL8)C2=7yJ?j!lbRjo8FerDhluXa*ORm-SfcgA=sse~P$<hSZuy`dmEUs)+7VIag&QpRu2%?fhplVGiXdO~0sKi-V1uFa-&z?Q7q^QJhDL8^#l%{@w z{X3XAUvyK2RJKGh8Cj+0fVDA;Q3+jd*dW z{Xy{bsT_2C*D(Z?Gy9ZtN%kIJy@ViBvUCrk>R1k5nMtMhwmEB-z#3~X@2sY>)G3Fa zN|D2JOoZ(V{`h4q`xsw2*?U$Syt3{aSOWUcP(7ELQv4kFL_n680oB$bg-QxkFLK6Z z@NeH!-Qe%U!S5^eZ*!^8+;yw^jL;8=J(Y-tI&mHJv3sawPoM$vFrZL$ z$s^&!2;v_z17T57M0I*;xJbfIW&aNJB!4~!XGD-dC_yh*lPSr~h?zo@PkmbH!u=qCzyVuhFZzi@T*;sGG<3d7a~>P0-wl$4e8$~_2|Ohv7OCPPs!?Fzyf66 z4r6zIC?shog_v-49A}LVTXu2LIF9uwqlKjJHgqZf-sbl1sNjyyKz3&kQNw8NFh0Q= z=CdG{HxIznUw>swf3*RW1jS(^O7fC=jy{UNk)VC>a1Gr6vkID?IH)I9Fu3Xb>GyY` zA$RE$tCRkFtWx`2E%n_n8_-FvHFRe3!A6q7uq!`5uOZ2GO0LIf?M%$*qIPr&xr7pH zZGDsu*Z=bRkX0}yB1W8xIq!McWDpyd+8Gxyn81Zwa`WJOFiX)RA4>}JF%NKE4h7lI z;5f=#h&vQ&5jGpFPI5ES86mXs0?kSH4kWoUJV-G9DUfs0-?bVxlmGkDuym=up1TBk zN7to6I@0^iS{-^{h)&)bKFnB58`#CwZLX9Zgfj6-git+F;2)a#-^cvlTTC781vcJ1^y}RR?n?rBgK^b3W14Q$8_YK4ZT<7( zq`=y<26se$(!9C=vRA^+>QE>?L%VU62+$m;uSqLA5ocgvSfD+|;039OuOAPLW~&VU z`cWIof>vr9h8h?c*yJ>A)zM^*Aw6Tt)NjV5S4X6sJ;>I!UbuW2^OmM$65nPrpHQE* z7eG*y?#JMy+oPYIidOe*s^sk$O1bguXPy1C<=_|3r$G_)&^7qn@~ zuZ!%_smIO+R?}Y}gEkw{~2d+XKHZ2PVZ`&i}K zq*XCf2UB^q^N#x_U~5DJx4OMTYtY>#i2l|w(@>XY|11!{x9U5m`0HF)O6{0z{2QSj zOE&6SrEgTQ;q7gl?^lmg`{P!=a{p>_+J$uWC*`EW^Ueu3v&4pi#AeC`J*Gr6%Z-Bd zlVe*uyIYyeaLcqRSp(e~p{0q(D~;jHs;;D^wwCL=6=kA~hqS(a$=`J$pKJe)(7wkc zko#%}P1nn#BwywD!aTT4WwCHvLIVw zAcO5f&61(Ew9?b@TOXxLv%&@s$Q99vkbpp#y&#G`Jfg_XXunYc!UTcN7t|Lt9z02O z+LW4wb}Jd!-IYjw<4(A#i_K1~E%}DEk;|hlmg@Dwh`=u@@YQ}}GZ0d{!n?@zWz7mI ztPQ;q!xAM9wq(AaahHpR!sk~h6g`Ph`2tVZ+=&;?kGYd;x>S?yFF5?1KqGjjR5mvN zKdNfqsH%>D?1m(P5o8IVF_&1t$Qc&&j-{}PN<9GH;A|AVg3IiC6OI5c@6w?Xs9?VI z=XDCOipl&qsbR{#hArL0=Dj}e9wrFm2NNOKGrvL25+I6qY?(aTdBzkVhc(Uso}I^; zeZ572-KL3JTgDhl+`548oWR5-Ipj!G*?`gj8Rx_y*RZMfWGWk^mqtp}iYQ`f<=VgJ z&WL!(b3sHH0u^sMaC-`;St8=QbxgCAh)4yYaybjM_e9k7q$pYKif#o(k&Hal0rCzH zK*$6{@Qqz-2HzmNx(eA6a|3y!79fD~!!9LX@TNkkEL-?%}(5$HA~b9j2b@p+;&><#oYm3|7>^*c<;K7^KC7`#Oz{jd0W~ zhqVhVfM;My_4JZ8X;MbsDGl>JaBl}5^Cxy#v)-F^VDPN>|@tb5_G`w z;4X=WZK^ktCWmsX2NP;`TPE|}Dyl1jp?T)4z~t#hL&>E=d_bQzc4TCvel_ZL=x*bD zm=eQTh<`9Y2q#QbyDTcY-E0=CVdaeEUo$7%9B42YByA4l#HH#U6#HJTb(%%H1k+Zn zpb>JJ;H~RmW&%wwG6G{eJQ%Pw-j;kHMI(qu=vKDx-eZg*EOS>2k}f)Lg9&u~!l*C* z84@R9w?N6De`~1^K#V zJ=;$}(B}WXtfU-jjgqovEL#PHr(x}97o)fCn`ss#YXA|QK0cg_V_O`QSi~qHK^Nzkv zJAY^_%ssiO=%MW|KkK>Z(5nlJT)wmRu_wIXST5EQ2f0}MwfCkEZL?)@#=g>>zhVP_ zeU@~&@B=3^G(bMEdzbZqN73C^j?+b_$$7d8ZX`uX^6bOc;43?Nh*$xOQv=y{G?s)p zr@aXsuXjzWtuT1t@*aF#<9F_OZ*5zW?!RdGl{@zQj-4s)AO8D~Kr0)4j{cOTeszV} zse|!V+Zz)0tvKgh%*B+(op|L=IdmH~-5Os(TdIROoYMip-O#Ed90`R%)?EgcRG4s+s z@LHy3#!zPb9Yy45X#<_VV`jJ&M))m}M+MZ8e=z7u)|#BKeK*yrADmFW!&GZIVXKbV zowUs{fkrAGE75ZN(MW9c`1bcY7J7#I!7%P(&z)e!hzLQL=j%@Q)Tu5}q^Z{^L*`5g z%Z9#uE-YxlzvP!TGh0I5cKblGV}x&KI(1A^-#1PZ_cfr5r(mLB*C89FP?MUXU=mee zfChp)r5bAV`ZXGg<%#Y@<`>OGSeNptL@AMyyHa{UT7{S6a)TbFs~*zV3f55psQHFj zMHLOH6pf6{3Q99L!dNvVNsr#)Imd4G2;gbbX1>JOeEX@AJ+0X>7)b=fP&5tu-q?)Y zEvKbjBc9?sajRaFPs;^uL)4YS5 zuK1=rq_Db*4TPr$+M2bAL?{gX>p)J28fbF9C;FsT$(cX^d$_@9YX!u>II28NUrrBu zu2#aHlY&oKt&fwaPz1&fXX7A51@^%VYwGye>^a8)DC3&hWi!RDuYw6jm}AQ6BnydZiKY(!?Z%h|pEm)fOp~bW zt!ilPU}w~5HwH?3sM$cC+|CN(9pVi07Pt!*FJ{|wjhknhY;BbHtRQS`O#=Ib20VmW zjBlhpn)(;KDFv^jIUG7tE8LEiGug9BD$MR}Ro3@pPBuOPiU{P>w$MZPj@+Tp(I~yl z#4PFQ7}*Kg+HRm>>p^?AG;u7C6{gZcp*PGxhXoZ1=M zQF?Me%nA}eu?oxmKV+Q=T#{+q_TOhR#T~cYb6?U_GPlXpP%C%M+(uKRtVA=dacMMV zQe3h!(-zarC07iwMzq0@N2s)^nK2PD49RjDkq~P@4TSr>eBsiRG>*g3tS%C)Od(_Oa;t!!~GWiYIZn-opM1ujHes%OU(%hrHB$iw16P_%B-voa)I_0!jSbLQ)fmX>1NvVEhPZAxoH zcvRYg`#@t3V??>X@irseU4X8;q^hoXzz4?~WN@hLEDCzdeRIaqoBIEJ>HoUj?H>eo zH6RaSEb99M44d8n+)FQHsfMBBR+yXNUcgrhHTA#mK8yA~0y=?zA7Agd;tqr*t4#t4 zDq2x*XW=0&Ei)+evj@KIyty>EpqvQ=0eYrx#!(E0ilt#fnTn;~X45y-Cruka9BppA zXKrz$%+>a{7f<56`=`2FX{Dtn^VHy}Wsc@Q&mT;E>OGWy*E^v~$9t?9_rfcBt$8b< zWNsU$VC$P{a5+qQ6iv)s1+qZF15C~F+ zQo^f|%AYT2X$E}zZR6#i;qSkNix6pIH*GyPozJoLt$W`b2t3fX`{8wzR2 z7#hAAFxjqZa&_M<$jU`QOO=Vm{qCNL#K4E2&nPDDy_wv4{GLl$TF_bT ziDB6F-Mj1ZFOA#5)2eL#)xL|{A76$N=hVj9$oemGFZubB0FT%&Ypr_95m`F zO5GBG@72kWASulCAg>(J=Y&N;1yDWQjP&}5Z4YaGgHWlWU#=N0d-7P>>Uoe zz>;Mi6bvz;Am1SdBSy5cy-Wz&9`%o%%kozItx~{vOxAyMSi&wO()H!dJQnjX3c~VH zgaVmMH-WF;*3VsD9v4e;`{i8Fx`UoUV)?TZ+iulX@xSF1aXNxFuxgwN}38Y8&DXs+z*uDuxGcgrtCQHOld+r zh=gS91qG3V zC42PICS}CbKm}jWKlCW%-KfzNocC-ghLObV%o?b z-I~I80Z_hIm$QSz4kZoqHGA{?r~h4r{`v4-rL!8MV?lM-FHuKkQyUU0%9Qb#uIAVF zq=nKkoS|+mOYm|}L+)g_Ck6cpJP#Ft}+3$&fRPWa#qP0h(%(Ze3Jr&61>A*JyChReAWElP3+?ubUTc{;|b& z%+UJmDSLHVxwj&%6aZn9Y;R$cSGMO9y|p(Rd@A$A(|{iVl-2~@ztna%>0Se7zDHiz zltv^#2vwO)W^pI{cDUU9>!*GpkT75w+<0~;#uwzA&-zgg%DQ^;8~anf^#-Twlk@wh zf=O9a313nzq(WF0&u<T z%c64uM{nOYhj;v9>9axLb`jjTm}_X~;ZpUSa0JOrTwIFw-=;j)g1B(Ibn)NLEv;jS z1`Epu6624F>4S&rw%Vzg=vKfdZE3;nQHzd)L4~x;j-VXzKi)2LD%mtUJn9T)BS|$g?orBAI5{$s(6NzL z36zlCN*bn<$OR?M1Vq`SmzNtam*-)m-X5i@?&C2roF7bUkc((INJFa zsR^U=9@<&aD503SR;JvYIp2o`&`wDqVJe@juEa)qn7%=@Kv{O7$?L)7^R;^gQS@e6rN?npYoKj{eX*Xl@$I#KHaEbC**#;!_G5+Deb z#FAf&$P6cR>_GARHeJ40ToV{Mnn^xMJ`6Mm1v(F@mocdjODbPu#*I>J%_K5r=8z9d z>JLHq5-M$t4pnM`?$;DVoQ1IQ>sO)o*NjTtL3isB7BGLlT`sK05||*t`poD zke5O?y)jZ^mXid6)yR!URtx4q#|e7l%(cvfV)SKLInXdk>Bn@RZN`6q{?d>9^ZjpB z-?CCihzP39({l+fP;>xv3x!?8`EB~~K?&mW5oGx&eQuPP1bvW^CG#!o^Qv43wYvX% zIk5i60U;)e15I(U^1IFbeT8x`baHl-<*A$?CZC4BHVL!*FkLTK2zlR!12$L^72;<@ zC_adHy$VT!AuIfXz5%+=)6Oz1*v~;yHF4$uOWw45wB=lE63-*O z$t|2EAllMee=Iu&0xzNxa;MRt%LVog==+EVV85{AaK$zw4Mv5YqMpaHj3uTr&$&uQ z)Jqs2%~`>x@7sX~|4A(K(9WNXJdY^NnatmAu}cXFE_?;LVA%!(7xt*|YB1S{c~yY( zSI@xqiM7!gB?s0Xap%oIxhw=>0#(L)e_tPs;s3x-CFkQ&1q-r00>`*zgVY-{H>%O4;Y{2(`lx~JvYK6p zi=^u7n+W=HD(08oYr8alx!mw=rlJvUFztJ*Inf$TOFi6mZ_%!%$iCwi(hy5ajaR3a zrU`p5Q^;}r;4NNFedvL-KSM&EpUv(JC|RIT6jtPQBOmwh;+Nfb<`r|NI*T@t#9>xv zlE{*qC8szt`BaF?o-?)KlR^c|oT10Uq~-aWZZ6F=hM&zZ{g$hee&SZtAhiR&+IIR) zw4BV#dpu3z>6}f)=#bLyBxgUvXl!EWHK8f3R(t|f|OhJH*(1{H!S4jNEQ(GzVh0CdW-(GAk#RVB3+$?NACk9jiR&~dIH8`R!x!He)Iy;4P2E)*lBG<@s zMh}8x`s$H|co``;>(rHLht4a<#B{F%IlONbc{n4ruD;IpaVV7Y=N}X%gxxbbVyD20FeANSbSu725*4SDoGG}H zM=&o3MDP0C&TwmXTwh4{ucYWn+v718AJQP48D>``&l%DC>>7UWowyxPLO;{4;{tAO z9Y>og_gWPZJA4}~w2syW49*1UPCGGe4cYiZZy)Hwk+`|P{Bz2;DEOE&$o^{1mEUCi{(h`WJV@;N%m`IaHEp!N2Q2gKT{r`2N)2=g7zJF>R!vB)v;$?{;ny*`!!)cyvfQex}if}et;MVa1)i|Aerg_2q9Bye~W&0RCF z?%#nXEc2Ivq7WQ^JT$hx-t_O6mk#82S=7F(JrpwAjlMQ};&|HiJ)y}NVThQ`=f1~L zK+_ug(B1T=O4^06il?s8R*!WrRfj*b_sS89DAoan_nR{YM!mrvx=u+cTVwkLz&a7i zG9$?w#q`dCw}0lBk%A$qq@X1E=ZBnhPpebkeuwyB*Q6gLHH{7)Ak3j=n5_@n*Cn#T zQ060OeglG}LJ-3dD+MCL!y+LePcq%4UUt^&=0U4N&03EtChi7Wb#FwTb@C|H$)iN;yj+3ji8T6-@?q{GhdXgKNS>eYRyc1%n20Qm9`FI#tj9`DYZ z_o}WozS|RRY-jjx$60x^tUHsM-W}9_^cUdRvYI0Dki`8X{K(nwFXc@PNV7 z8lrzZvSbGBu)Lu1APja+e@~^wHB09cN89!NUo@aSgLWr&h?UoL!gkoVN155FcQppK zSec>muPh`snuBthYys(`H0`d^Z+_YqhISiM%!6CBrdGA4Y2#p@)lBce-@ej7 z8eCI$HH+3h>oxK7H;Pq-@Q{m5@8wH&padDjOu;;niz}wMOCL%#0gl3k4yey7T6@b} z{Nw9~LCj30WuWCD5bfz1)HJ}f44|Yt4-?~h+}1!Lai?i8s7K5hgP^}fR5O=|ct`4I zgq`H!!p=d!M_hi($igTEL&y|kI@n#)%am#RW`pTt=-1jtb~lu<&!5iw?+5He^;e!1 zVWshb{TH7AY0}%XXNtNSQ)`PiB3GLw#QbuUgs)F=S&Ba0lp&RL$MG|}gE{l~vMdHj z1zBgUuHNwi#Dm36^N#vS-#-+tckcA2fAZlTS; zAWl3{vNkO31~7sCMxOkB3K{Ajn$j<}I}2ZjO77mh8?ns@;~2u91S*^rVInzBKm)!n z9&WqN3YvHReAaxK6;518aS@Uj;itv1oZ=EvR{o9>5}LneCUeT(eybRIlib%Qnaax7 z=}Tgi^b@Cm$#DL9Ns#LOcxdHQY;2_Ii3?Z=U#3bZ5qNm2_#wa=?%^&)*W@^0u1b{`$7pI2rs)o z=xDuT2RnMdsn+;+yHHT%^UVIcA*p?;C?Gs6S%HS-vcsbSZ>StAg)UEq6AI+sX59H_ z(q!|L8`)s>Bume(1Hyn{TzZWk6{>*b0as@;`4C?^dZYLoaBd&#=JyauL*68aI{MQk z>?8`3&6MVe58s1;x^k(ZDw`Dx!K%gLxG8za!(E`i1@=PX-pGhM#}K=5U}%J1iuxMS_Ub@|DDW5{+JC#3i?1g&24Vx%E?4Qr~2vpzYhwfyNNS$NRX>j2w_1M z9+clA%PS#tes?J}Sy0HQ=7}Il1|7($*NlkWg8;RdH%J0$qD<0Yzuzf4Y;ns?ajXE9 zgjz>spL*rSE$Zt4FC%Ul9()S+u2sD13LTh-(IGm_e5?~Qo=*>% z%5oIs4Xe;&Pro0@lac#KE7ByD#(n~$n8@a>-H^_+KeT+2tTC~3cJYJ&6}mE^LqO;P zy;Z#f&z^XK$E>bCreLJ>HNa8*($P|SbrQP!bbUu3aA;?pvZb#vrv`4|?%Qc*IR=nu z@$t*XNs(DagQJv+ZIkD{RT^R@5tM63Y(dng(n3!#qL~nISfg>;6K6`#>G6bt73G7l zb9N@k(sX0^>{oA@u`&Gp(S|PCq2TFLU=V9dGgfyDCnX3#|Mb6)%YRfTCbH2{Ib$$D zBpyy{%c}^n00hPAJ!^s61+h7|b&D5fLxElp5zYv=h=HH}7;_kK8R=^N``&;UQinbN zc_8pH_4W~XnctlZ8u}>M%<9^utr-2l@xrt|_gCMdFwx&x)5lhX=fly7QZD4QXc$MZq34pf84oN#M?wGHesCiu|Zdn zn-uPpU#ITjVEFn#W0y{bQ>VC4%Xk`naPy~q6ZqS+y*CcpE^l?!*Il`1n~XWqqxNuS9tgfM=c@;=%dtCa#R;^-3A7b~R<6Bu!3@e;S6pBSm zcU5)oi0PdHFxQ+^Fk`%3q30rgFmC?3H45zeeQ_sXiCXrD8Zj_v%TA-VN^&NV6--)G$hGqV&eez$F9x3JqMuqf2h4TZD_3xX#A;TiMAgN ztb|PxadgYMz?D+<+0eR*i6C6Wre)agp6N!V`ToA)(h1H){~{n7%ZElOT@SE) zv#Fwz76;8Q-^z#C{O;t!!pxGpWwy&L!LPl599Sg!l|vC%=JBgs@i9mZh;R50fFPRUC_9$`U5=NUNm1Nm>ygRcA{J35 zE8KKM4M0K(b}i6$)TekhFP7EE@#z3MRBaN|kC`_s7l~t0S5b?715>i|F7gp6HVI;( zfc(a^*mbFQ%G$uL;!M$rY@P#wz`<$)a3L%4rHycRr2H-fbro-UT{A-k?S!dpXpodd z7U>YW)v;92*l72hZ^1E0N#|>Shh&gw2(C31mG@RyP5<~vXpi1Xn9 zdIB8B>kQ)Njjmqq$rV)@HdaUyOOxafq`dX9IoJ!XkWf_coe&6RvJ?6oEFN19jZely z!GPjM1ukR}A$L9Lun{2~UMN-1TAn&$TiTt66SH~F z9K?(fiqMx{z!pd|A@Z=axQIx_D^rCtQ)Ds!2#?ClMCUN5j7;V3ic$oVKRD-TT zXhn8C*ldYPo^2s?)%jYPcdiQy5df+zuSd z;jpTj8S%(K=*nzzbl=gsko$=G%$2E|?Y+e6EQhYK(w-UhCrP^=6)XK$x=l^68>)a8+^ zINF>zqZgm4uDD?vx$^eybB0RjMe!dWK>ih=6ZP?&1w-7-B#uUC0oU@(Y=?%{u8)-_ z9-?6J@;3SQyKS+)QxIxltp1MIUb{6sUO>k4NBxRWlLE;o9*>`cLPq2dq-%TtEF3b! zLjX%M0H;U(A3I=vF zC*T!nXCm7F+^XPO_1kXvqp-s73=FTd$;xLID=UIr57lk2DtmM;@E9Y!wJaH^19YOA za0cN%h%y$kbQ`>|$2JuO2|f_J>(8C9EsH7}=mqTVF~!9dwHuR2c3M!`E(OB#F$u7WTbCR(E5;TulrvgdKkPwu2LqWi zw>uOwj^SgvdHgoCZ+&a?EfpP7#0y;g$RyfDrFX1VWW>8~;!f+7v*Tv^B+OZegY6Xa zu>r|N?`0`|$tuHfev|C@HRBXn!6R`eQ?s~0$b#1T*6~DQCSMZ!d`l!sPd=Ws`K>Nk zUf1FQyiG|4y~ny=9N#>D9y=bVKSkU~cHzaZ%WTWAQ_G{>G&=ytg@7>^Z@rZW@nv~@ zyc`c=$5yLA(^x`gfW1DopT>oRD6wX&FgW_VNvd2Y5=#2aAiZ)t(u}G%1iuVMgW}sg zp**SNv-v~w-QNWKp|pr3;`eVoIq-!Fg|OE2zdU`K?gA}SLE0b$Bsa-hr{RS&K;D9s z@LWo$`J`LWQ$HFf^M^~2P&g{0l1F4p^7`4BI@wl9R9!YOEXoAfRq~5@P$mihQt0DkEZLb%K1i^5`K0>)si9aPiZ8HJdz)Ww#?nJF%gB%KMeB8rf^mVFtmR z^|$nnR5hrctY`}jST?Z8XokHb{S83^KiSU{iD|Xs>!aZ~y5g1_>UNG+j-T{kFRFfd zx$@9EO5Rwv)xAEWwJZ#m+7M0p=H$^s*Y@@USoq_b=V3h^vqz%FqJwd!)TtSro^(W* z?#DB&V@ha6G7M}S=t2shJo2V))kMtIU3^JGzo|yA=42}Y)e5PzwFyg{r`m5`96$O3 z#23b|>~JjNZgf+Ttou&qemJ9^x6YCIJ$-ZDUEnPZ1;GI<5s5TDF4<0%v&9hDw*N(L zF3Rldo(HH-$X+Ao>Xxnl^-M-+-(L5A4=lFaL$&ecG;)jm%iYL7{H+X-&9GY47G->z zftxWRGM2>}?R!t}j&M%^vuL+5RhW-rI;@NmdGUspSM(8+4cy1EZ(BRPI!gC!y{2TL z^mzMiUA675-n+F5B%2L@W+})!x{a2#XVB=h&SQJ?kMIn@?r0>G!bJvQI;zjMEt=fc zbX8EWdKYl*1X5#vAiSc{{BG(5edk$=QtOG@z;`yVvy0*1D()C-(zg$6vc7B%wU#|f z-(#2doVR*>>7Y93Cu#W8LEP07!`+LV&98wbdcsX}MvPIq`)e%-Bhl~Duf)+5Vd;Kh zwio)zN_Pz()R*u6$}YZRQ$Gmc^ z2poAn7uXg`20%GPLjuq=jt0+Jm_=*7eW7;8k8aheRU_^qg1OXcOK5Q+nJJFsO;P4~ zgN?JXkyL)(b3e-3SiM<BRvs&9y32$zeXMI?rZyG#uJhAafvd#nnUp_qpyQgAY=>*PBTQS z&2>eU1zmLIDG*$8xmXDdX^h9l7L@7-FLFE7a^(htAyJhM* z(^YXdpv9-C_E?`oCfJ$KDB5gt5;ISw56J%@Rj?R$?#m=%oa+AtMFq&z%b+j5;!mo` z_z(J%mLp;yUtIPLksB{QDFBkCyv%Osl`+IhBjr6mSimi2UaKjJp>|M5GMCI^=H-J| z^f&!T+3|m2QS$5sj9<&|X8j|?k7rOz=6r~DjF!^ZPaT6T)%X?Km@Pi@lQAgg8#)g| zP`F$ef1d_n(J?N?>$!KgL5we;$n<1pjw#qu{g?}LZUerjF)&@uZ3YGt= zw>Ff1|JOnZmbZ2hR@fk>4l?sxlCp>rs6m!D!#^@!o{a60|CBk)XZ?zj4CgURjPc&%&0`{})0otK1op5;W zbx)OH+|60AcElk2)B)164d2z{o=Quv)Kot#OraI7QRoanRwu=X85<`7@Pb(sf9e$~ zQ^;Rt7qj@MY+zv4m@2E#?mGtDUQaC!g&j5qmvs=t$S4ENB=sa%6moSMj@{GLo5_z2c*+9%m!|YLMK=w@=fc3kg zGSD<0t3m=gkm8Q2EU;@(ZasrDK{V`RTq#r4b~0A8ct*h8oD1$U&4)7+D~;G(Oa{r6 z4h!6`El0L5A#Tu<6_u|qCoF7HP(PQJqazY*Q9k188J<_Mts&igek!|2*^QBqYtVy6 zJdFz56=bBgE8-d410-T@f2yEiF@QeW;8v<$qNb<#Ca}B5tEvj9F)gj#44;>31s1!7 z!O_0y5mUBaVYVT(ujw9fjm5;Y_+&Xl*;gk?VMG<}sC-zAexTBTyUQ|&JUVKL*!Ojs zdddH5N&0$NG@TEfJ?`|4qVf%}S!sB*@8yqWb{D+E6%YPb^EI-%7lMM97RuXe!Ak5u zhqgT~&|O|9=WEg9W2pGz&P)QaxO%V$ehN{Szs;1qg1AuGr#!W-;Ydt!pnmFo_e z-)IweEZ&wsqRYerc82`s4J;%SlL34B(iLG&b-0T$V2lGoD1>8DC)#dlBs?XEAD0z_6 z{{QOeV~Yil__IZg7{#*m&**qh+VNC6WX!Y?Nd%SRlv3!F=hR`%Vx4DopQjvLQ`e>~ zw{2U~3H@szF4}O1>)uRPw~~Q{H}JO421f^bonU#aN7$5>#eLQNVfwY4dbN8GpPz^g zxz<D%h!Mn3W+wWh~{b8>3i}SDD3Yve(L_cg0X$#4t z@WIwb%vRd=CY2uZHx*`)_!Y9XpUo??Vw`WisO4%uew12YDsFAewN|a(>z{{TdX$h> zAsM=Ol_46YiAIJ*AuiX?1-1_A-*?H%xa=#k?t`kuq>Nm(ve4LaS>9J`R)ra#iIUfu#Ltl2iKgezdqTjkEeO{1wSx7 zK^{*3=*8!S-(rcQ6wf6;In)8+^mz7>teKy-O*OD~%}}9G-J4U)J*!0KVc|LALhy!H|n}W>Z z>PY!bdgvK5-B0|6qN<*%nl;)o8=qt;4b~dl=7fKK6+uK5t<(Lf!9ha{{XK5#o+3We zUKl⪙6P2=*wcVmLpl28GKT(OG>X3Yfa)mENWU)=DA2@tU-v-$%+%zp=SEz7s{Kz zv5D>MBZ%rkV~KOIT9vrogv_;J-CmcOTW3!)!bJv2GqkL&kL|%YYm)i&VAh!|G~ayR zrOtpWOuxkB>HTob_6=kv>9K~*LDPe<}1YM9qq&FuO6q6OKmI1`niLg@Lxtf$pQ zHNb1xV|81ddkJRvc5HQM|BrYhKH6IaNOVUdOxHP%ib3a)o|5jabty4%#Ge3(Qz$Qe zTq>EwP`P^zCoxu-oForA5v1@-0#wL0#m-}iY!Q`(BI`q~>plp~>C8Vb{i?6E6+&&AFW-U%Cbr08Xw$St2(!-r;d(W+el1xsh zI^okUU7aEnxulGeuJ9p7ar`pDotZlWb0ha$Qjg7(#jQPc#`CK<h2rBXEufYoZSP=lWw%iZ1(up3bomWtbbrD}J8FQ6mQtqql;)Lw75 zdi%4QrNz=w<#aFKpVDq?UoG2e9)PHLprv5z|7oXH$ImAW)ec8{op_`*{=o<{ANPky zbdkzCJye@37{CW&;IpUo==p2-@=(tp=W7 zU2FY5Q$^&mdnlIUoU3>Gl?GAo1&^5jN+@duiZL%-< zwYGip&t8C7a?f@hQ&(wqxnae>W|6BIH8Bp7o*#ka;Jk42GD!+yM36l0D*-D+k5wjS9-wTq76Gk zuZP;O+C{;0U*J^Wfk3bDDZ9(BxDxr(GdyUeykw)Fn%Tx%pKm5|3p080$|x#{F({6m zF_Qr3MPbeYl-tw|)EeEPxFtKxI`E&T)@7}O%w7o!WMbuVk5Q?pNU9*$_Xg{es(9wv zbO~J;zTzxNfkeEbfxC^lP2#TR5vo-EpAwMwN%G!Jg*<`7-fxX0%KOCB;y8m2 zu*2bhXW^o;|7|GuyfYPvvygMw*C94Qi2NKeXeQStqUC>Xee41*NtG5`_~RCKHZ-iP z_)5*=r6~WZ1?clJ*JB=3Fw%gyav*ipq>kQ{QAKdPS#jYqC!s zE7IBTD|3p-?*n|NNG1HToD{v0C*2V#$S_r^PGvEFnX* zfCcPo85v?xCEV?I*qm-&cXx%E7({bI_o{1L&MID*M18S8ZwDQNl5ex~hfXFF*xVDB zDo#+a0v|sXi2;6#*X8`gP3K-h$89W0=D6~BoC2*icW?SZ6Q&&OY7j3+|5#X?)5qfSzWk zS<_*s8#x0^5B1oDesATj#%Im+P-XheR19MVqUK43!1o(L%WoViBvB)lStyRb1}lX+ zx0^~$ewep*f{;!6pp&_YXxH%Aait2asEjiPaSrz8IoPlOm=_*~Kt2uhqMeFD(j%PQ z)N4S}mRl)?%_neAnIa}XS`Vw)s5y0F5{>3E^9Q6!p|j_GY1sRS0p`G6GIlOw7}Gj2 z&IqgW0@#pwBDyo;W>aGBOcMsd>;k)`vM|IQTd=<@`)ruVDowr6I{U7HrljFjR$YDB zeBp_&MWEMvWb0enY>1H&{uE+JZ;+tDJdISY=;b~6XKrMO)QmD8Gt~jwUAz3U9W?ae zhXlnCAW2ZoOgqMFrDdwQ@I0E!BR5iS>*kaxpKiXBhgd??hmSU4XqXC%0|q#_o4TR_ zNUPqpuNIMZ{?DUT( zUwhihA_0R1iWH6@4$_s6TDnA!Klr>e{af5|lnySX(|IU!P{ z4>T74Ib2U3^*PYeuQO%CmV~Y+bW&`VZ)6b^h|H|cwOg#vp411XvZw&QzQ@(qh>Dsmb-r#1FgWAVk%}Y-9QLU}F*#A2n;5wEo zBNlg+g=Qt8M66`DXP^40QovMTmQac?w$yTIvKV9!R@uPz!1m$b-O@zt};@4Qo_vc~~YWeQGJXheC>zL#``M<|8B+u!ff_WIc* z3V0h}={V=WQg5sGKdAg*l6LtXA~4;e;rpo1f84S(_%;1?BPYO0qnDjpCQwvg`@|F2rt-ViiW3WuL7w{c`agqfctVi#9Brg)3UC(`Sd@-~*5=eaRmm5^{+4G_2 z*#L^RspFtDuCK6QU6SQU&t;Qg9%{9ctRsdN44@yNWiNOYbmNR$XVVIhO7&If!>Vd` zaqS;3s_Q%+X+HzXMkVNO23i(~mghtqzsZuR(=8#3?Lz6J!fYOAs<3d$6c1`c{Lrn( zw!8t%lqNLZ&klZ!;kT`QGG=1CrcPxSu2W@egH0T}Zs7kwN#Ao0uSp_fS6pTog4{Jf z2}G2`eHEI(V z#1UpXl+z{x;pdG_Ml2xSP$ti$iu4`+HYdF z{J}I*xi6f|OA&^9=&0xs_Fx8<|8rVLAI$()ta^XLq_@?EjcShrKPKkuxsQYg3AQ9X zY;*Ne#ayGE`=2SwKlebhNa-B(&++0Aviahjrf+U@s`GnwTR&JmNi*n(ngE1FBmVN? z>3pk)gU5G%dxY$G!}XLOKY*V*Wl5`js-Wg|1fF_31#XMHTKUQhB@2&kWl#!Xh|#%8 znpUJ$`Y^-(cl3Xm@_ZO_!ydvs~7IJ%)B+Y+Ex~;nS#jsd=s+BX&-%eL)Do)7q&(O0v764$0>p^DSS z=?A^IeSZS}Yx;W&%Vbll{*!gnI{h~q7NA`~w<3Bo; zJjKS9r8~&=m#1A?$J7s}yi)^q54UeLE508qLv)vZW3lrV96b>TuQac+Vl-GGDinki zAEmi2AcLS+v~UzwOmE%X|0w>WpE6jF0t|Kup|~Q_-?LqCL+!6Od*Nv{i=2r=Y-?Zt z8ry<0+kK9Mj3kjMw@VU~s0nkg%8TVO`AA<<3PZGP;?1l)2cnR@R_`G0-YKTa7QEu` zn{v~AlzQG&H$gNjOxu-5%%TBydV%oK z$73~I;G@Vk^v>0Ie#DKL^7KIo*zFK(WjsFNJ-2%uC2u5VG?PE+6EoL84Nu2TyU_{? zd30rV4o&0vQ@i3;z*b}|*-qu^WG4)PKwvm&9?eCeAU=Lw49W0V8L_)aPv&z4E6YrV zi5ZzkrN!?E4^Rmbk-#sRD+lx-`DTYIsx40pJ!sE|Bo+D@Lu3@1f`#H5A+eOnOp1)9 z0_ODs9VKdl)^`ZOd}3Wb%JYCWi=|(BTn37$A6i@5zJu$_)cTaAe3G0D5)nE~jG@9Q zaQ3}2UN6>_+(^+f^^MS~nq6wt$SiA3()D))T66buA; zl1Lz?66uxDUYV|MSir9OL3p{A-sVlpnp`?3&5MNwSV^c*1QEn0P_Ua%0b($F5_MY$ zHGMaDL)KqP$pb4yK;)xJmWAMZ2NC9}Gc8jET~PU=r&KKS8@*JpGJ`G=%I~%`Km{@x zpU7umCsVSpD>r;+m_8N6`BDB{UO9`Db((=nN$8%EKP;DV@r>m@VmF9)AW}HTh0^=u znVs1|U_joGOx?_73=)c_IN6knQkH7bnN9a3;pl>7+MPtxl>g4o@6(h4&?-b-`(1Eb z(1Mb6yly9nhyrT@mK2Ga!7I0Ke;R1MZxUS<`E{mXKIuU#1z5bDh&!11M*MxhMbi|H zV+iXJ2#1xo*=0FBBIZ(8`kQ@ynbFCE^iYs^B?Omm<-8O!$ zM_W4p@rhJ0cG*#wgo%~4HgyjII~Jn=D6bTs?yA^Pt)RZ;%9R=i#2s`L&_e;NQ9}>f zacJtlmwsQP(f>Z&o*33d@v~;bY=_l-wjdU~!>%V5zuxw*^K{}`Bl;Xzpm*v2^e9Y6 zrOj4N`zannLRKF&Is7DW|F#4Wy^6se zx4r(kdJ1ZGQE1QVxu_F*9pAm&li}QMr9rFuyHMSn%zlv;bfS-ZT;g*l?flgYcLhre z4rci#QgZUg2k#u6&g`Eiaawab%DEmV(DpkvelmG(F*U90z+oMZ&VFSfjv*|W|GI9Z zDq6?YW-MJYD$cD+JACW?sgM6Y`P4zu3WRYK7x}G@=HcMGv|>NjBBwoIwiM4t>r)e? zoalhu?WzN$YZjR@rytH4(Y35iLr)wgQQ$fDf%ia|y}ylFY*5_N2&{E^IDJ>}p3WHU zZh`X+jC)8+Pw;ss5S46wlL+Z$qO^C1xx|)X3Q_luR+=ED_`DxrUKS!s<_5CaEx7T! z)1%ZQ?(3maR(pix*HC4wa|)0buxOg)O!H9+f|f!?T^fmPed=+tx!i2Q%I~vPH>-6< zHJeb<+jq2=9^N_Ep&i@r-E+wp+qOo`Or;ExtABR>r13HSkMXIs=8|L7RhrQ!adI^) zJBAv=7cjf-n*)P!)uV8iBfh;;kB(Pnn4XGB3fZnN$*X#7pWp8H_s{G9yK(vvM2E2y zUfJii`7{({J;n35=TLggJl^50B-N}XgCc1$#m|D9(z{+l7KSoIQ&YXw^PghMx9MX4 zzsLGt|L|Y%f2kioo%Vh1+2iP}ulKT#W~lFScQ;3vf4#SNuerKQ%nv!o&0YQvW9J#w zRQC7#QITFk6;UK~M5zWr5Fr%ly(tJGib@qwih>X&p@s;gR4YfAs0&r_$hiZ7jhDfnZ1A@iWQkr;i;!0|&=3JD3bU{I%f| z2;aNU`kygoJ|1vu^Ir!F1pA%9{(b-1wglTY|856?@izb2AM|Uy#XtMy%!0rKoBta0 zYr>xYO!#NUf6fr}&y@fEQ)qv7qB=;MUFjT@J#{{u$#0Hw!*~HVv%6KgVzecL`SE4BW!%-_yvMIiF5W z`QKM8FgXpKb{t%d+^@O+z52f<{#yMAICvEQ-k-(Ze-}wE^8XI|b%Vc#S?<|u^FL<) zn(&`zXLc|yG41$iu=a`IJTAwNCC7j#>3#gv$+TE-f&Z@1uT%f$`AfTBst;SdHrb;p z)Pi$9uD;3g&pw)y^#NgI``WbRsD;tqQ-TNL;+@{t@7!?BFI~8kgCF>PU@}mLqiPnH zjNL1vmr(pgXv_OBB;Zb3zm2Jb_F#zDlV|z_>pz=3RQ$#T-N^+cutTqmG>DiRz=#87W*tZwPBvhhmFaEG@N2w2^v39sgX^)}=c}37=7I;eA}1~h2NIrobP|UO zWiyrzzx6zB`kc0KC+tMr2CuOX606;-q7R~Lr+%zw94h84j5%lo*x!lJNqcFlf!!I( z@Ej=8O~`LMG1UEaEO*koEcVQ?Rcz#NX5`>&{bNgiy@+q1xgOD^96VR^QoEIgnYsKr z%_Po}pm+skx-KZsN$itTb~BIS-H^3jgkukP-&8*2v_as!hxugkPZg_c2PeOK55iJ(uNrOE+w>LL z<>!6J^b-1c)Qbm)58IjssNo_kPZsV>+34jCyM(!X*Wxwzx9_13@%xIqj)$PHnQBKx zi*=J#xy+MdqQG6#2uG=j9de7IwHkj{w4J3(d&O+so=EV5ut#mw*Sw#mhBpYkrom4@qHt4X~_ z?PT$oDflNM<;{E04bIm;L!P=pY?&%=bH;;&31N1N#qxfKGvCsFE9kv!+PUb9ASjU? zR_N!e=jz)V|6H30(k6QY{1D-kj z-tZ?g@!;L1O|O{>*Y{`){>@9nW`6yV*!ARL!i4+J$C(Es`k_fq5!z6h4ITP$w)`J4y)2j^-zP6gzfoQZLG2I_tA-srf#pSs~e?y?PLAYSHzA( zH{YF;U~MpI-|((_AFsd-Zh9%h!rDv`Z~7rR_=x}El$|%+cD-`jsv>tq>s)q8*ZKyz zr(uixjDLH%xooSirmOz7PbW`Zytb}VWEb>ScT}98aRTv1{+e-n5dFe>pSg2)Uvw>7 z%Kcek!0(>9Rf0$HdQ~n7ui=7sq*60#2XW`2;!Ef1>t}a%%(qS_!8114guwZs6OYvxf{=!gt}kQdU8TlaMs=2^J@d+#=g&I z>u!s(N;H#>O^<1|^));=yXR_XYs?vC8};LN8W|rxu!BOX&;BHb7SG%)r{%owAC-!~ zo2|E_)1~3~l_zo)FBh$BWOZeyzMrJ~hE`vBi-*H*#38OF4a{72nlspqI;pZ`6-1c( z(Xe~V=b?iWi6-qaFK;1N9)9_KFKnxGHr=!1b_90cg=U+Pg0Sv1o%4^Pj^rpEIeI8| zqIgp0TGpGpl9MIjpT!R2EYq%>bowi^^qa27-LlILqwcRj^_|hrOU_})XWQCaA6!gC zmNhUE^EY*u@LTxrUbJhwHR)%6#apPmKbrZiuG#m|{`a^~=LKJ%UnN~ivgg^PoKfDN z79=O@^2v+vwzcZm@nfF-xCi~VH359vk;i{tepGCsvS@U~@z(4d`;X99g|RIqZv!`6 z+JIEM@CSG70%EAo|F^5(75Ztrx1WGJ`TyL1HtvJCv6|6uSB|{PST1$Bul~rtoLB^x zJ#^q(lsYQFY|EJA8_utn#p4Qr>vF!#!8(+B)~6-g>?*rn&TUCW>|377gT=bX9m8*p zcfEvv%YSwj9=w?Lj9%e%>GHj=e%8a345z_bmm}@^CZ*GF55J##if&Nxz0s(;Dplwu z@a59)yiLUn{2ros!sl^Q;>KgprsJqBuV-6j=zYEsk9ltXZ|cde6#BBnAJ?yAa@+s9 zp&51<=9qr<1k38rOJ@&CFtNg_f_N{Uo{?_N^P{xkzc=lFwtTKpHYR|BK! zUyy<>JvvfqI)~b}qqR`%oK+nxwYl)kgkgsvF2^Za;qAo-JHOH70|RV`PRrsY9!h<` zi(TKiL3%9BweI5FOWQ3m2E2Xe4(ltjxZhE3ZduEA}LtGM^($9?&O_AbtNN?=2QTca*ep+jGNN zal`jrH}KE=6)guej)!_g|42Se`Vk)3bY+#%KkdviebT@H-pZ)&>EU5n8t(d=J2kDb zEnKe?k_SBdiJ+70I%>1}Z$6Kb8vZw1`j_SU%N|4Q`M*ZmKi1s;pON;j;rss@X~ti^ zTJAyk|Asu{rE6Yw@8!z|&Yimz)$uX+KbF3EsXFpod$o$)_@+BrEXCHd4Z=fDDP=A4|Ed^#uveGDAh<#b{YZdquN&mVJUT~9tC#NT!I`i+jz@q$T*gxKg#Xnxi|8tc8 zxoo?K-LFYt4{yJ(`{IfJj({(cd!GLfN9g}|vqU5Ocrc~*?--eg!yAgmv~MWd{Sgzt zs{}3KZr`!&HwN^xrW^L{oZ1rTJczm-eB-449=QLJ9&J;HG;Xa>5cJpwk0CUK@;)}) z#0Pbcj0QTo{dfdBFmE4Y-LI1jGpMsSAKbLrpTDCfLzpKQ8RG2YP@r}zhZrU=eXoSW zPF+aHqN zn@Y*{SK1%zQ|eP|#AR@XVuR+`J>okfr<8VFa(HX=!rA4s!Pl;Xe++mY@NXev($PU7 zRqS>bmrro2x|6ywqe-OPr_Yz%TauEJRwX7FbQqd5@Km)L6;ZA#9IQ|K!}3$f;9Kd_ zQU|NI(Bg34GPdfz-6eNJ8y_WG!cD8<#@EQ@49?(*KA6bRr9oJg7-BS|HHG8SX1?6z z^2p?gU6QS&4FXzG55cS$cXI+&1#3k_{+D|{FL~AEOX28*agPtUmpZPazRTEx%8Z({ zyX)qnLKal;NM%BD2e$n)1;2bUtOAbxB(DuIL44Qdd=;xBen@J_PzpZV*;Sb;BA<6y zj;5>>h$bS5OBLP)`+qOM8i@gTP^v5pgE7^vjmdOrt58$553yUBwn_zw@u-<^3_n4LEIpxHIcppdSPwfyk_E;%AlpePQsk4O$kKQQ^lU z#RMxo`}h)G#dqH;&k6G(K&T-tNJs)5IZ%WU#lmA|a_=aexVRBS`4Ku7sb~EwxlwCq z5BV?E8lFP}mVO!^$rDu*-%I(iA#^sx!MHrW8^K@^0d!<(p$hf*T=TC|G#m__+(}Ph z$eDK>FQ^l*lR(<}V;{}>^F6uHnof-f!pw-axumio)JnetB zz;YK6?zyt%dDFg2OIl3UnAZ8sVt^h2(JVO;n_DGc1LZjIUzuftHjgv=7@+`AfTKw< z^Zk}%hIF$G(Y4sZO!*z%?3w3$ip+Be#Bi~UVN7+^ZYp4ZB|~(FPzYfiB9co=G?d+~ zeu&UCfn>@?Dqrf1iG!rPqo8kg`%X0XHPS>MloT@FJ$sFByy*y=%G*L!Ud9R=U8EcVai zS~HFFqrOU#=EEC@YiAod1?A_>TlGdk9_t!|9ugE-yKNcsyuEc2Ll~06>t@t2-(THT zt^hHPyglib5PzQ2(SkoMF9yP*xb4BI?tzIWRv|F~v3-P(0tMnsTsyXx z(el@W!$R=tt_5RgaiT`(WFdfnWw z_mU{hB+O(k#ZrK_tE@q5+@Xj9>HLl8O@P;%WE)ef(j%qT6G3L~&PiTd_Bc(K8@VA;jS0tE!2lh)9Jl zdQzjdQ~WfL`UYt)&x}Di!WR6by&W&n!+lme#)49NU9~#oEdt zG@9hhappJ|e@9VQSA`Jr;etP1cJ3Gr-KzQ!DbZO~KuV$BiZ#a_LgK9Wq2rhX&6@$t=B^G}zfGY!JRX*-%*;@u84iLoBzwct zSSZ3{heTmmf+i3nON7&;Y9|THE2A+fFhD@_IaG8x4Hj=g%$^KhFltg6_1SA|-olHZ z$$;>5M+K?t%!n9skr2KlsYnRg!EjYafd^{G!mdU|7<1$g<1-h+F5aKj|qT zRKEv5T*Wc(Dt``EXC_z*^KTQ)VqT3}BdABLz^1r!YtW=qTwB zp3ThKMj{fq^rjj7v%=6(v@sK{A2CsOak`TNdfs*sW7XZ_@dNR<&byeb0I3&4U#Kci zEfIk@ydjjK8u7!w80&qvrBW|ZB7zdkO6jc0?VlMH&Ud$$vhcQwZPnqp3m#d}53={- zKA5Es+#8m}C*Fs5K2)j9xFwFwVV9eP_m&0O0JuiY#iQyc%Ozw<91Jtmz#Dc-#^BEr!ynqc8@l-vc0oVMJSo#1Ob#e zWj1D*%^zDKGu}Y=BP)EjHR7CDN=mI>3@RZ(%huZOYki;?S~6!++Sja>A3R?E99j(H z=RdM8kIC%Z>A=rx7gcxOg)re|S~o6MFw@6;Ql+Zt@(DelkR}I~I$nY~RUV?H*bcQH z;y_;aGbGbgWA34?PaYq<%l}wNP|jSbBdrkhNbFAsKzTnZQgLLQQMk9?J1T0%gTWwn zH*iB_v}h3X1C~&Hv_}}a=&p8nHGej&y~VV=y(Kfg74j&8T)q->gv}w>=p9s9Gl=3@ zf{fgEKkC7xWJuU7ZkN}XXzZOCPMCfjlM10^)(FlCZcfPwvRB8)S1Id7vZR#~k8k1G z9b}N@lG)}-Zf~(m4|4J(Jq=V;1gw*hlPTqPdjhB$DT9Gsz3IYK6;R->Eaybe`|El{ zK5Z(HD329uH?|Wb^j`OJf3Ww8>(i9z!oWVS(DHNwV`Mbe9ai)qM>=Aa-IIW{O79ji zBgWgxvpkq1v04csy?YT=@t+~4=oi` zRdRzh@)xcAD=`g(y7|vTXj^0$DYN&qxEhc&Q`4*xFv5V zl{=;9lGk27v6w=Wa)+VYOv}FfHJGJhJla5a65k(2%<>zr9=J3^)aMWz1=5u_Vh9#iORBuGvzP&O}zAU``OW}(z>b@)U(2IWel_Mu&Le+L`qlmm+&WTIqMYqf} zD$g{0F$$gtW9i+BYCiM?{-v| zAP38Gmoy1<7N5t)F%+PmhgIq&&%PQwvr%KyR(LT|a@kvLxl#_-Iajivb7aU{&r>~~ z+!@=G2@sIZ?JF~YEPcMX2@*;W*Wjt`l}(1Sma)??ztD9<*?XCvTASwQ(s~Pa<*+a! zPstlO66~K$Nz)@&p6)eihtZb%U%2Rm&YZWgu{_mmEwx&D9^*+Cu=+|2wZ$;5*ZI&d zf#u9xik;eHq;#s>=Bq^*jP?;+whjs~Z4XO`S1KTDV?G)v_tNF!r%PALN1@@I&2eNN zZpr})`G%6Y<@;)D^QDx*k4+b@ZrY5@?~ZrRxbz$(x|6efI5WH=$~2h=YSiOjVR+1Z zU(RAuD73=i553xRSjE!jAzETeq^Ql*ms6aS3lSennPtlwGQ6_3c((GsAVn;l>GYUXe?U$(cbaW#`tICOG=uD{jN>;=&6AUt2#IFrnhn=6 z7!Gm0G&>)8Zca;h6>xHY9@_fNW2gm`xruG9Rb*!B^eY$4)i~=+&TgWnRaZrv&(;z_ z_$+N)W3w5=8DaC2Mak`m?jf#-EoA3-xVWjTM8COo>zJX&M5K8)U^`gf&y0x}1U}&l zhass|wGvRS&52Ne)*vb*46gKDH^!IsP#{Km>m=aT&R0J%EKNOlB(`v$%0--sL@kYW z#8~fu$E41|7E+RM{9DB2Gj0f@uU>M*GZ$(YVE9QEL%pH{wDqTyxG5nE0(h$?A#-RX z3+tc1+IkjA0!qU(vl6&jp#O`{Q10Z?)44-3i&;oiTx0i_3xpu|+ZmlwKV;asHBF%G z?To8WF0ZQ`$YK^t0@J$#E3I6MjdIVte|Bnq=&Wm>SvNq*V?y1iB6q20fgs&1?!*E=n@Y)yTN3hct?w za(^LiWua_lb*Xh2gJBhC#)-(|_4B-;*?q8@xJI&wOw0vpLc;8@rmSb6fFsEwtN?j& zMLl>lZb)Ae@nZBrv}v13cX%t&$(pcIbLfj>h=>*v((Z9!#cdmEjbUDv?1SK}a{3Qw zWfZoneH^DA0VNIscf0PmDAxjNP(mV=r?t7V{gH*XE8}J&tjgRH)LDn@Y6F-6lZZ4F_~l`x{Xd+5ea}~=#XDe+6a~^cg_6b^KJb={jSLKxO1{E8P5`JVUr_8x2h=| zL6RQrs50zUzSJQ{&_?SC`=n!^iNQ?fvmx(2;}5&q5Qy1_$W1=Qk~Y~B@s+aG8)X%@ z7C|K6#pK>SU(3%&P1&;=9s&h$!~DXgSN8awKP`Z)q-rnY@O=PZJY-MuRrflETrf<&*s%qfh-JgB?$1!z*G0OgNhzBkZoTr`&E7^htSbY4Ws51bX5X~T}4sR)iuUM z#O{x{0Au7PS?z+zYS+=U%A)a6&hGr&cc;2!;cWpvM~w(-%sN$V-}$YB$As>(-%4zZ zF}t^f-W}c7ushf|0_UB{OWV55d@b&0V)4lnPP4!Yb@*;R#6f+ZFo(4jJH8C;`SF?Z zongAO))BduHC+ZZ*8Ck~*bl_$XpSq@3cquZU-}#HD6Z#)MCt#bjS;SC}b$ zt?>VI_@HvipcUhKi}Wj)i>>5e&M=op(u$HeDL=|>$Itp*uy{2{m0`F0#rw9$1;`F3 z8gjjuCxeu@?225J7 zxv0j@&+y(J=RMMrad~o~{VPx8fe@CWTbk-%z^oqxI-@|p!|-jgJZ;SHax*)b&Jw9D7G^h{D_jcYYG0{+Q?NmS9dpPh z`{k9YA+tbGW8DPe2G!L&iBKaud&~NzOUrdiTGJWZ!0#tHFvUq+Uedfyyr!w3D^Fk6 zCOxfAKoHDKL^J?>rx(;#?ce%8)?|TSZ+UJoP>M2~d<09^vz0B0Y2Oja!q+ZJq|oiC zSxt(~AwFqV5doyJUQBR#aA`yoJ&YE-pcCM-Y#qB7=6xsMhhk<6fx?@D}rQn z(8juGZ1B5!m22t%KRgd{L@pc8$gc@0)7aBSfYMomxx4b&%e1ArMTZA4@6QIm?p@`xuwDx_6lf9i+#&VAIu-{U` zvNfS%nx>{HGi+f2_k78%!7usQZ( zMJr#zBi|PGSMS=Wx{wfu{%mMyHq!Xr8*#2h+=LIwo07@oVHPWMGFQ7M0FFE#K+kQN z_q6h4l?$cBZnsYau4UoI;ADVN3b%*D61G^g%?PrRHg#1%%US%d9GZ9%#>e{PO%RFkD zCx^RtaZ{gJ*eD!mfc64WnFwF5A2;5-W(v?+&Z30v^7V_wF+ zQ;XsgfVh@lAbAl0e1gnNDO!AKASr#e3BwN=d0_Q8KuM#sN)SKf;h!?Gw;4Lan1#;d^ce$My z(&BZUXsuhE=|KK;2ldT~Rx5Qthp!W&2sigeI-QZ?$MF&tgtJyx#oasve!ZP^#S=QZ zh6i==UwcJ0KUA6crVMhUFFQgGpLpQjQZ$FLT;V+$+<$-`ct-847GeRz!>4 zH4z?<^}Q=;Cp8gh^C$yo$%lx~=^y)$(2l3Ow_}mOyx`DVLFfy++2<&j5p`>mZh}dZ zlX0_EaNj8hOsBnZc$_w6wy~dBG(KM$&yu{9s4{GHGD{)e=W0NFn_K#w5ZT8^jfc`~ zOvi;f6Zh@f1|62y;%-08vr|?N;bj(JHwy~t*UFJYt2l$+eml%ll0?K4jiIS9iV6N% z-4GD4`U=|jcwh1Dh-*)ugn)LxnXA5XrV3ji4FiC;}Nx{FGhBcDwdE^Xcaf;{eeg@g2+Z)>tndB54= z8#n05`_!9a+SodcJb6x(=T31=+b)eXEG@LXgVV`jWr?5NS6gu5$-|=y1_VQ$-m*+> zolAc=Aye+k+4(K|1o=&IQ5>mTNV(!8J8kOE0QEE^(ka%t0PCZ)W2>dqa!NH8>suCi zKyYln9Fl;zk-l^LM}v`)x`w@%A>_ywE!`{koOPzeKYvdjBd-NI6a7s8I1@q> zL#$|#(af^U0zevap0z<}C`f@4_8fjPMkI3B4E6S`IuJ|6W3^KyKj}yz0f)EFP7=Xv zZIHbq_Os7e4y)&oIpkp-vUr`%{%PaM1{LxohEGH>V6p1#ALPQZ7<(qsR_68M+&WCuVjw6cfyd}8Qr90;D}koyLMPmOD+Df_CUsB#i2Et7?; z8`Q?2Mi>A@BYAo8J9Pb zynGDsA!QQc@k4&aMb<@K{Y12r;ZYs^RD(ySt~jh+52+B2^AaG@= z`pbDGO){B7E8|OA2|@smP8}A%J##W`tNNTd*0w~uSeTOrjdzdV3ycLcrdd*OPfV(u zWUPxz!fIESQbFO+(NAPaYv4*o#NA}wnD8FTQ{1A~jY=ULs;8l8K4^Sg?efKPvjSCl z_~&A(+}_pdW}t|?t=0FH?H#J@wT-a|**>s_2MhhAVZD-v9bflhbk(vUC9l7oi~ZOhg-~jAAYTbg-D?Kp`3Ha-LZv4{WbwY$EI=E z$OcJ4Th@A)NlHt@F8@5z&9_vENlOX(mS-jD4`h)`Mn2t_dOEjb3+js;>iv|H<}oox zoRda0ZoitkcGk=~F3&_10B3x!-3i|fbm%c?iQ0GO1SQS6vJWEl>lgLtW zXE8s&aDr0degF58tCIGc&ckPiI%y>DOq9VL$JfQ@M?RJ1X-P^Jex#w6eAVqX>qH>M z2TNbup!Y5@Ad$V5!2I9+m#<&jSrY-no2PYzlc zQ3tvfwL2SA-pJPR6PN>A?WGQ0?4T{uR)@UE8cV9hsP8bDZzLfP8kqso0bBQ@d3i9j zl|Z`Xet^rTkrKXqStmCx+;`Y+EK_{9&3c*qgc(DaZm=g3USkZih8AFjav@TMv!&oI zw}{p4>wCFiobr(xM}(RLGSD^&ZM%8qdWkgMwn0jSSQxo zKxj*1uYHzFrq9e3+ZXC<(EyZy#-3t{9%ahj*=m<~IjySkE@q0a`p%8O?*P{Sq}<2~ z5X|rZz3r<4D43oU)^AssGE2;8UB@t}Jl+-{_iGU4ZiG5qEq@!Gds&MPowyA32s~)L zl)w~anI`6xkUzh_T#6JKwqCN;Jb8Wm;u}NZ?q~f8z4hD3Y5g6o%+QJ8&zHr(Z=BXQ ztpyZhwHX>r<2+F#u2A@Bn*8KqLNb9Z`@?f#x2^9iq4u-bC+%f!Xn%S~`U+4=5QMzj zB4V+-bA@RlS?mY^+(9 zkkVN7S_MAIAiP7|jqtT;G_NGB$SV8F!e3sv{!ai*D}Q;&Cp-9+9))tGpU}ix9)B~g zEPW5OIUV|Z>~cJQnflX$_K5izrF*@~v*t(k)V_Q{H;`?pE*~rCKsyZ%13kdt(G2h+ z!s??Xi>^vuA2oZ$!$4%l(hGWxfSwf8yRMZLCLCJtafOD{{BUu$-IfBndF78%1H zr#z{Y%TG?T{?vO6*;G&oi7U#EocJTfNk-aCM-YNKc9j%y>}qkWVX}eUginm@Q`clc-3+l2i@ySo1Mi*+l(&Jhla6UM;6`~?@?4D}!wc7n zz?PG2+Gwn+P0_%AT3EiepV0o;9Y5PTm@E>~)$Fs|@8U%u^OxW!f{0Qi3JGVi-j%;} z_`*ZIeTl`FZ+=l-a=nwicbghlqv;4~aD&fyU4U%N_L=&}2(%t7u5kL5ZGfs@U%tmv z#EmT{Gdw&1E&L$W=&R(P-Sx2KQy+yW7mb`q)Bw7~oSfw`mC;A?zM(OMUalnKlZYH} zW0OvdC<0}CWpUurGZM-@?GQBmp~yBe3`eY|G$p<8++(Zm6NE})IpyAXcg24a<|NMz z35hCQWpC>~Tp!(vA9H!0QH$@_KOdqX@XJqTIp8zC4rk4etqRS499Tr(SfZ|06F*Mn z;*Quo+iEntJ0vKk5!_JWnT^a9>rPlLEdg)HM!|%{`3C#N<|W zJ`D`qTHhLO%2+&2-?aJN6@>{DiYF~f+dpTQ-;h~)4GN#a^u!N5QQz8i>xv$KRs!D+ z<-awIVoK+SQJFmUiu-AEmi=OL=tBWST*gY*oeQlAXz$NlVMpeFvuZ6)2=iK^A~&Jv zp=Odf{MDUj38H0k{~4T{>JSQA@kEYcK6k8Q4;v$dIR^9vo|sqU#gFweUBhW^o-fDQ$9OWF1mlD@Tve z(QMv5=3ytZ4Mz_hHp!DU4(8^Tcz#Z_I^>?QQ%^dW&X39= zxXbma8)SmRE_Y+6zx${SV0EuFNj|*1Uk>tf+4UZl&Q@GJZ^egB)T4AM?|*;0A|N_q z>C)+IaX5>u1`j~I2ZC;$+ko8o^ukS3M~_4Gs^2%NwEv8*v{O?zaIC@pkub7^jbg5a zu;rkck-My~UFOamxay2Z35B(`E}wu2_PYl7*(}C)hMHUSGwjb(1m3gO+mFs(ykVsB zR@tpN=rJKOT{Iou8C^Mw6kX~w40hmt)ivL_uvYNQb^o9i?Bmzw-4{dBeMZ9jo8%JO zTjtP+*=pFD#g-3`10OuT0?+R4MbhF6wHP#gqgN-z6Lkf_m6Pu}WoknhDL*Z8`D|i! z%r?WzS7Cqacxz-}{ag5%x&@jo$35VGzBt{vl`({697=c&8Nbyy3C6%L#2R_S3Yrn~ zWoZX(2OE_P6D>{Ad*7M7XO?vEK9o}uG!wjacHoqqjEf9&tLySy3TNj%jq}iU;XMh{ zd>4bSVZ1ENx0#MRfd@xmdyu7@n&O_($2vz!fDHI{ON-gYO8IeGL@*S=m6||)9O>EC zlK_Q8=qHXNoWJS8%3#Y_DH2WtT{e1^`9LAjZhk0hwUgcJu}diOc{e{fIDza=6_K)c zxx-F=UZ{l`&K}5908z+OZ;eK>`wXebDI7OK@>Kpz26=p7YNxfBYSQ-zk%)q?9!UkS z^*u0`I&l@Gxwo?4m#PuBo7YesGysj?aZ-j|Oyn@!&G1QW7@q%1`#6ol9`_hi`Qm4( zm%0H76bKfHB@a4%;V-IT@QJwo$TAEo+)L2FeV6=og9A_wifG6f%jo9MpZ%l5dCwl{ zJHP+#tIh1JQ|v8yFo^s3k(x$U==G~#V+*(<2WIQpD7xK8$|9QkkcY7o+dViEC?!Fo zqtD+wZ;qT5AH=O?HZ}Geu;C`}tce6L2=K$M_)=c&hKdhX>;Q*JNo00f$qIRfcc3!#KfK9Pq3jPl6?g3ih*llLaN=9iuVJba|mbtyt~ zsAgnS8fh$RNrOGz$_731zjTt@lQKnWP%k1f1!9ud&;UJy%wJ(ku}*(`v>P!%NFN}W zWE0V5BQAg}1PL)vf09H70DytYOGdV{FOoGumERtc$lUp=VB{~~163Gt>4Pht+rxU| zX2mYj9_v;Twel`X0#XRuN_3ojJAX;TCahMw#y+kdR!2XG$(<#U|uo z*ymH6pS9kF!Yt%ikg$Ou93QA^mEDaN9|nEdlG{|OOsJU(9ZoukSzBRfuNNya1YH>7 zZOO$?Kr^;CLdydscndD2gVCJpCOfMzUO zlov=DCfTVdQ)11rI@drM9~c53jB=oH`{M=elwjI1NrW6oVhdaSn6e;C2fn9m`C80p zRltfAS5A9p<*TEv?J}UFJ2Pn*aUv6)Xqq=Du>%H>!pcuzDc!OLXe#0vHZx&1eFrmXP5o2@aPh?6%m}I%QZ{4sKoVv-pZWqjRdpwt1P~ZSAPZXrBQs!zQ ze(_mNn8~A8J?RM9UYvHjmYhkCr9(>na=9=*uYJ)WqOiS{$0z3E@%>rt6cL?WSGVRR z%3J-0kMuz?{5bl2c5Mw~jUotnxl>y;h$wV`8o7~5yqP}~1|{m9RZ5NzKS|hl(V*Fy z3MyVw3qj7@gZ5s$XeUdbZ}_f7>1veIhDYRc=B2X-zQbKw$i3LAFCN}ScHVk_TrC+) z+amg)yqvb^`#?`KPsIufU;ksOYmVI?zU=kLi0vhLFM)TvMXKYy`JRix%2__n$GUXq zOR~_R-`|~uPiFgsbe0crzXga?u#=M^?JK@ZE32jB6#66vx7Z*V&pTSWQg54so|v(3O`czzALtO+ zb#~n6I~3398V&)L;}A_O>1iU^Z9 zt+u_r0Ozl0wC*6(@0B(5$|p&;9*ba9C4PoDB!0i?Bya!<_Sp zSH+RWge>1%>GY|Ro}*KUQDKhz4si*%<8&usEREt9rJE234ZVkbT@0J`)RHqYM>WJ{ zpY!d7`rPL8GM=mQvv|}51#ZN;e$0RG3Nw|bj(TJ;-MD{F;&cx|=>eFw!} z7ee<47|Z zw~GQk>FlbKX@sHEW@{Pa2QOwB$~Lmb$dhzHJBE0qa z`7BZasl8W3H%9CGB>RO2kJ}ta40fyBM?47YGueGUQwm<c!n4oq)X2_`_dCaK zlU1*ax$Gs&%uM4ocI*v476PHhxVQUp4bA^ilK8&K>+hohyVV?#r!tI;fl01(XF5Oh z+ipYikX{A7x88S(6a7)~)efx%kN`W1&WhELSU4AdQ+L4fgZ3tLFNE8%LU)L&>0HEU z-$33Nwk>*j(a#eslX2*$|B2>7P3N+F$3a^k+IwkxrDAa! zlKQ1o6OWX_qK}`J7L~PLJackY`g8Wibz*|YJd4tFJ9xpM=0-4^HFazMAnd93<~^{9 z!i`!IQcL8a&M$ga@|Wxl2HWpW0mu(Kj4P5_w8|F-)b+TSDAd7+8*4n86y9nJMmYMn zqmYdyK%qUM3BRRIL|QQYkp7~lxf0utVRU79#+)BJaH7CXWdir{NeXTj)a)ozldSaY zzkCjnw6QrG=Ceentqrhq@!WOH&x+FILyp*ZZvaYSC0F&K%dX07mXrZ2J9efJO5J3w?&2pmowZZmp^z?yyILlR-xsUk3h?}Iaytk z-0*GNfI5_u&-tS5u+;wIa31Ds5!6BGbOpNO5g}A<-;porJGx-~R?<~#aor+D#Prmz zoKvN1cEU5}KB2RD^DQ{nf@W8JF&H1K#*_ul9C_RJ4T0-d+P<*{iDB*zM{e zfF4tzObLrJhJJ2To=9IxbQ_zR+u^1;U4o(rPL)T^pw`C`8hzZTe&+e zoD^u$MOy1=TN)u6z+x_^fp{2&Ged#6OV_tbXl!csiOfG6T@PH61hN!=4wE&H$CKHF zl1ucd(Eb7_GL7=XWk(IK?I{m>(p3MxDwjL(J-9f}NHSgtDMbUx&NL0u3;D%--!eA( zeAd!4h%y5DZ#bs};T=Wo>sssPHOLbTeo}n{d+`AG@xEkqen-c+dZaxcloI<}I;K=t z0e9<$Y{!caHfQ~@>A~C_`!J!U&K6-Pi561WX76#u-zW4S5~>4`rgUKvV~Ob(Ia?T7 zCa1T3|Il(#q>QQaDE3}qt+_Xx8f$*BDMM{~%HX}Bh?hIi=I|mm%2X4CJ|hJ;=!O=#n`M_1@54nD=r4qG4*f^&pszf(*(u^pG}%Zd%R?t1qo*1VF% z+);=pu8_HN4gkS@lGpZH>p(?h2!_vOMv9mjggRE&U6qRLLk?TKit zw4Z4ny0vx9sh8t71AP{rH!XTr1Mz-dAL~EB5IS(i>Efy#1(nRyhmL@9Suoa7{(jq# zKX#Whb;lZfNP4hr^k(c{Y8ou%1+@{kUmLezP}xXXuQg<>@V|#mxJ1$*y3;FT9-gP* z`@RNp@~y+Y`an(g_>P@J!JJ6@17@VnP(GpI z|8R8e@l5ak|9eU^43oRaT%vocMh=M~5kt8ZF)OFcT+eaoxGgrfuA~dfCB>M_R4zsA zn2I`ej;xs`*2+02W~SOqo9**^_w$!O>|y)t^Lf8sujlJ|nahfOmcf(}=ca*qYzHrs zppE%d;>5YPBpK~6#F+jD8rehQdmG04!i_s>>5oDdcO<4udNW`AlqqybuZ$E!N(^)H z<_s?qVXJ@A+QN0Oj=_bW!c5(~7QhQ3{NTi3?=uiJiM_fex-N=t&4jXYf6G75UgY9c zV{xhP(Jl2K?>65vi8am)c-aYXIj=*a`RQG9NMbC3^8A09*XNjr%K6JJsx$nKy3C~Y zadywtEXD{hl~{AiU~ug9~K0Y?#LkWsrN$2nA=O3bFT}d4X;*&LLF$0O;a> zw7Sf0CSV7m`Uh|AK2L5}waoPLa#E%Dv5uWWJlJoo0l+6iH}I%?)|>520K`cqxX}ux zY$b6g9|q``2pW8kbW7)5l_Eg7*OJ7q?3fS*vj za;Lt117QS*#hb!+)$%Jdj+W_q$%4X1>0k6L`6Q^ZsRnu{A6wWVYyyjeg&=G{>W}4K zf}?$Kl)5sTER(hE-|kp3mM*@x$RiQU|G+-=N~SCN@Tb%1@6kntG?*sR(P?rBhRog7 zg|I`GT&7p&PPK-a-GA@Yv_1jks$vU4$;R=I~sOdUlHmh zvi;=RlTFoW%dIegtO8EmVRlfh382@p{mWCR-V*BBILwcAU()*bUQzT5CvUcv#+PbY zzHn-KrI}g(#LskRP*2>HMAvvHxUa3lwMIa9rSTkS4A4y_l`tI{F$(@yEwXQ zB4YTwMpJn6sJ%SPYRub`-NjI4oU}Dvi@fboU~@jk${M|=C?y_Aiqw_!e>q-ecjA|y zhCrg{#aDX^@~VfiG6X<|CuQCUU6bug^&InrW8QAfjSDVBK5Ew% zb*dB?hAYWR@==@BYMbPp-gl@w)_QQ9y2HVOdqdaZsm`m~!9{f)HFv@l?YZc>95NKB z%>Cz?+i!@^R;YpvM*2|*>o8eaIikwAUZUItED0qHdAo9EYxOrE>VxdVA0Ll*u1I)Y z{uWsQr+%v+>#)}IYTg|NFTM<*7~d`^q{quKhf04! zuq^jJKdqDFanu~yjr(pj^}s2vrsoc97+e3@Zn!^6J5MZ(9Y7{r?|4EeAtXpMUhXQC>WTd&d(h|8iUNW?WQ<}(>`(C}4SaI=M zmANOHrL#nDS)f_~-nZC(5<8w)aY;Qg?hrpxu6hK8Llvg6&q37ZvP(LIUp^yLbeU>f zf(MhJ8v%I<8iIIfbQUxH!S1s8 z83wm<^2C0qrYBIrPV%20?vGb3ah)}C{#jDim)|#N$pJ|Br@9}F%w#@F>wLXlJK=9m zf_*kIGowP=_54Xo_t9%`hb}7`aoKG7&1M31a*ronx4&Pcc?=Tdd64;SyCf<|o;tmS z%FI;63OQ3ap%yVx8#Szj0G7?5PCoN;td7NgO+prwJr6L!Uds>e1X4n;;*3(ynA=Wi zb)PXe+P8%_X0?Au8w+HBRZXJjRxXT)nf$qI#A+w2l@JC>*yYX0)aOsP1=8vPPxOA1 z;k`-s7svqfQtGjU(kwu6aVEH`>-_o09hX4Q$di-ZPh#)cbO#JtwtwGUwO_^UkBr2N z+VUW z0^8-i_=xsht9a5db2i^cth%{0l{AnXiC1ybIIh_-tWc0`O6*?PK_@uHd6D7H8oZf0 z#+2>aP8C=$Na%@yp6or+fhAV zJuQVQj>@ZLKlhPUBG;5w5{;Ien0OI{dE1$^2Jp!BKj;ICPx6?wncC*k5bJFUXqhA8 zPi+wehlpG}1cgOLV754aG9NacnP5Nn-s_M*GNVtXY_V0gPwv$C7SH60qw@ZK!L#h? zxlT0*I=McDg8M1ekm4Jt=$>-J#|y%^;{hKLyPqX)AD%pR!RbRO zvSbC7nCE){`bGw>ma6{Kzk`G_-e-Uh;Vz=al2~Uf;piXHufIJIrSijDE-PJ_{gbCJ zu*KbB94CV9R1*hiv!`6D(;m)kny$1wykP&`v&tw3JY{w_=m9N z1*6tj1nTuq=lZQ4)~9&c4r@%!lRMrCKw zM>D4NM~d-jb+YKss1M@-X1dtI0MP|5Gi+9n;i{cY6VB}{mdanM$)PNx)B1`bvNCNP z+}6JHvC^%gOb#@x!}3iv1B2W7XZhOTA%?x(v|2BtFw*ACdiLI`f(e}caq zZ)B@qd$(uPT3kk*?M>OLYfcl%S03|j*V^pWCatOvQ%%R)7IYaQr>DS{t8P1%tGYiE ziF(zhd6uJev&j8D!RyxItRJM3{?is;V!GxGue~^%p}_n1Isg0c7>dn~J0R|6aF2(W zA%S1!uk45$%HGCM%dd_ZdRpE&XJCF*hc#x14}T$19Q8kaC~7Z{#9M-Fb|s^%@ON|K zSTvWbqwiJxr#sJO1vM_s`l70M5%hDI@!qnJ5F7vdzM|u59Z0OeDSjmlr@+tu@_nO& zx|b{5jvA1suQ^H5J(}`n|0Acff$TIXTQ*|J@!kC5C!ce(=h7aL7%v77Z?8<`)z3NQ zf{6JW#oH;j{0r-6H$`Q(Y&~A-<@r5UFTiZlPJgLX$GmW3=?JI5S1IgJA--&BV?L5Q{ST|1+5Ig9%#AUBRN8@#$OY>1o%Fhk9Z(bS zX}Na19Pd_Phg%HPsN#^9R;@Zrg0Np&<=^h_@Hy8+(1+uBzdCiX-kWY?>EbZl&YCuS zuCSQP7mAc(>D%jc^6O+EdB_dLYY31u>oUI*bb;a8*F|fz^E?2phfUyTO)S0L_BPZ( zvxQC@^#Zr()bexh=rlDwAYmDF#g0ZIUHsai`Lir(UGgLD1rL==W~r9FwJjnE0q&o$a(N=s^Rz?OI8U z7Ynid0ISIN_8CT_# z1Qs`Kti>83->MU1CnzNrxMhev z2d~SZ5qUcu`Whk3ofgutxzGtW$)Jimr7;~n9I|NUgT8Ho5_B(7Y%Cw_b07OMk}PdU zLy^ysacdX*Vf1HjYVOzh~5}x2Qkw>*Dh>gz`QJEoM$kF;{uM%4|HuoiLS;rz?vL zFQeT*6&W%}??$k-4^DxG!s6w7+HadAZV=2RuOc^j0Q;+ZW&`>mNy_#^GXcsXU7i@f z_rnGqZXS#yG##{XvH9c2aBb~eKR&N?={9#$0rf|PX-B7YAYIB>6fWP)lqI0AB^9p3 zp#ixF29N>#yz77Nt+Y;Qij36Qja{1r0yh7@y%TF=or<0vgx#bazOQEzancG%#lKp- z9J9Wy^o&3hS-}ng{NS3CmC;jg`kl+ODb+}po~5FQ>UE;!-t|qKdd|+fM0)?hp62$a zTam0C*DG8?Eat3sT>GTK=~++Dd)a_@F~kl!G~)!raI>3Qi znmxq`K=?^<$7-*GPa*0?nfq%B@B#r)1$9=#=xUj;ezsTs?ZJ&Gq}Abdo7eqGwe^OV z4F$s;8sSba4_RNS=w1K1W9rR*`5ZkqV&~qVdmpJ*g+Y(3U!|FIvDEmQPORRcxZCIyftuj`zK}ULKHbvqL5~&6>cfdY?iCd` zwPsOgx0PLq^`l^i*Qr^c;;WnlJ=MU?=MiC7I}hgL{qBp-x$`xJif;JDOgmToCv|8* zeNGWgDPPG{w)FWz@MYVNtW#2VoBL(zf0?n^UMh~0sU_c;=2`aP2 zJw0DQhTe5~n^}FEuljJZYuGmDR^ntWK2v?o{6^ zed5r=X=X&wd35t!A%nWQ4=>k(9B|Wg;xr_hRxzg|Iwy`Bp6Wdf|I4Pzsd0^I;r?IN z7{GqQSY`lkHJhwWDJcY4ZA}zkZnoU2a;uU;gA-rFo@|63ZcJ|DsYIeV+G3r;En>Ro z`g=eW$iE*{b)<67ukd3YZ|&$5tpdaz?A43?MFv}SH6Cw<2J)11jGSC0hk+-(D3vhx z4tI&tAw~~W)gHcJTN&U)`f-}w2h?_!_A2_GhJI>6wKr%X30hb>zd3+i@nuuayCU$?CGu}%KIgO>Q`|iu=5*cy4*qSJI|V)% zGj(&%rdyxUoou+5w??IL2)81mWF(+8$~Y}Lx|5YwlME?!RbrK~jrpfSj_-MB9}wgZ zOwUxyvxxK&3o2%%$!T)fKtDj>1WJTG0bLU3bts^}VK@8U20)a$n0r9+1U0pYQMySX z5%jk5m6fH6nNbVj6JDqFg36YNd5(-TAz;P`FhhqBQ_nih6i{TcUkto6;(=t4it)Lo zqFX#+)L9bw>KX`|Oja-zOsM_In_&%y1c*?7Ih5mVYA~-kfX$c z2M{Asqu}Ch#iEByNuH%%54G@v6pDU9UAxP|>afOq@q*bAVBDp)Y`l`PaNa4}#O`wC zl}sf~4lQhV^m5Il0XqU&-WeFA;4lBp#SY9h-3l8Ij6(_T_a$fgiO>`^P&plFBT8Pk z@KSO1KqB-t9GdSH%4rLKe|97%cU~{N@(GNiu(>9VQ*0;lmkqGx&P;h5d1*3BwE-Ic zM%t&C=8;L6DSw9(LY)YN!pqKdgxyWr|6>q}AxIhV)x5|O{NgzHP%B_U0S$0NrXmT2 z*x{3vbOcJ22-Eks(%UdGg(vR69{Nvn+3T5>mt7V@CT*IR(Yv=!5oSiqc(w+y+jk0E zxEG{O4*}G@K=*92EVOx*`&iV?0XZKeh5(q%aa;)W>G#1%0$8YVqfG*Kz=3-G)1YyN zMFgM#PjJ-DQ+WU<2V5Drn_N4F6+`i`nS1TcWwmyQncYwtvp1|-Lr|z-!2%>eq@ZWf zQb&{K82x(z>Kf>({C`p9c?p|DZ^*E=nHlb0xF7PaZu>@77H=x8*U&)NWrnbWU(Uas z2Jq|&j$34+qet9iI$|5aBjG5F0#d@>nX9q=?~QFVjtVaG)IRTJ@?r9mr$(OwhXJn` zG~)qt8xpQbU!y*z2AEnA)}CL79qtwCA88VYB$ujJT&(aUr>UQ(eYnC8#(X1<>F>yUrlnMtq{qg*F7ZUJ?5t6N zsA{LUTV1|9`{XRz;jt)}L1F5W^k`x8I^-gZC$iFD13JKi#xx9z(azn_9rbt*jarM|*}fRDDERyA|KudtRtSbu5^t zV5_=GdpvY_S)=@;_93mH$A#PVL^=i%K80i@uNV7=KfHL2v z_1aF?zug>qA;2fgR%D!KjO}5nMil)~=`Yue2JKQLc0eyU?!B*;R$cnBR3<)D5UQmt zN0lNRG^hnScRH%u(&`j+$u>ppmd%;*9@(9Ni|5PIOgyK9vIy>Mb&uNA^5;DaGuF)rM-XpCA9MJe6MaXPbiJ&6|s052svnC`fEL#oqL-{ z%XXfy0tV0~?h}##0oB58Xto=6%-&@ z+6Q{etqZh^fM8Z45nc%cja(d7L6&v2-m8IB{R|Q*zNKl1PO}^_K&C8LFO7cKdPGle z@M~&pdr=DwR@>7u2hnJ9@Um4)WxFhwj9>WsQ#xZji-|a@V-e~Q{bT5Jd=8ae=JaK@ z%EDw^W%B44xRbs$78zI7Co9vT#{L)Lsj%^)Cs^=5KwCgdQ`nrV3aUkxG!6~JU0vNm zq>NCWh#bL%AX!Zy3nUCeA^&E}=m`#&N?ZlbQESzf{-1B@^|C!r9^M0S8DE4-K{69k z0XA%4;Of?4ErJWYz}(z%i-Md*fLGlK0E0XK3#4K;ILScgiWfpz^o+_dr=ojEc;q`n z7UKHSUrAwHX+0tP8y13I{0ur>no!xrR7s2ah&&z@5JS-cj+De;)(@i>69#AZq4G>F z2G!xQ8*e44R zcKX_wS`%#flRYFw5VyO3u?1WL3h;1>=L(wisy7x@XC|Zu6blM}h~M=#G^P=k6q>+(TkL(G+v*v+_B@-R=vqb-C8W%YA~Fr@F;H%M*o*}skiHR znE%7;nyqCa8k6xR*gvz9H`{rT~AaQg{k zU7WMs{+oVX1?|kH3}ops`W+DE85vaIHzR6S*IAK%xDM0L$+zZ=z06(`$ma=?{LOtM zuZmy(R$L5)O4W>Gtu~m}2YVedMXZ1PZvUkcWRiJ)a;8uuP;1)0v)MC>fMM%c&ezTD zEIXpk1<`8}-u?@wn+i1w2eP}^{%>Q?{kIlKJhep4SbR>|Qt1g4MI_V&UMFG&?#Ofk zl7RGb&|s*LVIRhTY;R*-Jo6YfMIyrd^?dI?v8e$RjGCJEeiZ9DeE@YYGFK}5I@TV{ zbr~n;wKklzIUjcj{>lU_N7()tM7dhc*Y%@4vtrJwJ#WD|YJa}<==T{tpA8y>@`k_u z>-)sngwF``utb<3>+K7S=!Nx*tW5-p#y$O*7rLFx!=+A)k@Pq%0o zgY-DN@y_-Ko*ZW6^Va*q;WQ{kp*&D}+<@$LktAu|s^*Mt4ZB^r?DfF*mzhrDaB*e^ zg@bXBN<;bgvBgl)d|%JTIa(&pq4;0zJwHdl;GRJ-_l|tNjnVJcT$-MWltw7WdwGb< z_A;xG95i`iV*n$F{dTj*m`dY|j@2@6lNohxUq23b5)6c~GXV{ZO)j#Ofg@$m{i^N$ zitZHQ${~&2(xl!BRHZfIr;z_QfSYAm{Mj~uCR>ijB`ehT|uah z7#n;TJt-$Re>eKNUj!ujWtl|TGZ~LWBJ<^>7F#H8J}QU+aTcM#)h#ns4{S}rg4xqO z|Hp%%W^IC<+>By>&M(3TEsGUV;h_|%6%_}LFSf8t0r{_5E)4+-6vW>}_x_t_zSx|v z1rP7yWFX4Fo_)98N$HyAnkP!_Ob=*x=$#jR0t(rG);~e9`}@UAIbO`g3!})9QVu3D8;Z;X#e|e`JJ_I-kO-q!Bdk*O{IGK} znlH3URt#lJ1IbHFh|JF-kV7UEZiL{F1uJ??etjx1gUGL+V`~QyU|}!$zQrUSj}Pf) z$&SK|0qgLMA)sabvwg3NXcyE?#uXW1z|?t4&5Aa#x<~;gW*gdF9irTz1u6}nr8OvW z5U=WYrG|!P{}-id`LxVF|A=s&TC=dDZO_Z|Nzs}4*SZH)rsjbVzfX1VZbwfo1vHbz~A8GtWfS+Ijq({}X(mJ+JQy4JsBc-&qGOwnF&O-st&ly;xSr z+|&T(2U4l0*XOrfN8*t`%<#S!n&E|VI~ROESR|(petSq+VjcO4`tW2=P~lzw1d@dN zz%!5eYRt_r$L$q4Z_Yyp2t^~)XAtd`*#@i^KjfB?e$dhYv~WNw783VGrgbU?KV7sp zLB;JS0@-F8Uiq$jPEO7OUa8CUR&9?-!1F_(QoAY%5syk@3M2ibjDD$vIgqU}CbBcZ zqJ|BOc3?QPVNGPt&A(ZXW_oJC?qFhK{$s7vJj=h)Wd-?$G(PMRABO;>d;JKrx3hnd3Fbjo^KVlb~djh1uetd`o(sl*{U0bH!{i!%xbO&)HgqgpM%Zp2&o$u&o5E9zy7I) z%rMS%sLTrIe;s|eZUrSChkGvG6urPi>HkuebW38akTc08vM~ZUZkAm#mKL|Tbt|Bu ztM#z~#OL~bph4;<;lLf+V1b1nBrn*m?(<|n_IU{xtkDi;stWMQ+%kDlt1eTN9X-+U zOF7?kcLn7W!L8!#o{mxax6HgA zeT2bnH?O->cCL0DRZFj2rsT6!rX7g3I+b+S22DyoyK4m)itqZ-7p{ErRdv;o$Z>dn z`wD^FE(3%iuMS8k5hXpB-jDF#MIKQuldgw{aQ8LFKW6(Vg?zb;VuL*kC2m#q@^j~; zhc9N&E#ExeDAE4y7(RwOQ}f+c2KWvN6&EvrY1>J!i{D2ZZhfKMd3AM1b{Obzvv~Y0 zI$1tf5Z}qN9yq%qB`;ogBGJy&%uz9Hmi1Ai@uKzow`I>ZX}q6L34CJTN~WdN)Jw;b z7}|3ysE-E0hM`=4mPSO&JQv;FI0X=t;Lgq=*oe8;0Zvo(5hz^a)sE%XsDDbj&j8Vw z85VZS5XmF#LCr2sYzL3idMRHDP^VX7k{^fA$?_dW*lRn*P~hHAy$AM@=vmV|T7pBF z=fFi|3INV3fkP7Z>N%`W|N4v?BWPrb@dSSh-WpU2W|nAGCQ2JdB=KQ#V#(SYC^QrpD@hCUCej zDXnJrH&kpoV&@G(@Vdc(&vmi3NA{Vbk>{9@>fMU$q@?@?wcKzka-~ zmT;Qzm)_DJCv2|@GfFz&Y}Vd+3s$pJ{@EedLD|703gN|H;}A#=DfC{;lvf>)zwQt? zYmBEca(fSV6f-)9-Bm5LCSGZ43C;=*jnP_03OJv?U%%U(0bM57iR&2O2O`+fi+{bf zHoa+4K5A{D<`ts9Zmt9Oo|^NB0_aJuxy}JxB}plJUr2)ap~m?nf@M%so4+2gKM48|+a1N=9{FHJ=6)lDm|HgT2c2e?rj!=U3X#bVHk9q>Twt zsvAOZVv@Dj7FF6+If0DxK=G+lU_1q`xQh7yBAx5RPzFPhTfMVODhKLTw@hSe%TvTwgK>|FyXN=T#=U?maA zl+l)LR1-V>ZckCG+eQ}U zp`^Sz@+umyVrnR~Lqi<3+j-CgAd&Kw(e%ym%l?c|R)K}WmJ|8%- zg$&al%hF~&gG@Sv5%Ysv>-d?(^Fg3O|C)40q8Y9MMu z0pMJkn*>-i6JVVLS6K9t^>5GXl<5Uxm1VB%s{ZF2(S>J_3NqtsjTWBw zeuugzI4+9NsE612DFnjksUfPD;5ijd3E*ad`c-74_zY$kEiu#!XowHp`aS!T`?C-+ zJ+*@R(Ypc+@agTO9*eo&I5-HkF(G^sh*)6?6Jk1f#MS{G*cF$QTtME!hrH=l=H`jG z^Zc`+VcJ1xAZCTtr}LtDZqCDQIL*CHcU({q8Nl^VOAkp6*n23+cGB~uz+ z==}RnO>mOo@Gg^M;BBm+%Lr;{_Io=c6P)^H568}vRR$>m2;?sxeq8RIeQ_=xJ2MP^ zMa|=$9n{l9KHdBzA6u~Fh<9etePm7e>bY|vAHG%_7r@LbAFq9R#>>Y5nN40_wN!n4 zP3YIDBUM4@iY_1V_ca${yMiAcNqgVk9yak&VzS8wnQhtl&%^OY=tkCnL*R+lJ226J zrgVbhU{3k$<=9d$%AM|r-TK-)T_>MvLEB+_*ZO%_;bHHKxT|{x}B) z+MURZ8g!JH#O@C9xP9Ittn;=5;*wg5`Q=Hk`+quwmOajDWJ^iTcVRi6^*_4@|1o5~ zrAiI^Gu0%39eLG)>g~F|2W+fozP|D^Fm!mIDP?ap@p8Ka)1aFTM3?GT6qUM`TjztD zrK>tCskYepFfsb39z{rIzYOYS`M@aGxX_kVlp{WJb)Kh{OYkET{n1BJ3JT@;8j^dDe^Ec z{%Wb_mc~X@V>TdAb52CSS>hXJlXAnA!BINMBKMjY0dFM7+MwVN^3s0_{B z{0`1g4Yo`lvA41;o>AtE`j&lKyIJQna?C_+yM7>Uroi_5=D0dcR5NynYMB8(+|x|K z6{woU6|LI!^k%f&NN87MC2!LWFjn2WwgvI?7r6Vq57-ZX0YB5FVH>RdSt30v?bcKn z#Ev2#?$IT`-Ww+LUpz@@*UKZqj26wv3E4PD*3xEB8f35U5- zt<`csIXzxFJ}6P*<#E)X)y6K_BIEVD7Crml?4;O?#-5^ySp4{g0pfXvoH+joY`10^ zs`w$*B3l`n@Fq)-j^7%GVzbCu50Ym6C>oto5ah-pGux#Z7VUZL$UsIh{~O8iY6df0 z2~CMoYP%qeX-oOv`>lqkESb*rn<<}boprQfymu}jo`81enNa3S?$L3BW}k9=Pv+=F z$!2DRyJ(rys<^hlyA@$`Mg0?Fv066I%NqfkoypEBOXK4MBOAeP+VM=fXgCqi>J4J~hcP$3TffKYp5WzA$h`~5PJiR>;R*0Cem=}m z|Myaw!vzi-VqRPKi9ffxp~4h$WQu9Kn1iYb=^`hdPZAVWXh()^DLH~m_S*hmp+pCDP#9>SVwl<^KR1jT>X^B^FW3@5e^10g^Vvi9|{lDDS2?7ycH^`Dz= z+&5#K=yK(ro0J)_$PP2EFxy1tausc??!jC9RY$}2-1El>=i^Xw7@@L$Z13JX>(B97 zfuxBRG8L(t4J^?zT5ra)HvA>JvcrE>hoMt2b(15y97$yd%K#m1ob!ohj<<0 zOLpE|gpRuhf~gFT523^^ybHal=vW+(3#THwwdvVlW1@Y&se)NAsG>QLRTE5R3X}23 zD_qHae1U&A%Q$2(u4`g~Ljd;4G(E6iNg5Xb)EWnB&K3Op-Mm&l9ukl(6-ttD`Bv&@ zyRk5nm}?$jM#I5wBJ7DkJLm-UbNdr_!7sZpIc~{9#%XeV=cgW%V}w&4px#S~lYt)A z&MLYG3BuF9ksv>yHc^NehSpJ?cVH$>Te}HiX0}#(Cw3_+OqJ(D8Eml_Vn}<;7TM42 zaUu4muGQPGlKHAr%aR9>BEv8-I6%Tu2REPNw)*)A6KvJbyVYKm^CoJ+K842(ffl44 zpTlnXw(XpugkH2VQxr1$r=SzJ7jJork~oht!LDPYaUK9;>2CE3<W)Qnd|^0lvq6nTGCRrPN%d zrbe(5P-N?Ma8HiirY5yMD+?Mg4iiz|wYS@O6zz4%{l8eWVBW;TD#19E)iX&r_!V=b z1~uAmmBa$jQO+LFkk-&%o_?&BX01=|p*On?fqT$yM)xrNuSF>*S}Og-9NieXZu8TO zdjMCO5Dx76*WztZ#+YkR?g(8a`=`UWX2K+Z15{0i2NHj2Hbf<5IQB8Z0UlAdx$B#n z1?Tkihr#gi4{f3KbcvOhXY%zMRhQG349Qx0WnwV;<)h-XhHhiPDgT3~wDE_7> zcZXPp@I80($z7YZTa?n-2C?Q*Z}?}e*%R*WuZE~>P2lnby%^T@u>%u%W}lM7YhAuM zM86izTs1dC-I{G61iG_EGz#I0wfJif9|lEdKmM1}T%lzibI{rP~`qry1=v z_bwOItgVHY*z12GglyeJ7(GO|;azDroI6DVSWl*Ij~R`@gBm-ZZJIj>eA?d~f8ZUZ zzec|##{_N?vVlixID&N|%Gzi2lczonSL)t&P9cjoID*rDLh|(1E!cfv61kD(B-AVlK zP>mn{l=2Ew8Frm9AGCLk-m?Q+P)EIE(iipYW7rz{0}YD>x`AQrN0*Xu4iFQ9M4!*Q z%~mv^yOw+B>tH7I@3!=eJleW0pUcp(&A}*;z+B!|Lq+zM1ll!YcdZ% z@Un!W6&m;|Zv9d(Az;Z8_nA6YTcwULBTr&!^7k^ggy>g3J9CB0c!gKund}j<@uz(S`eC7mLCMkhEbN$(q1-kTb-@ae; zpEXXk?eWqtDxE>5QJCYs0TWUjdi0~~K@49GDJ+sF!~h8=Ly6g~nZEn&oOZIDi+1v-ja*B0+*X<7v~+p;vG6g^*S@hkB`~O(D-TTs#J#@s z#BC?53HHE`9R}$1*4Ep1%-<->sO2qkk^yT-;-Tx=e%NjH&j~}yb&UzmZ<^!&OvYEw z_HC|?H#6T;?lcV*mSE6WWmGmiRnL%%ZS3o~6(3T*lCLHQ04@5EH(p4 zuru@b0MUH*NkjX$>fJZK&-IJUCC?W_a_Oc!yRQq`)BVf^rHszAn6E<;w9gY=h)D-G zn(z5yu-mV@H3EVZ_^-~3*V}BF(BLcS1ZQwOQD^cK*c3U%n<2K=kDW0$sC(+=m7aFJ zdw?v;enC)_zpcd63wa~@2o~_`LzQ;FndogZsp6feZ)OIvO!=VVdr!hRv+22a{$mOa26+!}PEC&$% z1=LEyX8B197FKgCmUN}_c4Au3-x2uf_~*kKyHkrCt20`g54+xD8C$jzqv}7Eq&=VZ zXaajJJqt$@9}^GO{rm2fSegb8p>IR=9tG@lGr$b>)P@-<_v|a8xU=+()y%CrDR7L< z?)y=%N}LGrPoC!FEm!YnM4oP?nkMRdA&zQBp=$_|2-bk&>Pu9uVySi`qilbVw++fO zuERdetYeEv(3W0)FY{7sArEF9B&wYlTwG+k+6^vXO*vO3Y_t&f^%N>S2So5pDP~Q z$6Y&`NsIkxM*MhZ)OPUhj9&@d>_Z`y#Y-Qa9qG4zj!Z%(s=c)z?=@ponf^VdDhVzV z$P`^Z8KZ}a{4ZWh(=XOm2UCul7}}xf>Ea$N7#6FVPW%Pz9Y2Be6Lf$fU{?x`dEI}Y zH;HxW5eJIppANeTA=}Xhg~npW+~WxAlz)z)+{fM`3E{Y(H^;n1jefZ|NpQe+vdG5E zebPR>Cv=I>Ii%;P>g|ZLsxNw`*+-xL@Z$5~&DY1mrd`rRcrJv<{e;otLdv1xXl8`f zzv(G;^{giSNO+y2hi=6cjk&p*R;nU&Q2rH}OfQ5Os*TWe@FqPU6SP(3D=mRKpZ27t zD`3cZlAuoG9_F3`nXwv-*>jiq{T-0)-qkK3Ko0Z+VDl$ibx-KK(~o*En)1S#x)SFA zcZqTd6fbPmRqhU4G)(@EnZ3Ix3TNhV5|JfVqt>W`%>-4e8Jaq*y4x|>IUR0m=d*ze z@pq?J1{RZ(mtV1QdB&=~84@6U==pi7>2Tq08dLJ#aoiZB{Eosobps3i3HAU+(j^{9 z;)DktBhorL|2~m`t|pGa41Q>2Ox#tXM_9oD-vuPG!0Qgh-=Gc)@OFEIeO?cp3290L z*qg$tvxs+F0NN_;3+xwj6^z9;OwFbqib35{Nrb6d*6THig0;k-H?ZJn{v7aFr%ysN zD(F8d_i)#^=OEjEb@|kwV=tkm6CL7d>PAA$GHGV1yms}wEbge0B11apKIsqGADY@9;s-Q#nsMZLr) zFU}7&w~8hKLkw)|5@`PzVdu&TRLZdhpB+UkAwEnp0);zmQ*6O;QUjmH-qlNUnhd!C z%~b-fy-Tz%5Xz|-CINV0y-paM3}){}aB1{qyYt#^2u%(TbZ1HHH# zl9UIv1m4h9nO{U=4g+L7W0!a|#GYe)EbUy@EFn)BiKcj$@1@uA%@-My&-6Ee*;-no zd0?QGS!`)X7|5RX41*==I5U-BxWY%M4(&QFjwVr^5*qHCvp1<48ZuLqpCVjN&jxNZ z6Isd%yX}QvEDIj046ly{{Wx6OgPsiDTxm841_AE#D#b(~hFut$%U4Fm$8Bb6d&If9 zB_ggHd4d|#MBXJQqAdd|`0&vGw{U+igO~Sp{BnWr4LhmZdK4eo4`b)p=g_C?;jPUc zqp41EVtn>fd5CYP11q*(CoiJW+Rmqcy?LT8v6C+SOy>pPYnk9aYv>yh1mkN-J)n?l z?`6XTi`=7&&flED-(=LtYiVLmY1?1J3nJ=ul8!HX3={xd3`?cnAh}xL>${ILE)3fc z8|RXl4U(c8cK@qsK0G=i6|@2bO=80{%)_!rD7KnE7%a6q4UOtz4n-4cCqg^V;bhV2 z1mg!UFx(8h!`irXjbv1m7%yoam&KdMqwi;6y8%sR&0!Wp+C<6R5RGm`2dJrl72I&Y zU14fHP_*T#8y-GxY>-mHSpv`yK^*!nD-89=EJ$oH+-nG8$6mr8ny6idQ$vApkyP$t z@2ZxC&F==0%5H8!kIZ7i^E5SE5y)$>i2c`M-z9i&uCK>#edOX{scB(gSBJV+G1+u? z{Hk#MhHwd%rY7%izS|$4Im?&b?QTXz<*8kA%zmN5BejcgVz+_YzY8=o?@rXE8hDid zE4w>bpH`faa&qSkG4$@>@VDO!WH=~Gaw!-$bT~8}PgG#b`CcWxhknX0r8v~az#fhvA=*dN8^8iJ{$!MWF0i;-Ff5j#7Y<=@zKqA7Yx zjq)+WZAQ0{U-~%v^Uo*ecvzy26Ow9CqYGOpF{e}<UO8H z`QF5--Del3A+F#a+~}8EhF@TL7gIFYzF6KJwT)l(W=GNqBk9W{M7=|uTRu9pgpBZ- ztoLCNu#Caal}Z@pbqE8E4H>{lUc zfNmx`#bHjwZCPMs6R9J+idetHA!+gPawKqTANVOxKiVcn)#b3(SH$(DG5jI6oYG$4 z$-mx%8vyAc+?lIcClb77ijl^Xb2_+&;@Ze_&P)SWqYZj->l}(f?1795Gm<3N5#DzO7lc{2rA0tE}r+SaExzAXAgi__;AkCN$g<-7(0FPmIR z96~0D!xPz@c6q!%oCOO_CPPw#Xg5U92JiTK?fkr*Co!LxNo#6K5w1(X<#mX{B7~_% zG^r7TxjF@gad`rvqn9RJ=&Mrf2+-VU>^eg7EAu}6a7QkgnIwd~r>2Os#mKIIp+%Z( zVawOiJm`)2s9<3{5W?42g2mt{>NB8v*mpb}_&wmTy=`1xG*d;RT?n%5aB3ZL$Txg{ zV4yEFps0FOycLxw1!z;IR47*n+FSKw#sWbF5=&krrHus+(2SK1ZNI<83&n0bJ!qo# zVKbUk-R;}DV=>S*Ki9$Lr zy+_knMyYIPCPI4q6WQ(b$9q+X6UQv!AIW+{VTZr_EltYUp#LlO4#q(=368Y^$BC7_ z-BB@Ffx+c`#HAs}>TOL?$@L?YEtIt=Opv1J7qd}Ta(NfQR_m zT{0JqLm&T2^jNB>>jX+SW@0=Bti|lDG&Q?Vhvbyj>LN@U(qxkFA-)g@u90UbYO<(K zl5>C4{Xs3i-zDjD8JNNF;KDeHCH5BZ7aOHjB``FJlR6eSKA1s=LNlKsV$br(-O8#C zTm)wE#bFC}1XIc~zK<-Ns4w67)?x(LY7Tk+urFOG^-fX9{UNJhL3|3G1UET`Q76Io zf}ad%_-WQRH4vIV=xh;j6(0KX<;N2Z^_}HY#KmORFDiD8OwgKRYWSxAuo^~F*uIQJ zPiUttG(v-#n`w$(&)DALKXjvNdOaSQC~JZBWAqWmM=Uj8%#gpGF-J3cfn7N(u&s%& z41PKXF{GHv>h}iQAiAUbndRmO3^`HU5gQ=1x&Ap%y;Mj>XkP)>vjeKUG?!f`m&lF# z7@g;OKAHfo2W%TzApTbywyjw~n#z1*$!(|N;EUMh z#xhT#Mn_axLD%m%QS2g*j+Ixw$TC--DMgwFP8kIkS+7b=qOu9jM2_-jwwu?YmKa?`05*)>$LA_G{v?2`Jyb)I}z6L z>gkhrH*e%rsTp#&=o6#`UDAb_iot*#bD`aCkE|s_<*b5c*}E7coWnX&Psa*`BrRso zqDP^Z4}4)lr|Xu`&R3J0_A7ewKmGm4;EuIfDv(G+tBqTo&np{j-wjr{k1fJcZOp`0 z>71g_&1++1FXwf@zw30l;W^!IyI(o&Vm&x_by!nnb5%Q6cHa0g#2!jHrro#^_%Jv5 z3zIk)O^4K^=tEpw|6q!8xqzRyx;69G)n}1Hn++O!IJc8=X%&)b>h_|+neCMitaV(m z$h1v?d8>A5EV}K+-%WU#!FyQub|G~0)*;{A9o2u7$$Ee!tH5mF`Krh`bI!&zT__H$ zR|G*bIK`G6sQq>FBg#4FFPCG=sYCRQ6mYV_ix{iXorsyeRWU9 z>iuk44p?31`q$-XrFiI?q^p;(=?)?~Q7jfbW6jz3Dvi4fn$}O9=$Wn7L|-s1MSC#a+#rP3m1X(e0GoYwL$s2Y>n9%zMmM>}w(nf2ut?V@jIU|D;$ zfeN|4kuX{QF}Wd|*O1eb;d|oji=m#}cnCgQAB`@&SVoCPq)%!Z0KP|7!ktz} z1?b|~?|O!I1d}N_aTZ!`k+JZ-I5}{= z24)kzJ%$UeUPobTc=cLzhj#`-N#E?DIp{`4Ybm6^{D3hrq)Jo@wtjH%dlu-MeWiW3 z7uvjkci#5x&s@LWwg<;@ikPM4^!ZheD9{0N$;p$BX$x7hS4HV<)Nm=7B$u2+DEijN0HuP?wA3)9`6f$HB7w9u9Bn3udG+6X9!IO})S zqDfvAO+;l+2QLfS;()IYSBT;43JvsjIB`6dAW$%+#ozH_>oQ;CGh9h_a4uKpFdq&jlL99X zC+Deb$3EZ2c9)r6v;w)(=!GIzka_1vqBJ)d&&uk;8hK(c{foWDkd5Ng8M8gS>~afA zX1oKgPh=Fy@<5*FaN$Xku0g{B8v_8E9uOv>)?6+R-aK?+y*&fL*CqJ|daO z=7NMHFVxs)eG;5^n!4WVnVgllVJ2xB2NpXGUHbIT&`e*j=g}P zPwR+}w-q}1=mab_Si8xGo0lGF=4Ydr5_{HK0pkDm^>8G^VAuMQf*pL!wj40+e{@t={g9~^wN~D+rad!W(&Z&F4Qe#ioyNjo+h^^r zm$G*K6lK&jNolkzzA`^ zhjkW_q}~$!J(9g?T`BL|)%&BJ+!33?P>t7&A79+>A6DS)G)>S-dT~kU*~+-C2SxzZ zwtom&G+MZrSKs#zmREfE)7#5QA;bV-u=!S)L3JTIfJ=kwNx)L{%*8o|#8zEc?knB( z`Cwu4|13?kvW&0Z$L49Mmf;+H@(ljOs-w6Rt(d%>Lako96W8ZE1?y6-(o0zcUZC4( zv2PbWQQ>mG;QduN4&S8n!;a$hhp8`oR^E^!SET1{R23@M1Q-v^kc12$s+dx+a*AR6 z`Bbs@v5vJ58t-^!@+9D`%40k4+<2y62k#+JpP+|aOK)&S7%!w#@|&2|Lo1*gj>gt& zZtLvwSiF)W6VoyWVi8&aG-~K7Rj7)3d43n453CpfPa~$6w^_%EoT`>v}1Cwnr$CUy5YQ+L|UF8C=yoIr4oA!YQC&baXyZ zVUs9g0uU~9_N)^GD3$^9cG4Vxs}F<&?Mc_%6n9E8_n_+h7P=Tg-Sp!{`Y-tn4K2%b zMJ4c99<=<$V7I?GfGq|NrhVlM*K7EEm_8)`-OB0v$(ph~cIh$Y^>js7Vr(^QgZm4U z4I;%c`#;UnKR!pcukK2#=Gr(a;eo!Hp}q(W6kY8FG0F|SI{UEM8B&k4+JiOsuiMXi+kPZGGepY?)qowamjUjPvl0>NBe*179F#6(4-tDXZSKUZfI*X=?3vlsGzobdy%VlauN zga%4Ap!?|DyqLzv%=kcu@GQB>wr~fRJB|(_nb)1dqXr2kun1^oxT-k3IyB(cN+T`6B2X=*Gz{C!2cu>a z`r6g*5vOd57MyS`&0FKQi#}V6V#`;LvSf0?oDZps+*&;N8<90Y`_R*VtGH;Fe*57XK3-r;IKhMmhwf5pfVX0|I%;(`N9u9NE z%N^d4@?<8F6Bw{dvsN!N)jPI%ILlR-?ZRz{M!O7;-cbz4YU*1J&;|_NnBA zHrEEcJfbU9-je=f9Xh{WOGy`x&ZSv|suJZg@ysAxZ=Vu~T=L6Thv@>UDs$IG)gN|) zS{7dFNk|kkW=?;AbF2x#{$1a6Hyn5G&-?XPvJHHa)PBTax{~6pt44x%`|8zqsieos zMi=uNcpZ~PU)^58`)}R=Q4C$g4li?4>|oc*idSwKY6h88u6Eq&BRNfHug_$j8mS9A z7Vb2h(7W~QPlizr=K--L<_=fidha&?W>r&iL!umnjVCtoH@+Oad2E}SO0;99nDg0E zuzFx!o-#>ZUkW++ztMb;25e(TJC7^f8Q%N7DWtj%nfKB}C;()WZSA->-Q*h3y{Fc@ zn49oEnx7)~lHOU3S$n``m`uuKE_tzXp=vcYY?Ar4?FQ7fhxF1XowLmNp>!1M{$iJ* z?oT?{W@2m6p_2i&99&%-rgKyf2HC@*fqb02+vJ@AMn4r=EKg6B*9{i`{lRG17cl;3 z_A6cl(*x_mJ~2e042Ay6$sltGf)2#DCoZZ~bCk7Bs59yAJ(7o!Mh3eTJ!*pjaYx6JJW(W;af5Qk15^1U z>1ulmf2kNOcKeJpsJHa?i(RI%WsvLKlz=A9gQkYAgoO3AL_cQ96M;pYZtlTJu&Z6u z$q&4mzWLtO(S?Y|uwaI+?Z;AzJ~~B+eYs#rGvY{b>RW22C)Sb8jlT!Q zrsa>TMUk|Tc8`p8z3~?wH!cnq-Z$6_!{#cXb6qqf@Nb&)W@^5i#k`|i%~v5C-aP{)iFCNBUhrHS3jz z_q|!GKMnOXeb|2eA=yHO07c)S6b%r@N2DFNcEE@P#i4c?RtWhW0h*{fPDvuTg=jg+;nUAHwwqHAh<)Ieh(0Zc@-FFR^=?ua;W-z0l#VlPWJ z8xkHL<)o-+ZJJ{oN`%HU6>M5cS5h?kxf#MZH!qERnCc3<*W#pKLF>~2=6-<8p=ix@-plfr$OXy4f^mI?3p=~EOR&q2 z;GzlEj!@RVh}n4Z_;3=ldKgU_n{{CKlTU2*As_9P+b_|B2i+>=eT>u3%p{ExB16{4 zr{;Hb1lcW{qB!=avHi+^d~|LZ_5c{|QBWY%sF+jmp&SZiwMeh;foMyha`hN%4|q=j zVv-piR#+>|!hQJ?IEE+oGx%a($on5pS=g6e_)7pCK%gI?%afupMlQSUQ@`qQp_K#= zr%#IHS1VhJ) z$)L6+!)4!jlDMRpxK#Gm;+%y1RSSd-2&)()_(ypt^ev5aRu~1g)}6UPPmMDVvV-Ix zhltY$1;&iByT=-B(G>~~noO`yDDYK?BShSu@bqwHonrvD5pNS`5>p1G^V%=cC88x} z!)6lPb%XYOyz)G87;kK7@M14bUP65;PMaKazZ}(8(a_d|hdm64qOSj0Hiq|)zht64 z;LLnv18S4LUdTDBif*#UEsj6z{Se|v+wiJ!1y-56wDlld>m==3eFtT#=a>NQ#`l5N#dzf&lcZXY zZm+%fCL4ED2{+&WFcEe8A#Wm;cq_UWSrNeRD|wb!6B4&ij4X_>FDC9~@cYxYwV2^W5M$Ut{ayNrUB0B1G}nG2>ZQ@E*?2G}GND zEfR?lk#ChVPV3ltX$1!68(yF0lS~$4;yT>z2)w_`)wZbES>kC+uO6b0p0HnMrDh}g zq3YoFsdz@m)Tbo%Nn&tLh5p5JrbWkZ`MsJrigPoYT?kw`JSxzgQidH8qxRd zCvK_?vE06I$c$~^LL#pGCQPwq8eWpMuWM^S!nc)D*9LZz`C-_H2U~|-B6okP{q#J< z3w3@!$rzil$RGA8#ZERJmgq_6K`i4h5W>7Q6GyCacD!1#0kBPzV2rje; zWx_dG-VU_Pzf)oTX6jQBSm#y4^y)Z=BvM_9xE&)441iYlPC~Mw4VSJS{QRd$^P2>* zh9FE($CxBi5?3C5R>=3u z<5LwyQ+mYV14`KjU86-2@dGjaY9MpaksG3`E4~(}yd4-E%IhkZ4_9VXmluXi( zTetjwvoFy1GBlmH#@_68Yt?``4CC#6eP~c?0i@;v4Z$tvv_L&hP*3Lxgsp&_w}MAM z=u4{w1{9-e6qfcd>77%&i-yk-(-U9kEmU;;Kp8D>1+MjbtV+Jb&*|Lpz&hb7&H2B>ejj{$LBx;uSudS;^N zoC9GAPnSFIpuQ-5&h;aJ_-Q7BiY&aU1-qJ?xeCzE4sMkXFS@r^3C)AkdV|&?V%?HY zs6bz{((dAky^^43*^3;?{UEK_e4#lEd;3*%8J0ZK^2N?JUpgdDhL+wJfA!@N zrU=X30bB<3p&Zx8p=^xDw|EiiYw8d0c(sN~FJ!6!uhYB@IZQ53^-c|7K=NC@HQ|Z4 zaBt~{9SlesXC6(|9@w;LM24;YY}Umb-+9RV--bX2AD|LecZtN17=(UPa%9~A{BR0{ zH`eC@_}uX6=}IDb2U4hea>wHrtHjmfD&mx{xNnFffflIwz3pG3s(vW|toH63P+u9= zk<`HV=R)CUC8B@2hBE>?H+L;F^|$+h;Z)0~9G_r7HZ;bjO{6f85u!%(=?-YJg)q@@ zw$Pll0qA+twUMA2g{7^y9fuXxw=siy*~|JvF+R;)g-{geeUI8!8D57s$ATeG!+W;1 zJh}!EKx}y0^p6WoA(Dd>gkJbOCO7g6!VmQxQ=T|@Jp#-!G^?2nym1jxA&@_ynvRZD z=RS64k(tX))!=6lZ3DS|`9~t@lw7Kjq*D;Pj_Im#IML{G74X{DdlRiyZ-6N2>y?mm z0@Wre#dbFrp+(vgGW2UvS97>r@jxfl-`2|-L-kt5D$#+GJI_=hrkhHfK#!s z0sa`aS3mmxbD)p3$G4X4aYG3~%}VH&{5R&#ltH#?#)y zDkxz{q>pMaOFX&7>yxfK$!?BaKH^v+%=*bI=USjYyIBiw?oMO$s@BBafg5}cg}GB| zl(mXteufGLq+fT;-ZVLK6XD6E_FU4`A^?h8>d9+cKO4L}{}BFsb%&}JR;po)Fg&^K zwO99Iv>x;^w83oWys0rn+-sez9BRtI-#q1a-#V$TylLda76{sD^tBds0R%w17?8!M zkB^++=zz~ms62_0@4u?WWZWRnU%5BB_uyh7hQ8PB$zIn5gn_zl0*l)>>lkjyo}O${ zcny{!uj?W<8q8o3>-Q;d34~p?Bla$+_i?0HGE)Io+IJ%(qjG0LX@d`KV+XMi{s7F8 z1u!C}s80%A0)P(8H6Dd{4GG;u#uI9>)wI>^b$rJu;l{R)`{~if)BIiH9L5AMPdZuI zJnMP*xB6 zy7O1|Ro9l)=N{_^q1(EYW7fx0HkYsymL_aVeWhKo5HuSrmu6mMbo6no<#LF(+%wy3 za-%Jm%>KeFNxAZ-&&y1G2Px!=cYLgLB6;R78Z>pOBP8aJJHM@qJ9&#p&jY1$8YGxR66KQ*dKP8;2fbktoS?DV z?ZMwn^9*JTs;7E9-D-w3N(KqK>yku)zP`|n(Pu=+rxb$z9Tn4qMxj~anCmrLT_C+u z(up=f9i1)WyZ0|JQ%?YwX$#gK<^+x9C=}DE13G%3$36Z0<%^3Q;I#RpA}`}Maoe5x zmjmQ&$P!_znak5>`+m{7eA4Cf4&)nsc2MO;%8nZ489T>A+*EdNkYiw=<9?6P)vFui zGTfB7k12zM+-r9I8}OJ>ge5uUW$j7i8-M5X_jO}RBLkOxdCa6P|JdaJhKLjX>@=p=3F7>ndf1ULQ&Zy%9d_9C z&J${k+WD*5WZI4n9Ijg=4h))}Bj%i~^0bt<5M#3+R5 z@{xtXo9ZP5JL;39av+iUw;EJzW40_Drb2=L{G;fZn|Q-*k-LV$+nC4f;!;NFY&c8F z4u1(Vi}^Bn8Mg$~9@yg3}j=Eb2a!8l(iE@CTs8ee|1|A-nmEJVFw45S9ay>;|+D(3bcgb(5HC z2a%xhRLwS2Z>n(u8jw0@nAXf|$nXv*`%A${=*g`A@SvPdREt7JX(2z_$gt#CK{Xc+^N1fI<>V8@1pTpgRtDV^@ELTyU5L%1$Q?g0*QRY2U$Cq$X++wtx~(h z-bI)>%H|s156nI!lBEhJgh${nD2+OSz^Yt;>?gk2+asVQ+KE!tpJ@`ub}f#&7V89T_t%Th(K+&)<|bN$_5kYH3#A#f4?lmcXP3)j z1?m3X4c2n+E!#m<5GerT^!&KJTaKY!cGG&yvr~+YCm(iQuC6s*s3!f~%2F*0k8_Fc zxZTE|9KL%m3f_Cui2^@(i0Y;_sJj|_+a0oK*hUX-*!k|f#rabosa`wT3d7&;KK-KT zQNI39A_UUJo@<&qQ{3{Kk}XbWT;FhCyCIP{SAT2|Wp{1HQ}nWGm4)kZzZ(F6c)~)* z$dCL5h5czg`)AxE6fheTu5swV04(4m`&{3Uohcv``z;MYj6nr>hQMpd}ZkZk`qywga?sCY0U-t@hPt-PQ?BymSH? zKwvqJMEMVA9CuDY{4rVVcJKrLK7c+iRvFI&h1;+1?0SL#C0$5d0Ey0fcWM3v3Yd^2 zy@C4896*Z{Cx>48Xr?T^H^qKSTdJI$acJix3}4~cI&sUHu>&*(7#i@#jIUcYl-!P^ z)wQr-L`iyQH#DL3=UqgxM19uDT#8myiSKmvt9{32KyI2dIk(XdOYMNK zF-%D?N81H9L$>VnGFnTXGTr>pedf;cwdfzeGl-LnItW^!r{Y`GOs^v2{E_|km(V@2 z58VE^5LLD|q^!re6_9=Se9T7^;6Pg?DqNHlTFXmEocK9;-?!v6cL|yS=bd-l3)8wy z`-N2-FkKqnU>T~HvtZT*4hGo$TTbVyMY-AYe(Zm^aOE{=R~fd%n3PB%wWNakZU|mB zIA@e9J%-GNxK<#D^~XcW5}mO$HgOe6pp+ww52sSJQPI`|pxbVwq^4Y{xKil$usF`V zg+Zl0_RN;jexNKR%bW1Ka^~m~hCo=p6AGtjT{Y3fE0bJ-*%;)*a{|Ex8%)E&GAd2e z;M@M_`&d@X=p8n}fz6hAhtiX|e9P5sr;Xgu}BK9S9Qq49bW7NtY9F`lV60#%6}&Qn43-Xj?WqHbwo3hm`P*kfbB=OM`xz7 z=kKmNgAp`rZX}Fv5v)Lc9AaRf*SV*$SR&M)mLrz8z|kOn(z!xg3n<6{1EU!M&M}gR zE8xDc@$H~nI|CaOK3GO;A(J1Gp2op8U^+-a)rY!i)NE8!<(~ysPuApT&y5k|LvCw#A znUi2PR(P-oSRk;o{Aw^#Q#U@k!+1s3U{A=2#wPnl5_AC;3n0#-_bW|F$;aLQG_(kH zhk_SG-2}+HIk=YRJ{GlcJk0RAhlO<~hIB5HkWHLg{+e|*cHfk&*!8Ez5W9L)y(mCaCW zm;*&8?8HamP-q|X-_E`lR%+KSpPC?Q>TdIB<4_&}xsCu}N$~4o))~l1^6>*JcvHUt zZ5_|{t)^=ekHXv0G;D{=-g}VC2f%{QAq3iwPP>Ik^M)U z|8xRX2GHG$4n$e`UmxIh`yAn~wolUyICl83Shda6*k%XVGNtNSC@y&?3E-6$?!Q2=R49ymf+k z#ZdM2j+`C?AN)}AO_+|KPw%w02JAL^h~mM+wm+Z&V$alkrr?y^QYO#p*}8w5N;EAn zWTfx#(URw%Lkt==H}^+Z78n>j*{igzq5eUI`wL0>e5&xY2ayQz1liKxifHqD-@z_! z_pknb%2idXWjaZMFaep__Z{dCa>wk;tK=iyV?+>IDru$j(yLdN&h8_5UpvGt*|F8y zGKjx8Crl0Pk}_(6XBuF&kJ~FisfQD+tQk=8{qcF*-MRO!wy36D)kNuUm?i5r@7jiS zcw)6`q9F|q&*_Qi^ZL2CR@${%Rv;Js=mR`#j(_|7pKWxPI}c%ptJ#=!KRIOQoi2#J zP0+c765^MU1j&>@(ajxQ-NYEno`ba#A&5f{UV^--%TJ%4{Nv4Y*j58Q*bLl2#n3)z z!Q}`DfMt?(t0(hPDpw*7O)(}RcAx0m{(|hczEp`sMiiRt^QOw{@~=@!z0r-~{eT(} zS+ODIoyijmUcw~3z1?0h0N#*qZ(uml{m;6&oM)3$4boZL=+?Dlp9wPp3yvPn+N1!{ zY?SS#x)s@u)xc2qayW@isSpVk$|F8#-vIvVRIkTdCi^z$5G9hSv^U&|kg%|c5WH!v zZuItKHQwAmr<7w1 z@);fH*ME?Y`nFFovRY^-v-j2{_9`5J`$Zo2S4&s~^RdT$m%{ztg`RS7Yu~31@}H4J z1$)EA>QtMbxsvSNrd%#t5fRt}Epwx&n6VjDWV?u>#lM&2B$r;VVnRC~6d`7}Gb0kG zAfnJbyk&GOru{kEr|-jY#BHUucq((!T|o9*3_m2AO=;bXCvw}_XMtsW#{4soCPa0e z#;zK-4O5P{l?*`duezWA<>Emf4rW0#Is(N`i|TcI^xos`>p&$7G}sIcZA)bU90f|liQYQiHbB^t3FXWhSB}202^=oGM)cQ@=e6R( z{lj|qDgJUF3#7o3$)FKVlBgYP(;f~ybEQ9DE|Q4lhvbya`Wg$i`@LJ+J~K531|Zzo z%+#1lmMh!)`tGYpv~SF9bO>Grs8eLI1lxRbZBjd+j%5Ogqw27M=9X_NyBN&oxWYqb zpl6JCz+-d)F4n1fw7fybng2Lo1b_370QMShxFy+-iRrB5csiG4Q(o$Yqn|yyM#8SBwHk-YLjYV%lV7<;&t8u4inoV(%-=p=wHix>hL^^ z6J_)7E$hPGdj{y*_S;OBN28x~m)!p2V_G#LtMV?fkhYt&uC?f3el;)|z3)`)y}Ez* zx`n)q9H$PHTj-1EvUB*$9xoga+Ub@>7u2`{zOofBMytR#t+^~rapGN*&QA5vmu?xC zbEzaF$?KP;X=Tl02B_baEN&fuf7TEDctF+LVPRBg({l&qg3+$N=90f8x?BC5LyfE; zBP)|9ls1jI0O3WU;qgXPwBtpPOn^L7VJ;sBYosOafl4=1qJNS`4Y(x!JS@LgADD9}Io|;weNc?fu3?cjTbr8GPmn!hRS}^QrgLm(} zMJalr^_AaHJ?r2D*y_E*kgp)AuO*h|HrTU6H}1*~uZ+`gOd34hSvwu;g`@H#mD$AC zWZFtj0fRgAe5dj{9UK@Bhe2U`=PmUr`A}O44RV1(xxW<dk9yQ;~@dw!goD1?R<{ zH^mL$5&*0Y{1Zx~ENOIp%^(8V5ticts37cG5L@ug|CBT=n>cT?x}Vk{VUL4i?T>py z-7T`W_fRfC0{@q?7QCA6jX5Grcu+~6TgidyxeS@?*&$86Rn3#o+?$*`ExfMQ53;yF zM`fam{)J=5nB*m1zz3LP^1lwT{8|Nli{cHkGH^7aTnL?wk?n&R`260> z(7SaQHQUhz7gxj+(<)n1=O|mTZA(sh@&uH`5J5i-4n=*B1$MXAF6y|?C{x<0jT)=Q zR!>RKWj*xrBISmu?w$Nu~UWH2@!hHSx#qXRb)?2XWur?CBREsfEMQE>0=>$vIB?)LE6#O!rRJ#h}A`N2jC3=n7@8? zW=2|V<=|aTS68h2V_AnJhb|CzEgjWw|LdO{5Uz!h`u?q;vxP9=m8?qI04Ukzz(-U` z-WGVmwZ8;a$y-Yd>#trUJ^6#xHiEsDW_o_9c_Rgm$=XoI?+ZjF2i_MzUfN!h` zRQT|)Nb-?9mPw82!{E%1PQI{+{8_CAFQ;(X;jo>~_%f z(qG!vAk}Y~2p$EE)@%l3#{kXt)KEcMWqmns%m?jK##B)sqyARAHjXT{ik7%NrW+vH zH>)?w9tu|{F;iH_i>YkjrFBwzV^cRFXG0>kZjW}$q~|D}<te%}e3$lqc;PoRmc#bHb@HhhiItD+0iTVuqtzW@P z+R*4!>u(8_F5h;A?=}}f4Eb!foH{q=9>nf6+>0LuUgX!$UjcNo8!|;kO{o2CsBkh* zoGDlq(-Y(O&N=q@=y;*{6jx0`z3)$8$tC%r)A$7*k=SwV{BkE<@IgAvr`E+FlS4p) zq%tY+m+hxbXWZPLw&3`f8MEa|-V_AlfK2msqBf?CBDC5_*n4XWx9|G&;L?tcI&XX( z!ffJ^?e6PMb=91;Wp1_{B7UgqO`cVu`2b9cDc|}xn2xK3bscoJ2olBZW#df=Rxng# zKAGJd?Fu^zb!tgq$&bkz*KK4YxRdD$hii-hfuy|4MjI{Qn+m?U~|(H?)WL#%z6R z^zg^8=%eQfZ)h^N9pB{WS9p8f2AJ;`mZIB5VFg0bI{v)O#=b1ar?8i}46eO-`}UYJ z|A){-^%rk+&-aHyyCrUi?9VIgtN-Jyq;@9Z^o5l3XYlcBj}oI|)U0f+QE1fKqk{)g zYL)>Plg^+l{qX0`fd6=(IZeR3Bxaz(z$R#vtrZ%z|9~|r9K7U*KYu161!Zfuw)Y9} z#ECN(5>wBgI&%R9j$?Tw5xlte!21Ns_Q3xCY-8!|j@pl2JJ1R6ybE~#z<(cGgU5FN z``90BZ};El{nxg)`p@%fmi}M|yZ^J%+7A2vyTgC>`0p9~|Fg^g{mR-oZ2!+@*5F|O zd$ETOf$I(Njfy#Q>VGfNJs!MYYa5i6?f;$tY+&hkKJk?QnH2EWE&be%pe+BhjSI>$ z;7mpe_yqoQ3|H_j!KZKm?D)UuRI_wFpP2Oj|B0PQOu?s|0av58w(tM_>96g$_UVVA zz*k}OpNqA!{ol8v7XJTihWYPi)@VDc|JUAYJN);%vphnGOF092pGV@rdECyNN<0m| zNv|^r=Tf4<1+E?7#D6aPzu&*=v7+0-udk2WZ=6sWbkZriwvBzl?ZjWdmmS{m6n54M z`}xCGSoFP4n_vysTjR4D_aHsq>Eq20ITH1Cn5ZH{-%9(y)D^;agz{=}XI7zPwlV)KWB6#HnYk|#K|}z3BKRoB3f*o=izS)Gl=>oU*-0%=OZ3xqsAS1{p089;l#0o8{-Yjijbt0 zw*7(-y#Dr~3$3;IC7hdpa8nYi@u2Nu@Jg)&G~Yw?C}S)?;!5OKW0oe03eX-<&d%_2yGXv+~v7 zj(=&|SMlQ4(TC~J@-n_Yipf>V?3brnj@L9Dp}rp3^XC41g8Ozfg|7RmkM{xgISL!- z^B5V`lC$;0g<^Tq2esyB$tx9jqp&g0Q5)mO7v9_Tr1>0FpAE!wB9zxP#R`HEgqvpA z*G^->tj3Goc50_@Hta3Y^Y^l<{nBzx{m<3u)3ISgp$DD5js)6xCQ*pCEAnes&+Xxx zzcVQ2_uc%i`in;RZ>=T->$`s#d!LhCA!U|a2*0yY+tJA9bl1y^i8X=?Q+HyBk8vg& zLSMNn44&y9*=39xJiFc4!0{HL7R!uYpLc11$dcuh(BJPqLD%##G){;+0@71s%);lF zQBQx7#-C9m#cKVJB8ea}Pz%wOZE$}z#=m=@!~DU;WA!gzT+p}@i}z=SZ`gMb9Js2i z?v-HZa!%+-PAN%4 zh0K&w5wlVm3FT14u51pe6e^N)4n<7m6tT;eP+eWJm?n0Ky382*S`Fu~m z-|hDMz50t@uh(9$*Iu5F)BSLx{J_Td{JTGW?i|gO6LFmel{W4C$0=z!wc3O;R)76o z(O&JE=f}*;UK~7lGB)u|-LN_>VAN18GG5^qYFRGT@77a)4RytFL|dL2emf#gc78la zr_sti#xVLv+m*YbkNZ?oS9Gq&Z1{-nuxdEuYWqEgXPnyCe_6VF*L1S>_oDCzPi}mD z%IbJG@~QZHvclp+cV(Q`o;jCc&VG5PFJ2D1yS7u0o!ZYoV3rx#RNP9H@$=Ea_B*^- zz+N|5e4Lhb3bi3}v-+uZ;}@8QpZBNc_alqg7lMD;H2Q0#(-slcDgTOQ$S*G+-7zdV zWD>P?&f%YR2H97fI<}p^@g3Rl{rj!clkA8y;eR|kWc$F&T*gL$RoipgGY<)ne@CCa z{MTdk6S&_W{%RQcqB-1}e=96bqU$e#<{#a-JBhRAt_Gpi8+A845!T8Lzx-(%@<6_qZZvsa{_AdCi7M1B3Ozbhej3c>YgA~jxDzsL{en+Zd(tX?tNiP z7o~3>C)b#Js5pA(8$J8I!Rda_7HRcEC$z^uYCk_7qI)R&<-75oO#*X^%%iHB>t5eT zp?%j>AKUb>S+msJbGT4V$-K%^cio4MvEAc$v$nt6(qvfmn}&++`E1#gU1x2^y>NS; zS&xe1X`?hj#K!D{k)LJ%E;ngWocJeBFUS5Antg20{P)d+FG*#0ty}Tvr^PQ2--;~u zjP;xshq?S}xm+&v`*Wya*!7!!`p5i`xqYk*LA6KKZ13j7_rFy#Tj)I>jEyJTuCTmC zNfD#Ao|}5AHh%a}Y0?nap4Iqf&4o(Y{({j(j%Kdii>2bSow_;5ca6`pI+MS;*glV= z41c{@9hA*=X7YR-f<@9F5c#2#M@L%TjlG#V70I!W+@snf&YQbhU*~Wsdq(IntsrM= zQr4{bTXuV>g}P~U-t9ScFZz>$OHB4oJA?i6?O*)-^UdU$CqBpKKD|_)*Zowi*|Gg4 z?-I`XIput;t-eU%<#?8k$Kc<@6D7-sYvSbaW8@pllV>FZe+}CGX>sA)Sq(+y(x0wZ zq|O=5iyXFh8aB>t&Z}+FatM8(}RGxQDGDXDn+xIuC zAO1~uU7KJw`lnJ7^RH{QJx4u1Bw_vcWoEu=YcE2z&?!L`HeNf4Kd%na%NpOL4_tS5 zoO2@-7T(+BylAx6ZqI?o4R40hCqiGvb)8r|HewXeuBm?z!e_6qjXjCIcW{5#fzgUt z)?c5jM~^nuv}?TH^UKq3wf3u6Dom%g^b*SK93gTrJ{@<==HDUYjkN!{Y`rnD2 znOE$on18d`e^WPoGY@DUK5I4U{I6?RO}BUbn`ZwXXZhbB z+vK`~KW%rUy!Plzb0Hl5KP!lzLt3j)+5hj&_^o46-hTNL@|tY3+~A7*1G9K(w11QWlMIWZ}g9UiK_Xyka}}G){IJIJ_x9 zuDV7PXBN<2lTLm6R-f$i>r1vAqZJB3TB-IM*zRFE@0H({u+WkjRMX7gOs?0VK@wk) zKh(Zbmb>GuAEFzgd_t`keM);$U9tE{gcu|a>CjVVg`Ob`n{G{WNNwg&xyTx z*dY;x-`;lI!Xf$Nqf%0N+(+B;pGG!ZswTSMj%C?PwSdSP@F6qk}Q-x;&7nwE?1py^tfsY6T z1o*ry4Kfq)!Aw#|U_?Yv(Kc7fljhH|ymrRW{Nr?63k`$Pz&+PRfcwW`8d0o_10o-) zzYnhC5Paha$+L+Ve9M&8I33#;a8BLgzl7!S zncP3nK25ihXU^OE2i7wiMObVdTj7>+){I%r({y6X1!{6<5Yq?8{ztuu!7tyotUWly z@dIuPk^*hAi-tIW556w2vFI-PjQ)7`>CIPchjbgjjQByF8GsVWPkVr*gg<56>NtF4 zdDjhqo7NYQxFP_l=v2xVt0@z*#NIAoWJIn304At0X@UmfNhT}f>ZZQn83$mAG)HZ4~F zy#YG#!V%sD?_hCkpq&roHA)VRCwD3U8D;u)hBOIH)|y5UvSk!l0;KW74gCkk)3!N| z$lo<-NRMk+taD)32&xlCcen7CM3OuD;;3{18$^DEBNcs`^(h@Xw%stRJt2T{njWB` zPuC`WoFAHF%nf=4{rTB2fGCmNBf{^!A>$b!LQKb;p&?=cU0q5`f>XK(C#j9-Oj$em zqQz93T4am_uoA-K;kP0JgJ|O4$5^%Sh)Khpntay~G>t`#fnp?Dh-<$hqGk1mX^OO} z0!XH-oTl=}I>1T1T4etObJ5gun;O zObOL2a#2)KBdpLUkIA_HajiUQsQ1y6be zH8i+esDerIhK?Fgs~rtl=m)N4)E+@twa*ek?9!0hbG6Nt40y%YH=f^a-rNxp@%7r; zQ`djHsv<}COrhz_m^XLkMCJQ%;SkR4s%2JDHDtD{((7u+tMU!dH&LP5PMNnspiTMe zCpD-*g5zkd>#Vry>w1qN_`7dLeOW5*su{LHI(5ha$L$)f@I21W7FEjVZpaJRro1sT ztsVNUjghw>Qg70`f0UGa#%pt#_rqA%i>G#UOP|xZrMO}2K-$+WPt{b?l!}I^cK$cX z0NqylPM8jM;V-@xx^@!rfWDq-;R2$-&t`Cv70$Rc%lC9GojiJLo+)PyT+vz zpdO+W`V+?Rax3|o{DG3C+trQ5+Ov)_9M>_&LvCASsygfdW}oUjs$tUnqUxmQJMF?h zLq4GQb!AUo-rVF5Cd43Kx=2blALHE~{7(OFs8*QkXt^m*Y&U3W-u0V-mpkgYjp|

*1L0s5x5QX7?iswQk!88>m@mA&&fz{D{@9FRo4EaI0Z|oMg051JinC|3&4gyCD+> zGVzZ+%;eRnZcTl=?uMrC%Tv6pogqg7$NW{8NAihWXx_CX-s_>2&@m911npa`bXyd) zls3m;wTu>yXs4#2uBPgU$h7*7$L=N0uO)e&-%Q(;dG&*WRKD1)tZ{5;Ry8(68N!If5o;9dK zZDpy7*M|~ZmD!RuDmPX^#2osjpAhHF9g^hvi+Dj>Wa2Ml=W;8ci8Kj4F72L=X+L(< zxvtd$pM5w1YWOLk>z+x=>h`;sfzvVB+kT$1cY!11=?x;-U+;@55ipqoE?*4lbE$Hi zu4xt0yVj5Z!%>xHM2GB{^0u&|PSQAb>=c+bPxJKhd$*H0a z^FeZRi^;Ds!gh>JZj!w;ZS$S$m!kSY57}W4`@h&vWrOz#E1@QJ0}y=qpSgk%2n4q! zN&v^InF^yqm)GQ?bqof++QrtH(u&`V#f>IVaFKj7766sgm-fLmaa{Q{kcU`A%Ay|7 z6OR&yYwFq4Y)0SyvY3smi>k44>5H}E#pZLf3GvMk6@cp;1^*C9Izuz~Ok zQKSSoVv{3fokNquraJwzgAt9RY}~?PXCoC{=n%8vQ{YN!p~AigWtQLO!}9@MKu;v$ zc?|jxGi9}8P~g158~TwEr^dQ%K}+XqeK1~uJ4Jy5i(E6}C=d$ssS7@xOOv%+8i3J? z!VRyX%Yi7`;^5-GT?ei;X?q!F-7_zKSl7d-jb-8Zi^+g5z`?7N*Ar6a+|PnYA>axm zw&@!_?+cW6Q(-`1q@V>TcSA!#GV$rt8J5opaJ2#jwc>B4oy+$C^*uITYoA)90>u2v|;Rs zFHH>IsljMT#W9i+nWK@!KPco)QxIq2Y>^`stKa2q+(28*cOzw1neIYcw^k2VX|cFW zIJ1GO&JsWb%+aLH&y( zUi~w+`hWa-#Mir@P}=7ha+E(ts+cc?dXmv8iW(kUk{atf8tWnwgJ#4vuOQYClD(9z z@MJy24zg(0xF7~H1wK!4kmiuE5RH~W zW*HWJ(*Fvt&gs^k3z-|!6*VAP8iFoaa#dP?k*KSuRz`(FkVpebff%Maj$7SV3-Ztp zU6Z+-@y^?u(fFu=c5Gy!``}+)hgY6&Hte)K{-O8WsaN{%Z>{UH>f6kH^n6AY74ka1 z$G8h?V);nC|E?;fPVix9e%O|{Qh)9KczJ5+;9mUG{fdjr!(Tdka6qvl=c;iW>cjUf z&piG(Xtzg)IS@oen1w5b?2YGsn%Nc4k?aSEJ)=ZE&PM^a1lVcx_>X~}UacFHl^peC zFWm{A+}@XU@HreP4FPddT~%g1(w=jE1Jg#zSYBD`tM+8rpPjKdN*jdiSRoyd#2yYA z(JyO|YNd=?FbsQlF9$L8uH1$ic=ZAU%slw%)a;lwB<6V*lQJ$Jply(asNFTWsWuw6 zGg*gTSnnX>=H@5wt)0>|n7>As`}RdsSNX!^3^etk-uDTo?l* zGfy*^v0QsyODem!O*tz4L8IaOYcj@93wwiQX%3Rk+WMY&fx1w&B)P=3V|*_bqyJdb zfG4}pBzG#Rw*^s5j&v@mS{Q0aI>K3CKK9dgGSV|h(lHraB6CDom)y#a>zwB7ho*nN zxwY-S3oOiYBM7{(mbD0WPH(EIA0UI)_>kW-QruI*Tu6IDzE9LFh=cPQl8ARX$<#&e z3~?qDDmbLhiG5_G3#u<;XrF&Z|0)!s%^M*tbYhiRM7YZ`6= zgmsQI=zw*+YMrIxS=23g7a68-(`|SX;z@O0`j6)-U>;AT%-YTFxD~&s!t=vUnZ(B< z_X}c1UB<3EO-6S3WXt%6yBO4T%~B^vw__TCgXlV7LY zGwpJEdHoKEqXT+9^U31d3~+p5LL%YwJQ%?|tgK!8F+b$K!lQQOwnXfdgIGgsE|N5b znt(ql)WvG+ex6~2O$;DT9%vB9IbQCFg>FfmO$k~JVtf0@`9j--*ccUjcEn$hm1!?K zTJ8a0AQN-H0cs<4hHJN6x0bkK29`CdDb%Dk7KgiXiww9v(>--N+5R}mL-L3ZACh?? zI8Q*0j?6+|0l_4iCdBxJLsS>(R_3iN^8>?=tDp^v+OdJA1_-N=Jo&ur zbzbbr2cpDI0W_#;`h&vzs7+*7yB#ix6z?B&aDqxzudiBp(A($w@p1hSc+{+RFl`Hr zY38KNU>Yl7OnsK}K(NYf9sjODO6sZ~P{KWTe=srG1? zsG>smnN)`+bBN7N$yBz4El2>|mDSyyEW9CmJ?%-=gC2#jf`);(Rh`<6$_P}{KxX4e zKtrBhbLXthIp8rG5$iYm+S$2GT3Ll|qNS+mL6X(*NmIuWo=Yii-_@$$e;zM`G}dqv zd1x`i!;?zlYD!pQc);rBWLm_jI;g!PC9!#Zw0kh=z;L?Sj5&N6k=u?eQb!yPzIJxb zaK36zl7CWv&Zmm)-Glm?KMbvXGJ}|_Px#Em4W!NZ2n$p_?Vo(z){ zxTPaqD5bP;Ogy@DcnSVYlF~3?hno8+YrCOt9n(qJvF_MW^pM@S)6rge*^19D*8}Wa z9zHg{+E*^6A?(L{{BblpqYf}iNfy#uj8yN*SRhZ@g9;V>YYn`0c58Mn92imp<8G2B z&hoMOs3^hRYZmR9@lQkqC*S%r*r<@}vh((PjnBFuY|YBvG_NN%kVv)lozyoSb)6Wx z;Zjs?doKQ2(qhYEONCC<6B(k9PlebH<11`Re|NFm^26IA?4$xs2|5tl4Sg<7N&2M! zp<8Nvt?b#Gh0ace^Cv&V;fs!iF@Z8`FqS^t?LELdkiy3@7bxY~W>i+>)8F^J(|5A-Q1$=cf5ZO=4WUca53 zVzkF3xDRzuSN5*;I5)WHST|WO=dNdoxQ<^*U10k1+AySagmID7e3?vXgvy8B?93dU zaYyL?9C8uz8*CBka@pOcvJl?=`0kDBlf=gR&3a`5@idoE?Mh7;oF81!z-OPjesaCE z``$#9Ska)gOF=d`!|I2u{&gvw!FNZp!2qh-FfDZR>ssTBwni4zsieoJ#l&eopE7jk zLJ6V12*Lur?|s~sklgDMPpCCibX4-EEOg0+YM{yby%VuC(O!8V1F_MGFhUUf{kERXz7!zUK6V{hhy^FFb%2FuJUA?V`kE*8VlGA$mHVYD3 z_=pk!RB)Tm9B7N=ccl+eG5NdiRpa4u)|GS){jF}qD{1UzzS2}nmI zY%p!CCe(yHGC}p_8t7j~uBX;0?vPEWzU*!=_}+n^-(qkwRWDfuJ*6eaC4nU3ZYbc_gcG$34Lduj zl48tS3%pTGfJ7&^hEl$~2;(XMvyStJq4^UrUfyv!Ox#_KiKoe__>hts$djZfQ2;X#K|0I{2MV{zl~rDa2V}hOiBXKS-Y0tQC&mzJo#t z7ZF8-AQdKeNCX7n6Ae7ZiE!)w`gzLPuLUp`?}Y=t9v=rlX9L{>5^L9Ho>DYLorlZa zpfx@ zUjxPw)(e^QLmIf6hGGWN{7WqY>M|ZlNi#2yW<`!xCWdn>@`U~pR_>orvL%l)00p1a z^96tcpcC}h)ks7}Y*n0_wT8viBW~vt>4&Ic{7!RpX>`?C8PW$|S5`AkV&RLMM3(&7 z5#ET1yDPqi#fJ562Cwha>LR?lWmgS4BC^!m)jDcr$%tL@ruv~)iZl%6yfwFTXb@s6 z{U|ek!rpE?iwZ!0P^1KYuyF3>rT>2>`&Mih$M9{WCvk~6{NZuF- zY^PLHl8cBLX%JICMcSl0Uz?1dZzxIrp=kT{Yd(!ojU=`^F&80X^#z~8suB1G1@Uj3 zGSo1_hW)B~Jx3d|$~>Su6gmZ3x|lzyfD41h>8mEu-CGy$)8$!hI2N`Ul2@!SLM>Qj zZFucuJHGyDDP7jW^MO-oaQkpTDWoBzV9-DBiEbE(FdnoU@fit_19&_C1$YaF8pa!j z7~bs)IE2yH{3-*8j-(;w;o_IJK}-9*gGb)#vni6xhjc8$igj86(w{J}p?lYimpb#` zvJL?kiWEZqaV}CCiVNchXmIzheS3UK@&^;sR5lSQ|L)b$*ve;xXUrb}x4+$S@p|TE zrs8w%DJ636fgUzzdks;XI_nu5 zPPu)X2ZS-*cp`5|9&_VY(l`mNSmw4FCpW1ycs;G0nWQ4SSNFk$* zBji5$s_uDnBhhn~RH3szb902spHsO_XzqMJu>sQ4;#6cUqG*AvW)G_`J4}wq$RKVe zpg->G8*%=6{ovSPRX5YZosI`d7=KTaMe?fIFlbVw!!T*m`OA*#5eqJURGwt|X`RV%aRM>LJB8oL^uJ8%!2f z!{JI&l3ml%WeSte5(1hsIAK6B>;wx1)YHyF#g0D!xi6@2=3mS-! zd0jr)L<1kARKv4Xf0&?OB18;FRw9L8!8`7$6mqzTvb;^5hE02WY?uaf^&5qeM| zyb${1DfA-&9$N0^kOo?>t`Odld^GHA!(%HNVQkFc*-><+l!pFS)T#U?S)H-2T4cg7 zA)#skb*1Guk`$uw#6}K$6TRfYstp^=^GtU=OMxSRqOp5F;L9i-eXLW%y&9bwuyqY| zkW0Gic77WAOXhhnw_D8s8}w;}dJ?349~tX`$7s$ND4+9CL9-CXsykQzX0&u} zqGDEv;QzVxJv)Bp-dgM1;HO($q)GqybbI?`gXMkUgEfZ3+LAFYf&Af19&Vcb-R;>{ z;hd1P`TcA}`bkrC(YVgdppN8{*hCtBt(`FzFp*5-eK}oyoA^9t=M6n}1r+It|7Xp2 zr6c?wl9#*wj-Jguvv%LP*sMpHiU!}-3>_shXY^_4WZiZ<`MASEq;#3|D+h6`GTn73 zZeN@c@u?F`7RrS<4j9_GzyGRrm74+&OU7#9{$5ievk&!N!`4Dm|7?n`l&$KJWk{$& z>07<Djug}0$2k%Ivr_)yd!nK zv`{Axr#lCCBIYl3VXw)M^4BPk_gRiBk!_q)tSr9OCGYM~VRs6f-fSgBnrt{C+u~f@ zweE^7o?h-WNRZ|c*i1^8s&Oh=uZG`HkwLX4OBUJ)pQ8zj#Sg>WHX7M)jW7M_F zMs8E4^(S+-@9t`=cnKvy!(qk28(LEO3ip9!hPh7DpkB;$}$=s)55;r(%^J(*C zEV>#gt#Y8R_x%>smTN~+Eu|ga{SlS%OyYw4xKlUl8nGrRvwmprLW{1-ktQ^Y!{M-3 ztT@uc=r6WWeLO>5K$+ZCAoJ&Iu6IC|P##pd$EG$=2kQmT z20&O_bhYEQc?p#`Jq=PTL=_teoda>BHW;ZQhWoY{_G}s|z7&r-MK-voETui^l(T2| zZuQhs%Y%Tjg0)xfkG8BEv2HR0>Q)Av__R4%zLp1)fDoS)RSWgA`$jIK8wRaS z;@l^T|6<6GI@FI3duyShVRi)Hmf#NGW6E}tAh1x9qLloyX?AQhxw$}Kpl!BJ1a4&x z0m-M>0NxOf>dWRPwM=_#+#KUEoJ7Z4H_5$nkhP0@Wr+G5Ng0@H1L6ht!MGP?JRZj3 z*c%~_$V-BH9Q;JOTTP?A$pQ)YrBwlDbrJd_#(U|{{h%4%&*R@l*QbqVLl)S>Q^=j_ ztfYaLMLAoa-j2=p0m9M0t44_oFWrJCjgPa0=^zep0ZYKS4J5qv9D618qoP`9*%~vt zyG?4uc)v=F4s_%;&7__*pexV=+8eD~+Xaxr#fpT`d58AJDKpx(l4X4oaW&6X{p%`Wj48J*u)Ar`y@{)CMMRuBqdNm@-($O`z~1B^MQC z>j4mb2e4a^tHpf3KgCBOavdK~)auz6Qb+5HRce`Z`TN&oQe?Cgt>$J=<5L4pn#6{& zW-B`)_AHMsZxBWTR%A0=r$PBkXruP5x^Hm46M*b%f;&a9pVD{STCl8b>}`VB%!pyh zrQl^$8IYavbs~$=iod$G8tElZg>n%@rclztiKDW=o1LyWoVaU`G7p>GVNm@HMO z05G4eCQ45b1HspF=-66ef_No2TBSnmoO>AHTFNTD_6CKQfeqh6+sA}$_{~H7k)Zav z$i~_8;zi2z;aLZ+fGO$6)>6d8iI#s82G}p|T5GmLT0Lks;K*gqGIRe-_g${6VO-N` zU)m8CroOq8yMn`%1o{TX@+ABv!w#xAUji<}?1L6+Ui?6fF=GNMHo8DDGFZ;&e{I~T zS`gi=(u7aF)mAT=m03)$B$$a8595$PNUfW{u)38^a_eREf z$G9z=tSxEleTyQX|1#)i1#yy0gwq6N&(FoTZ8I`%$UR{6j$6$bH!%C7Mm!6u>oN~4 zO$2ut(Fj$|DnlavEHRQV`TFna_1}Kfve@z56BS2Ns45`fs;smKRZqQO$NlLxXdid~ zKICb9T8%(j@rb*|1&d|o^$d)()~WLHd~)G=ymS}2&fB6(|9 z6eua9hlAj}T-iYST3#3GZ9J4PA`fWkCEqoDEH&5eUwU(<6ebOZm*57^Gx3kz`sS>w(0EA)b>_o-! zpBOxly_WbOJlm*|kHgUe29f~Xx9@CwJuFo$q6gRhX(qmU6$iq@>OKrb@jCnU-y`x_ z)u^}YWJ$VC%j2MlVuglWZF|PBYpS$W|Ye$1yiEAQ{eSS?;y29D3_o zOCsP>vQ|pgzY|U%R5SM(3wetTBd$R^X*uimBh-FHO2_IuqOD9X6;4A77p8E8MOdF= zwEvTdb6FbBsXQ8n!!{kd520>eB-c_3&7@)3+wXLZ>?mu}UD_e9{Y}yl?k~1uU@=#Y z5t9VDdT0(M{)z2HyNg)J>Ko4vY}DB;pYOq7q!UVM23OGqYjY;dEhcP2$%R=~O6Ku( zlijZvvx>&xu+IB_vZ=E>4mu`HNvO<(IMAD zyY8*|`(|N)$zkP(gULldYRbgXVg;f^qf~6))?%U+Igk)jB=z%X+)ERz(QJ0$^RT%x z>x5BWLvexDs`5Q@kJN+hoB#S#S>Nlgml_s(%(%&4so*PBs9QW;_l7!FtRhbu6qS~^ zHlyN`JuHqoKObT|4^h4yl2I4Nji*E2Su|p};#%oNJx3pv#110JSp&ewwQ@gj0?zJf zsH8Z-l`JK+#g9A4+WhpKEGjEMs(4)~B;7;M?*Ajy4sxw``Q1rCkz`G>%`^9`m%VFX zdZbVBuw$}EA9-6Wu@Hx2OaAI)tun@ezYdX~&>`-K^vF$;nXc070myGl2h7m(W zT7-Yt#9SdBUq!a+PxH_)T<5cd1F%1q1Q$^pg-MZUxx{u-xq&qml7)A%j0!&-W8dS1 zbzr3kC(3^5g{@~wgo9W8_*{VF*4gi-Vol0mM#vzVt_N0|k}iWR3J$$c<#1Q6ND?F)Y4kE`~EGfxC35@D=^k0?OW`UA7~ zskLZfn&w*ZuxfP7gK^CBvra>oVKj$~yt$Q7wf@$H!2nKM+l3O!XwrLu+n*F(C-8c`s{q>}I{r8M6L+EerU z>P?**0Rd>qXWpLx@RIx}VVyru|G^jT-v|5acq0E~8A@WlM( zc1*;1Go{9%xh9-AX^z2#gNw$)k-QS&vG>t*i2$>= zAwTvjO>xUj{ZQNS)LS+KI1xrN8!5YAKjjFzC9w=Z7K;HU*>A ziaLb4u$|EUMpi5AN%tX@06D0768i;+faE7(V=PfD$=@V+AXm0}AnL8Q{(BA2eD_;( zANIFbvDg@ClDoBw6*T0gHg1%zMP8Vj!14VYMCX{ZJV}ZBYT$DJ7-K+2?0{s&?6z=( zx`bE7xZu8K-29=I^qYcso$B~R14rxgJIKrt`?v(qQu=!Jpw+|7wDf~Xa!^_}B$7BB z;8y1E13?0^wl*5R{h0b%LL4=`?%zGD4_$6#G^KU2+M#9Ao9_# zOx9r`^23U_?&d`m49|fG|A>SC9_Ad<29;LxF?QYqVY7tSunv^vzGyYhKUTK-gL7E3 zxL)JvX&TUg(H zsJ6~h$|`|BA?oyg@Hv7P7eX9gyXDuuUPHtcJCm{<^3#<7+@rAm=|G{!+YqMcY7|4t z0_Amjzv}N*T^BVquDkOy8z+| zDz8e6+%znNnj6Jc_eKI;j1Kpw)x;TTUX;}|GupG?fTo<~EPeDeU>-#hI~HF?`}uOm zNada%ceY-!OAm>5E(;^4{azGuv===~o)E9KQeOLfj}Ej1Wa`xMA1`$eweTw$;v{>k zv;uw7MAT4$;!@)(C^%hz!O$~J_Acod$zI4)U?DT3mOt13Zh}v`cJGqH{7gXS&%L(ob$hwgp7&r)_xPVlnf%81;K~ z>OO^gQkQRJv6ssxqq%ShX{0A$u7uAA3|{_`)yb{~)$9nEAv8iCq2BSnKqtf7!S^CA zN6n|Q$$Uo`=2N6y@`(#7P`e&b=Lf9=)RJqtTSt>(d$9b<3f+1&fj|1ADJ>qhlO_;Z z7SSQS#`C?TQ7GlwK2Jlg-M=2KWTM4>SI-CRl{*f@^)Q3?3A_!WIUKQh`-(~Z!?Al6 z4^!u$$S*1^Qj``bU(&03lxEJXSz{ zd&KSdKUd!1(=%^N)B}ip$oZy$)#%|pwm7scs7W|umio#h7Xq_#s1?&$xsvX42dEP6h8D&Gcbq(5;#@boT4dYOq~Flx zhh4n_A|e9dy8T4nLCo)yuN5a(QT-U^VCiOCW6T1L`)H4 z1$4tUI;OD}ADCtECg0sey5p4LmT+yeAWBsGxw@Tt;M^c3o7cEH(!hd9=i>lj)U2k= z!SboS!6nmN!E5wgw;`J5|0~Iv9N3_Mphi598wp3fAoK?E?$cA#Su~p3CA+{ws!c`sp z%oD#&F8pz1GKV?x#Y~di*a;>Bh+UCMME-J<6c7;-lbR0nD0^%00w9pP?iiVM3nEW# z47$6W*4^@IDAZ!Hn(LTs0CqTBvTBjEj1|DN?05o>k_@jGQJx?5HVUecHDT~J!}!Nl z>yft2<`|ic8xiZhXHV0_Pwm1OL?E!lb#a?1OPeM-{DxW~W!})}2%;E*qBKp>*==E{ zu=&}8jkHsD2;Fw7B)J~_-1$KwfJJY>gGa)kHaw@QW9PMh`}cT6%NAN#v)lNS^*g*= ztG&nZO~}2cavKV&_0C&&4ndnQS?dmBbFTa5`GSenj&|D7E{LUptGz{$`2#g(Q+(PT zD5N5-0udhPquryrywYA}?D^7iA&+pp3>jhG`3ycpxLG=8^g#6qUV9KtsoVJVPQ#t% zg;D+eH(W259!fJbG%vHm!U3A+9ObHcffjQ$Y*=Z2nO9vbE{Ja~-*Ig9(HI))sy>$A ztJL-Sko}Y0+BpsGR-M~@@0ypF(!O>b!rZ^BA95$;(xx{lMXl8duVt^7Z;F>aC`6iP z^gZ8xC_3Q%2h0sr+^A&G3YOEpCq@wu6^krnT_HX%)BJ2E;^sRNKmQpdg!6AmG9vyo@pyD;{~#3r>*^KKmw0-AIjY=Fo54%RlMOI!NJ9NbZhCt^>6w=%1>OeeI62Y_}BC}Qq|ZTYY9E>h*WSy zl%Dy8Z1CX4+DfPy2A5SrkAaMW+F05ap|B=gQc|5X<{mR&5_dw?Z8#(nfr<|~%1V=C zM0m!NH3A&P%3dwFO*iitptd~UuiBrH<0BC7kPN!!<)-r~-VOr`J9a3a%Hz!@0@{Tl zLFm3BRt$D~me!`s;J(0iUa2doyZZ)?hRB5~kh=KI5dY(HBn9M_+q2mKw=fvhrdtv} z$N_a`0}<6^o%J{5K5HK}Dfd&MHj+5(LlxQEP%(p%u)d_O-T*G3Y0wTs9D0?{Y~yjKtg&>okHc)z zZmf^^LT;sRuDh*1{ti1F9*ya2xx_ylcTnIL307Zn6xReHK}GO zKOtJym~`MPqt!aow`=ok1aZW7h+0$m$PSLD!2;&{U}TPb)(#<80ANbj;p}{L)c{;s zTGnFO>g{hNg*a~$ylHF)RLptiK{^cqJfzbY-{CM8JGuFO$!u|xz!Do&%ckpG%1^}N zR(je1zYqt0z%v;9?F`jAi>iuJh(yJK^F~a9ZK%124NMHGqla;`5fPCMg%047IGhM$ zA{~+^2Ggi)X1LZoJ2< z@i3z#j)vccYZRrepH?|tMM5SXuNcxe;=#OdFX`kCN}EK>@vCjd8Ew=V|By$vf01OZ z({hL17$};ey)-Fn=N20cSDBjmA^z-fJU$Z|V8U&K3Yv};?~TW_qMucvpj(6f@I>QA zgnpf!+!VaG%<+-~WX+6Y4aNmgT}h*joYYhKt%QHupH8Mx1$cA#-iFiB6RYkV8EGo$ zVRYUNB$RsF7#>5xr9aNXWVS-5b^Y1iI!%R59m>YBgz9A`?}E%J2J8gt{J#Y3{k>V7$&m zb1|^ElRiydX8pdavb}>BpP7z7){t>=!UXE?&^Dm1XrJ?q2}3{lxpSXSxFjzyir?{B zO`?NNazy%$8Kg*~7&k~;-ngit@?BC6n@HuT=m|xfNCq!X<>!xH-sY=&jTa6r3_7(F zQj%0({AtU9#tN}D0k07HK-)JAjb_c zMwg^X`wcwJ4}6+*JX=}rB={kYLEiSC4CRS;1e%RsJX$)ZsU47`d)+?w;QBb$Nr&`t zb5h$n+3SvSuMJZ)R6=$YTZUY|!@z+>59Oqh+AtMX`|)>*;{%)}k5OqsJX)H*S+#w> z_t9vjM-!U!SfAmjb!E{TxwiMK3fV^1>ox=lB{%DI?@UJ;HTixW5YodLxEAcmyV9>r z;sWL1^ao+Ib7auG(BBsoul2=pt&Q>J4~Tw)zrI0n=I`Vq+1g%DaDUHnL*lWAqX#<51BE{r)zdsC+w- zPj$wpC%@VXl$hf1w2~SLn;5^^!X;ZR(2%69Yd&r}ubSJQ01|mv%-aU1*Oza~9+vk& z4V#B*w^pU-N$;$kPGRs3^jhXAqDi`NwxU+@gp5cA$16INb$6pH%m%{al{sy$A5B}K zHIhBO#>js6texDKLq+w)p(;FaL~^H-S?@IvNSu2&AWrP2de8C1wr=Tlht%-olw=j2 zF^5wn_-NW67f3J1O1oM7)YJ}v1f=nS#0z>Ls8^W8{kx^(Lq3rYep*09D-bY9?0lW4 z#AF_)2-Teuaa`i7{Dp^Kwk1`JJoi1=47;#?ecctVBkUpJS244GbZB<2y^04wI=j|1 zCOomSeU{Jd{SgS;gG-?2!ajqh>RS9>G;B{w&6mWZWkTX6$3=~^CP$hFr+FRk2j>!~ zC;!+BlGvcNz#lAUdh%8bw_kQ-LAlkqDm?g_G8M~+;m?;PMmQ{tC{#bjnCHVf%R|GX z%a_KY%hj|9o?4Al7IV)r&cSByEOEa2_VTX3RZW&CRFGT4StlvXQ{uybnAXu$nXJX5 zV2mH4=&FV1PkL#GT9c0BW0>s$axB;}`+nQ&pGqJW`a>0LNdysUmsgktQH#}qZ~{b6 zGq6&)zJn;8Y(y zep(K$Y(1)76MNW?0)|G3U3Lbkoe)AZlnYv%odqRL_bTvWnGXog`1{+pb$UmtiYuehPo&t=y5`zgd=0d zD_Eq{5CLoU@3SmC7NfE~kswl?_W>DnfQGrI47dIZU9-BjWHx$#^f2--lZP4Fy;YI~Zow42 z;d6@7#n%+dLqf(E3u<^`yZloy>j(hj_kk!Wp=HEpSub40O13ftuF|Y2PsJt(zPkid z9vzr88Qt4XW~P&e6}D-f#5vgG{r`6(P-M;)Fiqq-S41q97*+=&|iV?{=p-=<4tOa>w|lp<|=z?rp}{Wc6={&W?TXQ898vdx91r<;LHX z0V~Rf(@J1V(cb8O=;AlW=07HPr8nxp&@k3!3BDT=p>TzXyIje&w}azoi9N6Z1?%q3|y1I2L>1!>5XGDItOI3BP>G z#VsRIr8jXwKda`s)G24~z2LQI zeDm_qVGwqGbIU2SIV#BW5h!)a#cRfmPDUS2Z*DasyXyMz;m|9)DIbBX-2CM~BUObITzkBlFW<3zQ!jXJ4rs zI_Umq7Tjv{*tbW(4RW-2g8hGC2S4I{3DlE z2ekjT<(f!(y4*SR*FPB;IkpD!6Yo&_iy1!jHK`+-R8M*rTKP!TMI*z$zTqZGIV!Mp ztNm$sYgB;H6_*L7Wu{}qXLWG(w<0EV0($|?-PSD@!A1)&K5_aCyF3_XAGPwhd~zU6 zagjfj5N%O)*=BFtN~pB+i7V(Y%Ax%p&fdr56Cr$M6R}7(*XqqJttcMzY)lt+PFRPy zHK9G)%(=v~W!eJ%5G{JQle~+|LF-m|pubrCRGE$PYzz?ILnMWkyOl&deA6HtEQ*27 z>G%(Uf_AjJK{3O(>Pj0JZbhyEN%1>NDtufgBJ(fHOlhH%V7XYA`TooaXwZc_c(BR= z%+4B(YQBi{UK}m(S%;<|S)d^|DhiK(yZe4ht@TQ8ZOq-u%jDvVhh>#qsL>IsZ||zw z@Ve#l;wNrIFPoFej=wfJB$AZKcWd@cJP@paM2}35Cgv&2B&YsMl-1F!njDwNGcGRT zCfYjW+xb20`9HZMyMCUcse4LfQ_#dx6Bl>x%*pOWC=3`)rP8fu#Ygh_#2iX&;R4H>w!I;rb?I<%hA!B5(yEFk;ncbh6G!%SL2Z}G!BxGC6|!2-us&i>}IkW|CQ+dE^M1x2? z=~oIy*-JqdK(@J!0`bPG%_fZ$1P-JQ-}Qg1HMH>n1}~cjWiuOcwBZ{t{;008l~k7g ze2$&+=D@z^SBy;5^G$vJTK~EUp)PMCh zTV2yg_jd>R*m2J{MhmZ>_%-aXefz8JR*(2^l#5f;eR`*14=oG3vDoL4j=z;2w{fJ@ z(#Ti;cjA9ny_7&yS;~hyR^`I1d%MjL6DZ!Z3~X{7253qwK*X!X{vbKU-P(? zHm=j|BQtJ14#t;EXk>HJu6vKrMZmPJ9KQUl@)z>j41WGrOZMx4z&kf8X{j*V`;Heb zPY@LaNgS(2sm)!VnT(6mLUxoN=)E|j&%oQZmFS93^igxQxeLFX48N5*7nq^}dP0u5 zDtjKX-QO%g>sb~5s){?BrY9l{o5?!@1?Fj?%#6BxTIb`B_E)*1`O?JM7}3&Nd*a3E z%0crmy5Tp+hAsKlUd4DZgkM>iN^;; zG}7Z?*NTr;ckZa~lQF|2%d-&%4^3MNlaK8rD2RmRIxCmYU$IC?iRQ#11%G8kJ>xC+ zRrL$GtR9B15az0K64U$y&HQo&BVXlnJ?_HM5(vns*ADY`1=yfzKx&{FBWSpmNk=zgh z=(yM6g0f3b$KAyf%h&hI80-W>@Uu&}T(@EC=NB}?#gJm8?jJ9E49plbWOBhYe^){T zwt>ddBPJ#Mf+9Z)WA`)|r8xHKey|#viu^FL+_d!Wih%;P=?wIPcS~p-_ktCcDAb

wX}oWsfyjIx%~?JCFG*X*{Uqg0VTPa+Pn1mlQK6y+5h}AZB}aJD=5A;W=BG zSz|2|jr-1zyo9qk)<- zYbRN}aYC?RI#ChC_#0cgxYLUJe5t?)!)32j3h{ND=gc43>OWXGQ%&h2d0bT<@g6-N zLRKlhQ9_7iwp522nEtbr$12J3`jg{8cXy(-m(olLM_LSpVqTbmlpLk@)dyw>JFp`o^GZtj=uC3@Y%W;~HORh(9EK~dhcvLnZCcb2h=D|&L>MwI>uiTKQj85BHtD;l}UHMSE^j5&1sCUD%X& zh*Q5@RcuF1kzdF%x-K{+UXVs>l*Tsa7?^dmVpF?FHpiZy8|NUq73Y_zv7{TJO0l@Z zk+Fp3Cpj)#jdi3+(4KtP|{zAWVmP?o|)R>x{)rNC>9Unj1Ba7=2KmqBh zmks!;m16#U)CeVQqPy5WbY{QNj6#AnOQy-}J$y;4e3VY*EmtNVo~m+X%(%F!Q8FRf zKzZtHm8`#;zlbft%OL+-b9isQm{(OJRs+rl;gCom6Jv&CQin=5#E2&L^x%jRC`>EC zHJ?b-Qi<#j2xs7@;O^ZtBJ|+}9y=O|Yo6de(ea;J_7uhVIV$)g^jGZ}DA zzo3fxqXJ57wU_=;vVBkbb{d>0JErmHzer@$=U9*SN=jT{Y0_cbi68Q&3h(}UE{AED zk&;2t1>J%@bzs|(g13%Da!n72K8V+T&z0KucPf*aixXM#I){{N-Xl>}PvS7Smi&W{ znwrIn{vX<{2B>rLzQYPWODwi`XFH?9fGZ}rs}9R&^ znjK8{0XbL)U|2g8c0bysdc@h+Hz8%|XpeZJCo|F;ODVci1vXJ>cVG@TCRkw^3#P4N zVYjG8Pl=JSeISCtUYgL!=Ndl~1&HUYrA|EY>ahJl=@z%sC zNQgrOLj1v>e^;@Vbzk0y6#m;_aPydGFk=VM%8EvkF7`7~Es>@y;@1cXpHv z<^ZgW<#tX+alP{`B~n3i^LI*x1g3kkmR(#+@pB*2>(!9kk<^jDm=(;E5@U|}HeK_u zD-AJmp=Y7?DNWuR*U<4oB(vu7{(Ue2kvZ~U9LQ~0#ZDUUU@@(j4Co#9qE(h6*tf~U zFyv){)`)VUs$O`O=;M9e5*RKDXbZGPPW+Be!%T@ccVlLnLXKteo^c8~bT5*<`f#&y zOVxd**hT>xG}AiatBS3=Y#cqBGA?)9*sdd(=j4+2qOn*_blg~Urv}^K?KiVP+hf=M z!D)7_4)Vb6r%*oebcAQt?`rikRu@OGb=1~2x96{BGZ71@8|r)cPLWnOavB%f912wy z)y)&y!Y*po#FETyj(gPiJWP!c`O==dw!GaHe+?bAWH%4{OmeoP412}--l-Gzw+agF z&LbDhG5Z_8_M58Wc;Yr7-CWuw$;;0PgP1L|f)v_4OS89*t4xA>LJLfnR#T`+(t1&R zVj)Sd;1*RvKZoI3C7AJ91n_M7OhzlTbQCZRlA2sgX^S(tDTV7|HER)@5VY%Db|{m^ z%2ctyi$jhuS|y9qGCsXEL)-u2tpA4x9z!?OQJ(N1eH-n|TSixOy5knvEu5>I8y;lv#$af?JHT#bH ziqj?1=A#TQqan#F1%{O7OyS1(AQ{?4U^lijQRC z9jl2Rnwi@r#e4H zs|{cTNeg>iPUlA+N%D4)YuevTPM=i`?=*m7t9h zZ~9|=UsQ8vUvqQwnYagvnE~TRviSuh>DFQ#2m6jil$Mq|`&dWEG>gNQWFqiMwRKy%ay+-)>EA)EA0{fbo>CAs z=XkN-T>AT3KRd|A1Fq?=mq2FH*Yu7b-ALkzYp*Z%%U3DhI{{{m;ye7M`;^yoe1Mx# zW&mE=><&k1ph5;Dh{vxCSjhx_LuXaj4e;cm&YUX=U{3=lbW3COQ;p+60p;VAOE4W2 z+^pKqtfpZ1=DeStihT^10J8yRM(|JC;F;CJ{$F53QLBx1l3^cp8q};0HJg?85EaR8 zSCCJ}ynpdfY_n**b$ELXpDw1FOl|Y`=P5;Z(Lt*P8IN{*HGq8UpAjKMqyz}dk_&Jn zijhY(<%YNH{$yoiYo=vBq{)m9_j24@wt@>o*HbbOt?=8Z%26jLT8ucvJmt-g_QS7D z6EDdBa4u3Ngt^#98T&FsYt|fe`};b9e~0;5%jxhI%D%QU2_B}{jIh+FgR=H)L#~Jx zOUap0Hu~>pJ6|2DPRQ*m>hZHE=%HECMh{!J zuK$G}T{yHFx~OHvTnf(A@-;4H@lBJiT-s?5wGu54twsF!Inw+(c8Q*>aW&|-giyzr zDhVEnxyz>W9hmI;j))}IeNp6h`ci(d$k#t3lap*|VG}nIxN2j40boIVg{|lm{D5V_|d>)ERLWa02d{>B(*L=v&dg#mLJn@+FD-~y-sl@ zw(w_%3i0oL6H9|_xhz{eTQWrBpX`I8^4XdB?oAADtHEDT)3>u2P1C(Y{UjpnkY2w} zRztI}-CQ8fNX$RvRfp%eMn5)Nzw{fhH55lW2M;k;qM}_fi1kCgAJsyUQjOyMxHt5x z$$`w=nf6J%NF?ARSMTKVCX8@c!S%dM`bJuXUUN zU+z3#h~*rdFKAX1t#ZqXvwWoHE_)B(b=9aB6G}R$!<4^8o$|l2OUK=atw@z7l-j{P6g}kbZI;yQhZP7>TKWn`@bvC|3K zjwsd)QvY8(Y%jZkx!Va!DTTm#$)k z&uC75uGj|h5$7HT=H{^)QU$D7o6*$1>(mia;)2yJOd^FxrAljS&Um#M9}AOmy)p(e zx;5ENg&8qnadYHrCM3l%^-UY>UJ!9HcWh}s8}Ug*@yu3Q!hXJjvN_^GwqjyU!qdSA zaM$L@0=^m;JWm{K^9>lzi^A|(T@2qoJiauP*(&+jJhM2|BK7UT`0L&NyDq0qDJEe{ zV%oFlzdY$}yZ>EG=R2q0hqtsm_=lhPY0<@!liJUC@bbD|02J2U@l_=Z=Gu9OVaS#7+B_t_ zyNJF#<3A)l1JRkx$m;I?c?VXjTZK zFU?9wrJ0Jviw#6yYzZeayKjaVNgpFU-p(oYLSNq_0qSpEaF_;j+-gi!Y$7@#GDf#XK4yV0hCO`)D+0 zj(DBgH4}PWJX^7sNS`PKJHs5(MUB4ozBSeQnf(HexwAPWX|I9)Z3ip^3E1zXv65TF zsM~qX5dj-Z2?d4t-0!&LGwvqFKkZ~l#HxIU{U1Mt^=u#|-li;xB&vms4u{HCSXul& zS<&a%qW{$8Egbr{Yal9GAa#`zTbcM(4vRokEMH@Jq*P{R4*I_vB(94@fBnmnnYGNd zLWgvUwbQCp%xSB&+{G;I^=QcdvGLtM@geQ7-;xi88xjcQ3koX9jKxZkke2$`G zv@_`k4;C0IX|b3r>c`k8@8JoYcW2@weK#MxCmt}5C|pPs&<12FX7SDV(QEylr*Njy z+@@;qC}XbGqB{bg)xk03i^Fq860Uc+?6F-X=(RD`f!F8t(pSU$?prj~irlXeC5RWz z^>anx_x*?}dz3W614>XO@ zZgGjmRP(V^vX0w$7sZ=k@e-#*&2G^&Q7~6M>2&j&uK(%A&RX;HF*R9OEj$0e9%o!U z?3h{)#>_A`olPGZoG$feC_Vy>Pob9Gs@v-{6uj8FKQ+g)t3RMMp`JaYcN$;uRYC7r z6#cVq4u=1^rro(Q=kLEYatmqH7ENbctU8eaOdF4z6%yD92~Or`wbZY?MNOJ%`S}12&(Os{U%OH)2p^ABWV#J)vz)V=dp>-&`Jw~xUJBC!4l+4DjDjk~ z-W+BIiQ07W;I88u-HRqif(n@0yv1IN-F}A#IQ>b_d^>J_8F`1S4b$ugz}D!EN8z%n zp_Ml7QqIGEF5lt7Qez;O))?^46!DA~+9M?n9=Rp^y}RYeq4%H`L=VT)Ol}DI zc(11I&2TsWoP7L%>=9KrYraG z1)hclH~Q8)I>6k?rQ(@%KBudU&f6+;b;fG#zUWdYgT8!s) z|6@--e_fld0kT>OuP@T;9(SZwI5?D&0LWJ)sXCwM$rL}!Lv&q zgW-V;D%4a3i5JOwJV=!EoigoRvp>Npl3H8j47H9QIR|^|3N57=EHWTge}}%=8h5&_ zgW)T+44)mCIbUTB$+}Ij*_XtC(yD>?hMYr_seE%l>JY7OHYA%UA3n$1y0)P9`Gxmt zb@i+9!|dvum9m%nq^@{qu&m@Ly zX^#(NMx$BNp|dm-Q9!hKDRtsTqY_(!iC$V{Pq~B2 zJXtqnSH|4JzNl@Zr(@?oTyPFs+xTKdj84=zsRE;Pc|>)u)u=Kf6GaJA;rQZ87#8iW zgX9!E+4~9|4^rEU!yJBp-%}7C!E>1O2{%bFW4e)6-F4hUu9beM#&kL^ox0X{;y&Vu{e+ivesKy*xShGWXksG7pV&=-0LjaTAw1BI6^B)VJ2RAHY4};N<&r z)8Xo%>P3!6?eI|5A9(~Gu9ix0E=5-}YR%@{D@!mMR~j<-`y>0kO$3TVUO5)?lLWn| zSnH1Lvm?saHHQOJ5}FXnR?%Qm3r%t&JNp_pn!ip*T%z(;!f-GBrA?jhOs3kr!M;20 zS2DUa0qgVec01_&d(Y&R@&2mq_SXsZ%DOcRvkfXl!4x`>%uevVs0dH2s&~P>a?tyTS9W1*X3y79kNT4Lts=$Tq=b$iDm37~9D#8%N3>l# zuwS*ZF>B}+Mla}#K+337sUJESxd3Uh zIOr;yqKR?N_+<@WF2s`N+k9?WSr>kXECuD-sobN^o z1BeF)L*_NPRKw0j+*e%OQCi%xNmO{H55Uc18fUrt23}qt^Rrq;gOz+xSn^W zYkgCT=`sdaa1Y5F8PCm)YW0P}-b|Pa1Rc^=XkA#lGVvuZ_L^R6BL8r9<_be1x=n-@ zcRY%V94pU1`gAn8X_#CU4)pKPgn&m}`SX0z6FU?b&D!S|5;Fy>H&R)+g@u;DGB9|Q zL`<}_W8=Rz>cAb~CfZ@XVa^u#P6lncV>$@zErFpQ@oKWU&um$)l*0{!_O>r31A(F( z@^xEub7H*eh|f$WpXIzKYmm-X+~>a6`~+#+{o{7k2@bvOefY>wM|XD5;J%_(cu76RBmfgGaAzE;hI(!sJ+`DQBp`eTAuH(j} z{9nrnf?k?6RKT_4&cBYJlvy26C=~2=h<^fv1Y-yOdS>?mxBG^NNwl`7%~yRD%(YLb z&p^$mIpFziq2Ee={3Yn?+x!5)O3>P(+*o{@UjD}`M-PNsu~Akq<%hfR%{1Ge9=HNo z1J_!63py0N)9BRKtZ4N=UTwd8dK=d7*SqfvjX(eKO7HbQl-IuCG;~|yfA^|@`8&?* zr>mpNRQ6st>t(2#Vss_jNhyK6M@hf3QlH{27TNR-m=NnXSI3)%ZWB^{*WHcHnl94HCR;)c8WRwYsKB-1&!b zTMlB!^wZ0S$3A>jH~e4U?*I1-Fl}t!JT261cTlpCHzD5oMMgh`ng4~X`(^uB_-CJAxuUKamn|Eb zFhi#}&yrl)8mJ~_Ly&K@HL?7wCW?_7NcjgG;f}yEUA$0oyNmFGHkyEmV-_VV%#bNdjaH%iQ}4&twII?H zTGnB!#~=PnMRF{6g|Y&m<9lQzX8v1!^jLUfcpM@-LJlse+2{i5-$tvU#X$yNyq+z*Q7 z43INW|EK(^d(?aoFAQdV$w7?{$vSvp(fMKd86tYX5;GO!a4{S4%ilrO`lV z41+|?OCmO3p_Pwci8JTP7>3{JV<!JhO3f(BrvnAE z*=S=k6fVNAeA_#mIadH}T$Y0(4Rbr6&X>?X0qz%=&MZd|`=Af~U+3M-|FSPT@<@-M zw#J2^*U%awUJbC48qMKm9!1cv5aCH^xB#AeX_FWh*o zdlfqHS*S(y@VaQQcmyAv@r6~a4e+#shae6lnb2HWkLklbzwdQ23J8;N&G;t4Ql&H# zN(IW`mB6~(7jCux{vLQ7d6rPtTb+PUo8X2YWv}2%AfB*)W~!C;UU$n3ncJMqJ@`I2a@md@2plSlwUUdqNQ$#}I!;%C#@7+AwpN&($`<3RXNwH$ z=giaCDj|q*;CKv-HT(^GJ^~$FciiQx@`&t~P|NU^TmCvHsv8|tKI#WXpd%8}L2j*n z8flDq7;mS$T`EuVnL$pr0f_-9IS2jx2a=gKR$ldALXqm zT&Rk%AY}dt(9Y3By!O9Fq1y+Eu{E(Bh^j+of1xfN3vx36q? z3}F=;Tn8h2yujcZf6Nui4lRphw>nf+I?UXMZv_Wcc5&QIRkCr8gmA?|_;*AtpuCld z%emdC_C@HPJ+WX20Y=UjoRr_5&){Tp-U=({Tm;>4(L4I&9&IN{i_s0Cv4~6QVV{%5oOacY&x5r;JUK%&?da< zb>+jX!!H}ND=*&$D&-08hGijKQ|_&r`))a_KL)h}W`}C2JTZKM^3Mj@6#~y=hctgh zR+r0djk{yeHTJAIvzY{DYR`EvjnCgI5ihpcxi~@ zL}eI$Nea>E&@(Qm@pFazh$L!9QRvjrcV`n}Cj#Jy*5OyarFjv}mArDWY0DErJ*tW$ zF^vhIEct0CTn8~(yTJ>UvA03r+*bgYMk)Zy9F&KLAcLoUTI;;2ZFOAf3@cqNQf`$* zGG-ne^DS=M#8AuQwjEho>Fmb~pzO|C>szws5%DmOz6oJ~x(R%uG@ZI4{q3q`#oc-^ zv%h~ZDlC>w=*sGwk=qgHbuNAN9g<@{5J?o|E;3}SXOG1SZ>$CD`JF@FuCjrn09y8H zPZX!H>#VD&*j^?m;45JUXL|=*v&nNUT{3oYyGHNa6m6ZC^zEfIe`8eIR|IW5W#j{k z`ITsZ@Q^lioh7%9&zsEa)J1VYub1YkEl%mxUWp2wj4SC;PU!5IiX=jxD;8yUhU%aK z#tIW{Lq*Y0^kZ#k&0WVA3>XU5tY^61ImE(v^o3_xGfAkC85u9Y|AtV; zjg&!fICsyG~mt))l2?KMSc|Ph<0QD zCVx*ST2&_iNA%Yd$SNS-dZt7SMqs3EM)xa}m%UmW_d~os2>OnX@HvDt&p#9A!?xrG$R>SLA*rh}l%=`E_#`tz z6@qCO#d1%2cTMs3FCKD}3rK?FB&l>jG5dRR>Us-^Ig*K$$o#dTJ34tq&?rHR2hbc^ z(2`wM4Ac)+<+#sJJQQ1V2{uTXrgy7i?*#`C3AVuO^v>!%tr>6NvvMes&Rz?eXN%Kj|XY=%N99i!ib#iE}VSt zpt8R{a@_4>S^DTE|e?x<%QUD1pn&>g#3hx%;5(-nY&N+wmw@~#4X#YO?gDs4?xGMT=T0^GuWkj^ZRD+Q zn$+dY4qFk5&hF37rL#MPBi@Xk@8doUdk+M1F=1%ZxNUuiTkGXFCZ~0)8@4zRav`5P znzcK3))Di@lQk}xg~`~Tjr-3RTn|MQc1}#Hk=sr)} z>b;)NpHh(b%JgT!9KKvc#Elq(5hZsIz?fQfM?XZR695O{kZJZbv?LM{7;CPxP9E+X z<_W@EY245Svzc;$Z0a}H!hWPYBa~m!s^=&WGDO_Sum`FRXD*>-GB2eu4~Rs=ix}#n zwYu3`fPuW=gqbm$bB1lk;l_yhk}=PzT;itf0}1nFCw7FO@2wW(qEtAxE8%@s$dl+* zx@;JdhUI}_yCH6KGj*V3n9NMkWU8ttRP>u)t*VngE3ld_Hy(l6qTMLe;U{Rf7e^4M ze=RPo1PKGn_M*D}#j!74z+x&@%D@|83N|J*yYS-7#X5Syz0{VT)Tz`AfW0qDg(73z zF|Z%ovP-7GJlpa+M2|o7^r+mQ#XrG2P3&Ys1cQT7dx(u`Jpap?m*oySO0A%E?jYq(U$e+ zLr@M2>L_+$)2~9yl|nXK6o%>x{@ctJ?`V?zcWTYObtKHZb?!5pn+p-sc-ev$ znbaaov|7twmwAOiG8VM1COhN`LG*lvI9n@w#=K>I&Sb{LF>S75XXj2*@!=9vxmxdO z>?h#_WLpL7)rMYjvjx>YCwjtO(*f9cU$7%I%M%Eo`Qm6K1CmHWIbp8&$Km0#d+k$qcUiuS(JWe<$xm8g@Kz)cYb##l20gCGGjYVr$ml9)_OB6fi$ncH z$3&e(pQ!cKK-fJ~Vm zbad?$&}C0G`S*~M^==<&jtS8Tb3OT7V*c;W*`Vt-D7%aYMlrMf*{!tk07%j#V&js- zqk6i|8h-uTF(ChtVO+Q(uP;&#BoIM<=;9IY;_d7Rf{K0dc24Sq?vKoAQIs8^XMm9& z=wnrwG+i)dW@}=xB3e%sGofcF+yZEbBZU*3X~oI5kBvHRfNi_`sF0qVDN*9}PZ4D^ z1vltCsQ&VbSaxTSmoz_0G(kH+_pD_*t&CnM753!*3_LJq>$Sz`}c`+7HQ$OS^3oc-vkw zRa_Wvr(^cS0Yz5%jqrc$Ob&c67SrCjMC1RdwRAB2RA(h95pk+$Zb7c?zNOWBV`gs{eLa*eA!O z8Y-qWw$&iKxUYB5<=bdl6AV<1RClLlEK7O$C5^y>0B%6T**85@3S~*zLy@``YSEt{f6MK{ zePuZ~l5ho$d8UP^wVTY%HXJGL?az8*(_0Ip+-z2{8z(pt9OGTP+R@BT6nXQa6YA&n z=ZY5fqSSYS4MtfJnOzLx?o@8dj1$Z;?QCdhv_M@QDA-YRRizgS)5bnn_iBb^e%;Ix zxA}fxo^lIxTk*xnKk=Lji(2EPe&lDbQ{_~+i7w=ZrgoCz;f529dS#l&9OozDXHFPk zY)z_O6)I)5IdkFkcaAP5rzo1vTaE88XXp19g7l#F-l2z?QjAYTN%^FHwp9H0v)1nw zlMYH*reOso=EE}+9NXW2x~U9r?|^#pO4Rb>D*SF-!hena_x>+$ULQGMH(n6V>L2P^ z8Gt$HI}1D$;#V*M9OKgS9%OZ;YzDNnY`A)1Ez2&;dH`5s?wfaq6~+a_g03_0OHd#& zU|Lp@SabSUvW>~%vDIJ`GzoRm1eT1CZClKN&o}})r)^?_L*;YSF6~mH`TpL zCvPC*J`7h|UxU}1;f%!7QS24&I}5t(`X^?`Ov_}9Ofu-Q|6#lX0>h_PP_PZ(Ji3_O zhOrl@YKn#DVCNLwcmJf@hA7)z9eexL@bmvXtq$nn6QAh`2kCI)2C)_LW@XiO)-Ja5 zhsQC!G32zj&fl?g)UyJTzfK?t)8=PUG&cGAr?P#IiZhKnNvI@x63AiljQ+b4ohpH% zLt|=*g4RlMWqu+AxW~z5WkUZIqpNRssj~bz_KK5kAHf5lu8KL>XY@+MLU*_WU)zv$)gLvy!rpB=35Cne`iYzLXe7(j$F7CRtW!=ixStI5pr zx0^Na=qT2FNH|zqp=bU@ukzRVwAG8VOB`o5EP>9Ryf+2W85pyv+?G525cGkuf?g3G za-EQ-<`1Us{OSw0>b#XWLo@H7=HME?H57ljc-AJK96&0&Dv{>K)Jdgz-LTG~CHqFl zUIrwV7C;P03zA4PIS$si@E*2QUOKc+o~s1>ihzd+gYPwV)pmQYm`FOHr2(3><(8P5 zt4zT|-%go?OIO$NRPYwi)oHHM^_DuK_`49oeHvOo&b9t!H-%$AHg93z-`5R>NTP(x zoTJI%KNyf(ooo+vo;_d6z=If(b>2ECI#a|5UE3o8zM>O@_A+2ay*SnNr*l+t#2HBs zVBaV!gMXw8`&#Mqr4ZndPB0+Z&|&PFN^XZ3T5KO6o_7bhPL&8kL{frfXU7t?rH_Yp z6?Ci|yEK^Sycq=}W1w#*U1Pv5jt8|C5*2u|K4_@d(qo77x?&3gn8=(c1bX1%q6h*= zSRp9$_W;=~o`feZr~^1JA%a+`OP`LWS*Ox?Ql9Jp%}~{rW(fP@ zBWubn*EhlZb7WN=f5!n_u{JD`wiLX!{gy4`%by%Ube6=o=iW0S#GWWj8apEaJDKs! zR1g$`f30!SiDmHZG4(UWPj+n6slPBnDd?I+w|6n;!p>SuYo>`iH=I~M%aP;YiZcCSu>3-pak`~0#8`oUUT8xCwSmu3sP5kyk zz|jG;acP!7dY*G7bDM;U~D^8|Yg=w9OOjk}j@c1eX(flP4p6Qyoequ5=|a97q+ zvMN`R5AoIjUVNlMr*2pI^6UC4Cujvd=3{m_8qhb+YH z>0yI%I&hGat;PaUW@2V7fPx{zrM(2aLmCuu=tE)TdpebbC9FiiR zjw9cq?JJZoiY1*uxQ(N$aSFu~%;rhr?-LvjDTHH%n*2HT{_*F-2q$ z@az38(1e0p;FvlnCq483)Fc!_Ba!)~6St3$u~=Q-Q>uzB>hP)RG|&M9H=J@=2Z7{D>;Lhj2U-SnMIfOAPSeV`W2+Z8}=b z{=nwwpi%V*4<(ZF3hNUzvEoIr8%{v|@G!nza#Q2(urW!5C(0h{J7SMFMy#wS6e2kC z{>t^a6>|1h?S7Mk?PLfDEp#s z^t^j4%CY#t^FpU`{UlkpvGT0qIHu2}%^-2E<(?j}vU(q?$+1w*9r0)Xw06UBbnueYU0o&PN>;= zZTB6ZK(gCdF6W{;{1;X#t>xJR#bV3NlN~Bk)&o{+EiKJQiVydj%9Z$! zVWv&*Vn*BWnASoKM=Ea$OrLb`I!92l=4Nhu z;WVZwFH!{sjA1+=KJ01ItDljV7O^h@E_me&(=-r`dkr)w*t?B@5&<`BfH@|%*$2A+ zNdh~D<47iAjPS-av?o<;2#G(}Ggi2~-U{zFE?%04k9Nj6k7tnP^I8At#`Jd7`d1=UNI=&R6r^QXfR%;>5Ktt^Dhzo~2 zJ@7IiiSW>0cl&hmn3vHJuQceqMGC7?{)A00)shiE6CbOE$`KRHF0~~z>Ep1%XYCnY?!Wm& zv9bW0zCK?JLF+34UjYiKrDK_sWw(?!&K?{H@W|jkuH;RT^&K++ZJkK(z)e={cLni5 zJaKYkbPB&<{>C~If|h`vnoRI%_fNC!>qhF`q8Rqvl^K^5XOESpWjHdBrwS-bCV z4CJ^D^z#8=K^7ys$K;l-Kmry|2GUEOfQ`#5n0Wdw48!HdFq#-((Op(?^)E~<_srwi zu?SQd;|IvvqhT;LGvf>EV&ZIiwrg5MzO{q0}>G%e-=^n#yu$mt!(Z(c%LR7k;rFcclcreiqs(X z!r}-lxd_))q7v3|l$q5#R7)3wPgjyz9lieJv8${>&G_zFK2l6_TI*T-VtT{Um1%fjmKM&vFd@<2o*KLKkdyBEXC<2ZA}zF5-F zEQPNFU_7Yw%BsFY0^;;K*g%2BwU~?{8@$*5iD35yxg>uVW~Yz#L)hs9C$Y;&w*S(8 zU^GLGjO=JWZ@>0x#SYI;lAd;jB(I1`AiSG|p=4mi#$v1dz-ezQGUW4;&8pLCfN9G8 zv&S7+87|?XZkjbglF(YffRZEu&~n52B>u-Jy=4Hb{_r=5=UKHa{jrSc*kK39Pn+4( zmJ@e>lfRAbnk3};7=W=5X=iWz!1qk>oiC7W90mq>6w*Pt7dl#)oVaCOXMY_GnYn>} zhyfWS%wdN`h<+G#l+{%s;0>IvyJ!A!vrcIX+x4p(vz|$fngB3fm5)2N>$J6@3kgkA zVZ`Q+B-RSJ^XipW1U5zxm!?&))4=gWH6el!ycK4DWtrRGL;v4V(TCOI8prOAD3M_M z6e-?jw|8!4yJ4ge#lyu_l+6R_shECG|KiV6qv8{mgCvO@T!>;Tpsvw3&X zfdr(4t^QPC%2+Ma(aad7evMGFdu09`}(}hOOge4Sst^q}g_bQxjT! zr&SbSNP(8Qs=IUGjkztWm^!$T;sHP|01c;BNI->pCno4ZeZ7nT)Nz|QjXts3C77$< z6&v|8uO?5=r(c65d0O>DQR_tRgtcTy>Y~t*tHK=%nk(YnC!%g=BjySbZ+^Yg^s(mm zUozKyV;JHo(D?DWa5XZD7_baCKegzigT2e&NF_MYF_ne?xCNO0B%lhQ6>}v94KMhA zD0}mGsM`O3{H~<2k1b1NtRpIukP;fS$Xd1{rYXu!Whr7}?3J}ec4Zxnq1zUXxs3{~ zGBFx4P1KFSNQRm*bAFfme!st;@Avok{_*?GAB;2CbA} zYuV1^=Gvv}h98T?nhtgOXy3ylH@~})kuI65qG>=NdO=?7RUHxFt*!k64JJ6T&h@Nh z86KNAE=N(+TNu%7k7*Nos37jDS>eWVe7+Yjyvx8M2Tfh*K+J1ZLO90eZK2IaGrjHI zT*kwfLG0GQkm>h(Urd3RD4t4S#w1k)Y|{6?^ib`LDo+q~I0s??E5&0A8o_#bbEH5J zK6CI+oV1Gi2g4`+a(y}ilYFPJHNC6KPR2=Mdz`Y)Tzp|C=daVRNznl@2M|;2gP_Ea zZqAQ1>hQY4*HYBEkGtiaL}!V$DI6!-Qq0sOQYALZS+fqEmpe~fe~weB9HThi=@c?l zL0Kw*cw-pMDF|9h>87-m6RTsa8WoGeUv)%e`uJ=2>cNiPU=Z30xR@?t zEKo87>YqF&lL1O`pEdd1P8#2fTOH?YG#G<#(FnUAgp7-eq{db`5KXB0kv)KGk%BcL zyJ0Y`%lG#Hy7BIh9tjC@J4^*$eAiA=LP2`#kL!0q3ep3eC4KkOeA@lCVV+p~M7ezv zsIxf{_zkl>KEz+Siz_5o+Eau@QAY$!k~h>N1D!Ein54{k-lwbrsnfZVK)_2{gFimF zFplG_&_BKvk{tLD4r0t$H82CStRX6dxr_ZZrPJ@CRN2aasyKt)_p{MkQdFfjoqL!Z z3+IcSvhAkZSFa33ivy5`hacfQ#EK_-9h1jQl`icA5#2VaVe3A=ufULW$_YaQx{MJA zHpQUOwL!~wS%!5%25jiURdl^|2muPdhZzp%H=sz+pbJKrF*(ev1`67QT!)D@Iq8BI3j7WxU#B^dQ6()u+R zzt5Qt$K0(_5*C6zq@AEi#9>8uw5VbaA|gX$eNzfx!3{ySIX*5_LP)%n<&}K|CX@Y* zBhH`@u2DE$qhlWw*K*$?WkGdIiyARb3N}0s*u6!QUhF}OmZoeACRPekXA6XFbS7zH zd0~Y%GJIw0d7-&WF=kA|VpA3lAT2atp#CO*a_cN%q)6&!56m%$8RyWJoGgwi0s4ZUX`dPg5;3dy{>1nFH zAd>!Fc7O5xtMUgevJL9MNhy9k=o{gbA~AdfN=%NF$1D3qAlYg;K<+LV#f$9Jw-IPXrrhWmgqOHH^WfbP zVS+__NR=J;DYC87$9=o}U=%#;)7DYr4|dJWmd!0aZW=<@R9dDo=|d72C>iPll$@gtSG&i_mQwLm zi;cx&QrKPclx@hZc3H@4=I++P_sOytP?f^`fHX8W2on1!5i=9@&5XDNNLn?jeBOUj zQ!DcbX|bFsbbbN|PO2f?!?Vat_t4@Z$$2OaS%^fd(a?C-#t! z%wl&hfPz81xj3nt0$(zxWg5w!#jLY&o44|~c4rFTSQP9y)OP`e95M9!Q zC<9^3E6eBJL!loMc_Zh5ju4$E*tq($J~1YFer=?Xktbo0xt7M{Z`V;DYA zBd%u8B;Mz7Fv9cn_wO0iwX?9tF>-d7Aodf(R2Zr?-AP2MM>OeWuNZ3BEt?%3PU8D; zmMN_ix(7$t`9_ai9hY(+`fL|aXz0KKc}GT?yaLcQlEy2eU)YNIrdarl`Hcwa^GGPV zoijq4HyLZnE0^GpbYx`8z+)6GoJ^O8qLh0?UmQM+qB=XbJpZCf=nCpIs;x2<=-e8LHKVu0wWX1H-EFDFwo+m)^8vu{sK$YTa3E{%UAnC7 zYf@}q@%0f*RVu^$u|7H|p15Y}J^@89uh%*3Yz;QvV~G}tO8gyJ=(`9wkwv7pDJhht z`lgsVrID{61*=dnJPnrf#PgYoKDnaEo%O*}dDskfXz-FKMP&QBd#>f$_F$*;pnt?g z4WAZzyznDfmcZfXnrWfg8=nEj^Upxic<+d7>!}l*K)XwzK_0e^Xw;J5z+i8kF(8Lr z!s<5H1?jIS;J`xza@@rV4?au$)HU8gf7GgFsQG5^xd-l9Upxh-Z*q6+hFu4FJLZ-_ z;R0zQLnx?;siW)lM#sVA)8m3phAuQ8Q@;HDtQ$f{Va`=x+J(=*xcS4!ca_IC-r*08 zl+&7lBD`*wSbOD{^6xm8HKePD<8F0X?y$CdhzhaIeslGV_3Uz8nSW(!7*(v7ycvc% z)St$ktM!Je3}zW(!`=9&pKPUbeNDq&EgZ4AHUDBo76wmwAX1mt-*otiyMb7Q1F53! zR`kLf>mkUsQZ}15rYpwxn|X{%sws5*3+|9th;(85dOPn1ss#qHgQcyl(w>Bg`;GE3 zWE+_&`IFvd>3T;R2L0|sRZ!I%t77|ANI$!k66I`sDer~c%N`R|ejiMw@a?U2My_eG zDs z>Pzrr0j6_jm3`^8tA1UecA!7+1v90}qzjq!hud#4TpI*q(6#hvfi*V*@@uN3fb zpl`PaFi5}GRdCqmtz(&2H-lsN{y@X+E6=S(^z?hw5PsKcd2mk>X(CraSaO!-$Ac!lZj(P}N6Y*%0fDq4%9E?(O8W{g1xAR^~1nf=}JEk2# zo9F56fNm3-(X#jz(W|#Oa5S<@aA%hCYe`g|i1(z@L1WTQ0ojz2CO=X+h@N4Hmex5J zTwch;#D;{-SJQi}1&Y~<;P`LRjb{8f^z!})t1@)x#PYn8_hq=8? z$t{_G+WmqFMBct2~r1C~yX*>=+ zDFrx*%<=w5|G5Jhp_iJKoh*Dj>`yuie5@c3F&4F)^XV>Rvjt#Gb|ZRFN%?9! z|D|f1-s7k2)KnCuZmuO}X_oBW#R)SS0}-15`f2j%Ks!-b-xbSBKAQp@>S;W>HqZnl zc${pQpsbNZ0>p4;=2df=wUJc&n(|b>#|o{f6D&IMvd__=VN*-%!p+L@8cNU>8XB;A zI)iR&(PD)c-l{Q-wl>f(JCQK)iO0ye2{?WnA1=uQOx~LV2JnkFiuA+WcY?C`uC_wg0_V?&z-@}#6vHB#*R7&tg$Yd; zYYFOXy^NK+`zlr&yw^9&$|BKsVdgP-k#`5qwiN(819**%Rkbzdk8cKyHX$dJJQXZu zQe~Gyb1z0)$y+$!HXCojynDYfz~8Oa?#M^;1gi{pP$pPVPkiN?xn?!e*uG|NHB;b^ z7Y_f5a*TT*PMY*_aWY3g*qIfgl4lC_J#Uvl3!M9<9aFWno(?-=1c=WCyb8RB<6}d( zf0FdA>>VG^lxTXwe_;g7fl1=RidXaT+>StH%}azSlw*(TxUe(&Z~sDb3kk}AZN3K9 z!=%R?^pvNFUwywpR0O$&B*bHWp$?zegqc2w81+9Dcz0?d(~9HdC650ySxv-9c($k9;P0`A0uoWDLgml4D#4Pq_h;OL{(~;YS)-)d);J6M^H6*X|{gU zw&~EDDVtme8y6>!a4r*~FTNztvfBW*H?Crt)%#2b9;$WP013P2ZX-j{mf1QZ0A4qD zDdvMF0~v0c&G&K&Rhs((hl8&o+&(wy-hR08)|8X1eD#S^0wf`ru-gLN%*~)j$5&&n zLf&fz$DuL*vVuUw>^4!j|22P~a280Vv;dC(?CuehH9c5xk*KU#rHEb0$t2Unb$ZLR zMGAS}ylFQ;rLMYk%+rTy_CfA?jNo2p)h$u*DEX$8?S7}_j4$QhJA5193HNqU7g;RS z)5^RTcKiD;%h)J9l}1ad6;7RmUCAHJC@K7Qk{m@@OgwJQPoxNpR3Qx>#W&pgwl&#o zqTbtOz&g}q<}3}}G%u=f$ILDcse+U=wgXayBD*YL)?z83l!is69DJI>pElx|pvg$6 zKn|dzm+3(sI1-;t;QA&)0@!>!ozudqm`Hqh`JQI@ol=L@6*A+Em@|EOKD^I`?mRjib`^pprp_*x_Ofbg zN?BVfMvV_*^TO5T`j86tOZ(CsjsqTv7Qvr~2{;ne*tHF0>;Onkv(IZ4s382V+g*}c zOFL5wl9DtiT6kYz;p6ngb`ZVD5SwYY0}@xP)X4Pt#x^DPLNRlk2ep3f5aFMb*t>EndyJdRT&`x-fk42GTw4LunfbYPj{<-4yfu$;e| z*g5<;f2W1}g9*mI!k z#ukYJaAL)Sy(zZ61#)HBWgYx0R zPKIQv6Z($Iz@?4= zg006?zcr==WO^}&LpJ-M$RpOqLCoj>n70e5AZ(G`JyR=I(W?Mp(&*>9tw6y(afohD z=7j(|gJZkQa~<{w1>DoEK4nMW$@6I*4|gVZPDOTPYxauG09$sF#D+IMddrw#6h@=_;FR^LdNDzSrDk&Q4t2@ZFVn&qFHFANd(mi2& zPDo{SU|mCke8+n^Ef$~kdLch{=)2Cn-GKU^Qq38@FuYpK;emO#NF zC2FpK3l-60K6%>$TQ%x?>e9>^t6@_N2XdeHa0`o<2w{&enR>v$#MiDsVI1f+AV#Rd zd6U^95ml*dfElT*BBsVctw66N%z(Z2){E;x^GgA7AbM7Dng)?7>SBbpTcP+Q|# z$ek(NsdaBpU9^m#JwVP1R=80#RQ*6h<3Z%Rzp{l}ozf~I6B1cWe!AZGbLAItr5XMO z!iAX1S^Q=#gk!%0iGTN%+c=>P!57w{1P9n25VL9ZTQ}a=kN^#bxwS~osA!2yCtnkL zq@AOqA~`Z|S<~7(Q%lRZswXRcCVjuiew`wR=aGDhXXOOm7nRf>1=vjjZA9&7=sD@_ zX{SZz`#Hx-pYBmwQUl-aXRkxI%u|l{k{_GE zt$oC5qEt2eb&~tEAE)jYn~FZ>diH)l04Gs$y6^H`(tT=HYrVv_pw0bH;dgBiCAb(X zB&==)LBiRz`iE+nUk^&uJb0v?VFNn~J1Pe$@@UXG3!4I3&hmJCT3J~U8g$@&V+Ksv zpyiBhn|hD}L6w3ggvdbopYH#97dwEuQc;DXtbJ5!&9)Kqq<8mLFBC*EiH70hW|Fyr zCQgtj!;Zs}&7nAjSvK~dN_>-pl4Z2BqO}Q@@()i+Jjj#UX6y!0`SbZ$?;QR%b|blK zmdy)^k%t`+pRqkVAYC(uEO^JtJC78rvAZc&LvkUDmISISzB>ww0woUo0k|WZ&4oe@ z*hQOj%XTF~%XepA{7@&XvTJ?yipag4j`CO{F;!Q|?vZw^jv!v_ManSB1~lpK-Q%oc z?l`#rOEq;n{Ega2c(y{e0nY9Tw6n`D;;Kuk)G&_!&VoN4+#U@D`YFQb)C2}dS4*p= zIwC>e>O$rf$(t(MnljJ(YYzq&%?x_1;2DCF4>CuNY8n2No2~zn^~(8)ZGsQzZIbz& zbbWAl2#nCw|1~5SuSgjVvzqsskLCw;cn*e_6$j;MK0FP(Bd4zA3IY%p8l4L0*3PNG zL{!pbHe122?(ZoEP>NqRp)K9iH%P|EgGQwMryr|kfrq@xPK})$U9l^{Q<#knagB9B zFBp79g1LZFE*P6}O)Ng&(mAPAAmIt||2$s|NZ%TQ5?ewW}D6 zL?fko0*1rjW+@@73<2H6>A>=gg>ymGXe2vf-yqtI)0%e7Sf5V^6i>pIagGow_T=NZ zB~H1>{M_F8^I=m7`83~>TG?}aIVA8!TO;TkrHkgys#GH>C|%8zeZ_=uFe8Ef}r zpxd6_3AD5th@bd^SQ7__)D@wSJNe_6Uou22aFGejvJgbpvxB^uIMC?E1tRX=txkr+ zA={$vO-I|$mexwvO~&t|29ve^0nytX=NbUnq`f~+A58w6pHV8rplR7+#i zVkv1R2q#R})U(khh#uX#zB~fvi-1D_bnZ?Il?$|NG_Pw2)fD#n*tc@207alrhQ@er z{GjvmbV!kl>9ET9I%AI<2VO{9FFhNyeQBepcLPxm4AY*OcATy65q-H1-Uj_ky&h>q zVx_P>WF7}nwtzfUpbx$%7xB}(XWJ|w%uM?~z%js zL<<=>(mY*I&5w4Wkt5P)9tGvBSev&Ck3HKqUax)mtClf#qvY&=hP2DCl`g?!cxcp% zjWW^MzY<5Ce?X_mi9VPh5@`-dPON~*}aSE-QmiA{JG*W!e~I$g?(pC@^s zrbx2CkXM((S#Z*Rf^79DIKScT27JXZ{BNz24&CQ*8d6UTCpn{5MC%q)cbYrmUDdJM zY(B)@HFDxx=Kwr8!WWfd@}}1uoxJsef#z5}aLtsOaIatX=h-c&sH*t^MAt>p$cy+b z)O@TY?5MP>^jX_;B^N*#JBV_Z{6u2&ZhQHxnarvKten4t*5Ta75f;x|K$uD1T3>Mi z_Et+_iEW`ym?dRRxZ)WJ?6^pp6JD&vrFh`EO5j@VN)eghfN_*});VWqRh4^wX+Hu- z8rJ*4Ce<*omezPZwhSJR*Rk9vg?HRx!6M9ibNMh-JABYT(3a)&N9vwbK_uiolwbt; zRM5nr@radP?d=QeVeuWkq7YG+qd|mjMa#@xuo{@IRmNOdJc)5OB>-Vtks`Hm z3mZt;2{bc>0;FwH zJ6Sjg$}vqzm|f+ybcS$9ypf5r&Xi$uRGEYE)t zs_HoW9IPmB)>c6WU6TDUy8MFo00zq2j}t0JPkt;hTCH6uhsfT%l`g+=tYL2hEe>V| zM=V8tF#kgB^_i)GM^dF}=(?$tc(&D-o#2#FW4rQGK7?Irrpw0j2d~?0Pjc>jkB}VxvZ6ZS4ILw z`KcuAmXl!*C`Jo~!>e@8q(FF&JiF%EH$t!VfXqoOhvMdojOGp5dv;n{XE|_v&A+ygFjL38g3H;= zOE{In!~?!*h74hQmXPe_w9=*;MMOpd5zevATG>;RF_YcHd~b-i%3J8%6Y4f^+IJiq zy%aP|!#v!_{b*E0xh%TfrjWae5k!r9p=aA`$Ix4(x8t3nRD;^oBn0Y-q=s!Kzrj70l2~6MW!A^Wy`r1gqcHxraA5&@bC*Oa8elYd+>YV_QG6@=s zc38_2S;x_3t_@cIh3GNqZ~U z`@Sy=0P)67>j)jFxUr|Dpc6s%xt(#c-jP|nc%iRRYzI;SkW3(g84ifQnN35{JaP+k z}W-a$zZ5^47_S#IE^yu<3gr| zVHV13Lzn=~0|}^xC2rBaCxLHtN!E@cRvSx_iX4o0Is!A1*4%RuMQN#!QK)T?h>}r8no-Wqy%|VMXjO*8j$!C*NCVvGJp=iNk>YvtQdrK1`Zr9RM zyZ0~Kk8|XU+8drk`u~{OlX8YQ-p)`iys27LMU*HH!JcR2OW@E)W=II4c{()YnQXpoXpnrAn7ppj+hAUgE#fMCHQP z@f+~Brw|!S>p*rXOVeNI8kT6%sAH(9Y>G5c);O(dR>X++NB4NasaamYFjk62ZIrCk zy1gu!|I_`emNxus`Rzt3P+oq4PL=$(>bUFVMEC#B+X23l|9O3D+9MY%mcI#JKpn=3 z`zQ{LA=yImTJN;&{BL9;JOWC+j-mJ+D+e&GnULWvK@QjrX@<{iH*0|TJ08+W>%af! z^*d1h8ScM-3jaWClnMy^k9)9x=}8A?g;MK2W-iQ*Qm9`tI-FO3j@2ME(^{xyBEg zOIp&|wy0fi|MD!Ax%Jaw{@MArpAT6i%&v$ir%n1%{=8i}mN3_z7R>%JB52unb)FQs zr17&aduZIxX6$yD7QZt?k)#;w zS09?JM}9i<=;Y=PJ_W=<&&5ZNxVp2LxsJHAmmGEm6ixkY4`H z-r)}huXHxG50#xd`0S7_b7h+PYuSN_s8v9zi1yU zqEmw&tBzsX2T;ke4qMbId8`?nd`3~%zd2NlUMimws#?R z=1YawwSV3EognEweNntcyVsKQ^Y7Uf+}~yfbTQNO{dWe8dxPhG&SD$el}?Cd&zF_i zZATguhCEI&e|0TU`jx}pTv+?Z!6OT4DKDpczD&psd6~4HgG}2RlJ0Dj();+q+1Tlu z)FsDMLm^F4y#T><@Ax35a%@rQ54W8%%zN{cXP-7!87*~mG&s0^aTQ6{h`A!#-Ap(Y z8M8ZO)aYt=Tl~(D_lNpiiu6^U4+>vt|FnIInOp2kdN5<=IOX|QbdJ}z=9_h6uf}_S z5Geba7W$iVZVpdwTu@a9lpQaWrAx=9oJ#-xw9AI-r>p!mRQThS!};TxC*a`&vNPh3 z8YH$)-s)#peH4FWP$5!@UcRcuNIL0rX@BeC#>gY_Ci}5V%HJQ(N7=AF0^D_u{&_F% z?H7U<;b=aUnvaP*E<*l`DIOhn;@}aNI^!Men-k*c7RP+0MLsr=T3s~52%Ej+MH@U2 zD;-9Kh4$koF~>FU_36l8+uTZgvgf;!k(0aK>L+g*Km4MbxG9xkHln@dkK?-{ z<|^-nO=ot#E{-qz@+Zwrq+ShG6p>x9ZfYL(fcuN@-!I`l~EDwo>U+~CMD<6}P( z-q+syah8`*nK!%^aq#wsLpB}Dx_*Jwfamho&U^muF>!~XM4sc#_Yrr+hbTw(wU>Py zzQfb_bnipzk4VkdAwhlDBES4;?#R}IlU+|Ql8eNh_GuFzscmK8`}ZY?s#03F)LgUk zdZjD*=&xNLePk1wMN0E;MD~a1A`;eG$oge^8ICGwtG;8tXoKzh|19-)@mgU#Z>~9g zW5c^s4vy7Qf6i2(n*8Sf`nm%*bo`9rHF~SLUb$5y)Xz$KiBbcdu0&RycTJTZY9V^a z@9m+h$ilUdjzcZRDIms?4D)bWz1iC>-ibkpX<_F34=zDJ*8 z)L_|RLh;T7)* zTfbDgX&6p$2sfX7JD44pZ0+mc`{32t`^Zl%3MANuKii7Ouz`=tik3gN7%jNgx}3T_ z1UTtpbK2tv34atn5qR$`{G76cEwmWwu-7D%Jah^A>9I|O)4J2`>x+{$b=S@~p2%EL zzo@0XC6hKj_18V!KJ9b5ghwJ?7bcAAMn8Q!M+}PHl+8ycc9R5pA`k;2S$K`jGw4O|F zv3)hwbsKJ<^p-+LZ}ILk#qXQ9tZ+EF1cUNkDlO>vgslTte zaJ(q@uk_V#PrhG5&Oh3|Fu4oCtQ^1K%|U+n>w?zJEVH{ys{wBA8s_TbBC)^ad{brX zPyUrkn2LO=|4s4EbRJ1HH{TXt89FW3Uf(2A>e?>ft!J6UB`hmz=^l40`1_3bX*x{l zj8!J7SwFb@NDMwx|JIg1X*s+CCO(bbx%(cj|ID`7VAmLrdmqPd^}vH&hqd#h7Z%@E zieyL!0{sx;nMAtL(^H9=uV7k)S3pVAYLoi;S=dJCuWMqlf+LJR+hRzo)pp>w&d&n_ z#Wj7=H!Q3#=NZSSq9n`ytjQ9)de}|9KJ;Xf!~{w7!x5XcY{#1qCaWGsMITNK^wt`f zY^gjj6g^{pQ<3!0%1QezviN6e0hMvb>Rr(nr=oWP+yvX@+5NgO<*!@kUUyUte+evp zxS%hduSz};=;0E|C%rP z?_VqSzupW#`$y4@E!_Xx`K-IO|2_1-9{zvbUn95Zb5Z~J{Qo$(2qR}~7;qc^>k?pr|XZ0hetf!XhKW z*JFe|2qW8w(1^=!k=XNK*LDFhLFWUGUdCPnUig39Q`0@BX2$CutvjtCv-uz|9$~T#>1(6MJO0 zJ0*XeW*3T|k&*oNNnNE5M4;LJuG=K=I!6xO$oOx(^#9}cz2`EoPq}xIZO6YARdt`P zeq_9tIg=w)E9e#kn7@;DdbQ!Hw?>WQgN>5gb6}xvUyDR_}O%2^#nglW>GDB~q_T2MhFnIdeN*kC0`w{ml1PVL#(Ae zn$y{Z`S$Gjf#jnV)EL=q?G+Q-q(>+KDKLJ02O}R9AbJcwsM%AZ4UjCF$-z`R))Tq@ zcFCL)1S>zmdR`neUo9yQ;rwFc&Cn7~ULNjq`T=>7!xsE7(R7lqoRP&?6;>a5Cw~28 z1#Gj3Y6ziXD*dwTk{3{J?d<%q(ruZLD5U?E_Jc^V1>{Y5(BB#t8y5sRD=E>rlO$%H zrdG+lDhI?GN8)<%2V`JrZ@M%f?{BQHArxJ|_VGY0KYHB$7O#1L>@P2tN*zW_>G&eX zt-GE?*7xxQ34&<)2Zf-NE@-wQY1$Nvopl}!0#qH1MK$f0eA&K}u`>)RWln#=n)A!p z8fg=2w;=gMvjP-@^rk&l+aV8#M@V!$m;b^ECtgZnKaA;hmkTrEN)UOGFO`L9?wiMj zHqwgYB!<@o6Co@5LSh^7WH{wmEX$(HV{z1a(bsG0Wg?wz#P^$;J#}-IoYDz-2?zw{ zwk07oJ=_DX1)#EXjK(-mhSia>@JYCTstiiF;H651Z`wTyO(5PNKz+b2p> zDA}Lx(hcY#7pBZvX1&86M$DD*3AR^9jlsNVp9}*drJFNL{w-~eBow$(4Z8&wl$a}t z!V%SmZH~51smqdx_s<~G*zsdtzX_3)hPc{!5`)kH$1A`OFs1agw4TCPUPvz-PO!Rq zISPVgBoDL?TIP9(Lh(pb6io-vJZW=4zYt8^X@G@gwZ*g~ zHsDssyWRq_2;Ww~1)+StW~+M5nPg5hr;E=j&kczLq&J~E(J9jVoc6u6Sh5<*8FRZ)_*$0}kkH3)W1@SX%RtUzCx4Opiz|p0Tyd<_Sa8=ipM@g^ zgFeCmcCn`ZSE~yTf&YL!R>+I1C`G11_YQROymo#+p=0UE6=2N(DHhkIkF5$wuh;~; zJ-I8ZjrWJpCWkV)t%6|u*mA>hvQ{LYJ#s$5z>CQaCUp8-{!a2W<&a$5`A&vnpl-xt zdKSEVZeyQ1gvrVZQB>?M(8|g4>%;)uCl)s3G3!)#_c-NC1IUbymmpojJ=8PwitTCj|mn-=z_^i?C=RJgD>@QP^CXBFXfP#b98CQ?WX|Po!AtN&b-s zJ?C_VkKyNZ-DNg9Wz7zUIIBV|xm!tJKE5f&qVAc}kot(vm$mP_?Z~1NWC3&JeZN-~ z7anX@93jx>6Xd6T!|%IM4UeAR)k>(%K={i{wA-gSkI2hJ56x83V%Q4zUu&>ZOd3`n zM^^RDSp2rcQAh6o8uEL;TM#wsOds{l5}SDBG{Qr^lAV>85`~|=i{1oNy>1s+B}1S0 znnZ__1{e=U=nj63_0inKhKYtO!bB&JM@*!UqkW@M6khLgcLRYvwA^rM)cKkFQHJF1 z{;vZzbDFY)(6=YeQEa|MR%XT3XPygvV$%pRf5T^pQ;KhS~cjxEWll1BtYAHc!{OYLIBsKI27W3PO%U z++q7ornkHAMh}Z9qnXgJV4A6lv1=O%$udrq#&&O#{X#?KgyODMA>#y` zocK!%RubWqxF+w9rfEku17vfciM4bwD=$=2);Fy?CGw8fM;+ShQwn>{8ie)CN1FDL z;XG~XY3C+JV!d$L#fm}z2DE;XjKnp3sJGn08}^n40Pj|)`V&ZFSn@tu$@&1oBx9LeS2^~Q;>ERTp)RCc_)Hs*NaVuNzyYw|&G=fx9WC*LjdL6iuGz0YIvznDfM?N1FFT~XO z&9<-PS-e%9z1J-y5W2f5Yl)pB6z&k{DZJ0F&++4qhxmxM)#GZ1h?S!@U5XkpMB}ST z_mkX#l=`>SsTN6^}hioq$7VclF+{Wm2VxyojT%9b`N&d^+TbgD4LJ5Y8h zOMm_HT5Z4cA-6Mi3&>wYKnpUqGi&?3TcLZ5y)7!a&t)KXZZ&#_LzzC9z2ng38x(=p zvRcfO5t9r}#YfQU&qHa++u(~Sta!@ZKsffwj&UPGjeTa&#Dl*u*kj|ss&Z6um4Y+L zs6ywq`hC5dooV#7%rW2k2F;gZ06U3B1od`A4e3e=OKX|AglC?a6|PPu+Zj@+I=q4o z3wJf+$hL;~2#+H_6^8!CFFVo5)U@2|caVc(ea^Td`3O zXWQ&vWWD}iOr;f#>y=H<-`IOEc=Xj*^$ihTI#RB!IAyaAdf!MSRT&3oz05F2!AO^A=1T}u?WhM#6%jFy1v6@g6qgDX}# zsg=E2rGyl9SG)5RqTUcLcBVDq@*!UX(qcwa&$p62po~@V*4bp2XrUfFWV##`BPZ6A zm-E;%zG@jF6>OL@#Ko-{>`j`t;Qf8&mO^?(@YYf9b!x$2zmwr*^3?6E^d>UI8(J%T z@ib@XZR6DEJe5rcEgJDpeygkYSD|c%QO|N$#HeCTwD#rs>NWxH$FMc!p}s(_E0x3H zV+x`*8zSmQKTIdP+9{(6p;^g$dh;X80BhXx7=~<3fGVMw?(QV3f)_Z5op5<8UU-~Z zkhDRjWx>V{mFt|06}9IJtXt2uaW$Z&Jv}%MG=dp>*Wkf{MGjQ~y&!F!P%0w%z30|U z+sGhLca#+%`FUb|-*A8cQNNPd$t@Jb{du@z)qObIK)t3Y#6meMDl%JgR^q#9^-o#0V799Qt=CmbPY$<$7 z$A;oWy1#Emt<#otC7^}C8vRZm!hVo2G|pTfzlAzE+19L z{Tz%X#Ns}`3p3*%N8#H5EQOf2*h1I_vnGjJdmP8wk+r$=^;(D@qWI_q*PX z$MiqM%o;kFHFXhjj8<%n!Gd|3YK_t%pzLnvS$i(+!rLeC+Z##J$JOpWy=D(6G~F3a zgIMYO*tnu2ow-#d&$$ zx@s}4d^$GPo*fqrN+PSEJwCXtiP|(2bbAvnFjMnhN3ZwYz+!_ms`;&CQDsdjQ%F({ z-5N0z9~Uw2rIln2n%iF_9DEUy*x9>x>ZPR>H*7cclB4HPtFw0CC4niL+lh?DdYE^$ z-wx+)SAr7D(H49knsAjBkp`di)JMdWif)zsv&hEtiR`?$j>QLyH;|0WD)V#ZzToy* zN-(+c{KxLDAofBKkvOM;_$ieGGrMb5B&(68fXvT=nMX&jt~3PK2NwsI{uVdiCHq1E z31?P$5SH|#*>$)^{!otzRd&1LME!7^v*JEq>+^}Jcd;C7ZSb@FI0=Y5f8{VCB$Ae1 zF?z_jmW@NQC*0TdcNW{D&WHx97Io-;q@m(sowd3c-Dk2LO2eDdv-dV`X zI>xjz<6;aNdWCXYIZJ3u96J?qA9kZQ$fl@DBgPL}xU2MRfSIEwAV(t&zRYh;6nbq+ zLr9^luw6PDDvGe9P9~CLid{ZX4q)JU zyZ@{|(MqEVj9R*C1Wk3IBDlw8u}IYWTdPLlly%jxq6MD)EE5$U z-6pDc7N6Fx$tM%4=(C+*^RDmM$Jp0_@Ovdo)f^w( z`$Xh$U5$Yt>@h0EF1E`Brb2U12c_dM-Mli+j;6Q@<{i4qu6M&X{|*k~*L0?=jv5{k zLd=9~j<=0{_mx&|iKNzkYrEiYUwWUX=N{)Me4MLGejQ+=YcpHakeXnVYuic=TtyLY?#lIAXEV^r_}3pw~#tv_q5{N`q(c zwY&F@0oia)HA&Fu@F-4`tvQYEj}wJke?UG%@Wfb_ChcCBhS#P6rJ3pGu+SYMw{13x z;?bM%T_ZwB>W!K$dH#gq!_%KtcG5&t%-!b=<9*_RV@KyYp^E$n_u6ZLnXo;yQUEJx zaYhxVOz^9IrMHeK3n@wvu_n2uq{Q5%t6IpX>l`#bzQOp~u>+mXcNd^ZNV-Ev`BsGR zkkpfh8R$yMwGkT$1bf-S_mY2|ykVPmK|>HPDW{#597YT;u90K3bA?+c{S9znk=MgJ z8K7AQ^=6n+ndihyS)QfPXW%5T#%liVvh${bO zhj;~(PuLPifC!CLD0&!!Bd#R7h%g6`#DvAlNN(+6dqD`P^w!=pXD%K(EDlFeBqq-I zuCB&3L#N@fvkfyV^)*ipGwIOMD{qubG;T&n8NimI?DoHGtd#A#ZaOd~T53xqHd3Hx zUfn`E?W9+n=@%%D*(oH3dGVnst135Y4c=!E-SlN)*aE4}h#lVrX{HEpzKIJvOj_P} zl1cIW$HgD_F$lcGg}Z<5N36*E=4)tb8|{fKU9G%+JzkuFTae%n=x`{*ZtmY!8roM) z79I=6Yh6bzyj^C=jrEh*P0IlBitLP7?qof_#0D}hvkbww9-%1cQ)x(u)InV-H&4yg zzWIZ+z2#r%xcpm`^evI|2gsyVQopTIBAu$$_hwftjzqYpS6*AeoUaSh4-(Z!d|BX* zE405=lb2|1mSER<$uzao^C-{&l^?F6aMgc4%xcl^94EHRp1!a=FKr=q%09!qj@hey z%aVH+)wf(}wF(jSR=1axl}B(SRw{bVb$*A=Fd+V)CfsOtfAm(%tgOh7h@QwoO(CrI zd$U_aD|2;KNKQy335GDDpF^0KMG7zGBFksY9T1EF*tf|@KPlL0Fyr>x{E6H{Q$v|bk{yiyG0R`7*bSj6s~>j$UQ_po7Fa>_G4bA0Sbfz0L(#eTGrj+D{C7$W!`w

%?fZRyKJVA-`7Ce;pp2xYG9+m$N7t0_-)Z=)W`!EcqTVGs_dycuMnx$t z9Wa|XA_XLfVCVi$|I?o>O>tg~z>!IS^Hk4oC)r(w(1N1|9V3NDp9jw_3Ox$MM{iM!CGY!(z1T1I=o?~wf30FkhQdUXqCnXH+ADL{p* zPByl@%(XNVrYuabq42LMCZI=85xaF07BghAKwiraWS02WQ_N*UFvOmnE~!E{sM@3;k5oCQh039 z{KAKAfeU7JU9}_GBeQZyl^~abpT5|w1HT`DSjeBQBwZK-K*J5-Rv@b1f5h(QJG#r;8K#el+*L5eVFtxE(w0jC92r6KlGN*(J&r-^p9*Z58FR^ej=jBt9?( z1h~>T0A}yybph#}vZ?flC}pubQuSmAmnEs`p8jiK_OZq4uDW=t9tKCrOQt3MltTWx zjA%4$j3mn1*w>}Xw)?3fQC3!lJl=wYrdmdk61n3mi-aho;;w)gI}wWsY@6yuTT&Rr!NPLS(m>v0fbP&))pF1UT?+Tqc_}J-jB3 z4cOGrzrSO;!doL|>n_u>tJf^2R4L#6SDbNG>F{e=2UrH5+RdU?UpS!kRAA&!Cylmc ztl!`dDh}WEj4>qca)#l@hF#0Qw_NDcTSMkF8HPCfZA9rmH~WArSNU+;jxCtef3r_< zB?$4-au<9}j3b|W>n6~XT&x9x6gxb-+FXHbzh(E;zSYVuIyqFb;GNn1;37`7kLJ_F zgs@RcXHJGW3S9VJ)`6XcUD%ETce;sQe} z&R#(L4lSNAIP~yc#YR=lLKSpQGMFvL0D#hKlRmn=qCRV)_ak)8UOHq4E#zF9SnSwQ z^O^H;dK+EdHuTgEfuNRG4X4M4p*u1Xd}hZoB_Wa<9)9KvY)~K{DGq0j?{^5swv~@h zzuphpRJO&Qk1f9^H|)r5s;ns=h%pfz=P#M0f8XZe1bqQl7EzU=cH(j%=i5l_;8@)= zcTP$}tA^Tnn?Upvr|2_6S$`C3$pRXMtme`Esq+O`WhK<^&%B{<9mS0NbBP$BvZd@F zXO33*8`rq2m(|pCFl}P3y^B{n!nvyE@*E`$-HOI8mPP>pY!QXI#M|pqPh9XEcKFro zFh!kbM^YbY=3++Mow3VU&#CduV;FW3|Kd)f6?ra4;< zc&eDqE?n^}y572bVN%&e7+-Np8(A{Xu3-1~N)}nmxcF0?s$u-IgDNJQ1gyFZ!aJzA z*E#srGKa`YfRD@pW!0)-E)>~N6(HeHhgT1IWC*2l5hLy8e^6FF{20D&7{5O~iPI^% zh0;~|K4?|usY!-ApbM!*S>5fdG#C32iBY7~7n?K43FsAbeP20urZf7FpQ0jSoJc|x z*XN-_C?fAVg;pBvw5wW`4!^G=8x>-Ejg(M&dea?f!FNZt_ayY>jY~X(AJz!Bd0vt* zMaMTJ1zE;?@x%b1QrsPtjZzowxfXcC?-dE&6I`7+tc>AUyqmgL))G3#vB*4y{OTlMVbacYd3UKW4p&s=sl zd&Yj&^^peqrHJ{yZX{p5MRQWi!CB+TSyM}0^9sZmxibif^H4=(T*{w&|NaOhPF($~ zaWs zS`Gh|kT|hVdeH_9PxQ&}KjaY^-GmHrjd~R~23Z|=>PB&1-uJ=X_wU0kEa4mI{%^Ka zVS0w~6I3Xm_oGA-=@O#mob0{L5mB zB25V>wK~K~;x6}=%9(H76w}nZk|iA_z4u)?UPPdov{VW3fa3f9caxZpWMqgZq=l?^ zLTw^xl+uI*Hq@`(+gr(Vh2kS8--mgMZF96J&38+RQ~qh*g658T^sN`zU31D3Zf98f z0)z}0Ta?h3n-G2*UXU~bc+a7w$8md{!26upLFj#FDM@EQlaN$8iR<3m`!Yi)!$;od z3nohH0EjYVXPm9?nx}^^M4tq;D-u;7<{YUL0D7hn#6J}CYNRKuo3+s1AE6nucPlUn zq*L!Bk{*X@kPqF)G5Y70*|K1O$?Q@l6F)e2v$~gFPRspvHji%6SEuSJezl~AeyY!V zg{u1oh4zSqlLT3oh@SyTn|fIC;Hoi71WBFzce96;6=QQF^SgV9B%miO;79)Gs3gi* zArlDd5XtVvfOl?}2s#YW#t-h|0*MfR7Pz07{0sm_n-#VdbF>BXg99w|-4AbFw`4+7 z+2Z*4AeOubN2g_v`TBEOo~2bYV~`#@4Qi^1(98{}B_sqedlNa?iwQZ}U_FSydB721 zE!h$RDcSPI_io`>0)t#l{tRH3wxlHlNo6OJ4OKnTlqSl@;}g+j(>PDOr$5K;G?*0l zqH(bdFM6+z98oddi!4cP1N!J2BFS6Z#)+{A>a*P%Ttff0HM-`IcpwI~T;wUtLdv18%LI>iQRE>l3bcWJ?>?Y;@n{zrJ@kZN1fry1JyyT$zE#@YApnN~`Cz zO*C^|*!k_0~mJ&``%PX+3+b}7I0v?Em`iSoa`;&y%XcyiU)aj#C~VEc?~gDs~gjFhWbePe*U zOhNZw4J-{A472hqyb5!{(G;xb4azy$%GhU=zB+mTiiY!>9jE5~;TFT`=~MfbFPS_f zsY5$Pl0(d)|GbM3w)$^vJ1niy9d$C|SU?xM-*jKw24zSUhREOcVB_;^opn!9>*n3L znmS>?c=rMIkxTVAu+w6O+=Nb&b$cB7pV+eLWbe~;29}o&*wz=UI01iK`$PS9Zfe5z zxUdi=Lm>&b(wUqyS0EOQW9tb++HahOvsRJxvPjzG1bgTg;_5!-W#W8{Tlv+SN)aG% zdPe(ZsF()6r72Ngst2U;mnYg1%ePiB{OXt>2V_G2zNWaxE)s|Hh)1T#DFv;2g{jw_)zn}|xI z3`G+={2AX!wuhJGhoa0}(J zrzY|~c`K(VM`csRlWXacz%mq93K4Z6Vq$=TTD^|R{GkmkvfnEeBTJ~^`0rcTwkl3w zBWRXJ(kKJ3nfFs}-B|FkSGVd_il*E)$M!xjOcZt16X%ABjGFR(^+=}Q_I_&$k2%U! zr{N!XzB$lbzV6hJPSRvos2ik|0!GXLf6YcvO^*Ez@SHgpeZ_to9nPCevemtGB)`a(NmN4kbYp%2>! z@zTIOVV6nlGZpx5^)u4wqr*T2W2yTzJI&bIE5@=#2X+Ao^Hi^z6Ob#+=?RU=UE&n} z@gMc6q4WLx!mg$>QjA0{e)Ov&t}G3~_1kvdXqOY2ZiEd6+dR{qK3o3C3rys%*j>8k z3DB7^XG~C=6SPVc$$RtTvRM+wBJhIo5H6jqeM%ncHSUk z^Do>}irM0&hDlX-ay<>AJaAGpsF7mncX0$oKPt3CL1s{I#|0T6Sk$t7p`N+zhwDC_ z*Iu4|x_^z4HFCxX6x?6J0?ScXJhkB#Gj{mtuiGX{-hbWPe5$>@x!1?VeymYPfnRZh zC@e07ML?rl<8yfTWz3W zY!@VwWzge{e^&g4W6X}@>uS;vzpbm9Y-dy1nqJ>pZH{Fm)>Im&C&xC7*X8tNp5LN0 z2!sBW&}iw|y<_!hM)l$8JaCP8Xako?1nhPdz_Hcl)+j=i^gufX9b{EU%+_SlrQie> z0t`c{h;+0w4SfIC*_|SXMI=<$8I-pl+_Z@_#~3Y*$e`iFjIilGHHSCVJooOW@HoUr z&fK{Lqrl5#xJBG43Pgf=dBtGoW*7a<#uX!?WZ#VZ^m(=tvCI5l{U+?nnT_RQWo}~& zv-v*Er7uT!lMq?TPwz5KjFNa+3LpISxq+(m0{N`Yu zH{n~*b@NRHi*o+)_$8>H50TR%a8@2%vkeojoSArTYt;aly6~q(0BKM z$xO!5@vB%Bh%4gVS2Akj-y)ywGCCgJjEMeyTaA^KtMR$BMe#nIHC_Plnr^voDSUb8;dZ(QvprnAaitXwN_lU}kG? zMRsedBF^18)*d_f=W{OH27yD)RdIU3bZZ+#s6{kAZ-gOBbahRRAaSwlr;2t_w~;hS zyB|M9?Ow0H4sLm^@hJ4d?=M;f`&{e|NQd8q8S%Oe+LXz{-Z0}LK%1%=BfQZ#zZsS` zW@dJDm%m_oN8V?Pi^cb{(7Grs_Rxh+&iX@Z`(|7V+=mlp)ADGWF7#>o1Uq=!T}&Ra zanZ}oC>bo)fEnvx9H+%?j2iP`oq&Idz~$s!mJ-%l4C*^rPcs=>zV|Xc2TBe{8F45LF!z(wNJ~)wqcgpqbkdQ+c1dChi~;7x~SdXA0Qo) z+}%es8f{$eB}Dx;?Sz7t*_MyQA7Zj0P8M=uyH=8ik)H)8oqW)&razQ3mHo|pv=@}; zA6r%w5t@MfV9@D+eqcFy0kw;l1*}_LGdEn;Y?pm9Y~9>EPl|=w);|ji{&5_m13^^1 z`he1a#6H_*G1Xr$AWEp^7A!s{&Ps&LYVR$GorSL4&*N^qhQJN-<}RztiF~CYaVe(a z`mPVI%rIZ2qm1sAJhrQsJ-Zli(zb-D$`uNjP!&5p#(tkP3;O!n&^-oXWXW7Xb_Ww0d6^}W%Fjts z4XK8Xts$A-sgp@q0Ayv}=(Z<_*x$Jz=+7qL!QAi?9Tzbj94|RH8 z1Ek;l(+HfMka`Sv1{@4hS)&_gUrrBq;!yA%NQ{~}&{X0a^fXO2A95io$L;y=Lq}3b z;z&nE`g}4~0pqWQf-|ZKdo+8$AqqC-J%4^0jd3&86qJA=MJ#@`wJ)wG` zTl3|$0`o6cXpGvCb)-2Yh%hvm;^+HgO+2z+o zb&ogXeJb}tt+$-5v~l*zc@nbSqa$A^_Hu!d;oH&>u~#Ar3J$jC z=)h3JL;(?sf@bX5Y|w50$}{sqMJK~y-fwi?a)V9toxQ3b1QuYZB`M5gzzBqtE0(97 zSKu<4oF#f^@$1Jge{fEbPgPd&y{b7{+|ed(*LWA07(hcVtYPRqUvd}ivGeVLu=zYY zs3%9&FXz)nJ!60bPbs$~zYmd|_R7ibfFOB9NO2@l+8*qA#l*>+#U-wo%exazRO~8 z-eO9GQ!Tkf7!QhqZWu!nNdzxrbfS?VX5u|HhdTfA#PMUlcX)ewe@4$XO%;0FE5NDs zw{eNrNAECOln`vc^;Kx)8PtJgpUuo@ztc$9-iy4fNEnKHtg&u5#uH{PQGYMt1JjZl zgE&n^-tC|h@KRBhfR?s?c=%H>xy*v|)nb@nV?liRDd}L{+sk{z{kassG8HcOvwY>D z9mEu^zydoMf(*upc;s`$nS5}XKZhp2*b6hpKeTVy;Z+>u{vVK+U_3z%<-vtX?XM`N zE;ctrskxe?y`dFYk5emOyvQzvFA@Yy__lZpJhcR1wT=A1oesT@9TZ`+(ez&KQqd^0 z_Z!A>6bL$@6^9#a2&lBW+49(mXDTL)=KF@6^)MPaYgl&YEy}aX2z+q>g19*#AdJ~{ zvEIG|oQ>U-622r6KU<7(yn!q=0Pb8|3Kt9|@z8&#a>_j`H2mQkGy)Bgl@9`nIy#-X zi@*rXCMt83iUc#}{6C{z#&OQT%TDt{_E0>mC5z6wMm9zvY`_~kda<>rP0j^QkG5s6 zqe`uAcIkOvZ+>0rBE}~abF{9WM2+@2ojs?|4?vf|{~{;rkS*69aKyl^_Gyh! zH(JgvaKIL@%~c$a8pfyWX#VNk*5fHgkP)4Vz(x} z(}(?lIS0>~({+_>86mc!B(`y0f@Le^=ax7#b~NvO0L_m9Im{{C?N?hb=DxA^a#1l> zBGPTe!sa=F03VBdh9*K2-hax{&S19N%QDil7&7Az$TG(p06?gy(^s)_UbTCVrsMU$ z3_h*`xRY+Mf9S@vX-K;H41!S3!uA3?WoQwz1-2VFNR4H>CKBIcTfRC(+ZqNYapRpm z976!g*@Y4^%8`#MuM+u80f@es#^Khwk2mD{Sq$%C8H9&2NcQgK3kyvT;}aL0mjqr% z=j1IXu10WK^|2*M!(x;%8DPoXrMO*2exO7vmqb85*+qw%E7`*d!~X1A#pG<0FhQ>~ z&LcOr>21D}qOk1Gi`<{D24vac+a= zYVkkOgiK%Lom8}OB~YdZBp5dfLL1)sBhH!D{WUo`p7ql0>t7Wc3U7i04|ZW(dUls2 zvMmR0kqqCK+6rLoZQvRsgUFmr=t(W?sDUPlS@&t!$Y|ReAUYa%>}%eB0Vw{8AY~E2 z{5V$88x>tyoN>|k;OUY8Es(U(om4=kX_XX>`&ljyipjHAzbfz#9h<2?TgFvW;!sX? zM+hrTi8)N);q86X)tB;TcxV6fj(O@`0_-n+Nj=j3Jj5}c0 z_O|iG$$}GZcJtXkv{1&PnZ4@H8P~%U8&$ln-8A@?{M0y|`L)b*on1-Bc!=b;IM3() zmR0BdoIDOzbq9D==x!n9f?bK)NY<>P_pw&NJJXPe(K#=(2m6NJqh00QAqq%`yRz-@ zQ5}-XA4wz?NABn$ms{21F^3l?6}0Ibn?q_03$e?uyT7M{%KN_Yy_}h2 z=C#A}6S1{mf{clVnOgM0a4ttJKaek#Me6+xa|!b21ua7>pt9+^Z_jhTn%TzI=~RPZ z3k#l0^!7Igsz}sQG-^R!W6kYe-Wew16L$2wkLd>w7&VtnTyef-Z-*nP^H}kW%m`r^ zCdC2arhIZIz2V%BRmuAQVpULxm9mW=`{wV(0(A4612v|`@pkEy5bh^l(!gd;g4CBd zrJKk%ZQI!z>^Lk&!3B=uXzAatX}PMqyBmI6kB+GQ>xVG7g=%3NbY*iOy>VuXVnz`h$!N zq;JU5yXoJ-=1RvIS=ICmJd&r|&kd*nFXXs4iAf8?b=&kUt_>f9|5}A$+iB@PDevni z*(_stZvBSro1fW`Aex-Ap*te`Ogl781T>lRg{dOvJzk%^T(q9{>gPTrQ%!9q`Mo31 zswq(h4T@xV<6+mk@v$Y7g!@Yw%_U==H{dqqSR%&%%MIPPLGJFCKhhgpbp>|A+_<7y zp;%EJ(e)X}OX`R&VoqfNcp+t+^-__>nPfZ%5xAAGyAj#lvq2A5e!cY+X?h-^}5yr>XM=fo55N`98F2k}HduWm6T)Zjk8B-M z?XKhad-UnelTyZ_C&QF(EQK4jKlN>4_$qHLl#WrXREnDfp$~(MV_X{6gZl#T*bxe* zlPJGvwCJb?TIv2W78wM#Ce=Wjeu|5CwU*D;x?g1y$0sU@SsjFu?MMEZ5Hy2rH;^O> z@UF*&RUBP?>ktJZ4^gr3)?q)O0ovU|J9qQLptq+$fC5&i(E%yPBhZ5Oh7aIXOQLf8 zoYfmPtvPi$M^_i-_-}kkA0kbkx>56gx13_i!nMUVlL36e!UhOST-81Ks;?VbdMWzx z<14DIn2T=F8to4@+8X%tza1eDA#4BlEM%s;1Px~6a++*BLw4ce+YLYSWDsL!XM8AE z+TP*kNP_L%22%Y~l%ZMJ##gJst;$m|IcsC};djZ^4=!-1PzK%&dmKk(bCloRPgN>; zi3wbm|I5$+uugG~w)jN^b7C)-=11?U`Jl1?IRNwoQb`Afdx4MhP8Dx|7?xMxJ8o!(l3rzP=Jap2Rv7*-VB{E>_@j#bZzx7t0KN&tMzMF>PkeT1&@ zu^kOJ#feju)iiB!&>6q$Yu8sZ$nbyHwccKn|Ge}GIWKxd1^B|fQHwHYQ}5l@{g61R z7idr=tai@Wk!=^-HbJ$)T zA-LunRW7dVBog}};iH3HSqw%q?sVT;^iwn2;or1>22FG&JeP=`i^l2-qK&HGIm(-7 zE$j|OEiUuMHt}9d)eY3c8h*cvTj zFFszDF|z0oG*J%T<1eLP{`o{Qa-VVjYVl7C%Qrk^_f(jc5bm72OL=* zX{5UK8%@X@_~T!GwJqaALZ&-A1N!8g&w$}I zhf`b1e%q(&vyK97z3dg5_r}R_+b6*~Yp?Xv_2}-W#>PK(O#It{u5{sHm1fZ0zYo?s zLxCinWn9*alc8am&$3D5l<)Wg>Gje^xeE7XhpxMN0M=q)=P?-mBubk;qy zJp`^>mA<5cr?7C^m^;VDjdy`C$Sd)UiP~rs{ipqcmJjMg!#Zr+z_vtSUj~oRYSi?W z=^dyeM!5Kz1(U0CenH+}9Bq5ZYpTt7H~`?~c6^Mxe3hc6#oK6i2sUf9ne$)XJW{{C zWPWh2Ac=$9Kk0u5>`;n`9^lNXvF8fM{9L~#F{WVdaMFD9oI)WLbtwFw&I=vW?`-MY zVuuUFB~EWyAZeE>q(0-5GNO{c%u|6^Bc7`4Fa(#CQ+?!36{YDiaR|5zm)N>N4o42< zRe7HxVcdKRz}z1^p}Z%|6*^xdMEnQU;q4zuy||B`g&~vt2&&NjvbFnRHz=-;~z_gc$bR*0b|pX zsvzXMpVF8RX;HgzY7$S<%V#e>PfAhh%cm*E%0z|zKU~H5q z89w8V!RRfP*QU233RQW63^!)s0@|BLX~6$j6Ez zqyJz-^9##7w*YQ9^yoXic@#vpp6$NW20I9|g5@}D%>nJg7a*vPmgxxhLePMe(kodt znXLE6LfujFP5^Gc+!Btb>OX0%Jv*eTKYRhV-|l+B-NV;~qq20K1oUD=N7@^id)%Q> zw*1^&Nw8SesK!{Vs*hQ#V)<`Dvj@N*d|6}s%m1o6F?yTec0SD*a7@JqjfU$8x|s|9UNJuSAxf0WIC(iyz+Y zU8vj*gkaDPOf{Ys<1|e7oaf;73|=cGuj|vqc*I=35J&FLodUOkuwz6SLEVj)ImaG5 z!X7?BnXHwHR`>a!IB7bjk#dn=fqZAnaADQ39QHIJQi>wewKGHH$pcgiXe~< z9%-8z#JSh(LT|EOu#Jfh{Yf5H*M zEW9Pk{kd4aQUtv)NO~`6ZXx$03ewCTqBb7h{7u(+i*RAWv4*Jx^rqN`FVGTSAyQEF zKxS;Oiz>f0kn9!cPYPFnhoK-9Qt}mwP(iTbyS86)k7_-#)59stQViNq@?+sp29f{c zV1MxF2;fo;JH_q1rA7@{1I+TD*k7K4=cpUR4^XrjcZJ1;p`9b(7SW$9b97nI2!Lv0 zOe2&Fb9_1I7$B&|1gV$B*TWk^H>`lmyvA{wKtT!SUb7gE3$ze~0?Qd9fAgXFw@9`G zgbqJ>XI=I-G?W0&8Mpx@r$qn4T^$__{#p$snU}aT>XMF^BHeQ5qC_w;aEiuT& zxV7qJBb?n7`SnNgA-<|+?U($2mKx_dN41?kaRWIxhj?M&<(rY*_y`I;&ZC_KbXpjv zybj;4F~>7!fc%RTmPYnE?%-5m+<&?RXWu%YVznd4>EFGagKM( zaysks_A;XU-==f&q>-YJq>f{l^_|0a#-fQMlb?O9b6i0fiQd5&QD=%%=VsS;r1aQ# zy<86LRcw=r(nZi>!=K;`w5y?KTW#GS&V$f%3>%3x3mb;Owu80MU?C;5VMXKFPQ5uy z8h#fIUFq=U*e}KdqxTl;8WxF>+eGD^yUFJ1w~zrq%@=uolT8>WW3%hsE?>?}3xu2< zbjND)pwV9R|JvkYf_FI>a^IHLU)j3gznp*vmKz zlcUv`_&Y&W;qn^&otP+)i`D}=fsV1yk(MGVJeNzZ$w!rN{$97D`P zW!X={ythqgY^a~I$NETr=tM@~hmU!=49N1+`fTomDZg$bPnDdi@UIz_Olpi#M%2gu zMc<{LnA*N2T2^PcdqYIPROy}ljr?^ie|wC}=ioVR1@FY~J;+F#=ut2#w+`Zp7h0YVKXrYY4EZPpR9@Y2F)bW$hq(VQG~29 zBh+eFpMVm$7Gi3dmIlB7D1IFe}bawZ; zHwjx_Mkfuft6AhQDVQ^T>u2D9gj@g1ZND9M^k}Qa9u>bUo)(6KQ(kG7$a`K|o332; z{*)b7cFN(G=9{;E6nFRddK)}yuuHBv=+`|n}Fx#pF1@IPX#r&G!tnM7Nc=8C*OpIE6;-&-<|dztRv$>&h$ zeW8PA9Ypcx=XX_-XE^s6PJC1m3D<(rEciOhuD$htdEcQXAqEbw_@vP_RI=1NBD^AaWdz2Vy)r(|YhFmLlj zH}#OHgx#~m;`4DB_)A6eIiW*mQ4E@kC$OxQ5BdI5JQ2Jb4>p z5OBHh@2VRxi=(|y4`%We+k3(ksaaWJ7>@xae)d|%$x-%Tj#9Xe6H9}=iq&5nW?`Cyi2qt878S^!a?;Ey1Cn$KZsfu1~Ia`dT$8vdJ$T{>3k*@g%y_(O= zsG&h_^wF1AdWxMk6U8?t?h%(M!qCF>k@$QWrVIRWL+rU+5}eCVNHF{x|ZpaO%<2H(6j)KiDkhn)U+`)K@gtf^}W z6fg+;y*et$OIdmQpFexl3Q%ra^Sy3odvhc1jy(5x;1sh?k@$~BQYws)YiqO+ai?{Y zrwae>V4XU%x8c6Q^JMqB%R@=0#(sBy4MVbDoQ0D&^ph6yK6{Xv*7d3l^mj-Ozt2jqCiE&`ref3Q0d$aTmX#;+fy0THe^1EeTii(PhbHSg}lUCvJB4&nRw`{&_-~L=k ze&X!y`=M^m>xn|B*t)^X7>*h{e)8Sv1IPb)4cc6!B6zsp@aJEoQw}H@lH2S?uLHUrzm@mxWT-r;43MK zIB%@oToi&Xc+>e3a}{tlYed==EJgS`u*%cK+HB`wzx4F{uEBH0-id2{dvM2HQe!iv z?)D&vmmzX>9`B1IXV~BKZ|B}zoJiG?DgYW98qkz>2!r^kf~!-C6mEdk(O(TNV=k-w zQB|Q)X`S1RVJxN+Xd*g2Q%4@rBwqxQYDV>BfAGq_J@+g+oi(Lle$|y~F!Qux+d5SFe=^9fcL*IWZKmQq)lNyqOnJGJN z0f6^9+`P1sI`&NtLG(TBl5QlFNuVK1#s$PBPQUt&WVGtIQ~)jhO@&?gw5jLCRjV`V zYGIe0m6MA^KDlzDi`XycOOLS6)oon)YFYO%xhg&gee1blrdAfEHLP$A8Q4W&swLDz z=?^aO`ol0>&193+4gRCbqBq+Kv-huu_zGv-M!Ei@Je0VX!v%C^lVC=OD(rBsAMuF= zF$Q_X6NqvB!7$o0uFR#cmf4Ojem`ANDa{fIAcd$gpNpfME^h=u5EX~aLo+SPwBzBH zGoF`oSq}n*&78z^oemb3SdydM04YL(*;&B%P7^5xOpMU)4fq<>C~L(!!kq_u55pD^ zO>feM#vB&yn@QYmY`*x$w_0I#-hhHAP635S1@i;4p^Brb-p2L$$N_zK8pA$tZTd;v0gbXPv%%9!<@R(Nq(uM_4zq4|V#NGZ{Vezi& zU^6Kl6qE6uZF5}pY62c2ZVp-~g<6-&8(h+wIa;c>ksyR@ik@=0IN(2=^mmd6o2F46 za?8`|#+&W&!L|)em04rK{VF9H#6kld!4CrZ>;_&)yj%8Eo4%nzNiM$Xb;2$a&BBX~ zyP`iwDD?A?)dzMeXCZ8`SSyr2e=uFn1uSrZHqSYDu*wOLyf?|IQ7T3rTbpY>=o~mS zV7X|u+>EYWSX`K$I^zd&ijB)?5utrtytSH%xD^Gh=j^!`z?SY8z_b?KwDLBeC zi?Kdcu2t6zGSFimpM#lOKgtWa^*?s6OgJu+5!3v8!a4~AgXaTev-4G3KI1N*{rz)xABveV^w`gJ~@l;y;G6ZL+k8ugzI~3^nLqn0K)HW94EHx&HL>&{(!QE78XV= zcRoA?Rzg9&gP%C?x-b6XP_Y`SvE~yg>gRXPinKF$gM^yhNm!o)+t1Yct*-qp_vfYS zv&eW@-j%bAW;C1olb_Dpv-jGU#H>I}ABBpz5|hO}4wFa&|9aO&k#I}M+ljrTvsP)la+ zJXSZ|_af2> zYNO_$HdhG*%U6a+Z7s0>)Jw~-(cWQCtvU0?NjtKiBODG}8RxC3Sfzb|wWEj4!`vvvm&`f~Elu(ehec(d) z+^7Wm_HNDMA}cb5i2;9x_zV=>hnUtK&Y1&sa{yW|bmOqGy|cZomZsZ`=@|@Ss^2bo zuRNe9LF_R{Ni;NW)L{Ro*Pi9Q| zR)>VUTZnUC=V_`bKW!pgXDmKx=bSeX?ag0^P^ofG z!vEnWPBRWqCY$&GyLID}wGrXVS77pk?S#nMH^*Ef56 zOX85l7(o94hSvBU7SNAJ&)(FWx~V(-E8IQL<|%r%I|^=aU8dfQr{Ve48`8SK0j|Go z#fba%KarFHEuGt|&vO>%qpMP?DPZTiO!OZL3_9-a!Ht#nW7cXQaB8uL^r*(UrX0~X z$#PoBnAdZi8a7iI!v^W3wqiV3i&hQC+aCw7oY!$%3lT&?6c_ADqj9&`88RRck#@bp zZB?>X_m%oAG5HBaY%xs-6Q6&&IG2egPmzzp@~(5|s}Z#5qC!6U?C>|~y@AxBr2C4<*T|9;>nw>`FX^Q}bK zKJ|{tj06bOoZ1e#Dc8rl$)WZbCZChG{!;;Jtd1E7&pIwR&fUEOt*{^lL?oV@Hj}26g>-_LCI&SebEqWxyyY){cyMCb57L%C z?CVV8(Pp2JJwarrCqLzhK#>T&+JIA=twv2zjsuibvRY({v94}Ws?&(quTPzQ_IrKW z)L*mkUTGx`)53Rw3oPFo3jmR2%Uy1&Y2!gZg{u@ow0ZhpNUC$|m5lbDA?X zbx3IFV$ZV&;=#haMM0FG&6?CYjtfj4K;Ts6++(4zlZUDLABSR&n85bJ%K`%eFj*Q4 z(0_q!P8D%{@)flcc3;oUrZ>{k zyRpRQpx{4@Tbmy%s5@+IPSy9bNGlP3NN;H&-Y8erREK09Jfs!YYbFy(JGs=ic=9Mo z!?B;3|q%g3d6CJz3OcUd?z8Tw(po8pB>UYx))G>AYY7gw>V+W zSn!M%vzLu`!@+LshsFi8^t8$87oo~T;Y-^_njIG6;!!1dvFdv8BHGW8HL>5Qx#L)} z9-;`#Xztr2s6$CtHV1^8=9K-U2v*mRS zWOT{(EVfZicmw1lrrn&sxwbgSJjgGdGm(mQ^~ zDYUrhdR>V$OQGa*rkpt1l}R{NP#PIV-y}$6V5EqTPc!}y9B~|QkYFe)+armKz)RO5 z2nP+5v8Hmmu5MtF=2A&rImO@T_~$&FD(~f#LuiT7)3$3lMB=9$t^9gS8{AG;cl}+7 zFiD8y;P1d3zQH+Ak>?oz^>`ql=Ffl^U^ovuNaK#*25y?NB|c3Pt<;<}AQo#|mc zHDt#PGqd7Vmpo4k1@le*D$7b!bf#%WAHvqTDI3-A7L(I%&rkISgk|n@IdqmAbJ;FA z@V>Eym(hKdy-v6+RsMGsl;_JfDb{Nq;#+mUC#M8_44?`x``9*y?T-mz%VG6eQ;^2r&OyP77C}xN0!0V zm`W|T_gN)6lChHaN)U07V74QBM_xc3koKk?RYE%t)pyq;_7>5nzX$Ku?l#(Ms3c{Z zD7UIeA|0{ZsKxdS`HA1QpY`JQ{+FTV-nSMD%Che>gr3}FONO=ER9R7UMdqP}v%?*?S}M#S%y)e;neFH<7v*BNL;ZId*pk3>}{SmN}{u zCI5c9QvP*&?86`*DySPANF~0brXuR$<}me~Q`M@7m}}__Mx;(`ce)gsE$u@&=@XT^48^HCR-oodKA3M)2Edv0anREs~BX6141lzbZa8 z>NW@J9r^IOOA()dK7S_tmZ?QF&^S0GpcG;I&!IP{yfb;6);Emd`Y&t~x-ur75adib z#9cB@pKOAZBcaBEr%qKE)iNh^;e~U*tzEVFu`Wlo@w`DAs32anqcpcybP+R%3!G1^ zB^J~@H_FQlnJd@k?bX^+H-%r0eux;G**18wpyVnC_uF&-F(iqtE-=nW>zZW~dwo4l z_ii76CKWQdXS>s<9PRDtW0qb$c?yr{VAC1IuvOL6Ou-yx%8ogb$l}VEyG4-b)#7+K zh!(y`r)dS{8d=Qqa1FWYrP&BKe-FRh`!H%rV$6;G;3v(mlP+*S^RjyvgVc$O@;P}o zsNHTpoujpH!pn5)l#@d{zPIM(>m1{Q&z!baTP$Zh@b9~eKG0?!DylYPOl+mo2-B>{ zg!xHmoaVy^3m|m=HCv;w=4P;R&g;1}d*je)M85|3i7t9yOSiNfdS#er+0x< zeAv62zEFH?syKl`$JdeI#|Y|urQMIG_LG<_aA&m_A>z7A{%S%z4OHkM6s-K9%@PLUyGN#I0rz)o1<-X3;seU=g@?*&l$Y2=rs61x^>w|Mb5tX|I6biLp6g*C=eqd7iTH86 zwiwG0zi+HF!X3x&Rvku`Or5rdjyrc_)gjxhXyTU!311xd!ymrhvRZXu6R0AY-=5id zz${Z{ovJuzNK`KLT(UI-SfBo8a7*R?$xX$@Gaafb{Xa?X;?MN||NnnpC5B-_&Y81P zS%tg^4V5#MLobW9QZF;7dON*{y|Ou0a_Ar>huD~ye~ zeDMulirA<}7dhs7!O_qS7Gln@xQf5mk~`5i5i>s}l(luW*=#qr?W_aVv!bi1Fwa6@ zs!+V-)V8G*;=D9UQA~J=02mV9KJBZDxFrQdlSH==HjXT~p8yo633kwaJqcOv)E&dg z@my{+pu)Ems{M@Y92OEZm)QMXv!#}xK{Mf4w?!Y>2tMCgyXJ&x{bIXlTR>7`YHOQ` zZ>Dcn0==NO(G(w(?e*HvNSBc*vvS}R(l$n;m@#^e7OwAh!0L;Ncux;mTD>QNmHXyv z7cCOvQfAj_eC~Q0t>%bFXzcm@W;JhLopw}lF-0g0Y+yOQw^4gZjvE|A*p^^+*b3=* z3YP5u{&t0xcb%ho8{HOM?NyZh*4|f*KB#(iaSI~uM1D{4tX3hvKH!S8p@k|7)Mm{p z>$Mg{*D-UTb#lQtnib?W5MwFhi1`wHd##W-TX3;%={h7n{A5C#NK0)cKrkDT9U|wI!1P35PDOk8{{fOoe<3h{1{%kRtAi8(5y^gfrTK&GH*@ zNk}9rcr(!P+?Mv=(-8`0%493F48l-^#QS0BJPkVZPR7wF0nO;^j-o*q$7@L3#(aM! z9C=3IQ@dusR9P|zQpTEV3s47`DqVxcr9ZcgQMm>H6&0n82{SnuZ{d10h;Ky02{xMH z4zF(T+mIPz3;)8l-*U$`Yy9yq+dW6RFJxJwE*5_GQzkw3+p^i`@%1&8{n~wv<>t$J zFK-x&D|o8?y@!rjHvUdF9!tbqk$SgXr@bB9Gqll*eX_1*dr0rKzkCL)?&`$1S<^sW z&SdoF%iG*i^O%RW)MjL9sRgK}>!hg;*f&b4;w|%=LV8uBy&i>D`##|DcXl86?`dWf zC;okxqAX|_@3f5c?f&~6;%tCkYj!SULK;Q$lRsPib62{RIT97TrQd%%0BRiz2@jFK z-TD1w6;j5@k>>Veu`e+Hkel82p?}+WofA- zHA8-1Rt57!na#Y-{3g-Z*wrmhG9U?{-v+F_-`U;zcBzRNA(uO>j_Z0-Y1E}CVjjPG z)>j;;1}kb6RrJ*6G8oBz<88|{j?xeP{kBxoANnu-jwPPAgS>otsXLh76jpf7(dFgF z@91%&`E$88GNzh{&gCRxFcvWbSwdQtpCFZU)>L^EC2bCh>XOS_xyWXajmr2n9xGVC<`LI^Ly*ykNOe`zZrd(TgSp9_Lv)Wd;gyVtMeU4-of{$` zAZ;4a-q?!X{w3HcXYhsW*!vEC;8lp&mZmAsS_xNT@{pv?`#K9C(m57bC3nvZ^KNqr zQ;5QC<16~5S-Hbbo&Gy{3lAW|4Hq<9x}YEC)D25-`HJ4@$Z--eu<8`r>x(4>vOy56 z4Ih?1QejzA{ESk%(yA_;Y@^T^@jW*gz2e+2HhL;X3w;gfugWk&-<+De&i@U^9ysfe z+b6a1+{SXi(q-$H#|m`i^K`=G&ZiMKp>a8Y_^{4Z?#R@Ie%6I`FefoEyb~u) z?Gf@tN?$8o6t&+$JRq6btcKfIq zU4-0yEc9%hdEKl!r3LJrGs=It9)GGo+>Yawa5s1R$L;gl_wc8s1GH1yC!gIN5ckPF zd~v|PGf^_SdEAyxeCj6R5Tk2PdANF+R?+y=c=LR$uYw9m5NV_-JgKNGqPM20KSz z2wk)Xqx6k6%c6PDc3!I*BK7{ke7S3gAJKJ#2oh&YO|1-y+OB?d^SbUi$7;hq(?Pf9 zuyf}Ze4R*F2WRS`9vxNNiIEQdUEL6+r(dnw?}4ch2ST(9E%H0d(@2trOFPpz*kWl} z&?UF^e;Vg9ymtH7onO(8Mw4-I?x>b$%}#^`gXWnQb{HwJo~cW^!U5CnTc5~j8w&G5WV_q>FZ+AzzKq6> zrY4mB`J{^ZVa+H)|JEjDz4(2M%pbhFXU)g7gKm95+S=@y+_|@zM>C4QcJ1KHv7%Gj zf0pQk&pkh~^CHUOEJzcEG0i{6Y_94891tVINM!TL*5FyW>9q#)Tg7=%lpCX3u>cNO z(P$8&`su!M#$xU*-IwsmrvDp4dZSXcy4gN8pOI62jGiamGz20RHh2Ff`s>>0QCK0e zViTnb-9GY9%4+&Npn)zKWlhs^5rg`RnKq$&4qQOu)aUMvPHAi`j6FS`l?Aua$0`O8 zuRZPck|*$GES|=`-&B=+JFNwv*jY-<^tzdN$`in!5Bpx*z?gsHFVwEfcPUWXrK7|g zLpR5cSmO#v;PTKoRe*p7zmJ0yBU3q#AnN~HV0r&!9`&>5QN$Y$+}alT1nnM?1~0WD ztAH)5u!|nXj>7(avhjEAmv_$mqE+a8;9?$vOSxq}^SKsp3%^b2S?IYfW=vlh$Q@_T zDlFO@*@ttBm3%ib5o|2X?X3|xPpePvt~n6702oTZ&9P2o-uR#OGA;d~zaFt^d}?1I^&ul4pY7KiR2N7-pv7Ld?o|kcEZBjV>P;Vm+@5JaKJ~@W&;^0a|TJ2iui0w4Vj z5i)~iOkrd_X86H8Z-tdqkueR$GZX;M|1czaY`M(ekzE+Q=e@VTI?FuO}C zBXx|HoygEybfIJKo0w&-yB`bZ5FeUCi&8$1!opw*z%AOvk(rT0wWk^SAaGi2c)^Q? zb8q$+kowTlbt3T!2{(`|=zU|~za&p%h;RIUA-#{Fyu}U}g@cmuEqZdNJ)2@x%Z6b_ zbxdITjVlurgfLTkW9ailQZv+A&`R$$2mrw-#nMY?(Pry?RHg1yurLZw>q`mzG_)~g z?ca!EON*z` z&li~Sh@ytyip_v_BM)_rv8blU*XdbM>rvi7WQd0 z_S^}Lvtbt;+$yNogC@c^Z2sk+P1`_qO7;2EpN46gMw)pzFD*>}vOHnyAgjy2j=6TM z?!SE^Vj@pYB_?dwD78Z}HC%DHijFET3lvHIWzo9gbaxjsu57+B#11(gyf*b+&ZE)l zb5@{~oXK|1qNHh!%l?0@zb2vRF+zJ_3gAlzkO}k#%(WkRFkJFXhzarq^7eQJfk36V z&O^fc`xv+Ci1`DIrAk>N8*WZ3FsJ-v#=H(i6v^-rFD-0z?-+!!nU)3fQN7(fNfe)! zUceB|EZnV5>a#R_2v*r{?2c;V2V{rI<3(Z+HXc2Jt5ypy^wRL~O#|WV%ZBDFclInE zlWU}-o@0U8H}Gu7!89IkddhJ!I)8$>G6WELWMhmv{H~IP3y$2Nzg<;5$m88+BPA1L z-)G0(63CA-LRBFG#xf-T*PbZ*PS9{RJ*=w($5Un2M*_-EA>xB3GIlw|G}3J^qiSNd zI9wrehojjcm;uM7r6q_W&B_c<*pU~Cdaia26~^9s&KI}Yt1<=IcL9|7ZQJhSd(W3m!!uPu;Sr~)T-&Ie4klpx;!y0L*g^wz)%%n9WJnagn-ArN++1L95-AgARb!WAt-9bha^9>7o_otEqAbT!5)c=E2c+ks3+|xGe|?J1 zV@TfBw%^8WI_K+>fC;?xOX%Jvl^GMT2!SD10WCJft3CG!pg}a}vPN-wX z9jZlB)5ldG1eQqfEStU({?DQMXd>8s6`kw4bR4O;%TY#LT5OE!V1VVab`D8(OMM;p z$!u+G_vsyDPXC>`=5we5u6=ea%&_A8P&>`JD`G;?8URCOD~dJY*4^Xti$|!|8s$41w~}6*pqrmH+u8~e*vOND z1#Npl`MCm}V2%CTDRZ~#Buihm`5!W@^8)Vj5%ew63KKsfXb7pBbcwUhzdOPgu&EbmVzSxmLfKW`mQ<~xz0Yvp+L60Se@vr)DY^|MaWBwm_E%yc3? zaag&R>+<9J;k&vYxNY11Q1;E-<2}#X#SV|oQVhv+84Y`5^PA39wWx?*kNTG3oCjl+ zZy5R6Q<_l~$;QiTaNUb!v2eako1c@vgVXUB`rV|AJ7?so1kN)TNU*(pn@6 z z^zN`pibv2e*==VWNjEm3Dx$tSskZGzQSsAFqLA3rfgT@5OIx~X$ITv0x2>0$VXs1p zL69wM#iuZj3@d3G2f1@Y@+AWvH~+Q96jb|O+XuHHg#dgYqy=3-zHSYGgpmBEKHX)!oWEYBeK~4WVjnirOYV+ z;U1}gWJ`klQb%VyBq6XwLGli0tP#qI;F(i~WlyYTDC@8rmuG4vA@Y5U{>IuynT$Xm zwz+N0M(3*qru@w4lwvqKcWVO(TNu7Yl`zN2Z3c^v-2fzMnw~|BuZEyMjPo=GJf+sZ z(6MJT25j3N1+!GkPuOI_IIyu&66}i}lQv*&n$2K9_k^%&wIAdNHQ<;3Y8O+{|tqYAqbr(C9F(BFSJPT|!|GmFYF|b>Z3y3XX z)#yj>0LE&c?3MbRpRK$K4uw_ZF#E$yZxW;r>iV%V2-HRQ4T=gL#SGh?Wa25XT5Ypg z1r33-j&bdxoAs9~-FoYg1u4$uBuj`|(ViOG9cdkv(aMNDx34go1}o7zJ-Sx%(%u-Z z=FQf*VMw|t?(2zrcu*RdT^!uktqj|9?=qp#PcR2m?_La zR7E->b*H_q1tN8nsZ$hZIPwu^{ltcYAq|eqhA#|GlWQO4Ly(x>x4`lTpAI|3ZFAW8 z=p%#B>Nsr3k$Gp04n;eZv1%CRK$8<0i8joqD4_g;!eyN+F1WOyvU_C@6w8qsy=xHk zUx)mxhrl_we*y$pPBmzN+a_3TmK9BVSzoE+2v_Z(MFqY8?bFt2h`7^DU4cl+N(3=1 ze7-$`sthwU_#RZCqYC9PWb(n*93VOvV-FnFbL)01w6??{_CG<&q#!MB z9sW}Q#Hg{AG~khv_!eQ?XC5>l?=%%A98F>7j&$g#sRc|Hb&G*N5;_W2Y*%W5ueHw6X835x31UJ_+?nN{49SnGr zY93ET3;X||e+Ma1<`-eSJs7l9a3kqP-WEiz_`&8^Cb0=&s}F1mYYV|6y+DNeY!^+$ zf&rxRMW7unI%lOf(?WNOoUB42=g|H}CpUP%$`Imj->-{B`Dk4$Pq=5hT+1)VSxvT0|m&K2dM%GAotzNq+Wzr6d6c{mRYJozmJLenVYewGd>x~ZR zlqhYzJwJ|L5Pr!DZI4&uc6Sxslgu%NkXQEwCGHV+tMc}} zKviIM*DKEs6M{LY;;EZ(dm^Rd?XI7fr?Ck!bJaUlZ>D;lc4m!TW)H9b5INb z(*H26H`NME> z27P(5iFs{f6_Uiv({Ky{%hka20e1pmjIV|22$LZhC)`bjg}f*62X_xE8N@j=afil@ zzdf`HdvhRVppD<)l2EK$OFt*yk$Y(8o?qt)Ze|vi8^a9H9U!i4n_y@lsasT`Qd*z;m!Lhl5~ix+VN@~Xv}U&kk4=gsSSVjKpXfq&Ao7Wl4(0=Z zaLS7ZU{)~f`5aoNmXXYrb|Ff)JwtSm=B7t(`mEd;%S7|zux(NzAL~P3Uc)QxqV=ZU zf8)XX3W9CHY)qFys86ber3_YBuLSq#Xt79PjU|{0G1Numz_m>>21E;h-Xff`L&AHQ z06oM+ZydvS{X~hLJym)TRD1n?q(*2HXGa6%%-iq?uZj2KTT&eSpY=@Wa-FUy59Ul>LWbSN&9GR+BOQ5GP57@%k1T zzFc-M5Axe2{Ui(N130;S5KRKKVWV(5IuG%Z<210@v|-l4z-2#jg~SF79AdtBymF(= ztV+R<$j2X@`w2Q#3-mDYIaf!@Ck~{E6_2%--Gn)9oBO|FLPZiRUQ_Q7TFlK|SD0H(|xkmS|6gO!@rD z|CcLLylYs@p8Hk9##~8@0K(d^qQ$J}g>n-ICu6JxT5O}G7sma%>ECT_WWz(x4AOxq zhL);`tA*s9sSv)0HoPGNSI5M`J~~LpyJShzImre3*+l?BlN~lxQ!&f!d$Bw-)x^NG zcBvNP5=wtjKJ{tba$1TF`SPtWKo{`L=OZ7Jfiv;V)9xCPt5uFep0bd6irK_X=hXv$ZwS}E>ei*GsXMd5XFqZx@L;>{ z@2BoLsd+tg4~-(m72dPF{CPVZDc}({Pw02vEFUT5dKt4N|M_zCJsfA`pjhS5?d!l z1@jCN(B5A@Z_N_5)s%dC28(kF_j8J~hojG`K+39V@{#JbyXe zYAbGh{==wTr+3$4Qe~IH_Q~^eg$qpj$B}>f`Vk{ zqvVo%mogws+e26G2jFbXu?U?zGQ*CH^oAy(t?E){@=zaN0fwf&simfC7aBu^IpxkL z|9JcACSaKyU%H*24ZiU2doZNQm9X_!8^J*X_57Yjo%El?ooXr@!6_>$b5rB8^m9d7 zAutaoE@W&D_q=amFDqe52OzG3HH#zvB$h_A3iP7{;ju2ub{6?z9WewL)`zTUz#aO;v(ztPy*&Pnw*sch3R%gbd9CyV%_H~;9W6;%xe z16!;tf-^WtCZ!rB*yvanMQMxH&^tG(5Adu_m5j+lDJ|SrxC}Yt443vT$|JRn$X}Zb znlM@$-mR?K-O&Q<^0Q(emaYzGPS9zE^Qgq9O%!9fQWlY)O_Aijb6xZl+>8tzzf^+r zfa}3ZnYq5Y4moR+`0m`=FNFMEgZd$ry1Oc(HxeZhBDH7BN`anB`Tn>BSIv=G7|NT{ zdCt!{(}0=Q@LaLP4im*dqR*wWV8w0Wbi|xcDhsVTRksYc(Xk{4KlM3`zrJVx-e2@k zy=4E5KJP2ryL0uxJ~0cF`^3;%`2_fz-xOeY?RZc(=Im&?lVW7fv>f~0+dN-&WtvzA zI$NNtQP2-#2)fS%^MRU>4&QOiZ%REjQmx)ETl>?AxY%={xQ+V_AfFjQ`G4d!Gn^9_ z6GZGi9EKpy%QJFKYTTpu!BCun79M_U)v ze-gPG=#T;7m4;O2&9&rdf_!EuurvVQYa$f~yK+8hms@C{t=5S>KAQ`+)*s6nYzO{yT7q2NN#`CnIwb6%xMH6LdYC?|HJCE?#Q2i@v=#J{^ zYC(^WMOm%+Bgfp(e67JXhZvSn@$Ej$OpynK#n2vpw2-Z_x33Nd44%i)N0UgsiMfNV zKMn+y74MVvp+-*<`cE;;c5+RIjplY?U5vi;Fc z5Q4$eHqDQ=6*1W1UCfoGWsbEUqZ{IMF%wb<)2qG zjXg#jU(}ST*0I!hw3b#?=>wK!@%*F%HA~fz*?5;I6HlDUVnjs%5?F#aOKnNa6$KY6 zdWpGwECb7xKh3U_JheC`pLr*mfw{>(--u`I_B1`S=+-~bT^5wP(!9q-X+*4aQAqu= zofmXuJEKV=lF63CC2(sMg`vp~9|B|0DY!r}a8?h>K3f|BI^C4-pwI=|h#gElXxckc zw5(7p3);o?fEACx3-XDN+S+-%#AC3XGqv>gRzHp_@RUb=KUuzwu~d`Wwp%+Oy^oh8 zITv_T3;)iWf;f}-iwZ=6@A{rZd-tQeyQ82QC>r}Tlz6czAnHUW$S2Hgw>m~eY4U(C zZ%A2pCp!pum!QlzM1l=ul2|an(}3}E+Q_6$1&@B4+*^S7L+?w)`P(;KFk?wz3V+x} z&5tu|x3I+R;(SK3R(_9Q0eLo*`~8a*PpE)zF$g($i&<&zi#W`^jOcR0bH8qW9f>=~ zgcskthI|pW5(H|YD^~-(T#mX>m?Np$W6^uq7C|g#0+OM*C{TXV^{=PBM`h}##~=5n z{lvz%n_753N_mm`8|@+#9rMus_X9(p%gkL)B09Vz)QYVJR*00Z21)6^Eynb9rR(eC zg?LthUV9n3=X#Id+M)d(V-xJL>y78`BE1aI3pJyfa{&#%#kb6~lJ{^!aU049)@T&ev`?42=Y4?Y?Gn(1@8%WoOo!3MAtV%<>0xT*+)x^(YI z79wlJZtG`TifWfm|J7(>+0&1;jeIm>O&h1OA}>!tri^-!n!1AkVeoNbro;V<2OE#> zeHh^lC(M`CooF@u>vTaazc4#4UNIp;*1HoEt>@BaWs9Hl>x(REr__DwdpdW8#}9bi zz4?CEa$ii*EO!UnEz0Nu2~l@6<$tHjM^P;z^TP$YH$sCz#w7B1B(%c#+UNJjQ#LyV z+quOh_8cvpY-)F4&Q1bHF1oS%*r_+y(|aLnGij+l{e{=v^lRy+IBT+rcj(;@L$0=C z%mg<^)FPb@MQ2MxAmJHk@Ib@Jwbvq}H^0^9^Rh-KFBB({#uDlBoYNSt;&3xTI8T&k z@!s8iu!H=r8s?c3{OZKG4sy6E&l-jbpQ{;-2?lLnqna0~IaxXMwS7cLaF8gvIWRcr zHi>_aaD#14kE$jR_cXVPAE7_*LvujmT3<3GOh3Gp#*of1u=45dDSgP=;h?25sz;^bH8eKPf+)fMc2)j(_f5JgOCA5zGoBQ!TqG?^4(HPtm08wGEo5Wm z+LzCBh9np{k;_<)3IK(KiEY$`lc3Luhc76g9Y9v)c18fhq#vWN16K~Kczqp3Ps6^6*8DY$gqvPGRsqnMc1`u18Xy>0H^ z90@d~O*=resqX<`Zerk0m}@7u52m*@Y)R#^9KuYIJT?J(4#_U;wEdQyg^kMLLT%Ie z9XIh7Fkwvo=I?Ub_2$3No9Da0?ZV7DclJ{Kr>QxV8k$5R-Kvj|0a}>2XV`{xs)|BF zGzR4>X*9_&$Uj##&u_Vy7eArB16Q78;;4YS<69`z7f`fndVK3mg{-xEV$q(Bu3I4m zqFPe};%nO{mg5l@@>5t!)6Q(7Na4wew2c7u?h{J`47Je7zN*Q_bVc-f`+a<3CN+ z&CKr`h!&>NAxx0lpv+%5N9N^sZ8tdHTo+u;QUeW;ZuuXokY{nFY!T`sC<9Xjaj(IF zF|e(xcfl#=+aGV#QpngLs`uh+riDaVK=*;MRIpal9iaVOa_~y#+nRE3ri!L*@ofN` zex_{$Hgrf!-j~E!q9^yO9@2q_9$<$9YA5|UM2PP*ZObp%40EBWcJ#*W9Zh1XJ@H_( z-`ae~`yiiMQ|kcNoac-)K z1?v)x)+{l7QJ}3<)f<%V?ddsmF>lA)C(B0?fy1tjbcz(}WqCX=tB^c-JPwstMUR;Q zK`*#a{prKhSnr{~$y{v%_RbibS9ZRXqT06cyGWG|O$OSKNQ|$WUpZBbl6c7Xs+q zCBF{RB>^qN)-a*OxUfymef{=MUK|{mq3T|4Q9SGS$$U$HF>X3r#Bej&w({?vPf>xk z7LRawmHh>`1N=U+Lnai$KMwq@q&R2>nlJxlrngK}BP1>FqOdVvw&Os{lB0Qvmxd$z zQSfzUYAv22@>|wW^p2f56l(d|Gw6uR(F|q(HDmJH)SxGJ-4m;bC^%MBWV`tpNpaA0 zHGS@5I~yRG>Am@ktDh*!`<_oX2cH1z6sMe|iYtjLzbqbc{V&zYPB(^KVLJNW06nxa?Z}Ok zmq2{c0t6$@)7}+$BNj~Iwj*FTOf?RW<+6>J!*OqR=}7rYsNaSU0gn@ zv?t}1IZMd^6P4QD)p~&_nJud~_gp%(iT&gwnjjV$*FjO{ak0w4lkUIg{UmYp<-M}>ehu!FOxh2dMO`{W~=477#Ao}$Wdn~sJ zih|Dm?|x@nNv)R5&36P%IjnnUTir3ipI&CTU)9$41r^-JE~bTJI|j(hbC>#6u?pTi zHn;kVQ$a6Y6784jYguOwN0Cl1&RK(aijSP6I?ujU|8N~*65aO!I)*Xuk_#HJ;QPD@uHCe+{}-rT=#pC~1!vfQI09&~Vi z;@{g%-$#CX@E{bGPXUG8{;TKwI^vwN*+BN|w0PF%a}Gl1o(A0o1LCvY3MSa7T=SZ& z>+Lc$0f?2k1OG!6T=dGcLr?mgrfD>#+`U~{y4=bQj?-6ct+lbDzmiTQ0zu)%yP90R zN1`iNN+?y)E;!f>_ory+`NVMVr*E+sCcHb&4Xvm(f@C5nnILddC>Yp`XmO>+sj`$* zCR}IxPYvm6_^W62;;ImzSyH258bgrj36m$lFIBkA*#or?(8YyqJzMN{KMFc)Vngz> zT=Tx;4fFV6htqi;ax}Oiz2<&a($=NLq(vvJwfg#7;y^Z$E{o@dGSSZFj!ayVdHq(B zm1RBRW$Ctv!xu}x7@|f`xT;U*<|lPC*U5`CDveSzQ%U@{iuk1_s`dBg3r+ZwB6LbOUcGzpd zNuVTJ-xuodbv_Z_vQExCvrwzCw&W(e8oub!wg@Sp`P4z^)|p9vaH$vuQBHsHiDCx`hX8d&K|W=+MwZl z%S6e*hI}Y!SjlCIj&A zs|us{*N(U}PR17Y;}@oc*sl0P{Jr zm)A#L%wmk1FH*;SjzCiN1y*0QBm>x)A%SJ@zI-`w_ z2XIXRxxW6$0TR$c8!EoqF5cXwi8?>_2 z;nunc=N6V~OF}WT%Yb5MfU)@NaD>Hn_|Btf@K0u00C+cdt-&&qQMaa_3yQ;VhoK!G zN%yZb{Ov+F*?*-0FdI7Ge(jLF{SxHvB$%fjWbz?FR*6iw7`(TR{NcZiqSt?w`M7W5 z$^Uox^R@_+I~SGj*2sLeJ*!#ZkV8oEgw<=s|D>%OW>vm&*^?Z)g09t!Gp|Fyw%)n@ zIFnVlP?3}`IJQaknW4KX28IM~u2kviHtk2}H^Uywagy9Vz9xL9zKf%2FIjXYvRg6q z-q2i@hJ}dq^{vfE7Z`-m-TN{i6=@JO|4f|*eE<)KG+6Gr>Xie5GNss*)>o9lE|w6I zG>3-t^BE8%PsX6Sq3-3qMChA7Sb@<7=(xyaE`tGFNK^P7;A={rv9~t*)D0FQPnjzo zUxOZ@nhzr~L2`blX9iRf{+4^DUA3ADDE-uZs#O=e|>K$WsgX^`5IJE!H z^xSc^ykpklZ)k{`R)TB{gQ}cdpFP-sJK>7CpXsktpeN^?F~2r~962!br?{?1+n701 zDKw(SU)OnwoRKHLNcaaU@*jW4&+4nG^!+ulxNzTH<4W-LQ1N>S<20{nZnGoP;(I2c za9nR|`vCOf@`Bwl63hk2?62RBYSuJ|FAx5QYZ|@+>_LH3zwEbg@RoArKVXPD1FMbm zWX(1I_3mM7ftyqvlDnt-8`-XmWo0NTA$gko{k7D-^qJdGQ^ve0?cZB2wOPdTDRWjw z#WnUK=}7^(jL19~;bA^hr53EI=Ol+%0HUEX&tY^hojPh0awlvp5iac1~@l z`=vKiOjk1qV92Xs|-i@oD(@6A!87KDA(t}+Yyq-b7V$mmes)So7O?2t#+#wGF`J<|)s_tZQg!Tp>HAkiA==D3!2m8>#eq)Y3ATMe!-S)wr?Vsh z5k`UMlPH>*vEIG>m-pYOKVRHEMe9ub_zW#7ICc9Zd6_SI84F;SmPM zaT`y!?6ZTn1^-=^TOS_*FEjt>y!XTB{Cns&nyrRyb5>g}L>CanP#0VD4;1T6EoBEY zv!TPuaAeZbt4>xF@>`oEKwmoKz<*;x1ZzpqDiMI0WGa)25+XZp z?NIu4m+e>vwl%yPs_bWGU2r?aWuPG95`+zqNT8g^DgOAllJ`PY0IpmGO*x%b6ei=G zJvd!iQoZWkMJgU3E-@HPNIVto!AWAPlehM4R_{cDK9D35EbTk> z51#VxI-MV@5Mu_7OJ169?8h>rf|tDB%quI8I>BoD#*J4lrUW0}#;l_z!y*}=QCLSn`XC30?WRQuigPC+j5RR@+p z3@wci{IbCk;^TQg)D~OZ#!@EQ9ZI}8NyE4v9{)6v4o&B9`7x|Gn_Z-s2}3gS_f2xy z%e}{69Vn(0X6cmyLjEG(-@n~7FJd0TQV!(5Gsa@U%9-N=3A63wHnKt|+6X#YIy5AyH zns~y#ZQ!b6{Uk$>9m9;ESYx|59*W9Pl9Ca8cVyS7&)$8?<7E!LJ_6;#7dMV&kmudq zKJo!3_55!+JlZ`~iHtJ7G=3j!br!wOY3m4XZyy*3?NlE&GWO`k`+SAOf{a;SGjo;G=WQ|%NFV4YgQ{KtJ8s7^&mS9 zbk+!=#X_zA{$&UXdgycun)C*gq*2sGgxKBfCrc{}nv_4!?URv+BJOWjDcq1c}Z-jV!$xK`Qq~D-hkKXDrj{9W$pj)kT%xCC=r0{R(S?qNy0U`!LD7*shMlH=PYm~ayv5%l8!t_sk= z>=*Ud<;#}L2RpW*%J3_ENU&E7j$8BUh3Xe^x2$U_ zY}wGa2M7AJVx+tjp@=wQ=XGEgc;T0dJ(~&7<>w79)L}xH)|U-Jt9+4@d%QojM*r3wH2HBX$4QfsNp()=*rjIPJNO!L=hT}QT$%bcBD=kJilMYrI}`9yi% z3VMYkZgjA_REl;~nNk9!pSC!%0h-my%%E;%$o@5bd!b7d-n3A3RMqZeJ`08#O4wY8 zR*Ap8z+s1DG4g?lN67ak#q{?r8xXkHn>t8gbIAaZV|x?lIu#TdlpT33FPp8n{ zv;eBMICS!4eNyF|Ros4Ca7P+QOuMY3;7(2x%B+5ixM%TTk;16lP@$ZrN;dp}eUz}- zT4RVx8BbO)XbJ`dEx64JMz2u1U*?|)TgF6Hf~68}S`fnr<3m4pHY8xGSuro^NaV|*U4 z3rPN315ve9o(z(^LR|R{o}!nw_C45e3rbN#n_CHC#`CRp{q1b#`_tQ>T z4Y&>~sM%QrGBA%Sc?BBftLBM8fZAJyRhXpzeK8f{LekY!VRB*!fBj9`QX43P1QM&( zNoJf+@`2`Sjv;PW#XThA4;S15|AK2%x@Y@98^i;p#0)kalHsR$Da>;}BjkQxu6#jU zcHfkbkK#RkhpzE%M&B<3@Vk^;(r4tFZ1}<+8yiRlEw<-<)0Z#ZglHYWoeroUr;Otb z0&gh6Uy`C|pxgF3CG*vWI!@yuH=kM9K6c>>8&YucM!dmm#V^9jM50vDS8Bph4Yw0} zLaV`d-uE*HqwS-^9=&eJ%kK!Z+cO3>o#K@?TYL#EzB=ndVm=s;xUF9XR$j`21^ESf zaFDf!IT~Zf_N>?-P-K8jdBR#RE(gtKtSz-~YaZ|CxGNX*>Ek6=c)a-AKIi!S_JQxw z5i+{C40QX@;oEG^n{njXutFOnWgRqG;`6Z*?-^VM&4lW#tu6VU4&W{?4g7Ix3KkCx zIdQ0q!%ozKD&!Dst*8A_@Z3>htQ}BKRyDOi_3D}kIv#^oQKj_sZGZ2Ot`K4+(>CVH z_L0>alrfI?pn*uGl{;lidYo1*Npw!KHItaN>Xn!c+s`3XK@tDFY9*w%G-%eDWJIN! zKVxL@q6HPc{wNY@K!qwZC9dn!-)wQupc8rXk1!|f@!RXthXerDqT5q`o6B+PCj}h~ zUK7z*X6cGUknq5h=ZndX*qH%}cpUB$=mm@7t-8Tbisms`t5acgg z{$`dj)8hS5Bt|enRr{$164tM%Xo^S-hcMjP?|34(rVAP8)1>){1zQaKt|*gu$~vky ze*Js&&8O!QDsaS-RI&7ecdoT}u&HmlXKq40`r!Kb;7He9Ly)Zi_EPo=U&?EO$i3o2 zPOqC3J=f>+-~Y4R<is-C^DKl@7H0xIr=%ouRt>0U%No z^cWm_1P&jw?>&x2Dp~PGq<*Y?A76%1uW!{jWq>@lR^7RK(a|uV%}F6TGQl2Qr9zTq zOvE_c373x^-dCUlGeEv@{x5W}zGLLMgn}c0O{y^d-H(ntiH*a%$*ho0FT`b(f6(6- z-G{2j9yc#k&$PDBKXjd#m@xekj=BRTG4m4Ooy^bxWcTiFTwC4jsRkbCX91{@OJRr2 zf~>)(hsEOT2>Rej)PNO{tlnbKxf5}{uN@yqB(UKniSAha4H?wcEk>fwTPj-NMAsOAnfIvd7Z()ewYi zaD?_m7^!?Qr>3XDcOQv*gz~a4e2}MEOF=AIcYdsSxfr~_;>jt9c*YwydU=BFmZyhb z9N#gDWHdtB#^LH{aSL6D8PK$!Y3^2jc4(iXsi1TX{zUtrIL5+ z3)`x^{$z5G1|~Rdel=!NYM=@IHhEiVr&}SUkKU5jNx57?C9K~k?~ncPSPb+{j$6mj z$;IRly4h-w0v6TR;QbgT?rSZMYq2pv=R;?Zlsv@Hs!JUy`huZHLq;5Ev6XQeUYFsN z>&eWO0bBf2R5fLDSs6cVL7wzo60E4XIr8=Gu~3UR$0gqkTm1@v;+T2ludm@$@blwIH9~?s zf{}LPmZv6ECnz5&&nh@%X!rjy_9ozL{?qXnMwp*sV+*jbW|!zP(djfNwsvDK}s}=D(%?QMWjt6=lz!Q$5pNJu+V`&K`%- zxw*o3MdhRS!&2QmVg*l{Z-rB#21-VuavJa`15u-Y8c#)AVGNdaD2s&i62=)-LRX}s z^>?f&he7js(XyK~XbImyTvzb4Xu@H}M&)`84k=>ji z*^P1R3|gj?(2(Y@r#kbq&Kj!vd34Flm-&f~ZYo2h^xb$ta0G&GUSUjqIY)b3z+tF6XX^ZmC*oPUsLGg$ydyUVir zeLK2a()Z-ZZNrsv5zU*iG%4JXO0f*x{iS^dC zZM)?qkK~ql0$k<1CS^+c90f~;X)14%1h|qB->rjdZmC+_9EfbcIZ2R|L%br#VulcT zcsoQ(*FQ9N1ejwzLuABeM%jb0FBhFl>LdSxr^-Z|$+GpeHz)Er^9*R-wdW9%VA-i> zVFn4Q@pq^001)^nE;!>M>iVcR$q7dyV_x(+sr2N+k(}Z#l~!%6wJD0&!tMkqCn2?x zA-}o`@lv=FBDzVQg)!As)O&9KIqzQDOn%?Z$~h|oK7lvvpC|#Md>#x*Yi*u~VQmj- zzqz%FhZ&GXbBaTSnjAvhaDE{RIQW%gVOEYQoUXXHTPc3==V2}EoD ze4Pgz06{g4%83MH&jRs8?a(5g`v3xy*oegut(M>%6ieDYrYm1Q)zjOfBx400ij2<_U6|^r^JIGZt}+MVEVSR$IY<+i!}Q*OhSJLV=DFzWTm5PJUCEIlB9(MZT-K zg3M}1;@mtmy9e6mC$kTAq~*sJDWhk_0R>iD(K zyl5*_A8rG(&`ww1xb&bp%q9?BpKzDAYzK*zdnNbFe36_mziZEOk;w{&WGiP3EQYcZ zh1=kzf5IKfCYJ|DBpkAf3Up*aIC+*!0-}6L z?LW(75>z4NN*X=4jlH&5%GK+?I6Li%bdq2{WOJh zoR9de1*4=78@3Q()<$kMg-XNpVdOL|pzS$m0^s+}--Q+^+@-sx2J%`IXB1>&)!tl! z-&PMdeg`yhr=_c8($u6?=$9dX2*fHzmV})OUO_`F_h9R6VG=F0mhR<&_<7Sta9!DZ zBF72s67&Tzgq;+AX%H?zXDvr@dm3(z8E$_}8{1$Lo{hXh?x zS0axAMqxR_kN8W~wKa%%e{a-p`4HdWUdc~oFk4OOLfdkMLl{E%l}j~nN056VI1EiXs|-{|!MKH!}s^~)@p1aBr?5P}BBC&wB0x1bt5gDGmb) z?wZUSjm7s$>8LV0V@jRXSrC=vaJ#8L`7-j=Gg%=}jf)J09l~^38;$S3%i}X1tNn2p zI`Rt0DhLxrb~!Ad1z|`WNX2+ZzD?wR-RtgEQixLs`5gJDvq-@bUo!-G4hQhD5R|J` zVEufuR3zao4Rw)Q%isrcaRqKul4zJy=2WU>^zquEnu4Xyfz-6S65;$Dc-<~Q240h# zoVRx?`JN-{L8CpWQqR`5yiL=BCzlT%#pn6MRq|t4`GBmOc2^7uD3UtDw-^v>#q<_C z*)cT$Hc>~u7~MK`>OpkAWh0tnl=O9ZAac5zCk(7VOIUwpgGeXlYHtDDn~eZi35>dO zOH-mrE<#-|{qwFcS9p4cp9)YPu<~LE=BOM9%Hc~GBhj5J*W(R$9*}KVLxEc1uCul0 z&-&VDMW9J6V6%)W3~33WFPRUg0^%a&j0%>p+A&@~UUNMUNGK{qz_hk)H|=ZKDhG4& zxL8KhEv_U>4a8EK4b02tKBy&n?jKo7goLq%2RWjV)nD!~=-uY(uE-B%p{Vuow{lCa zBIX5gN~T&s_VP);`ASo9WiB{4tcSXg2?+_Gpt-IgK_G3+9XYYf_U_f+NheB{%Ugzw zw&nn{Fc!8)!e@Ygv`JbfD+uQhZK~zlqTp-!p5){V-TOgS@hbvi2P@MfqDjZ@F(H5x zi6Qb(YQk1BldOwmdlGkS0k%$tX@xJlOO%4$=jx5?{UgvtPlXD+uAKPn%*-?Q#5O^| z-cM6TmGeyzL54Y{0Px`ePqNI62x|NsB%Gj{_7yafcz6Y;!Nm2AU?XJSP+C7$YlI zA9AJ7^~OuPTNd2t-}#4A@ukpl2azD8^DYYMWY@#C2{xLJw%mN zMjtu;z$X$t9{UYodYqi-y$73hZXLCn{-V4u<-xT}v0hN_r;`x>tNHmzWGl7uqnnR- zEr!Ue(S#&ZUpIA43$GSDkpDU+ts7#@Jvy8!1t0K9%96b2(S>QavS+C>1L=wqN_6Hl z{Z_J`cCI>l1#z}wp|~ZO|5vP&+QQ0``|Z$3_}2Y;N-cxBGq>&$lmg!!35wZ4oSEQo z9yr-3YN%~sBA7YKd!vy&Omh;^>kXZ3UpC}m+wqvF`+P#S<{>eoe@r@@M3bdwVwFWV zsPBBwKYn{+&hEuIlH)*ra|)sd<;7I^Sypa{ky73;lyDR35U2c7`0J;OM!9u48v28_ zafNWxfs}G!Nhsi>m$tomvS^!Wujqo1j*|9i(sq1Ao2aqMUqLA?HUnah4@<{BH`QE}<_Qh&c|J56xK zU4{d<=6Uo1fHHuvLb3RltuGI8G9Z$MZb_ake1on{O&N0#9kGba^Uz^UFs~s`|PKSbeP9A$vCk$l8oj?eD9;A{oN4f9r7sGpG zNK8EGh&s?IvTE$erhO3;*Uw3m4W%~>h+5Kob4s0d^&umD|HDKqIDIyE>awv~=8f?{O$VB)(?wG@}cNTb9I=IZ8|B9JS?z!}fM^4^)i7|C7W4-n~Y6CXIJ8Y>|rVuv|l zEewBL-g&^8J5frm%4iRs{N)U#tNZMtfe#C-`TD@_;Qp*lk&e-P1%Gc94lL83pR^&9vzJ`R{)vkS9 z?;h!A2ul*tYZY;vbQo~s`({!#N-dEwFzrGs(l*81__?|Hx$#MA8!(%1`R1fV2p6S> zh*Gzcv>XZ&s%X&~u2TAI4>hca7hqP6$E#`UUJ%X6V<5QsJFqzdp)eM+FhzL#BLYxj zO?RJ@?ra%2eydEu4i$Mo_Ni>H3^&7RdAk&7a*T+2_YY-e$uEn%AWHUp8DPSkI`P_c zmGeQt{O;QT#NVAGtG&+lc~AH6n$pu$S~NieSL+!K-IZ;bKvkAI22DdVzlv6p6T?NA zEIPe6Sm6pK0I(3&+n{!a1*82Nq@es7HcT&#J5gTA#0D$~I0PY-5ta&tbKSU8zJ6N7 zQhOr0v5_eqE~TfZ|1Gzu_=A+0AS?3D%T`T1lJD8(D8@?5Lz8P2Scu;u!ZH9biIRj{ z_efTLyi+9g1_U2!u2D*PAfuB4b>-NF#Rp=)ZLS|T7R9b!2YSS1ikx>buIk84Z2#pl zX*JYUB~Q&XY6m~~Jn;M*AIgRV%fl`8`-Xkt-k4GUH-*Z|9dP7o7f@o+ff(AuR$UPc zPKgTbVIYklIoZJqVxI?b+O2u#4==c`#-T$b%^g2|KG(zY3L}Jsugv+|_?29z z*@;VXumg2-#`uMC-S2@^>X`%Q+eAZMDP!%Z3eq&p@{mHDA<2d2c~fyKPw}rzjBQ8% z`9$7wr)l64d+7oAt7p!tJH>lEHd=^H7LMu4%}-pNy=?cEE|{3hS+?QV(!teYg zZNC0KS@&=$E(1lhoPu5MCCo!#HF^(2tHWi4&m*H|=q7vO6hLI@=>w6jbm*>^V5N1q zzP=7_paQ5%d1Te{q@5-h^hu~>yMT&IT>LY9U{&)OsQgrOS+Z43X*(fBbD~WU(&<*S ziw&Sly2>1WY+J+i+SN5p(m-4mz5O^TR?y|UkUhL4y~_qj4(aJfOq4f_g}5_AFs94> zZTe$@^67}=qY`ysiW4G>et?{6^8m8+Qd$V}T?Jvy7C!F~T}e3UEllO-b&VvKqXlc1 z8ZHD~OJ?u$Mq+pOh^3T{$T&an294K5pBM6%{XGWSkM7%1BA9tg&cf3BrytriFa$Rk z7qCLMNxjmK-IwgIZZB;@+nudE=?k-Yyv_N+FK)tH4k&lP^3=`qv~CNYsZ!T?11d0% zw(=cVqx2O^4`g42)ILx(Ep_+YrZ;X>^7}_>Ma;GQ5862Dq^`?zOnzqO$5P#jN?(K4 z`m}(98x5pvosuyH(eAYkg;qTzLD->{cb6*9@giy*fuOG{;)!ld3CzS)g$#Ud(@F0| zeNTENt?m4Vb5*NNQ-Cr?t_U*}rpXG|!YiR7@6-0=UmwGrdVG)RepQh@t;lB6AMhl9 z9nH?Uzbp3GMuvx3KP%F;vN0CYnG2*fVhNy9#&Stj*sM*Ydo2F`dPC8<6is|1de+i( zWjm1Q;6rgn3)i=*y*i%>HwI8_)!QhT8G80Es;|xION)jj!|RfraG?sCy}Y&iN%?i9 z4$YLl6FqlL*^M~8Gv&K*6v`K!P65M=M5$qX_XJ={FO!FT$=_hP9@PtKi-z;K9k8n*TCr+9(?o z+)T=9m)*wnoTY$gHMwPX-D+#aL>mOvc0ZE$>R295xQ?Ty0TZm?C0`((;7=+ZtDK^^ z4P~;_MBw7|Pgg_YEReH>fGmU=`E^^rzc_#QLYG@kE(I!YeI+?WpfA zO1Ep>N*e_M0B?<2f31%1Ja%Pl*kkU1R3s8lH!LcOVq7aYlO9TY^(DH%hji; zkCY;l)If0$ivY0divhw}=TW+J;e0J}GJ8tmxE}4!=lP5W9Il(O- z$K|)EBXgCO{hf8syC6p6!emZa-01M$AGg(3Yw_A)wb(PR%9f)EvzK*?nhIky^qc(R zw#QUF2!2S^L=oRAE^26BgPF5m`k6?<7u8Ko2jPA9sT~#U{e`{Ox}Wbex4|xKuVmsE zk*xZl)YNy2A2!Nu;ph7tcid10gP|$&6;^r?B{PMu$xhmAajKsnefiA}QeRX9dok>O zWoZmxB`pZfF8*Hqanj4b*vHb9Y||@hkF+YRU+QGD<7M!Yj#~UJa{80o2$( zv+|Rctg<*Kx|ty>ybh>!E+@_W@E;`PXk%Z8qwao)iOUvqEzVrXO>CU62A_Ek&l+-^UE0JF*tWcsgE?7&=yvMnR5?A^wVs{pW>*T6+vQ7dU9jwHpow^BMrS+YAbLPqKd?H$gRRuZ1*M=yi7yks|iDAdve zxE`V@9(p^c>T*;ma?u)ZH!Vb4wFl6)T(hHR>Ueie5k%q~KA#hIc1M z^M=h*`&BNq#l2)KI?S2i~VCW5(AVm zj}wnqKSX^7Qj+-jvih+HoMIy2dfsP43;;kVJN157J`9zwDU?KSmzR6KBWVadldMp^ zl-fayZ)h5Da+M6{tUK{>sd(0=69D_X2xt`~m;3xk)oiJ;;?Br@MXf^$V$q^5B&ii- z0%mx?(3l(JLw)>(OyDRan1A~P4nx=+Rb$QN`wOakMr4-2MUG`jEE*EC*JVZ?cQL8>1`nB(Y-S9eb?#m5=kRyXL~m0FzB#Xa&CzGEcPy;c?n(tgFII`e2B{S*4G|Is5T<2T2{1mk#Ftnc$ZqPDTb$9 zDR%PsoRl|Gml}-(_GjwW$WhBoN%@V(y0(Y%cK3Zg5JU9XuWIJm-@9jmA(B+*9?BOR z9JVSdn)!O+#maZKgwGaR-#u7xyg)sCnlx2!oG!_ogw`%KbMjZxyiE{)k`?crB+EYV zPjl*?Vxebk4dR4Ag=M(%wc$Wy;5p@()@>&-ws8s{kI$s!gW-CuR>wuJDu{Yw*eKf`Ek1lF##ZM z@tNHx?H1Mtp~Cm&{a;WYs!3Z zEoH0ca=|d8ThA(ancsiwt{UPm_@2*i<(9VgkgIIW!5EKo?OY%o5@&n8pJYI-_zvNy zJMfaUB)XlCAs#MpmV(>yCGMM0J3Ww}E9gFHEZH|!MrxXgAZH&2J}?5p5+`&pvx60& zITc5eo}$6e&)xo8%nXc1yu+WEA4XedWKv>=GS$Mt)iZOpVL29nX0cSi$_ij|rDZFV z=AE?mBTQ~w=VZ?Q(QL_u*#MuMT~@g2a%tC;70t}dZh*&!W}42xCkf&OsCzV)B@fiI zB80$*NO`{O*3rv`8=l(ONbb7LX6obs^Ffep0J+yAv67qP_i5_rrxpq(d&YB>nF3_N znu`nUb#d=**k@%*rcq)J(Mu5CIRb$iz7RXsEylJ%>K@2w)KGjgXdUG$Z_yl#pznTl z+n!{qu1n~5EFK$%o^yCc@&W)1AQ0wmF2#rKXrXt?21~2l55b{`#yuOQ^!5g9@%OlV z`|@tZ)^3NxRp!hbm7I<*Kv!USWU!Y`?;>E6x+UrW=lTq07R-fHKzVHM?za!U9RRJ+ zBBomZon}^cYUeU;Zu185A=irpU>Qb9yK|=&Qcwg9vEx@2ExdaY1`q4$sfRIh3WMTJ z2XN*(XTymd{)`1?CsPV2#dW3n4|U~md!40qrRE!Pel=BITzwsVaxP(fwJU3S$#B-# z;0_ndabKcNRE&>eKvxKkOb#>azYI|50%vZnA~REQJDvjROA!Qhel9t+=SiPb#8zed zjE6W0qhuA?8usp=Om6FHZqE|q!zSuzxwO=0YsTgcVqcFvF^x=C_0mNZbmfQblVqu7F=Xocz&So*d#x~seD0nL!hVTn+8048X8}LfT(vh>R~|JsQr}L6!;6*Lb-FK zgxBUuQ}l{%;1cRHzzRR(bFXNtV*zu0uXb8B??HOFeQ{dI@##mGFEiQHFNpS(wTA0@ z+EK6a^nJqW2#5V$eD!a^6g^?l>fR4*E6Y1p)9b7chK3$Lm%BwJk?^s(QdLE2E??~V z+6e}lY(2o^E+q0~zm=dpa1D9VVQ1ti5yqydIO?6LI+`n!xpsU1lZSGljvFnvsC(#k zg+$*CBYlrENqUk>0tk)%y|cPmFe}t+r;Z7tXQ@weWXL)bm0X`U0KLRsuFLj6-E5$! zOWL*+x7lc`(z@*V{Jux-qin>7LB_C&kLTS2u2_V4_PJhtQ4vHq_Xf;g0Qe zD)S4ahLrlP>Eei%o}N8;#TH-rn=3`qz8Rg6x4J+xl^3opJ`%??n_q;_>V7^BURrFt z)SSh5`Y^{`$QZz;^5`9_{*G6re~~hLQo3@avhQ0^h9~y}v{Y;F%omA|Zl5^(b?CIr z^EKh=Iq#f4*L%XEnDW>K>|BO`$>>}u#Qw2w)0dUC#a{{>9@w*`)V&K8L3^ao9#_K@ zF%t#+EFXJM2JqQ7ri=7nihXxWSw~JOZJ0eI*Q*zZmhP#U&egQbD;v___Vtzh8@2f~hpUC%}0Fq_O2d;w*N zwYTkHPj28?Lo2l+zf<%Th7+GvFP9Xe}<_P5@sz);?WJnKkpEs&-p@V z%D35#|EXrlj81Q5dv+~RQdsh;&tQil(LJW>P6aM=HBP@#P0#B;J*%#thh}*b-)>%# zaqFp>^=YB;d1AY(p2JdYpRyN#sj>JO!1Ed|0+B5A?RSqi7`RBK%e*Pcg&V4>?ciP2 zE)*zE%uiCsCn0Sy$Da}2z@^lbrE%B%eAUs5yWuKw$J%##%2o>RZTY3LvC7|aW~x5~ zo$|iF17{VM!uL{xIA0?=mpRKLBJsjlKv{ZhnpbX_QcGk){p6nSqz^?spgfs&Yja=w ztTl2)yS%Dyr5uFIt6oAy5kFCUAD^y@h~B2Q2(XQM`d98x{xNa_Re&3omK&-WTOyZD zF878&Ac#q}N)qY3xV29FL@z*2u}9HQO+HQ%Vki;klYZH7ZR1ZsSQ0%NIS9XyG}V|c z((VigyaaF*sO$9R;3DIIR}1bd%j%vxO)Kbra9y2CS#MP$PlXHzJKZV#2EVd@DUs(d zN=g+0j}Ja1l1zEW*TMIZN>R0}6WYw0D%fQPs9rF22b@cV`Oy{mNfpSch6+ke2fn5N z;e{I)PpOWHmDkfOI3y+8xs>5u4{4@Dv;<3Slw|iYUM~ zg~VsI>*g=-uN%ue?JUk4#Zv?$4e)D@a-MP)zKPq^iLgU8)%m#Gnx3mV!&aU*-P< zQ+Y)F%fQN49X-_8ifEt1PTAPrF{X8G-jE4#c${!HCZ#Qq!JUjlRha^%HOu*fL2b?S~#2>1BIojc;;^+xoek7YH_NCJUn5<2p@YsVw zk9YdLI4 zKwUf~m5-bIa+G`xU|E&7X{NuuJ6zR^V%D(PvQH6&_Si2Wh+I%!R4si^%4vP>2V~`8 zPSLUO%ee~DY)_4CBu(XKnEwBe03cCWhmOwc?|7qU?VUvY0=`NA|LN;nsq@LY0accJ zuVu==ve|z~P|2x+UXR0abk?rija|qo@5Bme>7bz>K0;d^@OisasQBfdR*6o`l+fIei^RZH`VLqJT4ClHo$7P6?CGX`MOUFBfE+6%F)3eO&bonHKZKf zQkHye(6&E?=zFgq+EGd$-1vouHO)QWH{=FKog0c6h#0cN06maRr-cE;+#(%HlfHd}t%18ls z;O~7nf~y2~;WYAq#Xl#YVC;A*G3kGQ$9xh~a4AvXY!ueF{qMWKzTx`a4?%)Q@y~@H zu>AL;!~SQr^(+7TahZXY{%7&}2LC=gzaRSr5ysjJ^yHzjX1hOXb z7xtvLHi-PyABmM7_1(JFs^LLuC~O*-EQ!P1Bn85hY^Gw*3QJLO$NXo=e?xv2kP5(cw29FQ3c@ zzqr5Yc;Z;6!Bgk+maz`+#@XV%+Ngsu!ccZi|BKuZ1v&QBWx=ts!FwN>e||4ZP(``M z@1Ij~)stUjrJcLj9^ur3Iai>6rMf7^5=J))(_c#qm9^Nagfb$Z+;KXuqxsX#v;Vng z=v;C#{>b@jC$xM|d35UIH8#IKW%>17hpF(i;Gld+EZA{rUZP#RdcUTukpRQO%zqh+WX_1CB**x zPezMz&YMuh(jFu4GyEUFZacD1`dC1gBTQ2;BnRM@Wg>Y+MPAO!k0H|`-8mPGeh%6~ zO|v}u3a%k{>5D`%H}yp_t$$MO&f15dpyGG1KkTKnVE-A-e|`fsG>qD~D9@f$%=F_B4}0R-z9T)oBG=Q%jqcG6v&Rl(MC{)C`=Pb&)76&J zH(f@b+@)GS&+lpd6N+op+o@IA7u@lkx$>;stB5|8er!*X>a)!AO~rmQ56UR!%(jH+ zfkQE84yGUTlz)rT!yX)?H<<(x_q)g%|MgYew5uxh8K%sqwkD%&*X7NR8x<#l_6VM* z=6~$a;0|0Xuc@2cV51q*e#~Qa!-Heq(a?pDTssAH5Zg1m>WvF@4& zq+GF{$FhFM90`3TH<5nUJFK|lHSACSbW>oNJ~dkMODA>9oA5tUqg|Rj6NhYmU&|(* zi&p$t7%`m-#O0QcT={rotKW?I)V0^0v@~9#U%yN3rzWe@ZyvU6c=cEPjVO31`^y>9 z_6G$H>h$M*mo9MzH&AiE7j2kX+v74VzpEquMMq54lkdnlQ_XK1?Qb3nt{k%7ze#@6 zf%xx(F8x%e@QV`$&#cCp&k&NUlx9K-qHcW&zJ7Fk`(L`}tx@uq#Bnj#LWTES{N>{n zaa(RRy*Tsg=bMjy(A>=>2hRE?UpcN+6K69^$(Y>P+SuJgxq1oZJ72=e*o)tu9e$>< zllD?8f{J#PJ9Rexk)NOU&z-|9w5q-C1sAIj85w_sBLl9TNPhgF$Li>tXT3M>%U%pm zyx#6D9dkq5+r9Q^^ygz?_lkD)w(PrZ_Une841=+&dH%;3A37NN`+$MqO*eDfowjE~ zPxuSM%C%c~=WtF4wdqHTXNynVx!6r^+GNx3Z#N%Wc;_Umag$|#;=Lpjt!vFw{ok)f z5!q9nzIvtDRkayRiFh>$0e1=RW%* zse3Amvp-k(JpbeI63IB*hm!11|IhRuIWMyeGyAL# z=U-mdoIWA$c(&`i!)`Qf&o`v8)zQCpvZzs{&Kur3z4OFdr|O4cslQQ*)mA3~`ZaBE%ia4?UIef9{<`A0M31fS znr`;MD>N-KYfoH%adjw9rr*#|BL!{C`US>Ui^H=fiCOxx$AN7FEHKpFvSB&u%&I)Mc}` zS4Osysm9wy2eh)d2ju^h zEL@mubo{t7UA9l6cKkncXup2`V{|9rgQ|k@1KoR;}cH*bFB6B&^Z#zK;S79aZ}}cLL%g}NXS_H_<83tM_*?Gpe>{EWba64-$0O>oi9vO& zeq&#?_4VQzEsNr$7aoX20-j2ZHq|ITVv?+Iu{r}|3ygT7W#MXR$Ose?UGz0jCY=yF z8SB7VcG|fC6boqsaB~TH2@k5|Mn-FmN$| zAZ<&MqQL{EOgWz372CjQs9O+bC(8CtuHq^@ls8xw&3tlZZf>^TLGm%WIHd|pLOf7? zt8M_VypnHuFfz&CRQ24&%2&z*&AMd=59${?8pKr8)U7gvk>h>SuGg%dZ_y=vX9}V% zJV&U;vh!sLDlkn1Q{8DtJ_1y89SZcmn>xJ8hhIG<|3&759#F=;W1p|*Q8aU`Y*!}8dr zJJt_0mNXEVJ2VaqWCnW=#0IANC$RY0jvZk!wAAsym~mgv;ng?D?_IVf%(xUpib~32 zsW3eQ6TV!O{oQkD2crK9m$YV7IVRgu;dr*q$9vG~UI0t>2723Lqh{;;l8e`l?!gtm z-7F)}ml0H|Zh&p74ltP#aU%z$8cFi7= zZG3sQVhFzLz#HVsnrWP}Eeu&5mij?2F_%y%&chQEjggl>}dFIOH$q|rDr z*8;u7x+8PYR4RlO3wnUKPZ+X$t604IJOqgY!PoZCCP^tx42dK1<;Oz&6YLhQtd52s z7XLt*6iYBhJUVuUPxzXO1)7CCnc^Z2M4Le~%~c?Qq>c$efU^`D-U)R1IBVHbLZK25 zN=zx<4)MmRJg4Mw<>z9CagQVPLyu762skdTSMnrYK#1J1#OVGRn=nb+q&&Yv%nz4z zb0p{gD!o?=^`8=BpzVi9fu?uGYGrvdk8OXnh;3Kc3`mk3`034cXbiBaaI|*Yk>S+- zVF9pA&pKip3(8WAmF~xigs}LSwzfQ|F0HP@g3k`;VErM^=QbcvLkhHe(%Vq+)ObhV zZ90z!Ei=r^g{z&{j7`HN9f`}0gs#6B&}84&vD;6sq{o!crIiCcoUjXt5I&X{OS>7C zP!5SE?>|;Ny=@5sU=}gyEVSH?OUWg)W=&|}E$ z+uSQQxMPpYQX#K!ULy3(`E6N=S7#Q%y)7GJK&)YM{{8s6VR0kJAG0q57bwdL@fZ7( zJGt5{_c8ymfVo(@NH&bd<<>=8$+C`!<8zp4Z3{p$^MwG*kJ~?${b-oRqn!CM^axu1 zrS(tR$Pe?4(t7vKSuXCkXZ>XQAr~l7JbU(qvQ@h0Z+brxe5w^Ahc}@`9WNA zV@y-cZP1vfC>$SZtOc{zAI6!MkH;&HETy(ISb3_4Yxe1m=Z$EN#V(rBTO>Naowy@Q(SAdq`}6sw1nm?dm}h<%n`+wFj7y_dvDD z-Be>+Z9uCEI+rE;(2Trg$xMzIuBl))uZgMS#^`_0Tc7j`z;yZV+4UdZBuA;8H=Ue{ zJ7p^YE+wY6k{N9l;;Xn-s9gEszt+;HiKtkAz9+};93__4YI(`~_`Q9ORw(Zr-xImM zH&U&uHrJaP4ch+T!=F{5vIPlNF$D4#gpXdk~T+r7=3{o2w#~rhaYa z);R6AP)DmU8aA-UBu>38N$5^Y>>nIVoO}SKrw?2B)SBK#P4x|Nzgf(WbPWw280%+1 z>}V7^7e8o0Dn9VniO+-&SF3fZo(s8n?wnAG57jKwp>4g%d+L9Z`wg1&X@$hGVq^Y1 zBXa>*I9#AX^PSup#^i@QsMy(EOQ?46ji&)iU*r2dGwP1FHQC>sC#5tT4GtT?U*G&C zVyDRmjXV@w9r0?wbe+T#TB%!lA3HQs(eR{PU5X4tli-(k0+nbFWDnw--cgo=CY3rz zg6k@v@<^JRy;Mq0sh&|$K}kWS!1#B_i%>La}j7tHI#8D#S<#S#(o?&n+x$QYpPHvpFOA53pGSH}lw3junn2~AFAGaz~Ku7`FK&#fa8JJBfZdD!OMh<;!@E}R5zA4-X8^~P#KalqCE zT7riS2yQ|V^gaBs8G`XW1e%aYMDx@-DeBhYK!RkeSl=F+aLeaIvlnzA5C{pvhGH#n z0H+|qeHy<$JAgmzZ!y9Ms_(C^hp?>|bn<4XLf&^{$X7ndOTYmU1?nSmB;V93?+yk* z-?UGVAjXcn;>}B?5*~Uo`z@UyoG9SE$)1GNH1!w)Ccx4Gu_jPe?^IgPA0ccW0sNZi zf`oJPEeXM#;NSj|JQyVDva=hz8LL#4Pl5+$5rj#nbVzb0CHo9vJd2lYCms@D7y3Y_ zUmTe=b}-E(Tyn(cMq3Q(aGRtNG;=z?~XJ3{KPDLE^xWAJuGft9v#=fk{$J8rU9V(L~61kfkX zwSWe&YOnL*+lR6+Ex)znV{!Y)n=w}B$t7@P16zI=#nk5dz(O?zOQf4IBdf#VBTUb( zDiJQu2z0?(nYd*EWochy$^F>iZZ@7Ygl`$Zv*CV0o;JV$kEyr^jwkg1SUI{$m7#jB z$$OLuH&lU{n<_Nywj4;+()3VAhv59JJo|$e;Fmb$!>e}?KyB4d6wanM@1d2Zin^qo zb(WWz(He&65c{rr#mfb#Hw`aI{p z&vjq-bw$N0$`$mlVdwu2d1dAE?60qdsqMYRsl8=zWkrI6ej@vZl)N?zzP3%oz9JCQ zM{tvB_O-bEPYLTZDlo0OrFsAxf%9G$|Dq_fq#~j37|F-jzwr=L3FMqA839uy_x}nCVvqyB0Le6wcYJBm~ zsMcDH5Z9@U_<1nBc!5*6*7wZQ%ZJYxg-jeKt-rrz0dE(%hWaT3hL?-ppVk(h%F5kU zZfQPt`SP>2p89b1$@%#cw(ow=wC=>b-Z7NDrURp+EKMV6QQo*S4R`2jIBs&P8^3Ij zm4Polox@Y!G;hmnY?op=K09WK)}1loLm*IjWRR^q@=FfYI}xrCSWBJy#MG^>?;2nG z8Yiftf9dH{3omxwIO)gWf-gUn6c0e*kdro=u_sC=Bm=iUQ=Kee@T5Q<59cm0b&|qU zi|Ar22Eb|NE2ZjuBGB-tFRe8yzH(^?kS3|KS08ujy9YFblabs~AhB(WdP4TrDkj1# z`b~TRt>f~hb1Kz*l_rr$rxK{?g&O&sQXakQ88Ov3vW}OUQkS<#ZPhj7lli@p9Cb91 z=%{FbbUKzlhpsVnm;td?p^a^6jomCR=q)u)LswHq4>{)*7C9L>r=j8HSDm({o!`U6 z@(G0s3KY32hUuLl)U<|zdwZg$wbmf3@Mn)6Xk{9nJ5o71Q+wBGB?;4RhV|Gq8PYu8 zz=`>C7^arG_<@U_BYTHK>6Ib_hAHLsl?dho7MLlxnhV^InZ2zCKnd!0VQqLXhOQsw4Ecbs2 zFRy=x&A$h^uZbTGE`RZKjK1~!v5`_w(~^|0iJ#xUF9Su6s4KkJEHnCR`@MT%w|3^1 zg#Y|Lt2{5j+cY`<(&gXgNmuJ5cf6C??Rpz|F4}HO`iGQHhx39)P_MdPxY=m$dGX5C zp@KYd66rCeZIs*tMA2mh=ddAMLE;7Baia#rIvn_k_Bx_c<9lXxr3=-w%JQ%&Udc#q=`qUp_SXc|@4l~jdk z_~x7a9M{Z4wtpE%mNYE?#&AoUlck<7R!uhNUtIFjJrJVZ@Kl&cJ^IFN4Fa`v>f_ku zAX;$r6^{UKL@je4WaX@XipFQ(2tb$CuP6#ja9lQBvs125+%QAYj z@m@iWY|lKM7tJT$^-;vj_(kfRcCqj?_L98KDHwzsK5snNt71QYd5+CXdcKS}ul9=` zPfty(5D3$EFyiS7eIEa{XHhIG9MVKJk>o^E`5Q_6j|zV;k`IjPbWiKH&89MLX$;M+Bb|M3QjgfGNY%wQmh8ZcJs(SR8>`)j z<~vmdowmT2FRmF6%70sG_Y>X(g*U;IgVuUmoFt0a5-? z`mpo;*>j1;JdG8tV-kp(h(wVe&0)pP9qh5&8Xk}{K)@PfzC-@{z`EBvpYIQLdg&ap zLj2c-FXo^k`?W=46q^_^y*yC{7D~GFH=BH0y<(}T9274BL8xZd2gfF=iif2N&EV2Q z;%q&*zwLCr=5pqe(-%J?e^BG6_Rf*5$;c_dc&n67#&@0mQ7dUQL7`X%sI**$OhVnH z?ru~A@jPRGSX^8Nlr&)%MLJ3O`;%FU9e>GI*?*EiSN|TiBQG$QmUOu^cycD3^)x2_T@D0xGwhpG0+a)cGO zO{TYz+L^>_Ch4=ZH*C8XvJJD)aBrXcU%h{Pvm6l^VDOKhHe9qoeRYBjLX&rejg*=M|7?IdVPSu6&V+hoBMdStS8Z@GS!r4s5&YK8Jw_gq zU0z`rsZNU_a(`X>>0l3O#Xbm5bb4<~-UB}U7PEaQEMl|F+@|H?;_XJVQrL#ttzvRX%8*6H}@^+I{9dqNXikvA%6) zqPwPW#jT?%`>{b~s6-i|`#H%fVCpR;tWU_`)@gkT2xkiNK=IYy-F~|5joCnYD0O^q zy;v`|U)z5ATFQ!-wtRInl&I!9o4Yl786E4inER!9TllfgW4E&8UpUqg)D%XD?B+OW zD4Rr_?%a!#Q>I3KCiP+ZZw{o8R5NFuL})m;dvU8OqEPN?(W*1vz^NueargNN#mXji zW|ORBIRXciptr4)U0h95$?onqIa1!sZ40pvd9L*6FZWol+z8n z{mBpr>IUFIsh=Z9^p#}f!1x}8|<9?|@OAfz{Z zv^tZyz8sq2UMV8zV6-QkLZ)}9BwG^NXLkq{1A@Zg0b)m9>L*>PTBBHK(nvK+%~8!; zTek(zK%#b^%<5GVRL|ce>!l+a%g-3MJ>9c5Yq6!*%-%C(EI+T6k)P=Kk5?MmAgB4x z7W*|gv954`8%{%iX|Z%Gy0==a@h$Pys}6An#F#%jN*k}0CtAi@rW`wPjOiL~c_sPA z_D#_GKvs7kwkjMMtzmfuZ3CZ=8J}<HuAw%=7TQ(A8SaB!m4rsw^C><>S6NG)>b&1b1EE zAkq6#;O(JhbsgQSqhAFDIPB5fR?awvK7O0GcaHfBTvWrD5}{__Osazt4m@6}s?h3$ z7h)Z+FM|-3G!c@XiS1~ct_$MKch_V$at0TpbpW>0vz9LTv^nu=>ZKqNq<*+=aTsb)}yjI=42B zvd`Um|1bz`1Hz^Yq=`dXa%C7gE7fXmB zK{Rx?r&gVl9GBF7wXPxlOUGjS)q!h#ke<;cE z^qK8>n6U_;&W4GJHF2>}u2JRQp)nW+c<<2ZEkgcag7)gZeo7aT7W-t^255mAa~Iv+ zc+`Jn=Z14RCg5sHsW&v=lcP>O77Z zNJXD1HDAX;K<__~?_^NEP_zPm27Me|qz??eU^vK)ZGv4;S zGKrDYB^&O(@k66W^m3q1sRKe;V^L~^Qa~Ro4+R#ZOIDP`d3l)Y>QlHB6H%?W{lSOAzJA@SZmuf$8!aEo^6q=ta z*YB*%z2&Dl$o-jMU6#Z=9?%+g+xDofNmb|A&auefss(Wf3+!?|Sj^B)#V_ADrH;ZV zD9!UW68n)TNt#36o!pV+8FRCW{U=BEd6vn9J6c6GDbN|B|M9LLDiq`CaYDxD;lD%W zllIn+3}Lg0q5!sKL8Rj2N97MURTobEKG*c^%90nBx6#{4UX}S4PDW|T(*{3XC;h4`CaFy9aOD_x|yz{^u$$ukGuzMQD=<8=g$3*c{Ad^sqJP{ zWm_a}h@g|n#Cz$D4qLO*ta4Z~s#ABJun_Atkfh!bZd0UHOXPE?fJaSDSirv<<@NSt zu#^z%H7F>UoMa{Sf9COk%~)t0P$oKLbYGtK15*sOf)!xslmQ#d7y1~up~ns>42oz# zv-jBVZG&I?V879U^r2!73v~ymRt1Y2CSc`2FmS9 zacp_(D((~zi9thBlUUhJPpYP9IGgl|J-kF{?Ip&A6uA&u1(YsA68{alwo54LEHLj& zT3-n%*@nygXG)+F+cNxl$hgOAg&XmA|M(g8kAE=U?#E!*+mnov#zb-!sHKBP`n{#t z^G?T<2F@LM2F~9HHshnP!KC)pdN)bBo&O61;t^2qdsj>4B>?_xj6QyOVw12vIo9(cqi($(wkS@>c}qWe z^*VvbGE8D{(x1udkH+HnxC1WQ&5`FE=(aH$aP<)Zd-| zImb~F(b2YL(OdkYt$Xh|thWxH>3x)Cm9YLyJX!gw%!WU`^K|~R^ZC!t-FmjZ!YS{B z>z3Y#wP!4|e%N`+ffKu~F(>=Zc=&XC<0c*B3S)$)_gtM@YeM$er~8|=?{ASq3^-yS zUOAAM7cGp+(G^{ncY!wU`!;r4Jp5d&_0cd?IE=Ws)~BG25Jf$d3O=i=t^f)@Ax9X8 zi$Oa9jR5HNc7=(V`p`7F3+7~L zF~tw$wX29_+v8e`l7_F|A+|%%ju^(mVG?H7e=EDN`embfOOC=VPNTWAg+ieuiW;Z4 zC|f6Ri&n;xJgQjekX-&>pwPDXcSy}qG zJOjTWAs!}|UtYV?4}i^o`rc zUaVaI;FhiF?3vr$c+2yH>&v$OdTZ`ta;8J+-T!?qygj@A{EKyGOl;8GPYfS*`t_D? z#`a^D#x53n>^|aLkFIyUf99X{x2*p6O8L+2e}2XP-*)N2g|pc6Bf8OXYo2erod4@> z+YKdp2~``npV^k(fY%w-?U?nF1NqY0>yHXG*0jHmWK~UFDUKw~AB%aIvB4jx+iS#P zp&vL2bbEQ4Y9DyubO(_Xt-nFFP{_L`Uhdc)N_~PY++4 zrak;+1*Ym{(4J4uzdw3d_4{S&hVTy){>anl)3){BkNj>h(LvJ2>qa7DOANpHzS-6a zal#-79TaMIYRhFu0~6gRHkDCT|2W}q8rbNyAT!DNm{LTc?M2(urKqwNQ?hd@@)Yuv zz3I$4GIC@c^02EJ;^87ziV5e))w?^OU`SN<6+k6UqY`K1oOd4^*jXMGh0s{5tpAF7JLlFaD(UmVhQK2F!k z%tjVBUbZ_o_HS&d#~i+U;C#!1lq{V zS*Kl7tMiOzAD_zoV83tYNeRBLWfQ;W*RlwDxb>)`?B*SX;ZCRK>E%%Ie813d8>S^cDT9EPA4Oyg&Tpo3)9ubGMldC=_tv`c}rW7 z#M4da&4psxU4Z|r?`{S!6yTJckE_+sG8TKA3^!$KYNUY2rS;ZD5W|N&xa0G_>~ZNZ zdq~?fPNiw|Qx=5%{EVJ7C=`dz+H`5UX`oFG)}AgjPU6Vr@|kh=rE^?WzfUovE%kuf z_)>fVq_9a2Ps=|;{c}wNr;yJABB?rc;n~DdDF2w-FsjZ0F$%Wcs6|nnoQ=cbiaiWT z%8Q+C3kZFP33i#xNAL#6=Cxy6KH*R3ByvudEQiud0E{@6Uf^ zERFJL;Ek{JkP~Hb0DySK+b)9g-M|n}U7+lYwGnsgidqVl>BCDd>NXxx12wrBAA(m< z>@Ep};tx5BFV>NaPq8^Pz#W|yLAk;?2jbhIyd3yYKWGE2J~3eG=x7i{%ZNl!CZ1hY zDFuN;exG74Ke4`=I3Of~*@jbbhQPq(mbd0io(Ab*D1UzT@-y`iP|>c;uKlC~WJ7VR zrKdp3{3jJe717?7{xV_JkpI3jZh2R&00(^DrRR3 zaM9C~f2T)ne7s)_z8R z4+nK-w{^=By1PzITdeJV6HA|SV{6nsjXi(xi>PJTf_a8YeSV2ET}u#Bw2C5o-~s`!hYxQ0uNczRfUO0?V^oCcDMf9dOB>wQrv` zqQbM=+2=fJJPmVCSDVz1E@?ioHVvBA4I&T2w&W3Haj5~)4O$#z?aeCp>@L-QNBU}# z>j?{}X=z!Qh#lX`a+crjz7 zvgylv%1vcV9GS@{%%b6m-qXX@Gt+A*qA^nO?zm$m0v-Al{ix7j4@cpy}&=@2HEU zy`5NhU5b&_1Pbqo-g{HaGN|nL-(vA2CJW z@XR&SGdmQtOLpTwF>5#Z|HQ7ZcW22#0sXiBODFnIc)B2K`kACA`oTUg3v2;MxfjM4 zvm%+Hlfhd?mbb2nMtE3+EY~vTy5GY&K1VNPVpT;o%tluv$uX1WUbt8FaNtfMIvK%N_x^6EK zXp0O$S{%;}c;ed#Xp$nZr_h6 z(+3>9t9>Qi@59aAm$MU*m&eh^Eqqrl?Dq^@?rY((alG_+@8j#6v=El4jXfg^9V2?n zZm$37q3tbQ|36Cpr{r46|5PR!Aj|6=&9>|Kn!Pw;zAV_09B#YE&M4qpZBt}~p-I4r z*)5lUMp%A(`2|vDx5-ZByewz&5ozq&*r{YEqzrjVx5eZ@<#vD6YB4hf>4q`dWn5>u zP_ES(v8b^UKFcF7)H~(YmL=$x_dg`ImV9M7B$CGq3e@|NlAK{!nq;R?w#uxY_{`qe z=V@qGd}a{#{ThGRAPde$g0vE1-&6^WLDVoM2^y#BL^KuhB-Pp>KF$AEO{Q0rO~QnmsPkf1zY_ zxM^DZnkQSDFkcGA5EA&<@pej7+ja#Byo0V8u5cgNlgXW zH|hM`@MYxb>2x1o;y`k3lX`Be$-4*+*D2VXVkdJ5V%T zn*N?ixPF8hiju-27b#BDry1nr^bO$)0A$pj3?0;r%62z`=P&Uld(^X+H-4WhPy>yS zsI(1~jJ@m7<2`oG(g4I+l_og&tlvCf44Lft6c2hCiTl?-dd29u%A|Ey_>%zV+q-8- zfX>9h<+4uo}RgUHOAxkKI_!-7K*( z2}Jz0eb(j$MZ>}|cJLEH=1{@gI`xXbApJm*lX^W4;8GU{xJRXlP$P;;TlAH4HEbew zGZRQ@%HN!o&;Szma@*T3F20DrRJf?=VJzLtfO~>PhCsq00tQh%NEB*6A%T$NqpR37p=E{u-vqm%Vnh# zIenbIMDIkGHY^^tkyAP#17HxAlXCPmR6)vUIM+&rB?ZHFUVbccntXNql+ocdE7}AG z&5G#k(rq8@2$!Te8>ekaEf7oE2x!ic7V6#H^2VWA=XB@KlkHHux*qRn5zs=uYmdwv z$Kd%(yLO@Rj#hl^fpUupGQzVR+Lj>P)>>~P8$dIk3uh4?8{47CgjFdX8En212@y)O zcO}g;JwayL7M<-IP#G(q?L!tdE;pI9Db;xf4S;l3LTEn{dp6qk-y;+|qh=l^@0)Y% zVcQw$tyW=5HKYT{`#8a*1tyWQfKSiZPUiKrU2G6R@g3CT_$f+if#Gt5D{A`W@3ZJ@ z=FGCqg(Usdsmps1o`k=1p7*S>a|%L1A;+^$9(KWGuz3tJVlh`dQOx!RJo>Di`->CX zji7vK!#CUS!dh40MyA1*TbAX}sMknJV)p6iR3kr&XKi>V7)3J-7^AYC3AKtXbLAmSLu0J2! z^eqe#%lcQMX08X@!#`4GY>>6q8Y~sX`KaF!BAkfCBM!HWL-!eU`Roy^_j)i;!f|!- zTGheYZ~pALzwXRwNrZ-Cmabk_mUsV8WMsep6sq)+gwtzSSr%jV&5!=-gidVu zg6m{tpQefS(kYVq#p&0~mgJ*eWZTM=tqmEsTsJCutFrrLy5!qVJ?-XhBg>x@o02CV z+kWV&+wxIVr<9K*aIZKv4mtmE*V!rEY+x&(lrci96)L<=3Y9~?E@%_L3-ey|FJ-#3 zJFw!m`?r*$Au<0RBe6)m3&@p!FJStxaf1JyA}T3%+2}Eu>0|}+r~ThuKldjmy-lNI|B^KRT%QmQO0j6D)M_UTV z_eFA?5>_%a)wt}ss)eQV219P)7WsS0741ARh-d7+fYqlRyxB5Ewn&`}0aLtz{u-VF?@kLw515-* zjTFXn`!_i2m^Xf7TN=qKHzz{(g>8#X(@`>xpJWU7`kIwL^Koyl*5iK7(S409iX`+6 z8f>|9w2M%hYgSd#kcVj)tF#&H<(Z`BSRS$Sybu#v**OkVV_Tti33)aXlh!0 znNVT>$j;S)xm`fBwYD^WuamY(>~}^tvS^P5>Rlh7YMTu=Eg`+8IxmvFP7}|4w1LHd z2!2v~nIbIJ;SV{xkP^;NvVgpucY&CF#ZP>3xYN-qM=TLRx=j0SH8Dnn^dE^87Wc@i zfIKQd8vMeAHj7fR9{kZ4CR&{llHEjWb28>~Qdnvx##dD46%jMeS{ysfFxZT)ieX9_ zN9tLp>9y&Xb+7AnqDJBp6ee(~V2Wc+n#8nGM?;F*Y!~Z-$;J~@x`^HP7&YNY>Zu5@ z^SJ%*q@hW`Upo}|@^aI6$4soHF(P~VN}Fuyy?Y(MRM%E+JOJUS6{ z!WIcL=+k2}Ee7wNGc8H~15eJNBol-3m9J~ccIuC1mee8bTq?iA)YSVwFR5F31!=bu zb?j+k5eicMky*wCfiuucRlU<$aTi^W4SsejbILSRPWbSQ z_Y7J$!cL$6HHGT?&sMYLsdbLgJS4*|S3#3%^ zN2Ai*Dh%^6s^Fvx-iUx*`(0rwTKQX?_P&@xu!xd>tce)Z}=PM!54v98+H*?kH|_3Q=@* zGZHt2XjrMCd_c*`Z9EXGrs62#UN*aUx~x@=-^5C%h(jJZ4SmiHca!3j;;fMIjzvcM zv#$RB*+Tirn`H?Jz&fcZTSV`t)0#PPmp<=^;k;KehSlkA^MdgU#WQtMz~zB^;w0hY z{dB5NhK8pZ2AU=@DE9-B!C?UP=!Wc`oe{KmIduJVFXVDm76`o9|P~Vauf|k%;@+uolVCtf5Ch zyBzxsBRVAFujUT=BMg|pf2a|s)>tYMG<(0}843%(yv$%gCj#(X@52+~hnf!=pl0Q; zCk50Q>X828O*<~lXhWAOq7s1j89e3P*&G1VW!Y-MU%W3*fu@uQwBo$OfvSGLNF`)V{#qTk2#3KndR^g8^n;b^urr5D?327J=eVRrFgiPX&6L zhE*V!!He2P?9;L-l)~KGSHlJgpo55JXn^>&*IeV)UNw-2<%P5yRomk6Ce7T7lP4G; zK^;&;?~H(mPnes!h^KxKu5t_eoRApBOJo2^*`$6%NHJrvSR)(~(-{Se9ASAe(B~V= zQ-*#6LR0I42wk(mO9YpADhH)f_lYNQIU3;ugL!N&Xi0} z-(X-bHCDrAlgHE0ckU&g@Y9;9Z-xqT_nskdYpsorgj#~09v+Zx57&w1=&x=Km}k*Q zcLQq_mla-f_TuVVbS|@D`9v@hT|zeUI|{9CZ6CrOr^*DF8*7s)_hCFdJWx!-^JZsd zq`lh^DA;&3f5R!={Qy4Er`)^)9yh*2-!QRHIPz5M-FRm+X*{g>>4Bq+`ka1NVbPTP z8@E|>RYre3-YFKEYQgm?TbC!iBF-i0UOwcQuX|+{P1&2-(9CQvAzPrh^M+~8e1cee zbz}>Kg327dgm7t*G+h?{{IKH`0t&sH|ObRq|sh8u*6bXIse~+i|2nHmk)E#^Qe_w@=*E$iB?oxtBy}>raFs; zlAb+{5ACnQD$7mr9lVy^xy=yrD#ere(TH`XX~mv=URh7WB8yNuf^RV?FgbUQXZ+DB ziF^CYF?Y+Yw)}eX;ns=-Mvfw=OC={%thl>*4 z%wGTfNl)%rBmTGZuUGYxY61=W_g;GoWUrj8@|~L5kpb*;b6fewLs8)iW$ia9 zX2a|1{W(zt?##OW7M)cjEtkk9S_SR-s0KR=Bh~8`*1h`~oMg#Zu&wod^SAGwR|V&u zF(T;)HI8jqXR*;%Q6!0UJplooXT@h=QAKT5VegCmv@+My9{v25iTA0MxerrJos0r} zcQ2ah2irxyhNzLz!r03oC_&bJf9KPIgz3>{QYMLM$UVOk-RYSf%6C|4hMx$xz&)(l&9WSfn9S71CWFg>C-5dXn@@6XGNoWSb@HP>$C zK>Nq$iQHQ)5W78rnjY0Pqa(ca1p@^Si>6NY4h4jJr_~6BoY8OzUJ%RTYeT8@QLJCM z`D4%2Ts4&=;#Av&bMBwK!(j~+jY@U<>3Kp&MTat^uP?pYhFfFYMlBpyu@dP6PmlJx z6ZEj`BoHGX=dy8$iAi%#Q^n*wva_mpg9{;nwg!re<|NUFTW=3W=;MtU%8ahdIt2nj zu6t2jh)-O!Oe)U?5mMfJt{;!x#o?*W%3$RAYFRrK1y^@R7$HnHvyh34i{vP6`c%;2 zo;!aP0BFYAR?L)+hOeVf7iCDL<$Amb*_w_HhE$(*iJtz+0+&DGH#gt&I8`$|^fV?8 z0Lw_T=id~n_EzdqDg@@Xo`ulRLJmIC76)jvMB8P?tpFDadca->Hq=F9L!e(~&ewI5 zvqR^(ya90;Q0Iz?Q_g_DF#5J?J5JRXl$DtLBu8R0`r${o^O;lzP~)AUDBw`Ld5j5f z$fV;`h!k?vL8{ok2}~(xFZlhiimK%&C7>9m*Juv8Mw+ZxfDI*(j{vUP?V#25NrU4b+`2`&`kF$Jng?FrQu8&8@IRCy z>b1qe<3*Bd5P4FAq}PpVznk$Pceneg6SfaGOmBi72u|uA?m9ly)a#&;qu6Qo6X70)>DiOC_u&&Tgj!7+8hX^Xj;2h6#FY1&#zIJ_?Q}ZX zlZ_`|{je^*6K_9W5KfD&Ie{8!y*Ck3zG~Be?kloZ#6+|IjFB^}f-GLLY#&^SShEI6 zLSnR$Zfm14gDYW1j$dvNp!F3@`Wk2VMnX=1kWFb?)Yk`&o`vk!l~0!$F3)vF?%jr2 z9&X@t592m-|M0pkX9JIv>g>Cxt6KRqmxCTKjKs&d6IA*JjwD=HFI!}#?&hbyHrU-| z;J9n8(}WA5y^lZ^S#0H6(Po$iCcd_z(fTe#V zlQ-&8Q%=$)OP^mn_2;|2DCVjoM&Gi@u#Y;69f3e!+mPrQTYrGiUXOuBT4DDo8(((2 zqww1wLWBqrh-qeihr#Q9?@JE(=a$KYV@YWy>?bm`wm{eK`xh#Ln}RoA5hSR$`~SwC zuMa)>&$qjl>6lm{zdHeVj!#mR7ps?2l@ty33utU>kTvz`3vyalhd!~N)ZI3>wPpFp z^21E-1{FQ_VdsGa0^;!bvcreVOVW!!ZEtO)WN&g+GUE8|qu$XgUl}0%x9(d0?dxYTIoOz@7&nankoLgsq^QbBgOw{X z`ul`$dlnajj;mmiQx>|WUx}|G-N>_5TAE#dTe8oocv><2ZIJ)#X#8k}xAw@`^`NQc z2+VW*L$@`>Ed)B^O2S0AIwvv4=P2f}uT&oLh}iXUU$CEAARpCes*dfxNean$>!&U# zVt@kc0wDywl@y|eK@YuMD5eP%Z-I>dRI5hQ5+?^4J~*IC8oP1)er&Bf)_Z{z*#P=@ zj!&6H`JSDy7Xo$ZLsrOdRraKst>g`^)|h3E7%gOwNhh=+bhGQ)U3zRxgdAVHaL@>Y z`gQG9lWD6n&6O1`$h3<;sy=?oe^FEBv>ICHXy{LBqvaO@@?!=UNQ1g>)?%7D?pg-O z-nq@|AQTCh{>{xTorJ$oruCBV?{I((V z4HqUq>CP8#jdK5HpLPoAF=~Ny@(i=4-*9<3@^GutBGBQ7{4aUrHU1?%pFWnGB0Q$~ zHID~Ln_cJ6eD6kFdvf}v_w%G_h9t#|$VnjI`ASSs>Q>Cx6zzzJeePG}IBKt{F35Om z4yJpiYc9kbA_^82qK1#eH#kLykoT;s{Y{|S8`II+BqYlOpYp1SGgWLMNE!k%#y#kU zQBVZEG&-Iw;jD2>K4y(M^1jc6ZuM;=jk?%MrIOM4a3<>#Q`;Ftg;L@83)AmjB9Wot z^&}%8uln&1{LfPQl#SaN|1tLlJ>tpmWANTaMj z_c{4C4q_$!un7r#vHe{qXdjTB*#p8d`@m;diNFvq0dt!2GkV+!fZ6;AoRFwks+ENT zIZsUtgXYUyhn8L}hl`r)$``bu6+q~lRSZc>Sty2_r_l@_RmbvXR1&|4L(HYEbRlS~ zkL?}^sgtKiUF2+L_Hus}$YGCi-%>ePY!K%%3IHI=i98w&v^Oewq5)iDj+y~#{tz=7 zVsQP(8H^a9!cD#K;nCAwcnJw|E?5+^?0wHmc@IF%Bo4=tWUDiJ8uIx34zO6O9O-zI zI}id2Q>Y${#Q35%VZqzlZay)WX_fc(s_d$?o!Uw-z_x_E$r{)f*I%8xiis`jw+Or- zZeN63rZt5?uEoSc<%&^V=hP!5%kPRTdg=^NgRmNffRiX}Dn5JOTqpXeCu$siJ26vF zMtJyCVwTSsUYKZpy3FAG3JcrUTMcInka%db=gY*+^n1On&E%zGiz4y9E#2+b+U86` zo05+|nHjgL-Z6QlC+12iNy}mv^7xuwD?@F(f3$_2uf@g+ z&socd$Vxn#?d3XX%@0_SChq+VM z*IDiVj{nYZ|ITx}XVynd#(-VTX)HRmn-y|)ATc4dLB!UZLdaU0U+sZG`|H^J)9#Q% z4>mnMyC-M;y~+W@Yu7G&&Yg0c$-e&Hd4+RnBgNo%gnN(w?|*H4z1;iY;gZYDDo;t| z{;O-dZENQadRVM|XWPRFZIH-A$S!gfeO}aQXXpM0K>5q$pV52Gv|1G0+C!U$&%_&_ zJoC(WH2lvs)np@^I`hbcpqc$unSURGfCnhGZVA{_XU%I#M8o>M3ak9l&p8~g2K_*5&tUa}k?Ay9a%Lh?x zN7#P+$FudQ6xut|hV`w7Uj7SlT`4_y%6^3t@;7ub8iSN=(+a7=+afHT&+H9$X)*iV z($3(+_qIvt#!( zglr0jSftxB?;e~|71>PZB6C%DU3VlzG7D0M$`ELd%VaamSUzL;8BnngLzYJ`HuSEs z3tYU@#t2v#8?(pQzBRFs6sn`3=T29zYn*m^NK%qpBAojs^9(M2$_zQ^hbQ-aMh7>c z-~BpX`$6*SfWrl|vrgP=rqeY(t0kA$J0Z^;4QfUwFEzdNraPrsZZ1EFFEFJ$ow{XY zJvyR|we*HM*omWduUA`SvLi`{pC8kjy}1K%b6=6sY~u&Xtt{;W$zPz;raXdMJ6{`> zGB5PO(UiKQPWn??GMS9y>6)Q^y;(F(UBS+tU%V<4s0qIFM(b|4M%;D#oXJiA(&*aq z;DY|{iS$HAq3pU?1;S~40dCTWc<67*&X-d!#nG|j>_K*~2;Hb9?>pBj@s_iT{0LD2 zTiJ4~-^0N~y~nm)VJV&a75NbgT$j4|DkoKXQdS3)IrD?-L^Kwi1AQ`CeKEYLV)a>- z%0`{T>H>vym3bULktkoX-~pDVPB}!>ym1FOMw^`4JwyczUiL!FJFwJ&NtL81MSW7$ zA{~6}`C;p7B2Yo6xdXraI6M{}rvl)aP+{f(EoA`^)Y_}7Q0Wq@NRZp5r3v<1Y*K^Lbq$dE zMOSsNeg^?8m`;CcR!EaFmS$Az3;9V5a}5*FJQ%d!H}wuh3p5NEO&HsXl+)iAm*)Mp z0KW8Hk5NN>s`tw|xbjgm4wf;PIY3>k?tP%o&V$0=1DbgNpz`y!DM3gbj{zd+zhx){ zYPvuep9(+`BpTI6siX|Cri+k~Geyi96se=6K!sH;T&I9y0e};}U@$?-fIBKx$8)GR z`@kY=Do5e~(tan>`wHYs9>cHIz4gb5dDoV6&L7Mu9n|yK8 z#CKwlC~BY;&AIa=#)-*$Hm>j1JWS1t@8OQmIS>vcl-E*3UC@&t3Oe&*`y#lq-pNGo zNL);Lc_W`f;kBXgf)Q$>nZ(pS zVI7HQVm!xBtc}ikx~86onVjSNx5-`;FWRL~+maJj96!?+U`%7k4gi49 zu2AC_Fty{yXN;G5{^MzjZSDS2p-gYusA|yAcgU}6h947Q z9W}OrBA>jw&-0VXC;I}9kgj)QZra>Lhc}*0iyjKi7kP{LKTN#arCqy_>cyaC-$kY~ zqlK(|nCY<|Zxv9VPx8aN+Hf@LzWg=f^c9_anwm(VL}W7zKTVlz&na?I+j$A|)V|8s z>#$zYuRgR8&$SMw%jmg-R%sbz)6DVskWx|CfCx}_KYMd}|J}G-&!jmDwIa2hN1=of zuh#!`6nX`&Y_)vQL31vPy!3#FpA709dt+Z~lE1!{fMiy$-@z5hL|bhu1{N@tw7>T- z^KC_ln3$q0CGXsYSRm!rB{6t1(-RftmHDs3EmJx#yd9=fiYYCoXGK@*>W*DFPX6=^ z%V}#)sv}Fh!uyAZvipR^{k3^X!*!EJVm(G14jSr}^~p9xU#;t%CeMwQMYBR2+T!C6 z71&UeF}k)wBRjiZcX?QMUBbt(@k5!HxU@i)Iu&;7q-_bHo-I&-yAHi02*$>!+WjqIb?=Z7QXK5Qk+cY#?9= zYEdi0eKRf9_5FSXHe2Y9r*Lz&cXzRWUhD}7>#66WWkdBKZLOTv_$-dLctPo1 zTceG6WpVK`O3=P#Wu?2~Kp|<2XKt(s&9&X+?djXJIO3IwIE#|p_w+B(n20v3JJef0 z60q~McB@q8#P2YR4)0;~MWzbEhUW4z0s_D|dlSC#mQ1j$U5(WVy5Z|)^ILEDsM}$ET~pL;Ge+Vv5zWE^|_Q?3XRY1ZxMf^umSe|~cXMXKFnuW(1D>jNQ%Kh(6>&G_Mj(B1HqBVOzT|c-x#Lo2jCw~L$WQ{9#)*dA!X1CPXnrm|*zw!LEvQP;SXtIg*^bL8!EbM#?7s9>9)7KM zM80Cp@#rnmA8;$B7;g*Ug%b#aD+>1Qz2ir3TbUF3x$nJEZzQ{u-mY)96qOv=JN9hV z00;a+ooQ^ovuZ~Lv9DLfS=G?c5XsEQNSN8Z#eD%^D9GVO0oE0?GH+EHToLVtW~K{K zO?*C=lVjbe**z%+9h6=KK8GH>6kHPnM&@=ub#8e`jykt>#UI>NK?etj>fB(<166d50_H_sT@Z9?d@nZ3 zCuC1%9tg5O;dD$6PfHg(ps(Pl^U5A#GZuoeGlZ9^OOxEC`S3QWuuUz3nK(pPGWs!J z)D?P{CIBbcV4;MU+q+=Tmemjdb}D3WkQ&2Tw{v4-pd4w_j3`@n99p@tmrG8Kq8x$} z6KW_66hN`#18F8vWx2JgDY5l@m$4*_Dmi)i`Q$CYgPDC(#h$hf9t>IRzyZa80);GO z%Y<*F1HcGJ7>Wv*)lC;Zu^QmK1fP+Db;9Pedl=}+N#+FT;~`Txt>=+4Rth;gj0tSp zhZS21oQRHFvjbc#I((cNrL2-d^Vi|EW|@s8J7B|k4G{?og~yz*_2h;I9?_rQd8016 z9XUrSMxmdQ%%d#o{6qoND63$$TfJbAh@j=YeMt$om4(Op?TRX+|)z;r#+ zc*BTgRP7WErU&@&z}Y?0HM%npSi29xB-)!17v%#_2YM+O#$E(Dx8wK0UpE3QU+}XC z1-sadi2r`HB6@y5QKjqE60g#*wZvePp!4*`b}I_pGPY{&hI4P_5v)8Qr8o_S0j}|! zUeGKcjK%8(^sHs>gXn?HpoSsrg`rI?ZB_)=1zs7r6#~1<6>h!_2K2{j5ogIJk! zRFSRE{8c$u*STs=zLM6$do@ZLpY~i0tb*jM*=FlQ2gE|r3*%cPW8|&%^t+$FX&8aa z2>EBzt)+;U-Y5^LYAu`5lm!WH?xi}0+f^lk;8Emjm-r{~PuSd7wq}tQC)4;CJU$gI zE*phVq;(Tf1PzApcUFZ&F_#O%UcSl8?5Id*u;UPi zcUGxhx@|~sjgYoRJlU)@x-;Bog8(pD+}NUq$(vAtCb|h7B8+;0JOG+PS~>Cdt^xNt z!3Ki$2>5d1b=vC_!`JWF+}`5qe|yGrh2!(*jm?pacjmiopZnTI)vm1Qp;yGy(ZvNV zs#H80>ggyfH7B1t$tPpWuIb#KVA}tTjuwjjoZX@Ytlf$Yz2GfzO6A+vyEax+X_7$u=CI4gHr&KfOG;Wuv0uJ|Q->Jy!U_KFRb$$i`dw#=TbSBE z!_O5ay54A6nazxyP1y&FHcxr1y7#r-;*ww7jJdJvkpTAnnLV#4L)I;Ys6Njc8f%NeZ6+SW z=x7nI-mv%A?U>FjkB(T&y(JXBZ-8MF`3t>Q;r9Ur$s=_6U)rD zDl-%GeK|-r+`>6hFHLKq;aRmeL;;+T23&nl!c0RatJ`K$B6~J^I{I0BhT-WLkgM3z z$LFEt&mO@#y3q3Hz2++gd5oC;C^bq@w6p8b2#f_C)oGDZ0v zX!!ZayhR1}A0L14P$UZ|AKo0@D5q-ZG1vQ?Wa9QuD1EgWl1;LqXC@%q0m%krzZK0D ztEY!PKjdob?olnbN4W-ZOKCr%1hMQV|D&3t2Cz)xf8=DP#9pGi;2#KQlvX**J318D(|E& zSKzP&-ed}wmU>wplRbom0f9)=)<8u;9JYwEzRM%&4*_zRJ-v%N{89oEYhN+T`iHR>!bsPs%FCVJ9fpPaXYvFEr8xwz=;Jd$zKW9#Sw28pq5KuS!kFPcGNN6dW&+ z_Qj5X!p-oDMxj52YTe1VzHrx}s>~=9*BJ1__qOYQ$r|9-@pu1HJIviXsG?!8i9?*C zf4vH9^LLr{Cvv!Xw6~}PA|Ds z;%{U4E7fEGXvY=&%399@4juK*p8SQkLj zS>4->)a3LZv;3=5F4ZL{3(TDtdhIWhdBbL|2!Oubxg)Lh)qu!52w*{EVS zu--*eE6|I!k==;iDQysoRd9!-jAfe5NM(u200(36ln~WPl=+UjE`2ulEEFofL$YO( zpH!nr`p0xzQ5~Sw4Q~G>6cV@a%p7PK>6T9pwA%*>D>o}gV4yxjBOgTpb=t?m&N|ct zc^tVa&e^2=xY`lDquO@?bt29m@lP|sRFU|>L!Osp0OJ7|?omPhiyIw?nP$IJA(QTVJTq7? za=}@yp$0I_256ER;zwWv$jTwsCdjj#I+rH_aeE8j;gz1?Z+BSf!-I1goi`W}{>VMZ zejM&dQ*p-vta*=v*NDPX!uM~wEa=iE$NmQR7&1WtwaIO(T~+O53G+7`fvqTDO&-XC z}n#NlPJvuPp{Ki3xz{S%KY9iRl00Qh%Y4F8|aNJN9({ zCHR2n*RjblhSP&9O~vON+uN_Hf4z?!i~oSL$yjt-I6k6`dJ6n+UQ!Up>Ij2vBT!39K9LoL=;aRuUeXN7oY)E zD+&`)X?G1>KKaZ>pK%fg9p-UxbS71T!FT6pQ1aPpOt!bo z4HC?$M?g|8=$=AL*foC`pIE?3gJAS#3tJ@QC;?HUa(RotB0s|08l23lI`KA3Yj zIa`slhFN8H53ty)%yk(U{g`8xN;ILwldK4_ZKQ|;C`|1`yJzNBg5Y} z3~eLZ2+YktGjd>^gA<6@i_eC&^HI(Ju^4@SPXFb{3oOhVwmof#;H1^7kV6n2i)dg7 z+22!c1YiabN^`zUEfZExZ9Qr3@n7EWzrL~dj|&R_9optQ(C$CbHvhjS^tk{+-@g!f z-w`?gGeVyW5Q)$WbdLj7Mqxawf2>yj@2!9xLheylCreBR>91 z=})fVCoUJ*tu8LD1l-d2@p{4aD7gdodC6x#zP!y#TwU{ga%24<_0iY&^cU09yRVUA zGS8mZOR6z3X}-mhMwI(YPF-s+(nWZIf!7XbYn$klz2w=0=MLPj(-tQ1Evy2MkaOts za=T-OO`?WPVC*`B^XIaK44#Vz^@}SZA`z!V=f)l}oan&UQ9mE;KWCg|#&S063)N|~ zee4=USoq>^WRmx2_d;Sj^%~>yh~un>De_C6gVC>j(^o0sh@s&hibG^mN%uO z9ZAyFyB*hcVWIMI_~5zRnYO*E71>F7a)GAR*mz7AvoPhL80R@Z)NwBQ%qE>pomCb6)wxH0*gkEcIv(`V zlU1GdBs~3U&x5^C%<|;{t^BDQ+P|){>h&)8sdF@cYmdFGQ<(nloC21+jpBziS$z`k zdo?S+maa5#B^RAdgV!b?8J!<55*KZ5esatxY2LYWJ?EUQ$k6+^sl#xr!f&nGnHwhV zo|vdg(Oo&iYS#1l_)eu`FGWk1BBxh(4 z^vjPK+|ManuioG)md@9{_g%cHqI=!Xz~F3X@wbBWnn4?dJ!#n^~to{$asy!}l6Baow4WWzmzu1#OLDAI)DwO|Na9M7M_MC7b zNsjpH3C=w*Zd=iO`N06SI%7H~#HGvZmkU>qsSo;I7WyW>#XOjEI9#0c2QIopzcM+; z_~7nV__j?co@nFS3Y(M`Pq*az{oFgSf66G81O31(MI0*qXMQ;5z;d-k?YU&56}!~v z$F4V4bKWGap8B>JcPZsbx3g)E&91||jK^;{mfJqjb+=@upHy8N{qnG&PTzfEduNr%xqvux$NZ;aYb$xagV~=O=2t)4TWvks@Iue&bnere ziSyx=JM>S=U0N|b;fGZ^d;OFCn8|IYuBK_v>SOjVJm$}J1=5@@o^y2wH1V7{{uMoZ zHu&3L8z`MmRa{CfGIgMnV>2#h*9~++(Rf*bIm%ikJ6X7W{MN>_Q%swnxE>m7f0&{6 z!5hhL)nxenL*Wsp2fPYT?7p{ejb-iA_xQl+mam$V^Lw*&T!QkwI!6X;+{Vv*&FmiV z-KLj9*_v;xlxd;7?{|^Sk5ewDuGt#cO=RuJW$T(ukE6iy~*n-Uyl{iO{Bl5_|2uESCyW>+!(Ps zdNJp>)ot|q4IG40jr>HdpZ!V~Gbg)F_4Z%%4-3aVqE*fus*@C~-@h^88Q56(%Bj4= zxUlkdcFd)l@7wx=c9Gr&x9n4Y{lsGUh$Vdn*H}gxmAt~k`0`izKgaIAzPaW3)rSVN zLDeURe|YYasEuv*YD^U8wwz;5xpzyQ&n!-S`jYbS54*c5A=d9T@19G^s8G0@Z*i|J zwD^=<_q?)fESEmm)@T&;>ll5)Iw-dPb{vE+kZzw7YHwr~OpX3i6qviN75k5Jzo$k2 z-3I=jkk|jh%KJ~G>)*WG|2uZ8%fH~V{|_(K0bX660phy<9u|F^8Xzdy>qKQ^n;110(!?(EYyu_*9-br2l%s>vIsbkyG% zg9iCA-f?paOYeV4#sBqS_W$(OU!C^alSesSKXpXnZYw#2tSYYe%%wxLbP4egGt93= zzuK=e-tElG9j_*R-A?B#RhnkuC+00F{&%vUJgoAKQ?S-T;MV)mFM7pao-bR~L=nds z&B-(0cIy?*UsM0$a^ZGx1{*s@%n2Wqf$&Q1T_a*oPbq>t?RD33rJewx7(~ zthMYtl6Q9xNG8^*Gs9|xpf41U0!AD!D%YI?OjAww;pk3gc%`MLT$T7d{AnUAkg6+9F;P_CK375zyt%)WN#RHnpA*R$LBfzFnLyZtJ!oqEEi{dK zd|0zG`Y@%J@&>5C&YJxbUL1;Gvbj`uy>$Bn4-w@9K7GILUqy$)D>)Rt1#*E&<#Wl< zg7fgF(8N|S=zJ!SHnlZa#<0b#P0w%*8Cf!okc{@%_>SJT)gDgM>1?Cl(x@|1>6E>w zD}t^4tw;7zmmha-Qx--n?BuN$s#uLPQC(_NBO6gYLlH66_zx({LlF?USS*w9Qz(Rr z;Frw$KCIJJVz17;CE|WwCOv_u%*j;ZC36<3d1Auj-6uqB0d;PnMw&%Sp^lyo(Nb_( z)lkb)LDJ&&tMFeALf2fV3qLE1)uO(0#j~r` z%^~ye2SGPrsgK)nP-S5{)mS;6eh0NEJ>q30@tq7{JZS@A{-rwK?mB8*}E7c`(f@ zrp)@)yACx8%??C4z{JrD8cGIXDFYRG)5kl3$d?ovj?E7_I|kc{5&Zk+i62-KqONkn$Xee3t{R z(bM7E1|$iqeeW)o&9{I?IIIe}pwz+3d1q%W?O*GyZHCKypJ~!O(T3zXfpDl=L=b?o zyfeS`u^s#nmbxRyK;X$wm6}dZ`Wjxw_0{vOcx7t|7v)ujD}A`}(6-!mOW(mE@vO|< zjSy`gL&6JVprBST@*>Rj1yJg{DRB->qq_(U|3agTf1V&J9WI1saAJ0*2AXE6ixG@Q zu$+!*ds!N#GK3S=mAD9@uNy;5#x;D2SvLi}PdCy{YHL`QtsH3RFdIG9nh1T(q6CDo zBG3|P2FqPC1bi)_aDca+rPPo2A7nYKRHPonguRV8?6HDKZklb`-Ks?QuRA}o7L(~4 zB~)U^-gPMFoz6P?0LS6vll~<7<)4ULhN711-0E%TY#T7-*n#0D2c$k(Uw2i!nKXOP;5y%5ol&ql+Bi#*RP7@OLN99 zywrGG>bQC>a@_wCZK7kR!AWyoss7RM#BaN;8?5R3yz0tTj0mW`!@oTm|1%CgQlBBk zceJVNZ|dZnf`kq1*YFFRGa5fV+AzaEEnXhG85Nk)af9&L&@?T!FTn3iN?&9bn!B=0 zgWCr*l>Kl!#f(Iiri>CK`xC|%;(lw9qF0)|a&8+i#lf%4&a_TfNo$ zI90(zrKh)>+F=kqFu-~Ka|h8}l5b5K5C+jM-5R4TEobLAIeI$ zPN=KHfyRgPXm|f}UbDjiGDIqxO_C9%5oEEQNf>He2xq+9Z=ob@7=up3gP=X>95Xivy<`L zx`G+`mTR6gtfO3dqT<7p8`ZbBIMKdvA9eL+UPQq(XAk7QyZ{ixabxfe>-W^(op}hb zs+A~_7|kcEe1Qw!&OgHAIKrDF7ady@YOJ3=R5c=~N46xsqD0Ay))S~V@3#{bXDUJ=N~!j@ZrJ*Qe>mHyH`PnVSBC2WHZ#Z zeZxn1fthK^MHLG<5KczrnKZH^3Ve44H{kzKL- zYKfiArMyOc6OE7RdQy!GZxj|9e6JZtkhNW0ar|riMs%UM+?EZe@(TV{fe*mBo(cM)Y5!-p-Bb=DdX89oi)j==StFIsp|x; zQm>{W$L!;g5B>S31*+bkVe)3G805IS+lsLJwb}GlQr$v5y(gU_>Y%db!-azj9#O$= z!X8Y4|Aw5zukly#Mx^EZd|}Yxb34Cend!M8Lr)okU^=W$9;V4gx21zd9jcjC%WPW{ z7>&+WL&MD^lqw35XY`{Q%F5G8k-G-^BT&{!m-O8ZRC7@BjWUUUw=^R)KrEuXH>F8b zl7SiG+ZO2C&Kl?XXHBn_^c}EoJ-RuIUe|mIK^aBqY%3yd@n%KV;EFK#!I0aE6hxS0 zZPVb;vcv)+dF|a%JIS`=>OUyFQ>Pg!?fXFID?r9}xwh&dOHjt>^eT$QV8{Y7wV|WeVuVpq(bTC^ zZQ)F5&$N{B-eKR3OhmjxeQHI&lXYfwYZ8*bw?gJ2CbzU(kNFUUGIAkTAbM0ik>Y#OI|J zLapX%RHj^bD2B2YmArk%jvci?Qyc1`88u+77z!>N1u)yJ!7E{u@(zK<7wkcFz zeD(KHa?1>%;~95)wr$sqC``{)*d4>ez`cLGO0j1evp62tZu9*gh|H7U#DX4qU~8(U z5~u5beMTBjc5A$Yez-lqXWKY-7>B>*!&+r^BX|nQ$A`sa70_3^@hC6pmV5 zT)NsR&Z?J`CG!DK~4&L=FuBp#E-wC zAx&B{GHlCsDXUH7ZwUsM^QfD@jM;~&1mvq3oQ)1RHfUKpbHMZRPf82>6VF-8Rlf)d z51!f0>gbk`oDMOSb+ZE9ZSiatckHN%bwyUm-o6-}hT8jX%x&^FcDYko2a>JSrh4o4{{_2_gC0Svym#ADHFwyV9i?r5?UPHd`P3fIQXsU z^2z~E2x>JGn3)#+sG6r3SK?ErWa`b5AIZnblYEVca*E)lQSpZ&pT1?eLX?vw^*#1B z!F*qGMVY)Xl22YryP;vM@2Gepd4tNpb8iBlKVuz_lkiA26jJE=ehF{ zm>8=Pq zaMo|Gg^@P)tbUpuq(c)w@s4%;=eQ+E{O?DL$d~9x=&=BG!$MsWF-@r?F*gsd#*ALVe~zr2tIW7dbOS zGeb|}awXc|4aLEJGWVugoF^6G=phRQbw&!ReUBHTh#Qv^)bhha}2D7AhjpWS@S zUMBOLZyH#`h_1PgZgk$3H!bR{Ig6WVEZdz#GF~!2s({5C zD7^UDGnul4kZ`Z)Jy->@yS`C}0Mz+#UZuhTIcFc9;#13~X($dijH%SCRqO`0!TQnF zP}cEo1@uAIqIlkYe_xKEsfm(R3Bpl$(UxlHK*?mDSjuN(rn{F?ld6*shlJKS$*D=j zoT*T1LvBkid9^AP-|roz9n(iy4b@IvqD$CjhW5a^{HfV)2^DiQIl8h(h{=&4qjPT0 ztU__7zJ>$##MCNb5^$ zsZao6rUQDUdv6XNSp>UT3Xw~ww20X`ucBN1Cr#px^p#7dJ6 zEiK7b|G*G324Zf7=`~(NZf?}W%v6vBgw%#UX}uWgtM}IQcZVqK(ypG05FxvpDjb$c zge%Y^VFx)rlc&-{Q`{_@XS41;t8T_^n$a zJbDfiByxWa5qG;sEnw@JSg&74ccO~r;7(oL2CATM01&n|y8Kyma(5jxkCpN%IrpDY z2nn3Fi98F?9Mv{02CgX19J}e%Lc!2d>s!4e&G}s zq9j?$m66HP_0zTYOaRI$`*)rB*Sj%-$$LX>WZbkC!Wk*TX3H^cHZ=N!+D-83CUp6| z5H-5{!HKVl5rm!3@c678@;@VA3bDO-W;Z!|emmT(@ebTHlR`4w9ZCyj2A1f&W~v+R zA0k+p5h23}NHCPKu$PU-e9Uf37;bmC(H&*_S z{HCcU!Vtkr;$ef&N?Wkf3$#hYqGG3NpJ{zUisAO~E7?kQX+#Bs|?~ zyDtPZsKKqlzL#xY(n}1qA|3O=Z^q2(CE}v3I6Zzn=$^qKfQ+U8O|jT3(=#K{l1`7B zPUR1%;XXM9gD&lP+nu%J8TwaeQc-`F>AcQId~;^K9lLeV(;jZy83380lNUwrE0 zd+2EVp$w?5?rMI*MBJvZGaKQrXRj>8pGw(brC3cI_Vj#nn*wOPi$_lj= zj`-{Lk+Je1I&slM%pyz%Z)>yL6?#3Nw8NB!g&`8S=O5ZWR8}Wi);_S3n~~;njy{n5 z^>Q+D3ROY;!HvocW5%2BiV_S~% zEhyg6Bh`)$yi)$X@v1;X?9~LXpgL>GZYOijp=z^ zRE5EHj-5JKI-;rAiA4$&XPeyu{Q5hpDcOpVY)J;5pVNeocU!cf9zCk$t>9ONg@;srO(DEfUt87&B zH#wsbdI6(HMqxw}WRawFje(|00tUEYrTMMr{Irxp%|a2s=U*OX#T7okRxx0itWg|n z#AozmwYv^no)gxua6j|&q;Fh8l5G|U<*aN>`yoqG(HVv3rGBOU8x?DriX`65*g>Ag zlRKZBOVg`2rSsja6?waRDU&LKj=ojI39d|6Fk@d4!WL6SEskoXNiQ9MsL@#SzG7#mmi4XsE8pEWM#{jeR$_&0*dgYTIN6R-T%(>jNU+_rqV65@8=>( z!X4NFe8H!^OXK)1eEOjAsP&{8<~=0la=vN5)&~_n%24VOWpW{wxK-aJcKJ-ZA-K3y z+5lRb(Q~y;y?55|vfkby>0(X8m{;T2p@kE%&=U0A>3Je1WHe7#Yk1h{w$5Eohbj{^^2zJ!v=yYL})IA#l4cSb>&$+^dh>%$}R5O@xCuEp6 zkDOLqt|q;90k9y=-z*8L26$DY#wrmsr8sxW~my1>M!Z>#kwKghAm`xD6`uT8Mb(ZEiF5P`m@t(zs(Bmon5n3?NG+Zma9F)Wy76BFp6%=Ep~ zjsbXybsRAHWk?{O?k%>1tCRpc>H_1%>a=t*et7cb0)a(T;{2*z90a>ZSH$k+zR_kf z!`_))uf6-u+?CSPl*thvZ^JZk2^3NMRUW6KU?4#T5%{b}uB^_Q83$VD3KK>5D=rGt zRFN}k3OpP#9$TdG{br(tNTt-x4oE4KZxQafATu>ckVHGJLc7S}ldOWiKx9QQE$}b` zG-m`m&{QY&tQ)KA0GtTwi5kEJRt~*3f|yYN?g2qF(TP%WYnIWxTY*N&HrO34HX+bT zv39(us6d&renlBty;VB|;RRAr?(do>izQLf+e?_8#Nu9;=7Q1Cj7YfY*gIPM(Lcdf zumo*dCxlRbT1ZY#4VhLN=$Hzo;rUbkdVT=V#a>Qz>YL%VoK?-9A-A9_W~h4JJlY-jNDWS_t7{w2b>bXo zaI5iPv;J`1g8e!~$Gk!XpMA~FW~SJymqSMAn>JZ=R>92>G<9tf-Jb@(DxAM((Fpd= zV-B4_==x5hJ5-TY1a85Xl{`u{w`o->;#<$$;l(sK+~U1HeVsP;1!k5CP4ott!+hfv z4mHPx>5fDky!i{!O;az>G&N|WL<3Hmzt9xEdWcU{hDi1rD_Io?LI(v8n2X3c;dv?qK@KR?o#-{S0+HDQ(8-jRF?WP~LE(S4_ zA{6`&mHrqdkrI5by&4t2@~>`etwY+aJMQ*-{1*rif*NS))yH!#^`>XiVhaqdh;nueRAWoSv^8QpS)cd zLJ)6OKvqJ+sPB{Z#}Bk~Caa6h>W4!Nhi^tgJ04fTk*;N=*fUthATc5;Vi7<+M_ zTSdXx{`==Du9)%~%T+<~pWVc*t{Ks2E=?rmL?>s1Xk26u6Oy%R&FhzrT5PDeQfhRZ zrn=yjwO%qK|JI?}x@l&?HvBU^$7VV4L|JS#K?u-0&=Q3zgPP0`KB!G&W}ozef$p>b z)7O_fxCAQEpH$Ne!P?vwy*oi5S!|_A)6&LMbg7c456s7=t^#N>RoZxOc=&dJRw)9o z=)4Mwa^Y433F9H~(zt_PvJx~0g6d~dmeQvNS#CwFy$cbGp}I@hI#n7Z*__KtrSh|I zGyJB+8Rns_C!hMbD;wS_B{^M=sd!=@`k|00cS)i;VeKz{m?oBky3}Mjv8tH zY~PtJtpOfOpZPPKNQmV$u;88%wzaGV>!E;aoq6b}Sn9vo+*kAJZbflsur7)}SN#m% ze#lW-Rg?0<8v{)GE$jii_&U@#(?f zcwp6f=a~>hsd2y|DI9lWaNlO`GR5C%+2aw3+dfiIsnk6dtOppRg; zVow|g5IQ&_Db$muA`c7b;8JHY1_#%ujJG=_(i2p)1QXI(^Z=sc@Q{EIm)#e(UgmV0 z13J|Q>B>nC6wv~4OxAPzvpIdxqIPmPTLIUk0xM8(FSw}}GjDa*DG+$HNub60nw0z?l#mK# z$N~pvnxvn&7%s?vNGQ;}(_4FzrXDbjCvAVHnN;k$Joaw9=%)iFQZ}Uz;;D0&oN5U{ zKWj_L(vQW9G!BPjOkTb2P(Ta@jkm=L`U)zX5EYi&J9Be0l81E2VVKJ$C+6Of5|&@e zB;kMjUb{4etZR3uOELTPS46y9phHCqBCRd1&HzyeQrXh%=a}F33y)rX8TL^#C}pW{ zSU510(bqZ0pd}%-ypET;B-5~G6MxvJck}#0WUYZ*Q?JMo#P0F*G5a^1%U>TPM${j6|uRHWF2Et#) zB{5GZIC#&_%xShQ?7ePcc3n^5r!@|xwC>S*oQGJ(bCbL?mL)xGlja ze-#|#)qLKKmBBD{Z^hn9v;_A?e zX2Doj?I&=;m}5j(D^UVEsQlRhTSrIlwx>iU<%2d!E>o7Xktx#YxbN8a#p= z&+X&>uDdwNhYcXIAPd7*V!1}6#!w(L5y!8bm@WSaib8SPW^T)dYw(;}hzltk$ora5 zm({pR73B`kNP?VCW!9{Ma2yM%>e9M+2KpLF2#K&~r(#3^34AZNdsr`QDz=Mc0N>dJ zx9Vp9Mx;VPpp8jH@MA#Jeg(ahz|g>*N)^2~r7hvwIfT`vY|*473LWe+^&P^N6qdda z)iZD1jLNg%ku1b>)JGoS`jW-*rS2O@y`a`~Cfphf53qkPgX&Vj$x~U$Xog4!ZQnVP7IUjjMbRT#_Dr=p(Nm(`kr<8mFWCN4r* zH9pD01!zOQYK@@d38rad28P(zUn^r>*jz9TQBPo^@&?Z0a2FAjX#punuHvM}QQ*i~^Ulu6!@ee-dEX^7m6dj@*8Pd7k{MoK3R zy2$#x)32s{Krtc%BJ0ILkGeeh86B;cO;*USUcxd9T3Y#5k5Ze1hUDj{jU=PFsIOh# z(saJ{aQEugJ1cD{;n=kmbCZYe6!9@rZd;>E;xh^)yqef?XKsbbFf&SIuPn4EmjI1q0)ZwZMJ)6hQTc zSh~zXZrvD|KF7uh9Sos<`A7oa*D)Ih#@(Im`UY)=;ai#*o;(iD2e2dhKZ>h zirCARqQmPYi)lil*9$W%FGHK{`F;3Ye*gSd7rSJp=X1~P@wgvu_v>wO#(Lb{s3Qo= zz7;}|(%X9ZAyMG!uA)6po|o16YAzmm?zn;MHxH^0*nYDFv0p?Ypdm3;G^rx14&5gP zCGdQ1T-Cj}*QfeJ@sR!>7D&AA~d}-okfZ` zS)XAXn?-uucupswxUHAV*Y^0lWNhsG-}l{(0WN3r_OyWQ;#ug$#+RkVJ9g5db+MAK zVHSu$$H$)(_84EqF)@Q?&Vz)|OJ4SPL%5iF^XST7AUlQ?!it9u0Ozij*3@H*rpU{( z;)Am=mtiBXs0tp+rtCEQ_qs2yK-5KQG<|aPsOFBMY~VDwLBzWou_A6JLzf}R_aLRU5QxnyFB02PUd5PvExhF|DW3FN|kkE;@x0@Y^W8fik9n z@`a!F#uz+M(^-&UH?&N5gCy6gceRMRCtEGkW*}&U&zFSADGw#bDUj&C%g2JN4(@u$ zd>w?U4jhq3ph-ksKO0fiwna?bn}-sodyHC99jVD&%$sI5BNL(;251T?1c+D8SQS8P z@=`~oE~gip4^~;cE`+Pb-t$t4}>{p z(~pPKRfBP$bs*d8z=WbVpJwnz)rYSh;7>BsIl{3D;bfz4e34Tc_DnBbtltV{=91DM z)Pe3vVs&>iq~k~P$PKBuP0Wf$(|*=;>RR_AX?2z1p<%~>;yXXAGJ=kc+W4reCoC!E zx8Vy>H{`;y#SvL2wD-t{pzfJ?^RvbAC{l&%xToYKxm#V-o!)u?qR?;j>RK^D0ycEC*IR@wFZ^0*31fQ=WeRo7y#OfyzF+*}_v_GGb!dXWft?0t2d(pe zH&l6I+7Fx>nQ1Y2ZSrQ`j8&c%h3{$q5TgPKc*2!10%h(9f8C-B7u!vpm=>)HMg(WS zXN$i+c%ZF`1=kTz31ISR9&;U{Zt11z^r@zX6y-6^-wnctt!n>9%MqIj-yp1FVtt9d z#m?=jCp#QWn43k#`p~QCr-A=4{kRxk#^~|%q{^V44nGv?s!3t9xfs z(bmQ!)>?t0m4>-!mHXUWM7OobgX>p-N+7Xxm*ROb^%x{AG9x;grPFoQgxYg4weyli zH75h0feLOSXFr>?vLZ~X=l~Vaa?9oUF%XDnQTG}G z3W8cKEWhyXeph~kNp=pLG%rjBIn!bl!G_^K>t}*m=Z(M*o*zY&DWltWVitdi0{-_& zLGSF3Vh24!2%4tbsFvlE(=XmkNtl5S4JA)1-VU601)|3hPNwi!bmoXQAHqS^0r(-Y z$8Qb35B~X9VJ7S+z7YLd{@eK%aS!a$Wl!38U3c^xJiU2$W=F3?cxIkBB9pMn_xFTw z9sC}~>@qMWKNPKU{JW%-;Cov4fTyo zNG)JQ!z4D`j6zNT@{?O|Wa7X%14Z}x?dpUU@!D7$x^Ch9({#yNj+vUOBtc$&>uvb| zzZqpGUbzS_{J0ZT{oJ25>a{&WmDI$|Dc#BOJ9lVub-AcCiyHels9TN&zsGetFA8h0 zQRtuqT>gBS!~XgC`~n4nc>JUe8JqxaXjj|mGI|n z)p8wqxr~g}^;4Cezl5g-i2z##3zVJ7k&#`WWXTNmlyn)J{%Y@+XmGKh@#i4k=v3dP zmGwl#9n(Wub~S^%s`_D5l$Km@XLrp6_W1Hlr?Z$FgAr-v`qFaC=wjw6d!xmACC!cE zom!G}fbLaa8|$6%L znoxb}ZK?p3-f_rdy4`jhRZKr>Pka-B7(bj5D9cLiM8h?X0jyt~A~5}EWrIMs zEqI&)nmSNh^?EWSDq-WG{pa_;Hbcyx&S?G&m|nWTApWz#IZG$5f$ds%a=N;DCYcOD zduUq-Inn%Wl~qSwY{zQr>aPa&Wf+_ zo-_emeM3A{!K}mQs+!M8hUDbJSIj_Gw?CgPqT(Qe$ZMfxBy)<|+I&M8-#OB2c3E%i z+_OY|&28*D*~^HR(%aQ$wn;>hL0xAq5Bo)V0&tfD4h%+xf$80Tua9dcCrHC^ zshi)0I8o0T?PwCYIg1KDI%{Or=-mi{6>(w8_z=gCfn5aoHlTCoz^$>#!*LIZicove z=lGW{GC2OhES1vc`utgpFO?6}m2(;OlO2$NvOIdwh(s5g6_Y(c?~t78tRQ;kpcT_D z6jjxqItXC=?OOODTEi;U_l3~918^N$^iOCD)Frus3=x-$fgAyAp`&9$(uh=nl?uy= zurTgauAkQH@lKn&5;<25^e9A*uGdH;w*{Ly)hj!_21F%6?q$tiU`G!R-G&MZ75_Oz z<^eOVV1LhUC>pyrijHzDIFEW-LyIISx>DeG3=(N@ok{V9o`#9Y2y65x)W|tbv^{3! z3bd%gp=bsJW%w^5|F)ppQzUYxw*JjrkIq~e_gL0Qe7j4LbT^lZ2E8<_8Ni?A7dAID zn^h>>4R+r%_?};x?8R>OXhx6+6BrbQ<0g(^YFX%94^`K;k_Pq2n(yCfSThzW`!T6P zTxrKX`>kF57zWqPY&Wxml4(LNm)i#kA%06eH3FC0H%6nMqVG~2j_i&w>6xl6cK$GP zDgiXnEiSLM^EEAm$-vT2zjz}v^N(mAsDIdau7p}(K#_8{coRcumumf#QnP5~04rrn zWsxbrJ=1@6#XNlRRe4rlvDW^N($TE-h4pk{!x8k+ifBGP!l>06?6{<+Tw*pst`wOh@bkYhx?c>Ku-=;D_<7V#M+|`t_zNei7$>_?B=t+nlyb? z^@AT!wWrBgnC;$$_v{DBeg4exQmC8P$L-^oJb;+!;n)M%`ZrG^NviZ+G@i^Ew3(`o zyy)&dzuu|Ns_L1Cqc*kyi|P#tw1j>u?D+!JfH#&<5$h1mX~tbPdg#WAY-wniQEXr( zC;w!%joC!$96o(EGO~pLl$&5T22HOX^(aNONfX^R1Q7}B$!?i_FK@Ay9d*DaR3yBM zvo#Y4Y118T`G2&3Z^E`S+}iGI4kk9i>SBk?+GlD(SvsyvaxzaQEwY9IE~|C3kK=Hn zJwCD^k{kgJR9?OzBK+&0htaWSzemqURf9I3b@_$QiS4?&-F_!DL4ZMO`))DHLZ5Gu z)0J(@I}+|J>QH<-+ohnwmbzXj6kq1bZC;5!jX09@xIWzZd|1_oef=uGUDNsAABZOh zm&0!bHAD+Nymj~74PgfNlXxCIh4B?#e zGH#!%T#vQFk?^Au(Qh4A8S9OcQ`3BZS=ZF`sfXm=BONYZ?+>3LoI4Yi@B>4c7BLq} zo|filBk&++j&bG*gjoYuKjhCI(T8u?XD^Vkab45UqQ{Lnyor;EQ!gy5r^Vc0%?-u} z-4o9mf|=2t^^`J~6qde?)AC*(A2)D*D)#$UEdsBCCKLg-i3Z(EzFn4f5CqB8Ugekftw{bpK}%hk#+DR^SdLqtkd z14YK)XLn#a@F$aDc>g(o8*MN52HN=yu^ic<+pZnSxQQjd?wQ;mkBQ@2V*o)fqUq8x zxE06FlfMtN)mlqV&zpBmP&1aPOIf@YTbnWHfzxbmZ%yAyO^Y~7Hb<5tA#A8Ev^p>R z{S8PN>MS8ALl$!}QQ}EqSBcyG)-I-BS8E>R>T(Kate8AK0ktD=KP!4M{Mb#iCCH1G zn(`E&>@p*%tDCx35K%-GF$BKUpw{DKD9PZ!$e%qJCT|5>x&tR_hrShXh5p=CP$isM zYomQln3W=bu51<)QA>7AZ^UCLLObcMhOGRTGp$XXofTjW#LJwG63zfEVD#i*4{JWX z!MKw`rJNdrl9UG`NvrBCx@66}=sT{?kR?=pZ!REnIPkTJnBvs{zhvdqFF0_;XR8Mr~ zgk0fp%j2S#%x2s0=Rvd(r-g{TGoKBn{NPL3ZJo51fstm( z+#dJ6PLfAV$!1{hz_MPMG1}ZonG)e=B}w-WltgZ=8}MD=zi=|yqBJ9IDcZlcarVwh zw75pEKP?-S_klV>R8CiakyVLEHPzY)kws zqn7a2sN;%;%(l?NkM#H9vX&2b*k9CpG%wP7jdm!e>nr8|&37NDMd*7MPZWC$ebV>{yPYU6ud`hhUUbmn zH8|E>Jqza@Z{MR`i~szfYW(`yKDD+%_|vjGv)4LzOX(cUKK*S_+~Hko8P+U$=hN%q zez$b3)QJ8EXST(dsfZcAKXH1aP&`pv5C8Do^NsKws5#vL`%ei&+i6R$4V{joI?CPi zt%?Q_m*wkS_SDs13{U%04Ug3_cKYKW<5VCqhGl%C?w6*@O}%`U@!)UG@*Saj^@?x) zF269I{|mgF;D)T}+;v;?{=kP@VAXsXH8wa?0-w7IWcN*xWZi!-dPJ9K*viL%9Y=mt zpm!r)gl`MbHo2~SP^5;ecQ!qaRePQ0`i7dO71HZQJkKHhSh0}e1i_OId7flZoY3_Rj>At@Wt?ZC`pNn)*dZ%(w z$vF)5)Zu)B2P^$fzh8>J+Dgq~xWy~d&J*^V_vPuJA_xprO`P3IiXwlk_a0n@52 zPP1(3%?grDvj0oImH z_E1lcQWP##6^kr95anu+=BH)06$l5R<$ZPB)OdFps)zzsJ%Ju$r7Gr%0l{l+8v zJ9k-x`bSEBjQZtLmpik}#h&nN%@)WXqSkvLid11y_zu({YW|MH**M^ODl?0wh^lka z(}jc+fIdHh_BB3gL&VoqHACrqU@R%w72a#U0(QEFpoAO6ZOBOJH7x&-UEjz!S!a0i~;~6luPWT}Zo?Z}O1j!>r5MAa)Sm<;r zoJX0@ln{pVp(k(oJhpFxpt-d~BNUJ795AVXKim#PTl}f2)>kQ=h*2w(s$V&hl@)4V9;90wwX-fM zQT{{mUEf5o9#J-L7;h~Va{;*9a{-CqFZc!(!u^`_fAP6s^NKQt{k9lG)gGk0g?|6v zKQ1ITDFq9sp)Aa7^em|m`4 z-VgIRXLy3K5~;o>g)R9-umQS_WbEYy&V&VM0R80II`G?e=hB6Ts_%K*-2r(+KuCGb1w%J&|-7zMU_Omy~$j53yWru&*_8KLiQ;T8zc=unW`aBx;p;t(Fl zW(V75Y$NL%P4Ku8=(`;iwb1s;tRhUkh=X~u$Y*bOJQb?k#RNYY92**K>FgDaRldOc z=N3B(ZOwAzvW77W-J+3%yLMcj=VXPGes;{s5*Vz7p6X%jFU;apsDFmrDrqU zvM}t?s*^jJS%Qn4;D;oqq1*1#B~SP}bUL>;5BH2f3t1Qb_p?8ZC9iUOA!T(gcSNgc z0s)Ro8W3n}X2=_;HoOB(d+`$P@p8+V@2ZaPt(=UAc7T$lEC@ zgzieUoM90l(^8~`Gi`W6SsIT*(9W=J}N7Mz4@u(0aj1SrvgiD4E zGzMpn-Bh^D^3&1qwo(_r|A*cWpa#9+&7$kQP8bqDFOHGd3KGAca0FI3;`aXRUG0;m z$DKiRqMoO7CF<5Tv4kVy_(9geT$e{j)QHZ~@4cR?oRt5=SUfbrS*=;#pnvYW{1=UV zTPUBXgYC59Z$mOq<>d_>ZGT6~sotow3ja}sy%(M^Bx6|?c5N>0g%L4QTkqMs3-?ZZ zw=tFuJ$GCF!^_Kmg&hXLp!x^rrwW5!g(v>}uxp_Ik&o$L2}6h#3xeCh+0cvX#PR$x zZ#SJMA5`__b{3k>JS2|)ODlQzgyik+W`D#)4Os(Ly^x?CNBWD@E)2gvOTZTQ#~hLV z9!S$@f35dLL*{=^s*U$nFpX@(bx|>Dc}GH34vsVyN{9ZKg`EtzzG7umaNf+p^e^>8 z@_&9nDU>VL5M08yqsI5mnP0;;79k}3R`%XF>~Qu5Q^0>?pK&Yb#C`-+WOoss1TE$mzFywG+YZJ$U^8Zda7uwieUR z&sg90+}+F160Lkp;~aE2m~YYzN>$oxeHT)B?#CJLk0umU35{A^aE&YPd{k3e!iCiq z<7THInd#lk(#zv_O>$&rMXCAS=6MTb$-MORVwCH)ZIWik$)(AyDM193!3nq(yRRsN zi#%@)bJ;EnmS?%ikZylWxt>=7>X*bg`sINZzgJ5x7sGb%T2vcEB-npC|6L|N#&mCz z8@{Nk1`2+a3rYbyJOiYx`zncwPOU47ySqKc?u}+Vv-eK$Lf~Hz5k&mRocrZWl=v4! zh9tF_BFFUKr}xMj-j7YqDn3Y*jzc6T$Mp&gH_ne<{ppomEtR{_IhZ&>bQnMu zn)@*rR34qrSkm8}ya#S-U;$IjK!d8KfUES`gc2P8MJ$Gy>-3gXI|3`5V0EFFc~2Ck z`+fokOI)V%MsTdTlOka$6?^0^tQKK4w|er?TEMRWZE=1*6%c|CFclL#Wy% zJ3zy&{$bOaqvHDXbn9d!_RunQCnQpJZTUxbHA6y}+_%UJq4u%74R_Ap(B6XGGBLvB z3AY(;5Q-odjFqdY#)uU8U618r_q3Icv7XpS8tV+K4*2`5K0RD07z7+%}!$B2q zI;snU^Sjp*nY8=VIMzt~wLX8d&^8`wp{z*XY6GEDM4~%ZVwZXw^RJo9aXyFPipfxG z8I>+G+Gs!S)1QEsEVDx0@1WdK!A8APVJAl#HOSl&SClq8XkK?9=F&zQ+CtGYF991? z3bSeJj}>?MrKI_|331Cx<{EOBQ{BPax8eoPB&zC>V4XK=MsXER-{biXBJ#(PjWT7)7W%|ROVDc(@Y2WU4 z57SiC4m`}Rjl0%ebVbX2;7zhDBDLvfM%$~LZ0^u&)%`N{tOZL zljUWFugvgsFe|HLhUBD&2u8-rkWb3qedF?$lV6J6%%$=J5w9GI^CMIpXoQn%SOX%f&b)B6GT*b&@y^O!8A2ToQ`%#2%m{DB&{`z z-hztEZ_C|k<&OPux#W(``fO?R8A$>QEirVmQYO&Tf5fx!P>3xKmk9k!yBrsaFq~P1 zY>qhHEPQ_Wf!Z(E|9vA@%mb-_PMOxJO(d{tWHhHV^SQd&xVe1-CbS;ekS=&uQ?MOz z@v6#ko$T$1pJaT?QNzoL;chjx^#Xlc%6N=X@~CL+nYwh3EEQP(ji!YHi)f9do&;Wi z(Ftoy7poXVR7XulcSPl6vF>o12i#y`-i!mIp5+|p^*YbUolO;K|2}+Z*;cq2_o3ju zvD39{`3)+O!XB8e*U!)Tp8F&c810Zp_ifBfrm+A+Tb{(>aZG4|)Wvw$nS2v|OUgsK zWV@KGP9v%za`QTZ;ewoQ?<~zYyJidhu&S=u$rSeW%D?r(ZT>A+DdM#Erc|&Aj-QIR zp`^vsN%#)ft!ce(!&F&W?S=IPNF+DR><3H*{?N_&Lw|)rLMks7>YeKNkaLn4tp?v$ z{whb0KjawRGBhBzTTbfdc=)94)&245t%{y6cPq&8d7@J`)F9^1Y7T!I>iDQsJ=M#{ z&3(Fa^MQ_+s+f9cg!6IvHB`* z@%)&eH-nQLV+eHIXHmJ-g&zQZZ_kh-DlVy+44n+_F9BXu1T93ua0-4}@>j!JHBPv2 zOVlB^ROR*!&!w$rE>=Mk6k%J}rZu)+^?SBNe8*DrU=A$DD@PpuLDL^CL2!jQqUnb7 zEucLISMm???HTno7G$b0m~B&g@1tcXS+Cyoo@S zY_sWOm8ONKIp1&E5+tShXhb2>Qy11A%EfivntEUhJgp3UNln8ZK1f`usFxqTR=xLO zMQlbIXD688MI>gp(`$g0OKA3;m@`>Vu{*?epLP0nOxJ6Iu*}Kr9piF+nW&tSu&de- z21j0NI>Z{oIzl{7ES4O}Pf@Zm|3)KKDrp+1#8ot+Vb?9*_6Y){j+v$_bZ(h*DQ2xQ zMrWrni<5~tQ`6ibLkQ|xtH@;IA_GWYDj-aIl}w7d?05s*3yGB&%^KRmpmCGxYwObJ zl2a88ShKQCLtZ*_#XguP^iSrbGrw2Am`IO~9uol3h{x)Z4pu?~izt-UnaORds2TjW zt9%AD23pt)i<9h*c%>{=$bTS%($hC2Q_>TFtd8VQgZCEX*xq75>%4;%A25WOG{f_4 z`w284hrqNv_Gn>DrmwvsxP|~5bP}3m7)j)9+O#S9I^molJlJheN%+6I>q0XdD{^T3*DrK0qeTa4!?vl3>aM!OGjU zF6|jA`%75WNG7I_M=W>aobmm@$s~<*hm{i*J;r^(HObGP>Wbt;qL*4bdmyH>3hjf@ zRK-+x7Ema{!MK)&ZGo5;gXwU@xV?)7ytm3f==3X1FSl~+d_6g5W~yszBg~0PyosCF&py~x`60-#h7d6Ed+p_O`)l6hyfD(NQS}vnYGh@6H=!jM@T-uNX zhC@L0*tv!&g3u`+RW2=$`1+|&>;k|SEk!R{P-MxU1XZVtx)1l%20<_D`j|bEoCQ`5 zFsAZCP6~5-fav2bc)kPNZ!{x;y||`%0Dee46)z1}lq6jTBJqOw)L!Dw?PV(JpA$l)|3BQo%Zl{@m?4zWG{=9g}|-&`S;F*dNVW?(kz;-4uofo60LH(pYVvw|p(e#&ah09}P*s&Jd7N5IwaL2|69a%PsNodi-iVG`= zGCN?Zs1-(iiv0H9JA906{tYXxbF!23D?j(#FVqW<*-K;p_R@g?WJBUZSxG)X4_iNlAIW;9YLJ8O<&3Tj*EcQvWJ9fS);H%b**}#P#?7_Vc}=x3##+@=*ItGn zOFe_U7W%CxPMg8}i8s^3KKSWSa|~#C5JzTic)YX%OR5XkLueY$ZGMu0%ROgh8bW`u zy4oE62=8%%AY53nsyqE-0FY2TCEKf6wdtaY#xT>k`hJO&f5Un>P&(G+{*!`jm+k-f zj=;Lp)OYZ|Wz&o4rD;wt^GG8A39%sI7TwJ4H5V+YJS#e&gT5|#E7^PF9`Z+AZv&2k zFZxd)_sY~6X6`L8O!I^tGlV~g>`p;Y^Lsix$Pni3h=(~nYXa)5jxd)juJw4T;c%^C zTh5G(jCfP4Vubu|Jem_3#O)Z#qlrL>=sElH{0JnF>_p%7#P`~OlHWchBZOQ)`!VDUozXrfqNUDf_4P4_5+FI~iDlifc4iM6#}riv*c2WP zSWcbwBu75}q_g5hKX?sK$nGx5=m`%GM~LHfP(>r_5WykB zRqWWHw?!ui7Fa;E**sqza;(U4T{+vrRdP-18|X2$WnPp${t_86rK1RpqY zHXVZ53m-mv4X0GQ>@UsG(KeJOEdP99-4X1M2~J^n{%$-FoXqrxXmbA+uL(2yxR?&c z#p`5f1a7`Y8?e*A|HSGS9668tvTH6clY(laB~`mE7z(BYA^)9qn=?{x;6r=hd zK%q|2tZUobugk7_?0t}eNY5109N5^e9!>r?L$dH;GpS;+c=zUR=H~Z?=&9<(iiVa< z!=ToAlMz4L0<0lOJ6cF!G#@NyCKaLA9bpGLh^6dNA!P_3e(k!*MFCuMK%hk6>jmwU z55txVzp2szg#u2;%;e+~Gpi_Ke-1&z$ID(2`8c3foNy{hcTW)08Z2m@whPu&0j=4$QrP7SAIu;D>?_ic5)`R zcl6?zw}WURc_p5p2l8b?I4C`{Wu2uykpbW9ei(+FdSG%Nk#OH@S0ilfR)mw&x#$1; z`#c!k0{u)J0eYWuEWV8z!lW>l+nI${fIRx;gId1uLD-<` zFFD|NUToN^254a`(dO;y5vF-ovw?p|vnbIqkOu=T&~dyP6XO`6 zn86~Gz#QipWW;mv$-HPLMaYKSaI6;o*W5*>`k;HvA z>CuwQ3dY$^K{xmAhD!RJr-|3qoy7z2}yZcxnA_P$f2-3=Xla8DgN=b)OGh%}kC3 z7(3gfj(FskC?AN!bm9i`L!!d}tJ=QPpZCv;M??MT(rLc6LIm>f9IOo(4w^|eI(2(S zznT6R?Qf`D1$^cQu_wkxd3+s-I#o?9IVrddYwjz#*gc?|0K<(8NkpzSM+FRA;7j#& zHc5>7`ksz3y1V&c^7I&Q;0&*0^)B^spNj9QFf$n=C{(HMz9;7c96_l-dTYn@`PoFJ z^fe1s?=9YyFGf9Z`XiCoXy=-lrQB_~c=vT|*$+90zsQcdJ7ezU8`L4XQc4!7+zym_ z_#)?VL#8(!oz-vTf4kj0IG#L4<#l-Od~r&u?0kcWx|X}Yg{|$@%pdj~``JzS=`j?F zx?k(h6G-MP9HKojq5%x-F3PuDZ)U>XdgTLk)9l7QUZVZ`R3F|oGTK;>o!qnF8)+## zz>yUicYO9eX4FlY+(g=QqDIX}{Q|$0-DNQzKOQq5HyTkMD`6T9XpJdZ`Um4?b_SxmHpKVwyk5a;y+<)z|gbl&UFh?9g9xjp@dsiISOlS+oyia|stiDJx%nSNl-mm-To3FuS4W%m2FcD@oT%nCax&M(bd6S#A*#F4sOZyoKt6 z?pXOgLjKj_$8f;g7{9jk^z{}iwC`*N!#H0$OW9?@DXMShvYq6r+P+sO&D*(UPvsh0 zDE#@ZPX`T!(lngV&do-9ru>gX>2-UPJchXWf`tbCb?&$BHeq*18r_?D-$@lp>Yc%IUF@-ie~0Adl+U8&zxOIGht9 zbAhZ*&s!a}dnbQ9$qa=!Vc1q}WZt-RxCine-~XxxAKI??zkhQrOzeN+GZn8*Nfw{@ zVGIF?(2l)opSNHm6~eY+Lu?7WP`!Ia+~C4b9JHcSjhGKlJhlCSI2;y{zk)1NweL5h zMURS|QoTS##5Q_LPLnja{!~%7P9!QvxwAskJYD~|heqY6V|Z+Lsw;KuchZ|MFIn>QFqs$w-PEOsZRdD7+|Sn@V2PK?3K zG|qaI{XV>+04q*Sk2zk})h+5`Ow*;>s<26j%v6kt^J(<9ZPF}kM9~u9d2)!(cMu6Q ztOd_UFbk%Lm@Uxm_sH+fSCsBe@R&N{j(RmN#B$#?N%DK%0q3WJH_icAMI*!UoQDp9Yh-bXoPg-X~J|iQ8GXaR|RzMVcc?q?q?5EvV zamBTEu*gX>f#aZ;@O$sjgv32uWNT%EJgG+$dY4fBh7Lg#!p|?`l~-{>M7;t45IGVx zZLOpA()F~(raSKr$@vR-kQ)|SR)FG{Kk4AUbnqwnm`%2(e0Bw~_V{qDoy$WB!#I3` zM^QrfG|bjknhIg#t@HXEw5T(fIYL$wWmPl{8qdfC`@eH$Y{k`7!}IEv)xyPSQB@5M zQ?0}n%u{|tA-Q5=a{bc*DCa=+WNTPDl-Rv-?$%C2aad^fV=sWDH4Rt1A%%~cp49)@ z+B%Rf49pYtj(gGp*%?a1ELI9I8<)O+jbX3rAWrV-c`J2YRs#_4{~M9%wMO?u*N^j9 z{%gbsxjt*v$ZNq0)Qa1wUs->oOA7m@#+E;-uvkJ0^Mky-_qDto_h0|YCL!YID}QGa zG*nSDmTs9iC^)X4%dtU;Dz1dFT{r*A^bZOt1;{$q;y5POV4oGXfctW)vAUgy$~~sW z3$T=RIHtc^T0gZY#6hW(cd;3H)2%H+_LstD@FW43Pr0=AfsJWy>|| z2n{2_&cVmO^VS>+=>{mvRSiJ5DPfOwLBF^r{FX!UqEGruyEordXRcDGp>@`JCvZF~ zRUUY{bjGdC?fI1_gIDl|`W$mXsn+#@NrL9g))-bQBmx|&28`rJyr^3rOXYy~36IA~ zXsKn%6z;dsBvxRt1ez9l;1emKyq%^lGkNsz@=5^8+C$CoMHG~nQe{Zy1TJhqlpsp! zz$Z9=J(Z3bO^Kj(_y{n|`}glfB!CHShAtR4AtC^MGz9(TwH^Tt!U}iAEhNLZQ!Pyv z%&jkrgxw4LNMmAmG;<|vd@??WVL3^OCgI&bVn|ivo>C7?h!r5|#)350u!lu_2)G3D zNkFlwDPD2K>QxmmbeOm9=?z&mv(3EGlDTJD;5l?7tNV7nGB!Dmw>sg8vgZG!llCG3 z_pVb#;G?!zk^l(x@(P1$bYJh&u3e`_55-d&1`bWmp^hp_3m?xH9Hpm6{~iGBn$h?^ z(U{tT83UX__8WwmMtbbkSqck0n-lAmp5mbdihk!I2`E}lT6m}}w`JPm)uCzOW8vuX zy+{k?aWYIj)~Kx_#d(_v-T@r3$~1qYnMaYCPLXSwq{rn?3u~xAJ4lTrt&f4?h*#oM zdwi|{ZI<*JGyri-4`#=&K_`DMb$vzx*XT*@_M8^nhnAI99owFshJjiV7;FcJGAYWw zr)0&zbZlDkTTd#~H&5o;1(K@C(U;f)y!7s+GaA0)tysptCoM-dcp`lKZzPp{SZk7f z7<$~@nZ?Nqp`Qh^UTYTC;XVVTWIA{Cye;?k2bPWOHZc3|O$95Gz*xC}S*Jo>Q08Li z8Z;7yS8}CCRe=yL7RQjPh@8)rsdM;vwEzh<4RL!gs|?^NNT6w$*v|q_*l~W6mb#pe zs{L$wdP|v(jfapb;xZ_rubJJ+s@OOz>=PjZfW$VZwf})Q<)XIA5N{9OfSuIv%xhH@(CqG5i zr0FSIOuenq)Y1VYM`m^r23u?;^JR6tg#6j4((xdB8vOCX@&?v~;B4gRgWG2+XCQw` zc`xuY03qzcE%7rKTdT3~Q!$_C#ME{VJ~MinRPj3Shw09<@4|`l%!^`t7p zgY`!*?8x?~G6xS=p=7iBVZ;g}GnsdFqq%v3rjOY2_8<(j2J zlX8q_xL$vb>~KP~>ohP0f76w7>7!jL)70c-_Gz(NS$nHI8F6I?l!8XpOB-V47fTL9 z=({Cee^Pl}f&C(jsdwMw0y1xKMq6B(AURbv3Ggz0bhH&Jj+3R=F%E5njMyg4j;J*6@5P`L?y zCu&5_)6>&~;VBTQ%<0-~99mJ>&c=!SA3EQXr(0iyfACIdpj7}cs68#SK>&!NI`Pc2 zR}W*PqsU}M%tur*fPF6WJkWQvmQ@|8_qVInGzP*A5bI;LGo{0~=BxgBk&wVZ&4@36 z<*JF*ke-_MQ7na=6V%BuUzOKf|JD8|`UiTKynznOQlY19AgVI- z;24H8KUZQ}SYti(Ij)?EP& zfYjy*Ad7)+)421NsYQd=@oZX;w7f;u7%Kma$Ukp%gm$g%YZ|kxa0&8U&S0cj& z`=snFL}x%9yp~UU$5xqKsjiRwf9x<2$3`?^w^;3c@ru(WMS@rMYb``(onzm*@MYPY zSjSifdKL=n>`K5z1nI~@0ETYOO`kBC0V6pf%#aR&K)?q`H>rMdbY0p;gLpa&>p;&a zcCK^$bS!?)X9R%Q4udt;hBo0k)%>)t8tH%%`f_kwuFt$-%e?dCVlQBhtOBEXntFx| za=>gQ&SGC1putPM2tM;02*ptecx;I_%Wu@!GT&!;HfZMSQN=eeJhWGLGa$xC{$$I( zTpaG70xolH7|gLU+8)Ft5@dFS^#of7t;rkm4Y8{m>9W1zN|v6EH<%mI8*}<}VUVCy z1+?lYz-_yeOs416wy^xcG$+0QW;PsQnIhFj6PJV{N?+N4kY|RKIi)mFKV=mCllH3? zs;9@VIwPRDSP5u~D(FrYG1q|7uZi>qX0g|(y=oO896h(g1-E6@w6NmYEW&5QRBf$S z8ILohpXuE0@bnqFc}M16NYQ>V|39?5<0)%Y!ToiACC*}nOhK4}>~uJaws6M^MW96j zv7hmJv>!xW7rrouZgVS*})^@f;}xVdXDF!4}{ zr|k7htq|u$Dh>=gf8jGdmg!ji?_f66eHjs+puF@@_mRB(^cLS-MN)thhVs_2<{{j* z4{KwLNz9u1xZgn#zXR3~s{KVIE0mz-Uh$a6q(YQEyXiQnL~#ro|52uU>F-s62cwOc z2U;9-B_&ygyNQQ-!e8%{1kggp=H1oqzmTa=)?||Cqk?B-ED)M|jdYw(bET8+?@C6S zZHWpY5nDJMl7s8&=EQq4$1nXuYnB}wkJiB6%E#tydjC$t7sTU9ciqsoIf?fh}LTcK z)cxz957dO3Dpt332d~Y)?Ds={E|{@f&)*W*7-xowwzS#Gdv6z?0}s9q_cyxhcQQZw z0@>%Z(e0$so5<*>z{k$(l2n~-*E%1Sr=e)F>PFs=nt8Fd34@#FJ<<&c8|hl+kFP}C zt>y&dc;XMCn_*7X_fvFL(h^Scy}*fnhzH>rrtgCd`aqpPv1DHyMes;V&eSSge*vZ|ZRYAs1zRpj!0J7}a6S4)o?cUI>p<%UQDGhk9OIi-5o7ab%m zuZ3No4sFj<_o=2h)EbQ4!%JrEXQEExq3D z1APOz6lJEH)7!Lxk)&Q9%h|Ygeuqq>BE>tBr1K|q-dhJZ5IAf!n|!4Zih7=(z> zHV^`+1TZ1lXVKsH)&1(!xpnWkx9a|Nsj?dFJ!S8#z25b{&-?sjcW%{^fY0{DSRWok zZ@YeZE7e%+$&ui;59jxXIXb#{E+~FH=_rt8?QJQB+l=4;9Q3TKlh4Qsioi+j%6*wsecXV0WGs|`Qt0dBwyO}B zxdKzt5eIIOR>Rq~Y5e z&!u!|v2XtICj&8<;(|j8Lvr{kzD+je-y~9z$thu1kwsg|WE;3`gLm3eprsISWg`Os zt#MiPj;T&C;~L$GHUR#%<;dT;&#p#X#ywA64@%*Kjll-HWKL{3vZxDbIlp`!wgZ}c zY!#m}xr3WSdbT_7N?6yU8=rAFE$0_)np6sZaK|yMEcEQE)G2OG7P)xKBiz3iL4pS5 z_I_6^`t$Ul?2h}a=Qxl!FY0<()WzI+)hqY=pbR1rGyz0EMqT_XvF=357M zs$K~*-^%p)D|j1t>1l0t3;k`;a!3t+Z19)HzAZBstuIt4X&5=3IGwShK=-3(wszLF zSD2GH_fp#WH3!-a&}(L^noPa59+1hh*mS{2U_i?sM&`_D)!JkYB z>wCEI+hLLa1w-?I+5ZpajzOP0V}3wu?}7iIV*l?$xex69e+cFNcgO#Nav#{_qx*o% z*hFvx#P|OJ8Lu1^R$ znE3ADSKlAsGrPu`?0HLd>+4grpFc~p{xQ8pdnqG$Qf-$G-{CSLU=Gax^17DR9(4Kc zQ~pxpKaEE|lhVS^tUh&44_Oa`N>aGn!iM%SNC|%pIKCidxEwDLOvjzmsGcVbOLQTo zhYF?!Jl7vEQ~cus_VBkKU$}B|&9w7fY4zOC_sbipy(L!igX7jk0W$;CYn}rVZ(>V& z?V2^q4Rdnhk}rLHf92<+Zzt~lXuv5wU&f3=8ickVr()ZFBn!s%KBywcmWU$Xo%6c* zFAR5He+=aaUnTe1a7|YY)@g1(E?in)nrh?!lXB@zOF)$I4gZ76Ixi64bYr_NjsO}p ztoTDbbq_&vr5a~fh6Yu|W zf_{OLW~4%gf`;~?JEd_m9R&(sTRKXPhBWwx{;YIq;dW$s#5&w7-4k?G?%YSyFS`%< zjy&A`v?1;{_amQp4_fcQ+wORozSckfBULB%QgHc~Ah99rgSg>mR~5w;@DB&rCtBVW z8q#ZJl^e?)UC;x$o^}d4XY`35KYWo&-1!Up&iA)ed^94~X8b|T<%=g?yFRWAI7xpL zEv~J<%eObBt6y(~U{31yjmr*0}L!18kQm+5bazmk2Hd6O$3^M$~S=aC=-GMW~ z?{T~I|6aHt`*-uVDyfTRXMf9k5dPu9{(s6o;)U-Qu&qA8a}hXr*oq zSCeLj7%Y@se3cyQQMxfa%)9yZz52|{i=*=+8P0zum~po^gf;#Cim@V@BWhZZNqs=~ zX?^01XPPok=DY0~sSRBG&Cm&W|r;J^4+FWf$69JWW2&6&*1Pf>B* zb~h`a@!BI+0Xf>m-Wn7&s&a-8bQ7WjzDisxu{u-sV*a(!%;Uh{V1qLJ!qbY(0cq>O(hucUKhGt-Y34mKH`4O! zY!H?5y$_s-&KO#G#jVEq>`Jux9|C-sQ)EZ5-^Xa8LCi=iWqf_?HH z%>6fH9iCRZJippEgL7tL@2)o4go{owJ^%7O|3sYYB;TUDMKH*}XL@k^3lqoWOCC}0 zBKqBWm*^VNI))ngV!5K>e-@8*Z98#5JVRfp>gCd#J@AE%&m6m6g#-<2n~gvHq}&6Y z$9BuB7Ytipc{DnwH}X#Rt>XHN6X)sm|tw4^~=v@1ts7v6`-h>^qwf_(xD>ctf>=Z_oH8mGdn}3mmA) z^;RN}>MYh?)W(0}_O;&nhyL+=*Y)ZFEcP#l4A|n4g2(993h(a)Ra;gLWLR(p&l#z1 z@uZGPg`9havK|##RX=zYJzY{76K`?*`FQ{L8}BTycZS|^4PV$e8Q5`a&-eYRDJcpn z8q-ir&&7p~@$aZtx6BvbT}RJh*b#NgeFL>WKJRzyen1_{n~Q#0;_i9w%o)$$otcWo z-~ZS_u`6%#zqvO`dT&+!mfz-Nvj&{Cj~qW9vi0z}H`saE_ky(ZF7k0J%hN9!Erb$V zFiqQ%`p!G!WBMB|Qb*r}t2q2YB)z*7^R{t6N_;g~{L@)!oqoH+u4;ciyK0iB5!&k2=D*dcc!*5bUwKsHboO+h{D&<8Ty1!)f z{>?M)ii6_4+eVK4c<1@+aL3*HcSjWzBMHm#xQV}Mo_lqVl=|GaDC1G*qQ1Z?z1~(d z>rTFnlT>Mo%>S*>u&TD|cRlpWO5c=}7k_;YnRMR0BXopdox#a@QljGfynNqQ%b6`c zkI$a*h3`C3UJ=&)5@fUnR7vs;7d7e+{&SEVIUU zDt}ejtGX!IVcFn37E0VW-{1Jp`*;2#1uLf2Umw>Rx>r_Q@ANMI>^f?rU0Q|8`BOCG zneAG5a@kzLlT52SF3m|^4>Q(+?lhb4|44a4Xn*xhx@!LqT?Dzs{KH_dT8Mk{wPpld zfAZoPkDa1_Ywu#Lc5Bla^>2tNsh(cEDg19T)SEv7BauJvd=+0=x;%f&)3Ebr^2JZ8 zXTGtv#&=zodA_%6`jF09?5!s&?pTRm*o41uL5`QXA>+>CM_%0Z`&+cw;IAonUcphX zn0qwCLs!n`K81=$C(T$rwZtXZ=u z2jR{EQ9AF-@3~|Oyq{*w69!a?n(zI)A}{Xzm}q#Wz;zKtq(_j8R@0|^D3eYBdtVuU zFtX0r_`B#$-n*wiLB9-bui@jgQC#Ep&$aJn{u=fcQ7iFLjN2>gcH!}dB2G%+v7y6H zFHSg!IaS1GEWdRW+_)s;?7lo%mDjmCm`>VzU$pmwgVLR_Kj0q@`cBl|NgGgo|7f4U zFwg}TI`Q<;hX*>BF0^r1tMho@?SF^;COhu)+y5%KwD`}s<-Y^t{|#^c z??o+}yZ_Ho%l|1b{^5TI#@`iP|6g6tW`Or!r~cmn#vjo7{|FdwVQm3|y8pMp`2RS{ ze+R}7N(b*%mHgxVe{@%XRmT6u&(PDcp%YbHZ|@Gut&^|W>+TPg4!`?2d!Yy>@LN#u zaoyMbK)<*fU9;A(ZU{+#Q1C3RX9?`waq}U!2GIVoX;ZL*=U=8+?pn}vf$h`t`7^J2 zh&XW!*q?&V3VlG71U<$wHz%o3Lstt{9%Og8r>`F*eh zP;AeZQJZe~As7`1=lYB7TvcPx*6S4M!D%CS!nN!3C!E`OK>wd|O^_OD<(ZL;7R761 z)*$Ze?Y_ETgtdICo~281nDGgDeEgvly{DcB5Wu<(P? z;PJuZ%*l4yEmClVp89Orceiv!Xq}y{NaCifsWTg%h90u=$n3R_v{0AJ(U&T`DS;Bz z=IS9UZ|G#LJ_I$WKKoZ&pmYL}lrEqjvJo3|HyDxeR5_2hP-9LZ0f~GTyKYA5qJzyA z1zqQl$xfj2MleEw7$cC7oE8O*W>+;jeJSgeQ@fcgSr~)n)@R_Qyb2Ax)z%#kU)^dm z<^`nMtl~10L})FA8P)foksw%oh9g`;;`0uekLoLUspV}CMfv-+)7%j@C$gZsUeFDO zJ`MtcYLbNnL{4EysC=m)Bs@}I>F#o>x__KIN|Bip@NiIi#!oE7XFwZr&^|@r_NKp+>}dQuri6xsb)fb)$H6`YCAG5L%n5H65vyGroxumI!1L84g`u zv<2cD{u@^kxJG5qhcb}o6=6hZ0$7OnVn5wrj27J`|d%2Xo&^9o=|ABXsRgV$(RJa zN7uC?)f~kLts|}3_wHFb9RpvL1nAo%KDY#(%d%h4u&NqL`RE=dFy$X>s;Q7cA)!AT zA+HG%E4gfQ8y)2dP<=?2yp2mL#H^6hA6Y=WpGVS(tX1Z7CnqP@_BYl?qs@@F{-{Xi zKBdUS>|zOM3Ds}bEJ9O1g8%Ong5A&p8b{DVCjwIHmhChNtdyuUw744pOo~@luEJgn zbRwe7h*|B#5Vzc?nI^PsF;WT#Pd%k{s;sH0iD;dhd!s~IlP6_vv{pl5N(Hv5)b3n< zb?@jh&2PbE7pSo6=xFr^5RVern6L-Tpn$gXEuAA=m7D**K>uz{fh&)FPMZ5NNKyw6@P8~^$>!9kcH7AO-uh1ldV_nz& zNhnPy;Y~hdq_=mIgP|}1RCoC5O-rY&I`ZZraYKQjxSfF%Wwk>?7xDDb$R2}J^p8EE3G%?5k(kwpdZxe9?Kb}qYO!m+ zITAQePJu`(psTTY4m%QR%;j39FoH>fux_!H(kf9l3I8xE?)pNFm&BAkGR=p}!Lg_2 zOR)Y#L-umUsG=t7fn5EFSbCJ5J&WQp*CIE^5Ksi`S)l=PK&R)*b0yb5^>TP-k~Wn< z8P7VdW-1XJQePX^l~r4Z=y`J0pf700F>&$W`^Y<3$;Tlnp#{d%xoFFk!K&Jpj;6db zzMO<-hAFNe4O~3+51+$j@Z3oGW5FE%ju3KdNYqs;?_50Ais#T-=)2<<=nMbcPX8ZlE@&UJJS3Tw{N-D;+zEIx>QzwLmh@9j4q^qCXJE!D-zZ9v;0nzyfAe`F0u>ZbiE zcjQBv!x!M%5=K^w)ckz4yh2vKBl1(x4_n=A7oR28AOg6zJLu>{B*pHN>NQ2V;c~vq z3fF|)jzj`en8QsWG6+x@e!o4t$$zSQzL^j?d;#A#UiMN`iV_>DtRQ zv&ul(mrKdmf;%nRBmw$%Ep8!@fPz9K*g99GbZ&I7JIjgCQiwGf^UUA^4?!@)rH0Pr zis2Z=4b?Tv-GPKAD1~^8w^AC`K_ayDH51%^OZFlD6RCBCTlB}zI;CfPpI7JvNY~}ipgnSG{v2eM=H{sSwO?LzA0qGi zV2EL^&U}M|qqVu;A>6}Tk9FoH<#PPJ%T*PY96I*sIZaV>mV1xIO;L%*nM^JajVYgW zF{PyZ z0DBv0p=;oP*>f%cTg)K!PeR;gTCY~6MwoqR($Pc3*{sHoKyQx-&%IpuL_1eIAK`M> zVf3CW85+E&X@nH6a4}XR9z*uAV8{nXgxn8M(Ob^DXkpfmVYw_{^1fQJRpc+8)enHS6EqN)lksY{I^&WhM)zPK_()u0KKy=HNh?xW>vD!= zg*L{ldSn1Kx0;ju9gwl9+dGz~y1iEB5?5P_qYIZg?W!(gK~4{PvMWLZkz-n4L0e&- zPK40~>-yitVF}kNN_9`nwU9yASWW3;S@D95SmI4Vx~ceTPc5GBvR_5UV`~oJM^c=K zub)-1oTf7M4%@=*IM@7?vw ze_mjrrw?x|$HQ|ZtInWsYfH_Ev)eCkQIE_Am1>}+hFGg?QZl;@3K=5(*SDs+X~P&EteOrj&e%#$J zrmm_!6`MSPVqjS~0NY*TUnUEoVXd`H9Oj1$2NbGsfBzm}PhJ{4y;&;{FGFU0+TI^y z(jk@wc(T&K)HLdbQ4Fox*JH0ajm{dZ_S0dHjY%^@>7u~Mpk^QixldxFb%|Cl>vUipI=mq;c7rLc2 zYl?z|9yU(LX_SePl(mGfzzEJ1^Zq_CsKAPFjq?jXLqn5Xx8wA4VlSF1VNUgd%>1CI>VEwwR&GtD^(%Oj3Pxt*Q;h_-?sFK ziE+SyZdt;o`}|RRGKbC2N;=Ig*yZ8twfXs92Z$AGNXkn9{emXVOA#@~JoTVme*0>c zjmKhX6f=z>s4&4LvI!5=lR5TB*V2JGTW&6(+4Or_BZ~$AEDx{rXtM#z*mxu;f!TVeD!}0G%!gYy0Hz7r#4>=ARGO6D;gNXJ zgCS^4CT<=)8>m2yF-6@~D@v}#E(>Vbi|3$ybqu($Mo~j^)R!qqWM2 zE%3b{Mn=5ylz)niI8Ik#)-7MXFS|_|esch}xfc*Xz+6o%JHG0I)}SL5HJ%h;0S_5W zpSFFt?EdQd0%b+q=f3+{|6TJ0!4b@4n)ubeU*2IZGzmBRY@0@U*d685{ z=B9pf&Fro!!b?6BPp+-{mLz`0AFAc0^%G%YMn>)n`d2BVcI+*eNfjH6*V$L->b$vlmG;j~1Z!R{ z3P^wAlCDzfz-|8dMB8&fT@+Z#Bd!DiWywA>Z3%4=vwirprT(E7!gk@Wy(?u%Rz`y7 zk7TC@`U0)) zUqnS zS=rjdHzXL+sKU@Yn|U38p_h3f>4P1>g6ADnHrG@^TYOalJ;|$%Z!(O|yqUwf0n5;y zj*tx;3L*`?UA|YHaM$%#v{`0NreEIQAllHr@2%buHyWV++|22~pqW~kvYn&8P5p=1 zRcJjFtkDb<1%Kw?cwP|B3rR@ohz+3X9aO;#dt@KUjaboD$GePQ3T+v6kd%j?*;1sP zA<7W4|8CU1NooOYJ!B!BFSvAy@W8V-E!5v)p4%(xZ2RnX#CfV-c)sl|btYj}3E9vr zbcdhSeyD0|tB(~JuJ*3hy)aE~9B=7vAm=~D63PAosX(}`*t&-=x;SCErWRI#Ur~h} z$u}&w>ef5tfF|zg@_Y4rs&1|`qE1rXxln=)YI`RJgtF?;N)?X58?%N;I0$&V*3d~T z&*3EbW{UKzR)UxLx>Mz?ctE>bhYZJthBOO)krDVqt{_>wUqFk4bY{_+!etg z8K5Bu0W=&7*^R5DN6ZOcK68HsiC3(6 zAu$d3K#`!f(2qW%6u#8H$S<{i>rAnF+TH!lJ|Y_~olL{qW#Gg&wJxkg+H(2Re%rmO^C4ygjNT zV;7l1T8?0`p^cR98%n`oM;*z}@<9>zM`KK~Mm}rBMf=5%g-A>^Mlo@#VD^+~5k8Sv z@_?57wO-f*TXcTdsNf0?yi6Oqq%1`qTDjh(x%(=>fjApj+*ta@_@|}XW6cghE!E6% z&MJ2pjT3`D>`l+}8%-CS0ux^|vN6)kI}>i96dcnd1_P7H)^JMblt~bF83KYt;V8si z>}CsFOAQ0+I(qf)f-_mxyuB|4^W?xfmY-`K23`2lstWRdirTmLj;3`$3-8-|h9+WN zPxD!gxn6>FZE%*|S`6BLlM}Ks$e@?lu)Ps^9pKlSY_oTa z=EnqGNr{&oz!##;1LQl*=CW$$0ge%!->@_H5Oy=F0U*I)bdr*XZJ_ERkS)rsXM0b< z#K3yobqA%h$>6z@YXU>kqAKpIZa$RhQPZciYvL5sn-UmcR}z*fu5tCws{>YY4!Q>4 zw(0AX>&&0|ip$LWP*|iKVCQq*r!bi}Yrgw)GlNX$-_{KV2;b4Ml$M9{bBz<&mKnU$XN-LWyt4H19Glr887TV?b52BBiC~6r>2PDit z-^??@6?ZDjG7aM*GBNG)37TQzHCgyqTDj@k?~a`a3it=~StL|7xXxCAE|-In=FX|1 zf(H3^3ZVKRDCO76bdOhjK#+KS86)R!CDkoudnjAuRA`|DQ3ORh((z5sS1A!hpJV6H zHX(U!_E79_#Ob-#h{x9kBa)o5zYJx&XPgIe<7P(i9OOp-j>`&J0xl40hx}pvx4Jje zp|>NdhGd*-nKH%bI5Iy}fD(d)BE)!R&{Z>Qh!jP_`irJ^%vQ~?Bp{Nakjx$93Qaxl zm(Vc#O9DRb3K;f633&XsNSq~pRg)}8swex{|z zV3Moc7%N9KLGutR4M!IAp6`32u|`RGvn&+GoE;H^isgR<^LXQ(&5PvKb9|ma$Sqy! z;_??21vv7Wf%dKmWp-`XKtYiVSuJa^+v)5w(&Y0{r58`SyIiLpx zfixl?5|*U~-2DPvIfw<;kr;NeN?I1wC$Jy4Kby}^!^KYBYR&WjVU(SUG#GZ?T3<6@ zFXN{DLlQb-WR_xVU7j3x!cQDc`YtOA!jwp}hlJ)xlP#Nl_>n3wF@T6^$V6wMvsxcn zW>>XTB&E~At4SNLY(}3dqO6iT?_~h;^S}{DF>5`h3tuV*409dH>6#CY!fvbwesu3~ zcVOj$Xpzcy+zcyoBh9@*@5eCObJju%rr5AxwE2&jBFbzJi(#}M7;0wjP0vAg^gn+J zSA1u75uC4e79SKSf8^skd#B$8ar`T zGSbZamgd`ouUKX1UN~p=P_j*EZZE|O5H^Lb>FsxF6TxJ<@$|>u$tA&BaBK}#_`sot+eg813$Gdz33U+V94)zHgTl1vXn)Q*P0fp0KW--J6{~GQu9@E_&|;CROZ6d4>J2;PPN-cOC4V7 zl-Y>OlhTcW2g4RonKg{an7yg0PDq5_WpO*_6v;!A_rmuz$h#YdXW=Pl;U9k__~BTd z5Q&luxm@t-rg|!QswsJ9NS2$Y_h%Ge)4#lT_O?A%qCN{CU;x+Caf_zH1K_f?kfna#i%FvMK`$$UqGO~zi<~`LSa!j~ z7$Ttpmu?Vov5ms-b3B(`(&SytXG;JXN3Q z`6;V2Bbin(zmzy~ohp)s?Aj%9AMspmaxjf?B1@1ukXXNNFMxy) zEsRB{m(EP>TE_}*B+dyLo~9n`v_m#ta2s)EL#B@7j1lA!m$~Fs49zjwY!5+7B^6|Y zcn}6!YmwhD<-^>!O&7rhUBaqhZd%GDpI#U{YgTD(p*nN^gI#P>#A)#69K)vf@}S+v z>+2&@_+0Lr5OCdW=)Sd3kr8c5Mg7Xb^({dV=X@_NY-K(pf!P1yAiA~_m?@1%rUaC7 z`7}0wr2$$QzaFZi^K{95s!qoRRzg0P^w3j&9cpV!GsFqjl53_WLLMo(fIdo)^pMo5 ztt0CkII0vz3uz7*=|PP{xV3fArPYjTk*cXKmIqDSr5$t$s5Tl8m+o8S@j%sb{nU1| zVvp&3xY=f$i_SobN@_C$y4(^4^*o5lWv?{Y6W;8pwinG>fw!b=q%=0RG;_yW8Ea)J zfEwM!T^`O1d2BTQ(AE+~thnK-*?Urg%B3TE*`Ar!ZZzrx~? z*eg4rlR6h+{heKcZejCIfM&2T*3rp(o7WN%C!gJ*ZboXxz%t=xnVBN}h(#&jha2aq zXxz&q zH(pvtTFF({^Rr>X=hUc`#R&^q2nu4PCC!of9`+0d^w_4|LJS&u+{B*S@7~wY?xYcrWgB$vY`YB-2H#iXphP-c9w=K|kzC_Psfn4tS3c=9 z3At=C;W3|fA(>ncn7>z3FzD}b;&eT|VqZclA9FEn-ksuEoZ6jQJcesmx0+26gy48T z+|uiQ-NXKDt#z+_MHGahpzl-(%$%OGn!{DcFO6T^hdk%f7^~#z8|v@oLG59+@zigB zctPvoAPPt!_H!{?ef~@|prS$ldm}3J*!G8)mPGllxZ=rsG0S3@7EoRsbwVxOZQa^H%u}OlogWltmD_F91zR3 z7HVe54DBn(;@^k*FCIQwdBFP3^Zh$#AM8K(hCw1>8e1mY=k7axg}S>L-c^Q@*YL?W zSg^UAT_?rGjs}udNo59ca1mu|Cx=SHt6)?Q8KUR1#G8dBUsyCiF&~cm!q0(K0~>H} zszI(3N&DEuBr$M#7;S#IE>riW5Q0vmiqt&A3L2Yn-Ms-2$12AyIk{%cEOTg}$mFqJ zf@^%j$>6!<@zaL=BZMXup6pTppnb65ZJRwl0Y4F9a2KsEZS0 z>#^jyoC&(8R~8VL?H}u<68TH#wch_OEe}_gw9y{a(|0+WzCxLj6$RY-mkg98T`+~td zx&{sYQOzX@0tNz~lEIC9{ZCl&a2)y|;C8)!p}gaV+=Pw3l$>T`U72^6=ily*0VmJi z=hh3Y|EXpTiG#Tzjx0P%@r5Qr16R9(8R?`DGREpDrWLc6l^`wI`ufZCE%nKV7vSE? zH3-DV=RR9B;gL#obowpUHwM_7wdR0sDh$qJyjj`i>2A}z5E zQSOh+Tt5{QL>64m!>xOjq55)va6#d)Hw`C{n+l#=F7c;zpalE#JZ;&F#Y59IUntU7 zMIXD*{2X^|t!6{zWClcrpf`Io*$i-l@9$3K)0Y;EQ?8r|LiJuUBMYoRiGmm!6ZPX@ zidbt}7OL08M6VQut_HEe$XW|~0{iGCAWrbMtq5ZMS31ZoD@!lILW;aR02(pbjft17 z$0#yy!|!B_j5L$S!!`_gEKWHw7BF(z!lJ!g=$kF$hbr`87x`pixhnYN^KZA(=z~YL zE3z9|%`YgEl=y+YZZF`#KM>g{O<#J7NyRXU{HSVd3Nv(>Bz&To2%&_(e2qH*ka-h+5(vWq3iq1`=oGq3rom2wK$6klemsCk@Coih7xBDT`GVWX;%DU=P)w zak#Sr;JFU!$IS~yVtn85X}$h^6afiphETsMM0Jn4s)MyJBxuvXZ@!Ap`icw%c|@C{ z{T)xqMFwdNNA5S?8Lf{Y_j<=962@KM2zyAY5Rdc*H`fDL7$Atb1SZQ!i=k6@YzR_m z4Vf5<CMTNFNiDjr3@|s_ptcr4m!b#9jdMv2| zQ*_L~HFUutMz5>^)EB65EvlH=FlU$R>MA3E4s6aQVuv*SNsCL|#b%Gqi$va*9*(M* zKh#i&scn0yqOf_p`>8iWx5bAFTJANJ0GKO*$#(&n8Cg|W=C*7^M2(TBvNr;4R%@9= zIi;b5_uG=oKojdHAF}yaT5l2;_1vrp9N0VuSs8tAXRXd@5~fJBeZ)fqv>HnrA#Blg zl@=C@41dN`*9>X;0O%|QIUyxb2{m%hwOJ#f>)VhPV^PcniODs*RPFt zEcmu(c501bM5L}G(hNl;5msT(K^21u+$K_WZsxiw?aFEJnOm!0KO0x+a4|k!EAtA-0E(`T{;ps?xH_?EQo?>x^{eK%*fY7Cd=F+*|$4a z>q4|aX78o*8Xvow&V4E&_nKxv2_E!n6d`iqz{Y~n_3SL6_0-zWj(QX+P9P#lI&Ho0 z@oAEf^6t5SyO^8eJcCVt+Wqw6;{ohOmABds3cAq+(v&E`oT&tbx@0G__jgLFnMNLTQ{)@IFx21_8p!%?6^fyI#LAj9P*k) zlIg`5+YyhPRcen;=qLD!%ZTA`{f&*txeRj3S@iX{6;5$kzl$HPz;Pj5jj(fw^4V6b zm3Cgqqi*P`h&1r4z*CBIBdCTln3mym1;pa3t)kvDkvnUy)e9^kc5F+IdJ73N*MVb8 z&jsyQ!RJjn9Fc#|qq-Y^`=eX?Td0&sm=032=#ysQDR@mpFnJxi5$o11Ad^=}0+P!o ztB{^>8VxOU%Fc5HWq~H-qymD;Xjik8QFSApFj zvno8(bLgeCl#SR^Bvps%)RO!1zBh-Dn$AH`(EASmrA3k2XPs@X7M>UGbJ$06r<#K` znY+?6LXucq;zP+TeaxHlllJ6Am8dF_S*XKBsG%ZglK{z)o`oseF%A zPTd?x&1tA4We)u;($(V_be4`9A~Tv-JvA*5^Gf@+y@jub&nm4g(QvbhP^b-eWrf_k z4F|QD7aB5LtWb=lQR`G|HQZZSHk&AxG{njH5WKO6Prv@zJwg;d5}Sk;FaF zYZmvTV%UHdnFWwR&|J#qZfVKr8=*KFeGey{%peCSTh*x@(#k~tvc4dvmX*x*_opNg z&sIbASb!=0c5vW(O$P+sQqa8#(mfDw25vv-DHL|GPdA37+s|2bcZ~!L$t;gqs7l#B zHu+#QMhYM8NKyiX((}!KUz!$aK&t z$;92HX2htc)NR{Z|FQK4shsGh&UT^>rp|c5C1cs#X zmLJ&*pkM*in6AzQ6;^5kQ6CgMEu;bSNOgI5x+A#tUZxmM_^pCX8pnXE=AkNCD2Bj6 z_o>z5?c0=P64ZDl-C2SUeU}BHo0*5LK6;;YEiPNGefU&`WTaJ$R0kSQ5@g?HjT5UO zh{OY>iZ$HYeljoa61Vo3Q8u*JP6k#}AmgYOK`Tp;vbZbGi>iPhx&c3)A*n@!TSn`n zrBXuzT?KYPCAqRv%rW)%ib;QRXnxm9%MGr__W$ z(v}1w$A-}(jv)wvx0$mrM4j+QZs6f zNLa_Ta0)hM2f&|!D#nazmXaPB?ckVBKC9vZ5BstZo?tJkrW#tMpguc+$wg0VL0%ty zDdP0l;eLab3MtrgFoOf}CUrX+5W;&6M#kM}9U-fgG=VQUy_>`~BSZN__P@DKC9SE3 zYU~i$G+R>?kg|OWLlS{&GHXF48rV*#Y3RwKY?TGjdb1U(4Vm18< zbR}mC&Fu<{R59b$;pX}rH%v@9i;jCk9vcxw~dTe{-FCeH?jgm*3D~_eCH+oqwbPmYroaWghL1^rOf+ zs_X^qsr@?I8L}{WZ4G5r{5zY5?b-53d?tLqbrW75Opk^Ay&`xd9${0vd1e?`Z;Nnz zDTLnh+W0O|{_uVabNyI0<))dQd2Ky6clfK0QR#HcL(vQv*=q#i;0BsGr#vVbcvWoc zU6@#KlJ=33-|p$Szw*e)Qdz$c9kjF1xEOuVF2Zl8RbW8D$Ev7^s#NMfScBx~EZD_v z6};vg%TvjV-J-cU(n!U@Lr!iw{o)slWIEv!i&sa=`+_4^fTmObnicWb@r zzZCIHW3TMb5Y{3)gg9%pZf+++}27R z>zZmdk6yB1&~-U!Rx!4oBZys;ybGwmqLMd_s`uAb4IZDpe#wK@^E6w&)jMm@zRcY0 zt%%Rev+Un`ZD`XN+gu@WI2fWc7j})1*`z0*d@i2wW=oZ5dUOZy`k$7P5*9W^2SwB=%h{P z5|%c$IBL(KbCbP#4;H9nb;g$mpB_tI#?(0{cO+FuiC=>MJe=dGd;OyZxi7}__?3^qs`InL3k|52FjN`E(IxASP*t20EFR*p7jyOGk7bcHxj2m3c zLuzkirI*ahZ9HWIwKr&!7o^?T#^!lU_7P%IuzHrO&;&$W`=R6oO5DUmka%pZp5PEC z=AK)d-8*pUlbq2#WV(HBG88)+*u#6xn~OAMCA$jNeFB$Ryhav#ax9pod3wT!Bxt|& zy^Y<#8)4z7o+MJ5bD*|pA7f!-1zL>+1?nF{a?~vz&ueBM$Sbcw5-EZ{u>NBSAqF(` zmeGqFI-Cf6tJdl`+3nDrwHG#Qp228bBTN|dklw{YU@6O;EwCihbZ#~hAmM}AY`JP2 zgr%P1)_sA*cxVgZCK<1BEIdaQ28;}Q#DYo0W^CQ9Kz?E=CuSloU=>;sm~P{p+!q6pt2eu&|WG z3X575=qmEl!2J>6yMYK2!h)A(Zg|~G4_loA#q1;MtszJYRkirzZO+zcqvmWmvLFT* zlSsL218kN1?EQ8$Lj$#N>8X|4tE;A560DEW&$G7AQn9CI^;y%}*a zjo3?W?ZtlNI*#!ZOQ2jhxu@^e8`F8ni@@02EmK6wr66;P$enBU$c@3v_r?YwXdag1 z;-h#v$JeW4>CP@-l-mx`HknUg`)vOQ7N>wEj_x18f-pLHdz&*T6>f#AM_Z0zQX_pM zccFv=6C5zac#{BauB$dPgml`;oGhqKtmXy64Eb`qf`Y+at$abt=Rhus%_dP~5CB~b zH}g4Fe;}-+h9MTyQW$9+2c)8rW=Q;l_Hi+$S9dUxO?!!;JU@yzbC9wH;*LAkJ}(0a zQr4JSPhbj)9CPalkr0+HV8N4fj+a$%T@q`M2af>VxyvS7)dgNt(fAyZOe7q|>uBG; zSb#9g3_%vRYjE-lk)Wt4${7*LZ{EY)@YeUD>XsrZ!rr;G=~FsN&i8&Qj_^{|V+ev~ zb{A;HP>q^Pnv2;lsa5UzwX`j8lpq^5XEbbfm##ZP<+f!>T{ti4>;9_FtZodxLOIP9 zd6k{?b!{%Po z@m}4A3a++1Y$%Wo!zAUlXex{~WfX}a`)N;;?!otE z?zg^m0L+dN?ppU^#O4Ebl=-Ya6pRqpCht{Ro1c&Zy=1rdJIFWzpM7-7q`U;4A~~$I zYRUJrXVk4M0?RNU%-N4XQoWIP3h%BJ9g8enVNj&5*iYpPZrlh)2>`dmqwA#BmoLj# zrw%?FqQZi;Jp%S9s=YU4sJ+1%2_j3K!!*p+<6Gi>4kn`S!^oQ1$wf&*vwBAbpAMa z0xLfeIz8N5;+`Pg(h)0ongV%L7(iU8$BP!bWOZo%lyDt65aeMSB7sE%y-7>8@YDaG z>h0s1UjO*1TAiE|;xDPNySlrinHAoYTxqWv0#c{#`!5KfaIe{$<6*wcPQ0^SoK=oC_4BX(>U;Za*@n!C5$R-Vx_!N#u|&4O;z zCfdff1lK*bI{eb@F=21(BheP7eB~eTuozmhP@sJL%W-7=Z#n?$uwL2h85swm$w8kf zgTMWg4mQ6{=n;MGm*58)z5kYd6-RFpkO1s^8%=yk(Et1THhlk>{e?k$_^IK2d!2Tz zwXn<&T5|+b7&n}Cs%(eoNtc<)t-`I>Bj0;mIAF7*Reu{r#!lQf_9`0$y*eZ}s{`6C z+wR=>Pr>Mh&kboa53(^<@E zUImUW`e^dePM<^Y^ubKzfZ@~B^+c|uZaiT-qnN=i>U%JpU0mvo*J(2JwllKF4Co?d zpI8mgaypF@w;TOaW~Cm^J8ZhZwk8U_|kwTh*+Sx=R zks{|l5+c>tNAxyqs7lIteD_nc8-40_2b7$ZeS6u-zi;7#!L(&|kv^lF8vb@uw{rg) z&5}9`3nFh86EGbnpEoxTtJEU6D7F-e-P82No_AFmr%hm%FhUGmEXPP@JNpZ`iBt@&7K3rmZ z1Xt$B((rv)P{eCFE=?GdlFnK%y&wI=2C(3j^oh3*CG@sC%pM|F^++=(BB_bs3nZYuOYJ{&XlH2uage+N*vQZvRxMLNP$jg$QiZ+m3dfWL z7Zb|rPTq9H7j&J^u1e>Isi}9NoaSaoO!{i1zee}4o7XVj$;L*29NxRNIAxoZ!qOEi z_I>cgh2xmP`9h6dJ9w{ias8hGR%-^&IM@pN%d~UB@72tn%piw>c_KkM zbyump`G0?`-_Dorx}kTH9!_+pB>iPHhI+eTUXJr+-0{J~D4x4cn1^f?@bJgmbx7~- z2VL4)Y<{nPre`c#Tf@~FtZPh1C8QVPM`TeUfT2Nn7=JI)>J4%7UTvJEHLaD9ra3Sk zAe)v`IoU>*Mw=xn7SvXi+-O`B?9WJ?QsJN*7LyMn{=4bQO}L*CWf6YpEO(g$EoX9c zTX@a&=k~nFxVj%aLpMH4Lq82hwZ$~(=FfA#Bd+|u_o5kkN7^1bAA0@4C03&R#Yc|S z^2O*pynpkU<2RQZp5Qt7rQn&KHuqbkuXORnNgn{24G*DFRFmO-l|Eh#QHA?a#6+v8$zCd8U2H9T6j7h@*G zBG`uwj<=_sI^3eLLE9+vmG*G3|3=0CbKVBkM>z#HX^?W+Va8bJi)(k{0Tih7{_k=s zIHYsxb z#X>_}4&1|)g3N&>S!9NIQW;Im_!@cvq6J}2*=-PFIc(#$BgB*$PJ$GC&C$Zvw5-|4 zr&gIPahF(`qX^VCe0Hur;++Fo%gDiyHcw_W&9mF;^Bu0Oy35qT8`HvMb+)m34Wbf1jM2azJ!rlrJYTu_rkur40A8}jM~@H1sPo#zuJBl;{|7g&h zt`TDSFV!3^Ha?1gj;LZ#T;6cZABDjEbc3(mh2%K(T8P-TvBJy(EL7mxWF;{MA~gJ# zf%BwBNRd#~Fjs-snv`!@^~`sjrAPCug9y9I3?eNLKzwz?57f81cb3~$FiO6R_5S=u zFfViFtS51XCcd0>kHPlHLPkLTAfd_aJf&ny8lN@)_hd6mAi2xx!MXM&Nwp@xbF%rS zLMc&jaHIcNNq)iO)#<0PVoBR=Nr%|gPSd3iwfF%hn5HDjdrjnpyy;=GybOwsUkw^oJP3JK!z`i0z%shUNXF z#nBo5I4d|0Qb-CRoKnptsTxS56(p`9skBHUTwuyC_U`Xub#O%je2HDZ97AzLaf|Tj zMT^EA9UZ^RHLY|=LIT4m#rLGgJWFTU^$}J1lN)AfDzHmhl5X(uUv&{3Jrc{zE>g%w z*}=s}?LE+Boq?Sci-|Axk_c6xB7(1OZ)sQrqIIr})cht~7K{45N&c_*>v4$IcKb8Q zQ3r4|zZwB_Ff=^7#s%zXke^T0|8|{<6g@##DJO7Ay^ypP9K{6bvu5Otg7k)~*$7pb z5~2%Z)4*bJ^rg?Sv#VfLx08G=oe?DmtLjFA&SPG>jJ2HKHmjbrIL|`+g0e z-Y>tXCM|Bn*`2!yY#V(ezxj_p#_{sfuEST>*zj|5dpEECp#69dRj)H_Zw3V8pWzz` z&B>h`G$Z3+PqElEGTA~T$<#R4f1HJ%YMY7Wf6G)2VU)vQH7?~iT!sbwbSt}4*Wx^? z@F@UbK|a{V^~e<^Yl7qZ5e#{0u7AFUgfB`cz?{d9HBP0ZJZl2xMT} zzWG-&*n6|^+MN}rOpcx36I_xv5@GQryOTA;(uA;-Nv5i=;o$L|1-r79g`Oen8%5%a zG1@8R+l#4t8G`^e3R|GEBNKXC4X{<`l-e7@0zBU<tc7m_%as4r&iT*F^{Zv z9z9ye?da4`i7GBGGFrDu^uaMErUQiCpbLTD{=ng<;4MZ#IrswI!@c;qxOlh0xeyD) zdO%${Ob_IbTEHzMzD|D#_h&@?5PUFqd-PZx8bx~3{-!Ye?VqIKvtHh+^b2@xraEcU z?;RDp%zO_Y9xOiV#eaQr_N_3?0vNLLHDqXb>m+&GyYgK6(!Xc&RZ0q?koupXSpx|) zUNoVU2Mw82+v!x=nk%8JqW*qiQR(Ko=nRDICdwALXBGU5&+tnl156&JjVaA7`^g$X z$^KNFMeWWm&xZRjs*;YuS9C(#QS#-yv^u#*p^EcH1O77fX_X^eG=`)iYj?O$6MA^kNVHa<#(SDVFu5j;>e)4Lh z6U4X3iwW|eQ6~0xCrnyRh#B|;FD}>}btF5`!h4+q?y_xs5;DqHSHTkv(k<;{Nl+U0 zMV|Cg8(DX~Ooy4*Por2hIVL`E32=O{rt}8KE)N>`=;QAmthc*3!AIMUJ#D06wE^1= zix;^(oNxk13lI_92!d?it9{=#z;DPx$)YhwRD4Yp3^7nTZEm>Zz~AAr1x@g;>|d-$ zRnX1Y$lx6n{@MhE{>luhzYyzed1qfn#osozh>Akm5@u{$#zla&w%88*hpA`L|SK-e{Cv+A9NzoMpzZ{^aAZ|dWA`=TNZ~FUP zF)vt7N|etFNqk``s#ZAByvQ1XWLJ4D+@V)5JltFsHfqCfKX)WL==x7u5WMqi4KYpd z-M=1csynuEb8)5?AnB<{5J^OWZUVBGFQJtau~C_o+j~W}8NNT1b~4{0 ze7Ox>Y!AoV_3Y8w#<{QM0Nby#TnfeyaV&@*1F6)Kp7 zjix-Q4~pT(i6g_nSY@iq$NTP8u}3O9-gkVbgx@kT2v11*i?eu<2}U6UV>qY{Ns_=ewKT+Za0y^h3%N3$;5Ta{m=xs( zjPwKwanOvACL}?)!0*M@kWy`g8%p2as#ZH|o~3tKgY->qC%wJ&CKh<6i`(y`9}FBi zgyw1Ex98HKaXs~O+S$Bjz^#My(0vooN#VpV&JX#FJ3SgGjD=I3Sry5X?tLwhW{nU@ z9bqp~nAawtt<_GUcv4xjds4?Ch#wAx@Lbz_+90u(I_;^H1P#$BN37P(2SO6n#|y|U zBsKLQ>w~3zm_1pK#ux^Ci~comOUx_y9>9~YD3r+|Tx@=?1e)x5^ru>LcV5kxU_5U^ zV>n(uJ+WilY-K#I66O&=@p!jL`&~el@z4QR7J2G-aV$LTj~^>8`#Qf zyUQBG4dB$!*@KXJ-QPd_+D}SFq#rt;Z%%FYwzYq3i6#f1zs-p((syCZ2cbSqt0I=+4`Mh`u{Dv>&v#tJ<+rzUs;Aaqu*%3dM{x-wgSp1@sb>hC_{&L8$&*oV2k@ z8=#8?AV3wy0V#jy(Jje&@>-=z!UW*v8)q)|WUclvj%DwZ(7qWoJD^Yy1c>Xix9oeH zigc0aSQq0GxCQK$aXc@t)Hf@eo7(%kB6;$|eF+p-D_@vV;@TcP8V)U5K?;kD6XtF7 zch&QCK%Vu;d2i4&X%oKePjS+TW$@11h|wxt)+32pohJLoGjH(D_{xDEJ{4a>8C?{Q z0h<;V1Tyv2s}=4C#_jQ}Q%>{anD9lu-y2>U3nvMdsi$mhx4_Npn_5~I$+~l;DJ}!P z=t{3)mziM|mp{k*T|p9bhV*u7;0JEo0%Y;1b8!iXE!b9v$Cn)mGYh5+U$i-Th*LL4 zPH}>}$Qa!|;lWONi}}ARmJcJ-R>}{Ojkty4>QOADpV@U8LB}l&J5o}%$ADQSKt7Ib zrT`*MXhOY31Czi`v^;Kk-Ymc@Y|gX%9=P7VQQn~K+R8@Q`&zD-q95-BnIf3}HKQXd zp9^~s-dIJkXqRLGWv!hdjI7hxh4|@|?dI*r{BAxy>FdG$kD~qXK3(^3-6KIw z@0aZ#uuezMWk?!dgpgl65Q)-V?7#- ztVr;CMl|a26$!LOZtC<(@8N`B`w`*0b%S&hx6o<^g#_08JUKS%1w}T-aX^8|b(Vy&5i8&P|dB09H^Dp|Q#MPn)1#1_)huKKAu6|9R_Z-)}0VG%K~8K9XIDjddx|C+oa$ONgq^Ik8h@#DQ%v z4&xm_k$~?+$zZHK;>#a-BpgXi>Jsum2chy_AR7n^g+u8<$&3Kq2EL1@tkF^JilW96EOscI3sRGtaH7$Z2MQjiGct5uE#ydxOU*F%8a&;_8 zdYm8nyY7PpA#`)e`xrLtn>Ud|0vq=iB&9XP%Z+eZ(#Uw33$xvi=EPuWjaZ9qMPte%Okj7whaH1^9hmK^w8?Idn5(yBafcw|k%L)EeJ#B#`f^~7K;%1*_ zzA|{tsRDhN8QuwQKf07#7!KukD3{;uAwkiLO~?3bl1(iyFOO934}sRV!eFodzt%Cl zh~E4~PcDDKV#Q#<4amnXQw$DP;+lbPb+E3m0XpI2~Af( zP-t~-c57Rc;HzWl#ZbP?|&qBQrM%!tC_>B*U0lYQrS<`cPGs7I!T;ugRz z3woASHt^g|+Rj|;QhynC($;)6GIH_iM^}Q|Ux_JP9R1XP9P}{w6$1lyE`qf3mXf`qche$1V&$ZfkIRe+bzGzU!nV zGChOPS4aGuW1Z=;*-b@jLVL-$1iq$l0T|$9457z7v&_Xuz6L)4|(~5RM^Y z>S0fVm)oU#x49K=L~Kd#|7lBhc@7@jOI6OlGU)rEE^q;4I2QZOJZY-CxMa($Z)v4{ z=L;A9iYvx8bnvwm0zI|DqFIzKfHWNJ@A8=kA8K;c%{jT*%o7y)vNPQ6D%{c+9eNLJ zPaK1GR59?e3^K9`?qUHmqZqH;e2~`Mxh^JvpJG2MY3poKb)|88Ak~V27od_pb`u4r zlf(Gk_&qu8$crIXtMO}!%)B@VC!;zs<5pH{a}L6x_V;hu=Ooa#zlP*fwl3g}EAzF7 z5f+I+jWkAxYCcuJ-a~7nNfnX7YwsMDwX?*No#4NKiJ4CU0-4;nfvu09sd0t7o%cZ; z2P<_aa;_q#)Q8B{PAXs799-dT`VeZYQ^O5TYcWhGBaW{(!vHA-d7d3G^}o-_#N1E6 zeE0GiEwk+u-u5T%n39J7UEw+8nNOHoV#SpF)XM)|`5UnT?m|vKV*t;avZ3FcNM}d5 z>snBC_nmoiF4JW8(Xqdy>G#%9l?AW>T`P6K{G8Pw5E8qeX)EE|znNcE~&s4`yJI6f%|&RrF!qU|COyAnCom z&SO-3@r8s;1jQH)VuKW~UsIc}7)oM$?Zz=2GCA1Y;Z|H+pjme3!*PmP5K8Js-VYCb zBd~eZk}RZiMQ1)2M!v`|&w&UdDKW5MUP{=Dc)+;yoiex8`OG$W$bq9Pw~>CBS>7*M z1^*8v{ZR%55Eq<|PFBd}>IiPbu(UUIDJ#1?{nEj+=XUHm>icjB%~EJt^qyc87oo}q zQEWRSOA4a8?EPWg4&pB*f5_hzU3#~@jU|^T_!m`rH1TtXx(AF2ZQ!=_Y=HD>#6Te$ zL$Q?z8~xp0ug?Cp3S?2Pe(tone(Sqe#xdb4Sszm4sp)04D!;@P`7<}EXGT&0qHKq) zrWyxrb;XzKtGe*oV?i4%Ey@NQ;Z-(y6bnO$rde_VHTSiO4lPuC=1RGcrWO2v+sG-l z-#&45PbSzMb;=8WvUfWGH;|wHer9fE4yY^p+;(Jb@|u=wpoY!)w{C4(-3kdbeZ^xz zUu>f%yVMOrC?>R~5Zi%m0pUmCR1lmFNH;yUhm4CH436lp+tgeQ?oClP6?hR2Vs=d* zzt^;bRl;*f^E(WxZkrmDj)T5w8IQ`L-u=JCz0Y$Z&_B9}_X4^)Ptij2U2;vZgPHGc z4_MO^4&Q`4?*rd;;ov*1HH+|FR#T;M6{C>!!pr0zjuHsaU`P-lZIlHrN#o*|yf$+C z`~%}hV+p4@dWrktZV5RR-3fk)4~`xnugyj#nM#7**wmfkj^d9@vcw7@VGH0I09hI! z14@4AuZ7xI92A_aNi=-8=cDn+PK(U;$`pT}GLG+8l^zR2mq#!mMW7@NLj-8tid80* zEO`E))aSF%ra=u9G^wv@O%*hnzDLr0EsY{}bEihp{~-HHSpagn3-S9#_q@r=sm5sv zz;}XBOEz?=jufuG$mZ)48#OFzNel-Y>ska2VWzk#VB#=A0UT% zQAo7CIc>Ln1SeE}D|H^kPS#5DSu;y2fO{>pQvFC{6O69x7G+3nGENC~-Vxv`)yf5k zsOjxP67OvOa>El621+$tXyI@{Bo<-{q25f_$x49!Wgt*^7@1lDTNgv&(&&psFiD;n z0ql|dv8nQyy#RB72-5?_ub0wPkV+5wu|@|#yc5}#A!d=CRS48nC0lzv2cCo1?;AKw8#Mg65zYF$(K)XQARI3dMP35WAs?D=Awd$B(bi$=`U{TGhoc0~(_oo38UL`qE7rM54b%r2!PWSOzW7agZ7Z7D(7Jy?Y^r1qkDy$6;&+4>XJIndxh0oxQ5gN@Yz-(0xMXNg?>oMWYQK;AXu91@wqT!aNG^2GXcH z>y1rbZY+<#vteYsu$@cdwpoyvBT$4mb)vK3 zdv#z@WD78$>TGRmAx7L`u_i7Iw-ex?#+(Jsa{r!ZDA94<&tAhRux&Pn&FaV{*JHQD z`1Fj5Qko;^(GZ>gzpm`iBd5?un}tA{HiKX2cL*~+h4c~)Xi2Hncsr>9ucJewW(};& z)2YWPwr0obP@}C;gwPZ%Gt5){5-rON-L37PBLn7dPk@VfI5?r1RyX7oGMq4naMBOO z`))iG<(|2o+BD{{a*=%xl{1bUr6P&lVBlf1+Q11ANg95HkYl=&S9(h`8<@^xtdWJm z5-MYvG}LWlu2-w~9i$Tev__kn-Q?db0A9n6$Idg(g!Afh7JJ4+vZH&loEH0vn0H?? zt=Q-ARvsR>oVPFM^A6k%zPCm2wNva$|2nl{YuH5ymM(pa!M&Iprk|=I(~2zX{l|?w9BwV=bRs$ORj@Z6)eE zs(Ci*H zX}E<%49IVghN)<*+SFz8fXedk0&p9-{u@F7j`5P?`NAR_>+$f28qf#K0rG|AeN#tn z*JN)#3%p4PcBA>7cV#L-*$+YdTQ!8^^AqnSBx|Rh@m_v3Ub8L>p zUvbN$;q?w`IR+WQFPC}!yf-o7g3IO;D6sZHB;|-=% z20j6js=`c3suh1b0c*ra0yQ& zpL8G*=Gl?r9J*v02-+opz#xVwWCai!s7ZWZgtP1`9Sf6Z(DoJs$x z4lNZ4TE`g1ZB>>C#!9|a53zQNNh1*ZyH(z$(a9FybQZMi4A%Xld~q%xi1@=9eM^bJ zgZt@GFqRQL8i=K|=6S}3lDJjd78L=^Dv$68d=3jze{qJOGq;RhlbXwJCWA4Fyr&H~ zg`oauXgs`l$Xa#$#$z`LmI5OP#}xu(VmTAq>z^5;al z`L%2)5CU{@@Y09Ht;ICvU<$cW@onEWXsrfBd$&24d5%uB6|bSQ$rYl@`O4Uw6S-;$ z?jjbh&_iuoAEyQ(__z)3dVWrL~kmfsS z6F%>kd(3NK#f~8?0)AjKgWb&roDM|FYCLdiF{Ew)*RGSw>b(8LrSe?s#VqJ-UaN3i z!q=C$suZBU-8tF*1>Nj@b8ak_(Ykl4y0zpqrqMWr{klQ=x*@5rOQ5O(w@00-QC|cH z_u%~J+SU4@=%yzw1Nb_2hz024DPNy5*rDu*0v@%knx4|g!7lc807vhYv%kS6_~;(d zTSiw^rjvD7x^`p4apV{SGp-*KMTD|6AL?nUgaor~;7AVODZ|vNgrmG|rk$K1WQOiG zG&xx(dZw51i5&QKy^+xd_+S1vOe#e{C}C#5az90NqYqx0J?3JbPDB!o9{z7^$OF!i z6g9dEZbfaV2|kvb1?G32zrLimB%b<&KQ+qw~O>C1h${%ij| z23Y-SnSU^-F4Fc@eM#KiXWG&0=3ehkt7$##|L$Ezp2JX(rJbd1+ypGa>zD{`ne8`d zWSxaoEMYsXecfOn|)Kg4Fp_WoqOAU?={6jnGcNT7jy~?N85F? zGinM=01x#}t13Ls5WkMSQzjmI#-R06e1-?N>7o9Uay|1F_Y;a@G7p?G0p?wZpR%bJW&43VCx`$ZZh9W^M8C zqi3vf=U^Eu`apH(VRva%eASo@0{KqsQTN+N%*hUD@=LeOzn{h-+Z{lWA8o8CvazW@ zny}9h?!Ls9Mg$)E>-S@Ttho5hn;413VpMn!ZP~{yi`lzxwQjbMAd5u_OfNkCu zcmOire&4!;t$&nF@a0QPJha%|+Qw&MlLXjcGJHSW<ep$j$*e(}yQ zxv;PF%jVUNKOeBKU7}5~RC-Khx9idzABT-mYg4|TF<#2{?M`?HzpaL`0!=||^Vzd- zzYv=PWJ=}kodyWXS(Xywzxv^ZePS)P=SNDUd2Q8`)re|Na1R(dIe}AayW)24&5zn- zTITxW(o>rrB7e6*7Zx}em7d#?5Nww$pJyrOSu$&B7Ebl!p&ox>a(mo}?z|Xi5aAvX zS3Vx7`LN;BP~H8bZl8uStlX9U9e!wv+a*7ny7=LJh%1O2XA4RB*ZxY0t@oTlO#wsEG*S6W0^R|FV7 z4u+xR_ekOfa;W#vnD4s6ANZj)pyASkP!Im3hww*bCqnuX3xDVcX%a~@sqHa|KH;qH zY;x*#@D~7MoLyLoHRYUk#fuuwQ17}Gp+1{rlV4a%HBB+^)P^g>W&YK zEp%nM>7+#ZNTun#%T{Rvjy?(0Uc7Rd)LCJm>5$PUh#LtGiZo^l%>YCdr@#7|$7Bu1kG7HxS^*kfURra+qnL2IOGWF>@ETw}PsC+s>PfQjh z3nOX&lXau|*PO;s>h}awTMSe7vQtJBw>&|P0JC-L^>9~J$D26TOs|GTg??B&Dg687 zY*Xm#xXmhVNC&G0YE3nZ8_8xD2d~yPK#j5)Blrfq)2w~13cnW+a7Tf!%YsG)W{%$z zH5b)+tF3XV0eH{HI0z@48Cpe(0Wi5ep1VSDa3716!PcFs90U2jdu_%|nmPWUOG(Mg zYwv+FTUaDD)S*_Zm#^Q}Z?LNY@@$pujSQZvOsd74WYPZTvTr*S@B6tfq5l2xAQZbN z1?;At_ETE7w7U_aVj4vG!XH0ISTaZFj{p-+_bG$_~|2d&tR?DhuyLzpg5 zMP>IS?!=S?fW~Lc-wl7NCt#7sJg-*OF20eCE-Dshl#ye!ivWrC@e)FQH;m~Jggg@< zq5*dn9W4tYA`~;=0`SB{^hA_@hlWpO3X_vq=ceVkGXC*R@~*{dma6W7C-h@?)~P9w z46r6($osYqh0Wv=V91Q81HfU74TgpI!eFvD+FCVd8FRdwsW4HEMQT% z0Let`>BDO?1Y#2pPP*)J;W#_L6lNTY~ClGO80Z4fY7-nO#Y zu&G%a5h^+!WS_y^T%^)Te%xB3wb2OJ0Wi3Xu4F>IH1l=j;0QA?bny_31&^BlyTaMD#M}y74-4pbi)SP}gl%9W?AZD+ zGT6m$*vjkBS4vmfJ{LFqo~@$7iSd5QFq(X^2$_Kk24}uOr_uD8n^ui_uhiH3OlinV z&_Tumz|}qgnefdlhFXq!3Y6}#znm6Eb95~R+Mk4f8obtV)BZoN-`pu~Hk!x@*AmH( zJOAMD?KC z!8?(mTXjuJEpMFN?W+Q2mhb1DXHNZunw6fNVL{BOeOqw<##25x>1&l9e>Rn=PojNo zeQ$*++g+fqcv6sb1pQZW{P8s|Cii{Nv1`;>66rg)AY}f=lpkdq%rNRtU3C|%j|JGn zOKspi;gHhO!@q}-@VuO2C7RCg{e(_<+tSXJuDKdiXS#p&dQf~^5UYVn$Nhmf`*==t z`Vv8FV|I0}qN)qooj7ZTfCXK;e}1SZl)N~us%=Xg_b0~TGLe`mkf9G@JB1u+OQfe%VP%5(tPXo zx#3rigPaaFx4Jr?$VF3^Zov$9yWQVc$&%1j{Pr4W=<|GsJW$E|%*XN+`6~W0YC*hr zVWaOHIP1>|n?L9njAKM=)O)o0(ZPFqZM}+%e%oC3m`yC?+wE2~Kv30M&64C|UOub+ zE`(KSDjM>V<_gk>Q`$miuV#iQ9j=*ePiNH)W1IC)4JU}+X+1Q+=rrBGX0CVQZHg!h z3KJ7{5i86gx}KW!b^1Rzx++4Z&Q0#3=Rc@k6mYQJ$q@_HNv;(PEOU$gj*%`#rE~gU zt0-^S)c}a~odpp^rWp12U($G_Z>M98UPI86?Rg~YhSBAnqMLLzG1fJh@!&x%P4UFd z1yMS4-)X>~1B;`izH`XsNHHGhN}FU9Wt}UQK5>Zj4+L7la_kQ~fas1NCP9o}EX^&W z&@9@_1P++oyABB>0i7qj*^paTtqnfpH+zw&uqU<+zG()U1CAjpMwIm@G_3M9+$^Z8 z%aZh30p?U1Yxe$=1mKtao@UYU|fD>K36YEzF1Ss zQvYSlr?b*#x<+y8pG~=zkv%3!+o$DrYh^4ATaJVH{Ec~eqkSHyg!8>Lg#BYT@xiTR zy^TGH?ak1viv@wS*m;&Elt|JbCh6pe{-+WdZs>9|^ysiB1j!)vV80WIKGXX;5E3s8 z>8%0s)WV|<^rCzL6i}EY;znd!Z`$|a_SjcKbQ#-y^esh_+ zt`|4MANl32ahQ6)ft8j8?4|wI>)HawB3~BI?+8;tJubNAAsGmNc*mkIm_iVz`NytW z000+4EQMyu)?x#2_{xoJub^0HBgdvdQ5e|o-(}s|n@52(e3b)MBV@)V1Isth<;Wj9 z)4m-QgSjM5sBWvBT0smM>@(hF+G|Bj;1&i%(m*0+VDoDIUPEz8yeuceEM_;WXSb|R zoo}5YgoIz*nN-3gX-jn4B*8hZ%9JxuP3g8bG3D>9s2i-TM%mgHi5JDs7?vo5_qd^ zGrR+iOGF2wUIY z5*wSVrn10P1p0HMv;j!f596P`-?%#aasfxLPYPTN!v6R*Flt3jKlPBql^UoNd|U^& zuO1wRo!6tYvG(Q;z)UQ~{uQ^e+KYS*iC=Tg*lX%8w%e1RH)rcuV{5zJjthMJbtp?o zRlSc1-Ix&yuhfg2%AD-Zc7L$8UdZJBPnEfiXBRIJ6<$+Sr)(-4kUI65 zx*v~S-e(-WCE@52=C2)XPKy7DeMc;WC7k~Q&m1Isj2SXBpxR-@8t_kRCvo9}sVy_B#{qJ(;5(}4veb<^EzTTL*#2#9La)rkH# z{XfT3f9+@QX-7Cf&7wz>O^ZSeJHEj&4r)ZYn7bAAzcsJix6jrD%&SZTF$c3xXC1YKN7v9YYyCM6I!cUdXwAAVhfFN_ zg>9&H3P|>tMX@h>z3B&4KnqcVrd&WxuS+mB3&bjtMKoMb9$X$9Yqyl&1Z0DR%uhoG zm&>iOz)36NX#TX_Q3vvt|CE`{I#4v+){h@3`pEA)wE~dw)BAt6d^*?+k*1s>iA15? zR8FTzh97N0CRNcS6DKW(F`Z-`Ex{J#nHJ{(vQiE!4SY;&LVQt$-#(QMMq7Jl zt$!7_iFI;^DRgsSt#w>4PNBKYqI>(2p$vzZQ5S9~?YV?=#V%n(IeX zT)2SOvctE)h;8%|DBn!JyXB3$Qacr)XG<*@$9y|Tx+d8wAR=lq&Q{yc6(fS*ne*A2xfuEhva6#hX zv}iFg8alg9z46#-T)7`hO_JXn<_D-$GKnN|A{um%`rhdYMPy7D(E#KOP`Gg0h<9$^ zEH9Ykal6B0;c$yF%;byLJWH%PW(kA49}NQ19u)ru%)@9<^XJTx)kJk{%1x*WIe}}r zNMupQF~Xz=_bpaDCGchc>W5W)+!IM}jp$f*o`aN1u8hBM*;DiF^Z}-v4~eo%R`=28 z7g@tu*i)^;nwbd_H#eqT>e`DUw_7xp9jMRdY$hFM+hoX-;%uBDas?`RN)Xm>U0)P7Sk^GKRC{PG`Y2yZ7|Gp5w)}= zf#ydb=sdUgoIqVc50lHF$h@@KS4_?@t`19Da#b}7g9}GD^-7WziJZQDaFR;H%)YIp zM=SNUIA&gKKsuTFt(_NzPg}I;Y}Jg#f{AMGq)e&q{T!(NB7piK&Ex%>Z-~Uo?5g}G zu_ToRNs?!3^K0e0V>mnwfx=KepZX2%B5I}7Y>6Ue2m+Iu|GCg|Hus!LN|XqGdHv!i zcCPTd2h_nDSuVwat)P-i0*E$bt^99c-JhRW_~Vh%{fT>Rc0R?d0d_ONj9W>9MNXhJ z#Umz;=kdFHY}P0*dqk~Jjx5E|T(e|BY%sVT@qHzP7Vm=0m)D?s@eMvPyhzq56xDHc z!t2P_*|34tu***=pv%I?L`_7hi#mh~IwV#~=YDIbRJ*cTW%=E-k47gUC`*;vOZZ>> zp4|aZtLMz35>kz$&^Z6`jmSgVDXU`$|ytK(aNSI<*E1!_?S-8(U2r5zXCxfux z4$tgdDV>DI$~c5G-bL!PvSDy}1vd-Xe5%bX@T7At!igwIHfYU~sd)!V`vB2RwM3V@ z^>weH!?qY|EFOl8uUSTSGODBOS1<+OKX%_eU?fJpJ&KSMo5KC#n*G;$2ocA)cRYO ztSf%R(ScQW0OL5|<8P4>8Bw#S($|L0X1(;i;??iHm*VToe_tv7g6`@SGyoIsi>O5# ziXejBdCS9t`qW6renphu6AUxn%9XKu+vhPaEyKVG@7>lCvT`Q7{y--D)={K?EH{b{ zB!e@UyQOS|vwm(I_}o!4dj1bf(`K+WQB3PU!K?|8=IaauBt8$@e>LXl2Hk_fx107N zw@y+LZZ>+Ge~5bXc(DDDn|i5RQ-+x3JqscZy{4)DpsqLUXz11_Xf%;4c4-SsZ6kYcz*V2?ZOd1pRKR7WV(c>pspg4Y#2)V_zf z1iyf^(VJenr=;h|A(ynC?@SbFP&D+)+u)szx;r>4?7ia&ZHLVzAz-X$bM*(*pjl3p zFIGT0^P;*1gV`$xb9}{r`pXSz%8#*6&R%x>Vma)6c~5=(@i)tU*L<&$gw3R{-}>$t z(g=b~<8BuvX6#r5XK374`sa;rj?z9}WY{uxS9)xUH(ndZ&s8T&_sphtKKCYiTD(j>7xCtZ+>% z&llgE5l9w2N+cI9G1YavJU2o|TB8UiU03uiecExsFIONs?rjO`SAhryyzM^kM^Ioo z?DAEHTKf;fF5Vq2ehNV>s0aF%Ud=bet36Uu)w*No*GeU^R}1RY*9HMvpoeov^(_J( z2pe-6kvYg=!Wf89L)d58c}x9eUMv;_O-F6J?5a6`gbh72I&1(;6eTG$O~AREL?g7b zGS`!t(eS;4cMiR{F$ZdV2xqgcF@FkRK8ZH-{g-PI<|UbiP);)BRtpuF?{wAFw&ttl zEa;VBktM@TsgHvIAF;SOosIX{E24ICIZA!5klLHPbDL1Zs)ptd{Y z)m(KE6@=z#p2MvrfQ=k3r?W;Se#b~NN@m)GegAmf*e)LcJ^%=p5+JHT-O_F|)=`3y z^c+jYC4EgUgle$b74Ivb;BbNz(tMG^`c?rL;?gs@Tv@ohft}hbW=Ic?&sqI5Tk{+U zv9MA;G{RQ^wOum0@4Nb6KTkDIS$5%9vZ7RJ4K z$FP{MLBO79FDne&#VFz2hmlZbG1$F^{nf?julRRP1Og?mv!G(f& z(UuCcUV4s(NzY^d!??Y8#JD57Do|ORbVQG{W&ON}1^^q>`Qz(1BBx3LeU{KD5Jcjm z@F}n+adT&4$AWs47r5A>j1^B*%4A$Msm~895v7M{oUb1r-7^K&&!5JC*jkI7$ARzB zwc5GTg6*{#IFQb!THp{jnZ1R?EP7uHM0&!K@niYDxzI_cA2!aLN#XNM!o$M<8G=1D zDviGvLf*XTZ(Y1}TTUdVq{Md3Dz~yw8_HO6LsD&aS5jwh6)8}|QiJ|aam18WSL;hB z+3&XBjVBcsU){r?{>vg|hgW*=eCxD1>u~Ej_W3 zae(O*X4(LxQr`;;R6wAqP)+ zd>9G-T8p{0@3j}e{n52xPHbz~WdRv)+24(alprk+K17&li0E&iUE)PJ#){@OCmJ$Y#h2bsrsS=i@S8C#O#* z3!`oR3A*sJ4HA=y?29uw#^sORO5^=u)QUSB=$lYK=52;)rr13xxp30wtD(1jV?lUX zDHe>-YnRfem+oTtIvhP2qxK8hn;lPf(e)Y}cJuXcD8r`3(mUjF(_3X{ipr@g&Cayb zm7S8s$`CNrdWpVVu?lO%e)ezWjh5(~f$;5%FMiw4dY0P6(GdZLxfyDl?ChOjn(giG zTSTi9GOC(iS^%KaW^jjP-7&2SAf_h(AKf~3cCUoP!!z(6u(AVxG9BKSp%TdTA<#H4 z%w*UKIc;>glnt(BHKZc-{q6SZ3esTP^y%Ol}v z!VN|j(r#_Yuox)}CVgG(VC4rh%q;ie^gM@@^yZa;vejKGznYGXfIxR4VL$D`ebhi%Rg z6&bx_(65;E!b`}0w_8_|T-gVwLhQ8!4@Y%`OG$*t$Rat5lgpl9_-k9E)6)+4GGBYa#+5Wm?NIb zhiCJW7zUK1QMCoREqTCq>p?;nu~4;sQoS`+!8@4V6jg;AsL}`^vsgz*}W6wxdx!q0gN-Ug?_I5kW{vyk3|^o8>jfs z>*YDSZyw1Fm*j8V&@-vM4#f!J6X=w-e*$<s;p6{WJRt|*np2mlmDnllGDoPUB4=OSG;`Ssru4v5gv-1!mx?nRph2?5YA!V% zl~F&x*=dyR#a?8lxKaUh7Ut(l@iLg1`_*4la8HebAqZ|eETsVt`JPr+JJNRq_?Bbc zv6nlCeSv?H0&;omSPYsN3i_Ms=A45~i?pOn9w;`myRRR2!uJYzun?K^szpA39{b%{ zytr)D2``VXuA_|?c6;lH5*V0y@Z-Jbb7(zaXfO*IYU9n9_Jjn zmDmyDj|)IP`}O8F)n?*GmSZ$DFftIv19$YN5Bv!B;tZEu7Shpq$hAEV1O%z z+jwWP8&birnW_snzbTa@25%9w>h}(3U{>rMM*GK9*4K2Co5T_>2UyU;FqZbvBf#_* zFg_>JF%`pf#zvegmT%WgRCkN{Jy_6CI` z5de~O-o+rHj6MlP;Q#*2O2$Sb~8=gh&|S@S?>r=hj9}J&#vLCh_EeALd|Bk0|nOMQv^Bv@5FNB<~5(MTDa8|TK{Dy z_NG#%LdzLnNWgYezqR;D4?%uAcIQkrSN1sn#6Z5!rIK4FjxAncz!Fen%>x%%J1xXb z-K4Z+7_F_;co~>bsGlev-uz+D5IqV0ye-E`w{vQ$eE8B#d7tQwg>G?DK|n*$Q;hHL zGXwg!XRg%5ir9nlo`q_Rz5Y6WIQiUdU|G!(gtLD`qLiuT2dO~n#+v`XM}y>ICL$tu=vyd`l7}GgGhXm0Q`ne>xl+F~aP*Qx+tC47V3MWxqDgVQ@n8X;LQn~A0Rwu_{V zQMsb#@WcYb+KkJ!=N44+XroEcBEvqXyFUpo0xVZCyJVzmg^^vLaKvKJP%H-KL!psMr8g%=Oq; zZnti)`g+m%3_K1;$z7%-pg)Sg&gILA3jOT8|-lr~&McnB^Lh3qcWSH=&`?q>u{tlVN)Mepp7&C;Xj7*pi=XMVD zg2WkkX%A;&->$Y!zd$U1@_uM$zmu<1LW+~mCihRe?4?w{HaLe(d*5HOT&fGl`paf1 zSUv)l2yKOnaBsJUvs3*oSIldt_?kZu3qz&C@xrP(iA0gG$)_I!TNVMS7J?*Km={CB z9~={Rl#lLU`}_BIJnyXSsyT|TKD&Eks`oq4oc``OFHM60VIpM7Vdlme;82+j^++kQ z)2&uM#aBil36GH0bV|g`9FO{3-5Tj)Xv6>AYnU4hF@BO zU)`2DXFEHek)4sPqB*JI4nZN`c7;WJ^8j43$u?e-aQ0|u$|=+Pvad0<(}nZvx+NmP zCMBu=^k(Ol4p0~sCB?`nKtFD^EG5F19VHda3%m0TAm$X_22-@AsRsG-Z#WV;wU;iRKS2l7SP?c-o9YnYCA-LDG9d+s^z=m- zG1g_!cxt^8~~u=4BfV^b!XSu|TFgq;U% za4-v#=$f@GbVbYIED~T*3}@6Q+vaQPg|es*WRcrbf<{J}hmR+|)FmudMa96145w;1 zJ-TXv4myjOcfq6`_-MT$(27xexNY}*#gvmj{P}efWwA-k4NTq4-vib2J)sfK+Xb?kz$N*o#UeVUZg+I|V*F@D(jX~u5fBjiJS+QxX zDc10^rU$)j-|Y6lmH)Ck1Yugre~;8q) zB+EFh;I_8wO=AgRqL6l$trMF)BFh@V$}8AfMNdEN4+)kfUW<6`=z3G}0mSw?arTge?GTn3hxYBNf-^N3!4@N>*8UYvmI}4iI zbVMYbCW%SpZND<5!t+|C2b!6x0bP=jwx@yci`~Qi=-H{=s%7I0CB4lKp85M$=b9OJ zbT!V}Zeh2DjYa;lkE}08f}MuLm5eC{GX|hUKpYz=RXu?xYn zl6O>*`l5RGF-F@%j%aTv*b@FYB;05FmPXGACTH?SMdBS<(&*0c(Y0r~?pX0;=50`8 zz8uTiF;5F^UEd~Y8;M$*VD+V=oj1UyhwY9yy)zz_< zptiv7JM?uQ&*2|upB*I;a>wYlJK+cYXj?=flo3#^12|c1!e!<=6cm}+-`;fa;K9-B z+iH$qJTDZ58WQ;%CEEVFt9nGxKl$6B7)4rtY8*14@Znh?93%cCj`@(x22` zrJ;h~?+5#?5G=g8$%Egy_8&qZqg#%XVr_eQeKps62Cgp7N=VNh`LG0ExGfsQdhx3l zB|2Mw@6qj*H#4>zCn(W(*IUEu;$HXQ-C~4T%hcg8{q%W{V;y<3Q}j@&*F4Let~KEQliGBK z*H5ZSnI$%k(>i7nkpvde7fWa>ids0ne1-7=!`JI^Y3b{&gc-*S<$9vhHY70a_{X2B)>Pg_+v^$cdf6qs|>ZlcuBFlje>3Nr_h@}*4_{Y(X>%)n4;)Hhw zc+gHfW?6dUyo)5AMIDP^+4)!$Z$xCpIwSJDe#&A2r@qLQAD8Pb#V}7CQ*jB~lqsOi z8)WJT{4Mk58jDg#S}k$*J!+gW%pHa~qx{i_+lK$-f6DYRNaBgJQi7l~H7@+++BxT< z9xN|QbUXMMivsoWZRsS<4Qu+If3CClD5>d5?4sk(_i)Oyv|fZ9-BZO$Ra+ij!6_i)*yt@2*4DRoIBZ%SfV3bH>~!^NI|8EV6F%rj@?O!^&rT? zq?8C=6r|zY2GZtyjk_BY>~BEb-L$5>CJwd-3xB_oBVh43msZYc36@J+g*3R0nIsU) zI56*ugt|;%cGV89)dQham7`JEQKXR)dB&Ta2}vkec9`S^o^_nLCa{P=$Q|Lq<*W0S zaG)3HU#0VW7q0yRqI-qaO-&6VODn}Nl0@}YPqS|LT+$bl#bMV%L% zAFO1qW$W-9r|f47^OeB@YQ+zuM<%YIOWNgB|3wkL=sER3QK^&8jmUkF>=t8m?ft_H z)f=858#Xod1hwP9RaNn5-%x{;VG!os6t9}1o>L#h2EIAmVCa$J(n0^2ElA6res^us zw|&j11HSvvQzG)Se$7j*lit-yD{bjq3^ZeHKVakdIpunrp<{$^Ug&^zo5>`}YcRU3 z^z^!Yowxh)i(Y4F_C*F9)lnUjrF}bjXLQAqbMm%`Ql%eXn{Nh?QQw+_yQ_`vu=!{!J?pTDA)*B=#Q6zxjJYK7qg0H;=GE ztZ6inIegmod&YFW1f+rxqYuU?$Ev$|?ukOUMwqK8xz7Yv$c6K=XB|ci9==bIh9A%l za4Rn#Bsp4Z$L+v&v~zh{rP~L{+>L1nfLueMeKA?~(S`9Z)h};WM{8^CKVTO4_Av#f zL>!#nF(H%`%5S| znk&V0&eWwR6xC?&Exd!h>pl=K%K>7&ZDyiV>mOKy-0S*J!W2*#yySxPzS#)j5C zmg&QpenaOf8a53%l^sZ+wB)Niu3ABI3n&P1oAOK4`=;fP*q+M;%tk^>!-OESmO~|E z>ZB7-1~5#WJOobz$6|}kj20V0VqRW0d8F^?reF4W_s=@T`<_nY47&spU`;3?h@wR8 zRR74J#tA1s1I_XWfLD#si+(mQrqOL7v)=sRbZc8>WXy-Ix%Ps$b#8I<2P zK-kima*1@QgVqH>^WrF)BuAzsb1Isz0hUdwy{G&@QJS*Dq$Ods(IgS>G9b}`|CVXG zjl0=R=?;%QHK;_W<;IcIckmEF4z(>!P=OziWG1W`2*X#WkKxj5qS{I8D@vb!DfH+o zT)V=uK~E?;Y8hRSe@`8G{F(kY%T-_$u-|g^K)EY5GROzCZM9Vzl-^v1I%HWgJ1iSYAuMl!-i> z2ys5D8#DbIWlk}CNR;9VI7RunEzO-ndyMMezh@%${4r4W&U#~6>UnqNgKj%H=2IPX z@=bX{3QYJS=4PyVNns-_u~;lcB9J<|+GzIwj_hbF>}$_!@9$m99vAKo73cC(oLE$V z0sO;>pUo6SL>_&e-Npt#5*}6}uaV!XZ6t9eT5K83U~}AFEX>N(i)>1}$K&$6db1mL z`!}^WN=XfcS6MA$4nfYtZfn5{0&dX>+?fx#udI?t-Uk!{v(g-S*F3YIpPXs8Kwv{G zsXvpSPHbGNKlgaeue^K`Go~^rrDK!>i#if4dO2bWhd_~)ZF7|#tcSkU3;I1hFD9}V)~oA;xnkfT%;rZuyKLa!I1Fl~0jRM;o%)*Qs=Gz&lRmpfgvbcegR-)WDNk#>%45qBBYI z@+A3ue6?+utc_jKFCy?@zSWq?jd@5J=7MIY6fV9{Tw_YYp(}l@!@inb7>=pKx9jbrDX<6UlO$Bx0Zk zQBRCfOy==KOg_%-9k5bjPc^rhJT_6ZzsHCd*tmkif-!IQxcsllo;->qsU?TYlc&l1 zD}F@sVo<-h2P&yLjtid|ZwFNi7`%j5(&K#|=G=(BkjreqOp;9z1QaOmEV#>k6|dE| z0K?&hryrPjgSm4nTI*{%=>T<*O5Pf|J&R9RI!;K+F7J2<_62{orh1sNKetc-N?JXU ziKJ)vL|6Km9QNBB5e$zS-$#E|rk9Rs~&pzJzdZZLUUasS&;L!87)Z2EkwMfF-_ zZjypNqr-0v*7I9J6B&Ey;ZN5;0+*!kj*R0JH|4e#Ujki=i~xEkF-aN-YVMVR+VUfs zHoYIL(lKTC{6yBzdL;Bqu#@tuKS@r=3+in**PGF7?w#sZzgDfADj**YxKkhd-0b~@ zU0uk^|0Fw9*3OUz~8YC2V4`=AD7Z zV6S`*v?L?8AFX)BGV9BNjTdLo=WC60Hq7%RZPAsAD;Unpk`*ig<9kELoP>6Eh|-HP zZG3U0+L&?HQG7*U-aBB?i;F`Tvu2*fWmtXla7rV0AekjpQksSHNw8p zd9atsyr|^%Wy5MGvkQ$G-ai}ZpS0Vj=mGG$`o2zRBX%9!3o|S*+v0ESGU12|F2*ns z;o8^EdH;Mhxz1mf(0$laqzHbJ5{H~4E0RDqha`Bi05r`^^0 z%Lws6lDC1Z89EFVEO6 zkv35X34}LEQ-m{AX5&(BIF$%b1)!o>%T`; zB5#@8jW8=)vzHhqhK0IP_~EeC++Mo7T#qZhq@fiVnG2ZxnM=ve6UxBO(&%=e#}ro< zK4VMIh%UY#5AOBNC5+~2uv)mO83I&9%`QJk6Wec0lHN7`s=by?#7<vo;a5>KJ1}tdnbobD*N&hDe^&oD^&6KQM9_!*SEDbixTdW6>-2PF zs_YQ-tjj1b>9r9Yd|(~i7jZaGJjj)dRz}Ge;SKtQ3;TYN`xsNEsQ@O)4tZT4)^^H?B7xh_Cbi^s=%jTG(MhvF ze#p_ua@70l7X@j`vy|7A_!bViFCj~2!$TOdu$`dgb}a8@yb+*Rz;YmQgNK+PyAVy@ z2@8cNQa3VF&Q7m>XT+LuxUApzZ2kvV@fq z__>8sCs0nlRPra{UxadUN+qW7s;W;UM#qC zA${2)yJwKRgE7&32ME$Rwic;x)Yz)D`AnEUV5m~=?^`@hp>_*^1TaMofm^?H1&;ED zcz_mTu--(Q&zAS;0W1i@+R-=9{qp7#6wozKryHUxG*Yst>Ah3<(HBzkh-h9alDr^{ z$WA|oN6a938_f#Kq13s&{8{pjI z)E>#nEVge#Smt6?3VVtG)a}{Owut2$Bs}p<2uZ8{dYZ3dP7O!W%f=#CY+ScCg`QBH z9E`i9tW${e*_~dM-IMeVO)KadWmBQwJiv?-DV3*K-Jx=WtpM|w*P}>W29%?k_C}a( zm>*{;8D!i89?15aEZ5X9R`s?qA|g{p7iz*_+4u7h#FVmOrLbJA@PP5+2UAC&-<^)h zk8|8hCtpXPYZ*$_7!YP~Dmay#gm^rsyITOuKV8HE%(g%b@M=O`L5)JIp}4pcQ*pkY zJqgt0qe+gp%@#=C~Ip-WE_h zAOEbW@xXgFvU8Cq4dAwmLo2Xw@E7E>H+S-PHvm+#cwsoPJm4{)5&;WJfSn~OX{vA2 z+h*5U+g(BE?)gFV^ziTpCikHL1f;&bsawZuQg5ua^+7@6n0voL&Ib~B5FTiNTPKY9 zrY`|2OS+1#QG;TDkKfe+qOm1s_9)R4(iyGMiap~Z%l`ELeUn6SvBmJ$e2$!zM22MUj!~(8s%Q&7B?6C?mjcJ0-2TtyMJipv5;!Hsj*^q{xd6 zYwQ~1O4-=Jh?BIt{P<`8tU9nNJH*Z8FS9ao{i}iL?=vH6QmH3eqL1E7eCLiZK$UMh zxxMrs)E}Dkgc@5qo^n|NB{Jzooa2A~N>rM5MG8$5<2N3OXrqvKy*)uXi0G6Q`nx&Y zPG^{35*5hMZhEHcVmBg!ua?vp9rn$0j%sk7)M@1JshKvn^|N04s8W!=AQvgULZYU3 zBmQhIexYk}VK2$#reRR~=);7TXU|l~;l4oMd|tyDIB3ze0BZB8rT!`>L@D2HRU0wj z+nx2r8@HVS)fyUw^SN} zaB7mgv5c*3UWvA$-$vwnZaW$Gbh%Eub!$xST;Fou#zi~qN47h*5%zDKoD%xq0xC7f zECEi|*$AF6%X1gVjgOR{>FXMtPxD@gXIIEgKqA%ZjAR z7ob6vh{%FbdF?%(WKC^dE;qX>C$CLo#Ih7<-}!xAZG9SeWZGdC76K}_i;rjALYCr` zoXdtuH&2DuHjj4on)N-%ZtG=BaPS~V*JhKr0BMaS=XMYEiZy_qti5{aA~M_Gdj9;! zx2sV@wdWn}XnS;&*b79&Me7Z}d~`HXK2SVtJaGmH^lquTqOfhfst5DnrDp(uE5l3q zA!%J!tS;v;Uy6T^-;L7r>{?))+RY&Dh+8)Ge{C{3$|uMOJlbMy zdy@qIC0u1f0?U0O`lTUk5e#q3TmADFi8L!qMhzYAf_<4?pKoo+s}}?d4V{$-%Er}i zB3T4#|6g1=k06sI9Cyug0P03_y^Y==aRoJfj#`Lprc|emAT^c>A)|)S#VXiKsMEzy z0~(BGP)N6dgrgP37Qi(8JfAA1_l6PTt+10)DOi~;TOCYP<0O@#c*!JL8$3ZEUx6<} zEkc1WC~Ik4xTJ#9NEI@%5~l3F=%#G9lt2(CRrIrafk}x-YUtv-5p?h#LEb@X;ejsUq z)R-y+UIW}OIO^1;hZ<#P0xvL~9EAC;H%1qfhmI(cE3vO@Erok{pIJ1o|KD%*M zon$Yx$qI(q^AI5W@l^O6TmOOG;Z)inuOfHu4ElEBiGA&;355G3KBENoi>9ArJJ#SLz$J_|2 zL70MdHB1GsG&u;Fuaa?4lFRPm&z`C4fqX3~v^;@?DS;;^;1&rbB?&HM zh;ARkwsk!KFs1{85xu>`@y_jt>~f9lTb4aNk+P;lPB?`RAGz2C1O(^55!Unw!0fJ# zjJN&@L{77-M0|9m|JcV8q>Gu)I=zVWLJpUrVa2zClV5`p&S+oM(j#!MXrGU@zgDT2 z1L;UVQI`=Vq1Xpx-2AOxR8T$*i%dqz0VWMTo|Ie@CKnx5jE+Z*f!nsrK+P49Q62>A zMFa-=xFHOK^n8h`Kc8tJGZ&#$-A+ilSo27+^YK54YGp?^2LMgIOud-ZAd$wbP>&CG zS8cA=>NaS}hA7WtUvC1VB@F7MzdqIsD&C2eI0b&}iR!(4pi!$53W2uoBQJzC)p}d4 z(iDk>r;i29=Vz_c!7MAz;G0lxh~g`EvIJ*sHCz=VPu#3Lyan74EkoNt+s1u4`W%eV zxA#tB+1~yVcqVks+3L1cIjxPI&)wb}IPkjhz+VS`JDnM^^5Tf%;9{bQ0<6?dOz_LkS&*pJxmfdYg~fc2FS-E$Ze( zRcz^8FOOSOSVI+Tt!U@LQq0j^u0;ziIE^UZa|O1D_N|nHh_pe_vzfvsA99>l2d+6ftZ)zu+X54HM@z5c(ugKV=yy^6}(0aBH!>2<&R~K zV72m9#|>fc`RSlU?)cf#sd~-~VJ|;Fq04`08u;2$BOhVMcP=vu?N()Y_-%C807^I| z11sgUeY0)iE&F(3%08K(ZdW%!I`59S4!9#4ZFje~kVJc*=^JuXN!xAIqS%ADjh;0< zCy!M1wc^Z$pd#12h|D2vK%P2uy1ZLI+H1_Syim7`i$J@L(g#shs~dh+FV} z|LN}hXxWYj3wQc}x|T+yrrpQcBq?*At@?WF(0G~Y`Hz|-=JV42ffZLGgLZ>bhgU|; z5wxCJfsH=HmvF>(R=|Su2t4+vE7^P^bIhr6;*csAV1GTMhk%3WkQSBK8Bv0w&-I!t z->(`fvw7916J9VbcaDKq`JG0WJEWk%yGTh10W*KJWQ#-qxuwUoN#{qPGb*yDZ= z*TTUg5SD~Y5tiWZ+6EvBbwGrM4b)T`lrV601DU3x;g%ZNIk4OEWtkaw39}U7W)uPA z*WrSlm${-(Z&G;mlu<#sKOGjqoiIGy-vvtF1WE>{8yLo;rbajk3)05%&`zn)Ge;@X zwjuPbtgBy^3Nq*WYW^4Ul;ol&|JzRB;52|};%7sYhS^9K?*vYRk`yc!RM6R=s8*fRtX{PmdYaGLZWa9NPbPNH4K)5(?s7L5(lTvZ`q zKd}&r_ndIYS+IhVt>W|0qbyjG$H|!`e1z`Omp{O;oiSjmm)3DOJaLnRqG}5tWM#o& zqfAyPSuS(F5Q7ALxW_=QlM$ghSqr4&+86#B{!2pOfZ_=lr|)&}hGP=BLQ)mdZ9#^G#a^OhQr*)ERW{RB8xe;w2A| z1wl&+0xAc_4&B>>_O(@CXV9zzJZl`~zp10|q6@2fyErl)3$7yY2;cTvEh_j*UNax& z`gLG=oy5!-mW70R0_rTNmYL)$BdkwV-L+-mNRI)UZ$%97zw{e!_hyeJ$-ALp7%LJ< zu%oynjwA{a)=3bq@DUaPK&%uw#^wR#n_E}<@zD)uf*&iXBa?yohcci()F+JjI;X_e z|B3B$#aEFzJpKqpfK@#x=Jof;PD66x2JZ4zg6xN;x(B8@cnZ+|ySvLVo#m^L85+eH zbd{#b1Fs+)Wxj`<^j#tcLl)I{=QnJ}F`1kSi70ZQ3uro^9PoE(@W8?Js z695Pb*h|+?!MUnsUv1Y&35y(&O37!UU>*=bfGF_GyWC~q@sy$M0?adZo1VQ=gvz)d z=NK|K+EInGHv!OE(9u)YiK)Ddu2$dVn-XGI*q68(2k5H`M_16uR{Ierii>Zb<-9}p zbqjifC#x{`R6%T8kGyMM-AJSK637J+lhl{nu~>QUK6MbKyz17uSavo*oF zV-qSlU>n#57HN-Xwl`Qf@+?_Q0QAXy`@?_HB(BmiQK5cCy(b<{2>N(s=+}V9`}SAmm=Lp6;UBA! z!b88_Jd6Z>FbF%qAg-_UwSP~fD$>XU8n)$!6GRw}7H&j#PgxBBdYuc@3M$V)S;_Joc6Uy;ILBkrqqyWZgxD0%7fGYc7rXI7{lpL z?|F2P-7yc*=ic9ZAFYjuF50zHSk~ZqqAdZAnVr5)?ALL}Fcj`X1J+ZX^XK1zV%LGB z#hNL%=yNyor;z^JKAp7IB4IbiMxh?9+Xxa__ozcJE}}(&vdp#W79%OGe&^p4Og5Z% z_jL|QuP?~Yq@LWIzoFo=e{m*~j@Z|%13|`wO9cNAUf%8~Lj%qHw@!uodM&ScZ+fWF zIoiJL-s!f`c0BG$dhsa_SL8qD^-@a-489)(p-9AUXZtb>yK2`pbPmN@KP}wXJufiD ztuwjmGOy74shL`_Y2{O#&m-Ga2y5c*0+XNhAz?4}_2|ZPFsS8?a9hGQP)9~`sT>B5 z@gSQ>9U3qF?Yrs<&Qx2=*xnb6RjZPJckDhIwD;4mgWTK>D*UP^gTRF;v_#u^rf77Y z6{T;<0$PAO_@3PhLxn#1X{ zwowNlOJTVDCp;|;29-IW(%K`N7-`EB0pVKG)W9^wtjJ>C?Mg^OOV@`DL?!+AG48L+ zp3Y&Ay>K(dh$ha867l|AzV2Cim-rqL*wAO+&$&@3+xfT-EyVp-0qW)0pH z#07$;tlg>){DuYo!A2{y5bGPtdq(L7?QJ|D&J9ampVwx4k%PHNXlIATAoeHUe|w z_j`M+B;T}Jf%af64;yMEnYCABO6=yjDZExP&HK*dy05(4C z15)53P|*ZXVsFk`i8xQ@Dm@{#8K26Z_1vj9EYv2F_+k(7+??rq0qvLhlW*tABPM3!q0z1j+gc;w6(f~0lNN}y!$ z`Pz~7;+z0hi|UHKbY-N&F_1#5tT)gDcIY*2xRkB!{!*+>8pGCC++14)IT?27_2 zK&i|w(PPqW#X`sKx8dW)V89Y`#{%J@UVVGaP4x?<$m|P$p9+t+dANprAA3Yo-QMAf5R$2B?A>lJ(pNVPzN=?kOcAY^VtLq<#)y%vY_NO*U*Y8n<1&#KMN|< z2_8Pds9K?fZjM17KmM}gp1gfgmk;%EIhvppS>0Th&b*C(XMNzLJLIMpMqvh#&)`A~I?${pq*08#PKV(>EfoU2w{w zF;~8S`7e?k=IT$GKc;h!J#TN)2(VmsXK(HmP@b8CjbYsm;=wbKOd`S#LmyCP1ms)3 zu=6a*fpeF`)saNA0+SWxWdOiqY7&6^E4bwRTf;+oJL<4Jz9n0FC>?^Ej=I9LBL?E> ze>7a1Wc-aO=u+RF+kVsL_HIxqk$Oh8p=aH766#w_(iBp7oCV9BytEH+`ytV%dim30 zm`9Na$7CQ!lR4x$;)&7BLY-6t4U)I&ZgrZfyGO&*z^8$8M1OyJbiuM$;l7>Uroif@ z{=x~Pi{Xp3pYcA&-O1h}a!$uB}$d)u1_Ku8%eA@XQf+@YBR0eXVSBC9Yf`BRt_@ja9MidGa8$kXT>WTy@7X zH_VI7p-S$%!a(Yw|Gt_SEaN!^^CB3efxQweWeOxCA1OT9hc<}kHIJUT2RU`G!r!J`1@HT__n z)vRVY-+Y`OG~$;}c$6_v;QQI6eiSUHKn?3k;)ZxBWtc)b>evmx1-KfJq$ z2QP2ega#9Mb5h(0b9bBcj>@0mcaCdV6l}g-J~rR!ymyXJV)z96z-qGsuJRDr)<|Fff(uG zgr@j}aa`_fyI1oIxkw`Uz7s1J1*Z@`ZTb62?*;g-sS}(a1kogBa(HVYEq8(8T!wgkBKg@_LBLNHZDRVUw%lEwDyc{X!$?bl~zWqlei6&WJ1O!uE zs+wwj`g@?Kd+xE4K?0B?NYZe&7`+Zdi!bI{c=P0ze%)E_n*-XW$T-IcvtJtr4-I0I z0$7cD7zK$Y-Vk%|QBFe3NrX>WC(s%3f45u%!?J~Qtw0{Y zw)xmHIdt5Q5#>J1x1jef)Xg6L5er@1H`!e7*6r#6Jx{RQSlom>skW4~UgL1m`hx)Z zvgXJKQ*$q6guas!f5pm(2RO@kTdkPeT5BnZW8nD0fEj1E1SXAxubl`2|CdzU(@fX~d<*{*rkz4ws_XN{dO<*tyFAg+?j1_Uu7vSOuR> zk3(4n;7-JWe|+O&6L4;6r%(}K7c|O#CmQ9j%Ni94-U`5-j7!Z#**jW;Hx7Xp4#oYF zmUZ%2+%G8bIad4Az?+H<-$N+-A7?lOw!KgeXvGI9w%x$%yZ*Cn4YnQsy&VMhcl^)m zL5lr%{^#?9zyXf`-AQqP&3_K~afIR?z^4ZNIOKocQJlm6zwcOs5BvAUy10PrJ?tNo z7=P_Tnlz{#{@L2;Sj)~y0O_M@zR?Bj;A3XVIK2}a<@XSjpA z1f%c^YUh70U&G4%WLo;GJ*M&$qA zO)(@t9+!=y!~Y!p?*snx?5y@DBxlB*1Y@5J&f^hxEG-s1NuRjX6PfYg0{=axic|mR z`LFUke>aSqHg1o^Yn8$SX`%lb(%u}{OMJL!icI$gmJJHJq+kS@N$Ra{mAzz|2lgWR&fRoC@86=#WwD z$2*SD`qE{m{M^O^9JE$DM;*;oEdic){3n5ykkWS@c!eBd5D@X#uMW#MD3%N z+|S;hGczLi*=OUQn|37IU6XtIqUt?=8yqn`T8rA)<7r;M!W#GT+xAeaXlD!VUnXk^ z(IPjC+m2C}N1eQK!sneL|(+gw+OPNz+N74HoU8tZCX z-?}-eeDc$`q(e<3CV{tH`en|iH^1RO>Zkp4`U0!d)7&}U=afU{U;IH+$|?Mw56{GI z=lsvF3)_6Y=u3%bMMA47>YHvta?O|tX0ssJ&;CVWA++U%GkWX!)o(XlZ@;>;FgD%c zm-bKF5Gm#r#jdB;{J!D7-2A=KUe4}Es@61vMOF~jW7|B^dG@^L?Yobjn-i{8z6h%y zXx=rDsV& zO_+*W-c8$j^L5{kuY0TH<>BH|KjTHh{Dv_087|+cY!q}B`N2{zvjk(gs_S`cd4>~e zTw83ntLb|N6!=aTx5GF;W!!XvzjUMJbe!q@n)5oH(;rvZ znYC;_cA;)>4HQnK?>a&p9E#?|qts5HNljGBYI{?afAr0x$KP!3{j>tncX^}r%ID98 zs_8#t|2eH$xN^9CK#~|+n9wx5d5@E!!5AMW zoNH0J8L)8Gxa9Ub%PXTLTIaQ7f=&DQlKT@I4wn7(8GHZNN2fD_AM4!OzTtV#w#{|d zCVVRP50&rEQ#lqTzs7MX`MmB{@%G@5SDUw&w+NMo0_y%8nO7RY`1Y&CbN=Yd4lPK` zupS-1Ha|yYcxtV%l?HG3J|ZP;N~|67K8JYWv?X))$o)LSIchkpIaT}N_NzrB$wZwg zv*SrNA?tfd{l<>0n>l>d?N>sY640KN01My9{%4Kj6}hdifvjiSP!IRgKd*K;$&YES zd>uL)6#4G=3B5npTGm^=-!rqFxYbGd7hT_&l(zY}m@{uPuC5$?{->#PXn9mUr_0;= zKHTSW;6&c&_EnLMLzmnZer``FM!8>khOK-4@l(K;xlP62y)+-)A71w{@mbpGyFOnT zwPDvgBct}^-o3Um<{zpKX-gExIE8kFT>NTn(XJ5GSAq58O@CKybc;KzcMkV2@rALu zBb^$@4cwB{mCs-4J%6GmKTx-h{BTKoZ1~PrYRlo3qFihG+lh?h$7^GlnX{^$SH;fq zizn_4dApw4`H=QEd#7=)@w*16k^>#peTm#Sa&_JWSJZvH^Nu}j1N^eBUGJdQ*lVBc zCvVakFsJa!yNAiFiC;4;CO!APq?dYKd@TyE$YqSLw;NBWMwPC!A;wIuGds4b&#z+Y z9{c;YFaTs#3b9l(GANqB*&~4%BHMf9d;?++5TNk&P zS8uaZ-Hl$ic490TQhm%>nR1+Ls1utwm`&Sqt|aREo4*2l*6vr|7l;01{cDxX@sgm?_)zhd?fs&{IBf$m5%@4uxtGzuqmc)TbuvKe69#k|9|H5e;e<_3y9#^?dEq=PQxX|EdaBS@=I)k0SK_ z_tgJh1^hQeS_NgrWd2we{0M?5D?eNc2rd7On*S4c+}*u`gZJZ3{U`QlScN6Tg4kni zXKRbH@{CJ35uf?L_VzCbQdnJ*)5c_s8@5<9X%}Wt!Q0 z?X~W;)_q^=zOTz--8#6**||r={QQ~#eW%)$AWbx;`w{iOo`$!D?f-r`F6!iO|9h|L?fd_Q%qL=@o<+eb>@`PT|V!ww|{;1g__`$ zgGp_|^``%M?7geQ+4Mj6Ev@o*w~a1waI4NVvAXS9y5sg{Fa6(NtiA4_Yj`L%>c!D5 zZ9jU9E%0LbK-q!Mn4@+kco*7$bIls!vWMxQ&6p^0(yXLUNR=aB^ z8LS2bxLY%RZa%NY%gA-kH2pcuSf>^=HqkSFeYq{aZC?>Gym?~lDxHHse%}ZHM5V!i zhE@e*vdKT2izpOnyqLH(TZi-X;H&4BAsbTF9>+>nDOxBTJruQRP1&ZJnX~Mi$E)kl zedYgUJNx$TUt}KuL`UDg4LG~HsQ0s-7^85-;0`48`ho`wncTBy&_vbv0SL}CL4DWN zC@2cKO36im05C(AN+dv(h{NMr>hS}F zC!^{WtSXc$`jowYEeh>Zqm}_F{%!G%D_+b1oCzrw06u24aA)(EoA>Vg{SVqm!P7q! zh`$e3hWW+W0Z>&}&sXpSGM2i~2fAQ@9saMlv55#GV+j%?6M-rq0H$dZ%2;Le%aaTC z9h^3E4$N@pDUdGL&8qHw!w|=Gb#>(uA>TT1Ow}|z-W`QB1_j{&$S?r9<3w~a4yHJP zZ$b>`05!KxM5+O#@glXq-n_!$LAqfzuh5&#<5gA;$q<1$`%v$S2q;6TQ3NVjERG^l z2*|3Sdro3ThzhE&Nic>_AkKiDI1{q*qwt&pt0!RAu;Rm&VLO7sfHxkZ#>Hqb9VOb% z;($<5$~cU9Uv&}+jKKzh4Y{i^RK*~Gtakcgu)Qa)z{KZn7(a1QO{GExRo=k24q})H zPK0GJem)3jM8PIu`-A`1p(ur_$;v9xL=nOTux5ZQy7T^I}HOM!CtB3b&ONBj6Y;huuGJ%pZ(`ml>-iMsZgPg z7mX@-GX4M=bOHs@4Z>#|>ts(U|V3{B`{bt4`jDj@uVT;FmL(R?4IS=D<3Xn|l9 zH7W^Teren#>kqWAps%QO!6MQH$bf!T_~T1njs!H?0K$5ROkAK6W4NT-$ypub0Y0uf z2pB=*1<{28SOA5C#l$k#KzMZ0;2EdoMOm%pl()9eWlq!+t55{ffP^G#>Tk2psVLNm z2xgrN6ot1y?H`6MaLxj%wp2_2*CK#IkO(S*d^LU=QgQ0LGRpt@KX$laQ&Zr|d%gO- z(xi!cc7&ot(3dWNI=eu!8J@OV;Fv!Nd1LUZ!g`5NfdEp?{(iC$&RAH_yB*Tv{w4#m z&w?6EYxl6Yb|iQ%7yx96fK^(Q5b4}UrvP9CyCUzz<6_Le3&Ax50RKp!7}&eEea@W% zZPqb5$y2a6m7vXDcsX~u(y3;RIDMr1D5OVvf6&Ay4!l1>2U)6Je-L* zr751<=92+J&?GYR($l zqw1&I(#@+DE&FBW+76oXB#L7UAbVv?$Xro9UiO~Z+v6H)tek=!O=Eoe1sVye2Jhbo zI!;vZAYotRJiG>*L(w%FL@i;tRjjBzpS{?}AA^07^r?N3f4n z`Sbe7e1Qf5Am!C@Jmm9LaS-0^Bo5v&H`hF{sS~tk0Uk^-0c7PrcH6dG0t_rf$%!2R z5+ifH?r04FJb^-{<{uxfCrM~ud8%c<7_0@e>y6A{IR{Xa@Dn5OVE`uDEN%c)Dqo-> zYCy2-Ndk=26=?*dS}HBAx|5E&ORO*o4GIcUMh9TvhS{uj+id|G@T!CeBAL9j*P|Jl z6MRw8kj?;Lcr8v%UTTGkEbvwPDChc4{kFSI62NNE!W)-Q(tC$dOav{EbluRFYa9hF z7G8Q-u-7B|B~o3GM}xU6Xb`M|2ckv>6D9(U6T=d~r)4!_!E`ZP_CZI^P8PSKa-yyd zs?-fG&a6v080Ofz_b3l=U@q&g(25nQpjTa$&*POmul{Ja@U7*uXC#^N2Ssmwdnn5>l0?O%jNjE9n1}m zW?o_f$uLIVI09QypHNxlky-R>ESWfE6bI#7RrswP=?Yk6OVtnc&+SCX5FJCzoerD) zFfSR@g33fnbeH{a9Dx(h)l?CvI`Ye4I1?_-U?M*}Qr`?tT4!yZMl*|ZV2{r>Hbw9V;#MG#O9`tr2{0N6@Kxh3T&UZ#F_h*@sgEQ7huU~F|F zG|@70qXyn&X1WZW?qTXxI~`_lXG$bit5GP54H}sY0MK#Ri(o2y&_a<~%a8#)on%Ar z0lE-upne)RnSp_(;k92_YIvAT-R!5-_?TgAn{&UPn4~v~;e}D~u-Y4^lrHJg`I#={ zNt6Thfy4_T~|z;H|Yk_Z_fKVLCgdhVS+Y`EADgR1i7UOXP5UaMFG>|zx|0Kx>7Glsgu!_4U%T6)Bu~Kc?Wq= znTY!7sn9t}zr7xU49_?fFttedB?9n@E*F9cl@06>5`@s9 z2E2PhJjYVnnOogD@h<=2DmJg5CecEW0!Ez2}rsT`uW;-(_TphfV>rEGWZa+ zAprY)WD%keSZaewIHg!*Rch65ZBCkD3hpH=X-V(UP+yUNyDJ8o(U>0o84DmD^tzrA z`_fVVJ~&|C#~VQaPVTNnM;F#k;*F|FG!B_cc}oM7`&?d2Mk8TEA4dm%`TofNUl9eZ zwu)WrK|SUG1vCk`iv`t$e#^Q%70i#pFdRw?Smh8TSLF-YN+Y79||gMD9YgyZ{-o$if!BH($M{x6me$W1AP=!T_q1nPhkUdPU=nNTQe@KObvmu-qonz5tCp91J7*t` zw>RZdsML%$FrZn&eD4}aRJBKPRp9v|MX7L3w}Xd9t>!1p!J0l!%9_$K(ogkIWW7d4 zY7eU}4TF+E5+`ra6-S|BSV8GFXMvs)=|@nS5*b0!ZcrNSs+RV%TQPNd>vKQ^b34@~ zvS&aIaO`oiJs3i=JC-0&dN)A9I>qAm=F-4q76X&TO7KpK#?eq)-Xj?`s@acB;64U( zguuCA!1b)HRfu#t|HvLRjBU@{y7UbWUCxp4BaW_m11JNuIsT$W^RO9gwKjJ+N9CGs*L)wp$JzbR8O|O^F*q8)YLx=w?TSf}=dORZJ5|Cl&Qedic*~go5dcwC1%H-p|a38flwEpE~<6zd8D!(=Hjv0G{m{YIn+x7-X!RTB+Tcg=3f>FDx zOy`8pX16`FhXLBX-G0-G7ynkED!lE1ZoZd8f0A?9tbK9KyrbJwBLFgfL&q?4j`tr8 zOSO#NE}8q%)Zm0DJJ=B}L)NEK4lNw};9+j6^``oEt%Wisr!;ot2L^S5={mWXTGM&^hrBLBvc^=%){ zZr|;09efn{o6flW;Z983j0^9yLbw)THiM^vXK0ezG>c)^UGf5w_Sd`&GhK4(>osQ zfdM*XqS;z(z3~=XEgjO7F1)^6Yh&OOx125Tpfa(w!~MS}DtCU$_-arPa#8N2u`D{~ zIdv_s=l5nL=W7l!kcuS8>x@>o(na)d2VG69&bz3DTTOk#99F*Ev|?dV_fCuR*>Cw> zM!HW@%xKbg2rOnXJRajC)QbQxzk=-@s=c(n7~~3dHl$Db3We8h{CxUs?w%n<{q5GV z_!g~8kLRmm$CX^g>siDqF~?=+;))W*4uzt&Pl(+WQ!-?VOFTWv-+rjBwV8~wMzKo4J#A#3kGQd~iT_pcM(*qT7rUC_^Q2P{q0S>txE z9(&(|`gtLZzZNM%SF&0WV_Q9|C5g=F;nu~*%6%C1B+SV!gC^`fK8OIK{*(rhdYy(*#{SR z-fcP{$??6Ew&mw*4mNGemW6`buWT%r%$+rOCNFHE<@WvlJ3YbGgwE`qZuNY;`BS5j6G?61K#F!%JRkXaw(EAVRcb{BQ|(ZM!(+q{_7{! zKe_RXl~_y148wVRV%yFwPnOIz@R+ea)5@^@BorYU2g6qMP;>rYrm-i&V%kjC^td}} z1YA|t`>*@ghZ`=_=UM*e!mW0L@)RvIw*S|(N~bB#r{cEXe*DqEUBIj>-x%@UYw~bo z5DJMWY5Ut=z$oETjqTBX8N#etzOCYH*nAOl2)(dY5K-IVcH)d)xBt(FxKzGj<7g`& zI@Y<-;}Hy0s%BTn)a-dLjkv=qGT_W*ryu}oa3CA0z{nF1J@pzXkPuvZz&9Ga>u_&b znZTBU@dJ0{@9l=jxCg>sDoXwk5KYSHeS^V8f{A=h*m1vywcZxF@?jX9sL7FJ9Ej1H z-6$BjMkxI=LJGi@OIBy|Z9WO9s4kRG(!nHh<0rsm5KZtpz+cQjeGrn42l#Md{a$=s z5nxbg1mHdTZ|mTeS65I1mQ+;$z~aLYRl|{KJ{0b@G1;jH-6|CBypc^$uIXw)R|m49 zAfQJ8P=8P}{OvJlr!zt{0sz%Lf}!KpG84LEp!WN`;Ny!3rW6WSi9w@?ZE@{5ra_(y zWtvjBgVs_2<}$(@K1#)u!7CQ^PH(}a0NQ?pMj$Vwx&w!JKnAi~S!_~@4dX+lsAeqJ z<<4*Ft4Wd=z2U72nEX%iQ8+-4lMduKHGQ9*O2BV(Ahd*YH@U_&gMe`YTdRP6r-t{| z7G)|33X{oXYCsY|JsGSKs9`gwU$3h&#KA7G>=I^>a=Z6H7X@hr5fc^DzF1$;P_F>= z6_noi`SI}Gu=AQBS>Gw>tiqQ{09U!h|){UFW1W=#}8&Nb*$Qs_52 zpnyKF5A|^*_bKTKKn)!j3XCm3gM!F>H6?j;D$N1Dn1&6n+^X-INP}w$seQ8-o+O6UCIo33`|!KcAyP z-3Uf7g8h4rVi-D1y2g%=L0kg7e~#O$E2UD{+iLCAB-rmOnS>Sm639i1NnHI1oBUNETUmqf;5)=T^7!ayy0}x0gaGt3E z8o<2l$G}C%FxEH@+XZSxaS(4Nu*R2kbp*U3pIc#dY1+6y6~79O#=+G8^ec=csCrf} zB$kH(yL)H4%~td1V5b086TcfiX~$BCqcUOJP`rk%2flBRnDy27syP6l0GRO*geR|n zV^ejD4iwPFz~?s#wNyr)GotlESX3l~7exT>_d>FeXrcfCzxSD@9+lS*QAI$lS=^8FSl?M^vLMRNKe>xhHBBDvFV5E=Y3>AC^djQxGRXSM^_W)#6z-BnBD2iY} zaFsiKRW^VSFYL{xVN3wisz}#3XGPU17`x=lqfQ&@wh+u6j3Gde;as?r8o-K;2?O z6bXn)E`b6O$X(bEpRNAhGS$GODu_v{$)Q_u9KT&gwC`}%U|Dd+3g9qJ(`|eN=_QkK&1jSHW6K1uGs!;9J2C>9Cg+d<|>5yPz$A zNDKtR=VeZn)rvNE4y$Tm`~{(dU>A}OuOJyw1;HKxi28H^@^wIcixUWaq{npFk?`9S zMSUiAvVUm-c$F6rXg*{BkrO1!!U-)s@Z?9DYTAIWCt~Du&pt^?1=nF$)5Q|t(F{d{ zr2RlP&mDy`7k&nUNfdbePmoLx zwh3)y=w#+gA%MRBBTngL;nNE&RRMog3E|KN0z3#nwPq$%hDsMqO+PNQZ*!qW{@6v0 zgZuEmfT(p=9L|vEYa%N93P>Kj2(%_Zh#4L3yR8i9O*q8F;C=BxAaOm3!NlhvzyvbT zs3N1HLvGdr4E7NG0vr`RnN-7ubR;N5m}P32EaeRY0zL2p#cEJIG@0^E*fQGF>LAu%=27>}AwWu+ObQ-tA2?})v@_Lxmm0+pO8sd#01Q9?w zzUxMy`3YdyC_@^tAdCrM^%(-lAJ@^~w7_db(YOkbdyz3Sh-h)BB5b^dPFQbtb((JD z6K#Nyuox#{0##2y>;;Kyg>f`M>=mnU9EV32@IeV>98fb8_6Oh#p$DXq=L5D}s8+)g z5;Zx!FaU5DPCiN|r-aA{e!lrc0TA@6k%=M=jvxxyl)coLcFb0b- zE-U&x6Kfe_IGAufP#bnf`Kbaf(}!2fX@Ch!TB&+980Dxze1%{xT%-VpT$>0XI*Ax# z;zMvQ7HNFxkB!Wo0-PuEr`KW7r<2tJ1e8edPR%Pd<{X7u#()pqzV<*m zHZ=hHK#dKOfIy=m_Xjl+=s0MF)4ODf3v@DzKGU?k6!g=s#sw z$p$3HjpT^ILJ!Gg=dcU5xDiy6GHhqJ3+hX6w2p|y3_=7*FNATiX}k;jYD5DNfZw7* zyATy37!|8*=-<}@wIF^q4j~)B5h@fsyfhzyT?Vj*UU&!!WYQ{~OrbjFYhH!-6f&f@ zD}p{3KH5{5i^_yE&4@r=*@0AU0SWkgb_DjemAGGvGXf~MxcGPBrF9E&CDsUV=H8Xi zpBy8Y0B_V?y@vs+%M$R$+DS1JAMTEd!%*lrzCJ42IS+{}P|HybkXMHVUuo!^3V~D& zjK|mI_2k?T&^SHMpeF!fD_nIt6T93{%YdqyDtr>B0MaMSqopQH2p~GZBKfkb6G8zX z#}>qqdI+GJ6Eq4A;EX`Z9*sa&iA*7I_ZrzXph5wz8VG?IltKkdph^T19C}RbQ63FZ zYbF_#Tvb&h!h*uiWd`9j;^7fbZaE(=A8a*CDmb3F_b91WRQ+`D$BZtgeIph26bZ)>+<^wR)iXaeu;~YLu5PWJhBAi;Bofn%X?ls zPWu)L8N`Ps?zGkt;(F#Vjk@9%6)ow*m0URQ*#>mLVD9^8ZR z5~@ON`yL~t8X6x0VZf?_k;=`(YJ~KsYf_uOKii$J`IUxh7_j*a&~+c8B>Pn=u}>m4 zZZ}-%Bu*>5MgK!3fLj2focEEbO?lTIP=o;8wjoDo#(qepT!l1%8~;Fo+78yQWc z?dyDG;>ty*$VI_bLVkSxVkR!0Uh`3^4i&I^DYf3@L_IzXZ&(VDQ-Bn3p8U8NXnCn` z!0PwNc`~i86}RGiq(pGQ849?Mn@#X&WTKBjAfa-Wi}+x4qh}$RzwJkZ74Gdg*#Z=}0s|@+po6uJqH}5duc_v?sQ0&ey;NUd$B2)cN0DpaPhQ zUIYu08zZ~#gFt{RkR`}KX@x*c{Xv(ZxWr`5U-26{D&Yzn!Bc&Fs7Es85V@m(MxAzl zO6hSqz$J(=+>O8u3VL)@Q`3i+7Hg@(c7ajq&#MOC+j`-iAM>Fhm$ zvI(>bW%Ido4u3+VcR58yddW|#kauwIC^^cxx@7^wjW$dhI!9i8k%pm!G0q%}tl*tN z?_G>U6qesLQ7lNZ#?f=;jxvKa6W zsyj(S7F!fdA_p-%NEsJY)8&665JsU*Kq!hPe_TX@;6%I^3Bjf=WLY_^Lg4&Yqr+Ga z8KvX+b%l(TK;=h#Z>*Ld&U>;JfhvooB^wh(KkhCn>63uv-s54b-$b2FpLCNAu_{Cc5Ztqu8H5~UfWi`>%p>v+4pw(xQ^Bo209&-O_Uy5 zaJTDG&l0z=-l4nwDb<*zHxrjMvk<93{H7+O;!m-~eXWdTZnoTRzn{iFoLTj30!84_ z%&rmVwE7#S(61@=d-f!zwE3F;?;F<4KhX2W(mR2Sawu4|&B4XaWHwBD+G3w_<%iHE z&kyQ9{DL}sc%b`}R5r0~urGbw9m?Q*_>W;L+cu-}!hBm+sUAaEaa8D+9qfkc#0Ym9>gg+My- z*p*7B3jgdAC@0P6;szD}1^48SH*;d@~g(zGQaja(ixiP=*PcV$h z$T+GiVJxA4jEz?I!Tms1UH*Et>iIRbGJhWmSfNPTqUK@h&%J1^kf7GPo>37uDl6XY zYYx(1ZT$68QGDGady#u@3Yh8s*8sw;^Q2j2sW17;l@jq{x70Ml(0!d5)$UN_`JaCV za$-1iU$Ktowu1|M+{TBAc6ZNK$Pbac%AvrIyKN#_$J5J*2J1~!ZlCynG_Pfa*Idk5 zWBS9ja+ip!;kj!vt@?9k=Ld#A)HC{TyOy>79~l|fLh3GUS=o`cWu4KOX%2iNBf0Gl z`zG?pLE9x6AI=;zY+ms7kFag-VV;&LW-PK2xf*vX)AT=lua0zU2+eQnj2Ob1%HPTw z4?WC(_(S&0zxNpBj$Aom1F3_l0`kt?E78t>r)~M^#$U6xd5Rd7R6Y-aUDTyjGuCLQ z8Qe~?hBBLDa}Ar%FaZggCL3}o`@6ZOFEh2%%1zobJah#RzzD%KQ_;#j(K^pzTH~6N z)+QHTUb_(McH3xH3B5azB1E&wPL+&H*t@~-SPJdn# z6FRF9m7^$;xY%671{u!{;Son?bA*~asZu&oEdw3_RJkgf@pEX3jW9Tx31l4p(qR=; zvN*RAx_8i5a~>e~fsdOW=4Zh(**jGEXsa?&6z+NQ;Jg;yUYKC$tRYm59{z(q$fPPO zffUsIvVP{GXkDJ7Rl)9e%9ygbeSH8zgp;Jvt5*k65bB&U_%^UJv{;M*YJAKBMG~GS zK#^?rVu~O#G?cM+$=He6cAwY#0i5KA`25MaBb$(KU2jXynvHgBv525ge7ZSve9F$| zzqiK$%#v_P!QOjDw?7c%_*{xc;DM=8xYnxUPmqhv)IyL1nge873pO`wx#M@FH}9~U zMN(74&c{n{CY-Rhd#@t%sih#jVv^fLXEq>wK%i}<&nnau`f%|~5Iyde9O^as zYhK_-{U@ z1y|rEwDG(2dZg1>=!%8?~){XE>p_{I-2+{`tt4l51(6f&!}m2TaYFLRR_ymDr; zzmyTQ@uU0p)3>fZ*{9NfZ{@N1X@S7-*jWSH3hci13~zE_e;RM>=!5r#F%ExdGcW7F z{NNR5?H}}pFLv2KC_P_RGj_E7evEjtGA=LFB7imFbID_ubn^9jzst{Bn239%0e!-= zCE%>Rz@qq$!fbDy!JV@khS?wZ*teSV6~JYcL73#bw2bBGb8+TOUP1mW0qte>?DmO= zmens^YkdB+yRk40n`#eVjC@KoxOa2roI=xVH<+oKaAAS|Uo&FVrys3cf9)rm7grzj zwe0OH4C*rD*LR$Xc@e%aW6cR${mX6Zm3vbAR{Zt*TlLfIOMm@PHTc%IE$vy({N0h! z*Wd2+NliW^0yZzUyr}T>IP!MAgTZfMgFS{pgYQ4)JgFxxbUFPw_IJ|Y`vvRU@Be!5 z=G|Gcdk-R(>Q`l?Jri30P)ycc%j*=rhId`+7ke+^%Men=j# zW7a>ms(Se=Npgfze(b|L^5yy4A9g?!9NqZ&2S4nBp#eJfs3jutQ`~=i<7e3&s#>!c z855R8UDI~CWW8SNQ^VmlVyxG~fgF3k(s1bK}G3?z?pzYh*N5KSs*W38lwA=PeB@ZTtOJfvAG;y*W^j zTY1K9lsYu|y7JstLmGp6IFk%J57CwIb(Wkv7@00b0m&=Uy-qFw5jOyuI{i_X-a49Ox=k^ zBrzhaT0B|xz~ehxXVs>$u|-Hi72|raLXk(itF<_%Wk+}FJ~|^;j6~K_7~*t`9ydp@R+=bg4MxX^xbe_;V$k6RI_}k$xnxc&z^0KU)Vfl zzrWNe>(CWse9`k(rPCpQZmYOGt1%TGp4##bXH166xm4Rx`JVgAJCOmCyR%u#70Xp2;-GONBtB;z z49dWmL70%@7flqR%t50S5RJ>#&cDtjgq5UtLRu!zk z<=z^SD<;6SesV_m@2^Z_+VtOSjy9rE-uE(!fK1HjcJgt2Rea{SC$TMRMMf^NlykD{~dgm97W{0vdyK)}5%aySHY`+w9t?{Atc^%=0_HHSGT%+6z?^738x~-=wDWcMe{)1{ zuhpr%3p1DRs4EZhmQ#g~SV@DBYS=I$wc*Szs|{(~&M2*SJFj^ktP=1Q9YK4S>3Eph z8cM`XD$kFmhwgmSed;_EQlr2bSe)#1*RpM;EJyRw0w_@DS$RADjlrcmQlGoS6;l4t ze(wQr^~NEVgN_BPV4m-5&JQo#!@1Vu;igbjj8`u6A@BN+w>Ab$oj;a8+tXqB`6n}U z93|t;;d$Nj>aydEqc}G5s+x)fZ(hY3E~=jLwhysLneV2KD9vAP>fHY6#|0(YC42>G ztKPw_7{5&u3}ItOepa{}Wm|+Aeu*sSEgRoywtSA^CX1nsfg!alPOx3C?M8?dGTYyw z!#ZZtp*PEv^XrlzXPseeN`h$Ln@Y8J9J_b#__gs8((1cLS5f5@(eF4I3JJwM7`}pF zJ20x@NAl;5Cu#0wf=W$2XX4NK=_?L!?|w_-@$SZn;>UdeF?gzWe0VsQsZi;nJ8w#w z3d=Ga^5l-78$-OO>`u0Q3OiN#l>P>kG55?>Aa8)IsYAP1wG&5GE| z*8~cs0Ecxekz|z1?7DL4dxu{l??)g|Z2a{~E1jEhhl|Cr#9dabk3x26N#IkOxP__G7%0_s^+O1MA78DJRtf8_ zIMq~yyr=irODM4<>HE(mNH8am(TxQ7cAvZ|9g4csqPunNu7I3aX4~0pMlX*)*T*Hd zZl2^OgMeilJ}yB%flN`T*tpfWMnWU%l=JQr4+0Y+%Un6paPlUKqGt;eCf=xZPXzcu z$@S1#3r)O7-aA$Icvi~uDocxsizZmUP2}CmN&!b;nMJ!_V`c!!uT3nC>ZzUWMy-J< zz^B(WKroq3_==k(#6im>u!%+Q)|7rId>D3+@LODQQBdRLA$txYIxvA^7 zm{!{iS!Md{dQ)&z6bKRmd)f5|eJb>qJzM+LqS?T~8B$nU$Ew7QP)xS4sPSEh$v%_S zOHM@V8O%!YJSmnye!pNk?mx7#;mBV-yKD^MqF&$)i3rjPQqvZi?6*Ilzw1P#7-~)H zTXYuO31CqLi93dBYp$2NM9%kzcg`Bl;O~@lU97Hd?%B6;t&e?qioT`M)zGtv`<+hM z-g#=Xa;bDEZU(8ss-_oeI1~LNLr-YX1+Zbj% z^@6KEq}<(VztUMH`T$Qw?eB233zpVj?LPJPx1~$Xg5-@up`QfXwmT$aLKaLsPxT=L zi$J8esY{T+KXP`2mcB*w@E=!x9f6i-5+bZBAWB0%(=4{01Gf(}?N1?qmcxNP_y z10Kl?T{b$>*I@^NVMMVsDKP+I*@-JqD(Pd9N*VoP`BytBJRs3~^6Zf=%A_J>R-p|48Z>%4LON@fV{i$D5VsS{W z-MrXL{9vB3VfS{uUGc`oqK-_Fti{v z*`{j?SGd@*dn1X4-pXSR{=w%;k8f%CzWB1v=+bphWA-|yHlO+Ri2C-5`6CH^&(wnU zD=}h}S`)N7Y;W`8_WxvFO3~yVU1_$6X!?3VYkS9GU)`jI^RYmSr0mdL&%G98>&(}2 z;YIcK@*kOPt-7^p$@Yl5%cI`=`8_|E@v-+=s{h*s@g^(6*lbQp^O@E+)*3B?pF^29Pcn!) zBNlVFJH&i)zH`baKVfQhj%7y!YmQiA;!nmp4imnRGVWYWhG#gzZ@p6xbab+Z%4ieTJLEuFA(oqwIVbrFC#)4(cp78 zmL6z2%h(oyiTIUL|?d8+N|0AIC&=umx2>6s7_^DTe15 ze(!GYF|hjn;3#wwRVA_MNHlfl4<@Hl{kIZ9r*8gvyg|8p)$F#>?Q1S%ZIm?eq8Hm| zxc%ql({*z%jvcMr8lNZZrGKoTopla?*$hcm&k#|Zgo1VPuk*RKaK`Yq} zo_x+}PMEuWMTtfx3seL7d=v!X0dlIs=EIgl7EpQXQBQ7Uy2|C}tu8uHb^5xQ_M$gy zW*~Bfw=Z7P)w!`5R+53fTI!z(VZ5=UxcZj8zu1l1xw;hVyJ59*!K8gahVM!XF=KXH za*M5no6Xy`nt#JKLy;nN>e-D|SN?=mWg;WniG@mGz-2$*HI}{aO&5`y3S_i5KdOgu!ofo=HSHpIlil6E}&Y6v~l?Z#V`ul!DiPzb?)hm z5KV@a%sTKukajI_YRwL9%P&8#c&Gb%WoXW`c^9=7yKMmS0*+dYUkFf zK&>P+QMoBTFXm52@h->aL#C_KU=CxJux4Dm?76?bA=~hYqxtRVt=~@0=T_n#?~yzF z0!^=4AVxS)&0&t@l~aGx^XG=p^?DCwHgqzk_O-4)k>;pBs?~`^v^VCp`c!tr$ton} zOzLY29qK_!7NQ9icX95$@C}(2eCS$bWUV`3R#y1!RM)TnN$USmdvceF+f}#K?JYcB z%Z?2m3=-x(bW{X$dxPg5fTuiI&p^cHk{P-wR@M_&u5JC{_+&-Awj3K3 zi|>537$^OP2?>U;2vmW!(ZLn50&>>W`lLFzBkJ3x=wF?=&c0svZHwb9ef^%|68p!g zU7Kurn`4dd$jGwPVVB@Q|8bZeKoDeY_4c1a4R*&s`kUv5^f0f+h73XYzPd*nip%U@ zZ`hSL__6)envM?Nk`%%CXqD0r*2`cx6Gz8Y)%}oL!7TFGhvsR039fJ%z1N~8#O$EY z9au-<2)?hO^@HzE>jerVs^WMA(imL5S&;(Xq~LE2mAU<6#%^5S0TKvcbU zCqV35g#=5>4R>xf$k>r)Xn%laWTZ>ooJc)ao>^GVk6;79`xd@gB!GE0d8~-9j(Pe4 z_iXQ7IFj496HEx}76aLAKpml)@`mdL?}F-@)0&@YH5=GJTU})qb2w!;u7?bjwWRak zZfwfvKaQz@EJuMyCGMofys7CawR9}1=}$5;GF}Rix|T-hF1?A0t_Or`c>KKDD2rr| z%j;L#%#SF>K3an}>g>OgWMDD`WdSra>gbWY(maEG%?7h{(seLSttM~2)3V^iVO5A% z(bsW>EV4z<*xV`Ry3efX{brrhzEQSDRZ$WA@{L*`m$&R3@R{}0;@ceETQTRa>$jhe z+Fj|W)Q;f&DyS|ft!y(h4yt`-3GYMibU8M)RnKqMSCo72z8B_SgmYVV z)CdKkt_}sW;y-5A%PdkL%Kp<&H+CD^L;Tlj)z#c`!?n=~q1xJp&7q~q?p6e2?4*{7 zk9}Kfjedzm3Oj*ZdCT461uJs5#|iyQHH{6SG0mpy?$7Hs|IuKUSej)PlRPw0B)(ei z&UEoD0HyP7J=V^4>p6EBhTEl{+AGZa{n835rST8S9PBS$JhAt@d+|tD&7V&zvs32B z1ApRgoog1!?v}-&_JtJB3)st`CfbE#TIOF|p-0_nv`cwF)g;zI#{Z6( zal~AaesA4?ZQqko9%0&6TwUAS!JU3EV;dhr-?enpfX8xbHuvSEs9*lsLCp=_J$Qja&T3hQ}9&Zrn$1;+|WLK?ibB zFPd3P5Fw2_0-Ss5?)2`e?7mZc4daSi9vA+yW>`Etw7%OfkvtOurar1SsK{FN!N*)$ zt*=XCyysF_Zr7i%Eg4E!-~CU&t?M3Vl)>cV6ZIPTwNxf(77AqX2(A~pdZ)?H_Q{t# z+=hB#@ZsU{>Z!&oyi&YoZvPDTuH{iXf;>w)ITLRthQ1;QGO?eQ`wswd$V9?Pr46ya zbd_IJ)qE{0EBi?n>azRgI`?HWu9-Tgw>6Z9+P+?b2pR=_sKosr0K-NX9Nukm%1-)ohsM=P`2N#>K4-&igN{~;K3Ug&p|=#O$2cM7HIAXNkpw@R(f-R zNh-ts!;RfKrYG(m)SR_5ZN1>6Tv4r3`{pIj5o@vlr~m+$1qZ(K@oV_dtmosnIAGW1 z=J{=&+`_I*QOQF2g}G2iCFl8Ie2boHI6om0fb{nRD26e_X^Fxb+kIwz^Lt7KQWy@= zypD``{tSoZ!jh%;l27#y_BI=AvQTQ5ZRt^oMT+nn=>Rp~qlWtx$zz2s8@4RXuQ7|v zKlX4|M4nc-=cyg1H*HC-@G0ZAjToL?`^HUPb90z*)a$DpqC78wU?shF;>}1!%g&!1 z%|g}jhQA&!>pUKH^kdJ#b2l;8mpCA=m~+iv<+J&d)m%+ruPqT%LIQ{yy+6RmgNb>6|uqw2^Tw=V~yheQ-Lm})LSMg$PGn2=z5XPKnk z6kDgnKJ_B|njlvq7T~{KUe+w=3%yoFRT{X2ru3wuzA#=lX;NO^3@C8+89So1pv-r8 z;vc{ozP@jj{Vk6OW~fekLw4{lx|dxy11P-`DZd7)A1oL)@$Zb+2`meXN!BwmQwBTL zVkoKjp3hKn_I;Q>E3_G(JZ3$O{|HJ-VrBW*Yl-VZDUaIW{IQt=<*iTxS1(EBeQ`aZs2Gl zZ*8)@gT;ysLX)zu&v!DoFOCk{>zZH?wXeCj%QjUP#yu%!27>TAX(7+J=(woHxJ7qc z@=-S)p<8NrIF*Zq&N10PpyMp9TeKTmij(s0#mwZ{{hOd4fA^!*2TN%Vb+UatVJz3r z{PEAAu!yUWG@!oTweU7{9i@f5IBz;?AYku*oDIsrR z&4G)zD}Fu7suW+I+HmMBE4`wrdFa@^?9NE@QK)6`s-FCF|E-S8hIv-&V#o8z6IS|5 zQXcqQ+8<0Aj98dmZtT#8byB<|gK-ufAhezgNgpy=R4J5xx;$~|7%ooLGgPY3JB6~SSvr>IZXf8LG@4_WG$L{Q zd%8!ftk8K))jEuPOnP&sDV2%wM2bQPWX@ueE{kBQD z+4Ah=55{iG_xv_JdEK%u#IZ9htZ<`0rmq3FQO76w>S|-dy!YGY$Api9l=u(E;1F@f z0&48r3qH~q`Wjw6D{@S zTUbBLKn_1FOG|Di1?KvcLIEGiH{4l7WV)!Bt<2D4if#r?6 z&v1D@#cGFiX|B$B*;>l)#mqNu8z>AT1lFe$I&&pwwfCZcc-)r%=?oJa3?GO4@H({b zq5w@uZp(@7et6d}eM$I5=jv!YA?X%S+{96q{Cp)A=m+>X>l)@zCV8lb*cwxZpKQ#* zIJE7hMcD+iVrm}5XUiIVDB)~wXNcB9sel0Y`G64X$nB-143W=PwIZzhhFe{$$}1txHq)z|U37uc(7hdEH zc1JPIH^>T%9<)$0M4gc+tRO|vxb#Q94ssfTyK zZ!&hm+htuIBz^N?!JWqKTwRBdPQ6TukyY97(`6U#9dJd+V^E{rPIAw6kp6K7_@Lh-aUB>|1KujGO`>Bg)sw*d5tA?(8+_s4SwL)u{Vv}j9e zRI-c$I8%ukUi#WIp+1nQ;cYgm4;}>EwX@iFV0WJ!KaQ8{KjU_S{!{~QsV-jE7}cYz z(D>w1TSIBYJK}s7!s7JLZ<*1pT~gqZq`Y`eW!d#qiLo|#N&fGzPo1M7M+&{&Qzt%Mm*?}&r*qT6%M>qFk|MQ{-$VV76z|YOJPd)x#~IxT z0OQTedP^N_Y0`6Spx3?!_pH2fh12xNCCV#BdH0-j;;w8#bin(`O0gzd)xn7A&xzI8* zi8BdH8Zli+SlOhs7SDXZK^&a;sR?6QMBB*9OhIZlEnS#fh?Jyo<;nS^8?EPrMfP44 zk9>gBKGjRk09Kx|^EzOpFbWTS7cTqE&dRr!-EMj%ujr3qM;`x!vSpRU?WnTMB)n*uQYpBT1pm;!BZ+dDkaGg_xz@aRk*EZSZz7x#yU&y^Mj6JW}bA z%!Fo2%N>hd*g`(SA*mC3%u1&%$Nsq8w{vBa3Wr~uPQ6jLUwrb2-KdOisALm#zAokN zUaiWO1}=fInD8gr_4dJ_Td}l64le#snwLRY-3<%(6=vNH@leqUC)4Y>_?`_-Wa-Gw z>}EAWl!EHmk9~`^G9l^RdV7OzLJJ1GZ65HyTuL3b>+l*2BN*Zzh9h+wqg9PP%m$^Y z1B_Iu>I^cRJ3&q?bPHQPL|H1kQfW4@)(}W`J2yZdzG6LOhS~Bq zjDkfB;B_5vW`CT|elJPPbUQ7MHd!AKQ=O@V-eR@R>`$8x)E3{H_Smp(DNJ%~D{jy$ zi-$^{FaF3xZU1@9I4{XMt9(vre4`0}82A>MT)yk-j@);DJaGmN+5JW~Li!5o@QT*N zGAwvkzv$ISYN1(ThSf`ZL)5Pxu(yp#mrgVsd}80zGp_LdkgpeKK{;R{!kO2u1*lcB*TxJGQGHR~L}8bUDx4|aN#J*HPITe_ z#8XpP2KK9oLW99R@UqIr=6Si;H0Hd3dxiVe$jxU_rs??MnKPkyj*W^Oz%hRi2O}e= zb%dx{K7kYS)rG>x5c6^vQsjpYiNl=*hgx0nQ7N0Xf$Ga^9gC2BI8r!g|p$W4Xjim~y`O(X0@$%an>9 zDXYmMOW(}KQ`;!%7eSUmTDJTVR@NrmhKW~GAv1e5(y<@zFPyu)F8613DC0Ne_tx|F; z;!i#w!?<@;OsjlDX{pvWu^q$b=MJt4cnCn0jpH3=CUQM8AdV$Ef9E~R{>ogU#FqT- zT#($eqsw{E)+@Pw9Z6NeDemd9 zAjj6+Q#46xCudM8z@4fw8L^JO+Y9%l3WN8%LUeMdfK5CFp~;-3691D)zfkeBtk~lHnmCkoBzlv#~(1x*CEx zp_KPn`<|`$UF!Ks$1b=zW^{Li04zG@?ab1XGjIe0F%m@pqI%AoQ&KaX(r$Ih8kxYF zy7UGja|#M>u;`-k0#9%Xrt#1oO+$bj1WQ@uxj{()#}Ty|(1&?nglOAXZ>x|wxdWvV zfo%K>vkghK`(K^)vV}IR^me$t0q?E(`m*K7;1E*JCgR&UE-3U#JIf8<*chj$ndqc^ z>2O1UDwdVUhDFQ-64H0dr95SlSeaAEID=|rw%p!cKfIfpb+(9@+h+o8Oy@lg zA^OW{K(C0a!-MRImyN1o(ek|GCG&$3Y6S;VOf;ANj0RC|nef0CW#oei2Xc^7VQ|mg z{86g#=~q$c*;fCOgExMy3beSV?r2zdbT@oJ?(~Y`j%}a5X>-#h~zY1%vCKl zjmUsZ@a#ip6oA*zhuf}2W)so|G{uAtPJ-N}dx&Fd7Lwm((OX^GTg<^$(3wV+O$E0& zWYF735iH)~3;BroM11I+v&|pSw3dZW(JQr!H6>i5!8wFL2z`0Fq&ZY*0@6K z3*syrMA=+6xCs4pLujcrtcuvR|B6@G>R{l?WOTHxH4Hu~Ra;=c z5%Lj#a;0KGOG#{>pAI8;7M^{?MbAPEbteuKrN~F=EY+&QYsL3SE01LRs5a*K{@g%) z36_?DUblt8@p^|90G;F7;O^;W_Oow0|2RA0Eq`@Kvq#ilw4;gqM;FC9QruT7b~vt< z=x zI!x*%w8J6jY}MSIldgz!vyoei>blVr>M0#Jt=;aKaTI$eQ_kr1FSTR7cgOu*s@u41 z6*xi^n@pECOFbN&2dhaO5S@6MDk0|b@mdgJS*g%)M=uDu&FN(tNnpg}aoXO?zlyoO z%KwPA8Y+{yEw-F@GNn#T1TxVckc{kCN&cl87Fy?D%Y0SK{#ft_+y1ofm#a}>37Q-h zHrHodDmdH=sTWuRCuae6;JB*_ft1Z&Sk62CNQd3lu*TrK5bAIrbl%z!2BtgC5DVS) zoFnxlUnxlv7Ox~vVgwlaQo~mio3y!IrRm3vnYR1g4-P|wPIEq391_#YF_uyqUT3Td z!cPi#qZN^Aw{(3c+)sv)1X8gl122}W>yFC$Ve$}aiYu}?`LdQ%a}G(*NZK_&T2Kpay8X{96HjaU%1!jy|RVh zTl?qJ#vo8@1qho7xcUtgTApxdUwBFhPlC_1UwXETIRNgp$!IZo@jW2UjS&Aco3-`K z-ac(ETZ}^laF=^!pIgc;<2($*+l|&Rdu_9b@h2K^pu#?_hYSZ2-=Iq_3TZBA!%5VH^* zzU$tGDsMSo!NYpXKo&ZzA;WVqV|^S9(-Q)mrB}2>Kvcn*zV9@BXa(^idvAg2RTddX zhziv&Ooi&KdFxOW&yjbB_4U)&Ye;iltAndNWZl_)j4)q_p?iFh_?~7*S9L_48(?xbopthoBbJ}FvKH)zUfg&Y|{7*afr3_Qn%;C zsp*u7+Zt-!`h|W_I_yY})X-wd5Bo?OMr;z(J~BYzuLA7gWrtMeAO&m##cJ$Bg9`%2 zUN&f4X)!hS8RD4Ei?kdudoj?g0;(DG{514j;da6I5?8ljq7j@3Soo`9vx+plibRD$ zP@|G!RJ0|ltsK-Yv_UOyT=5s6%^9ZyY>#}bs2&SeIzCe4SDi$S$qAgcwA3VQjDye& zFv55h^slyh4RYc+AEGVQWsC#Ia@wO+oku`Z__JvzOOSQtm&1U6s6|_93fr-|DCTtA zFb6jX*ix3wfnhKe_l9j_wOoa;5rYROAokr&J{|3^U1M=||8ky9A*%;NXXP<~n;7$cpwhaNadMelmh&uaWR-A-q9x|d43YIZA) zl+$i4d}WV-lxr8qP2e9tfH}M>=po$KVhC`tnKB3CK$5wgZ{KlEix9BK^pz@p3hzpL zH0iD6uk%SDa~%uDJH`M42{2018Arrg4GIJ(aQbd-qUuat1ly6SE_(K+3hkv&T@_W0 zv)N_GOLd#qs)y|1?L>0`Wp(w7Hh};6?CfPkjK^;9d#Ks6;Lu;41)k&y=fV+}>{xWAAOrd4i(4$Va<4oGDn90I=R5|U+f;#~SvY$Nd}4yyX~ytTx?AA}3( z2^2C=#2cqDZSP+b%`OMekb_KgmLI`7n-t1-MVV?m5A)y%KqdBOw^J;k#dG3wJJ3z8 z5&^x#Q}G6xR%vP)>|Kx(2VqHT^6_D=-dLsqBptIA_3E2_fmZ?B^bPwr-GP>LQsQq*EcWi-iSJyGIdup^fR=BwJER> zMF;?j0D_s44QYfoj^w^O2+LQ^!EFj>hT6Jf+cT!y`JnlkH9CI|Vr$DH#}Iy%%|2}t zU`{N_7X}Hf%U727A%_COa2$Smu&m`=XD()!*w3$VL6H@113dDL)Ii4Y3gf|rF0XhQ zofQ)(W>kuXDgDc@T0uivUIb>n87K6U;{FB_L8ev;i9L@r7UD`&uu^1HlqWB z5sbX2oO?R#6rWL0X^~jk9y^mM`92&~^X!JAs< zptT9qQbR?Zjn}gV^@+er!|XlH5Ni{q)JcECim|#@Zuo&PR3PY11T~j5SW_+y)1;8l zKfsz!jSJW->CpE9tPl5+Sgat$b7ERk?H%67!EtSYZO3%P$!NFZO2NfG3zClv~`Y8QV(o1VS z=){?B>O6S&y^NAMe>O2+X3w{{^DjDQC`%v65A3jDQ|Cwi!j$u*V(`nNX`DQQNTloE zJJ!#?Y;ly1XZUK>g%1yL%u#`r%>2|CO41;c7bbEd2!{EdU28LR(1RjNYIU6@c?4JV zA2bdXfMV+dq^xl$U(lkD6r=AqXQsK)k-MEPi?bw2y;> zqdV4fRM8;z$?jeT!je7wdfojME&Z(t$s?Z8Ll_TWpdZbuHM-rh|9y|LDXELo6Iq!) z9g+co(MA06m@;|-;|8idXj(c&7^di_ewfb-)9~W1tee!DrENFZ0?1EA8v+4CZUN45 z+IU{jv|dSzd@EvN@Gdun)i>eF zArLo5rHhM$b$1Ta$s5nYgJ`y~+M#}BU8t3EZ1cP@Mrf74P(DE&qVTg`jz*SsnBDrL zmp(Gk80u@h@7CicW&OxY(NCY)A?^fTM)%=kbqDw~5Awl(i$L?Ri#SQO(<~ws21>uwx&VCi(E*N^7FbcU}q)4okUX{`_#*#5WI20`0-t z)@+Pamq|$Ck{(g4 zo4yFE%N1hzXaknAqTGaOXDr{{qNVJ(+zdWrD}>^XY0oBbwK)cN4kM{_p`KYwC9<({ zy$o}pm#%##gCGlGjuLXEY=pZ5rHvhe-Azk$QtCxzbZOqYvTi1iF4l=#avov&M&u%c zOLvc#@4J0BK2?lg0N{nG-~8Ai9tPXSb5)*Wkpn0(CsJcWcv6t{qpY&QmI`+60;b}H zOP^_Tc~3=XSM&jNcBo7t@yVf_11(7c$f31n>DgB|?^s$)s2|Zyiu`E9Wz46z7U#YU ztoT@a$$QO40OSzg!3Ma+xFhf_qc%;TGH_C*K+IE9x9@DTQG%}ND=VNox<-f^c zUGe%&3f}Q)c}{>RO#f_yWLkf)Y?v3>EM_;7&v1K|70z}D70fRK{8hh7dE!ZCPRu4N zkCmnLiMUZ0AG|bwHh4W6`QmEB?^~4X8-8OBvA(n1p z9w}274J#-L?}~~op+#9`*Oib`HJ8{fpLaaUtN9ju)|gPeh!0PxECR;&w|Kpfh zF=`9p*1+k()%^9G{8YDmX6xvj>Z)u`tW2@u!P17N#WTjJu8e_=nS|>KkiyJI*QBa} zpb62`$9l@t+&~MV;dz)B`@s_>t+Ew^#v|jY^nfQ@L6wPg`K4JIIxK^qF`G%8`dx*` z>l-_1XMz$k(_MJMiid7Iot8yn3tkqJSb?jYG^zron?U-ksP~lKLgki{vnoM}2Kic+ zRdLW5Y={*c7hpo(vft?U?5#DgGuu5?j-}B1kr5qNuf}Zf=)$Oso}t`}y$2u`9rwF1 z6}oBH$YpIz54Guy!#7OY7z#88|Do|sp;=cfAJNSmH{jrw2Brv@{c2%uf3h8y6CNdu z%fB~N#o(Qbv*}Opb-}(7tAV$AaugibZ(3(R3nG)lZDC$3okDAZEf4qLY**jai1L{= zVkQwQ8^4>&c&tmueNa6VnyXv2M4IDmc3&Es-~Z-G%#32PS2jJX*UUqch@YuoH2cc~ z?f7Yv4}q#wG$w+qt2Z>xjv-C8G6pFah1Qmayx;V5=D~236mMTT(Np^7JOisn+vUr!( z!XQ;GWDnEW7)xq9yk*cw4Poz*?Or%|w&SGw4J18WhoBLKk15@Q3~A{t_Xr~pJPs6a zJx-L-18?bs5=vkh9(r31V3K;TOS>A{l?oL@p4>gv%n!t zX%t^7cqdV8EB8mq0~k2C84jf;0Am&Tz)NK0-+8ap`8bq_a&5`05*czNa^@pI1->++ z>3r?mc|{c2gbs`9kNq75i+)%Ki>W9GSm<4C-WhrN{Z48&*qYe?a!gV#vX^(}cH_65 zDp6D7t2f_z+IzlvVr&$ZH ze$@#$TVpc#NYC%B2`^?V#J)K_BXoKwMYB>*L%+0rOQqD(1Z(8S_d3X1{%f742 z-IT;`BwZ_eL`G*h>!e&x3VWt|dQ<2^%1GbnUw5Tti@TVxnq7N+ERrSUCAsYw?o*1i zzIX3CneAYWTk*XNlqY&_7-DhdroaA{5(l+cz9n^SO5lv* zckqC({?Pr-haf50DgELlh`bX{(+9Y%!hB&s3jhZeAivhOoLmLQuts}*z0JDI;FhAv-*dMyEDG!50!;@K)|}o_?X{FMAIJrs4FTJ?SbVDndBJ?CWu~Q; zZIvW+eZq%bIuC9mrnx{dzXLunGsGcXegmwmD@a{5E{M$Wq^09MRSnoZ6N;&4RAYr; zlxIcDlUZUO*7Q~tDxD&@Pr+R2I)72)E4vJ$IY*c|J&k zXrJAbjq);D*scHU?{B?hrDZ!cch<_eMqX*l;V-qUN=}RI)6nJ$IkWr??_i-nIgp15 z24<5zn+mUIWVu|qcm~qr^J=8UXhbhzC7dykP$MLZ)^%3KGgq0ml!WEMUiz^5p1w&R z(+@gHslW?Y!E#B7+x5C0s{1}Q-Ejv$vTygkD-g!A~S0 z=}g6YEbAi_F(=s+WLx;^IZ=x!#{A)`wOLOqsmPt>)d z#jBqwLo7AqM*~$|qwQDp7`;<`f1{(ni@Rq&z_bTVyi#v)>wp(|lm+2oZnX^^z5>O2PuJaoZ+gcDVF5k3~Xc=Kqo$D+-U9S;X+K8fe+ zQUvzq@ou==F)v(?MX_afk}j7&RDyg*&{C?2{MqT>LcrWh z4UX8)AWusnGU1BOXnS6cR4oi2{QG<7HZlDI2+XgGj8;s$I^Fn@;p;mN5dag>dv}YZ z%hlwk(^vVMef8ay*)oUQ!+P*;{&Rs(Ow=>Ima3w7hABBh6f5)`00wk@^O%mp%X7}} z>Blt@2l}9C6f_u_@~Z~ubS|Kc%{9_+ZQHe{jy*b5GwM1X-1DwLs*A7*whWqWaTD=a z%5Xp9!tw#+gZ#E9nPPhS!GUIJou8)U*AKn>bn)wEIcoRt3o5@hV zGL=S^G2hce&Gow~r;4_cG|s9gVjX2B45yn$y^S|V#YkREYs#{{Kmdt`by)B3Dfi0r zWL%SUxem+JI}y&7;D!lQ_#a0?VC2A$Q~p82eWnk5!B*qzy`OQZ>HGY=VO5R4esS~v zCh49=Wry{04s3xir#|WQ=#oAr~out{ZtR!us;=Hv=0D z98ww-)H6zxe*RA_rmg)rrg46M>%}N_@BMF2a|N8*{876u&7?C({4IPpg!@)8<|8Q6E!1lEZ z?Y^{zTh2^hyW-r33Auc{wB6|{v zw4$vgsz2;llh{r2iESW}9>>kx@IBo$;q>>nls!Eis=!ci%{9hMO%`(H6FQ_^TYSo&uE3-fBf42bpNySi>p3e$>)Q#eTxrfBX0D)KKeWAFRss$u*c6T z_VbA>4$03J}^Y-E==KMDLGCjU>TIH^M`p5MFZcEDJl7(o8Oi)%{T~5jNCe2!^ zp73E)U2nEtratT1>aH8)wHrZlo-?{ghN^gy%-0a^?qps4Yc+WD1fEt%Y>m)-sI2PN z3H83O%5sTh&B?pR$_p;Fbjtw`KWM8skxLDzIYAaF!x}&8T^C$ViblwF*9WU|{+3V8 zd$%Z+6nk##Z;R`jqiM-g_**lTJ6>pyNR`=dD)tcTe|7zuTl>qS?-wzuPo&L9PPSIvnRUunZ%YZ{kT0A{i-UtXCu<`*_T}=$2rk*(OM+| z2ltO2-c~-RxvnmN3~`Dn`JUnb{_ zeBfj}2p*RlM>9S0uhU90g7e<}Fhw0sFMM*~ov%XsLS6c=4CXlOChbn#w7>OHLe1SD zL+^uq%N8qIPafhC|@~zN!Avzv?tNEf+@ymh!tpwTurPF{g*h4NkmMwC;S<#52!7U;cQ6 zJ{;eWJ+Is1I`MbiDX-+aD-x(fH_Vm-TD^*QNRKz(AO17sW)@PVVEW=vd-o!x5c%67_1Ect6<>?-DmGz&YP;EmQVC&4mWUZB+uH)GRsXw7kjD~ z5_}+dJl?lu!L_yHRyi^Cirm@Azvv+qSDG&cC&>PGa_EoA0EhQN-zoR|(lE3d;=WN)MTv{)@Zq9F_oS1r?)W*Lo%m}Q z(z&MlVe#9=HwBD?xn_kOHbl~j(P82 zZX~ueKiZ`-HS}_~@3^e72k*=g#8)U)KBa(daIr1=fq(WN+~(URN2YgR;PvnCUjFS_ z;l^ykIbVulz-&9lQFjO7MB6|M>q^x<&{~!hS{GGXciL_IBf2_EQjz~KLV4z^)YKn! zC09#hLoOY?`j=jq&or(0w2Ri)#SiwD#gT+S@`2)n#3PBlYldl;ug*Qrss41E>vi*UM3Lg&O80^Vl`{wB>>^Gl zDl(nwpVZ?{ul#uCAouBmzP1;zH>i{ArF?`Sz2}Lr^_3KL^Z2RPyxh(`iprs|qrc5$ z-R{Z<#8iJ7cNd)cuj&!o|9z?ZzfiM(u82R^zhlRA{uc|~&$s{Qh3%y0-B!)8tUjH(6R_y?`0fJNff-`cEjHz4r3cl+-Icvtzy1@5Em zuX-rE)NC&~D;K0b$PA5k0#h-fV4rl_p2l6stDe)}evmJx1zL_?TqClrddI~J3?V)` z52z|*@Uavq%74F@={+Tvj}2u$LC-{6EBgpHX8DH79v{l{n_YV-jTu-+Wh2SP5eORQ z=KQy-&W1Ob$sfJX(T^gHAD39PF)kT_Rl7B-f!^&)F)FOA>fakj;E?ESzXC{z+Q(Kf z?|PWR3dXD}VeG#cr^6-0bI8WBB_(eU$gLcNIs{9Wl_a^y)b6z_)=TdOBB*^03C)fJ zz5>Mhml}TCD59}$VQ$P_?}R51A1e#XgJkd3xv5*Et5SZnwx~H#mjY)09^bGM2)D?s zDdvI8my)8U(LFzn&$dZX=`z)lPu)`u>=SwK)?m;P=mTdwblX+EOe^JrTQVL1p6MDJ zQe!A!$Tg!iMHlplwajSd4%tbrrMVTjbt|YYtqVvDSBR<$&BEZsl^6H*7k;z@#U1d(h6*jk@1-bSZ|^x}>x4BNCB0wEH^el+v1SFGj?d|C@HEipBs_=JqhG}knSEr)fn@_pbv0Hc(hsmTkFuWKBafOT*G+e zcC~O6-pCX?sJEw6=BQ&qhRP|#?q7N)c@b z`ipJf)pko3t%JW!!o5hdtlr_FSWz4Huq+l{1Ps|cK-dzq}TTnfOa-TT142(6FJQD#)FaMyF9LT%1}FovolwdUW!SHfXxAroLG}_O{@!x9xIE)e+iw4@;xw;q@E}XQT zno1d8;>=>%VPWpZPfjY}HDnIR=B4YhWwsk)W9nu)TPT&c>``)97Or?2T2pcqkv5q` za~@Sz^3iA;^~h616PCMT0TL#5xfPUYNyA8#*8*W#0UP&RSzg*8aT0vM=&X@ZuGuzUIi#eLHCCIC$~}1@&%$?+-}zjIkZ=*c8OU@!*L+5mVm`pURYts9A({ z&FLAcf}Kq_EMC>uTW2z5ebU|5(F6(#H8nIelc-!V=FiI|^T_+Akq-lo|40Q^Sm=Z& zC+sF8}uOWpul(cfWBtA7_Gf!TS8i&Gh*6WNtIbysHiwuP! z#k@Kf1}I;%-|f711+Vq#6R#td@SF)s9_==qm`rkiSL&ZGmwXY;mqys`6;#6_mtslY zD(CRMgYl-lFCNfgaOir}MXUafuzs${<34*fsiYdVd(A4iOoKfY0DJbE`6WPbF!{dF3G6NdKl`vaNdj+3eQ z55^d}oVpy%LE_UVg{Oo8!U}mdo#XPmN@R{#It8`N4ik;rc1q4K@l}Y(G{keAtp>bP2&egIh?r%2FS_OevQ9;g(>O9u z^t5u;i!^;8DP7hEk<;uq^+Dc8~YA)KO46tM)$SZO*<_fli%@^Bs( zRKAjeM0`%a$Xg%yp;2o^?jFVKrvjp(R8o+W&syCULTIh(vm8lH@%)yiZkQA`W|+Vb zc3l9GXyvL?U>3@mr%45Koy7tlV9PaQvB*?&cPt9f2DEWZ);b5{)Wz`iDQ^*qFQico zvBYKKvs7W)h4s%3L)hr}RKQb+O>FGfy;(m}>1Ga6bx^trz~*Q$GHf|K1HquCC>TAjo(J+nJj=yoEB)#+9@-RILAHprv+dOu^(M%|i2Rygq4}^s~#D*hN z!@5@18K>al&}duBkJKgBDMU+MOhJ0v5*ZzKq%5mp0|<{RHd_J&&!un+PhCN15D|+* zp@W4HbqDU*<^?n|^oo=`bJ$>_L$h+wQ|RSDV;^qchI*@5WGHLc2j&VU`fSs=s{kf4-9VP;O$m&5FL#nwv(XTRmQCCX$@Mww+1ZX0DuP! z#S8=kX%xK?A24^<`RBsYnjcdOyVA}UR|FHHz`P=w&g6(KI~O3uy#d;|AWxICI~;3= z9DzJXP6MQ+Ib#Nx&xEAKZ0t?!&1u^oAD@~>*}TA|gbBP*0ZzCTdrDY9tWe3Od0R_Q zPv0zRd?$wRUIV{Qg}~q=Pr(75dRym|Y>)sM!Nhr_quPf0GX{axi3dL)>AP|RKYz9i~&8&_yP3ud^?49_q_n+R!LvN%khVk$JU8j~k0R?pE5Z^d%^F7*8U zn&bUb~FNUfm|gYN?uJUs(1y(8yU z5tcH>bB_+gcfqse5#l4QXml5GycLWkp*KEua|=xy^=ZluWKhLxG*qC;&y+`U!F*&I zyx@y&6c$58_mtzn`(zWa=O?TDI^F%X*T~`To80EUp&&tx1>5t zq;=^6L{E7^K`g_4%I=v$s<%^CKVCgs{Ja>HdK=$-X%yi_0b$QM2Ch=jOMx6G=|qVP z+1{&RU*BjZ(j&Vn@PE8D+dYc@<8LwN8}86u($XjXc<8R$tQ`J6 z=F;`v({-PWoSEO3?0X?>_`@tGpX53(lv+2F|XYf#xu?=6Zhx7Ng|g>rMaUNnOFaTo;etFJrn1 zWYAYd)*mN2v!?*RYPPr}w*>v$pq!7~`Tg#y4qD0|+paGbr4A*4WyU|h-Z*8Vhq?#@ zjCTl{{rGU6Pk&l9AqJwhb_TEi7iDt@C+ud^V}ugJ4HEK*=44%2rBz}sk1QqXDn9Y# zWxcCQC7*~x`rgX>*bs_K8CtIqch4$sKJ~jz!c{ruv^`T;ntN=q{fwO*=9fYELm8oeH>mpSfteS6uwKZMV~G1N0pxdH)6zyA>dh9lSl=* zqGsE&R_h8nq|g#_GDX|9M^$F7%F&l$b$FQ)gZ#M=7r0UZe$2Jh&$R>~EN0a0ZbIvN#dJ+DeRh)HI59| zp)3QO(9p9UxilsavHEq1N9NE|vGjq2T6MIZpSr=?)pI3(j*z&t-Z>c~=n?0UyQNRu zoXU<$T8J6w`W$~(g&sv*cJu_E7sQH4D~j#7coRN}k4>TcZ&ZDIJk$Fh|M!$;V`FZ) zBt}?w5>gUFf%V6z5cDZ81$O<#f!<)G^a$ z`~2R%zsK*7-yV-1-L~2F{d&Eguji$)L4{5=2+qn3LI~SqUA7_Zx8^K*fF4K+ch#gb zfK#6Lsl(n|JPMr~dQ9*?gM*}8k`EsbjmvI=RkJ9{mUl?uvn{%+VV;ZY?`M%g4^95_ zwRNIiG4^`NgU&~KA8g3Md6h;MuuM2S-?aG1URC}Z+ke9#fi$dW^1ORuhA(5;_B#y( zKSG@D;&5f30w{M18-3bi3dwNinD=G>SXf@V?o~I|?6Zi@#Ic+fl+f7X9a&p`U){sy z^0(oWBx8#=pY7Jmz8^TxX?`LNl_n`g z9MXeVCyIadd1G7rwN0GstN7soytfp-uDReFZ7vqRh*R3g{Km1(oaBYkm`G~C8Uep! zT-90wSVFz2+ZS$E5^|(L5g;^lC{O2F3XdU?D#N34LUVSV>i*FpM3@ z)?~qn{EX3%1sXn-E>3!HBx;!(ksr~FhL$|su;CJkN+IDcmub&ZB$64`tu*Kwu#7Oc z+F-d3J^JMq)xgEe<)#b$y@nKevk1@lb-zL$K?09bK9mR4NPxcu<~tc_oP?(beT1ne zwm$;G2KYY9FU>Ux7PEHkF*yRXUs+5kPNg zB9;GHLCmYoV~i{y8@=@Pq9c^SNyOf$J%M4Tv}ZkbY;Tv2#v}hm9qD!Hp-YsG-Qyj- z*+4DCi+tf!lNN32=l}$GYl8_6#-?h2X`;d&Ik5bLF>EL2N5GLdG10ag0%@Uryfy`% zJ0?=fmicbgyOW{Ne_U$6fNE`V(;A6wBsjLf9dWyWuk=RHm@$cf2}Yt3qooVnxiWkX zM3NJ`f4_1;Gp@8%dd)KRpqD2L(TH*|nFfB=TLS9))lo$Wo?jPU_V!`kdgFRKJBF$RP)4USzyyhsn(~% z^fCU*O^S-Ba0iQqBP_(EBUOVNXR*T_xPz~>UhG(Bc3j2ljM|cG7F1nO{EXw6ETC{k zVtC_62|y*Fzwll*hTPm>adPEVIj+~cTBBmIJes30{|>Ib$EE_g=};D>hPc&eD`-EQ ziwiF!4$3Y^kkB|bDb0@;we6uvVc6{l*XkbqT?QB9N^1Yu{OZVcVRKd9m3#00fRyN` za1%_W2~v!^yPk9rofx{RsDC_=ib_UcZ)vS zO;F1KXiQM4C%k;YSMmF1&9<)GYAIem8nP5eCKu*j+EsP4$!QaMM*q!Ww4tjRdQ$JD zCo~M2(hT>%JHV3O3w(snl@7vKt;pe=3^yhbECueezT~YAhzA~JB z+O-y%-*v@NsJRt{g||x2wbckYz%eT$`A3G7Th)%AX*ilI`heSR?21lOE&QTL%Dl@YO+r;W|E!u2Okv-Ca zy=lJT$-On~7#-16-Fcr)E)VfM9A3_#&G))VLzb9Xkat9bs8z|ba_wg^QBO0c?jtW7 z?>(I2>z%`YNUVVEd9Q{u*2CRgW4YnXMQJ9^EtrEZGggShp;5+Hsnr@4SEGd}0Cp|% z0CwyyM!nc2@b+z8%DS>b3p1UK1wFhM;0pvSDUHkDUZ&t|V$6naY_v3zE??Zokb7mQ z{9p6sqBPY5)fTCgl#sc_U6Pai8Q96eD&z;sI|aqvuk%*M}Co7psKb*+#f0hvC@)H05FqG3ktSXEwBw*ABF<@}C_!t4U44 zH8O$MA#rv9zW`dkqX}Z3mAN$_s<(auiCF|1G@}5QUM-_gLQ7j4Kg#JWUM_&T(#w=? z=NJT4H8f1a?a3`qxKgDvkcOY{W4!*(i{?e`THXO%eW@B^eh5&)8sSQQ^EAOh%9f_-y#(=bpEt+HBtJZ;t-m-*YzC(L2`R5Y>6+bMh6)b@PZZH8 z$Q=d#RP+#fq@)Y7wJyiY+U}@cSWwscxC9Nmy735;&MWnTy!nAqpb0ojgMJJi(FpX=X`+#@!<6B6+9^L~4!@GQ?-(MWF%NBg5H4NSO|hl9APHI+%?y z$p-09ee-E&g00tMiCY^?f!59`gA4c}I7})PcAg~bp$>hQm5rGsL`sqDM%v|h+pnpTw zO@PvEX^8>Ae0=L;yXP(Csa$W91ka)X?mEI2vFpb8_*v)NnvXShe*p~Oj)cDQql`Tp zkyn@E2;$9&-vf5!qkzvatnJAH66A>}7hgfAxR+yMoks~VW>>b&R5rAA(awqq#Vhx&gJ$aL?7T*%2C^?qj2QWi z!#1zehua10GYa_{XcCD^+y)2Dk(#B?17Ikld=xwy4$Grx0XvQS6gWB|B$=?b-*V+{ z3}6OF0vAOMQXMZLxYM^o4SLMve!J%>Iy$!p4d*FGz0l0nr!cAJUT0Ht17_)nEKMwZJ}%>u)uNo@NQ(p|H5_v^?6Y%vK|Gym!zTz zYf=p|L%ee`J>GHty3R%X@SS??jY%Gxf?KZweoI0jX!}_tW$@+t%_?D;*ZM!x=y;_N z@_LYDiiz2Hg@T+t4m6DrH=gmi;lKlz(8CE4!?_^!m-OfP0oC2n;7J(V#6o8`NSub+ zyqYsc&{ z%tbJ38TQ`g{>Aqjk;b-I_9d+aNpjw67$Uz;3qUJyvPHgCti=f2oG+5Z3{cDgK-^MW ztw--wf4?{364KairP`1e=eSX@N4wR(Sm|6W^!Bztb>q<9odteMZH1E8Jmw=$HBb+S zRqHXekR?mm_g&5(D!Wo>c4_anv8XV#U19C#Kk`uj$^WeYQ<#5)S-$4o{hO<+PE>%# zzPY6?5`QhUmg1zTf)P>JT>FcynTl+5#|6 zYCxx0;WW_s(mQow2~}$i@yo^ktdC{@IFTXwd({yIq`c}T^VzqsV7kkl%S4g8;ZDeF zvzQ-XGp%3aBuWUpIq_ zP>+puXwQ>_T_XfJ_wq5}kbJ|nE)m4)QA)GEQV;61azs2xoYcpQt`V+DoyNkd)JC1- z@Le%}mY;w~1)ES@NQcCoqH&Nx%!7CfhK!qK_no21Zkh!88n0LqN%`ZnxbC!;_0g4M z4Z^7h^`D2jVdNkj2S!Hd{*y?OIE0<4io`~MjLnG}<(Ka0zG~nE2PtTBCZ|Pbg*vMZTQn6&<;NQN+^sZe(9i2c$j|AS;m>Mqp#CZO zXm`CCghEPtbM_ycHM=91h|}1^sr*o8wm#aKJ4%QgCGJx3BO7JP3{iXY80ed_fq>I&#ruyseur6EbN3FrXgj z3u6L|v-9~NCMjf!P|8biQ}C{mfX?^%i7FZql+@aa*me47Cp&kxbN}jMHE|;0A<-E> zyZv@INv?d@IM=mU-FZjwP4(h+_lOu5UI+mI2pgfLFR zb_-XJWHPxZ@q5DnHVJGSA|uYx+dFf87ii1xbNjmZeSHjJSLGORw^2>a(7uCP>*!cK zIL59P{?m~lFe`sCO$g=pKJ1C(xA428#{v8x%oUF<%Aqh2?F~gjF9|?p z;bmWZlSLWwK-q68=%e|A)Lf?ez$zprdS8Y*+QzHBsBgNi>}Bc6TE!S{SeD z;>l>`H7fU=UkqMENn9gU|!fy8FK zKqY~K31FnNwEv`IPAtF`i0yh<2=&yw+IjNHM|vmoU}(FlcA}>ykrf%np|*3Wk9SHJ z8S`%qRQ%UEI{M(@9yqRs)H`Zd0g@&VEl2}C3ifKi%lS(kr4_>usOQfJNu900E&&*k zdZ%)Otn<`aAv`LY028td4D<_)0-R7DNDMa+B(NlNzWE^ll)iHD+(@256H6)YoCEA0 zIU*=zxRV7i@PO%^Ebr~;*1EZJ9bCTURR2ybax`-L9LwLSyt(;{<$Y^ZgPw{Rb7;XR z>iWz7-BA;)y(vZKG90~+nY;Z7eEm7|+lQW67214x*cI~BYG?Z!vEkrLeu2w(|AxV5 zg*ePxkM1RZeaVr+P4U5%@iVo(usad9sq|5hZGy zQ_*FRaw#A*0uu40c5-v6a%!~R;=j~^?RwZNU-CR)skgE^n2>VUB*0X`5SJ(1mvVxP z-S9Z7cAl|tzy%e$*g2{Guns1yJwu@2HhRt+K<5VlBaAEd)VSVQYaOX=g$l4n^B4-JMU`O8=l0)rUrfe zt)7>06b#e2HX>5Ii_WWG@`<^qv|*iK0uS~CKuUVB;GJRR5|w0v)YIr@n19c~3Kc>u zvP-jezMEodY$Qk3l7|Er*8gt0+c~$x!xg|QevKIo-<6TFcppwT7>R^3by?~s!VYfEAe404iD;uMwS8dxeEX*~$j+gs_Rvs@_btgo%;^Q|Mdt=)Sm&i0o zbe-0(?{@SQFma3OGkAQfbzwir%99-rMX+um=@70M?63E>kMMFFYSEx$HJ7}r~ z!#*ay_PK+9_zl{O0=yG%zvXHJ59>AvCx;lRJ*sD#0*R_-m+}m6X{fjxS~%b)N@BTX z(c*<5fd@GCLsM~kA^t3e3{mAB0=cN~V^!ZB;dX`yBB@-%8Tnf}k=83nUNW0|G(Mh` z&QMg~l~5bw*!92<+eU>&h3L_SO;j4+ClLZ`yfL@kjU)k0fImk_Ag}J6D1VIJ<)^j| zhEOw&bxhcr-aNrV2;v_ShRJT%Y<*PM%v z1?vpVm%h#5>ughUqBt{e-GlAf^azg4wE<5k?qLo0tbyVczl8A(j* z3V+1B4$9d7clnVNcVLZ+>27Ko!e*fER%3$?vhSdwkb|_))wcNam(||4ZtziRUQZ|o z&jDj+Hf9>V_v+x2$JVJO0cx#4mG+|m^7DD_$HtXarE#*dK85olA~c2Z%`>-Yw1>@Y zbPh)m`S(n-Qgm&j=N@=(>hET*x*Lj>5viLW_|ftN zpN*&;b^$$}+8?X#87EWhsCj#_UTrP%0lrSG+nTFKhGT7&Xo=UCBCA6dKM-mMRwCGjK@tpm3exXB` zl-rb~;cZ#1+wU7j`0}Dg`kEL%IUp|4m*5si=L}zX)ZEwC+~HFIv_45_W!57S;4VNv z_axErA6_&^Zznb7c>k#UFy2(~oOFHb=S1xwf>{T2w!@E zkJUap9%?1|U2xjGX0d!sO%JL2FpSL$W|(Fv>Sj7~pZz04ZXC7Chg&*n&W3SKqyq<= z2abj#a5bw4z%yIzrS(q(9=(O?%sU+; z3i$8+wd~{-GwBAsHTq9hJ~itL>XgTJFpK`*r)6r?-|jfN9{ul5V}W)L|5#FUT|rd$ z?MaWC+WysQD1rcSYv#?Z4LwmUja#<5I^*(V-fVjQ!ImGN;i5@U9^tCodj84nj#6)v zD&ow7tB^J^AXmm-pz4vIJvzir)KTipXQg-ZzO$lRG345(Ydebn&R_qgNhoT2AQTdv zs$*kz{s^}nyznd@8U{X%73%f8Z@&#x?;WM)Q#`8=>d$y#-tByEL6P<>RN0sr1u=T1 z^~=~45Ep2A9e$+bLdgqH19XX(Y2j|zW}D*!-->uQ5OFPyjjulqzEfxMVm9>110Kch zQan@vn6GwU^4VX0^TOEcf6M=N@K|IRH)>m2Xwb#`IVYIfxFzpf?L*TC^#j)h1^1U) zh(kvMNF6|3Jk+0`{LgCjqC(2xk~?=;2~HpxB=pEAs9)cp_vfG9)pp6;!|5LpslKf4 zmH=)K7m=UB+Gol(vY=p1EQEH012Zbdbx7778Iji0Ek69ag(Q;Nsy5mBQFmh%%jQaD z;bT09SO9k{0`yZ-yVoAAspU(@A`gM!N#6GmiL{&DBf%9gTWRUuIh`hnc~Di zkFA{mToSgAgxE{@u5dPTfBOsB-Sa;<(@o{?wO_iznI;}$ycFWZLr}z0pDjoasB4a^ zbDDh~GD=(|BO0|s*a`Mq54m{Xv^zcRYo7$g%damOyKnc@h_%?Rro+^uY&8CthbKYi z-+Sv*b<${2DhBTZFgv6vM+3{4+L5ssi0c0nn<1EX7uVIQQBL58yL{O|b2NJyPxYVUkM1$mirA^G(5F}2C3=-kRNrI3H- zM8D_G8*01tFL}o})IhW{eILSU!|ce*s@^%Z*;p|)YlSpj0*LQIqbKORL;t}378XjHUz z+*l8?C*gbM89Af^)xPHtZkTkH^krdYvoaD2ENiJBbzmmg-7|GCj?wMLrUsfJt8YmZ zBND;*4(3Gxz+s`SNA7QgP&^e4lFD)iA8jmU<0fVs{w@H6wzfWF9(@sFkh6`Lp7)SDf*xgncpOw^| zBOLB8OQTDB$96)q@3R`Z&Pf{|^28Ye&42fr^WL_up)pn7+QP&ML$IU4k*@!6$G6Sh z5kb7xNcoJgrM`+Ui|2JGIw%%EMeS{c1hSD+N*U>2;x_1=EqMQ@&MlhrM9R=Oe&j$7 zBxq}1U_e)?x^M>oqJeb@8ARvw7c9l5xAVl|V}4M=dlFxs)eIoZJ9hv(Ds4OjL+e*T zUMZp*S1;OvgD9hJq!7vo+vMWG#XSj7(^{v`^-pOZ5q3Beok4tYdrd1%rUDIuj5fy2 zjx1ja`e%NEaqrkmv~8bZmL+3_|Ii9S#gnze-iNq78n^j!Vv##JZu6#M9MmrIgT_f9 zr{|gC%moE0os;QtD>3zyA_s~hLCuu8o12RQ0sX$hdJj9TXW;OoF)@e#NU z+*1t&dkv6D6Oh9iB6jR(J#L|hm+~~^D}faM zk|3ovIHYeMCH&Cgb{K_H5A5mdlcnb;r}&2(VF;^FQFW7-yhJo>= zAWbF0CxZDO%qxXD=+hb$BX8^!jwuI{;hqkFQ`WxHLr}g{n;<$W!#FAv;7>~<)G(I+ zQh_3+djMT@X%DP`!UYb61p6(NIV1lq0Zz{woIr9NjLhUGBsjKrcJVrEzU$YmOhiTG zO`x=qHHi%eHP4s{9TI&ak75-00<*wOtZh}( z0x=TK?!y{~baYOijEmJci01kii(7cvqAwd(?w1-o?Oa#aJsfHo`^W1Cq-*0%~6AW52 zLspRdc{GdG)_l(sZkAcx?vZ)V-3$Fs{`6rBuvr0It;VjNAx6p95015Q%^HS#wGe~W zh?MP^#RK`)a61?-)AAP}L6D3nbMrn=a*{tY6Ls?g$=Et9LHC+Lb}AECtWf5wK^6A( z{!(=yUhBXs&&xHCNSOrTvxp7V_u|O)%dGeNrte{f?*G`e6qD-ha@l>UovZIaajMSt9o#!d@W(<-|Fx+*BEvT{eT%! zkw{0GOT%dlNYW^ekBWR99@P`ZIp@RbkieajfBd*K zWtme}$dgTdHdJJn7fN$-pa++gfI0#7a#BIWE`MZ=}*%FM45{%2L~O+uyoBMK`U zbay*Nk`+))lE37wrVfOJI3ku0r?Y%{Z5-%dS12uwG%RSiLh4&sU?-5|JZS2VjaS8q zK8Hw4UcR=AfX__B)FoWomRspt+2Rk#?)q$8e#)Vg20jF0=Abwc(WZho(|JcO7f6E` zKRXoD7>H>OprUi5qylj84V?x&g@A-2x7K}i9RMR*4F{zKWcZ{2A67tMcj&9&bSM-% zJBR6jBa^$p`xmqcN|~IhoI3SzByaV~LAf%x{_TOhDxn%S66roHq{m5AF|M7kMiiSB ziOO#A%SqgDVE9~iv{Je0YB)m`@D<;Y=CLem$<_p z#B>77z4~!%XDdzq?R;aFxWZN`%Hbq6F+^@|cPFKstS{ilwpAc+dLEze6$0Byr%lC( z+7wt}Zf8HpYDTE~dMmaIc}dD65{aOo9RI(fFzSD8)mcEy?1$;*F!{;uTx78OaB<*h zns$eSNh85k)pw^+r0h|;w1J_!-m@IX3UIN!*32mMQ>TE^Z(!;Xh9a~x{q4Ha*BXWP z@n-+}P$e2AZd@rK&k{}M3DLavM-D5p48*_=T>6}dJ|ff1fv!9g)%SQ-saM`I32hi8wVGf&au zi;A9>ULM%SybxAx;Pz^ZjwvY7xJss$@!mDd2X)%>R{xCO82v;Q>D!>^YoR{z;LvjA z=DSvg$~RZxL%3T5_Yw0dL}^~tCHvDEn_H!CH*~*LL(X+GCyF<;%102l#QWu{o`q|i zk|P}uOL15C#Aiht`o!JQQ(I!MZJP9X&zafBl)al%*HD#sdg%^^pFO?W(OP~5h<9rdw@=Zn}4;>_dxcw0C;ef#6v%d%#{B83hH7{J@%^b) z%mh&3?e8x`TA7SX@%X`C$yS;-JT!uCZn$y4!fXysIxP{GTe)X&3%uJEfMDnm@q^7(VjI9TCvB-R%@_p z-sQ{fR6NxSiW}6OE)s9rKkq2cxZyUMPy6%LWwSC*eHQ z(cA#7Ma702ZIEXCIVf}a!`k1`*98T0xAqMj1j>NQwweMTr!p0@nLwuM-*gD%TWfh- zhxsdY&2#%iYrQoxjo>Sl(&*k-pxc9l*^=S8K-48E(LA1?zo#=iX& zbFKAiM&|(&Ww7M^#x806IAz+#r_dp0Qb(=s-n~COx1aT|!kmVW)b%VfkKYZ~JW7C~ z844H!f{@$d=3(DJvK#72$Okiy^!+?ZIkF$oAebrTsaaEXw%jO9F zon(UMkD~%)#l~Aba*|(qb?Ir|-M7$%%e#0Jzq9W^LA+9)im}LOlo^@}MB|WjI6h69 z!`BQ?#Inwfofw<8`Kap_|96oJMNi-2dGGC*Bj%O>esSwNDoUu?z zoacm$;B*MIND>|o`iO6r6be5jDN+Hw80f-7L&bVVjH!Ed(Tv41FoTD<38En={0aud zWcTO81`gb_E6gB-ra>L9z{=@@to<+WbfC@&Q4jQ5{tZ${rgL;aU>?Mi;7VTNO91F3 zTf$Fp-N`5OQR-kf#MBynv~UO2%He|@LoW$zv_uSP9|T3MldJTgR|6NzUqXk`Y1vV` zK=oR#)OV^0LSnlD_5?T>VMAV_ox!952T>b|)}igU^}v=t98aiu3@PM|w27LG@tIrY zc<>sWKdr?TGo*Ovi{-|>O;~nqe{zR_4kWMQF(9$OJGNSaqRlu+)1GTyB<(^YT zDKG>OLt1@)d^jzc(<7y#lbMa_HHmk55wz}M5{b0vR)c%-1;pm^fE;jz0C=K2aPHEz zwSb=?Ks@megYQxUqylHAHmZIU-`z`H%Y*0}NfKHv|8EKVTmhuafQ|x|K~d4pk!Z}& z!DKKNb^F`V0P<`B2oLH;HkGJtHb$QG#Lx!XGncu(Hz1aQ1e!EP?#kl@!&RjFFih|B zWPVRvKWt$C3Q3~KjT_9;l*?%Gtu%;8lBrC5EjL>t@6!XBBoNENY7RP=f#`n;mRKnT z0p#dSRJ}+)ablutI!8(A{$JtJi$F7x)oNU-uWdw}3B5M2mSwQ07ijXTFF&oY%^=K( zwsJLd5QCB4L$tYX6bO8z$=57iRqB%^w>Xkm08!q~zlUKaGhx0ih=TdbSPTe$1)nZ8 zlem?KZE@3NW1^$~e0_L8uwCCS{grWCcKn|I%|7ZNnbDOw6q-S1ba z4N&Gl<78~Jb8=|Minyvk{-Otd3!?CVlzWzE~2p%=8dVG<=iLV4LMy4)zy`-YIJJXsMUel6_UM+*JJ}H zr=gjQ=&Do?aNK}Hew4+WKRo4aaF7p1r=HpM=XFm(!vq=wDwHQZj;q3E;(7s%PAea^ zg>WOuXp>9QbXkXYuFl4Di+Ua(Hg5Gi$&Ru6wbsJ9_>5^@!JcoLCXiK)9MT>oeR?81 zFj#F%Cz32r<)|dfyTY4=#AG0~E+dp?#++gY=EpR8I~lJvJ8X98b3(y+o$lUWeydl=+5VPM7YVJ1=}?nBx>ECgk` zrx4{6dE=DToD>n&&<%mXDhg+i`e7F~>Rg}42^@o`DN!W^IRIKk_e=#OVn0{91wo+! z9o+1m>}1-C4nI0zauas34pRdKLE||7uMTGf#A`n-uav*jF_2qc2PFLhnxIj1t?rH? z^bjoWVu>K!qLIkgGO5?A7alqPeejM~n{F9N2Ia`RM$DBvj%_0aSFy2wU)DEQ#^V(d z)pP!YD_bd}Ni#BDH`7!2iTI3U1t38P)yx%VGE}#kGcsi9HB*P7*7&!rZb~56Ud}rQ z=oBySXN*+D8Yr1B5n zdUh&V6L2wPixoujOfOS5KhP(7e7V|=3`Qi>$u==IdSpZv_5mYocq96e2DXTeGLlq! zfCoX9c#%?jDAW(|&Lur>FMZ3)TJ+E#JQ+@lM>HmQB!k-38=zy)r{(D2>5DUK8M)Yx_rNN*0%h;KFz%9*5E6W< z_zLEWbAw6vXrKunuZW-LMP;73%otVzl_h7`J}4*WAsY+9hTObTyi%aPl>^e^=HIb* zw|LFkk+B)`!*)#|(suL_!DjnrFw0PDz>JuoAVj*g|0T$|JO1g(T1b{N-YQ&9Q(k<# z8pJPiprOL=D+jlhrIDrejd|v65VP}J1@bC0)^S~${wuUy-b=Ha8TC~Ye9+sGI&+n_ zQhI1)cBEhPn{0VfFIeS~ii*BiV)`BW?H*pMKQuenkX(;rF0u?XPXUU%X#$Y!I3c%* z3reO4pz`1w7>nI7tRlg`B4I>)X^0OSgQz8qZ0@crWypq})%CAI{Auq!91q0|8fg}TwEBEga8YZ6vK z5+7YEakXFc&|izMx`0-OHl5VF*z45MrK98Z?WG+q z|KU7=6mBACD=Y#&^-az15$F~WI?Q}GIVbWkP%bL>z(^SC{g?1GfU!TomX*Q9zop;b0SvI z*rJB-bQL)1coqi>#>6nP8iuQ(hnqTacAwEcG~38Z4SU7A@b1D^d&{RGql(~`@8*h; zy3S5Cke`?4AK4CV0MYPp*N1`1BZ2+!I6WY9O-}c_Pjc#b1?V2Gq@Lb=P+&gnz1v`U zf7yP$0_^&dl5zF8$_AiVnm<8a(_X~!D~>h2XJn;WcEkK}HY5ut$)cgat^o4*o+#Kn zlXd^%N8Rb0yI}r+1Hv73M7(tFIm$FSkcY4aO*{4iK?gqI&QHvu@N{MPd&pX0wWW#k5*nxO}F=!-d)nh4?lGV z)R1-W%g_JjVTGQCr!r*XmWRCAOL&D)D4x?K#+xYBJ%y3qU!%#LrzK2b7{XJvD9id9D1l6mQEE__?Yhhfkg(wSCwn;VI?} zp~VNP5!A)2*M+?UqK5X*UxR|H^%jO*tQIQMo7#u88+2{ABd^1|as%gvdPF$7rAI)A zOj$18w|Pq+6UT`5`D1|8)&eH5b?SU7kHH&uKBe_adEOy)!*g15^m^sEh(uivW+)5Y z&P%Skom>uzAlC*AxkLN3A@~7C4%nh80MSGs`jN~yzOICgS5kX3Qrp;ozFjl9_hv*g zmmOE7w!Wdl>&H;EFNTZIV<;QOp%#*Y@qxc!2=RulESF|LvU0>EX|fZ2-`_fSJWUzj zd2`2N&Fk3xpuDv3e7XS#)e2HDL}fuFfhe3o1O2#8aP*W(hDa2#NKVqXg>GP$6Caa6 zR8`u;G2gKq618Sg#kdPCZ~516M0_q({Hu8zq&oL+w5p3n%Gz*MPI!un*Z??ktt6qh zZz#!X4IO$ylX6}sTJ^qaW@(O8v3U4@{asTfopOjDA)uwpgR-U9nOSm2qo_4N5KvM% zse>QV(j#?u$(JIm>qsB<=425(DXG?d@(GCFnl>wt+iyCQMgJA0x|4f5mNB*{ zjmlPTWisCU6XeUrgV5p}t*569af}QpQ!Z<3SwHpL;*-T&yR!Vj{>Qm(kPTEJ?Qtwk z3cV*19*;^N8Sa2)mAMSjLt3LOM{q2+%oY+5-GoF|zcT#2fv~Ml@b5uUxPnkCh9PR9 z@kARv@=5)WgkT$^hJBm>PB(#;C2D;rl7)5ix`5JNs*v}dmW|S`P*^Hee)^5|viWn9 zkd^u{XQdEO!_+>M{9_iFy08>$6kIVHuu2_p5WzlBO$(IpLm;RC8|l|5R{_eSGFKSR zm=Hjd7i|R?_O2H>xkZv62PQ|0YCW_zZ>@U{%tZQquJumgc)m=q#v`Aq9ayD)(UZCs zX^lj4dk}n4Y3KLgSTvhMJt&X%-n#xf{6 z$7U_nD94VXV`}wn$XJ5EGp-4p+>}1r@Ccm}2t@mjxS^3_#fx8+iIELW&s?P834f{X zd|BxoEG+@`o*J}@$g&0z@cT>}Xtm|;YzKgBjWV^bs;2|ce8Oa6qBWk-sq6P)rM}sD z47uBs+mJP$;TwHXUgjkmSzS)o6tH+NHqs<$|deV8JrQ5yjC1R=tkwL@{#byj=OO{RLd>UkGhT-M)wA*lo9N zf=6ig74B){9HjN=l*a~>S9g3oj}s35+@-01<=SiGZ5y7n)PC5+#|8ee^O<@>b&tle zQ2lj5FR-`%z~F9sN3lw*w9MN56?F@XlJ3?Nd4`ME`qn_U{@}gH`iv1Md7?As_!*xR z^c>@>IQfpthd)Zrpz|pL5%l|UME#|Il)tv;m);@}@5wA=LIG={Q6Y4w~NBvdD5g|&9DQ}vPtZy;bCtrg3WN!{P3 zoafdBWGw|<#{Y6w%U~#$*khm9)oJ3ua_809L$yT=MXeV3U5=*ynw*U_JjLu>trw z#KFzb_cyBPmi+w-IjlEVA(BD@1tgXBLSj{EMq^8BBe5}ThNEDS5geo*?su1SSS^6I zZoHC?yrGSEE^Xt&Pvh31|4XqjN4ma$w&C%Yfn3l{a=(X4Uk8w&Q^RuJ;sz)@Ajv4G z&&&X}b`DwAoM3`-%1?a1CF#;Zuc}7n1sR$(I+{{E5e{NR_p zMz+YTEXa(}Ol;-XGSkr{?S*w(W>rmF?uUuTN%5kLZ&D?R@rJ!?`G`c#($vxgvcb|9 z6x{w$lIPJy6!edbuz=GBjGW{4Px~`#xtzE|F^To}W8bAiwc^ zAEWVAH)1Jhx%^FO=D7%Aa*GK18K|cSmy<-1Py8Kjg>j-;D7<`3Q%P%u-q@-D7OR>( z13EP(DDF!xs*X}dZ@9{EX}KN&DO(#X)KK8u4fe+npB&QKJU8qT+0X|@$DO<=x7qhm z@F)#Qk4`^iRukpBq5ARol`ukNJx@Qt6B`rks%Gsvo8%;#f~Lq-GMby4+Ld>1rG=`V2Pt)Imb{KaqQQnK zI5>m>!yK^UnS_h;O(MiNCpjS`1?Lj{atmTtKwU%4dDH)bbgxEbb?-A5disYOaffEA z!o^TI*!42p8PMnZ;NZ21U!lc!iIvU76&w1m*8pi|Weu8g$RwGmU-fC9v>k92-TQ+HFi*70^HjF`C^Oc9ML7DX z_FmZNVb_NINL*NrxLFQ`bVwP1unYx%v9#RUoDVB91Es)z!_4i9i1s=sizD89zWAp! zniX!ij6xlu(!E1z=>-kFHCa)>@TM#3|5gvZ2e%(D1CIl10%5!n6*i0E^4z}+0G<&# zmmS&1Nerbjgb*Py``Nx@oU5CM|2O#R=zz)NUw7Q|5Th4%q=yM$A~_a67f4 zou{M^;Dbglf0?exJdI@{t3V!5gys$DpvKC4xF?cL$D$~dHFcp8rV3TMmYHA=Kt0oJ>8ue5*%f|Gu$pWIc1kdHt+MI8J`dUoM9Bmc3TH zKPJ|eV<&T)L&$)Gf@chemxdpW>oDty=|GwpTN{rDRxEJ?<>JEJ<$P>Z;2?Tvn@;Kh zW!5m9Gs4dGg_FnMubEao!VDT&6wR1JN-YKgSi8B(CJf5x!ho2_Z){#^8N7@`&UUD%PQ0B&=|pv z9KZ#JfSNq8sPr(xq$XdoFnE@TbJ%MFuM}7L)xX%4lWQT6@%S#K7A;8Cw~*hSF_ys` z8o06j(%Nm|*JTfKVS;rtvq%AxF&MLx`14I;;0GmNxx z5-rD!>TV#7xL~^5VxoyIkE@s*o*MO8U0c&@ zxpnuB|HIgOKsC{|`=hUl^p4ULrGp?4>4KEdJ4jVpjG_{XfKoIHQ3zE96a@rNQ7t*B8a{~Xet3rNanxs`@Zu(_pWo#x~v6jNcP?{naS+^%=7$8)%3kd z5~%1

?P*58@FyT|SMKaub!LhUc@~UO@jFIwKjQpfqg#U?Cgmw5)ng`h{L>qK!^R zi~a6EV@YCjT@Y=-WxmFS#gQPTSz$uGMX%$+xlCrzk~^Yd3_Mq-P851(s9Pz2z9n64 z8F?FOK$r4*E-uVYrX_4!qAfwqD$w+cOV+b`JQh1jlHD9dA}`SiX?1nfE~r+`0u9US9^oFe0$eb*sbou@gam! z84=WZeG*rBk?d(a;Q!qGcsl>f-TtuK142&asFX!%Bw;=5;TrVwgz?&Jnhf&*1SHxZ z$j&)RN~m_oiy0 z>HzcPm+>~r3=xS`9*VJFE`{Sx+QME+-hz=4yn%4p?zOd^GR#lZ^xW#)5ALgBu=r;Q zb_bRLhu@2;1uN7Ayx^|AN4ISU#oTru@_>C$e5K@^Vp>%jx${wwYbrHo${6g&*kAco ze%Ys;3eS8c7>K+oHZ zP_kq)v@`PW><{tCmqcNUD=FQ4o6oa{Ee=SD@$Yon#V?)D!cD30#dW?QqjXr|@;XZT zUmp*P1-U20x6yK%kOo5623Irq%tW;dz&-Q-`gzrzAZGWfZRk{L{gW!`!4&1oPCHE} ze+EXNNqvq3a0FcRx@;GBIYYOA$2)|NX=oo716G3pfzW`T2y3ydN_kJCReQQN;$ohTH19Z6>{NPi^17 zF35pDJ9O9fhCO>Gxd-=Hy@K)O7jX;r^;2)LUJC@mBQ=w^sFb4q2J_1PW><}UH>npD ziCMc4CyG^i1ZM-CK(Y|+*A?%KyW*DwVf#eWRlM9H3~uoA`w*xQE$CPVTHJLI{_ zRpNpToY>^XxXQOj5``C)5_u;1Sj13f5H_t<^k4`nW`$XsiBy_q09)Ra;@R_a+(ZlC z1PT3*hJkhkoziDyyQulfL#KtdnHwGJH%D$e6miZdBGKMCD{{xvH+eAu;H_9x)q-fy z(wKYP;qYi-0{xO^#emnIvP78?(>Hs)D1y5Zy;NjgDD0L}9c+)Emmw|l3`Y3bD7vha zkfET0a)kP)-Pc9Q76ga^@d!UcRetQm*Ll)ju5?B=`GX`eD7dW3JTQ;Et0^?Bm7yW- zaXtb*czBUI)>`D9Ec575hP4VV(>7ah^3!e-56Cjh@oGQB2QOM1WO2=|3wL=YE^TPl z%Xk#7$}Faf1I*;)0N*RzT~kM;*{05shKUSM>#5!8KG^E*!^V*OG^#SUrv02#njD(1(s z1W8P`I3##UD}8OSuzQTggn-i1k3BteBveCm{r$BWOP~g)WS8PlnQJAJ6aUjPGT+d? zljYeY1Y|ky zCPX02UQo7q2^_<3<7N8^h$omKJUTViil2U_f^YA6c-ObFh}PWG^I8KU_4G9whs}mA zF}^Fq^A6#h32S8y0%Y>-8wRhoLwA93#zN2tw9!ub=^*{oYjJVizV)#n zVsv+4cM2VntC#UtIT3Lrjk!Z5#2AezZ5 z49K5rLwqHJ`EKw_j@8Ac&*a-Iw2XJg@8tq7b#J#(9kS@H?K-mL^~5XfaG0n0%mJ6( zzA>nsf{6W@20>Y)XsvOm_20!aYm8l5Ai8vjz+(0rN1^DDYczrA=A_)*TOTI(HNB;CT+P?MF!M?sh!fZN(!h440 zm^OI=DpIWcAjU41i)$ zZ{G1Dp=W^dT`wJ@Hx^yTNG7eK=SJcPn`=}~mOtNQeM6#x{Hp(UOYGo1LMrYG764My z#Z}rH;q}e1n~&^~tu45oqox5;N#KZp5Os|Yyk$T`;j?6PderKG(BMb?4A1M^@^wsM zS6+Gw{DHfus@ze50Wb~Kn-c=3Ba`^V#}04yl^jAMZxYGzqaVs;uU!A5Ng`VNZ5K{T zpzXN4ong#=fRPl{QQE2Kdd4alC~TP}UKf2_lrzSj zSIv zpBK(MvJ4a46t421Xz14ipT7x{GxJ9g>HIRPO137x81v; z`8F%?i_|w0d z>+t)Wia<(#chJ-6@vjJJLPhM*usReyVm;E-){S0=w_)fhD7jnS%Kgz=Vk3Tm`rYw> z1-_h-6KS*!w&Sh5y5ObV4Z^2H3YR?l1t4He$F7oquHxE*DQRtt<*GH;K8u00By13ZiFijG)TInSh&SL$TqfwL^qSy`N+vB*# z<65A6ViZh(K4@%oa}cx@(%Xm(%rxPH2}Jvy-Kamh5-Epyb-6c)vd%T(eZFh(BjL`& z?V>7lmZ+AP1VnKoc{5lv67Q`yThsD@IwaY|<*m*px`#D-L)*dXfHQzB#E8#i!tv)H3 zgAfp@Tj&>NQA+5U(IlT1er%<4-DE}8{JLNUyyU8=Br=wtFjtDbvfy;(xr_B@#qo)O zu$B()LmHPca$!#kx90}|v9fLrP28XU`~mW`eC8~5SS+Z=eA2ihn3!=*@)($+;O%gM zA3zzJAgVH{Deu1^zDQn02L$+9F_{b~I*PIa^qc!31qh9k>y(Ee3>gJ#uoQYPfgOhuUWgnSYU*`Q4@XbKPIHfe;nhL<1 zVUZSIOKEZ$!04gO@C;u|B&wll`7U^nG0ap|IOM-K5(tCjd#cRY$}j( z6FH4YawjEryPLTyP^t{3{#k9_?1L$szu$i|e`JmvwP4XsSP|C-Qd*_3o1tlC$b~vU z709`MRdAT7pzF;Z1Rl28p7pT4GO5H4?&iAYjLf(2>Nf_7+BivaVtHe9FKiCf?d%*b zok*?Q(UrBhPo%>;L&(f034hfaj;$&-oRXsDDF0|kHX&ocl zUzjiE{1)hwfRwYV)U&W%hStYK`+XkCsZC!hC;^M2q0H5q`I*5lxP1O&?O?^%cTzoA z;xwSHSfi?GC;I!w+x+d)Lw5}wV7m*-2j}}RMh-%U%cs-v*xGOo)0I6DeZ7@SddzE77rDQDUkYU?QCd$?!YsLE}8t3 z!)`st{jZi z0S7Fj?C+qu=Y+n3>NN+4`PeciDdKUp>G-o>yuku5Ehm3?@1N88pFbPKR~e;z<~tUY z&%yPqQc(DxuRFk3M47DSBJY3H6)y4+mm0er*KcrAHXXdJ711QuE5iTf4*jX`!HOF@ZE9^_3Br7Z_l>9j6M6P+fZEsi@+jLkg7R7e8Mp;9rqDRZ z&g4|b#bI;Nd1RSn;;y#koTg6_SZTrY8bHSL?YsL39B-!Q*gt8fBE$u)%W65TU41RB zj9BB5Y5LLS38?97~ugCzB;@U-0u&B;imj%E!SfTX}QCEJ!#oH4q z9Df~PUS~HT@CXV#T{f%Gc4NrC`B;7(Eli@dh$a*qb$iyHPfu)rzTSPD{XMn3M7}_7 z;tyXyb}@ESzE#w#PW7)DQGfRr_JM6TY@=?B_E`}vPW?V8TE#?_>rxNULMW;RJ6yo(?kg_J@WhpB!+%?z-ErP9LK-tB1bx54(H7xNEHZ+< z9L2L24AuznBe2RscpHRR3!^}Bvw$4QnW#c1&0DuDttyxW4J#42QY11+p<*UFc%*h( z17#)}N7!hz;@ji~LdkL~i$KfQ;bRwb4f2o0Fc9SEjmEgJ$b6FpD=Qn$yjcN9i01Bz z0U(%_htWJ5b$01PQ!1UsYx(2_q?y^A*6xPZGH9Z#uNa9TyxiMTyNe1DAdZ*~iwPyQ z%;7;rbsRr_Z4{$k_45QQLtiRqC>k{j8)C6Q+z=MW7-f>Mhi#w@6(MruF4;?2=|!3F56$Cy99p zki>572gNQ}b@;C1jgs{M0Gp-KYg$BFyO{W?3i=_cBJ=pmn`dul6eAW)bSOf#)Y!ZN zGFEX=W1HJZR%KUb+Mnkyc{`O`2Nyt|4pr}FEV>gEIc&dtMS^sl?xT8n|36KX$#T&x z7J&SBg+C)%TT1*rU*Nr=oEn6j*u|{I+8fknvqTfO4?LOi8C5ZC|j zg#+5(zvU+X^rep`QonL~^qav-l@%e~Tu&b~Tv4et&lN3%9sK-AJF>nTm;3prwf!|` zsl70M+-S0~K)TcbU;MEteU-h3z>#P?zBF>1tWFC#%71s_+-?+(BvKQ;)zh zQ=*Cujd5_xuI3js>XDrPu}z_|RYx||2MOy! z)yoJPJ=xJJEWEEV;EWf*=*JpUJYgP#k#_tlLm|4$k@ezlt+X28*12OvpavxpUEg){ z@8d`F(a+-R-yOTf_0={_*xxprgHqVe(xGJyjX}txg|GM zLt1a-o+%Ovfzgr*K zvTHMt;r#bys@|k7k{;ye; zj-n0v8+)ZbO zOQum8qE;UVoo*`btXPz39e*Ju+7gc+=VE8iJh|PUy@U|dP~Tv^YQe6uhTKOt-tF18 zttD~XWAlU& zj4K^J6=3LeG12|<%p_h+Hdb+`E+9+ zS^y4SP7YB~3abd#%4m-md6xq-fwN{T3O;Te^X8!FFOaT~j65otxBx4~_G6GpY{8Wr zq&8P`jvS1T1X7#(UT^c-e=UhBS(@1%KHy4rI))@RfhaV$usDIgOaeYTRmuskQI+?Q zY=aknSAt~(v48EGpkyNc1mp&A7C6Rj5m zN76c)hD9avh}CPnNWKNEBB9IgW=cfXhvXNm+_EHkDvYbYvc~x@}YfIi?lo2MADXKTZ ztBO8eiqt}^Hwjw`(|ec6$OFQo%p9a2zmP?+B=|=@_^L;csHQ9yMzr2zQ=HJRQN7>T z-R|kBVSWMSN1{H#TL+Fs82|O`OU^M{bJg83S$`c@znY+O<`7Y@ieRWHY%k~nej{w( z*<0i#?d=%hmqg*-W;lm7s#fAws2%=PK1F5cZQ9}?`4Nt#XoCmI-@eDxoai-Hio5;h zh;9EiZKL7a0lFcsqvTE;T?1K@QuIjwexv`?+d>uFx?wMs55WMD>^VZkb)V^&o;UWI zM7C&2@0+wUkGtK92Ij-n@9-EtX8r(!0%QLzDW=i`+VbYBJJOE6 zvzH#awMzqcOYvK^hfz7d22N7Y;)E7iO&h!?zxIxCj=WYRrS*l6ok1xcXrqAcRqpGPT5aluu8U%-v02k(ipb@a{Q; zJm=?X#U~l7wLOH~AO@7BEW$rf#LPsxV=p|+^zJ5&FX*?RlHOKWv762Y9koPjiQm4B z;n`ddf<}XM&_R5Pl(Ygt37#wrp5zp4^*H|~I+!~UKry`ueNK(WL#{S- z-ZS+l%1H$FOxKz_Eud>$rh}9ILu{Xf_C!Kz(xORLH?JG96b3!p(*$KccT6in*+7Gx zqkB16BB@2WXr-LF(%&cNo6J*c4Ao!;`;$S4n?|Q@RFGPGX~BB~n^vxN?rp$huJ930KldPoSJh2mqZ_6l zK_UL_%-O}x7WL!~3=}|{%$%FPnuvd4)gTs|)JLOO9$82_#6&Rt_cZEJz8_ntrTYxI z$AvU{an)(B=j3>-Ni`F_Es+)S;(N+~5@Ug}K&<}gxF%P}MH#3)xlO4?nM9RE!YYn; zs>HTrQeyQ-h__zvrMXk20C*Lj++Dvf$HV`;CqJuo7F9>t)aZ@}KxiBpXG@OFT<&~i zUyP=>3TF9t2*OG|45pq)39L$QSil9rDrNN9cqwZiJL<+WRWee{xaIim15y@~SPOXL z^~{}nU;ca_C7~yBtR`3pUK6|{1Ah5<@Rq+a8m0K`g|-X}`pmaIaeiYr%)KLYM-&#h zd+t>5jpqDXzlVC5#TkJ9LP|csojmwK&ZlV|p3Wbgb1HtBlBqebUQyrKq!6YjQxm4x z-Qc49(Nh|&zT!Gi6i=n;-X^M~Bc;?~xRauquyR;pWXxiRAXMoY(3s$6Vor z%mJO@SUMtD1dES<$%XujqU z63gwjcRnQ-#;cEZ8BSbDXAdTecIDHuMX#kwgep_Xf%hxQym7N}TyOToqbv_a?*@L6 zd0)U3!Mo}=M2idsL5m%&HZ)_ttd?5AZ2DMY2l0tk;{8-i5u=0KpZF0ZA=XjBE@y7j zs~2yCs-Wjc7r4ixtXj)v^N!!o8w;>q?m)LTpw2*Wnu&Z4EQ3#fA=Yo_os2fhLif5W zmlhD?U@ugS^z&{%T8eBdRE{Sj(35)Rz@^WQEM380b-Yv8NWfSCnK^oNE)_5x=4IfG zK)N=@KS)Ss1;8s*z$}cT3T4_AwM)tPf(S$gC3w9#U;Rk4_Qu0+dP4BZ9Jwu*PyU&d zU5w?$q=y9gl;F9MI@@2{_HPmKRuNW;AhV?Q>Iu0?V(y6LxIde^G5GeB=qrAAJgPY% zonNR72m?L~Q%JZ`P~S0k7esWn@2?1L5&rhr%cvG9?^tizq!l+C5DV)y8~QkW*SG>{ zSJb&v`toc5tkmZUcK=&JLtMjQ@$|w^%w8M++bh7g%PcBaoXi2RRDP^gSnwNpl$Ph; ziV`N$Kz{FR3NA)RbBQz8&7Au>TH-yaFN23a3PugA@LH0XTDHHe6+gH*6X#!T=$~rQQhRFSHKwQ+u)Qzu#a+OF#Gw$-SOVqC#s= z_8UKu7Lf~~v36r>X*?qPW-l79JNkI|lFNNwmsS#Ij@sWH$M$y?Ck%OVp`jpF*rA>U zB5SfOSq7bo`8x{D{$Q1YL78Q}pbdz^I4!J|C=_rXXCWpzQ1bH?W+p_#v;;1VXhJ+_ z4By9tpx(fRfV93v*2=?&5?l<#j$8U^|94m_<7!d}vAadBqam8X>+D)1{C;`&!mDUS zy*YXdwU!X_n;r_Je%Zac4P$F9V=j`W@@|R?wUs5wEh8h};!7abC~Y9yZBFNF-ejhh zz%lY#bad1#AH+1w0~pCsE#J`KQ%V3HY`OD!fN2p@%S}EgOe@TqNNk#`#;PhJVPzk~ zfdYX?;3;`xHMR%YT0#%LDkX&!L>?bP)yrk=%Ug5pr4Z{X@y+0F*i3pxqgqSBBGFb% z*^~^x0%3Yoy#>S&0G z%CRop+s3`b@`hnuve=p+f?dbS3t}@`dad^+ojDC8tS-Tba=a3R_af9nIMN-e55C}p zo&KcYtfpiV;UbGx3jrcmv^%#czOSMcK-oz!DCv&Irmx(_Fqc-OMH<|pmeoo*%N-rA z7{oY}V&s}u0-cZeY9Ck2K)iojKG)eds}XgYgR8(ar?$U}i5BzWgt%|a-yCK6mxQS~ zLKC;oTM?f~UL08k&f$1`kWd^xjY%5lIP*Mpq1H#JGkvU~R!rALi(c2o`pvFMI(TNb zo^;)+0NI3ck{m~SXxyj!kvcpLgxZlJIY?tFk-Bs5{nGO&C%Q13K?6D+NHJJQfY%4p zecH%md7lglr5N4)%;AVFS>`CGXJ_XPb09ZDypILN3nYKSg5S>Pj()yZ^;DlYDELZd zsO?b{J6>z5fGX1Zy6Ro zoOSY$b8#lV=es?)l>`S&jP&@EBpLz*LxEhC@QBouYkmu;XZafvNyv%oTykKS2?3auc5G}!b+hF8(r3a@CS zmCzd|P(Kvpi7Us^wRX7axr)zXW(L?86qAMSNS!h34)P@T^6h=hZ+NH+NLVu0yb&Eu zs5vlJ?PqE4FfoH6Zz_OCMH3JhZ_g#zb98JR*M=Jhv~9Q$ucRsRZuCkSK(#P>X&4I4 zmE9c-Bx@mFA28S^VNw}$6!66d**)%t39$njWuP|`CD1tUNy1XtMYGhTT7U_Lpnw%# zF=;(}rF@ix0Bsrdy*dCjONW>kV0zx$Flzt}zC=^z@OC|#3ISyZ9t)27y+b-42haWpXu_Z zSKO>0h1Q0gP+Aj}MF}nKhXsIUf0@{smZUR%)#S$jWga6$&^bzm9R^5dE##LA+i z?v4+wq6Vr=}rOcnn7^r_N%9i5DjXP)snNdB_qvS*qeq#MY`pPSJL}L_CZO`BI{(qvyf(q*OO&89zu<3xpbcs|Ll2?;teUwV6n!3 zefzIO${oU{6D*dlc_o}5rpxA6T$sj^vnCd<8g;`$c$ zrSDR%Nq#JR+?Cy}w6TXDyu#0(D{P=+aQZXG(LEN0*jM4Ocje2}M4 zf`2?uMxc;(ap#poKogj<=>eFs*+E0)Fz}WS^6beoiOQzthTsif@PhBjb8$&$Pn87dnd_}4g~fq~E2xD$RS6TwF}@NsZbHu%%VPT9c!T}i(*a`twb$>6S3MjSZsv+b*G;lhI!rLf&$^DEO0-vz!i zI%{=&pX*%E6qF>^NnbsrE+MgZ)By45-abf+hd6D3_>5t%ycuLUF$dnrjXz8=K&;58a0`(F zXN?T>?sw1nC8oS+B_(M?q_YDG(EfRA&K)(moTVDo;M_MF{DJEG-#sny<|4nxG&Azv zMUUlAj1IrZo9M)({3BO=i14wm$l7%P!Sj^VC{{admew=3pRoA&8|Ga>XKWWKc2@jR zSGyhNS8&1mknTek4ngTR3BF>o=WEjD{&vo9*oLuc_uY{#aiO^^wnMk*oZfO-`Kukz z)eDx6hJWygm@qR6slr}JL4N#n{Qi}eAj@J}^CgWltD+~$`wpct+Wv{tIHrF~I~-=> zF`oBR>W0cuZhKC6SkcB2*R`;>5zNH8f7D97F6gB8K0l5ei&44u9Q&LR8}2>m&OCS5 zwD8tYTfpvTdc42L!#@U@2UL|q+V@M-nzK%vMIJb{D*gLpaSUp)4~_LB91sN(X( zCwERwr`~*tV#iR^UJx(KB^`cQBXa1|^r%W~-{HGyIqGpQPlV28b^Tl`xOUh7T50NE zAA~g=W{j{6_O-M8mt@cH`8@9HcrjD`!qX_ncO^7;SEY|!DbI)-0#+*9HC49X1$udx zbG}$#NpJAq^W^v2*A|~%J$sAmo6vZoaI|7$56$()uA<8?pWS!VtxFegUB9G%HO^I* zrmFF9*$JtA@Nwh&V;UNFGxAT~%~R)7vDUo*?ecl*$M1JfP}8zGmlK;Gz0aGw=CEr* z5yzRnIgfPGd7ooz)odM8s`ay1I!Mvx;n~Xx-?v>WGW%5AqZ$2%xYONWOV*r!=(*S8 zmqqJCP$MU{{d!(oeXQo)7wgBDRYHgF5)vNMvfg^0A+COQ-cUB?bZTtHIm=NUew9BE zad!>T9h#9?*3%4zl~2XPO5BDJ%@Yvt65 zx)as?wiQQPt++MsvJ)K_r<^s5a=8u?DBt%TxfYQJVb`+#kHXIKN!q9#oBcR+EY>N^ zry&0AfrM|j<{qP;E~%A^8|m%Q-?#nL@TkJC1J-@+A&Gaz_i(<-ajs9l*}hd;NN^pl z(5d)O^5yx41#@xY17G!8uPZa5&i6ftSrT11zNSb=VMkX(#<@t<4_b56t?s&bo5WA2 zE2dVyG+JZ3E9N=r%r}$JNfmzlkJwuxwpx$;1>73Od6Ct6$+FM z+8Mw9!~VI!?cdpj(=i78TeNwVyvcr==6hysn&uZBKKAl>YwUIRHd_rd$=Chl54VbM zteN`iOFy32k+P=PB_ouj&GCMHdpeGI-t&{t*3T~H`^@}e9%GKi3M;3h-zx3%{ipaw z(7@$=Co;F>#FQEw*njWL>zS%usP3vQrWJL)B5m&=W4KBAzAhn`WQNv8qca=#d%?yPZ; zl2vu#)>~+cWsQM7%hl(v1TEj&_Bj8IQq;8Yw%XI0cx_K!hBwC=&a+fUy*9p`sN{R( zOcUai>MPX#a@p)beZ8{YX`g9A1XiqwZO|AdQ7i5NMvo%htvFJAgbaJ(SaSM&7o%T$N0+zVT1qg3ZOhQxqLXEC`CY!kt#1Znw}*>l3hmup)j~ZUP_MA=I@fX~Trj@Jv-hPWhU7Oxllb0@PM?x!?vlW8x-g9&sn-MF6TXA8`@wRf=X8_4|IIDd2y)(NrbAcdXv1CWEqvKcv*b*t!4Co7cHPytqb{v-Q_BlqDx0F)CVSi59%z31_B^lt=G5u@^zWt$Gd=1E;GcVA;lg|| zZhR-I=o>D~UXL_$&Uo?Gv(iNe8_hi*j%SFpIuwdAcG{`5?cZ*#`>N9`QvX@o_T*5M$lEVJV!PM)=oi;a&vvl(|EP&TlSi-|ky7mqvvhITlaj5=}B`7H7Rh;08I@);d8G%?+L zYcmi8;d<=9B6D|Ty?=F1iai4Y*Uf!xhP(ehhRs0#z@GsB|1rvc4;%Nh`E7T*JN&v4 zKgfUL?t@$Ww%BtphfBv*Z3>nD{$C$J{=Xhhe#hK+bL_}TWw+Jh;Pkxdmv4MTeG+%N zyB@(xsC_$nGI8ztR0ULg&K7%Xhqm$uo7HOm!V7$TkG#Z)jHJG!j?%Z=y=7_w>8uZn zQId(|xaQQ0CJ~0(+uvkrYi zHR|U+&-7B_qA_!jKk!_;U+7!#PsB}|=>10!&3 z?g{agd99$hmr&sq-Bb)nD6f!Z@zoMQfK=7q;hup!(k|IeRuR)|##rj|VnK^H&#s8Q0GQNszB_{jOQ$z&VbGo@vY zPH0+y79a#vO5k?$`mF?z0`(bvdm5u;hG;!hFBc(BR~P5;hc(nVcWsou|z zkh%uo8HAS1C5{*mpLT{75E8(BXw|_9=~)nj;@Io%>&&&0xd$~fQekfqyoDCV2!YP5 z|LCGw3d~65NBn@z5M~W1W&o7}dK{12dxyXwR+vvVgG!#H`4E!7>UDy({qQ&;Jq5T( zV;4t(Vog&NkY#jlhTXFNIQBtar@l{kkrl!XdX)>2{G=PAL4tjDg6;ux<M+Zz$E5p~yi>fZ5mq;(rvY#U!B*1>ru&jy#)bnmKZp#ftY zGt|));y+nS5fE1yij>!q@I8T5Rkg9LdidijXW`;JX)Tpd7d>x0&L@*s*I5Q&^NK_H zhsfL@fJH#WKxKN}R3S&c-R9YQy{Q_J4o*+3_P>NuT3YHGQ|K`;PXVO5yo#r0dDcUK zw>IN-aOS$0t{pvD%|4!aeDbaY(d+Xniah$>@i6AD9WP|EB z=UvSMZI!^5A&Z>)&%N!F{AG}z)keN?Id!Bf>V7xGN%~Z7CAVS*g)6C#Q)NrsCm2`T z@Q>WH0&nM6oAd@~_)~nkC+?@SC}WuWmZP^dCvA$(t5zXY1p2t~BdNc43v8sM&|1>E zlG)_69+9>}^qiHJj%dLpEeS4iBX>(u03t4yDQ_{#kz>;W1;ZB1VbJ5R396G-FJ3GD z^P;TLr(%H=;MUQ>bjd_7lEzni`Jswk&SGY*J1zYjXV*PbVM0G1&8Zy-0!Pdq zd;0+~$iEvGTYub3Zl;J6Yu9-%n7)Q)PGawc>gGIt9$-sVbf-pYlJY4^23!hH9!GX1 zu5;HKMrb3GrZjK=fR=^Co5eA&aFk9NR(%mNiJC~g+4dSOCPAt?jjQS`L}DMGQn<3E zUdT|y6s%B-qlth_F1nQ3LOg5%|TC)WAs`(qB6u zRwMhtUD>93yuwCVncIi}G9b?DqoHVR%nVRqsGBUaqtISuj>@bgl~5aY@0en;?+3&sV+I zWJQSWnfWX=+CjIM!kVc(RBH7b7%qqFsBCwpz%Xa4^O&@;yP2A~djILc0+E+4FIj3`v zBtbmGURYJNXs1}5Nd3)tx~pG8uiwh4`&gwq*S7v3d;g5>g^!WxQHsGE(dfor>droG z^{P3tOJ0+w@`yjs-NBN(MIPb)t_g8GMIL@z0xx@hM{?&Q)108Q(qe=WL2lEx`er#bsplC1zn(JOnLNMTX zfs%by?X(Ter;NptD7NzkdUhiLJbN|6;X}l|AGCU$`D6T@`>UfpgX+|+0be29>nByj zuwEy+VmPb?O;15bW>@oxVudE_OMOcH>8KN~U9H6!s_BRh-+rFRg`{wm}J!eFzp0Sw5(ZoVIxBfzN0Ld``Q}rl~8^gx@y6${cbA+uM z-O|I#apo|6Y@)eSp`4q0R|bn%_wnaHJWf1|u^=bt?Iq)|qnHdT1HXu@E2%Falk?MR z&lA_Zz4Noy?pTyA9}q-te3`QVG1-RNVse#_1$C>XLyCLTR&Kno`-8^@z0H}O z?W5){5h&8uiU_N!Gb#IrKi$g80)dV+oqi~;SAMpX%b44MhZ@g% zZ89CIfrNQ+7B&G}2*;~l-{NSu>XdcLvqrLRbjbP_w)*tDKurRHL?HMPFjn*D%5IOb z{{A3yzu^Hc%*-akQ*bcgi~WIJF>FKnMkbXuX9lqn(0yE`bYuslO@T7|k|=`uyOV4T zvh$AJAgXJOhCL%28&}WgLNs+-w&a;{BYyN14c~?{;eYdP77Y*lYPS0z`P4OyCT8xV zGlzUw>JMdC=kZXediZ{8kJt;qURiU!6q{7kYTMPO*tS&v)Jr%Ut;{$p4?*VGc>38W z+o}7$Nh}E3!Nf;)jPdER662Bv?iWPLkga3J1a`U#;8+|$tY3nL6Q`d@Ad_ zFC<@5Lc{zirjE*+HkNaxrl@`&5#}L54SgDZ>h3Di3Tg96Y#EXNg7TdNE5nrvv^o<) zX95h=tUUnd`Hhz*acyg&VBl>@E)r?px8G|;3YqV$ryea~QYTw)d&e;$w(V8O{>92a z8<+UvgV3orl4Xs1N8qIA#_^pk`_ka^$pahLun{wyD3IUAu_r`*nF1?iZjO@I+1}bt zvA`~x_(p=9oxX#2PRkSfV&rsLqKq*QuF}#nwixS^a^OFM&VS4T588Bc5*&3RY_4Ux zNu#;a+_|k%f4sI&B%ObE8~5m2w_LgOwA2%zQIet)S~~0WTw-b`yV?n$e6zTb%|-5i ziWtzpBnrH^!&rl-*+|qr6e84}5%l*K3MBc@#FWB%$NFBt(;QoT6LK5* z;3*Ie6%9(#8j{&n*+1zP=@C-R0(!^fxRg+$Lq!$E5C!mA%+s!g{Sn5j{K@zBi?t%3 z7>FfVO7ArBWMrHx7im5*1Dy(oWasETJ`-pq(lpUpx#Co@?A=$IiSkwDE)8^i{hmZw zwuh*`p#W0}VgdRmcXy4JgMcAzcGi%{GhCAtc+g;Sk-FQsd=p$G+O381F!$0PkKo1n zvVT&_9~VAy;81#h&4wmDqsX$WKe8{ni%*ZKzt}HL)e2{N8%bUT&_BM6 z68s;&=n|6*%?BhvlQ-BIcT4ZaUH!7M#r1PcUw-)I0-sp$u(hN0OD+C;{*M=pqHZvh zJjtLwMyxw1;)J#7fEqiC6DQ-h9*Nir)Qg-*S!6%!Ka;86i8D#MvP7MMHdLeFxQ2E3 zIlCOT(NX6m{2-SvVoB0!1vrUHSonr75QFBVT<;(bRs6`kIqEu+xLgV?2$%gJMsxvC zH>S^SSERMm(toHXP8~{Pwi+K2t=81-m&{h4ueb;OTna&jlM^)FQfL=Pd+#=s);Ux$ zThC@gi|KQ5eiD4wZgn3dI9qS{$E)bB2hU5*5UJi`nr4WttzB{UyFyh56t}bpWCYci z=Gs%ST3DK%Lk!~NJSi~K8d{R1r@fyU8@*!Y0v~4^Y|zC3flyg$;9fdwF}3@pGBRS6 z$%y#Wy}A1dNUhSdF*2Ir74}fMSi#^rV{NHsjmb!I%{CFq)`s3kIrRf;f9&q3bqL;k ztzO;cM5*T)(3+LEO7P?jG?Jy20~cfym6g3n-F#VHL;`)#6$R$!S|bp1`?)vk&ivhY zgc;{%WrfF!p!+*MmU%VlYXep2pZ{*PgxhRhU3HA$seA3GRj#iNAJqHvvBu$yG1q(q z=jh$hAX1BYMUX@1lEy~kFQ@lfe&&>R!~(6xs`d9ssQmY^)GZtp!KF^i01h7pVM( z9$(kkyh=l!_2fEItSK=SpRQB$nfmzf)60$1ceWRKuniOFK{)QisEYVVR$?qGF!}nN zy3cZkI||#Vqf>vlMomah&lUou#Q=JSn(J4M>)_HYQXA0m@q>KT%x;A|GG_l8?c+6N zVL$RF{Bkw8jJ^T@ddjJzI?VLn1I9kO5?1DWw6wY5OepS)3^gFq%4=75K51X0RHdiY z&cJ*kq&c*%vOyAI(?&&~oRQ0lM;~P~xJnPFH;UTbHM{aj!<%s28o(=)c)Qz$jlv*^$B!C#^3jQ+ z^e@M)73hCgTc4}lysf^g7D|C_TldtS6Ty2@tqb7H=!yG?#+gV1J_poLEMdO*7Nm->C_k-Wg9>mcedhhp7DTSHEX85aX4lF&d;&+eW zC@K}4#`JDO)_e3zf2gYGA0ALOPxU`ksT#+|mbD%>U=EUx5%fIIm1w{GYE+eVYf}yj z#K)-H72WwfdR30yu|KwhD$&Sj>L%egT^ZyNUXZU$6Ofeh_b%Ebr|aYVkQWM?`exxs zK@(P>e_5w2c*+VmsY%vy8d<6~OHT~L?AYQlf~fEq?gZ3WqF8}25V*YYaV8+3vxvC9j2rTCq9ODKq`mt`Tiqu^dekLXU5GLwk z;|!%b{dg+KJ-8ic7Qie{YHLe%p9jZ9hkxZ?aLgfpmkfJbGm!asTsL`OEAetV=3sW) z%ym5U!?v#LJ>z;;*Vl_^K0~C%4lt45-y% zpUjf2(>oJhtSMfJ1EiINziO^M+hNbp9R7=&A8WsS%h>9s`xnsz z)`SFB4n5;};=!;<<3$V1?#?F#g1>64P$qE}GNJ<^KJX8s{hr$%+!wa@Pre?p#Y7BY zTIP5W&wcDJHQFGy%~VJDJ(~0P!||mHqus1E+I0Qkf2}FFO?s~y^i~8d(oh7~4FCU_80HMN}>c;bN-dIDYz>>%S8Qa9}=io9~JRpYp@&RE6 z^F2k45<>3HMuz?dex7B%U$RepaQ7L>T9C8BI5W%{-3iftJxN4!XKGx`-vyv_%5Gcp zCguV1y9dSW$!QSp%~wIk3uahS5eFbhDcH(2p21`c^5{rf14Fm7S8~o`QUWFA_VLcR z@5Dip^Ru1X-7U)sHHnUzCVPI=>Tg}1+~{qs7e9cObqv~RfL0fq$ijGI3L$mqAlvFE zomJ-5er!F*`Guf-M}3YRGgF({s+xqzD_(sOvc9<&ovI$_t2`Ec&}E~Ut+tn*aTxsK z;#xav8yjv%UnG~t<2i@^Q&dnWjgC!je&BiE`L&xyRHEmft0FT zmC5M^77%bMmX?-o04gDt%P6Tvq;OtL`^@n&KSMMjnnmZzHWdijr9udr*gm0R$luE= z_WqM{o^A6QwOX?pk#6vQy?6rqYk-o5!$IT_Uz$8NhPV45pmU?=sG0OxN6ZerwE$tw zwlV*+Jz>uU^CE&xfCyPXy<@GOd!X?Zvk3jwkrAJE@9|7rzVC3SNBC{;+P(aw^IO=E zboNz1s4|#)xugnMhfoi+GZ$?@%sJ}=l4^YBL`h_wRH?+~u2@SXW4v5wV&OQR&s|jW zy6P8evkw>^zZj|6OQn49)sJ4Y30{#giX*G~j?be3_}uN=ar`TqDmFSo*%CQs7M_{m zFn}PI8q{GMhwiCJpL~{e_5`ctQFj_h-&rc;6VnN3VgJUte&rG*rp(n{QAK5kMS%yq zhXf2SVXt6ipR?HcnF>a~JQJ;4`SH{JeGrT|o zG{|!eL|)#ovO)DqAp2&w*98Y_0@l&8%r{Xmpflge8S2{!f=t1@;+p=%l;MgH=+ zq(AoJ3tGpch+Pjz`l};4-n)d^Y#2@g(K@tz{?dvdr-6%y)avnHI0AU1SEu%>4tPmFO7G|9uQ(lTJgnE^Tp!Uut>RvTxC00 z0L*xjmbCGJh)=|II<=XzPAJ0Op6#mhZUPFnGgG;3D+aw-C09U`lY@Zlle*&$KOLY8 zmjp6&=5JUa(*;>_w zAS0|0-0-A!c+U4Ss!Z{N5PY;wBJ1kP(AXegBq6K)ZS7*mhahSHh$x(q(zY79F=8Z}U@AQW-ig4yAIlt?2>Lrr=o|Dk;boT``WHIw zfPOrojjFgA%}8qboTx)PWOEf9-3X^mYol+zz1rspRyb9E4CO4B;u%r9BJu7G7M)Z8YK!J{U z$eU0LBbafJ`~cN;{T}H(pLnGzQ^Mo_`$kkCp{*baZfz1usWiy}EFe()aknrGpN_k- znaQ7**j^Fg&vbxw21%fzPILqn*5jE+<%!{Zi5ydWB)4B}hOAm=`sf-=k+-=Ry?CeW z_oPO)Zhicb?w?j$x0?AA>=cGO8(g!JA31gv@AH+AzQQ}8h2{@;23hEX$n8d2f>rqt z1@UFNzW8%*@InL|6R*>07KGsIl(d1Tl#2-bk;K%4>Tx+G7vcpSJ=*Kz5Z-dv!#o!n zyLD<)f?DlDpGQ<{@uoGwa1SvV} zaDiF#vu4pX+!A&06HzA*xppnTyS)NsQ1nvkIaky%5xcEYLx(5G*pi+z)Mg5D^x%9N4~T1pdjfi573dCw2_zF5mY@dZXyj zreUM(694|&9`eK-IrGG9``i2Q+q$>)M945>zLsCTYbWvCm`u&$`LYcHv#{bBfx5pp zcB)5sn$SOeF{eSW*r6y;6f$R6ckMNY5VPj6JA`?ePy*~nL2K-XyO~K=SH9_B- zKl&O?7B0xFA8KmkAIcQ{!q9D5l8{X^+|-1=qlQqXb~-;FU-;~t2>t-FUF8YU62mii zduE*#f;E&vv8#jMS%IOP=e)S(vyceWBW?2gAp_8UUXBCH9?U6?J~IzEmh6YHZcZPNu@36gm-5}ZMxt^Bm@|Gg0q z4hS3M7DPH?n|;W83$>sBdE+(OqL0MwWetmZ<(}8a%bYQuPcB$GULQfQ`{(pC3K9#z z9x^dd8UWE5qWY_S5uz1zTJYZwyiRP%>6Hrw27|M!39pmF5nm?K9H5y;l zve29z-?-)`+bU0rfh&e&oKBtzc{?=XfBzQ_!OXEO%n89hf58f&W}j9lEecB0nl$I< zgzbkl-1rr_aspQUe@83H!?{5|%uDJK!>BZ0)M?=4{jSUhq1!@)N^iuoksY!Gu zZnBylFcJuGSC@>o=o^=?^*rvooT`u)V$umHi-3eEQ0gqV$4S+#imS$MFn>R-QRn`M!0@+0ZyQ z>D3R2>YUC7NGMeB);vgBsVgdpwR%P7okdkRjchBI;TW)8TPaQc6r2T4^?BS!MqPHr zqj?#zW_Kj{&?IT7dh40ZA7|jm>Z6P*oL!H)+Y2X{woV^h@txh;8`6+oP3vl3>coEV zlqsf55!c|6yv(HOU5 z;mPkzRe7pq`^B(>InLs%cosj77kkR4PtOVQS>67AJTT{yN5HZ>>~_F4ZGvIgrs2NB z-hC0Z30DP*=fR~AHk{leMiaamC!jcyQDI zil%+I(u_FZDOEt7({WBtXu2W zP^ChJ@RRGJFPO!J$B)5jb?BJ}n($;UMKJLJM8iEThJlP!v)G}pQCI3;{yy~a&C}T{ zn;-lHU%+T`TP-lQXAR5%il90YCDM|R^YaYT)7FbUWHL5hwS-%GwO+uTV`_|djTF{` z#l5YaJZ$d2lpuHS=8yjnRsm}R(%)vPI)!crM!qsYf3eEvE_O4E!((QwiL$Uw)0ZX7 ztfUwwRtN^gF}!FDiCfY&GEUUkSeG-@Nx8jW8A!JU#S0^@ws4>l<&+8AGch`8*miYc zB_m@~e_v<2SGuH+A?M4N61pq(%QXb*nsqrp=3DMYuGBZW08+))msC^)UaFrl&Q0>+ z^WSPZLQ~aArO=uu4woEh_*1XxN@e%x6)?Fx6&2>m){K}3brdngyHQn9vCJff8J7@I zlH8sJ7Bt@n*^N?z(K}7QM|-wV(jK?agwJ-ykAqa8@U0f01`FKhLck7%W?8z4E z9$#AMJKqcGZ1$k-_EI$0%g;WaX%`4inZQC>?tyg*I*|i5h>=kPYB-mby@nZVelYC)%d|{EV zI#W!MNeZ~Zz4YBWvIv2mg9);Hn^o~BOV;&*q`$cHeQ69}czp&>I~Hxe?A}~Z zVj(}VkB?@Rj514_wAN{p^nDwLKEkst3}eHCk&8?Pj>bMO_zw@|r|T`HCQ-?j?%rQa z=d`aTJ%EKQEi@!S857&pJ&8x>1jmfeA)X*cQuiCpROB*^_Dj@FzKVlT zf$F_7;|z}hg4>a(*16h;-rBFsgoh#(8jxxUl1OV5wDd5uD8Kol2jS|GY|uU#iQ%kgZQeKg%p3+FpqmN!@M$FKZ;u(7kdyA!;vK*nhW9JIYT~$^oMf zq~8Fn?6OaDWs=IXf3zpa$h7Helc7$uf+z0(__e{o5I($A84(8%*$R-aq9q{p* zjEt1cCAU4AiUa(MR+q2w=jH9qC2H6r+1)M?o69K!ggk%4td~2DjMk6lS7rMh@#IDQ zlCovp#NJu}ZA4xB^Wf=q-7y!}zE0cT_0-4n<_MCMJwRCdTGz-nj#l=a#KWThe%Ru$ ze(o{?a;-pNTeR@X#1~e^A*E+P$cbx)-sRE(LDW({m)%x4YK=bH8t5gKOxY%cJXr5o zS*(f=eR1NL58V0m4Rt#?b=QEJ$fl_H4!IKl=-~bBwaCb>>Ig~T@h+Y{)NIwri>9H;@P-90R8M$LsMou) zujrlgLPPTKED^RaC6PQv0Ap-S&dUWXp?)hM=(#=Y{Fh%5;Np6i zgh{Wo1EM=hzRM41tbo`+$ZSd37$atDYxx$G}V53`kKw|Uc2-49J?p*9Qc_CNi0yR^@|FF zSjini2^a^l6t17I!0|SNCGG7#z2Hba6rYsHQobuOh8CN>MVeo-@t1S$Ci(d8UlP<^ z(4B9Z`#*c%{<(To840lKUXoMp0W?#x5E`Xb7n;gs5kY;S(bnAa1uc^Mp5>R|9)^kE ze?5ZieX1#eM3MM0CZOJVzPgNkw9fIT4Y9HBW8nnD^Voog)%#Y3cjRW!+wgiqr*4SaJ zevS$i#g~|TsrSiDKm#q@OJ65l1q3my`>Sq&V4C=oxzwh~L&@xLO(%F}Nf*0ur0mK= zjdc~4RoaLm;?m?b+h?BIV6E5q;?E{6s;~jUB4#J)k?@IX2V& z6nW^Bf2%Rw%-`1iw3q3+yL(P14`fvum~H8P(YGQR+YvYnyO>0fz<>yZU#0b zn`x7rO}`Uif&0v@IHmd?lU_Zj7Dm6>z)a6eA4tBD4fU&PT?-omW)T1nNxW#l#!|Au z(aelqymdJ@WT0z_x)clv%g|FDdG+@_8jiy@z&X0_O=fSrE(_epos)3|)9ERxTfFgw zYjc4@ROrOQknSTsF~_eOjO z8WoKDLXpt77yOLa;6q!DOCzId_4;8TPfzu0Y(mv=+h3Qgr#c{B%7K>~wC`h9^9M-o z8P|I8(AjM_8Ant&6(q!GYd&kl@Rl(88F*E}x#H@?M0Hho{!CfY5pT?)h_`F@ezgV{ z*F9Mv#CP|1S0ljWeh=A-J5q1J)`TD16D)W;g|jfF4$jGtS{O|HX&=A*1UuTr6L>Y zwSE9FvEaUElklIH?~s&rPBzK)^jgRDck1vn{w3-A{&Mvg$sRf&L)}EVV72lh*2b$J zYC7w|A7Mpndu)!7N?|)Jy|~=(Qr@0dPk;aCcN78%;BaS9q=@-CO+Y;Nm|(QfB#JXc zp|s*^B?zdR6tmb#WOT5N@;b1+l)N9mU)7<6Vs6LxCL*3D zO7(qWxDoP&Tl_>i7?}a`90awO12c9?k+ll{r9`QO`ejnBklM8GZfcgipL>+1>RHOg zlKWy=^!?U+W^`n4vf+H}1w9u``Zz)YaRGll?>1L{>#e<)R-t-{GryU7Ken1cCN zCJkUP-*waY^5u(Bb-J;%!z9)uR@FQn$LpQ5j0u>eFLo0*^B@-EQJZbp!z!}f0s3T=Eq3?I(h8oClv89V@%D^CY(iHOijHqhWz)$ zvn+;=_M@98g4;0v^Ob^|A{X%!z;jL4@apWJas362kIy)f~f?n6xx!Rf4ZaE!y! zw?WmiWj1cnXzf~UPwi$?*xrs2*TUWTPrXyC`VSX(>+_4}g^?8=J!v%6(Gh&NHT@=Y zRGda+K(lvJzH(LFTw9EoH<8Y_B~Q}O?{=QTcmIv}CB0GE!%J^gCP000tO-;nrK7b2 zt)MA&O+5@3C;LVzlLeX5LY65TovC+S&5CbPD&KB3?}a2UkiQ@3cFo8g{TFK;GX~;< zYC1!Nk-Rzi;_GR2Z@NI8VpD3vEf+VKSYR%0!sQ28pk*>YyD z#DX6vN@IfRgqgr!T%bm)oRyGbMe@O;ao`Xwwx=bi`pdD99!!Bz*Naib>*u4i#`$O4 zBHw*evlCD)ykLKPEOZdQ{nv-DPQpBOC%b_z;ip2YjHddI&W@EaP0h<_26Rof^LbCY zIJqo89|NNeW{jrwQ1IwYSE2C)r2w zSm-ug{u$aS_)e2NTQ>V_6u8NnF29yzSh%@Zn_dSg&Y!b;Q=hLK(CUl$cKn)--DLLq zB_9~n&mZB#cDwGl@nP@N0yJB8mvXWb!eqt#Wx& z+xYg`+whgs+yQAz$kzpAV_AEHFFCFK`OS`*p#uYJ<$MKo()nsLDW0#t<7OS>$R9|f z*cAj`l<}Yu-EuSyI^Bc|ecjSn*6ndqipXn^KK3p?b|rekiW3k^i{*`VP(qi^WswRt zakX1H+D)Y`I>8$sM`#437Bp8x-0-z#>vkj=h}uF2t?ndLAaa43J&X8mq)c>O2Kggr zdQabch!JpfxkJA{c)rexl^uO$L458=A0Il+)y2fd3bOk@?ba{YgKXbI=NaYRrw`iA z`)`Pi5v(&=(!nGsbVnO23m;JwiV&9KE2XC7%}j4={|Mhi-J5dYsQLXJX!Y>V5iusd zV4)qJ>S+WH7gsN?#*pD?HY}XB@Z%5c@G-dXIE!1;^x&Ig(uoJ_v%lV zh<);P51rWS2Gy8c{_T&SVoVdmcGdR|LR%wOTDHu##YZqXig22$I$NvIzxqoM+n|pp zCS$Rz(TCojtkh){6$yK_r1UBkEgyoSX)iPIeZ8WQt=oCi*@H_dJ+~ZC3$T~ z*7T8rPO3oPCn@@ulJ2}pNNLh3V?;_HrJxz|M`H@9TTW=nN!Fa~1@g~+n_^Y2QXU|e z%OjyJuYL;Xrsc;lc~yRhjB~xsZMM1{c{zY&;FS=~u#uBGYYrd{!>!>cS!B~%)=wQjNer=t7$okxt@l5W1ih9mBVCdb-zek=`YmYA>eJ`xjJ|1pi(&A;te9 z&zHF@k#hf?V|XaC49ajSEODED*klmPp{h?y8_ zKb=%SInPe(XHE6!>xQ3eLHS6?-y>$HpOH-l7PC1)&76Al zZ3pa5?WTsURRPk1gWTJ z2w6)D-EOhoo{gR}i^Of1L?yzuzJAyebB(s3Uph8< zCRl8gice-fv(bkk4``2qXoQ|JReYinQ%LFH=voJFlA`DqMDb?({KFA?hpxs()h6I1 zq<)L60Ru}5!ck|>QADyjw4~rR-Tbb%c>+m(exG%^bj|&0pCiuw7qYGmq8jD1B?Y(c z^n9ODILOco>Rxd_x5OmZ=sD+G*poBT+;#Nsn+Nwc@7VtG;KeUVi2lIm*RCii`J*wt z-KEpkqw<7C{!7k@t1ZBhvGJY+D!49sfP?yNw76Uy3o~%u47(%jR7)R_+($SY z)%y7FncN7Y^*e_zRnA$-s6z=J7gk}kB*lTH2L3)Upf*1TMaIfNigLt2A5_ABi*Q~u zdDiyt%CgyYC!*?U;URwx|71wKtKDQgKp>Mx4Fm6?1{x*bS&B(A#o|}El2Ot@mZ>~v z@!u+jA9X?2v75f_+@9Vzp7tooxJ1w4+AcYLBj^>?zT*CN&S~XQ80{bRdNs9=)y*pK?Ud&{4oxjZ znRzv>ho=qQs(MmCP`S~dDnS^!$cMiC-hV!F*}CJf{XG7^n$M?u)R1yJmn$ym(Q|$M z=SOM&mm2g$UDpSM9Lx(-ARp=k~NF^*| z8^OTY`k7DQ=Aq^p6XfWx*(pOBAVay3TX-vgR@ipF_y8JUk@-6w(ZYey;tyY$GCnw# z7)88_afI&QG}?FM&GVA|CLR{#yXQGu+`ox9CC1v4M)}yB;%kqxLm7EDNnlFuZ1O!v zT@nbf+v2WcRs(-tH6{w%-e|h;`jwIIwP#K+*!JH)HWt&H)|PM5b9WtmvMEQPrgAo_ z3?V4PXg`gj5HAU`M2E?erG)WBn0N8>(MI_XNu1_^E@N8dz;*WkyK8Vb{N%HX;hv(B zFv4e)xcg4s;`92+F%g$Pwo=R=b|j|4fx-&e1O2ym%ke}8J8Qt+X`3H0l0t1vCTWh75$KQjK9>fZa|@;JXZH&HYW1o(OR}U~$b74vOv&XtY|EU@EY6q73RzJ3 z>859^3_3CFRAhT~R?zKACcMmM!M1D@dm}u}$ou^5fNrX2vA&qG=+eq!6$|nDpuH?m zh^4JhkfnLXFbmDuXgy?iHd_;hJq5TH!^kDs$d0Vdv4L+ESp?5B5$mZX>)|g)paH8-rk3+sK6r-ja6*i?RwtH(0I8FaQGuqJ z3lNQIVKjS`vFM1cQr+-Uv2;@Sk5R4RT%Q_(q%HcV>}&NeA=nuXV`HgLA?dNZRbA|P@EQ8sZoP3%qBaZt4$bh4`1&(cgk2IojiieQj;6 z&H(P`etYw&-|u$T9#!G(*YtmH=9cEQQx{LN_zb$JIKu2$cP*X++n@H~jry?}f2s5G zieoxuiiM_Ew|z1@M$kVLu4(L81S`9uXBs!U5Oi{VHeNN!rpp+NuKUP#f`LoptQ**F zk@j1orG=()){(cNW^am+Id5>%;*HG4fwbmaRsrC1O(kq)6wysSU|V zN2mIzXzKb6pcprIu)J-$bJd#2#lT+sJqg39HLjB$Y@2`3Yrm3Pn_@s-sFnfYZ2Fc< z2tmPr4=>GJGXJ{Hp`DyRY?xyIv&-Fh&03zUzV_)+>-*QQiLS5uNQ5OZ^MB2H4_k;t z5{Z$K;rIYokwsUea>M>R%kK3vs9fB5`_>#zYP@?JL$BU*@yw7 z<7S|DP96Cixu+v3bNM7SnPSzsGW)=4Zy8Q>R@>Z1Z#U2{46{S6X%CbM>XzCd_ieN* zx9W}bHk%lnxm*#!LscT4oVrLlGtelA7~ZQ`iJuw$V(VrNWPrWGWx~K}dF&VI@MQCS z4=!VD3NYr(ew>@WSbj&{?;nVBhn-^bX>*vygza3~*@>pVqdZ~@QG=6%) z--z`%)x|MuM*a9*RBfL2w0C~KBRng|7>KXak9Meji$ceKA<`c6)%RovOqQ{{x zdRvM?&TR0W5Ys;K&&5ki1+`AU(E7BWgoth?{P7knWeWZ)%#R2wz2~j}lV;bK zrn_e**=Q*!)r%7kJ=WP`jT6|FSnueBl-$I~7*WH0=k(qz_Ooqa7-Woq#X4dw#28If zowF5=b`3L^gd3UDZr9gH)7odzhJ4|NK9tT-5wfr|lq1xc0PCm`tX{(!2y zhXDgsh>N7Nqz?!Yxe*FzMh?b|$UO{2_{vCtUqrHm%0yqsK`eT39n2ydaJuh%*ik)3 zP8@1ogLEyH65cxIY!Gw=^IIi}YC}&_A+I2Qnq<4VbWW8koY>By*DabI`lJWnQOiw1 z&9|Aq8W7UMF5S@bn^UsKF~I>S%^9KMoE0PyiLi>m%!U296<%pLUpXfAIh2me0}|8A z6H)AxEWlqS?K|8{CfmsEP+Fz9*n>_=(ESFaH9QlyHasd=!AWOo?VWj!3#NSG6tzJ; zBD#MnnFun+%k>?@HTO+>pYXOZ+BjNYBwAfkZ8M(oCm|Kt@(m;>! z=Zh^(7B{@Mr@u@eI}S zqrS%n2PI#oW~Q<35+GS0Gq*JFeZ62KwMjtIzv2Z(Huu5FUD|br4eI}Zs%~>DMSlMM z!Z{$vMj4@Ts=CM};Zpo}bSXnWLvs**gCcVG0uRgqA3MvRy_1LUMQYR6bLqV3K1RfU z{j~y`Iw;8T6-6vDkSC7)ldc}2I^=!*~ti+Ht@Oc8fiT7cAL&1VjEI<WL>Pa;iMmKy(@~S?^c(Dczh^;`cL3Zk*nx4WRtfTj$XB7Iqn? zq$WG6=7f=3a6rdgh^;wQbm2cUg8Y`0E2mtWqBkOH_?qptaUqDj{zA-;XQw zmAxWE(1*8$@bjlmk3?#hn9Mq-0;XX;m=!{5Hq^zIx8AWJ8<}qGXC7|QQ!Q5JakwyK z(QK>-&%?ZquRK{G>!uddEpedmkmUthB0#ZXjYV?#X=ZUw2x%iR&UDV!X0@REdMxI0 zGZzoyC=!pvL@%)Qqk&raFm|S_J60FwAtLL+%f{Vnb2ays)Ys1<24I)9PhN)(7+Er2 z)T}qSGv7ij(Uz1pC-gqE-RhJSGgdV5H>K#>PxT3b4Gv=85>rD1LcaCqZka-kIGb_5 zM)b)2C};i-t2`|<=&#g08}Lx?vT=}?3_|a;^^0C*2|Huj_s(llIbUu?e%rW@b@TPz zM+Na{Y0&s<9e*8IK;Uke1Id5RI>dTmW4C|azYA?RC4>3D?%5lq(^lL2lNKIum z{GEl~(6~%nbvK|t!VD|&P7#G3{@*^ZNqMEQ)7`ttmpxOdhb#g{h-oh_(?#@m2MqBo z)>m>Z50IDF8!ydsgBnnjNk>Ugb%v1o9D|NJ{PSV>YWJO|#+s(`rxSpkP+B5tcom2j|-;@|> z{Jgg6Cz6#059O9|-(K8;e?S#ZyL;ClT;wl)z78)iclvf!6*SJ8p&KuQ`>P`2!<|D^ z4t-%OfhOo=UDbu`g6NygjbZEMJiJe$z5ht*M^$ckbFjdEX9hZ$UcV*(yKE6~U?RrC zej$+C&Lde7e-RMu+nO*?$suD@A|Km8@Cbk*{f2w73-tP8H3L%N?N$vZ@jrb}Lsw0o z&*u&;Z`95=5Xd;;-q=YE<;X?4>>I`=NkUUW5>&K_YVAg04^-b?QypVqYhf7f5p*Wy zZ54~fkkCTYI+nfhGT=C7DczPPHB^}t1r6g7bk4^0#b4S2y($4-Ooi~9=bzvu5R@NJ zmbFlK{IV1*R7H=@CpTwSmFnub=m=s@tDtzfJ|33K0_<>{x*k%VQ|(}ii#wO!-~IX8 z!pQc|yJBt(8&Y!W16W5r{e64*AMn&>z*^pF4ZyMz=#Qn;O#SHZ)Pnly3*U<17~Q~K zuSBiA;r@n+%~L$z^s^C;Vn?Xc$VBNFKe7WkYT$6 zA!ECJyYTCK2zc?*Y(W9U#Annfh1lYffntpf1WlrThBuO^`~5SV3sqdxduT(Zi6BdB z{=4#>OL4s~x0)Wl!c=9dx;g+tw#3-)6IE4Q5?N$#cj$zj=QTZJZs75$w>}u^gd*?^ zn{2ZxcS7n$H(9|haU^4N6Wi~*iS!)6lLX^2yH(G%I2_c#OByKBdT&hpwf&g2Js=au zL&S+>uwdRk!Y7C+?pCH{tTwH+SN!+{w7{7F!otg%Mf7?l{o@Z5nMSQ!OswMrAJT$hiflCg*JN?D&TE;XC8rVJUlwsrIjR@k(Q6h;URwVm)ZNBAQ) zdndy|T<$Q__(j*92HYT-D~+FrzG!RZV_9-FGpFvbM!>Q9a(qg>b}QHtmcOfOF+yzC za|*QKL?~lI%-jp~F2XBvbCXW@_xC7hZ|?nDhn|q&AR1%w`Jg5|BMK|7va~TW`|^Q; z44wiZEPx!6gmQK zId_QRyLAK-C^cb*i4~Jfm!JKk_}V!s8{;MqM76bUE^n;gW9ymBE&;WD|H9&DDAL9n zitYQB9M?mD(D4b%*pjv2F4kJd^DqM+?B(c79^8wMJ~7MR;jQIp2)}$)uA0AT=yym?RyhHcn>WYjE|{oF!#vBpx#2C? zl*&C!f%-zqOyKrcSkce9bKR`GLOKX-M{$lHn28u{ew4ei(yKO){26s zL$QSu0bu@lWpla42AEGGiezhR`+rC}7e}V|KmPyDNlZ2-x#q5@bXhfWNDN)XMi@n` zl~d;4IW9G^!{(B1E?uOA!Wc8vhKL=L;+*O$YoX>P3`~2She*FQJkL~k* zy`Qh=^YQ%h?Z7kAKM@h3i6-JVyGu%1;}$@iR1Y8Q0)KxsnH4J5>~@Q=au}o`_`k&M zTPZ_ZzS-lM`Ni0jwLC6#-eZ-{6B${PwceSdADY^|+SqH5Nu-rW!#4A-71#Y*wQjd} z7MJ@s=J_vMC?^xfZEu`+7nGrHI#>yn1_*)op2p4xo7!u~YU*}(VvQ%dE1sh4$l`%7Bdx}^Bq0tK>s>p!Gj}e{u@L*z0o^-L9-}(`+~`IRls_zC zwLSlvv7~O+140zt3hW+#6v)phGSSZcy6np{m(ZKw6+aVE<*p;M78uDCb8F+u!W6x0 z4|m#U+vNUs&=4?1P|2Y+N>F_=%e)&o#bg-a#_#dJKm5tbvA!b2V7`H)Hwg}+6CS7% zGV-xMKOtJ&a3K2!&JD9dJQ_<_;!+rzaEvEzCRGm6tg81_(1|%s3-Kk+e!2rR+uH7^ z5GXb!(wCR2(OVQoN}1m#@O3ZS=B$weJ5O*L=7CY;g5wdhiL4sd7;(!|m$J#kZ~XPP z?`*SEi4QRY$cDHsVh*?BXn(?9_~`cXAzz*@mpvL^UfGGzqr;s|xEFY2E6MxGu`3{; zytC(`GyTLZx^@EkX0nrd0RRHV@VY^j-Dm7a%g;KIGguGNSVUjIk~?zPk8DX}SB4MaRq)GF96@L>$Q8^fFs-e-3i23+#dYytZX zb)3l(q|t$vm~?ek!gc7ffURZCL+#AM$Tg+jCVjLXLqnTQV=3Ng+GPm*ota|pchQSx z!j$6V1@1#xN6nYcRVKyAbJyGZ`vOt1<@@z13it-xwV{lK9&?OOj6wz)26*3%V7D5;n_D2NKNzt3Fj6q+$mKgK%ip>8D|?_$^`*-;>faS}bo)t72} z7)eXy6g^V3^m8(Cg|DRX%~~i%;8xL*4iJZREB8?wVDPP?avc6_gD7lQ^pk6K{ zhguP?ftNQnRU@`q#dkO(OEj7I5Eu%JDkE)Df|ocj4_?*bN;!N;!PnkUL%lJFPlM3* zE3Yul%{tJlCk!pGg9D_5V_pK5<>hkH}ZDjp(6D{D} zj;wS)k7C*e*f|TPSHQhX@1b-KgUOvOB*)Hm2$#3`5bxCZu*cV~$sfhgV{>&)bR4}< zFHZOl==Ef`hMkT-PzSC?Ln%3vkm~uiwCtwm+9Q<4Bm~Nrr-wY&Y|G5?n9HZZn~t|( zKysb<3(RW>NcenpYb@U86y#}^21!FEr)xN~zpOoRq9jj^1y(ahC;qYgCX)j-k9HSP z`B*^s3G!pjXwGVSHJWh6Lt(DFsRwv%Hz6tU^Ev zgTf25;Mum-O}BK{7#oBF<32S*KB&X1_~_`F$?aEwKp6hj zmOHib<>6P$z-h9!nw7|z;p+3Jfl2|Uo)QI=H`jp8265WwTW}n4>I{_F3CxcHIhr$p;~`8Y>tpO+p+Lm{J`Zf_{1=OO`Pc4G9$60B)6dC6$TAy9> zdHwy=Dg~q@Cy?`)^s(+AGgki1kU5K(NR8x$*{NQ($jb1YO-v`8Svnb{YaX*xTT^rk zzA5Q`L4y0>VfNPPviY{nd4sEl!0q(2%i#JF(oA4hrBU`7dMs_^a42mbf2J+;c&mt* z;ph}`+wB0SaOEN&%q1v4&&Wyrpzw&m^>-MrnV7sH~);FCiAKUdi(AHP$*xN7S-i~_poJ$(Z`Jx{6!TN+yhTQmv zv!%IlVaCa2m!HtwB0<53^?cv!cKs8gq{;we!{1=ZAKG;C(c??p-`1BaHa$UY1eEpR zaiFsjLcBuCe}b?5umZM!8QXeATG`i@UoO6R@%C;4&1!KTeuu_-pi^6E7u^(A{`zbc zFg7|Hs1nK+66<|J=V2%XEcW}yB*%2IE^NIhBPW^Yg|Ae&)l3ACZ{?Y4zHo;8pyBh#A9bg;~EN~ zEZM<`EiPJfi+yl`nob4vP2&o2lJn2){mi+pb+szoP!3lGH7XXC-a^v(>hbgYaFaR( zh`KHcw-3K#Ic^8sr!ZGD&?jO*joXwA%E`=mrB#B>w{t-(?G5N$*}|{Ifj!x=M{^9J zuh00#ivE)KP|Fh|=9C5k8yx8b$#dBSqbFiyXX3dI4>36SGFQ#Ztt{+SP5GQqO(pgl zuOUkk)3giRMd)Obg4EF^YI^!)ZC?+hoRYe38_?}Bik*_EEDrbO#{XGiOqd$$-yatY zc9G&#Zl9NQ>6E%qh7cD9Z${DFYk(NZgWpSRS;sYK#@wWN7V7xXq7jP+vb8-Ylu4(T zBkjJQ7Jj4ke2{C#LW*NWOM|1yXMi3>Y9^KMzwGFZPm2wFcg*4T$rmeVyrd-BL5r-_ zuwBCMKK^^`+BG&z#?&pZ^JJ$$Hu&#BY1$gUt z5@K{4>hEUj?~-^cG^)Yg1KZZO@*?wep`0ex3)AL^d7d@c^PqeuMjK<260G3&GaS8L z$PbW}qiP$IGwJF4RVEDrpK(cc!#?WHqr1N1SHHj~J6~e5^6uR7NhxHzb$aRp9ZT#D zj+N5yr^|j@!IqU5?UR|4Q~D|kISt;bq)!&xuEwb~Q72vd!U>Cunj*8c)}g+9qT8Z{ zzl$T6g#mR?oz`yp3)WJ!Smo{ZW__Htsqck)Y~$Q-^2tiw*LBdvaD**^@j z)(&50A7UhfAuw{bnFU*L2)=dv^R{^Ybai%)>c0SW47OofbSRL{7U(ty1Z4FHyC$Gd z)-?Z+j-Kedzl!h-EjN3@1z~XE81KniTazVPKz5^wAWI!RHrdoukvDQF_p&fZ*fZ8K z*xY2YW})8AZ}(P+Y*`nez*&2RblhOgNTqa;#3)_r+)Kk9x2GcVx))f>>Extl%oHp8 z;a;&TMj~Dq1t-lwfwA#@Xpt-K$ic}X`fD^dHFWZ*qtV^NSR&1VX5ql3gyGAdeZS#5 zyU#AMvp4mHc_-6-btu(<@gMl`>@8$|+s-baY}fRuw2U`%yc9Yj3k`QzxNmI5P>mCF zLH+Pd0vW?*589wP$NQkPdF~_>H(xc;Wep;jaOb3?`$Z-=FjkG02qG>E z&YaAxWg>Pv*Q3!MR2>V<_*jZA5*ohp-4&6NwNWqG*?cs98F`^ZdP#3;@cl*mj2gc0 z-*0IFaW~>>iZ-Avg5ogcKl{0FOmgz|#neqT?X`Ui=CwHpM8*OFVuHqBJ9y2H|2Xe@ z51EZkOm5kpPkkihJ$X=UQ*krMxquJb{dqaQ%Uil?mhhpY(K11{+XN49UbvH$-r5L; z`*U3(!V%j33!$BxnzE3k_f}=4BSi=dVE$ zI_BF}%R9B38}9!Dueg<@;7b`}ED}}c!ZPJ`{*!aYKkI)ePZ)3;bO{kowaPry74+VQ zNoVP%_m+jP9CRGN?b?>#;4VkMop@C2E=+h{S04ixa(hGq9Tx3Gvh)-tstzSb>truu$h3@=Xf7o%OQB$ zK)CPgwelp@Y>19;VIuG=FS6pGu|otftu`q74^8XDMPO6rmU?Du~)RxKr6)1j*?@T(m#YfWYHl?UIz@+#>p- z@MGBZRk6Ez)inz)^NQnMFIH}R@}dOhh1S!t*hJ&&yVqi8NJ=t*9JDOI+JKD~5NVZ- zDS%0M)SC78rBR}fV#?%sO`SmRS3Wf6#DV%AJ`X#8o15VpJMj03&XeN!j3n}d(_!iz-}Zx~rs zn7JEyonx3ua~9Shf+JrE95b>+VZkP26o&O$gTzb~ zj`j;S$a(tHSUDH3{CH(2AB(=x9A`gg_>QCPo$OP~()J{_p<0PXUyfdt9~3nb+WPp} zfN{Olm9zE?=FG8r5m^n&<{r9b-)XmsH0ih#EtPnyT&R`|Phx*G>| zu6evG(0vwXH3;kzv)|sn>S&8(#lS3Zxh0qTTi&NvBTi*LIEO4*wEGlu$l}hEy?*4` z0y0PxBD_L-5U5AGse9V~4J58u3(NSt^?oZ1Paf+nx_#E;nJDI+f<#(HC^>k|(c7Qd zdgyAQ9k|_p|Dz@Jg9Fk;$L#&lOO7kTiXWfz#w=5=zBy@k1_Ny@IC>3A(y=tP#l5@) z<*5E8x3>pZuId``ZCnBS?ahCiPB;XZvMp3Kv!SO#{r8hUSM>1*DD{rOyW95pLsq@988WNA1CaEm z(`_`4@B1~YUJtXI^BS35q{^x$BI%BwwxD@4PUQ7J_4E`CbWNqi%`Yoj4nH>rr^Y}& z0_LcHX@x#(#0!4m4CcpD$j@k1%a|4UL+h_l(HULjxm5UoX1=B{GVq7|QWs8_AWHBYOcR9^tJkT(`&X2ieMR5X!qZIL^JI zqKhdGi+6l4wmXYhVb%wbqZTkXQAbt$Fb_cu!SQkGD#&l3!>VaM4jR&4DS4!vZiz$@KRy_CX=+!bzlF|D|qbEzo_~Tl_&Oj+W+n6#m z#iYBfoM8~Y?YNW+EoZ2w8Th^H9YSJa^&!4rq=`0G2uMj=4Y&BCW9Zy=_X{7Dw{dzpr1k!ZYw4ThVK6At>U^>5J zgrpN-D8yMD!N)&28h-q$Ucl}_@Jr}Dn?~(`ziEg%_0IRaQtU?FJA;sTaYGiTvRt8O;&Z5ZV4Bj-bLXp0lHaHR|I75U zy^=(^_PV2lYyh?uR&Z3@!ZoRoVk03;WKy8JuHQXbZ?0^wduSln_;6CP1pH)sVkx~c z9aHPvx9N9IQNqT75M6^3oW<__7!>}k z482KZXUA*mI!sUmoF;sKnY*ojeqM(6!Q(McKOduFo2bF1(t0HCTY1EQu^^K>;$PVt zgLM~pY7+TJ;7**7ySudW`QdC$s*P0JrfK|#Y-m+CiiSH2qB?#k8vFnK^{X%KoykwP z@0e<*OfKb2QLstco-=W3iCP%*JWwObRjSg*QPdMU2t8y$VsCeR+ZLMBrwe!gpiy;r zS^)wLmheP95t#v9S?a81P%wMcF%id=8I0PDuJ*w-V<}+XB!c17rp1@`M>DFr3FgMj zG6}&AC1(Qlk&i`{yt_%OCVE8-DYQaU({KB-6yg3_r0x3C^P;2@%G364x9>O9$(Vx+%?;rRQBy7u9FOaI@rI8xh( z|IOstJ`PlK@OCq3H4skXgzPE+B`TP=upfSF|MvNW<)DAq(Je9+S$I?4as`5jcUZk0 z^}1BdeQEAzAcab%gp*|*=CRva$2;ZOxlLdkpsihF@)%W}5O8#VRz=~$KR1tp;T;lj zRABTz9RYJgWESP-rzH1$4QC8@=2B^P zQ_XHN*1_QMt!vb*s$l1R|M}^{qVm29*CbLUp`>y!+{+?&2tmuHLR=OX(9*+b+hb(j z7riCSv^hI(uB>j*vF^SmR}d6x5bP24Y>Hi;Xkv+?_%Dh}uP4&t3-CKUlc3^8($@`@ zbKJ!vjn9aSwmwU@)3RE7N4{F*>Yp-QBM(oIZKc~Jc@^!&{G4QGG~N%}5$xyT=kZ5A zqwsq78b)^b<4C^i=D96(5QgP)Hp%qQ{8sLwAKULa+js-qq{$RLwr(+`z4GtFN6F6K znslmTUGW?1{}t*N`a&SpiUy!F2~qNaVb)JA#ij-wlB`&V3@wx;jaf7x%Z3)V{^)kdEtzVeXPTywfw{GTq|UeWW)Wu50)FXDAu z6KV(sd=8hL_j%;7irdTE5)F8us7Uh2uhYhRd3Yi?yhoRF|E9@;C{o#R3F%z8@(2LOFkY zdZ}w<74)G_@;e)lDjM(Ibsqq*i$DC2{fSN90DMu%^MuAXyW+~O09W0|jtle|qe%Bn zwb~=AjvtQS9(bDjdE0~g#!gP9{>bG$$Rs<5{UahW*>LgNChs}p0g=iaDr-)n1^Ga!LYY=HJm&nbPw<|q@rJaWmiLeIjPx15 zt!Ljdl(-A=xw+bEgwf}WAUvadhZFLhjAso+G zWQ16Fkh5@}A^u>T%i^{huhpD;_wM>beTw|knD$oWX8U(`dMP=tUE)K-f_H)ok{h|= zVom32oaJ^&X3~2lB!q-vfgsI4*A=^ooYSaEno5p9&nWyu0-l!}?c47dus{9Ya&{ojSr5IOg6J!MwsT;~{1mzq@#FIDOWPulehbOZ0jXTVRx z&Ci~O+s`ZXIsHsOx(IH9n-@fBxXaOm!Wh2O^quOIn<9}FG1Vdh_<)J1Tfm{OUtrwP zqgjD2FkhMj6-rkSpUb2ixq>Xra-FM%WZQaAKshYcH1HNUB@X?Z9BMCPkd2Kkl>h#E z-}Z&m#{?TxXz-dHnDYKt9-LS&w#RXEmin1g0+1WF$04qAr;O5jiK>5K`yUhZ4jx-F z8|n9woBSZQIJ&cE2kXIT2!p;r#nW**Oa3t0y3DY0`TnQ!jk@#KP_$Vnf2( zLvh1Y#$8)r=fVxY-($Z?WyC46MEi#Xn}=ix!HFz&GGE{d@$z85J)W;evx7P0eYXG0 z{>GE|sT2!q>TNICB5pF+8F|iwoGp?n-)j7{+7bF9#GRrj2h$n1bXO-b3#qUj9y(Uw zfnXl(+GOu%GtDa>Bo$)0Gu<;P#nOP*oF5|8EZ$NQ)G=kJx6=TD(rT*dEVAEhubqow zexW`n^fm|d0*ITj-!4fxm8agR0T5@bF10ugye^Hizpgpw(gfuQWa|l@C4gx<-A&XM z{C9y5aUv~MyifsJOe@euq7k|#`v181nA~ru{>KU-?^AGF=d`O7GVQlfZV>PL%lTV7 zdk;tq>K9? zv3C@nC5PzK)kKfe!J*hjMBtk+JkAQlV^mDh$PE&p(<~kD7iX)IvQz4x0-i{-jjrhm zeVT`eSO^KTTjQ1qAjA&? zfXD=v0^8rgl^04NC@n}K{D)eK(XEQSF&hP(m1~KG3JzbEC}T_IJu+1`Liq+q-O}B2 z+`KR20hHAXUtD;Pvodr7JyjSwg5^_EiYSySf(3E&t*7Xx>J{(XuQEB|yI1Yt}qfSYKqEn1A7J8aryOBY&f% z>uy`Bf&cvSV07^YLg9Sv6C3CQ`{a%kGvW73$EaU~57rwGQ!VoiXy=nRDde+{jDHFo z(%Ay*b~aIjcU%=HGs5^F+6~VmEbS)$z zlhKlBoZSrcMH`)YK~vMRD)ae{0{i1udb@RWc%%X{eADOiw6lgrYWCbBlqrgy(Q=2K ziEDQF)}#C^Ff8-s_ynMzJnk(<;Cq*$sF?{l)KC#NW^uMmpaPxosC-dV^*LJ6Jnw+F z-V`tlv-#(l)YOh z!ck4J78=G3WtbPMdby<=jO zbKNn@Z`a5UF9YrY))+cC%Strm8b1}Dr#9^cPABO+*Cop76a;;{GB3sPrODgAfM%V_ zmk?_I%5}Q%r^#7W*h3rc9y+i~$ULyRq{#YBA*O*be86#EK&K(-8N9v8X0G*7vEZ~ICvKSY$W`6v zMc~T%yeX2&ADm+AaAfE8<|0td(fqBv>Cn~pumXEjXFclnEuM?Gs0vHPbS>6e9aI;Y zstGEH4KqGErj><<^iduv=t)i0;E+{@AatotIU9LN#?Z+K7@mf*cXaqktb1oOG|ANthYF9`3>%%Em6 z?g#rfQ90}ZlX~NWclKuZkNO91yX)Us9Thkg)5Hpb1Q~Lif`I2tXw{lT>z#@=H2N*? zM+5;JHq53qmjTu8n$+#?npx!RrvOt?-f%h1PSOXM2ns++R6yU%Sdd2Z=B^r_H7>Yl zpB#?O`G3uUo@Dx`n$CcdbbhZQ#82RT{5}|nzMJ>$0X*3kJ_fl>X4a=8m;eROJ9e|g zIZYhhhq+Pj+DL3tJ)I29;4Tx!=OOKBpKMLJLF?h94gq?i$PA8ZcKc!VMlUs-=raMR zM~+-&msQKmRY6*_`Kg$RQ*~7J1QDE7SiM9hdSn4}ZCkSIN*LNMkCWBacBynx6Rrsq zC}(mBO44(_fW;)D4L3MzhwstB?%|S=Ts?z_bYx-k(5f_bA3jpzBd!JaA)rQ{n63;3 zms zPM!QBI(lg}{}OmQp~v+nu)w-t4}JE6xT8lYkRmeSR#Z$-Z)r(}O*E-u1mO+Md~>K> zyi>zX?aShU??9(1sDxY+6&4{&E~qqINc%uLozOR@kh1})8%b(&J~)~X5JA%V+ot3| zD)}j?K@xlmeJwyYb;Mu;yB&;K-#+cBg&^}#L6Mm|3PTgne;{cudq1bhpiUfD*+eDj zI-ud^Y&ddf%Asuc#Q}=#CGIz7VAet^sJR?hSx1y5@45ubA3|-`}hDb$LpQ^jH z8{}I}*Z{~4?4A3Q%vxyHdHPKjL49Z^c(N;pNMs?<&&!Y{&e401q}4A_i>iBlM?px> zo$584<;NW-d6aZq*uLq(b!+>Ky%E69^6plJ7&?MFF>XqJf4yg4*dM%ob-%?EyDHBg zJe)X(%xfi&xvgqv1CjdluykVaw_pvFSC1TRv=_p#zUre~D8D zee>Ai8<+nMB;fJSxUVa8VNZ{SA1ZrO=d)&DPtlr9j43F@-E6tq>HE zybrJpzNrR(^-Y&bCEsmH!k*7hBOE9@gXJz-nkUvm8SvUq zyD-XZ!Z`GydHbfZnQuod+fe#fjp2I)VUTduw6=$w%Kb)K&sI!5yl8QQv$G805kPi9)wflL_nXV0b{F-1mU z{bzUt3v1l$$`<6bOjA8}ysL)Sy)+5@SaJw24 z#P3VK3@=;#zZIsvw}o`WUQz)-PQ9J*iE~XNYd)7;dCSGA6)KfVN|{MtCOMm6IO+U$sJ*bsa>rI% zE^S7^iH+3k8-yaqDz++!vdR-LYpCeH_=&8R}` zAcnU3N6Ka`u+^r2LIJ#3Ku*h%myaH-gWX19TA4&WCO-e);SCN%uR)jk4ZnRG`DOc_8+ewQ6ib1^GASB& zg;a5K_y1%OF2@QfSTtD4TOl~uz{BD3p#bPGcYkvZXsfsoF}8rEXb%`b^IQca)IeQv ztsT59(Scu13k!j}0s37x(Y}YqUwUKyv!N9^uf~Nbg;qiLu~3`>8lO*SXJyI^F@_*$ zOfzYkz8a+}cl0a?wVp6GgISRiZXY`L$-^V-R#KFj-$;N6+FkPArO8>%GQIw;8O>IdnLa!7^>iSwD@`byP(1xbK!!#Lix5GE{;Zi|q))uNSE|n; z(s;VC?7Ul{R1gs60yD}Mxv}Drh(M{E-t(Ad2 zdA!7!o>}_Uzi6bar5n>jmW+L(fTI_xFyVYFga~rsQBOAiI1fP+PXk$eO-*t-&(@Aa zkC~#gxCd{58q>9Wd`=qEj2H>cbWIGWs+JBXFXvohrtwYX1T4SlAshFIKeble1%gBTy8 z@#Q4IUDk05X|TYzJ=4y2N!u(!I)V65pohqz|LTi#+?BUy91`?!dO{EkxbqYHQ6jOt z8(d3`%@H04`-@piS3OH%XhR1bz9D$;(Do}1Ee<(X>pn9LqQ-$Q#I)q}D5mZ;3hS3X zT2k6HwLXb(wm2;H(qRUozrOrWdm^l)Wb{%h8nl`tU{VpyIvr$Q4R#a{(QPDbPx1Lv zsF93=LxsFwTm9EN>R8=0EF^P!jLs)+v|Y}|MK|n7^$qiI>7T=L_KhGvPDejnRX86^ zgj`>k%znPTv8w49#(E>%|1FO)xJ>k{X^rPtpMRRM=8BGmGd-Wb0Irp`@r+ZXRr__a zb8tfu%!h}!p4{M&fJWhCF!c$$ckCOcSvxOa^{g1@D$X;d+VkE&NYam~>#w(vHQL5x ze=*G07ZejU+uufnCL)vOB_1Stq;mPuM9w($Xq^s;scY&-`{p%r)Y@jCG7~d_)uSiP zS&5j7pG%Ka`T5#MES2v%SM$ir#V=PkP~u*Yt+MLp;J>Z75P}KBJIp@dn|`;ST}}Js z*E|?nj~;aP#dJ-^s2cj9Mx`Kn`FcX_k+uj+ogi%%w&piqM?F$|bpmJv{7ud$R^-Hb zhFq2qW*iL_hxz?S8u#fhV;=7!jD*tOSs;-pTrFevomJg{eJyD$+gMwfOOcjNEw#L5 zynT>X`9FTl9aEno2D~c1zW4^k(9%KCniDsb>u>N($kmQqlx}_(G{EB__<1))x*oLA z3?8hevta$1n4S>!LLuRE=GWUHSJVoy^Y|{hPThTZtr5JWh7;P^(;VOp$E>EAd+`hp zWZ7PIpW2n7%=4LhU~DQ|9ZW5fGAZL8Ax6+JbYmnF0vr!xs>_hcCIdD(%C_WRoI z>DIdTwyNsN);OWO7ys4$f_;@RN|W}wz-c?e_tBS#+aN215&I#~xJ{MZOsphUGaUBY zA2r{-`e*MU!noX!z8o~a_kUNCs)dFnbq_~Q0nii4*Z&BYvV%V=wAa}FWd6(iw52sw3nOK)wYmp#aFr~6gOA`l z?TD&h!6ocV*wYy&8BLNko;zyOaDQk!Y0^Lf$PXAuQ-L_>EB3;v2M^fGql)EHwE$Xz z45VbBckxwPT<0kt<-tMy1IMX4h^9$w^mnwQkMbq&zh4?QnC@w)*Lq3Z-?>R8XDw{| zG+o~|4^DTf=uAk%;gk{!>XOq3#dX8eBhkd2e-j`_%R0Z{jUIngxfFhw##y;oQI_Kr z-zj6zGDY$Zyj{5+wZo1-6_#c>=*$7XwQ;?%se)r)+*Ge?9uX+!VfhVnYN4wcKDLZhV}N15Yt5UBm#NcC`KU<4L#jIuCpG?6bSs7~O$E4i=4mw@}2D zYhq@fLi|@l3N=m?Ejzk(6lBDUOo++bfPxzGHPzJkiOWvfNw~Q_lBoCn+F)IcOOqyY zoWF{zHqsv4uFh?|AQgUG}2henBhK$Hsr-f~Lv#$B7?V%=sh*wq-ibcrJeo`B5@6m{si zXR0HG*roPUb9ZVcVj{d8j|GGuP9o|V8^>7{z>^E@aF%AnT@|twMX`k;@t-Y|`gfs8QKbO>JLtis#b{aJ$ zQz1qPGpb0@Y-BQKC6d_wR%j7ocU=aj6K$>OTGQs7PaYSD zCv5h}71H4gge)i*00LO**gV_Y7DrZoM2iqR>?I2Wu#&-5aI;#C@=CF)2!iO`E{&w9 zExbVA-3z`M-1HnB9ZLL#8p@=0KoicEq5s><1cB?ZEAUVZuY(WUy9mj@dcK8TefRG3 z_L0#OQj|15YjiytbYE_`{my`hW9b?`*@ftC^9ecTiL0Cf`*jdHrz zNHzIJE5*jd9H%0yV!9Iol7O7I1a-9n&+F)EU6^|d>!h`bfkG>nX;0;K2rh2dzkn6# z8n=K0O*_uV#~7TXB-RZ2@-HdWK}1KXOa zrHKOtG{fDd& z_3KnGR8Hq!yLm^~k)GQiHSy*5K69rdSkr$`z`QwO)#j#gPuHV!UOwj>2{vUbLq2r6 z{G4YuZg4o89-VzPt*N2jMwhzIsioql-+hZNEZPW$s$o|JFozF}Jl*%N2J&(>MF!-C zXYBK;umiBAgwbR$)<*xjU4&`X_MhB&yyD#r*wKImYK*>P=pxL$fSjFpi*<&dI(v}O zIC3=eqM7-kpaC~IGL0Ls@3WVnt@6ew_sg5vLq+WnS+D#l@V*)?UkDv3qf*!TkjZKE zC%H^%IpPl*yLPbnT#n~QcJk$WAUE^GiMG|_G|_F4gPM(ToLYS;JcCEvCDkyNx)we( zptokk`k$}4e zhBnHv=8%*m=-HGwM>v@6Wmz1fNp|#J5wR#rr1p7s3L*V1_a*-w#%f!mncwHa+%IfI zX68n{Zrq{kurT}fu|J04^vA4I$N4y}w7oXP`Nly%o2j>*=JN|B_j`rU-+pm^`+65d z!IZ!9^E4iFD(M04rjQLLMR%xa5nz~nuTF_ljvz$sCLcY?5bfo29Hc!sp5TZCbYva3 zN2~S(S>f8tvP{(3czH;i0^g-Iwt3gDZhJPR(bO{ZMXL7TuNGf@i%Y}_wpExWa1X67 zGRYx%=R&y>RW@ag!K5eEbrZB*>ZB=U+n%2G{Z5B|cJQ#RU5+m+-$N{)vghOY0%Zu{ zE;8fO;8Gt0;xOt;rBzFfhl&QW4#nse)IR`T{&Sj`_ zD@|-yvyy_83VFnxzC9SEz};axHjG%XjF)VAF!emY!1O1?iZ=9w{m7?-VjUZo$xm+m zKFs!pV|Y!PEQ8_oJQh;nWesZhmiyLg*C128@WrHhD?w^h4C-e6x|WVd9>hX{p!rHO zV8)L@BM2yW3X=3_SXbU(M5g#B!JYLh-saOBoy0o=9{<%QG~X%y-%1zVpWw*E2U&yL z!a_fJf!~nyoBg)DnhAnRd!wH#8|xR1->rt5@dj~VA=kJ)J+|h;NlTBW{1+?!PZx8f zAGg7UoXu4{z7Yf!5M+4ASjvo?!qTLKhf+0+bY6V`-PjUUBFp^RaM7}^!Q$99>6ri~ z4Vl3~D6XiV(ZDlQFREiW>>CgNW8V)-4#m`wg#3-*hTyN?eJLdiL(}nURaSNmcLglm z=F5v&bk-baW^uorV)~&??k}Fo83dEm?JF)aSL@Tje{hBnf0_e#Hem-2R{rsix4RX2 zjNNO>9r?*e3M+*)D?e%^TCTjvlsyT;03kFd!0 zIg_HA`h@*VsHuvg0>x|))H^3|H-kz~5IY{DekgY-=T46dR=nWnFh^TYu;j1vY^#+O zSE>k8ziRsOgmG4ZlO&Q0qK>C~5D6|x0V5mNO&shP&5=QVT?~3l^VZf}x*=bof0kP; zQ_f3w41>F9$UdnJ-{lqWRw_{ddp7nZX6ZIBM%hHb{G{W6$-))lAu!`tvW`# z(|L#B&d&nby*fP0lYfQs7Vgx3Z#Eb&i)*;|86O@K3z(>?j>MsTFx1el-|XK~vB)pR z#tAvt%LmNQZHsX^;+jo#QT1ZI(llq@AFnJL^3sovj{+<)lx$NsVjECj9i1?m zf;!%Px(%m;s^hw3g()R^?ba!a7g{b2`Ne0Ml)MuyQT?_>gUTDbj{0)n`a$m#6ya@Q@ZDIHiB zjL+(uuGcVQ->{(s2~@0^H?;dcxbc;3c~gwPUs3J%;SSI}k9k@Pd9{T(JAkX+@y%Q1 z>Qx5M@_lKd!`Gxda;>ALL;FuA^tgSr^gXvBvc-G#MNr_; zrx*ArsqEL&vC`q^qd#0g#VholY_)t*jE1k|4~CZS{`>Kk!J<1%3Q6>4ltTLk^Y#iu zpF&KguI}nlG_ot*CkmKK8;RzgAwF;1|h<>?fLFf6n+h|dAMCA;= zZ%hrHvscB{ek}_dEeqdyU=(%IKw0QninCrg_9souAEh|N7PSL< zIquT=6=VaE^okHO_$Zb%upHVOd8->mO-bcHI2~l(&W(LkEbP3f$(~vKM?lra@df=Y z;UQDL}J$}0~ZPmwa|gCnMc)7Z`6@pcpW2t@Rm=XqtPWF z&u#SBPDIrowmtJ;_laK@^^K1JWpK( zzaV~(UkcOPuyXhq4QAu@Z3D4S^SjWKVE)3zIl2s_nyC6+xw;|I24ceu9gID;(tK5}UG z%e}2A|995@Jw|+G9C!8@7ZSBq{qNuK=L9wIL#7}+lKo3k@?;)B&=PuiyoA3*?EsAu zz77QiNP+8FuZ*Q_i;CuLHU1iwlAz5?(-fWL^r&G;NZ{VTMI4}kW#pAGHqstI8j7L2 z{@*tImL-w&NC_90DfoGA>F?$cq{?nAm;B)zfr-?r-HMKaoHh%F?$*p#PX3dFIf zA*GO>EqrB7D4k)YKs`Hqmd1HQ=uzT^_(S~l#2>dtGEKItwGyONC3=Q7V=AK%?Y;u# z_iOQ|7fm!tJT*E9k&BQ~U!FudsIx;v zza-w$$vMFh3ZX)P2#|iukwWvc*1_T6d;vZfO?x5m#{kzW_pV1@hFr~s5=j40Z==Nn z;zGr~BI|&-lEb-K>dHd7YO?Kh+Xp^#uE|XnX{ip0kfmB%Y{1Y{@aX5Bx}n#S+3w5Y zR8EY1%5!X?i;+a1{Kvh$7y)pdf<6(DVE->=ZvqeH`o<5Rqrr@I#*(FxStO~LP>l#P zhM|x`q{M_GEe1sk&WypN8nmiZl%hH!M<*#chN5yDk(3sDvM<>pGw<~bopXM__xJuk z|Myli&pgllJkPyd+xNQe`)0<@SY_@TYdlGhz3c1o$i05FK0(DF!)x-{W~VZhy}3X3 z6+RZcuRd6K z`0e(Kg+XI^{dpg_a$6l%aYJ?;fWgr1I{lULEA^<^a*O;N3tCy9`<|rk3d*C+3QMPg z3+qNNt^b|K6DqaBtR1#vg35`g^{jY#_C}jH=aN_%Eaiy-rNr#%G9BxLbqzAE^zgSQ z^|Te#i0^5KVT!rmMI0_;qLruRe3mQY2QqWFT6&^$DSgGSjEHezd;&vCeEX?k#3k0| zyP8{f-#G2r=eFZ~Kd;YFlTgN+iMKsjzPz>^Ma}{DnzZr=zh`D>tg`!V@$PjOq|mm; zsZJ2@miY5AM)2vwuSQmxwz^Ols#WedeWS_KVJJ+F;o;ysee0<^h1f7$(;~IF@vEWF zWt_N?uxDvTzon)jYhGgT7wS=;kl67|kBAnbclT*hy|ab4)Aqs9e)(-#$_GWId5++~ zX`aD7UR#(OeMsjh!DY8~X@BU|zP}Vd>eqd5sy6O9;n`L@=%TCCIOvPH-8>GfX#0wu zyz90Q;ynk(giYg5BV&_xq=BQiUcOZZGws-ST+Z#z{XTsxB@UAgj^6{01EAu9OS`Hb zBA&(HcBd&nrg!ctz;+F*X$mfE z{@K2F%+6*Mlr(-)h`aW8)kgLw3bi;# zDbDq~cKmsGW|M92jgai!kD{7gCT1c<2XVb)u_3v?t`zCqO(;dFou`Y(wu)by>>3+5 z7`knf�klo=@bBT%L7luY#)hYd$Y8_V%OQO;4j|eDm^B1dXAwW2VdRC#Zx#SVSQW zb^iNh?G(a_{s@nR?RHu@f}00!EpAiA!VZC_#J8Ik%X`esY#v*2_dqbL3FR4_sVjaI zda-w^tn7^Wi^lDlDTJ`}`K3+jQLrxU{T`K4@Yu3-ALq2=)P09M@2Phc51o7aD%W#L z^yCVf>pVU7U~Hkmpz~JYr$=wZ-F1(gDRKNG+wUHv?qpdGmo}^v*Ln2sBN+|KJt^2$ zMnfMg>1~?25gAq5n-nVK=@MvXwAr_>hvXVN-d2>)@w{uYRe86n$0OsnJ}WUxKKxM} z8FE9xSUad+W*y!*t15na`;guG?w(tPIaiKEHo9}!B9)e75g}&NW8&hxtonP+E%E+J zqFbBe^6!jIrS#spQOkf0jb(4=KaQP2sV{z`J<0IN7Umw##MPc6-!g8>*)V?U9$D}E zfqrk1d%5ZQ?%Z-TRoudvoD_FQFYfa>9I|pzUGKn~^Ra%PGg_-O=sk zsyBEvj(ITVldq1V&qVX8PWLZr{B7CFO-87Q?lh;Sk{qM=b)vIPF*QHY!#>#Kl1!g>g*dt3VRFq%edczl0+(99foQ-?9V&*F`Oe^nI9~H&jzb{^Ed`)+EspuYCeWui&lW)RY z({}N}MDNTzAM~`-{KmWx*6!UV+nn~W-OmfG#A46d(0!^s#Td`u&c95|$y#z)?AdK# z-`F#icfir)my6NykJ`B2UX7dUx;1Mji)y<^a<&8X)F4|B|5G!aIaqQ zAx8b^>u8TV9e#V_zFQ9phc+Ddnd+(cDo48=-#oi_5@N~xJADW9X8BdLEe7YjHk)zz z`TLB^(qC35%!tPJ_s{f-yL}Vxd5vY=T7KB^uy7q_QLQ_-*7ZaKdBoGlQ{Lm|e8Ys| znb|$#|NYP($09cy-ujBrvR9{;P#6(zL|XMc^@sdo+NF&u7xdzm)+VU(`4zS^Zd;s} zo?cWptcVWoxj6phN`%jc!?#}fWNQaJiF3PFn}4toC5=bVXe6+!dA#a zA*@CF z$Jp7Cu$qEAXcL^L!+G<$V-q+=N&)BHAU}2Pyc?2#h2*@Vu^Zd~lSXDUAvc)L9ZT+* zdxM+gmcOqc?^yLCn+ZH@wy;)KP+qSMJ9Y>9&lb{gFVxr6lwe|FCdmyMj9tU_`@023 zK-G<18TJHYNgg`E*gY^R0$M=w3|purv_d$+WW{We6^(7f_J{uO7TdHxf)x=6&sRk5 z{k!#%8DU0nXRme$!rZ2eg4j7f;1bFZS`t+z>k|H`RBUM*gkkqL|_;+{T_G? zBhY_;0Cc2N;J#fEK~S;TW=GyU*Zp!1$4+>Z?R!sAD3PtQ{&G(3WTV45^<9-2OI`gm ze_vVIpP?Ui?azCrTlabT=~}-#qqa3HA=Ab+^)>n1!X^8EugBQ0pOGznUmp=RF*>Tw z;{N_FqVC;5_G!(%cg737L#EeWTbe*h|Mk6iu<1+D@hhhn6wYvr8qXPcAJF(r6<#qG zE_*`=?)ntv@}c%T5o+>YABP$_MGhvuZ+#r=#ERbLxq zNi{W8ruZjIHMPBW&agWbv?3_wAg^oH-ZL`WYUm~_J8qMsMeM92GFRSL#!hlC9IKDW zs*ybuWcc&7w1Zuv(UH%NneR`=+VEFA=C6CM^H*!r3oqrfA8hff=5N<5uhXnCZ$5U~ zzO zH@@_K-bV3uPF}OF>Ca?NF>}3+LELbl!wGWN{%g0JY2Q}8KhOGh>_&jG$rk=hzUSQp zp278>eqTwK^SYY$R&Ler+~RjSoNv?|f$h)KCkZp=T~7zPemZ=m^Up!f?`s#XI{tI> zjC(@ZF8hkZA%1}f04Eru(6`8S&3=87x|g?e17=JW8_x_WkH=^-}hH6 z{||1-)4%8*S*l@7lGWR>;Lg(vo|fs0qQ9XUa3OMq>?G9gt)rj6zqm6K>KLa#(HYVz zoH~;`_S-MVPQOaAdBaIj_KY80)N`ku|LDul*RQ@6aVKm&9_MV>v}A2i%MPWEocBL% zn@*}aoF7D%x1JQHU)=UQXDimA{L`HZ+PQ_};qTOrnEq_GP^qKk=b{rI`QO(nwK@m< z9QR~f$VMwe0CJAR`jG`z~C=RS`Z z>|L@4`9|rRenHhF;nwXlo{zMC3Po`W>fBEvp;Dt+RS9b6DwdK@bFV(AF zN@M+gy0~BV>;Ebb!jOKvdX_i;U|hy-2X;hAxV3~e5sY0}dx7GA@Up-8fvv5hySqIr zYK|o+8hZu@AS_{}nHj;@AuxDXPz1r$6!@|+JvbuVH89L}|K8C3`w;HFf?#aBf6x9f zw@{WpJem=BFxWqk8OAyU{PPEAF*92Ux6VEsgu>og{=c5EeD>x8d-nl*MBark)wwbt z;$($HjQqz_{>`0!NW=eM->2EXt&JnLcPS}E1!~KyW&?Fa7 z4agOt_3*vP9QO{-?-Qua{w3p{G5PJ}ii6CmVV%?wOXl&8C;=?nOD=$Xy5x$eC%(q# zUv@-2Ve-G7NY;R(WR0rf2!Ha^SG?`y&$y^!%JHYKP9)>LqMxud?b^Nwjd5SK7Q&T? zy_$A#(q{oPwa_&Qx72-+l8PSHAqVGBp2aoPrfG(kZFcR76YNrns+LjEwnz_KZH1u{ z&vgp?uP9LoZgG^C73=^r8$Q2{493*o=_GpY5Dtp?wfy6fpT`q2E!^A5MOA&t@shIR zk9W@2rW9HQioDP`wawBOsSuMt9I>5TUt^+j3D@vBzsk81AdXD4NlULe5oG-*zSU=4rZ8byh3v7yM^SA zgV1+6sclxIREmx)=?o+!{SvZ zNMD*L$3NqE(V9>}_%MA@@uM97;~S#A!4BEc)|tzCM$n(8LXmh`cpo0p74J>>+e%`sefGI{r&5o15V2e^Op8BcyL#^ zfK`pWRmohg3xDr96k(srk~fm}mwc@KbPmGvssiGII+XoWYRnbxRc(YnBXc=(#T8Y7 z0@}7PRQ_w-*@4v^AXnKoxSmi0SJlE+RQZLe!5=EW{V}|o86YR?ZkO|=< z=rB`aOOA=>%>C2DmFNPm4mAE=wYg>o#a#0`5 zikM=6chH_k=`bNyc%b?G(v+3bl~BcbDJuoGlxRNxcE`#}LPnVEy-9v)?zG4Bt9M+H z1H1+LSuI>(H~Si>x9KVTy{d&;aVdX5TWR1qEk$r6@#b2XZ2cqIaSxu#@wGg-HpOy* zEFo&Qz-HWB%5^ogK=&60BgP@Jjkaf1CE)m+NYM9JpY=p7`z z`DIWRw#M6}UNJER-nAPlQnj#hSr`f#j*u0)SzSP5H_vu)%5ynrXagh@G7dJvVLbdm znh6?74(T>%C3`qZB;(6d1+16&_Ox(w;!Au=r(mv<{z$#BbN!j(inN(4^6Q?!)=*>i zHUIJ127ab<=9MG?`+Ge8UX6JoG@hL7vM?7GGF}sxg)2o;BqIc235gb|0`^OMIl>q$ z5t{1yQH%@KNHNN}XeK=H|1*8(yroqwc?iP?@?M_3<#J6|_`?qfB~rS=zingvB@H}i z>5H~sv(#_d`_2x8e|^Swrl%agj^k}#Lo&bkPTN#U6Jc~rSu(dHbdAi9{0ifkiyYI3 zX!A-!`xB%%-d6&`$q5f|x*)=)W`v=f0qcJYvkp|s!on|W>aT4Z;uLSlzA@1VYq{R; zaqf}Y$*gM0D8d4N!Ur6E#?~ayGrn-$X)-IE{A@(_!n1_^)Z+!;3U{7h@Ou~S_|J;# znauO+SRor`@VOw7+Huh1jFH;`7fBXdqQGY8*|T$2UzP;UvnSs@cQoABSIpuWG%>ROnzkN#V+! z1WHVkmO3BYSHCjdwHkrKbZiCF^k)T}r3>H8eev**Y9QY#vPtHsg86dzQoX&|6$}Qq zxlo)Zvl}}=lP$%mlmz7@@&D9dUOz-%p~2KTAz(`3zV6&XzJNF5w?rsf|2=e%1&@cV zI8OrMapI3n)U42(KMnaWmPVKhumC7$yQCKVR42k03a5X^x+vHfb>-Fr;seup-!EaL zG_0^G_QiF3boGUt3-2(Lkrks0a*K}M6Ma0=ymdl6hOCdZ?2YAQ zLIeIlDc3cIxCN8fKM&?p`E_Oyj!dr38)_adKT zbG*mu#kmK3WCk?kn`r~R`WCl~Hk1!>o`_2}$rZm_+Q0WmeNm&kapQxABU8=pXN#xA zgFYc+_j^BzO1oj7*jud!);}7!>~Wy~h{v)!)?!waL%}KKt#4Mka(y2Sx=nhEdu|sG z&M4>({C+=iu;=29x~*rr&8EbBetu$JvT`Gy^2A!wdL5r04DmQEznaTSzmt)rc6^Ty zOSD`dC(IvHk7wClesN*j#upk(<#wL>R|l)0^51-n6*<>ksEAJ0q8ssB9a_rx$*F(b zl%pbjb8KHOh-{g_i??^${E}T^$DV>$O^k`f-7q;Vwz>YRlGhMTJUDZ%CoeB~qPICu zJo>v>^Z?YDy5l=z-K{5{>WS+%zN9cU zGgvq6qxU#v#&CIq!^Q3Qx5{aVPTSn^^|0*s>~+|TH=bHAEAQj^@ksy5P6IZMy*{eB zcjBz_{bt_@cpOmIjCiW!)BOn{AzZcqA1-iyflmnPz=thVGM6p*es@jymY1h<-fN7t z&G8sLWtrQi{4!m&cWKy6t!ugx5pqo7RTZ^kBm8eEzlvVcZ;kZKXU>h62A@K9@m8mf z^nGHQ9{LS*uRTgF8=B!Fq~-M$M~jJZpk;^hTho|Wfh?hT7`d>lQ|pwMUr|=5xQ}tL zG-b!7s;+tuYt&lWkGQt!O&CHuE;;7_V& zsoDk~aV_$@wWBmg{AR2qR(zqk`F?QjGHTGgfGh2_wA`RP| z7xQ>{RNPd5gwGzm6R-RI{-41ii{eKop!}~Xk2MWMUP}LmvgW~{^8L^2qOG@*Y)Ln# zZjXGxT9rCS9W|ECFAXg{)Or-Z^=^ajV7KS=-ICEeUyMq8h7o77`1!-1BBZNYXm~mK ziqH;r>WKM5eqUp1`!!>gEb)%n9@R736k&h9jby9m+&DP0&l9herfDQ?^KKZY{{r_4 zZ~xU{WR=O6XW?KhtxT;J$gT)mB`@hF=%_N^(%5>~Q+Oeiv=>-cbjXa^fGVb89-5<& zq;o3&LPq&*@WGYlP2~3OzS_{;Gdec7wQ*o8p)B)mKI^fTTz}{>;nCF-F-;$vd$$fY z_lmQpqP@F~9VhjQvg;yxNk^Wzs@%A-g;m=6U?w~A;O*k($h#LK4_?d*Ij}v?XQt=& zgWkIuPgHtk_UIN7F_VPz1u}{!b}x-7`E)0COdMOX-ZSZm3o__ z%SQK%HTygn^r6QTt@miojq3eyxcP43gDGDzOi1dv5q5QTtmC5CPU;ixeQ~TgZC zq2yZXm+sEeiu45`g=C<1g;f%_freB`YW44yXuStVs;*Lxp;IqaeQQuL^~+(R$Q*|S zwU&|_`gTSz8G#Ajf#@$MUcFKyXP7i2*3!CjOqJW$tjDH2>+*c#he0eESk?|s_~wbf z_bWfBhYlQ{0!}6tm&5=sgIIOg=4qf=TnF*vWwPQ8y%XPKeZ=BHm?FVU%k8-;Diw+O zRhq#t=SlzBJktla%Zp4yj zc=;P&H;N-Sm-^0#3h(FT<>%dK?^9{qC@pkez!XM9?` zAXY*LQzNHLOLMzDrq>^7H6RSqb97kJ-?0WJ@!qZ*!Mg;+e>$wdGQjcjmS3(;iCGb_ zdVV?WO-Q{MW~|q(7o@`S)xNgFJ~1<%VzIcv=xW}QKTaC<*7=AYqSw;x&Nu~_T139} z(L0qJ>t?ovA?+O7Gk~3@Z@#3LV zupny8oyq#??e(LLjUwkNso>Ny8eVNdK1$s^N=9pszh~yuOKa zZ-{4O6mFDE4k{+$@HG{sb0mfEKS@%Ni#umdT`nyXd`96GW}*Ta3N7}%&7+fntfOwH zbOVCSz@l^R-Q_j9TaH<6(xxd(=2Xi!48z?j_0o2)!i{$QB)9?-%JW#(L`EriZA+ov z6XSPEc|&nrWt6RjUQ=+6Bt8oULqNtEG3>uKn5ST{+Zysg`hNeMaR0!QtD?py8N&P@ zK9Frm&iFPZsAOI4rk zazLL}Rej?zP5F;j;6|*1PF}Bm7Q5utMGF+u@Ik?hKCe39^sglX8x(=3XoDz*w^>|&4`G?FZfybFnbFG`edXQw-+cfx_601sL zB!j(N1O_IUn7S#H`r(4>i+f<3?G!_Bc8b*&g8kJGD^-V4m_PMOM^g0NfBkDfvJS=F%ZF zpD)A_vvI0b8x~t$*yiz82b(!|{71q6>)Yn7;y#bFm0V;vgg?6G%`_o6`JRxlPKs}l9$p4uK-|MhOK7

0;Y$@ne@CR(llE+ZVC)|Cm7}<83+;OXQ_9!JD5gPY?Xwq(ze%L((za;VbRU~1r+G;+KS>3mWpSNUWHb{aROwgEQ%hM5v@G?~zs z3}~$7<8N3^YWO15DN9}PEK3R{RKwcDp_WkM3EV(0Jr$HD-A4}Xs)vn3YwBVBQXB{zbOLMu zO7%;jan;Z?E_R$`^IA)~LNbp3-ydFleimu53LP1BDM&xeC7`b#iQFzCk!zF34d(9l z=GnZJY3qFMbS=<4%I$1G<>Ib_gHGY!j(T1RM2J5<{9R=>0AW8;*W18XyuDDd6UCIX zroXv+R?x`>I5~vW7udb}8>)R}<)d}|-dV3UeNDg$y|f>M(C9DF`HQA5?4;XQ=#C$x8y~qOoT>TG~^AeV;MkM@uvoiK072I0^Zvt$P~xq1=3k;2VQ9VAypvopRWPQi>Q&9F*p3xDdmQkfL041W}$ zNiO{UN^Rko05ud?anYM-Qsh=WbnkWX>C~7u-Ell;rE^CZiK%tq7LpUpsMqLW!dQaS9!M0)CQLyd#w3*MlTp z1)#u}osuzYV(Fua_>YXwgCphNU$_&9F9yc+6JHwnVI@YVhDuY{cA)W89bjiP6qaw2 zLE!17+8%SkI#sCB(+X>yHVGBehG{a3b+J&p#T3=dQ;#o7*Q~GI5 zZe@FH3nx}w%0(H0VdA%}DATsx`@H?ik#7gie}Cq)yjB(D(7iB=yOq;i#1(HBn6@Zc9>3T)6}oT(d0+llPBW8mWcE6 zdP8ExyH)u$;!jaj*dfDZ+#!1Zpjc4y75%Ij#q5_NKOHL-uqGVJyEP++4cI93Isma_ zY6-_%CF6;MvF+!gsw9+M2Hel)!a^nHG=Q24O3av`xDxx!J6#iEh z{1mETP#n|}6xIowLCavtLH%&B)jB?us}@Jj=c2Jh8}2S0*L->%6Hl@nRY7BSKn1X6 zXg}Uo92QyD4@ngS9)m%Xs>4X}I8y4Rx_-RnlWkL6>Gl?m?~@Gv)bz~v*ve(ml`}I> zI}Cv404)cXQp)vICQvM5JlfiTGy^$Pj`u7AIh|wJmt(obHEzj^uMZ`f#}$b}rYvoa z{E7p0%i=O9CxoPUgwDb;2G9m9BQ94?lZL_)%A^A8;43o=kps97DuzExLqsW0)i{HT zQlrFKa4`ugC{;UKOacal+q|)9>5E@%GP!n9dY)XHR2Pi8Lb08#oR(|3#orDZPMV4Y zvFG{HPzKA(F}O)T?rA)Y$7LK;ONN=43WPEl-Zn}K!BvRUfW2|~{1Zf+4lKlOWY+Im zT9jB}fx^h*G&1^dw)~evwMF&hQ=zY)F~Ms_iBIiVCeWmtfp|Q@ey7<+eL{Nhu`k)B zOXsK|cn`oyQCTKcCY8W0!*zXFL+SA6N-KktsuR4A=KjY($_iM(0~D}lz&(f3LKf}Y z1gvBl#R?&gqLfpHB znAEa!SROW?2SQ3|7aNCjVA!I5$T<>`E9vdOKcMQ6jOIL}bJ?hmL8(o-4u4fL_gc9* zJvV0EEk{#2lh2vUNIW#)clid)olu9cc;pWm4cichS0$xWkd04(+JU0%1$t28vItxy zT;>Tn{L_$Ai6nu&xdBz8S0f%B(3jX{QYwjW`2w4aFhw%ByWk}|5j%p?VG3hQqE1m} zePD>=sFo~%bpZp|ygnidgH)la<#$;PNu}@%_AC;P2zi99C@-Q4x$}`@QjE| z)MCV8#1^8;Puuvlm}d}wskK$8-%7Aa_{z#iPTNSl2w3en$UK(Er)D&J{>yMd6jh?b zdUYK!ob&x4XKIk{gC@4`!VkfrCTLOc1>R3YfdjjNRSiDS9~tMarq5pO6hs2iKyHaQ zbIutlanORV#7xPSI_svC_`4M6L6mA`If{7!+5&8hO2=y}kexL1r%LYGaG~-l^EK&Q zv>giTj7F*qDGqJ_U#3M7zrBsb9yFB2Cz)%0le4n#(ygpWklkb}iuWQ`Y{93HO@et< zGX<0$ewRWLbGsIv-+J7u4RNb!#X%iu>|rYMa!~Q1=Ci&sDDU51IM7&u058|9VdBd# zR8t8~PgG|;{#-RIA&nVIGqJG8!|?4R8iXq?QmX317GmjGdMZ@Opbbl?YIW#Gsgk*8 z2^^qvUK$9|fw+Csip@0H>>L^zSYp2nCc%L%xtUc)0=C0HW?NvzK`q0cS>r@hOQSCn zD51SkXnMYFk~~glDQ>ue5sacv^1*Zh+lf3)#<$P9c(vlvz(ES#kEW|6;?_^Mmee~~ zBtAWhdAkX*7r*BeWLg+vBhSuv$3u5_;fHsHKWwf6dIZsKTfHXz2(T-vTgl~`@knY5 zH-SAFM4;I^Wd0?GwWC#1S_v7PEgwK^L|Sl}(EWx=Eh$df7@abd5FQp@=IX{v`X$vh zirPtQ$)W9p4rjpXWnthN_%aq6N4-Ka^iCL%pmx`eZhs zqZ+|xAR6Mci6s+`e*}I&WQX+OEHsR=Iu!Ftv-tk&AU&o6ii3_rQyc_ZELhZ$i*RTP z&y}c2Uxp~DGRRUqNc!)A4{h*II*G151T4wc6`Z_;-_aJR>VRl@H2sb^I(X(CfB|=b zWRDmU-w`E*z2@@Qr*M|qvEPrgrPB0PrRD5^7y`IJ+O8a=*PIYTz94Rd4$#G{h3&pj zE-Yin?W`x-K{gal?*u*AvkRN@p}I80c~XvZ?Hq)a#waHE_Ag0_%>*} zx1y3Y$>NZinMxc={)3Zs@@HM$Srr8#dtGq5fAdcdWgJRBIsoh%C_p2NwX zFFVIE!PHzTey$rFu#yh*r)UHRLKz_r#i7_-fS{OKAOl1h&|XqarBQg9LJW7OiB(dZ z0K%A19H}4`kOjh>CREpp)K*lP?R*G}elVYl;j(rt!`6NxQIGSd_{qm>MXQq)!l_V9 z?{|qPIo*3S)G1|;Qn8~*o1{dhJFxX6&N>KX`X?bYNj;8+X3eaiqZtHxN)jE6P)UXa zrgWJF*dJ>=(xV*p-o}RH#oW_hL)Tlt#DOd+pe~eS<0ffn{&ur^!Y0f`781^AaNfKYS8jrut(V>l3rS;B{#e*m3n zCw^cyvqYZ)*g#^m!&pOr12F4>^#TF1G=K~rGhbF9p+#Sw`9stZ#F!0((Fx}fs}Tu2 z+P1Q)tu~8QOW>+8%Scx5l}9tGCcR_caA{IWD4Z@v3azgKQU*q#GpJo?WE9pycfx<_ zaX5iVKzsQ~40D@{sJEa(!;mXPnhZEk#kOrswnRJ!G1x~LFxVKj(0C{1`6r|0D`4oU zSwCgOR(^>c5?QT{(QS=EV@Ii^wbj?r76gyT@aoIHW=`o z77j~F;UNJ=pyVv*TM~w3GOSC^7qoEXP>8gBSrM8QnsEUi5G62yjmtsVddgMHuUhca zhj0nL1nTSoCu>@8EbHvgs5&&^;*z({pjibCVCgCjVCK~7sS)BAQQJTTBf0jk5@KPM zUkA|5c?2#f;j5scnxHJUL8O`B4MJ_t;wzZ=$Vxo(S!081gFpZG@)+SM>ljDfDNpg> z_vJNfW8duhj$6njzi+zB!A)#dPyKQRRHx73$rnJiwvBmcI6QJvW{zdJ|aeT%<+N`jSwxg_!FAN`kJ5#_oy`bVYE{13+g= zvJQH%nF$zjB&+`Kr%T?<)Hz_|zhjyj31=L-|W`(tLtQj_!2W68RE+6TGhugNa#YAcBz z70QSKrUCkp#DV~cms~uDJK?bgyFh)A)E<-iRSQPv%N9wWB9cYL02%O+fR90N9ulCJ z1%n(!iXPIrSf^)9((pn_m>@tQNFZT5N*IJS*rV!FwLGD=BaxV9t^gokJYLTsf+H1h zkU0)}^UUN|Aho2UH$mlO{!3>Wb9c)n~Bw%0yBtUagqWVBBYDYJp7By31w=HwAfVAf^{nbvvczVrfnncfr3xXSmI6c@33UJ+1t7V5kaZmx7XX^FUxP7+&2Rvt z8K?Vb?9p^|C>O2fN<%FnKwELZ)Ux4F(ugz^<{lbb2nK%AtnDnt%IDc7U_niqk9KuR zUd5!O^{0+b2$N$cHY~h%H^-uf)K06^I1zcc5?8^n6P09QrLCZXK@4F~F3}rZB2h`9DTE70Nf}tz7X=vvKW-4=0#6GT zPT+$30)%Okp%PUO#!qS`N=}oI=2|n2!*VFl{L4Tn(@)8L^xoR@!PF<0pTz{=2@4z= zftoM@QlaszO9W7qMp#tp#~xR zJIKQI!a{mGCbb;a|6wp;MK2{YeC*`p^yW8%>lJy$)r(+1qF(TqREwghQ`3#0L1P&) z=YSB%c&6ugik|VLFxeI|3fnp!hsJngm{eU$WJnTRPu=&15vfXh7Tm`1eG19_eQ*@TC6&O zetE}q2sF~=Fkq!KQfyK{Ppmbu zDw7I`hIJ_@fPv_;cm@QUG$NJ*d)yFGoUq41iF7SP^Z6M(VA$Kd=p;g!5`V!@Ee9}C zNZ7UokdrE`;X-n|7mVUSr%OaPxC)%~Fw$s!0hJ~XG4MEDav|$o9HRE4u)qC`o>EEI zBc$jB1z~LumdWp4vd!ZA{(EAv{IN=WOy&3T)MPHoT+X^c%YeOueA1xJAc(;LfmS4DB(F}~&6xgY7E_rduCtyWNJuFM2MDmY6tg^7kXsO@i3LX~3u@kO@^zYw6 zq=-lya)WL|952xAh%Y9R3U(oK7?y!_sN~AuH%NvKa>K()31`FSrs|LnKfe6Ia20md}W`+;mU##%QLifGlVS;me4OC%@8Q>#8azgW2D~ z)P5I6E`kxECNQy-s|BSl3$11fstkY%0tyE=&e4RR-=|U(u#L#^fRzHX07VXsP!f@e zaPCc^RqUz&nc5Cz@Kzh(YiJo^NOB{q0|`h4u!~~-D^zMW z?I=E+oI6ulnYRpJBI^!=$#ld~ATgrn4hTqxXwGtjxi17$k_-z8MW=-edCYe%NE-k^ z3M1Q&Mg$JdLUaJYQv_vFd-c#n$JD11p8=XkQqrq*1Ozb75wVC!lX~c!LQOrk&?a>| zMy=CJ4>!tX5gguBm}E?rnM^vXwQz&7gO(}~E?S~gz4*Lkc3iyuQ=`F013iPsYriVp zdKOti9WYG}^682yllo05JKjy;^{r(P6rR`E&FqgJ=-M%N2K0MM8!T0S%qN zMAj~vOSb4xA%LNub)eoL#L7q+?Vw_nkp=Ejb}((lN{WeBp>b(I&{4_Pic}2W@mE+M z+nf-E(pHJ)kzO3@Se9*lR{D@@{8b?y+yilgCryd~+E<7Mg?Qa6gDVUq+d zOnVA2t8^NQs8a^+Owcvv{*#zAFnY}}lAquY#L|7FP_+)lD9lYLxsP5Mg(Ky62@UKH z0rt^)SQ;f>3iX!Gky1m0nVbRSNTBgxTc4-#%g&N-6HU>XY9t;@jr5JjLgw)xj#Qqn zaT-kQ`Ez#04^uJ&2JrzQ*N?zlq0X;pWDW`P1=B}{bt&K`_^Ek|@nLYG129ZH0rjBz6OvE-$0@^isYzT{4tI*p>ls<-?B|TZuV>Pb! zvEACu4F|SWezuD z9CF%?EwE$?8HW^-r4(SU&k&d*sclyNAgatjpGRYppafbAQF27wQ0hYR7f=Q=5D~@! z`xLY~eU6kO*r-ev3X@2~4W&3>^+C5wP(hO>X;KP=s%b+k%?wK;fW4zhqX0#N-vl-* zO2FX80j5l-u}Glpkq5BZtHb1{^n+;d1%Po29jd1e)%_m{0RNS|Iw;OS~Si3psGIg3#ci7Cn^3W1R$wjL>itQyLW-kWpvD zMbnXyv;^foE1KqN^axZSaxLgQPz`nknBobUP?6SNU7YS0YCFG$KS5-ELin`3?eeNh zeRD;uEoj>i4ZZgAOMJ~PBgOd5o8Rz}kcnB{Us7yD(jm~6(hsuwOPaPJ6cj#-v~a4P z%0EVeT(}ZuR?wA^F3U&`vrW$;@hO-yEh)@bJb&RAp^PIp_+ba68v zWCKE-F83jdj#f*y>*aDoBdxiKYY^E1u7tk>rI6MHgG!qA;ig+kkd7Pa3rNNPndbjJ zuD{UA35S$y#t~Nxz~re+JxL=~ZLCHn$AAgwghbD9%4a>xYI?^rxGE?B5Er5QUSYEi zFm@R7&ymr$ui=0*!MsBB35Y19-1*O!s%ZTb_oI#Zg7^STCU}zApKJ*$Wnqey0!RsX z3-r#sa&|RLD_H?Uk-2n$pM_OjBMT4)JBJEN{2d7F3a1cG4GKKM!GEwe zWP;cbdzN`43igj^_wB2uxIY|}GHQ6c9pYDY#ppe#xr zz+4e7tP}-Vu?5Jawn#9@^*5Z?(xo`$5TcePPf17*A;15f2x)W$q8cEiGMM}_3aFys znaJX@ZPIw)hhY5}2erptz<`E-x;gkn+%xOckVYj0TZ(?;N@6hDDAVe`Bd*0M%V|9tWbmbV!B4M zepk*Q<+$&js%BrvOx{_@{Jsb>>fY5cTJLDo9c|?9J?5^F?U3#J+StP}%J()aG*ReM zXscWYVa?jby}w>R!_Ch|)syi<4hJM}n2Qd6UXV|T5*<9lJgm@Hf7*}e(E3Kumn%a< zU-)f{&KJh=v)$$B%qQ;UhUd2yYLfK7xY*mfZm-lU-neQPY&R^hKM^B)wL>nLQA`|1ofyWSrwZa6#)n|?SKSzaz> zXC6nxg5O*sg=<6MoaXP;-!v}`MPambdfh-VwQA4gn6&>X6M^2jRcix#KE#w<8ici)T}1?0Zm%N_Nn0B9!{nLwl@_O~VuGBXh zo;ObqXRlW!7?C=$dl;e-K$hi7uDmHWcV$*nzF(>VtK*6S>@K+H0?L!9bIs)yvG16&)0*AKY?YsAy7XZ8&rD5@PDOpX zp81Ivb5%FAv1j_o=F>M|1?1B+W_?A|M+P^5v*d7Y_s{@$?`d7k#QP{G!WY6vnYY`{ z7Opea>sL9s>iJg2z?Vn)ms6jr6dntp_~cD|L|el~cO@%UyS35TxX!n^MYukuxVu?HVUdV*KWWVOQ;D|*Jw9h*Vq(VE(RbYNDhs2k zr7Lpsd>-=MI5?Io7GVxJuXNtK|G`DssTo13nR4mOitVHJ!p%0^1Kq32>PtP|l(4r^ zx0g1GO3Q6$f<325%CO`h_JB{c=kta)8+^M(@)I*-Eno}?giju8yvUD%8JaNP&mX2* z4&}y*{l7O4(I(?X9G{7aAc3`5JW#MyRJy+;X0*Ol5rWFZ51PZgJ9e&}o`5N+TVll% zKCz9B-(kZ8+UkkOsh!qsnbzV{@*xrHOLk6$>)Omrk^g$`3w6J%(fHuOKs{@*c&h)x zJ5ulX%#o3`&ppRRtYgPKwlPe~NR}E3pAWT5IcCUl` zXI|Tb?h%c3ebyW9?-_k_xODSh-rtQ&w@&*kttZ#){8e-@xc7GC*cRQH0}pzA$uRk4 ze{-YA2Uhxned(HKeAgz{Pv=IFFganG)WTNo&09_7^7*31{NJ(lsq+RN%oO*O{(k9> zv)iuh_a9?z$LrpV*EibMi>Ixdi$%>+h8<89X4ocfeQg$opx`XyY>7sA7Z_>~E_vO^oJ*VQ%cjqaJ*yLYc=iG@f0m697x z8qvApfd}5(TMz!_eC4unskmh03g$$806P>YB_wEZMpLi_nsN!-b{h3IQ7zrwP3>av zQ++J^9&KJb8p3T@2JH!F@33O5ma=XrdL*2R^4TlrKfQP9R^P;rcS00n>b7njdwcLa zj!^<(7hbLM8)&y#ds*3o?}HC^uZk-UzNur@6ui2D+S)20!Y;G2yagF=bA&QaQHn_@ zZ6!-sEOfCto+X3b!;;0ryOmZ7Ru0fqD5qLw=j6`malLO5uF14Bonf%mqp{SvmWv8k z^i?r8FS1tFvdmgj|JV?R($efs4|PhiG+EKd?=5$!yDzV>{O+guMP|bI!8lBl({jT2 zX*4B$)slJr8M8PQd-n0F*C1RVE5r6!wP}>InQ*5L>=>(p(+x7KCnq~4eX;H{y3g7U zTQ$EC9+_qtl?>zV%@u3*OUo~w3RTDy@-&_5Q9jzMaOU~0Y0mlzi$BKxE#{Bak?-Fh zo4FBDI`njfgPHizx{C+TXcB}Ww0vQOU0OuFI)o!8sKuU+&3YR|i8Ik;?%>f zM#R__rOm$u96F#%9Fb2d56_WeAm)n`!Sx zYZ?%Fis%Hs5qC*PT1pU}i*?kiUeXf(l!|?8o}cAl{+lJEt%_(epJyH#rc3{$`65nP z@6DbR%MlX4*h6?&bhY#S?z0`0PX_mCI-7yffMvOP2xa@%6nA$wXY-UE6NH3^D3=VO z+A)?9>5mf9vLzYj!w|s0{yy)N7s$|NMX{Ew#w!_Renu>h>N9X>Q&=m0!HgQbR0CS?x}VgZ*=x6o_nc z+w!6~n<36kzH!;<6B(3H;vefqXFQkJ-=8iVdNRSA4qhYIR7874&6?h?Pcz6fdY_+4 zeENm>?=rUp1FJF^4L^% zb8xPHEv;#PcSrxgp!kR`R9rCgRD!ulibWplV+`U=rw9%G?)|+ZqwnY9v;@ zQ$(yp421i+_ul8b&iDM*bDrn?&RXZMbFZc7T1D2|ho-t#%;*T)Q?g$z7m-FzfZLh=mc4M(e90;<^975;tBah^xKNA(&YLj$ zd!u|N-a3w=J2jK>CmJj9Mc^4e#Seb>$-!HW_4vZI2_0Y0zWj3ZWYqHYZgO{Pf&)m; zVup6wgL&29PKzDRP9#n{fIz#tS;b$a<91=q4op0JFuZSKf)`C};GpX({h1gga~0Rg z{3lzLFN0GR;u9IY1T;xY%@Iv}th2pHDOaVNu?VY(AM{yfE3A&^S1E0y9`7N&cg^48 z`6dsPKA4(%d>Z!J{bI0wKvoSsctBRy8BQio!pjR|lUsyfR=iuZWBhot|5j8Jvx%uf zAy!ieCMocZCmIdV1bu^qkSP5y{7HW~a>^6W6Q!x`I{!2e^245jUG#j2!*&A0{2a=q zRsP|S-&N#0H5^iG%An*)fvB+2#Cm*pPwG`Dqf--3&{KBhHO;+mC`{R=D#nr zd@D+tX<%%ClAtataVE*D8qEPt+-P| z&#d&#K~X^l7;`SfWi#ZyUR+9Vx|f#!Mn?#35k`~v{d$7dO!u16Q#)V z4@lG76j&>~vli+23yW4fK41{vOXjd~(SrfTBB=xLNr(d%A_+wx!hi)9nw$wnOn`;r z7un<{C&*RPZ;FI3(G`xn-3fbTY;;9^f25YJFqgf2JO z&r<4n_S;QJTOjskG0Z}c_|#}TYzk=vr%4d?*xk^A@2X=;9>19td8&lsD~c`zZ``^2 z_`^S5!n8(h_Svc;Ao~q1n}z}g+#oKG7%Dj%M~*p@En^2QoP_G%zoX+^)$;St_f^mxs71PtGPW7QE9 zFq%*-b9h8m#Zbf8^h&wmh$=|V>ggR!>kX`g^MZ%l52U5{>fvZ)Z8ZB#0fu7rZ63gh z=D7sDcFnGFSZ%d%HndM}Mzf=)ezB)Og#~eiMawqvV;XUFI1Gj*sTvd>;mEE=tN&k`q z07X=w^PZoT04eTKFtA<^N->@X+IM7g&?Y3~Of*1FWeFs>z&b@BhSQdSt5ZDWPLJVt`8z+sh6TxkVk`j1YQwE`Qs}@?!_Pf>wm;zG zIQ$5b3wRv?a3fz?6H*W;f3-UVVgV`>96 zWBjkx17Bc5%<2i5u%J#cFbbEJ*zTc$`4}mYaL*IA^Hi&0Gg;wz&97FW9uRS4*j!@#sis4M~aF~i&_ zf7kt=x?Bq!UP~fzdD03xf56xYBOst=K^NA&1JoJDmKt`qHV+pq>0f1b)JcegG0uEMg5cdkn?S;=ZSS-fAONq&^oLdA z-NIF1m@h!|C2kd%NhpVV01-*r3fxuMYEuLjSXythHlt*pum=?;x03WyT9tMXC=qFB zE`@|jV|9;5XCNh#oe@G7FvSYcLzC-ysfz-Ux>Q_SCnQVglJPD&6*nxRO(H_ZrbAOT z!}JY2FUxACeuXB4q@)l*lHs1MJ1$?oZ2vJ=`SQn#5=R(V8Op%!8f2jM$wBPJiX!%8 zlp@GGX>&be)WTl3-#@{cQp`#PcyUOKx`q)3PSmp=l|guS71|*S6^M2_ar>k@SDrAM0aiS_yos8hiceI?Kh84Av;XB9j8HFOR`t8U$S12!^EW7ElK*=kG9^*U5`gP>a`$a7Io= zcUGkfP))o%8p^Tx0R^lQA3Khs_L$^v--RG*uGQz!0pvs{1P)fAy<2fj0xH zDh%x$5f&gHsMouzlj$G)YF75(JbBP8O`fV`Ma3i%$cEjt&Uvxu@0!f)ud$xj!GOP> z(_dfe>ZkXG66{c$_1>(^-pJW#Az#0E)zelDRy9wmk8KFFJ0d;m!HO~cOK9`&!-Rk+ zT)8X!rUM^S9mmGkP&3{_`Q9hY?kZHwk{;wkBJX!C7=KTYHCVLXU3TPJg`I-gqf32b z?%d8-&))q03U6m|+I@I&i^=I&YNIDz49RTvgAT~T%XD^I$YyMG){Kp@*$y2|#*#T1 zz5uw~%lRtZSid~`-I5{+7t909jMm9`JX1kw>*EU*`zk5l#Zy~@_*?8zadk&Gw)lW%_ak9Ysdv1D@8IDP^$ARkZm~j zAj0Q>VW0C@JNFo@63!kX3~kx5@uMEtfmB!BaBvYCrzhKgA*jt;1ujq6eF)0P-EZ=E zqrGl@P`yo^KFkeajM1$NE7Bk8!K0+7w9n6=mK0qLz z|K3BIslw5Heaf-3u5$C>o_y4QM75qLmm$oqnb*h{Stxr3sP9LW7g$^}4VxY`OE3J` zd~J^M$X3h*=5avR=9NVcDks0^E3%N15sDn`U9cgIqodNVxn)!R9hmY$>SUOp*U~9= zNRdXEk9Ku|PCbGy<42}tR;F0|IROUQPM;|UL)OHbCFe)2?jj{MfyjtS2Pr@;5Px(H zr%2s~JUt4e(`gi-i5tHHcJbct?Gi?<*HUbpC@dks#If?IWNEG;_CS&dc!G{r@2KO4 ziqlv?^!{lacc{+|DH!=}C`$07xM&%erPF(*eu%t&V<4A0+?N=d1!muD0w#Xs?1uSc zaY!IaByH^j)?MalVtqO_;6u@$(m15_q!J1Dv#Zf%!Wfuqm%x?j{M}cC0GMkPogL5` z1n&cc94f%=>|r+!y{qb3>OzL+wZVY+7*${m>H&zbNJ2R72ey(Gvsk1mbz0xc0g*&x zw6M{U9?i@}N@+sC{6G>*)MVJzU(~~l0;GzB-S)|j_ zujM64JE=fongHNRtKuVs?_WCg_Vy*>#DF%~d_6=*&ppLSq;w>}&P+E}93p^SySsst zqmIo51_^PnTPYwen`rEpKi)TCE3vjJ!-vx9Pvy$>_;S%0UTa=jXVqV&RB<5)fw$C1W1PQbsfqLl zdu>s^DiwiMNk<4e{w4M{vejxW;0N9ae#1X+P&mNPZ5W&#jYYeESd$m=**)oS%b1OCenU7{i%XE8a zUWdPI0BdP!V)!93Vg28i54=S1NGQvabb*AVk`&=gt0k<`%1?vb88_tQg+j(3YZP62Da|68%xB z=zV42@%;S}+VTOB`@Scr1)a7FwBZ!Ni*K3-dG;dc?s#Xl-5v0nnw!>UUBLuB`chLw zFvyw@dBw;rZ!}Tj!*800zIU`Y6pNyP(OE ztuQ>Y_0ahO$fb1m>j6EtA86Fl0O0EmW}nP#B;ssWK8q@#1K*6f9MYi0Lja_m0FwQV z(gSuuI8iHW9GfwOkn{(hCStgMI;U25FH=p8q#z%k5LiL7TMPY1`*ZqdOmf(HbIU87`^O*)eChzFD~LHH=Pe#Ou#MwHm#)zHz@Ffw?& z(#9Iyn39nUT0h^Itg2j8m6e}h`=6mAGDfrVc+=7Q$u#2`p#(&p)z=A0=$_2;&Pz)p zB{c-28jUM(u2;jz9|;=Ztchl!axAu1sqTnl{!z7&#*2f=UrQz3EqlA=6LgR?&sj!; zPc1E7LXWwHBk?iIEE=3}gXLG97Zot?1ZNA0TqO6f^NR6}Q2+3Ztc%jEqDu@~(-LVK=>8GFMvtDkLWNnrP zYVc**1$f^$FS#Szu<(m zQ|@B%2i7|K2d*Ab`NNor`+CJSQFyq>twA45jsz~)Hb&O>)24eeIAmCV9|t@|lK6DS zwmJ!}Ms@GFhic_Q=b_(nj%;W4P9!?>dm5d)DNbf3iRWTJl)P#yaw7d&r?k?-O~J)C zc~#R_>qN42F}j~VJ(HQVG$!tiykD8x8|@cPY;7+ZVrjJ^rcdap8>55U+5L13m4^J4 zL=^&yA`X>o_6m>+$^dDzIzokopoey@i0FvkI}0tYd$tw98@xRgN_}kr#BG{hj?`RVa^DawmI5uagOPO4W(qQ%T%WVspt7f8sX8u}NR+$rBla z&|Th7pFkO18ULIr&Eh<*Lp~97pvUp>DwHfffT8ltQ1+lJDK@;5)s;GKKkeX69N*TA z;jNaQ`B3m1C?ori100NiGns4kqj7e7;bngWtK8hO0X+yO%u)!v#KeT+U&2Fp|8aG& z6d>pxIDDAB%c}RAI_MB3ZWdpWZ|}DDSfFeg3uF{%9mcBA2Nl2x<$oSO6J*s&jryEN zRNk0O%jm;5&Wl@d0PnB1XyDx@vPKjAO>O~jz z9+B0;{pa2Nm!Cgu_}Aa~ga1lLaQHuI1pmKA#n?mbcK^d_`HO1s-$TXN{X?Yr@1tV= zzTsaih`&)W|DbT}cK-u*`A<~LUo4!zu4cE(;Xhe1f8F5UB#HkuE9M`V&VSMvKvqmR zuV`vmLt;GaT$zk=aV{SceLuAG$0wEEUu-ujUPPf-1D&5&Blg~#yEgaj6}IQm)Q*R} zKGD+?vGV3At-Y@wr;y(`a4#O` z|7VBv2ec5MQ}==m%;1hHoxagGh!A3I=?@LJ1I}LqMBXmTx7`yZm!e)Dy-!b2s(9W% z(DCm1a}O9xvHE*R!T~|%QU9lz4m*kyCt^<>!F4Li*uh$*XUE{FWq{ zRz0)+=vmm{`{&_3I7a+g;dB!4b4}9fP+XC`~3qKjWlq>6|Hf}N= zpO-uR$N}#>WG1nJDMc3_bd-fgzJ4U!qH^g=hi&IC;=0JAaNM&`ciTRPS?u&ux)C4z z{(Lz^^}><6g>MG$4R3B6tPIl>^D?tr0jL}d!zKnCR>Nghh&Xx`9|N?whMTu$?2H0bwNiW zawh9mwmia`oxi%5v^{B^SvK?_Ye`1f_x&tS<@0gE(`?T3+}VeU!;3=~Z8B(#T}N)z zg>-%lJv3E#!l3iWB`1dGVTISw^1qS?H8+_@J-aLf9IoWfE=g?bwR&4~qyNZy7$tTRuIY>-xHXq~Gbncb%e3 zK5bsro2&?*R4QH?>HfAbqc7@D7TuMunQm*HfBWui8PBf%Sl$95K2^K{qvIKwe&U>U zj~(@V>akNjuWNKvZsbx~*HfC})t4=^kAL_-yG^l4 zxb`hy=>HB9rL(Z46-iV?A6QxlKK9+dt&6M&~<(9(mCY|;RYUh_&oESHl z(_W85?!RqY_pHLh76Ys_zsnX_h912*Sfdk1%gNB}xjd!1b8o+X?>=>$+3yE?lwJ%* zhej$~PBqh32QAZ(ZRcMcsM`GcnfDF38*T$G8K1sAKa1sE8)^I0*6*Xczc})Gh<&!%Ejqg*BlQAQr`hir}mqDu3+7{7MyqB zbC%swmPx14bG3yn>op$SyJB+R&=#-L87J+W|(T0d@*}!_^R0! z)pxo%-G8K}%k5Re&}vh>-HLwW1oj^AI~mjq@q+~&eEo;GR8ToldE~0ST;y(>(sPAhH;;OKv&0LwsORrLOFZQE%e9UEKR*(7=@dCo+a1DdJ~CZx@885G!Orxl zOkL5!A5h%juqf)MuR4wz-`c>KKGD+Cc%H*%M=!d{VDiuZs1>B%5jev6C3}B9dAZgz zBzVb;?vA-4jc7lgcmCLkFRHgl8!2a7-XAo39Uo`%v+>W|yWBgUgX)(Kci104c8l9k za?Ql=$eYI-G&|jub4nJRmG2Sb{0wxYk?&$$QVOR&DZaXS_vD{B*XSru`u61LtQU_+ zz57`cVRM;E0~W2b<@Skld+ZNYx8b6`zbx^y-AmcSwD(;|`0?yV|I2jech8pFZlAk< z_m4|+a^B%*oxZisvK7O7x(Q17Zq>^t+0<#(lbBCh(9+a9E^lTP&PD8(`6c*X@eA6Q z8y4$p^nY#q7dnU#@;~EW{Tq+>pFFO=_dNg4wle=<`Tnn4ng3fJSL1*3xX#I~{7;_G z-@CqlKlFct#|5Ic{=Mh=|CYyPZ)b1s_;1kG|7#xCKlk#VFWU~qeW0S+Z0!~gcz>y1dn^FZq{>Z9VYs}~i?fJlzJaO>V?IqEv@i;oALq10pURBE4ydzSo8 z+VB7Hdc*b4mspQ+gLGigN(6CZEr0s<*MmH_exK1IaJEJv`#z(3Sb+hb$x1z6Z@l!J zIr`M=9aJMbeA&lJNoJbk{70MG){q;V z;mR(NkB(RLRt7vvs9N5-Z8Cv9nmO*PR>kkuH}Sjl0Lyl(^q0Ka=ajKv)D4F+5$ZRsD;X^MM zm3d{FUEBBWbtVQQNKC{fhE<@0GO7L#H*PduD8D1TL%Ac^Qu^v`k^&uTB{z-?+InEn z5w0uxsZ=w*FwrNg&fd5u$61mlnX{$=X2bC}VW)39=#C+!6M9dw6jwLjebo~J>UNDo zehnuPx}rhcbj+@%L!8wv5V=99s%MJ*lf5)B3lExBkirtcc`CAH0}Z#>!SblT32oSD+lf@slO z3rae(Ysw1d%`VJtC1;Ly!K+cD$7~x^96ant-GPV@z05rS1F8x(Y)ZjdYV&bQrZ)9x zS+n&#DZ5}jtsx~>HPYtC5u=XMtPo1D9$USBo+$6o+qkpkL3C=b0;4e|>k1vGs+IF-if~aj=!9x`wTopK zXInIh#60%O?(zVgay4<@)Wd3~%^K!4IUAZ0%J@Rf@>GQLqg?jvQ zRmCqk9ce6e%_9KdLGJd{_H14L(l7%j2x-wBnh9<;>)3#%$Ah)K3oiSJk(;I6i?s0`J*HKocGR8qhEJEWGjpv zo(b5}`qfN6d^|R6tkcamFVTY<2ki*)TntIw#TC}~q~@0u%b{GcPioo&3nJFn;v`n{ z*^HqpEMOr{cO6#4?;kl|s4`kK>7R1tpA+8aCQIA>r;hqMz2@xDdiAUTx&4~g)r;1P z`Xf>W`o!DnJl_vu@5>H=@tF_6@?4`T>sT$0AHd)M@)a_Nl{5=>J4&VLEqZV6J8aMk zG9Ib72e?0jv?iONf$j{ox0YlzP;>6Q*=5wTIdoiBp4`#tGgw;k#(F%tuWXoPnp3H@ zrUr@At=!o~n6q99VB%%IS}D6?UDZg?s`A4o1Y^O2_%g?lA4<>#ee76zU0m$@kQZYn zuRJT1J95~{Sj_?}RgCw14;M$|-mOTL*$IUXIQLH+FeLcu7sN(2@1HFzskxI{mk9s` z%VTM%^3khDoRjhBhzu10Gtv2uM^7X@k~1(E8lday?HONVDI^%q)NI|-oGHwv1B2;R zq)cq$87fZ1@4w;81y=c80v?VQE?7OR$N{Bt=SS&uI$}ivYUU@TQnC2Q@|pQNeYhcs za}3X%A0kHnypjokR|Mkg<_TW;-97WGbS!XQ{K8oP%!1mqz|gx zw9gG`3Tk6NFHI4>hW8PhIJe#jWwS?y^6U80wY2 z6ae!HTeSxx4>$(U*IGZF+xp{qs1KcrwVkz)E*IWKUfE2oi67k|I?ozGun}866L-5Y*9Ro*qUMNE3M+95=t0cO5IXn z&gz8eqkzIf?IrD7`n=6ui_wxzM}~$t7nZj~6;>kM(x(Sj90W9#N%( zM*J}7~=D2uz zkFV$VG+v^GWH;)*lI2sf5ncaC7qtf&q|YICMKPvrQA4$zU3%$i%kDf3Kxy5SpX@kf zEXsBRd$rG_y|3T=)Th`g*yb#d;g2QGTzvN>?)klayp`L99eh@g$UBTf)Ua}s9!?Gw zE z;yUmXwf(FkDT0pvzX>8z_e4|Ly;8NNUo$T<(w@b|A8S9~3|*GQ8Sq9goPvdAkuXB; zhqhEj&5CgS?9@Qu#l z?_5$(V(Qb6y-ZMp`KcYxBYf0>&)V}JPUc{_c6#688m3=vdCC~S#p2B~tzMSdDx}wk zbEATS^?p_QrV)GY(m=8&7-r9cbJ-@x@-AFOPYi}*A3eA1d7}Wg15+>S1;?!L=3s&T zyf8U=c=<~GC=8z{mq9QjU(bDDdwh*tfs#F}M$&*YU^%%B=`G}};g6-MH9{* z(HsTJM<#~%dYydZI1)YTk2haN6Y&8o#I$mnuTnPsyE_ug{xElwf?cRG2{@>`X;4Yc zUQgK`NcXx_GYRjk%kIk);`q{aJI71Lz#0;XSh}IucewPWd)_aqxt|%j<|E*{9xSDYKELv+MpU@ z_}$<)^;O0ydwmD6`e1!mWXNuJP)*6jwv}g)QV))T_AT7eVsU89cv`^RvDn|USHwz} zRs&4Rl58#Wb>M>m%T;kMCT-DEBxLj6=`r#&fr(gRAwsMD!%?J#R&ZC%Ay%z=DV9B9 zC}}Q~S^uWawn~82fd09xZ**j+bT{mg!?=gEx%6qBNXTJhN%1`yLW0`^RH!S^i7!rF zcQ~wxB6&ZuI|EvSgkcdS!Mf?>DZa%~0~`kjNI977e)__i5N^fXR#mI60@tb? zo-0h1Q-$1+)!j0~+t$flF%?gab(=%#2t}tE1cI zP`EqQ;oKR3O3UY`txhmH7=+O{m>)ROa_~{IZI4$_JN^3~CMZ}SK3qm`x;1|KPIh;n zM2eAL2D$=61mzn8sxa{ykII~Y$tdBJTYM|#y#ro`p{xWQ1+{{*cz@?mVmG;Sp@yyM zuTf|htH~Xn9f^u_mIujFt!wMHJyO2e<)pxx`FZwj<6cP>?oX~DNh(P!KA{1M^O_O< z_RkF=_AkyT#^4_+toRyKzuDGg?Az?D+_#CR`v=ek z$d9i|FuZNk%Fdw>`%fn?X@=pWVO2_?#%nid&gNN>FzuB5ZS7Ue@v!9p)!qfci2Ox!4IK)+U=8|p-h5{&noX8uzOu-C@ zU1F0m;s+JAK?B=U{GDjxpJaDWTCcilFy_IK(&Lfyi0ig z*a^JCW?9WmA;_DYJK@u zC9C+B`oA_s;PZ1kP#b)sU!11QlTO=4Cni8=^G1_VP&_F@{3$8iP+D-f%ciOq%Z zLMvrC@Xuv~k;v$@^ae*qqRB1=d|;(tiDv%hd^J>L%jB76yMj$J15V1JvRbX~;QRN{ z0a;iwli~jQXwD7OLt{fqChEp%3tFL3fn?T7Ia!SJ6f0SK`pZtXBm@R2Y=<(EkbO_i z$10w@-l!g<4Ev@rwx#5c$8UBqCmuOJJ3j0=s|wNleu*2nqL=>gsG#d}=cn-ZOPwkW zd91g8ePC6pKk=VOsN3`G0nzuj<_Aud9$QgB8*xDXr#G ztjoK)-NZsG*-DdznhOX3)8jY4fe`&$k`o*!NZ@NF3Uoq1xC8MGNl3A33*mpKFjV?{&Me~C#IF|87$`J z;B&7{bWD9Bvo8#;KX`?=k_#{aedF+YW@)>JYj@Rq2ebo1zK?1=jx}u6#{j_5t-rn~ z*`3=X0E>T)pWR`wF8;;+x1K9)Cs^A!=zW+E8ofm@hM$Isa{iJv4=7_J?R0R-Z-$YBR-v>S9yR>`rd8>xl(m#5`3ExqWQU@k!Z~!83O|YXK^oZId};$ zmi#5p7cbu3nd5fz1JF~du>_u-qo|&)N&lk{m&b@uX zolH;=9-8$1r1rRTFG9=*i&-HT=q^1|4cT!SHZH4e`Ee+-?1`0(hq6N;zT9}Wo#j&_ z3F7CwE_9PyPi=@KR*})f8j(b@)QVZCeOH&6t~N1Cna(S5yabIiNV%IUJ2u`m(%*DW zr*-F%ne}UPKV%FX9nqxvwc>u(#K1bJq2#$#zNXKg9tQ-gadd8%a9(20^mkL<0s70f z3@<_%dg|nFar+#Hd0=D#T~b6P0jd%SAaMZqbqFw*9NX24YCDcUDWfc>r3tAztbDP;iKu4}NCSXwozMVlE9H`IZBQ8x zf#D$&1Tc2mG1j;38ZF~Y^+YGLK-xyo83^YrC(S*T(oc`F+xw_O=^z~7p=2vhlsdY~ zQtYcu>F)x_4Uj^ik}awJlmC9efN)4cLjnT;3qVXGlce*l-klZx_Ila3T+>?y|5n(0 z`KIL4`zz7WB!CC-zLxOmKO0qrnG19>W;GM&sJQzC3?!>(VlefLNpO+b6}|2NB1ikO zTItKv^<7=NsPps~nuJ36nmi7Q=ITGqw=%;;4eEN5ldIaopSxUfx!dTy2r!A^;T=8@ zGYPlXVSo;C_{1zZ7xcp&Xz$@r`^WcLB_P`n)bzNE91e4F=i<9!RewU2C*ucnGbP>M1*{T=*g)qRQ;N&t53Y;6}-)F zF;bBu0c>$%3=3eK11*z@Rt4y5$$xEzhNyHFtCn(hPfz+S2XM{*h}U97fq3vvQ?tW3 zlCV{>(3hBhH5gpn@$g^R**>qpH4jyng(qZk%mFDo{km_cPbK{SSH<#F=`&#ENh@ zRXCv+xU(ZJopkcFckeb;eX+vB(bFfi)gI&zoCR%h^?#T^_f@*wkAJq1o118wfo8At z_poS@WpWW)1FJ?ev-#AwrbgwCuWsA?vO!gVQI5IjmKZ~2dPgt#43Az^Hz@r5&c6nr z#wQqS)x5Adw$nl@V8u{oDii{%nJ3afQ?tiM|J-y~B<5K9XnZt^h-;$bpmyE-D5q9PgCO0qr@p_XP0lqSi-(-clXEFCPpIl?b zJ|i7dACqJ;fcJx)eP6P-)b`JEz6P%^shc^zl!4i#1jty+K;o}6!}AZ@SudIf&dcy3 z{aJ{Z9d2N^JYbjyJ@iNer6{h0Mxc6gSyL7coRUZTU6@WWG zf2b5D?UQ7Q{O^2wnwu132#^`)yj&rcIplUm*7+0@rS(xq=S}`hmOne(p8^aXD>Vbg zox8fsJSz;@yy=nGApj4lS7DQ+Ag`!UbsjZuOLzp4+xKF~= zW(EKty^gBimEUMB3z=2^1@9rVsD|3gFn2t&crlTTN%vj>76YY{JUTB-%nJBv{&Smn z0_BY4g3C84oi1Q)RrA`KuNgBQKR2UPOW?yhW(WNx_A7dPajIx-p}&SpsnBoSo*2Xu ztYxN)(?X*{B~AcPUqw#I_%Kp`ty2xBQqjv=>n#e6VnQy;l-Rg`7Ttg@JyoyoFcz2(bFr6PmU$2oeO4?GB4tJ` zy;vO|2hhZckHD7~qroR4Wlzg&%{=GTK+sgOXLg+tv5_(T^rpk|!ptdxcr9AO{jvhI zi|vurnfa|9jLCqp_g1Qt_3)loPwZT@@(;Nmrc*vM2qrD}6yDdY(fQ2O;Re6KsgVp6d9nHNR_l=1#I| zAC=P>1icY2hfwzqd^mSDaDo}Y%=!kJ$PJqc`2aVq8o}yannue4?NbvImG$^bYUmCD z=&A11@qj*yeGV~xe>HaL;un0P!xj0l)rO+geyRlPFmf@yyS5bBi)R`ZzmP<4 z^WmOkqVgcHCyCp_hw;S95Zxh&*P*!DjM%99nkW)+>AEEQotiNK%w?uB0snLBLu|C9 zN!TvgdM<*Ocp?|H!ou%*Pw2ffkYS)8U^t|&jqJd{V6=;sH1DC#h&-M?M_bU^V7;Ij)9$_+H9{lQsIQyBX>)xp2f}0$0VH3^M z0WPuXOLa4R9@_@H<-rEq=lyf=@dPku)I{ITJ`J>jZW+MQ1O0>PH)4coQd<9@0{a_V zxx@rC)jOMkE_3ijxO@meN+Gz2#Vecq=H7uq{Wr?ky_7NldM^O>ThQ!5`Gz>h<88rOYB0P! zD<5x>ya;{v*eo}}w!4SRDg;kowvNZD`E`cZNIutspSsYuz7 z>uT`P$6mubnaZhm8$2Rs<3Gb7Zj+{yOlOS;s4W8<;RVn$7OjCzv7PJ06FmOsZh6B6 z8=F3Mw)`^JZbEgv+dHW~(are!AG&(KCU2$1US|s;TLTWLrT0*o*Y5^2JFC=@i$2r8 zbbKv<79||(d^V=Mj20TM564EUzj$jWt7B5?&XRv_|H>kvP1$qKrw^xi^{&F*Iu*zP z0t2k;bRr>!8#hIRB}x9DWo_W<*Yg&-0{W+Ag^I_O^8AZYa5;*w?<8whF7~X+<5@T6eCN1^;rFE2!}ah1f}zaUo%s2^+ldFm z4t5(-lH^-V)V4R873DnE@!J+io~bl{W0gqIqy^|DMy=FDA=|YBFW}y&fI;>!zhzr) zr@(U2eiUVw0hg2YAD5jbp~>?C0q)`6!@i9v7JSCs!9!jOyNh&FYT(KnW@YK9viyU~ z--nmqrekO>D{cmTA2BXYzO#AMg}Vu?N1ZDb!G@ zVu7=E;dPajiMpGbb|=*XX@U$ zdSj%`S9bykD)jLDRb3Ucn}G(m4AekFjv9EjfaSDT9?!M-Woa~dHV^HL437{11O0b? z5dac8okib64+mIjHwlo7D3IdR8{Pa)VV{DlW|0;4#`Vqn$DQd904Bg1VDDI=h#%$s z{?No5ibM8=lhR0lpA})T+10Ici8*JkZqliz+%)MuorI(dk<3s4=%*@*NS3?*T;{NW zbh=0&V1OApamHC3bKV^90h)yJ7?%vnuOa9wg1kup90B$pGR(km2PLeTxSGT$`HWD& z;zYGtP9DS=MVfRqP036~ZvtHIrkbt?m7Lo$t@zX7=9pdcL2JYhZ4s zZoqUx=VZWiT@6J`v6rMoI$Ff7g&jwrIPt$~pEHV>HYryn`R{9lc>GDMQT|@nbruVK zath-z$&y;o83W*8P3UR77a02vF-<=M+_Fe&Jg{N;8xnPmJ60BuM-Q+~Q{XAL65E>2 z1u&+DG)3lgNK7>ipFlw;saPs>)E$C)Hm)qn=Xd#ZcUGt2{J$VT3Bfy4ruS&?kSv+ScjE46|(M!?R3C`#M=+Ks5T2%MUo`6W6|LBZRW2L@x+ zUw`#3^X*D$v^7aLBLHmG7~ApUpupUWDy)owIem%KE@I)ZI1^pB>Dfjhh+#xt0WWZZ z88$CHCk+l^EHl#?0W80hGzLc|Ofs2!>`|f{VgNsL1j<=6+8v%X0xP}<_IpS$s6SWx zV2~EYzsYWG%^dNi+<|4{09v{ZF;isF+-uo8E7dT*EheJT zkgSVKvWmNB;^3~Qu`_Y~T%gQ9YT)bCNocuN`o@K^*uz(~1Lz_!(doKP#P8yu8nu+j z@t*V0!X*P}?T!@UtlgMSTu4T~LjYj)xe09piK_S$%vS>}R7X4D%BDg01H@6#(um)Q z3RPTd+RHRlwVz8Bc8&KsW>A<=En+vesfO81B;hun(^nWW}K$6k%d1LoRI^B1Nfw$|a$Ce#` z)HOfc92Sm1exE*h@bZhJ!*juLWphNaK#mtk&fKj|9U*PG(3tO+WI*`RZBa6A`Pb-3 zRG{ChQ@`$f9dt)OV7YQN$u#WtI1B48oDXE=NZwf;{}#n>&))b|4pFeGYd6v3mro+S zWGnP`$(Y_DUI&r+3YibzDQtOrX3*0r+cY347}X7nO#Nxf^IIpYdA!5OA?t|%x@#oG zHl(~YOI`UV{x;#>Bje;#o6R%;8m!#3DA)t1H=!J?J*cLiWd@<|Ogt|ByVg623G_0_NcaICwB;ZQtJ&8WygXqWwM}x zu>-zcN}x0c%&OyX+rYKYh2+CO%(4}S`qOKgS|@yk9Z#_frB?z9Il&LJYmO)y?IQ1> zkQ`KSA*SOVYzl%3)M#j746OC$S8+&yv zKi3z!-FC>%O0Q+sLtVU3X#Va+mYDl;YMt}*V6bCB59|;eKUKX)wakdF2KHBDXOF_c zMOIh6P_Q9`u-MNPPfopI=*c$X&i;3i5V83;De#0EkKqcH66-8b;xq0@RWSxJIfdn1 zhxah5FxqykB#84COxubxztfJJ?>qQhiDH3ZOyo6RvqrpiDO{XPxkY8`Eac4f&y(nq z)KFQioa2J&>p*F1-n;SL=wHVItVpP)c} zJat^5ReVYi@~FDI5$RV5Yl5I9EvK zHesJJOHJfM%kS@WlcGH6OCw4*Q(AK9aVq8x@ObTwSU`>s#uc8`9P3@M_b**f>8ME= z#qzFFv&7gnZ@;zeUczLwIvjy3$eDbm+ilPnwhL~#4OXqACwtw_5Akljii%q6F6m5Bkx=-jp9k{(=8KCP zMiiSwIyPgEk8DX&Mi<78*E#5))@LrNWAnB~ob>r97^x(+b zbwyf=L{oR88=NQxgRk~(N%4Yfw5>85y8jh|-Z7oV8|7U9LbXe?zvMddq7Lf-oIU)mh7A{`5^*W^Xa`$kyQZ`;2vcLj&wJV6@#df zgzm$c^+srslg-H_JaUSeFQKdGY<~Gi zEF8~Fvak+oD2#oXw4EZ(#=oKFo;!Ahnk#LEs2QrQ3wHEw7_xe9NcCU|2~c#Gjeg&5 zZz3D26wqh_7C*gRIhxXmL*$cHOtm3K_XK#!#epV5R#kfngZ9Xin$R-W)?WYO1>8pU zN^t;48;Rz6$+}o?&tCSju>CkP22aI5FWq*de{dHK2 zdu`^Cs^Nd!EDr-1g7|vyZ*}ohj7Pwww!Y~s59?J<1lD|wc39Ds&C1~J=lhO7MAzal za5(bRQAP;==qUJ4o9$(sStczfJw?>#9wT?{7IiIYtvvkm9q(6Bp z`C6}UkrvG0LrpRElQl~V*~S5gDq?YE!dYQ-bs{`-(IT2 zGwpi^C^Q41v30)c|A;S-CG}}3-c9|^W9>d1Z|-pP%t7xTcNO0#T(O?(?#Mb?-$6U7 zv_G_r8jG)oA$eXAQ4mXB!67w#+M0%D^?gGLMETo|;C_CY2mjbfXg*Yxd6V3Rul7 zb3Nza)C11pV;7tPmmprn%`o$Pzv8sd&T>vmBRwXf{2QKH1N%4P?o{M5Bx26xTg6K4 z>3U6&lf~{JL&Q0>If1%?KKVHnUsswoHYy&ppTJv2MhW>bwBl|D@pTg|!!i}~02O^* z5Ic=cjKh_Aops1oBsPjaP_uFB^ULN=%R<>PU;bueHQU7kQzXgXlB}mjt=OfDv8B`> zvH&jvC1xAc&+=n|OZ01BoY;`2OLfBf3RLX<0nxQ%>9}*LwhOK@l zkH^;0RnPf}uHE)NeDQbr{JM#A0DG172qD=TOT0XOnIL2RIJK{@QM;pl=ZR0XMW2WW zw>Te?oE0W|*}Y`A0_8OBW_)Y0H^4U9*)>Nc6--bTgiaO09uUM;70{XxM)lbLz>sWB zX&HHZG_c|^p8RSIWZm?q-&*|M%7i)$kYXOxpZCKCO4nN3AV@{EtA}?Dl|AJnn&eMg zr+s~9XXYVCC({=nTvXBBt9pMhl)-l<+=rm&E6GgivZP;joxo~p>aC=93{~+%_Lc`N zRe?+loUPKG?OVB;mv1W!F&oyeZpdgHaby2Chk+Pj^vM{ff4AXJ+wxtfSW(GV*r~qB zM&Z-T>Dx8;>#1Xc;`Oq3M$2lkSHmIB`<>U$Wooe`KdlJhihOW&5%O5+HD9jpQTqD2 z&K!YUIG5S*Nl#u&DS%N|g%**G*3xAHjo|iqiE~PG)uXqy~@m^S0H;zNtZo)ia$7&C2|}5)VSX3<{-s zR7V%p1yW5-dL*o-lCWSFk6rF?!54B3~E zPi6qg=;aI7?9fAWpgDoBbY&Ab<7w9?u!9<2vWqc>ISed->x48xyS>t)ojJJ`#E&Ii z^C;BN=xla&NUYbVN#hK~>rEePL`CBu8J+PORULmKari-&3@Y8k%>?JrMoBU;+HW(Zl!0p7Hl+#nt zU!ymvAjUtM?=LFi_>az>-qy+%-uw_Ag(%9#H$Hc6^DlNll|6r-(+p3UT%yI4HH#2D;8jyqbLBcL}!r{Bk@c9Z0;ej!Dy;35_0Q6zn9mDPR}yaWhG*Ro*RK- zSEQJ;>+!SoWQO4{gSd8d++a~j9lhrRyflln=NH(eAX0DX0)R-F@}clljcTL~AeD`>u~xHr_QdR0w*fyKg6%!qBM$?l}W+20+m2rtIB&6)`QpSXjqf zArSkOS8tiP-TCLl<3o+tG&^>*vtFJG8di9Gwu$g=KX)CPIJ?bJ_O$nO3D3wla`!F? zjr!`eLLM=T6CEy$T@!coQ!P^lm#M-*c)#YaayOL@M^>D&2nxs_37r}stBrk5*cTY1 zb-@7oIhJ)tdxdcV2teiOg_BE=^mlU5Z%54(j7M$~r5(+7Fry2)u?_W*0`&8P<2@gE z>tY?i7C4yA#@n?sHTHGh5a%8H<3pT|f)R6_oq*Q(SU}&Ubm0)HR(EeUG2RxPqUP=t zl+9K6keyqw;%}?E)Jm1J&JwJD+uu-sH{iYIf)=HAv6aVlx;jf65bt^LUhAG*JQy%V zN#<^bRVG?W!V6af6h$tgU2cb7GJ@NbS-VynCj4^k#$PW!X|t9(#*6==1em849sD0X zu^B6>H#$?1Yq!Ix-IzTaZCA<0PGkRV&LgQ0h_lMW61IW{t(?$-cZW<=DxF8@igu;h z>NN6DKS4_CaLzq%|KI?Pw-$FqTfuOX=4Op%)Y`j(oj_4y4(bJd*t&h>Go6lGiOdQ7 zRH>CzO6Z`qU#H|&YwS3ELW8dH47pXP=bAUJ; zPPwM6NHFv2>tNbrwE6oTCHJ;$fq7t`?merWdC@E776A_tw5haWkY@#nWjF3TdDd6e zhJ0-O>+ZlGK6kZO9s1xC*?eTxQI9_KJ=0R0vwUeFh88MShM*&3s9aeO78((=nLI8* z^<-=LOx?qI*v`@E!1J1*b0I{PL{~^`LOI)1K!Y9NBnZxReR`weMRrr(AvPf+*(yfX ze^=YudUJpUJpIF#-4|;5(lR-+fPGh3Y$y@?+NB6*3yD*^r3x|*b+Lmj1~-I9x0b|R zn8Lx`;!KdFEii}pDOL02!|ImWNU^ke(OrJU&VNK;6XnAeBl5}-g^98Ja?0-Ew3e#$qC z+2T8X&4J^0kX8!%A3GXOQc2v_n+1QL6EGzTYwUIjrpVE+TrPYBf z*7+Pom-a>b;#pS$vIoR2@-*}*s*mWat02G==4Q6q84u$M{_b^jXc_~?!a2ja+f^&$cQwoysgsz33|bWT3U!ptp|0-QM3|m6R)qXm z5*9xMw^N`;K~ z$nG^sEoe|qVh;$3W`lzjq>=$vufSvh?X}apOa<|ATs@6FwB`f}+od_FQUVQ9N(A>`4$O(4M(6U=ADd!M7+A$yus*XU>z| z%ZCe=Bb)I)f{2xFCo)IQ9*CL1ImA}~-!z2qrusVM`Na0R@fozIb7TH8{eC*Nv2$>D%lB{MYn@DRc+_0< zWqtx?9FBJMQSmsi$xwlq^VDXw?r;0y<|tA(Bajx(o^5Cy{Js$=?W#EQ$DascK((s( zk&o|8?muq`wBZi(Eva}aVX1F}&7)#hW|3|ybwwZTv_k0Wm@rk6$yzNZ*@7@vKF`mT zLFM%FbT5My&&;LmyX6EhC%!^%qUgHRxx|35EEE3JA$Y9RO6@K4eaFfw-;hhQlcBlq z3yJH~{$v*#p@W(n_u|keDCCi{Yz9Z>6))vlEspZWn2>x|z0^ynode+rJv12;!C0CQ)@_Q(hnI!$JN&;5{2r zmNB55Ca94~kT6U%{)HgE<=!L)RYYGrKvY$Lf9h}A*|f-JH$4sy@r9s9k|Z>Q5%9(d zQ}_+p0&ocZ9VykxjM?VU7=|EpbW$0TMGZ=47n_o?lj^#t#YTF8;>>m@_dT7O?c=6d zJRSYq!%waP#(|~O+FRX8_xCu_Tah?|jwd;t3eIkIsODsKw6T&2A=IeAZasY6bmK4) z(7t-$doC5#h{ah_S#LiM_Z%?0K&}VmbgI^7D?n8yB(%vS1N9$NkyUP=bR!%y*70@2 zu#5hh%s?AqGVcClrbHJ3Gy{n}ySqQ_fuVCAC%fDVn8efLoo8L&>o+!|(b;XPWvZto{m9uQa_oowNS{7e;%hd!iq4E0a`@v(Qa$decSFCm0 zSEuEbQf$oSEKE3}Hq0m?)D-u$XXL21`e&2Q@*KFxTL` zfolJumLHfC))zExAgU3uJ}W=jVZ&A}9*{aeu%lAEY#8l!*9nZ(aKL>_dAz1v`>aJ# z>z#fnrwJu>4e+l8G2YW=d-gt=*gh}~_1zl2(5|2m& z{qQ4Ot_+6Q6vkxq(6I)_~_i8|yO8M@$nv_1WXLE1;&eauMrUy&atmEZqOjqmxz zAT-yRUr#_`X$#pfW8_n0#ErY5_YtvN@+TX+($R;^Lhb(Sjm7=+dduT?=QXGNvi|$n zd0CR=qyAU9Q^VTwawhR<_{5xAl);%B^uF}%f2Q6T4dqc!j{dL@xMYhNZZ((|k2vUC z^d5k+MTb!GQ5um_`Nu_{k0Km{=3ls-v)|=uwE4c;?lSK`7Cn9*cFXbg+*1UV?wV}> zoOHu#yY|KYNW}YKw0u4&mK}Qt9`wn2Gy6!H_bs&|C1t0p8lSgdyb#6~eh6D*#hTJo z1j2IXrDCnXvg4iJzr}C!srzoR&By_{?eo1gtJ!^X!Fz=>hxR7kn0}Y-v{(Dh^;3@% zzkli8n#NsRJ?B-rE_fB2;Ck({jtw|*WG$<#sD1w1W(>@tU6!S1rxb5Cux0`H$%4j0 z{Lx%R;%kkR-~591nO^jf(?v{`bNF?)u-UDRf!iO^^omVQ^=szS38M+(&p zw&`Wfj@^LQ1@*I1Es-UB_r*rGkBgu+@rPc~>zNS6TVSgvMduzea!}P6xlvlA6G}*9 zhC@9=AsYIyhEJOe7YxbFaGDw&ubBov7<1}HYI5JMP=7a;8>-oG}`m3SXbXWg3{VZQu?b%s8q#m+! zJx`GSsOxyiwOaI{SB6Br_Eux5W+BW@eTbNy*)p9GW{yqHP(VC_XipvT%F#(4ZVewl zl4I{^Bc|^7TK}MDlXpEaV?+i*U4iO9ac>U@K&C*=Y)$1JJM-ZH^}1d~DNeKV^X_h6 zJw`z%HSy#`;{hmZXv{O`-xFKElwjV;AK{i=CT=fpO(g&-|F1g%=s(EZKiq_3h9Xyk zCa;W&09|^}PC_gXD-K{u^w!&a)FJWOa=;!0ULtU}PDMYVpeaPPwOyp1FS1o_L+Pz*dY`MlP5%W;3Jqb}XS_8WLEl}e2@jPBhFCoxSplwKVZ_annW>76 zgcL~MYFsQ|s(Q$UGDdbZeki)K0x&-Rvo|}s2YB{(e=7o~GW=qWmi*thy zY}SN+18L$s(yPilO0CsW*xjJd-Z(jZB{8P^gU9zsA3{g(AXPQ}Gx@2p*4pX(C-zC< za~De(0pIo}u0PBBR&p??ndl#diQ!GyOmUmUxWtlcx=isb0oq8G4NX1`&K(So2#45_ zKTX|kx{cwC=s72>Q#hcKh>hokk4is691y+y0V~MV(S_Qw2w@VR?)JPN$90T$5K)i+ zGyd%Ph2rNPv|zs`s+gw*E}YJH$Q45}!4OQE+a^sFNWkzM%9FFDV@dP3F>>pQ_Z!AMY$+_83&gsOYzcXT3nKwSESm>H| zPe6aY&`c<370#(>4<)-NW1F@~bUTX2t_fo%H*!+fDgkFHyUobpr#LM-HB6)o(dCsw zsUk0tpAoZRt-I6u0maQ(Z2WL+Xrh>@Z$(VPN z&;Y>dx4d`(bEv~8G!3R7p}@S96Aa08^|k-RLd)(^X=|FQ1#5RmQA{CGVu;TO6^aYK zaXVK!_9f>rbEB|BAYfd#(F`%d!uI%I!C{{=Rxk9});HxI}#NTdKYgO2LfEInwZ zwcua6^PthbxxV!W>=&F&Qni&xHYrV^A2Z)VPg}5g0FO)4f!paC{#QH$Z(v<}GMYKp9*YODUWQQ;2rlO0qIFxgKMyVxy_*(27+>R?7pVYo%r~>%sntgcb;z zyY9l0Y3v}#GYWqci27(!Rt_%8$Ki}TAZ3$|rpaytIs31tw&zMY**j<1O)^Ibusuco zL|$I`_INZJ`kF||V@N_N-vK>}=>}bT_dGN-j;uk7xT{huC=CR82Fl;(ZY4(Xdy-6( z+i(4-ztfEu&-k zIU;i!bRv{@-Yj$(!)y)8TI05HfXwzQlOybHr!LOm$)74v4CP+Wb9l0m(cTFte&=5W zg8=u)q9(TT^u9%)>K06MjQX3we&;2xaViMl*4&7ng3^Qgki@XBccph(~6>3NR1&U)K$zt&1wO zb;J3fKcQ||@7_w$8q-Ek#Z(tDuZp~$9awX zg04>{PSS?PG+Sf7Jh0MHxqh(IthJ=r)+b|;Pi)@{^?4V5#(&wr&>=s{^Lu3`ASP&a zPeCl-7m;k{((Ds6H;B4?40F8rOI65eU-^)^%7HJio!OyFEid-el_m5^Fq4Z*)o~#^ zmJI925eIo#IsFQSe@@^gGgj#932&7@JHyD~zO+~7ZFDE^4@%PeQ_~$S1y&W$UvH3+ zXWcyh98RN9?o{LJgwU?wx*F~rtxiUcR{+76hNT`Y`PxaU}4nyf-mUs|W~?Nev6Pt)gzkAV}V~ciN{dTUssmuZdg9 zQ#ACvp~az0N@ji`jj{*i0>P!m?xR+j3vQrpyD@5f;+38#8_empTZtST!T;^*duF=8bA z;4t&z#Sx5r|KbQASzmzD`pUGseN7>V_hAX@mb~1wKGy?jzW@r(OX7cZ)^ppJhYAyB zu{Z~yHd9lvVNNl-?>f6;G$}i5DsXj-r>0HYsOzo8KdrzD1hqr_SAp2DzyG??doA<@ z%mxtV6E=D&+ydZwQ&ls3amj31<)$2$TQ;jX3bRF3CfsR@%w^FAureCo>H(c2fkc1L z*0b6Fc^e$%MrK(OFvhHi0Go^&^qNSXon-#ROW9j_0E*;{k*M_D0}z~Mh0A3@G5k2q zYxhnT7p2|dhP@;+>9!}phTH%4RACp587`Evr399;R9e{~8?w=7hIQ3Vq`++S!_O;_P z+pFu|i07&{%a+LwiSZzZM;~5_rz(!@$yd-gf}K4V-lUk@<&TXWCd2|&ht#Qo-JoK` zJa}$?cY&O$JY$Wnu}$M0(YKSn(xvZTo%7PUFL# z9{n6{nd}%*bh-FT+d}V)+vdOdqQ^Bg91rXy-t&I^>R!?6{wu}Fm4}makfM4VP z|5%06=CmIwe@>5yF*1H{#2poAfDN)N`oym~V`|qNF8|RU7xf@x`!AkeH$Hc`rF#9Y zL_-`1r*O3c@a zvf+onQ16}`=1oG3@pHgksHG@^x#)}4WzY`|txgZqO2+%Gn+iIQn#uk-Auxz0j34;@ z1W{$b5>O>JC91k--6)^9-%mEc4uq^4Z=>ffwFtZ~XPK<8w~uB-;gUREgcR7oMet3E^-~Vi2h1HiI4AWS|7(3<`eZYVS4m_WZ9jfSA|k7a|n7 z8{C(z>7S(i?6WwN)inA<9W~ogui2|&9AF*9-An>DbXC5T(0KZGalyX_Xc@AH?oI}` zu>6?|V?KIs8#UC3HX524p9@vC8*BEVW=)&&YI%OM)P>R_`+kcQ`w&nGh)4?!K&`X&Quc53MSawm`m$ctD~XL}w?>Xdt4 zA9xbvFX#njc5C_D?n&3el^X>e8$EU5&F1leVhBB&nwz^0vJedMwW7(f+n#e;a_Dd>1vObyp2IZv1>W@NKNCZC(CLW^aHf3{b} zehfi5+#FHPy?gGh)9_|s?&UVsEw_J&c3j$amA5h^G%;`Ij#K%3+5{QLga4B>=$h}wh6q2k}NI)CueKTBIiT4 zY~U>%!2zFe%io05P1mq|iT&AZZKHxB#yfQDqZFPF9L-X7#87&*M0&o9sr(dSiF^KF zBKpYB(%LpLfh>qjyl_yo4RZ;AFQ15nZ^fc2x8a>Qja?372wY=r0%!**hjB@isb1Ng zuAiYjV1tCp&FTUH_jC$sqe02;9q1AGT{bkL2!@tHyz>tSiYNV0xNVu5WHDE?p3PhX#EJ(+#TG1jsu}@RZP=WW@BjjB{E2{1n!5 zIaWaD&(+Sd#Vs^PR#Qh?(;U9HEw{bCZpuSj2VR&*kjgZohDFY#zGqNTqDP)=Tjs#%jFw*b_)Bguzv z$LIAVXlUmZao00$VNv0)2^bLnf@!~>c{>F4;(4$n${6^eEbd<&IC^RyF?WklDrNE3 z6X$fCIxBDyxRZ)?6X|?;l0TdheD;nmHU#qHA!!4gMJp&nH2?TQQc!F~%uRi^?LT3= z6I^9Xi_wn0oYR*AwoB+8a4ruo$G8kXgCaAcF#dHfzNi{PP+}f!IxtKq?YV+{X1v30 z>ja?BjCNm=*R=Fdr(H1ZsD)DQ))%0Ns;VW#zm4`>R);((Cwxs+gAVr&4CFEb@syV*z-SWE;8NH{( z$m->(BiHwR>21z;(!*c3=^TIP1+)HOp`*Z(sFz%dZO+?q@wne{)n?Z<%;g=8Tf1l3 z-_IvEd7U^p@@ZqNBg%7AdRWtOeurlCBtiMNMAR+W&e7F4*y$aAHa_=%ZKR@OvvDaRul8R=PuYP$ zS~lKp>n%eC8CHu2b!0lkzK;9&56XY|F9mu6ZKjG#!Dt8G(QieJ9{tdtNLPD(@K}Mr z38??2H&&rfN<&oyywi=OVTBnvui@Yp#cg2@pkNNBn{9rtGAz?GK{wJ z>z-nUw0=DSe?9$XQ#H)3=;MJA#n#M=PJ=7dhk;>3(}5CE)QugF-VGFBj3vwNlr}&9 zu=l;UX7M%UHxE&~(&1@wvo;3xY+a8vr~dGHi-m1YVU;XsH;U*My1O_XUbk1plB+O= znzmJ3n#4z`I?lo%XgU7oY+BgI;iGh(1l<1V7J)cJ(4z&(1&u($jAUjfNOGD z(5{O#OlStf$X%OqTH6fOl=jw;ZSoWO;anhQ0J8=ZbyyUE0YXfEy3oaq1ch_HPfjws%2o+=g-$LFb+ZC{ z)}B7Ag*amC!(MNde*f`nQ7q|)Su$O1r3U==k~ABevJYbRpd%N@FW+^N#6ZW$Qu`Q} zK8DjO=)r|=IJm2#kb^%>Rl_zIOnzuqhadTeA}3emA5*cVCsL_)9pXxPUmlw>qJ7+L zbUwyiQDuM)DPM78&nvjZmV%FR!w2PCD2kdnMv-aEhL7WeAc%_6&*Sn1lJRR0^&T3qmyb+OU&41wB&p2K z2OuqFFH!aWtFuioWKr7qmC`i?*;ZO$s)kw30&z~U3`KT&2bmB}_-Ri8f`|Us`?7+aeGJ)HfGjO&jV)p9JJqokS%X+h>sF=zCiPSlmSg!?D~Hnd{Gm^J}U+F-O+YSPNESAc&YJooJV5c3wla0V&-%cQGB`={8=9?Hmr~ z_Kys7cJ&)T(#QWc69AU&LJ~nxX2t2>f0Kk}^b7`v!<^)GDBCDH@7=SF&gp^|0HlAj!Ewgrb8AdfgSTTw=H2h%DvrT8VJ+mm%6nQU}Z%`Qq9bZ&Sh4> z+?Op9%SL~0y9&i@)c|Rr<$`sIND?!hm?*DV;y|hJV<_E@TX=>R*cN&pGL^59V}~wS zK_L9kcLUq=N`t5#8XfOSm||hNi3#i@ip8q(HJ}LWua9K3r|Gtb9<8~HJ?{v#`O+fU zw$gjV&oA;MtVcT1=3qZQuAy`CguXUBZF&KCL>?esMSG5-8mI-mG)UYDF`gJ*mC=q} zT@#J{J%Mjc)J46RPV8;E1hX-6Ikv%9O}@mSLJ}18)*|{e3ksJ)qC8AC5MVMI>*WJC zfsGoCzHk9~OxwAhC7_vvL6bugi1}t4b!s4?TK+K_b`OL1nJ${f?r;@Ab4C3J2{LS7 z&m&Li17s~u?T`sP33=O3%=-J+FQH)S(VOFGIFq@6&}j5N~Hb zwED1U;}ZO7>F8?YznARV)*+T)22znG43j|?+Kv#MJnJ0J;giwZ-#k|Gq1^Ok+PAmZ z#0?Kz8!iH1+jRUyV%!l1s^ZyS4u%;jhCc%GrO@p9dOEZ=8x>~g^4!NbMK*sz475-<3)-&2qOSdW`K|134ruArN(nOSaI@kFAdlMid5Y6f3r6l%UxZU=qZ z({zQ9xXZ3TFBwfM?!0ul)o&8&+iAR#u`Y{zar2O`ik4wkOQl$P{=F+PwmzMM=H%{o z34sN8!Cq^?s}tI$UH$h=$~<_X{(A{&Z?!`yI_kXgqc-sArsoIcfMDlnw}IrwQb#0l zcmFQ#hnVNK3(F0Mw;NU>NPjDxi`Q$$xcbufq-IrSZO7kH#?4Cf@D~d1dhD)NDe)oi zSMLeWVaM;;qozeFRJoiTIFT}u#t+T=5ny;rPS-FV-z2%~(MiV{rOh~7I%1aT+o-Lr zP58x{@_VO?j{U8a7V2*nx&`J`(BmWj;eMJR+Obc3a@F^?6HOLE-u)sjDejY;VH2lS zGCt>y){V&2-v1c&{#?JjjJk2*;pCos``o^6KKvL8C93?jKW<*=OP^xKSIju1Ek@V~ zhuVd6RumpqioJ1TBR~excf+EfaT2sdS31FSed+*cg+N9gv99Vn``%y64oR5C!kb8^~5jjxnk4pxhj`40-3CA z?0rIZ;`%7K9OI@CK`#-K(IO!TR)8pn*ihrBNVcbu>YH4YxD2|M2*#*ZjH12*6Lw6^7X7lym8|8^tAkvT0!vSYvm zA<;lay=tn?2f{=w?WYS3oAlTEI<76e-4P{EQgKgBJUbHto!@c#?i%gACd~V8kiL%{ z@C-!arBN*Zv(Z+g%TwKuNiB%)y+e~pPUj7=f9CijZ|F9tPTyz8r98S9zAGcraKXZK z(fiEIt)UouRcDuqiNPQNlkv?FMu^787rQV4?=&~qhZpDe&_Fc$&P@tk0h54vaXevU z^W|~N_~S>1Jb%?2{zW5@uP~yxS#B38cHA|M5kMsLul2B`B-ZC3!9&J`X@|MURXQMh zJvEpvx(=?9Hq2&j!Iq+>49@r5&ofoPf8<6dsu%3uN%q}UI2%LH;bE~t$08XtLjSq7 zx});6DDy1KITexpulBmn>`UI8HbS|b8 z9YLkGNCm+Lvy#(<_KcpqC3qUJc)kGAti}NiZ+^gJTj&J1n}r0!PFrN2ZN{}Ne`!7G zp-Bgs)UU;is3=OIUXCu}9N3@&rcq@j?{^@Et;;J;yYqvU{bb!e(mB`M$%Mn=4O6O5 zB60vE9~}&%^=f5cDB313xQCGaAkNovi#Zydw?VFmY)_q+CPHXXy$RV-c~ek^OvJhx zG~xr&v<~=mPjL$(ii$dB+!GCei9^*! zK-lFw-;Zh3y$T=%+F#)yJAQ&YW9RS*j-ab2bkgf4il&2Z4Gr?LI9b1Y3i>hiA9MlF zhh(6r@ArYbgcB99w;y@#k}-Q80TqL8z|^h+&rPcQu&uiO6J&H`d{V}GfA4_a2UVjw zxQ5)Y;NgF^l#(K}XMJMcbVS045ofO~_i0sHfXwf_zgg3Es02ZagqQ zlo@|nrOY64m1zk|qgo=s{_lP8MAi0py1NT(cK?au7BIem>vgc}IpaZw)8>5nL>TPg z0i94~NTp1!=GA2_IpOnAc(oRyYpmJOuk;Rsk)7aC;!Z0q%VhgZW-nhHboR0H(w-(G z$!=&}fB2xww0A}C9TE(AOHI`w$rU58pliH8lcoC23QQJMLK|6Cz8)Fdz$JN`h#Olt znJtqSPTf2(;gH#!KBn*Z?2OMQ?axW4^D%OrRql+Su?e4Vp(kn{E2}-&4DQre zG<4xvjn%Z0dbIyJ4bIv&DzCWM$=k?~_VW6nF zm9;3R-;d~y8EEYsrZEIZ=DA%PIa5qw4#eX*Xh@mI^4?eETOQoaXI*R6;0-(Hplh48 zaUkA0<$9LM(l_0R4j2fqDQ%Ha7h#h{VQT*O_(5*Vba?5tmn?Z6=zwSHXnm(uWw-jPqQTT8-)c z@D6YUOAE`derPCpf~^T!^cii)ZEv6I>}XxHH*qejNvx~pO>m$eX!-6R7`v`NQzbgQ zKr9(G_n?6yJoMaYyy9_ZU0ONRaUSOTTxK_8OJddTw*_Pmbwn?LB+9~N4w`4tyYjI& zOL9=5UskZ|i!bpF7v)}-35T{t-;vNSi(5eE znbJP-6}INW9_YP;l5uBi6xoLiwWmrO$vaa> z*j24N`pF84<0pb9(%KjTE1iy0+2L8Sl|cjXAvfde$4XW0IV`g3J>HL}zfK+l zWfqXV_juEx@B(ZTC83E@&&Y{>q<`+&jFJAgmw@!Hv>GAo_WEL7oADAYxW{F7aS3s5y zIfuj<3fdZNo>?g24tnw|RexJxSDMw8Myz-_lwVk=ZR6|X4q~l=f?+0ZZyK0888a(` zt1F~{Ss1cks2NDLGyE8h~li_~(=LUvTDUrp!m-|80VN6ycd@l2j|=&?NPC&MMXBYozH=TjE^c&ryTbW-JH8)+PrX&=l*T^&U9>sI`Ux5mtWm1V9u?Q@%t znm5|;opBsb{MnD@Vx2)j5t)QVkDB|^vG#$X&W`e6Fmo5dE#Cr%{xpbKx?HoyiC*?* z)c>~dWO#DF93j6FOM_Nf>uvNzD6FPNNUfkESE@o5U);n5lqqn`tU+xyWDkICYP&1# z1%qs_$y&z(bnFn?Grq37;7CbDF_`_ON*}m`phPa^g;Y4t>BWFi2MN1D3t>$1O4#a3 zIZl<>iTf1J@{mV=QhX{dwSgip0vIg1d6$aI0oR4EOI$YK*zQRP+JvAjZMv5uoqJh) zqkfVB;>b@L*1-%8JZqkD@%Xdc{Ae*NweT+MUgXbKgLZA+u&ubv`aGwqANPdY*6;%227YYG2yC!C5GtQ z6{vX)u?`});LGv#Yxe#}%je&=uQ3hVow#A%7|lz!jB>{T9}by|KDS`bq4};;Du|?% zFwsB>zY3}5bN(xUE3^K%mBh>+elUcmzQpX2MGiHmN&)0JwDmb{OSiEH^mG>?3b%fS z^2W7km?s-_I?zbjSr@md=X@)t0hyz4*g6owlLFJt9$=C(xCF=8PU#{`{0oflZL$hrm_3TN0hP7U$c58o4*d_hvG z&e7LzqZeLkw3Z!ZTLP%Y0C#5sjq6IeoGhQ5kAL_aKLzFxwD+zjRBo2`{wN53J}i4g zNd@bZBqLCYfv@?4hulu(O?^K;ZRhxam#ZY^xZ1RS8y|IU)0n8 ztJLv;U3G*3=)G;bK73H&OX;G{VtO&)dOQBQl0@2c0#h!|yU}(?Efi6hxg$zG4(+8! zHGF>0#C3 zhoL#S!St?Pj03F5N)QE3;GbW#uBja>U7MPy+rqMz`gWKOi7a>KVZ{8f|A-4>A&|3y zAWTW~(h{X%;9mLf3xn1|k_THo(yjPW0u@g{)DPz_SiuHp6cCQ2KtrD1hcyH%8NPRX zd1PYzdK(1tPkReOU1c$%E9I`bdIpk3%6Ynh3R64h3|6RpzE7xYEv@5h?z81!D={pZ z!mZ7E+Swl*GJai=5kCaxsftT!qL~H?k#A&?_--%~8;7r{z@1WvAsm&`A|vYzO_>yA zlSF$ZwH`etd!&`F%i2w&t({g{XyXo=#zL_{j23C75TV0vkyHG67~rR1^CtkXNx#k) z6H-PhsmxIADXUf!K3({%tJG)9?#o;qPjvJCwPnWvP*VGtSYp(2Z23$05~x9ALz9^& zkAlpHA=B}Mf9>`S_u=<@zw>kXPK)v5+(3ODK-?|LDSpFsm^%(AI1TiL%tbw0O;LZ_XRNSeKxqqI zrTtLqL9UONlO)BXYt%sJC%4z5=IFFQs!46bT5KG3-p(&V9-Aw>bZG>q6cLV=2Dwymn zem;_3aYHPB4V5BV7WY*qS$Jy9U`r=xE|%1ou)lZ8tPKh;Ja1}u2Mk+R+G94bVKJ|PRWHuvQ+^f3tvVKahT(u5Au z6)-1{A`KMlC>Xs9a1h|OPBaZSYKucfv1nN@x*3k6_6v{Ad27piOV-n3B)kQz4W#uuzLZGgAp42JKD{l1i;Trw84LMSPvi2ulxZ~@-`J6v-ut9+LcHf=U20V0vGb7Ay z{Q}h0buQ_}uOQx|)CFpWuz@U!-(CWoB5Uhr2Xpc~w#<{$;rhaCSaB-Cabn?b`f`GB zm>-|WzJ2h8;_NoOiYlwU>9ladXGC%{2g{tSPps7E*ma($n!d$Qmc z*2<}m4Kz(iB_+!`ASfb6y0E5ILaY<>J4n6DyJWfEL2fbT4*v1DmXU;OK0E52_UOz9@0<{uupqnpLTYSv{-lx;kUuZfCe}dMz~{tp}P1d6*|xyNK&l`eQv*6aPIVF zez&fVI}`^iGWf4z5fez8>N+xr1DH+K2DAw4q)N0}VhRxsnnRuS$rfAHTBL5dUWc`?2^WzwlgK|Q{GhqPV$ zMo?oq4Bob|qW6-(4WX;x!L*#5XlK3b15uZMHCKJS`xIiPRL-x-v@fw}U&KG(+PmZP z9?jj9z>}I=MY?_2z{y3uW7&&AtdMyAgq?M<{wO3ib2ARO33*wM%z>{Y67|NIhr7X(4IUsZhT5)n%Mn6@rMfCp0N6VF_d7PHtQ_%ts)eM@Q zNdGG|T?p|Q7ee=BlPJO)vlk(&8K8b5*L=X26jx@Pm3X@Y_ty_R9He68O2t?%T1@e{ zfGlDbvI!74yebn(n`l~+qj)9~+CUSK3rAYqri*R?0L!1Zc7Z2HoF1lY!~sEv z87=qwK5i3(&OrAjDf3BvcltD^RC^I6PP~7jxjI>)_ll8lN^o_`UQ(G;Zfb8UWH-zW zCT$OlAr=jmVFJh@meIkNm`S1$Q+D?)(hvlAmtpg`|DiECv(m?fA}k(j8OvF-$3u`e z?~6hd96SE>HaocL4X5LV4R;_Fl$Fou?>Q-{8C!ltq44|o>>}V(q!yFtL6wQ~l|0_& z#U?hVo!6IH8C&Hvgk^AbAUZoS`bDFk+9|m_f|apuP0)DnS-RRc!kpR~i$zYX%7i+6 zdVYy)&d_!b8KQ@W3WyL2V0yThX)O+Hmf?bak$@1P!%4=G~( zlOK)|bfgMpb4qc~I5a08w8sf(Bl{N33FtJ=IJx+lB}2z1E4f5EsXmBNBbwRJQWWa0 z@kTvu<<$t@>O&UdZ#+=-tj%O)&CWbulHVgDr@TN%rkv|!Y#jxKjWyohw7xrULuf3h zBZ4{n&mp`1WmpitKk}yq4rWSprc9atx@-l1wD*P>sBKm(T~pLlzL2hD*WjPVtXngT zTWaRk5-#8YU&oEJjQ+IciH*(!QG-sodBe_OU7R1Xlq#fw6I{0eks?1QASl#D!p{hs z3Tb%=f<(Nya@h@VfP47i@$q7@Nu4#jp}UG~Xh`LJNZkgoxHV&;n+j{V!^~kVgF=DC zih>GoPrD&)J(8uYV6`iY%@4C$8d~`__?i-jnm^_qeChv}t`7l1e^QZZ_#NIZ0eEnE){TZVyH6#zyO_&diwRrJOqkRF|{XKXEV< z+9c1M(F6XIe(NjYc`Qu3D2?|c#BGuhJb+2L7jqzU7n0h+4~8j(HZ(EnaY6pvn&>dI0-$ll0Z<%pio9p@%AOm~g80Fhp0%5k;|Q7tfmn{y4=4S4)S;|d z6NiJ5XDx7PTT3{QRRj+wMuOK2G=qUieVM>gjSek+1dt4nRHU3u$wGtMF*S9W>Z_uX zch3d{ZEwiR#5{H~{PGsf;mNRmnNlFBRfV*@M!DoIfGGWjOcql>Y z7Gz+!i-s6d=?I9bDkT3>48c01U<4vl=eHV2<%;jA#D0wB@Cq9Ko`BDQ966{!GJqO} z&NSc*1qM`9Gz0cN?{A1*W^eV7x;s3XF>;*6&)lX$!BE4hREeOJsqDYJ@qKVYhNHw; zg-|SnWiidY^D8HC!bg@UXJPPA&lq5Gr=p^Fn`3vry2sPe_}naPbxZZ)q7e z;E*{D)|&(>S<>shA`t?9)1u8NC~yngW7i!F_b=M3VeU4(^Nj<;#@WP6D2qGpunw+lE znZhooxD}6h@+y+$-)KsKTOe!&cmC*z|Gn-~97VXDLX7iCjAB6$)aE_+pdR=M-H(-S z7Wk^KcS7@%%AcvbN~y?!pkCX+`?_l){l>=r)45^TmJ)hB*kXR`ju&By!TdoBiSfQ~ zl7@_{B;II=l7u(pIipB!de#zueiiTiiF0!7dsn}e0CL(J;GdKQZC=o5jgsN8tVCF` zb152D{azvzjKOAL764!dX#(hOnC6>!wok;8IRxVB+}c2nUq%Scz6$)Z%EV%0_~1 zF_yxa1WXVqg+^1c%|ZsZ){}2E+I{B}HduLF4As3%^sp6KZlaQ(2d#S6FOad7^WOJoN|!`*3++Y)K?A@)u%AF+@aZ}`ITytCb$8>`>7oK(O`O~X z=ARG&qedy|f!*yX6Q`w>7lP(w ztxpwy>x;e060EGlxdE_%!SKM|;i`ym#OVQwj&(2w;7b^$X+VL37CV* zDKVhw{&<@6ZE7MXBK9ZBq`4pC>NIRdL9?JQ(nwCb+XwE#*D{pH<`vetcFB9n1c;zkQOi-Y&#`!2G;sIvYL%)W z?z1CAI7q166W#^04%AIULzGsop`)y$g27Z{W3mup#;?UjL9!N%hsE{@>Ew~U-NWVB z121cj*`>6LdQK(t`vN&4p~4LE9`Z?*7Cr~CvC0>50u+D5LKS!x!xOO_=llDlr1~+o zXQ%K&szh+HMy!Au!(s#{P(dl}{U*IVGSPjzQ@WtTI54&E)Kn4w&W4t4xSjQBRlJ;% zc+CB)`NkjLz^stnX^C$Kd%ex{aSobW zEq69(?hd!)`g>N0|%X0plapmE>zyEf;*g|0oRVM=g5}_#RkjuhV<)e6e6+pUM9Dn`2ROg9t<* zhF_*5$vOjeEVWzBbfFrG=K<@anOA-TV0<7!_oQGsjkv_ zBWjaQX&Q^{G;B(%li}SO%Q*7WrQ>qc9ifqD-@5WX-A^+PUT;%dbIS9Nn`nWco*EiE zeq@qC3?BaZZD~Q){fEt$RL9e2cV0{xC-yrWRB6wNNq;NRk}Q%N7VYh3?nqv_KPN$B zliR(m@gl#E?bK`IL!0EGv^-f zlayab{IkU$(JB^%j*Bxn4LzBW0DC30RFpR)exji&RUx?72! zg23paaNJv<K7<( zT%8v-ElKnidAIMcylei6>SY!9Ppc@U$AbUdZnXpzE9=Gltm<{lFlri3n~RgDApuuc>>m} zrObS#xAcJ$goeOwi$3j2WR~+=`IAGfEKbHq6sb0dO zH5j?6LK01DYxBmOCRX#$t`x@h$Y`xOguzavW1%nv2-62fo^yVqwzBOp=%%7exF!I% z9KjeU(KR+6-G^TVSVZ?Fa$RTspiTp2RqLU>H^lgTkAv13jm4O_cc`PbZJY8C{YJ+9 z2H?R!6ynrte6x;|X|U)rcgp>9R?UUKTg^NSoxsZpCj(Pw-$GDrBTn1c@LXT!b<|w> zXViYiQ9jbvX9`atV)%hS1Yohj3HRI>-7ww!*eXZi6F&SBf@gkmn~^D-A1P4FLm=MO z5EX#hfs@z^5dQS2iK4fV@W~?kY)u4ci+}-o7~JX{{(KZ;X~KUl;Mbn`?$}Pq65LU# zQk!UQoYRkI`;g|HOJw>yN7&nOAXNF?+oQlJqByF5d(Q*{UjBjsd#vb4!OxKkh@t57 zLMRqbGLy~N|EO>?;tVFXz2H!NO-c=(6lPpig~H%L9FRaCucY<#0AK7+$b?Tjm=PA8 zXBs*-FwuElyyD6mj~o6r#)P?|_Fyh4U@|T#nxw-0Nnp;tTN3qc85Do{+V3>q^nE26 z?Y-EDE`9x`?OAaQw?HR)zPUTd=t+|lJrYHQ=^cAsis-X&DFuCOGV7$Wv;Z*AS3~h3mCf>Qaf1?aqa=sUf*$;LR%h%mRpTmC{1s)I8k&wRqKhsv0p$$ z*h!cv=d!;u(C+PCp?_~)sf0yVAyd*3e@?enSc*vT!}OV#Q0X$uj5UExN6wJhGMa1R z0j^NqoJNt!)!uIiFvD|GgwSJJT1t9?rABm1aTX&)s<&evVn`VJ#O2ln z1(DV};iGON7aJ=UJyY|gcM54p97gI~QaK(XM~0%Pv{7z&b*eEAW^~L66TY48#w!{^ zOF@%QHu&NFfj|hSXbv;%C)}OlHwXBIm^_SYioB*&dyu~Wik2H;WN=qBNe(x zfIA4L`bPl3;J*1Fyu2vJ`#IuU3COVSJ1Z|7E1UqcHpORLYWGfs6K*$pUIyDb_rHk| zqtmr_1-_65aqte6(Wkx=iqfp7b1$M#S){t~nH)4H-20t1X7Sa?Fj63e9C^Q=>U)c1 zf88n>^F{N!BBb4jw3U4sCDHWwu{pg`sk}~<>k^_JS)1`(N^uJF`7O1gEv70(DDxHa zXelx|sHyx!)Ox|z1HEK5zLO#$a)W_sM<_x8wGVX0UM{r-{c~OJmS9FCe)X^ze-%(I zB_Q``TU49Be@8q3Em%)qccKC$9$ek9NxlJ@i+H3r=J35rR@V5Wfv|^seOt-mp%Tp~Fn)?0KU`C>849h9|nh_|GV=@xp>SkK37ImION z96SIx`#VK_eWqb1EvFprTMDH47))}SWbF)xr|Rq3nQ0JqW!BwunfgWR6yf6) z{!j!^cFkVE@WV|>5@{+n61_nP4$G;f$;<@H`e=%sD4eLSpE!SbLJ>P(ZL5%Fv!ly^ zc~Wy8e@0gKR&q`o3YS*F9*Chryqe_+c_^t!gXdVeY~S}V#$_vs3vV)n6}SkbEReDv zD?ameMz#829@efk9eJ%TXY_c1C1oLlsIIl-bnz|Yn;Z-;!Q;GcC8YBafL)P*^4(kVjnkO z8T=Rr>hDeMPO~RHx#sl=c8i}(ld{9Lrk>?GSH?>0w2c?jKya+no{R6wZ4t#$i+4`~pH@Xcg|KV(Y6tvu@O6YLv3Sny7Q?$#Fde$=X!fDs&zX9sVRzIt5xbmwVSoVNB(+}bq`TG)$bw=?7-E)**JR{>$-b9|2Yg;P8 zozFF^t$oi>QB4S%swKDvKWu|m`EfVi#zXWr z+7O#rvmK&bbWMo?E@Ln~`XL54X$F&mf-k|{fc$UY0_6Ln#G|Gs^ppg_xD+Qqb#DUZ ze6YKyH_K==x9rfm*R}K5>oO2~BD*}PTTu9r6{-}~A1-t-sPr=&9FS8y7E)8Da1R0C zKkp;Qo9c1!pcWi^rnf%D_#a^yfm@HAQ{?;I990g{$Rk(gZkoxS3(lA4-wDw4NK&od zsD}T$8fdGhfchKj$nf|`1CV5lRyRfqPn#n8*MdDPL#&7hdrrZjb?Q17r~uC{Mh|Aq zo$|V5$W7wB{!ET)~5xSCJg@wVHjJe<)aDAK&aXufx$P5xr+_EDhIp?@j3l_$F#`t zpoI+o4}=d6`n>aQDe(`6UGKkl*O;>W#}9tiDFrz*JNcFFFlVFZ>^u*i=Y2094~bGE z$~7*#=jXY8=QtqVH`)4M6R3wie|&mW%{=!TMHZ#Q%ikv?0}GVv+o`n2g5_LIS2Hi4 zJr}?y#&=xe?Ubib_U4Tnd+^K%lS3DAW(d?CJGQ#;EVBU=!4wX3_z=Heu)yo6iNSkq)X%B}{yCif*R|=Xt{f#dMUCo~*7_Q>6VG%J%oppjt}dsx zJWffBsGmv!!$?3q4KLxPDM4P)-A6p@UAO?f!?ElHC6=4XU8uQ%ymHQ%Jv_y|f|QR> zacAoJNj~7R|6b-%8p1ir#Bm>XNYIV9^-0i7N3^dk%I*%DI(U#Bn*^QBdVuI(-!59O(HgWc8RC z`Ntv7btjI8JhMEpq7iloCCb|XUt{X!m|S7ArGe&`BO|GBOkKe|ltiw4=>dfuqGkv= zBb%s;T9)d1SrD^8hid{0HIqH;2BQ4JCxXsPMp4zJQMXFgB^ugdLtQ1`XohqG16b-M zZ8avYY8tpM^8-2>ZZG~asyZ(mgi(ejdY^*0?-PXwPnzJtp#J&PJaB9Q`J21PRzQ^R z9!L|+bnW7q&+Z`@|M!!17SJCNGl1yom!2BD^H7wdd=xy!`kzr@b9%T}vN*juxJC<^ zA1F2%x#1Hv=;~fN`|a3Vvx9rZ?I>1oae{X5P8qpip#YjYzDbu-cB9`{OYJAS;zfhs zvTxA~xA>4U*F^mnh)2Q)D_NHtB5aF!#p?yJj>PKD^2rdWZ@S3j!||;2XZwWi-kzwb zdknwgeB`t$zq5gGSmjVOx?<^#R|M2Bz_1rm5eXMF2}&WxCuVR@NuP?qD`sCl%@^4s zgI#-&g!6iNl^N2^!0isflk1zEOP&nXdfRFwZ&j<*vwntP-j zFQn{Suz)koZrWXom~@gOvJK0=%@QUk;$0% z3`98M+WPgpOFBZh{^4tjt@{!aGdS$t&ZaT7dRiQEqKWN=a;Tdg82${wn`sFshEgIuSM=vg=A7h{YjQ}@t(IIm#+pxj>1KG>jKK}CUwccv8SxilYtN9A~r zdu3vMd{^fQkOc0m?bJBLGCyKCMdZ5LMH6Dk?)7QbaQk**K&a^Mh=H1km%gG+j?y(r zaeBM#$;~I~1-#H0@zPJ>5QZRM57G5N;z)DpG>)W{zvg)2HD|i9?5=w>}GGP#Y0HY6$wHAP^GIE zQxd+%|JD60I)1i`_0F6Ji*~y76y9rEa>-xr*e5o({^R}6cQ@@f;#+K^6c^CD9(e<5dlON8IX%$p#o^lcih`lK0#KZw9J%o!((>W;Q<1XpyL(cP@9K`# z)E4(DkBLe=(w`BUy60AZepk1* z&=L1sg#mFpU)&Mx?9v2kpIDwMG0yvp(CVNoygGU9q>A*JKt;Mc(}li2P%d38s_rC$GVt>uCPvISDu;Z=REN)U(Crrd z#=dNpJ7%Dm4Sg*Qpk6JW*D`vm`cfi9)_S_5d_H&${x(Xu_uC`wDOWpfW0p6b$@b0i z{c_m%aZ3St9^6C`B@;O#yy~5Va&{cbkab2N!pG2EZ|9L#3mMV4X-8(n`-M{ZRHhUs9FuNfB=oCK095tSDxw`SHsa`7ijh zxsiGx&hy{vp4^UE$&9U2HY$Gy-cor^5LXjZx27BnERsTQPNoPR5$}Kprsq_5h!>AqE6P!tC{P$!p9!R^sb-hyX`K!d8fzhQ z4xKR=8EcY)br8I^kW}__*6j=4%I1sF8uG0Cd+QkDZ3L*K``_2;?0^d|(#yVlG1_%H zfRIyDeT8!3D`|g*i{7Erer3v%D)`G8&tl8OUj=Jf|HhvcgLO&4ig)fNJYXu$rSnHd zg80h+{rbIQR^i&NUaeWr!!x#7nYN7Fvhdv!*R9X^@X;FFDNyN>?^NN`&ma2iDq_4i; zW^&#o7DH2PB3Jtw^>|bp|ND8{MZDV==eutog{nQ_v%UNzQcO(2*{YT%$)cywZtCX8 zopqspP%b#wXykZSj6|^PhcqZZcf#);7Q!pt<)<(8*RBk_dS!J~BYlgzV z_ZEy)3;&H6KZbo*^A7i-F|u^WkIgiVB3cvX1PA-|nB2Wgl8N_P zFFotUk+6V9yqMF3t9!~kHDOkyISiI&E1+%@cc1=L{ zVhS;EpMXh@!hs;cFiI{38>?_y$>;sGleU3|NMdkrB}mox_C7-DR_6-|-^wZM_olPw zvrh$z*urf2vYcX`1ZrZ$?#`;|(ojpH&(^uLadLc

~HE3)yU6Aot7qXBu8a*aS%z zHlbku@&Bl&abo^RXNpP{{FXrWy8_{;p`7-)600GPKFS&TRs{6DG+b|&iHAfYDR>!a z+ej2q-k7^@aE28j5W7N}88?T}gT1mB7YRnkLb0HVqfJ2F6nc9;jC3A2T&gc=<$KK_$?A~Xco`j7qAhThSX&UXu8)rA+F;` zoW3%2n^7r)j#X`|}=vJ;NJE#k< zV62;mti4zi2Lx_lT+~__qSmc57@|a>uBmu@y~XG-_X*)#PVb~e(MD}GWbp<3>$1p{ z<$#xBZi^owl%XRnrzeq7c67a?xKueWbZD}vzM0c5h%xb12L6vQ1(*1Q3%7R|sAv_d z1}>tHh|93NQD#{tx@>koVvUPUcviwD)pdJ2DjV!uzm)?nt#Pp9?O`FDJsk+H>bAT54B0gfZ1xJ$SZjK<`qQV-09h|&;tr?!VLv$1|0Ov zW=u7swufC7*YAK}B;xZbp7<=n{XHFO_Ts@U2#>3c5GT((|mlBEb_sQe}!z+kRT#n zK`T_xYJPyVln$#Ddb4bQ;rKqGw{G&p>ilz-L&lgB4ElCf;%>LS``$K?=%v(@-g=}M zg7S24C|-NOYkkHf_>p1OXBO^VB2_N?z9fE^bCgSGAi9fCP%{kQn|7&Y%Ag|yW_)8@ z_~_Z@dS3Ag<;SzNCRUbl!ogkoZfWd>N5wm^U!|zdw;t$Pq_{cjdMs~l&YSltqM_oO z>Jz1SM9Abe7O~yx2bMKZM~0{fYe{WX{0uTi=k3$9Tl zvx$S)4K{k}LdMRhX?VzTa1Jj7+qpi}?7KgjpAkofr0R&$%j5an60(55v*LWWnhN8q zqu@}pyL(;DsC(Gq`F|`TmXgo9yBpl)zZYsbl;X=?G(dZx};uYGoPG8-^? z{xe2w7v~!KoX4i2qA0^E zsx6yCR^{E6Dh=xkQZ>iDW?%MfKFgZNQ@oN&i2aof6jHN0L&HR2pI_6|LqDfcvB-rF zLCUdXfzc%GCr_&S&m5{k%DS1?n1th?*|8UgL?j|62+w;31f*1CpNQ@9dqx%A3vxF8 ze5to>?+5&&<-`VhWy zU#H)GO0E7`VAbDbq|4mzMfDV?j)U{+Q}5C?h!tdJyuTJ>-zAmKx^}b&1A}1*M_BWv zX!mzpDS>1l0Fn&WAHaWiq1H>>etA!9^)Nx?w&dw-e~YMdWhVilx#{k^FFM7qUH>Qt z59(PLjqf-7_uA-N5(u;B;fm5)cWtiiDto(mC&PM=O@?BM7-$dtEynxzZL#bNf6g^p zW3w+b?Nu2=YhQ;|-I)#*Dg)BV>EfhKG9fb<=kESmO?z}$@4FWF@p@3*@mmhJD=AsrP^c$R{Hdr1`>$)Brx!K6Pc zvR72O2SS`o2E@LbPQ zhu=cLfbcef01>tu(gQn}*1EUd%AczudI!Lv>hwUrC0}O2l_SBBQ6}4_KQX1}uEmYr zDv#u|9j8xjpMcvJ;(9AAqArvj-!Uuwbk-4Z;>g(<&?R4U2>d?#Ul&yff6gPVfnKyC zYi1RUb^iSbbWifyS6hWU*os$i?3VI6xq)a!#^m~KrT7$ja~#p0w2(8WK2XVydSHJc zxg73iXYZS4tLurB;y0*j?mm&fIpCY)YXY3=KKQ24W$$I}N1leZTi@RAszxukrr4Qm zRm6$IXIZl@FDcooY5Q%CnBU0&P8qxRAD09x+)oU*Ibx_%+{3exIyGy%Ihfvlj|8d2 z?$_JZYuqb}*iZtE27^DePycsX_S(oO`PzsD-L4_59{9QCe-^H&r3IE|{`*+a<$$!+ zh4e#&%v1lKrR{cfRI)GVXoyMPu2WGloZ0TAO7@N~mk8Uc@%J3nlvMr~#hqBw{~{VYRd3axl!E8z`9Mnn2FH?o%=Sqc`W; zpxFJyD9@mGtxUH$k_oS|qM%r+0+*?WMy8z57EYXGkmK2t(6^m`AcOf3E*t+w>w&pNP?S;)$YJQ0Zy@2Fauh@eJvP z2O5T1h(E)|UcSAYMWCi$BdYqum68)Ng~l~(_-$}5xWKR)K`$2u)f-jMJF z-c_6fSZHZxW~TeiFHNWRjpepUvkt6`!{hhs^>N@MgY$s7-g}9q>$9}$E3b?|< ztgcO_D@7}ziXQX|dQ?0xb{oficQM_}9_B1P(w)Qp9+{{T`CYJoGwS-|7KmwH*loYD zIgk-xm)m$ET2(~O&`4sDI zwdhChs*T(uUwA#b&yS1*d~%vVi}4L(78}Z2H7)(;r(R*PLB$@=y%c{iHjWuC|DC=V z7hB%jC!@wO3!iK@tFe!%T5YQPsywCfzU$;e1y~y=VD<1nhB{OklA66!N^J5q&fc3> zK7>5HeDLBQBYke)^{Z}5dQWM1Ojh!E5p3eXG93YMB@( z)QCb$we|U?f7WEI&+Y3REw_6w8V&vNIpW}3mG(DRH&B>uOM`V_4htccB zONAGIL5B0$0T0FH2qv|h>rYY)Pz7F#G5(zw1xNYLB1A4;wEe@I(D3P<^~%wdYJCT7 zLF2_Hr!p-)UoY3-@@2U0Lx|we@lQiTkg`&+D%}@cCk0E%$tvmx|uCv%xzJ-Nvux4_TF7T`)_WICOZI z3Cb|mFK)GaQ=Wfx=yllBoR$lZB;CsiLKQng#_}0$VnOMGAIo|dt?j&-j`H=vwWPrw z<1yiT6)B68BmE*pA*#&3SHn{GDTk!pbcSN zj49)s@I!iWv-y6Ppser`r&>|dCdT{BYW$B~2cL&0K4|6j%jh?7mk$j$_~-|!hwf6c zI`jAZS>Xx6H)BO%jvO}JZJAVTD`)LbFud-6to6HFGGA!e!I7&+E}&mzt~zuwnfl7S ze51D?@AL~kEA9KtIN8{8)y9u&F?{&{q3rGBncm~~@l%Omn2`Gnx#>ohkdm9BP=<0F zF)NjksN<%H9X2DU8#moZWE^)9Q@QC7JGP2C-N<4hE!8PAOdT_Aw%7ONob&nqzQ4!g z`^WFM2iqUE*WR1$eZ8*d^Lkzv0w3P|!6J0};h$q`M=kG%OlrPh$9Ell^CH*^{R?G2 z^Y_89LzLl{9rVjeZ=(`zf3H`%{pXVvB_)1a%pZqW4Troq_G~Y4am~~U-}3nb{lhOm z&8Q(*wI97)#aGt7Gh{}08h;JHSJb~g{eAJtlX}T0z3HpHAJYFEQ6R62Jr*#Pk_x`Q zv~@3JDX*Aq>bAdkqs(^f<*1#wc@KNx zL)+Dn)9wk_bedP=<`-tf4Ou-;1yOmO2#$1$&?c@`YEb^l+?{!++~t0|)y8dC8vjBw zS0^;}u+8?{zp6}b{i|U5oX^e_p5IV(zZQE)p?M$HI)5pK5+%$%+FAKrn(F@{!!+H# z$!Y`g+N!Vm4sIH~Q^kIj1h z+pmRxcIn<8*dtfH9>H38=l=E4>yp%`Bf8h_MEPs8?LfrH#jk`sLHI7I9p%v2eZef?VcseWkLopJjCFV|_lJ9J!d362RRoY|@@rS1 z@5!6t$d;D(ME%cX+D2%i)%HzSC;HAFwPBg-UVKwi7>0{}%~e~KbiuN0)v4IFt;n$= zsHgILfr(tmbuN0A^iaFyx~tFjuS5yHfwO}yI=t_~rRaz6$b(ivqbDle>`N?soXAPTR;~!aT%{qhk&}QyN6t()?GmhHaQv-V;cE3x-QUx9! zcbK%{;^R2tq&)h2;bPqJKO3B&89=OhRN)^cf$67gvbWjq`}(u^UHz+-F|?RHTAx>@ zDl0|ys#=~tW*h2sC~EDI>aD3dty80_?iU8nVfLCje~v9LzgQnPitiI{9d7=r4H}ayvY>BsJgJzmu}}ULj3a z_H1MA9;=^EArNgF^%k>3uM@%QH~6<&3Db|psy^6!sR+EBU^Sr<#w93O8@L6og;UrH z_)kY~|Ku^=eW~7jYVM`f9Vpp`I6j@a$5Yg1zK$ErOFUHl?nzYXr2KEhHzyW4zIolx zGOqb6e~NvrocH%_&+=Czv^SEJ*!{2nF3cZ${>RhF;oobXEja(8D6hR{p7(8&p0&9S z-a9d=Gf;VoL{@xa38+!dGjThHH8JwM{DcOIbVj({_6yvT~9)ASIdH8gSsO0i6`00yh zZYd|WD{j%g6~A$REKa9)M_oqgG%spqQ4#S+`U}D)9)5^;>5Gef8&9~0`h*?LYnxsn zE^_J6KYH1Dc7@2!X>-^Q#jkiPq>*-j@!+c7#Z{LuE3 z54zDCfZF~x$)IMCT%aHzqJQnTs6>_XIe(~D)o#rrr~Re!BXZ8_b=>U}rKQ2Qj$Wl{ zAg%T5y&}vXj{N>yx5lc}&ei<53;WOwv!&B5$2{oo2*1D64W5YK^6{cQ@%iq&cDMZd zNBF~rdh)+GPvU=awbsYJT5XY+j>AEpB-GQ2r+8d0;bo7r%7cyE=P~zHNA(Xbe)`FK zCg_pTwfh^7AKb%sp1EpCd(weJb1qml2{$x}=2ONpB0u);zOMEVp+0>3Yk*T`-0M?| zz3;H+F8+RBJR9)f#j~g9Hio;5n@t`6il7CcFI~N6q?COA(_zaC#-*bta~DEC^Rg;& zKb37izE{Bh@Y{zT(@mP{D{c4G8n3nf_y_Me>)dpLNAz>Ezx)5ZKmN5h2q)(h^l5wR z135;Lk9}~2`>xitdS&ZcQBh?5{;@VzSeO}-{o`Kxl;;zcOT}j+poIC!zQ-o)|3-$E z>B91c+IHLjvCCfGj{kq#W&g`ImN)qS&n|o8=fB|g+y5u*&-+X<Zj5y1>yhgc$Nvt|2*}--0Xjdi*-Qq;iP}q+CS6;ZS6~lha3L? z;WGc54!FB}2L|pTocWIts91*(qn8kr=og=u zaB`X5ZADwVC!9z)9gs*k0+;qUnnFBs)bljqEaXrB5exfmJ0QJ-e_Ey+kQB!M%m4PF zt^R#*a{Nh1kCvYczA69R?H@Y1^&cAf|61k$eA_luRUcAx{oSA{`kMS7n=SSm{PL|n z7F!qrOAr4)FW;ZnA3c4~rg33+_Da=*t64if`SizaIffLQem?gIZ(PN5^qCGdF1~V8 z&#;MN0!3KH74o}svNGgTB6OY~GgaJXR*9rMEJ9)6+6>=sD?}ZSUYYb-P9Ts8 z%WqSE&fzOk5Joooa+V6w*xuuzhIGk7r?IJ=8kRQTAS!Zw;23J0n@($kdGkv%p&6)i z*xq|J^J{43O`UPl(br0zY#~uWe~!6?=_x=srn-gSM(E}D{OcYpXLoETD2(G zX>&64qJA@p#C!TzqR{8>+V~jnC^BkXc=*RRkB|wwR;gK2QmDYc^Gu*yuWA`}^$i1K zw83-ppxkY$C){uegL7FEayr{RnkaiG3eKIjqV_uoil$6PQqHqHIwj%>1u?;ajB^<{ z>R?f{Vq56x#9G2OT9P}$gltt>sSMp`Q9f=bZ1qDF5|f})S<7L~o#`Q74g`-bL6!UP zI@us$RV88%hM)Pz0 z8Io*majPJRIpIui7KBd>p0FMD17eX1sXwhd#mUJ92phS=Y6$}`?P+IbNcrH?r~WOT zKaeZi5`uuRBc4yf3xG&Sde0$&vwfl+)5U?tTYCmSo% zWen*VXPx!Ba#gK8Gn;TB;$ab#7Sa`Y&?7Y#N6+BHl%2A<$MB<}iRPVHKar4&ZS5KE z0nDbcI1+u)SI0Y}KNUzh0+=+Uit_PyNGyRyc)hDyijkIR!m8E|?5OuBh0)q%-X?7& zv!!s}o<8=@R;TH3$u&oW^TrLBvLJul1#}eId<6_lB+Kc?-X>-@jpsz~)S@?c&;`(n z-18{P;@UexWR035IL$EM&eUp_PRTA%xT+^yY9U6*v3K)!>GC@93 z*9(N&2fO>D@`|-J5B$QF!N~3HsM~Id6L)>w2oxj?!CXHIy=ZCi)usV*IET(U^r6 zW)Lh(#=yT|e9#}5NJ^J$ufsVVU*VhOdwcA@#=G63ZKZV0#AKIw_W_y!s@5m0w!TFr zE1BrE{PusIZe<4z4%pZjYDC>Dj`HuTt*B;3-6$${)cX9^hg5H#V!L7Srfzg4Yqu5o zDiMcsV>)JK!e;@%!9edp((N|HrCz6!q0*lvT!)9_aIroYX395STDGRrllS zyAke%{_Z-vcNq8A87CR5dhL^4r(ZmW>e2Dkr&$W1!$E@2Nj35Eg?wv!vz zxn8(*{87-*HVhhtant>VE8?dCq=hJnJTZWSdAbFOv7v%G6^sKwaUL= z{Z@uNtk}I1iD+0^Mnsz0k)_8C;aJU5P}X98GWN(m0ZNFcVO%_rAPN zT+6F2(<8DXCkij`U2;gR);Rsi;-m-l{O&bpJmxUx-Rs&!*k;rzZY_!sfYHHD1mxMk z*);#$dj_9%cBn-ovdt8KHvN#7vR4dd*9Gk#Ud5efQ&^j`_ZO#GXzu;4)$iHwwP@pEhumzT&HK6{eUYSnjG*{aFM2}> zUKq|=+b8AIg}emm-E#-Hsj6$6zVUbyiMMW!Q|3SFT1>nr42X0E ze@cS1hF&-LFSJer$||~8ycjlQChTdG@foCVd>S(x9OHb6*|D-0#;6D?(@0{E)X&d) zMCM!R@XMIl)xnm@mPmY#Y$UQVkh(4EnQ>qq=4?% z0j8&npd}`~uHE+;Ut#Lr6)*n|My!!2n(? ztr1mA2;tbN_8wHcBaFk~gF()i1unxfT^hn2^KR{SZoMBT$bg}M_6$6p1UypbxB&Ej z*hrASTU()W!m6ohcqAx%F)p1#ABc;ILvGA0_5a%uNW%drO2p?33%W_rFajjZ|4sVA zz~XOw{Z%$?vYAA|co>e#PsnFwt8P#_T#}=M9-(E?(gR0=b%OO8i0#+9;>H_-S>b!< z1@R|@adE&M%*N24vpG^y7XbVjI2)J&(zd_u(EuP;RsuxS)UG5U;E!hJ_Pbjb#MydV5jG9?e7j+@})fU}M9 z2rTh2U(0L~L3?pR#5m?Eg^Xn>vJT(AfU;FZe=Moh@wVj@{83DxIE*ACHxa`^=7u@J zdhI>qaiHZD7mS02jgrnmEQdN?U+4PgAEhaK zH$$Z}hL?M2COZ-9x@)LwKK5b=ZVGFSH|s=Dwu0}^h~={AT|xP7 zPf}lhE8KsDZ0mVuchrR{I6_btMo3o7@sVk)zn(0mi`(R$U5TD}*>BqUHvIITyNiNm zC8Pv8Wyr6^N5jSNPNCWDq2c|xs(Xg@6co6O;kM}w0h+guA3HoZ*tL%*oByzw$~65W zjWb{2bIRx(hS4li^^lcq&rP0Z55_IH{5q4?so3$(*${AeqygDR{kn{I2KiR86@X7l zPH~C6S(RA*?z~f`KrHm;_bsfoIiaKr4Lsd-+y|&x{ceaz@8qExedMYsW;+MVVLHRkQKb69YTsG>hc(($sBt{IzPQcIi=F zvfV?D`X?}TRVH3=3-_q(SnpWyso=LRqXEDSL>icZB15w1GLFxh)7iv~079 z<@uYoay#Wru*k>#M=baJYVqr2PGz3yz{@?ldM^O}!%!D>&raG1hKzl^tA&cku>X8s z-g30C_^Yw0)ijDAzZMC*{d2066TgO1l{&3JF(oldf$RHm3uK3YD_bvNyvBsnQ3a+-$$rrw3Mb1 zbGqiRm2o5HN{Gl~OyXOEfRFlG+n)HUCh2M_o!M9;RdV(<$e*^u$F^76Dbwcs%j?lGPEo(>SY>vPr!_zuueLfq_nY)2)W#>!>8&t9 z8RsaO5Fst<<~~dmUb^F8YY0OpW)e(xLtxyke(AkeCYO|nN_aQ0C0T9hTnNm+>uGpM zStXWr(g9u4JPV|;rc*Azig7R=!f(dDm_65_kfb%tRHKzS#1%iVdF}D--ufMDVE|Q zbpvNzGe~a{#S$Kg1H$J!*&M)?W^@Y=^+`b6<-6D%(eQOTj8}R|ZiT_^9BFvOX}2N3 z1esiEJSj+e-|=rp4o5oJBZ7iEDI8i6gcvo?-dD~@diWSrkQpE%d8P@U5p&6fZgLq& z035Ok)|1`AT&-qBB*zC!JEdtLB>1@ijM?Hi;eH$-tm6u=Gx((VG#CD$8!EA(HeYjisChGN+wuP$;ckJ4dB-0iIJ3rr7!wl(-*%-!{b5DhI zwujp+k#z0z74+PXV+=&bXPhlnAkA#@(o>OVrYX`s9m$tt=|FFiO}z?`k>6D?2;6hK zWw1>M<1pJq?KhDYvE3}@Xq>pcbF?Dm8e{%5KZO1srWG$S*@AiQQio#UAHMw)nb4ZG znLVvFZWp}H=!C^#rhFeNDhoP@B#wMstAUHB78An^N5W@X9rqzHk5f+0f z@$JX5TXg~$k{Aa)%Iv;&m~-hL;M7r(>w5*zvYTn(lSZv@swkYDE3Q zJbqmB#!;W>Tc_6a(I!}v7yCWwjr7_|MdO`?H}+|Y&)Nr;zx*@JwZwuODe4g4D^sTE zf#HUZ^|dM53UkpvQ#@Im`Qlc+<1CdM%7|l6w*$kvl#Y&=or8nb``e+&BgY03)nI8o&~0^BU;bcc38r<%Ow zfTGP7^>512VW=gy!v5Vn!r#D;E0J|j4AFCBro#0SY%eYPEK;ND+;S?grk~#WY26*y z=gvES&ONP}qHAh|%ZagL%#q)08B~G(3`1#xUQ{Ux=T%v73nmxrP_)s>UW1@XWegAk zWaYE;wD{s*Lprf7OupAngkvDj!8TiktT?K=F5>krvb9@?hrn-+SrshA4%C*9buxO$ z)DrX3R1Uak7ak#vR@7Y3khQyHSbge&79Dne-1*__eqD_<8DX8X$b!WQ$EsA1%E@x3 z*^5G}{`Y#fw@=>uJWe+?9C2k+nTmqyj<}0F(027OWt)AT#Tu+4w1u@2a@Zq{LMeWr zhDaKaBtxg9A-9v|qQMh3esy(24}$g1;JVS}gJ-Y|%J-1#oZ`Ibev20@T#|Tx4F8E1 ztL|u8Ti|ZCZZgDMoE9$-kHfMRZ}5cf_SyN7=-e*lMF|@O zdZn#j!nA_PqoEn0E)dW^$+}64X%aja($On%{E)gj{*vdnw0H{|li*zZfHVk3GdNiJ z0ql78S?AMQU^GGicV2vO=~j0^nahI#v9RarX`LWhMcv4eK!IfDqqXR=js>>5+ z4dp&CNs|SYmWv7SL9p1xSib!@6B0F2e&-7FNjXYW{mx&Du-MJt@gltycScs#=;N&EH- zz}XI0my$lbE1}08#MT2N>HYmcHtOS|%*%m*)p;ms=*R9heZAUN0B8M|m=aaECM;Qk zvdCjuOH2VC{MhPeL8sHz9$q2Aga^?5ZptcC>IvvUpgW+=kJH*VW8KvV1j2dAgcMq= zcYxIKdXxJNeqvLYuPXq=n9frzLt+ApqD_aD*H_&6DP9^NwIAn}T90)|7#$=Let{25 zhTZu-E;V8r1DaO42qZu(AB;ZU`7{VlR^y3>f`(i8j0Mh2ggIOGD)4Q&G!Eifqiv9k zKhy03g1Q|K<_N!RX@$X&vfp^3hVecj<_2S^KMn;~k05MT%h}ZsPMno_I*y0o2Chg_5qIpf@jEBI6UJ)p~^Y zJLN6Wr$Wsip|e;JWuQ$XM2{nicd@nxDQgYw*W@o4ac64Un;KQD68PMuEsTY3xNqnV zh=BH|p)2sSt6TL!6X0v8EEx$U_PyoL6wBkqzwX~0AsF|A?Ji~$CrKc|Ut8BM*u<}G_U zpJEx&Fg;{NmU49WyXvKID{mmC}BT zt5VYx(OmSSJdV%!rv5MN+FW7Q5sNO=W8ow zA32=0s&Ty>LU(SD9z|!PILzw=rny_9vZ?1ER9e2;jqdeUQ<1-+;ET{X(5E;`%%N(S zJn-|`kn73}){@tfk#QGL-)UQ8Hk;k`i6ZAKj_hTBgs&-E{n74abhWu4r(;ewi?P-5 zv69_Ds?m=eZZEMN_1Wr5#(tYzzDK$`ilFFM`0|zp3`!~V6tpx=F{p^$9<~rN7crHq z5SY?2k9$LX%dnU&Um6=;qZiD`=kG;Mk16aQ-!odfWUhg$QAb*Yj)qK3?9n7$t9n~} zN(tAGD$$&_Jf6AR@>m?g$U6l4^@zsM==|U=Jw>`>@_n_V_1&09CIyRN>mGrsZB3}MJQ zyZS5eV@xKCW|FDwpG`0yIulu^gZEXwe{GSF+yt8X_9YDU?zfC7bIIw-ov<}JVJ!qr z0)Tbaud7Q<+jq`3@br;!v8>w~V1%vZ+IFNx0tr_ankWHM;gUNWMy1Cue!56h{+^Jv z(%5f@tf3Q#=9}Ot;px4SKsK!YxnU5dd9m8-k(0*N8DFvu5AQghH;3{^U6)r`b!DZ2 zk{4262U}>%;KP;)yqY)SRU*;TXl9wt7P6c*U)ajtc_kOC+mAQi6rq=AqB-4Z`j?x9 zN2ecemU=S|%rmNjpFh_{_y5-FJ%)a-<9pR9-EYQrCSDn#M`6Zwx|W_o9iuEqRZTqY zJ?)c?CL>Bo-Bw_u9v}_)vi-{~q7V652t2<1*_Hd(7^&d0$8XT2+ZoQX4-Lc-Edz}x zCNmhP%;~1{qoE(q~hyP}>>?pbidqDTT#x*mf#rR4}y zs??ZBjX;jlTI9$J_niue+<}&?0>OIZK)_0E!%d);pG->Ta%zGKjdYldu-ohWNxgEw7w9;zgL=Z&~h3jAnOkme{CgzXk1hEO~# zY%}Vs6mx3(Dh)@I#qpJ+qqX7`GM3j{=Pgc{!7pM56W*@XvxqOW>a=+N{FRdi!~BQk z=_8-}7;vrlO_QBKII`UA>4c_RpgSYZ<3}|ZI+ENZk+m~A{T>hp6NjNqK>XNH zN8Pv_&oQ@fGvvM@h$~p=#z97y_)FJN**?~wPkN5@`Im|%2znd|G8Ht)IvV>H<|jyO zLD-ldwt>WZUxukrgXVb(Dhf27LOphrqCX?2PlSCOK3K$ymdeZ_J;fUtYb`4V(a!L#uB=q3aeWpKKDPr%hDLk-032K&G>Y zccG<`tehUp4H>crz@8yxfPoMhqh|85OD|$BhXo^Hz_9i_IgV!V{e55QH08m2=-v{pR zrq^_pT4ge%Vj-U)2x*lDaQqm2d&V$Bgog|fEKSB(C@6pl1boDJ28T0kF*Tl&(ZbB^ zro%MZFp(JiUL~>JN1B1ovGn&1HDD((P72L?fQ*#zT(pA$3%+1Fei2%+c#o-GpIOgR zF&|`)A<}>fp@u%1gKw3wxfw6R@IWk!>25kr^6gG*0yF%0Yi`G#z67{Mxj6$3v8S2kWtB?HJyzZMcvG&R8%<6n9^=&y{nkK^&7n4EwKg=_4l)<)OR=L0aCV9Ur)c&(rl^^&n6IQTO!v+kU>Ygw zSjvR;W8MM5dUeDweL7#-1YKSP_+`}i_p)~XFCLS}%!BKao`(9)!UNNI?gWvR6A_JN z`o&htS+{R=VXj&C%LLUD_6c#T4p*UIs>fzb)?Mt8{7a6Cbt%1#1c&J@tbJV}_5U^V zOdQB=CMw&8)hnqe;vEbYI$)xRIjt~tCX+e8(8}_zZ7#P{DuH!aSUAoffL8Cw4pTRe94fcj#Ieu{(knFm*lP{`%Um z?)^l_mSPi?jnsU)vN*8}-P@b9y3n@Mxa>?Sk#yi>S$KHsplSpqWzY0`nCa(y z{;jq?G^=?Sz)5)dY{vZIoy|Ek0jHJPkP8vT5BvK_o^!O^FdSB0#6^7?Mqv= zp=2r5DU+E}q=E@<@zJuKt6bG*X!}ve-v`y=W}wToP&$V&#o|^PBA)B{W~mf9k*F9D{n8 zF%*AH)`JbSXS%1V5Ln~dLl-?%3AjyiqSsC z4q59wzn};9omarv=(vCQx{_+dt*c9;71CE%)HPCg_6D}IlNBxfcRfCy z|J$RoV%wLDD!(M}cRA~H(at(%6LKQ#XaIg0kW zI`cQVwYPkAh_@Z@t&jL@R(Qmedj3guE_`A0E`STIHRvF$OKXY|(wy5yN;Be1zb)=# z&r9gu0o2mk5$yO>rQ;xuTIS$Dq|M#*ZkZ!f)%bu&;sZJ#R2Hw;UT7f&AcQ04&?hcG zCJ6;0LE|b8eByxAtgDCZ*XgU9*obstNcb~!5nc)+wFL~Q67iR2>Ka-vIVFb)(->(| ze5#B;2*i>n?=UjPy{L;8lDcKsB;t`yFu0CS0(s!W-~N#)#)H-Hi}R@B&yZk>)~IMNwbG39X300__1#7k+UO12Y7gOPc}x z1zcQlsQ@qJaA2(!{!Gk!uKipLgw?k*(n}qJrLqd}VGPts+KZAQ=#XT>lCUx^-ES+D zw?GnEuC@<=&(8vjNL3Eqvd;b%Z4n^G1M$LBjsWAr%is&a`;O!UfbRr!!2L2zIyaj0 zLT%|IX>!90`hf4<$0m*){<%|(hUh2mH8RjbkL`#Pr5_iJ(JdG!UWYJd=p+F*0dQp% z@x129F`!&69GvBal#EWKLHIhTgSC=2HOAp;`V;y5g^t-CvW%J1P?lnq8aA1*#t zv2d&d!nqWTvBUSZfvuv>gOtZET&buCJ!$VZc1w+d$n30Dzbe+U6nD$PIOk;F ziJ?kXJz>-A;Lyn~s>aDC5;GkM|Ffc*x8;ETwyOHh>-eTEK%7~@pJIH-7E_^%l+v{A zO%-|a;WG3H1)--<)B^o=F?}#XK40_B5FwZmCq`zapv>L&T?$)|jaaoZ&sX`uOdYW8Zby85I2N#`}Olx<=1u%~BU zf{V{&!nxnsdQ4|V&IF|w8olTHL+rkptzrSI#V6e4^i)ggYi*(1vb;|Hr^Wm;1Ojcw zE^vZYf@zFJ?IZ4XUq*}nE*I_VA!?jke}#qY`C|p0!U248q<&FbJpllnn_t&Xx~nfehO>*R$1v z0Fbq{ZWE`Nj-)dIN(5C?XlsD?wxtJ0w0?@cl{aw$JbdhGk3cdMJz#X zCO`fWg&T+Qc#|+j>Cqm8-*>@mFka&g%Zw8 z%>vL<8;D7UBr-`uKzEAqfQP?(^^M26r%EqeL{^$;9B3uj zf^T@SMPmPh-R;Z`YS&*t_JDdCvuEBbWhrM}X(2& zEcvJ&e-G-RsiELu!^l!GuOo4`IB6)k667G!OaStSp{-elOF>A+52axY~m^{0+qF9$tOOXFOg_oLGO6dSE#*-i<%>nQY{saN3 zwS*5yOQRBd#x~dY$Fh3BjK5!%H-M$Yh-G1*Oa_)|8dShAfT&9#q#5g^ z&J4haLkvhz zvkPFJz$%0e7FN&XbX=J#`3M8ptAgYDo0t`;6 zDC}=k39@&n)oag9Dd*<&48~ix(v#W%L*j&a^}gY4MH5K&^?g8af%eo=*z{k5R-qhf zV~m~D3e&C=L34%r8CG3>z8o~Ou+=$oxP*L!>Zxgd6KUyVK8|75mL}AUQwI}3yt76e zF)Wz%ul&%%!}|bIl3214scuAAr9_w=mTZ`Pwr;@2{jFv)OetvZs?DP4U38-8_zoOa z#E_A0*uoWg1T?JIs;ru*ht0>4k=hMT)HOb9k}8{WW&-|!pnn@(#*Z+b9tJvYx_xB1 zIdW*!4NE1r%NccZ9IE!+mJs1O4Jl;9~RWg3Y(YHJqj?98SBe9r1 z+{5_WW515+ZLO6$y3B2!o-`4xG6)~QQ+v$1(i}ugwtu#c*&`if&T`Hv;s7EHddJn@ zc=YX5xmUr4#_h*f>Y(xvo~ZX(;xriHg{i1F?_Rh)no?SCo``@S+hQ`9P(M+jfX+wk z?#qFAK+6tBF#&S*6GzSy0DEPR$GbO;$vR9OH-?*(j_6!MkmMh?M$^dmROe0dOzbr zlL?r_(^2%yB2_+;Qu&lsoDOT0vtDPSFMZBUj@gCEm|oB1FWeF?TKa5MqlW=rM&^{Q zvvuc`L_8L*Eao+&z3=XU5$>!9j@@DHx;h}~Ce{IlInc^!{e6M@;~Je7y3Xm-rIy$2 z-5e2Db~v0kuj;9?CUrFJJvm&!mT>VB&LIAByNln09!GXchpb$c8{zoSTmzc1QS|D4 zuXic$^IqsYXLGVh%?~%xJ6<1*M9&W?$lofL8>4zA?L{T|8I*ticpkomWtgKk%^LWI zPz%MQuT_>Ohmyo}So%v{E+C~|=4Zq=#yTOSYU$NnX*IV|G(U>#if~*%Pd{015kdo` z=ZJT+gMdDod2waSsTR_qV+3bWSt|Hj?db|wBc19@qthoYi8-?CM|xzEC1bt1I#He1 zsWGGl{bUCNC<)Ub0h;UJ%Cwu?)EKfwJd{TaFc#mcuR~gqhVIw_As@_;(rWss83~5uJE)m{T5~&4Opi|xax!`G8<$yB&nL#t+{L$w@W2loG9$?|g!I%nAmm+y zENRh8qkONIJ}AC(2@HvQmYjyv`#!@4*zcB>$-qPvv3)3$0UtN3&Am+jv`yJ~S8^e( z9NevMT;lS%<2!EsXjB6>pvPvQ0h6GO_%bga@61H7dOI6Xg8HHDwVa9 zre6uW@9zX6TOpiJUt5XpxRq`Bq<+CVE`K-rs`UajVmV_fgxbS`Mk++x3#=;3IV~Vnl)S4VNh*yAV z<1camTjCNs8WtxZrXNcil`%v@de>CrxN;lPydu8(jrlFT_R_;8^{x~Q+4W-yEh}4L z(LxjDkbak~VuouSI;rQQ*VGrMLbzi`U8^_Mo|_sMmpqY?APE7jC6G}%#oyonC<;*9h|q!JOIp?}KxCOxW_xX!?YoUaqq-@~NV1}% z4`#U!cVVlK`;n>t2-HUt69;&R1WokOok;b1meQ#=a58}m^_4KV!Pf99ks@hp?G3VL zOCJ6E%>P__tu;ZKlNF18-vRG7+Yg&O*UBOe|FfhiE(E4ohljdOufJxs%M)y9H6%p8 zdy^kp9qszaYBAtGIyc)$Hz6?EIzN;JV0O?!n@2?6(6-UFjB~% z=-_W-`q?HnJFB0ToN%1*`Sn-sIR^~RRsBnG+3v|evg?M@IgB|5+Iq(Q)^2xXo{w5CA9U?+l;aB}5}|l{ zgXQUz&-)kDExhs_5f@ThN^ss?s)Lz#M~R{y4QcSqt`CRTAuw)lP{*QpwWwX@2wOwI zeY**fsEsk-!z@MkA{zW{=yneadL*;i53uh`EMbfdtF5IYwh(flUE7T}|9W!os73s1 z3r6gDM`4lScY~DDc%t|u8UN5c3p&vl#O6SsG|CeC*e`#$%em#-tk?VFQLz*BR-^fVikJVMS0KQBz zli&vfFi9{RV?u!tFyw-B;{uuQIBWvj<~0N*=F71A-SZ}d+6N(p#)j+A_|5s2d>8y=;d)Cv#pw!=eHW~dqmpT_nW{4ak<=OCntMAf3`9)9X4$&=u%Naop+-Fo;L{017`KYo?3K7s%vImxdK^McnU*0 zBTdf1_YA+$j)LdwJ{bGHG-)AHiQ%FJfdnq?SMfP-VzwuFqr40?KWIt;-;dZAnLwe6w2lj) zY9xM&L1O@+K=8$WJG^sh-QP~rzhc3|j{|soSx_hQ+!P5f{=pZKWS#*74ZvE9_Lut_wvxo*a1nrqwee0WZA)ziAR_+I<%x*k_AB zF6d53mkFSdGK05I+S375`%QqKQ3H;D;D&K2YuA;wFyG%p>=}z}7#QVnX9e-jQ=`QD z3lL^Fqi?J3+krSR1M2D+J-|=eC4q@Jmj$x>%5<+6M?Tox~jIFL_GFAITzVpnET%1K9j44YgX@Id0wOI;~D@J9}J`pIz zwM?x1WBWB7O}w_&rqEbMN7zi?LPtb{s3GhWBsseW;Q;H;m?@Vo|$H{B^&3KU~ z?eK@}ZS__2s+f0w2Xtde|>s8kIkNj_# zn^9c*w-?5zeznz02Q-v%5->M5S#LI93n6I~c}clHktwi2>$w1KG2hUc_P zbGkpw+UEPO54IHNqQ+`f>WH(I?N`t;_z7-?T1;>rpP5H^^Vy@it6VoOJU}N+UO7-pz_q`kj_?e6bX+juR2UR7L(+yZ-B!JfKr zPy>GP_&b*iKS8UV4TkDkLU?YfIu-3>GG0|!b&jj(t@=-gE1U!Re68Swj>e!5sGRss}*PI zrx_4|N)i&M2%Mg9i;h4@w zo^Fa6b%W&&$5IoWttJpc?5vTnRRFF(q(3qjaNUrWG*JnFozg7U(^eFe9 z{o5pI-l!`9udJpCJ8fE7z4L0OceDmU+L7kPr!Ox`viNyQInol#m-sy0Dd9y`6Z2J3 zYm>TWuKo?A5WEUw57&>@wyBN4Jq?8WdtO>C>@M3fB}hz12jnz>`4N&YZ=25~<5da^ zqXa%57oDhKvl}b@pK#8gr$orv4*mGalXkMN6W&;FbWjL>V z$qU2nWCX!8I;SW_3VsTkEIVI(RxIxr^G~0@^+~O2vr_>>p-KcK4(!FG1TI2Cgevty zltocg&^3Zrlo;=1MIU|}j90>$ZVMLKu%C=rWWf;>$pQdmQ+E0aS+UEGjFZoJNMKex zoA}o7&6xmA(HgyIjaFdx4gNyyXR9bK9^WMawVmdNLpXCn&M5gaT46>;7}F&H2|IsF zoh1SbT2hP>&X1k%V3imQsXh%SlQY&h8vVl7u%vAa$qH}^&~lbM7;PfO9`ei@7BV9F-cz+yn48j+8kIsT?% z$?4luUYg{+N0IkkGerkNrQ!F0c3ho^kQo`ONiwyXEE&y^Vmc-ZKx~ob3(FY!auGa& z)&L%z&sI&N{3SkPh{5C}Bc0RG%Q+^7p#x!K>gfikUoJVJiQJ|{`eZv1WK40-U`{A} zj@Z{9L7vpkFN`KrhzAJ_l8g&?yUYC7(*_pIPE?=hzUqR^3THvb`|t%zKA{R1s-zlN zy7WZeqY)(~RXph;Y#>A~Hw1kQxPq@S2eF*{z?!SF;Bu}_nlF*v!E6s6JTWJW!}QYn z=RpEbKk`v49u;Xtp;L@0-qz`|5yFK#-;vy`+oHm^h1XwK$m#^wPSAP##k6%yjWRDPecS9`#507!b|6#47r%&0! zO|xlEpr83ZE%lj)-uxR`0vS#{bm{y+*zD)m!Tp@YAMXk%Qrg=2DX?=&?56FMG8S{1obEfxZ6Sg?9^=oA!k; zTeZJXp1ykd1{ug(P_w|^yF)$WJtvfE2XBzbt|{dMlS^AT!s#^JriVg*I=aL zI%S>Vo#EeFK?+orBfaE#YQ&}=4)f!L3R!~8OT+FMWwp_#+p&^X;O`4st1prG1`g_; zv}8Dk{Pg~(!BW&Tef$8{*mQ52^Qjx zKvc%~j3%9oaNtL)ke9#}u<@_6KfTyze{RSJQ%OQE2GN0u?qu0~NTUZ~YfshS%zTAz zTB`40p>B75Uz#u0*Ec}1=JK=tm+y?NSC4zXL|xOhUS&VLPvmN}%5JGj8+1X@W6&?A z^8*q5!eSTpKacfa`>mkWQvJ~p4%Lom>`%j|s?O}JaTqkXXL#fIS%pF_?4PFEiAcrM ze(TZv>1hIWF^8ZRIvtQxKOSv9Q~&-=^&mK6H8%n!@7@~`&#zgAljSW?A_IY@rx*qc zcZ|H?bRfA8xbUl>qnv<{`;erag6;jZoAs`tPi7kg14(4%ZEKP#56Jm0&rMG+cR5}6 z-u;2&XWJjl3-7wO?y_@b5DL?QX<5Y}BeMIjQ9v_jKRW9XU|a{mKYTt7SwN(ry+Msi>J{zaYdH+yu^XmdSmhL_`!zx(Y)_5>Xheq`A&;GdfF(h}*Q5>j=e^Ht?;e z-(6ab1^*&MsT@c^W~E?1G<~sg?M)FZHQ|5U#GW7}82S4Fs)>Z994t}FwFq)zvk45r z{rdwWj|lP8x4o4J(#ifLT`C^6KscQZKv5?}nznu3rYQmn2H1xQhH+_s#xQ5TjuY0{ z13f&D&JTxp$fc~Qn;ec<2qYde4r+tX*dlO(`TR%4<{UAM6bVKp-sP|u!56a(WEy2{ z8M3zTHXgXJ;fs)TB>F#Q9M*>b1ddEwd!x+*Demqeh2$2miVn$Lvd%TU;UUftLilVU z2yF(?ZxK>*i!9xuz9u_Rl;kZZBU9oZKt89|&37c)jz~UlBLAFHkG!-!y$vC14-I$bK9ObgP^XOYpkRIY)QU{I&Y8t`$xP)PQ-Bye&Lp; zvloI@2zde0zG^!BC+OS`;=_w2Uy454cF19ks!qM6MZQ2==nY!;?hZML(JIo4Gt%Ne ziSz~RDN8jTA^44C0Epf%OTP!mPAHK{YY3<-RwKeKFoXyXm8)`k1Ed%9sm8_*gFdCc zloVr3=@T0Zb4u{pNZRGX!ovLWI3>b8jpyl`B5Ya2@hBMY~t zZox{`0yBGJU>h%VAcml0=cRuqu#`TyTxW1O_Ri3e8mF~GKoXyZiJGTmeW$~ZrwRC- z6-A03z#dVF^pbxJOHtk1r9ND@V$DcuqZc20Y3S0xrTaLi3+69sjq<0< z#{4l{BHYnE;^Xwz*r?MVq>P&NZ!h!t<&r~?WYc+XLUX-{aKdf;2(5Ouw%|^0Z$;;A z?|x>009@Pu@AhpE*n(lp(u4d(Mo|(LtGJ57n~2n1ZPQwn|N4MAb?1!3n{j##_K{VX z(IAjXrr8GRx7J{L)|l7Rtl~$jf<;HTtzEN>|NDAQPHznv%R&kytzq2psNv4lDnU_q ze;C9WEq0iu^CeuMS!tqkO@Iw-#Fs^jc|(nHcgYLgbxN?q z@$fH~tjFE>sdavC<{#+??qA>zd7ry#c-gQucmIZqFM2|?zsC9?0||6UPp_?z-1oQJ zKlf^Krg^g#G>8b~>ra-n-2%y{`tg1`&{kMY$jSa`IL{~Qjj-=-0 zozM1LPef*e+m6)ovM`iCR~`XPB9NULwy&e6*^a*e)F2>o2pK(m%Hb~7{O>yR_UE3J zkM<~w)A=hE{X`4{BF^|$l$n6qt#r~oa^SZ;&^7a@@r=tAkgK6*>Z%G?``Mt2`nuH| z1z#zD`uE_dadrR720gt=NjHT;X_~XOF>y_u^c;3QWt($mPsqGi^zvzcPg8`z(v%3{ zo!6o@lZo%-`U(mus#;;Y#%PE7ZY1++eD;n7LaZiw|#U^ej-jn@JNgN zlS(ssq9L4={WE8fx4CQ)&sDSLQ@{iVQCSGc$+mk=(aBH0ISDNWAl_$|$mGOgWP-UK zI773@^LSyBhxaCCXFjBBd%d916yFI_h1atd>=z&ne)5%Xl7E2qSgEuJQfb^dsIpmstTnnl}dD*E57|?4j6e1@KROVt(+%d z@l!;eg2ZAeNtKZQyK! zDwk$tWH4cI+D_r013k3f9D;M1v7@fruknJ}jkMJx1vk6}sle7&VH8KZJPZ1S zFwNTTxe*Wpp91Foy^cf62+J$cb%<^Y<7-^S@O;-$lGB2g-KB0rsy zkj{?b8oKw|Zk{gx?-4Eg_vM)XbVm`|2n6bI=kNM5L`3t%@{$KltdBjKXya%`4 zslPo*B)4dV9Hp=#!h5cFRn&MqCQuczSz%}v-@bbtcs72$ec9%{HRZa6=_^mKKVtUP z|NOvb({gjh^=<1@4bS~__lzI3=yLta5y}d;LtE|a&TXsy-f62tfs&6ck2RiomKs=5 z`i<_M+ryhjPTSfGGZ>+|7G9g~ISodXne@r)8J<(^b_G+D`KKJ^u$q_rSw|jq+BEy$gEwIP>I&P)udJ<0CW! zwIwyx%DWa-=~_4J{Kscr)sWlr8`gIkbPcFpE1sc((a-F8T$S+CoUsBO`Sfwr$1~

y0?2VEJA2 zh7h1s&<&zf8|hW4Xiu}@qr*Q9I}UGY^u3x}u9{l)&=t7z^+HF$vHC!C;06z43Ra>X`BwN{&*%8mv(~;jr&y>7+yu?4)1&I4d`TJ3JuO;!9SqA zgNTQBI>E_rCs!s0NAWfN0{;XMODrxlDAAnE5k*xO0sDp5bZa-|$Ws%Q)*j0S=qCy_ z`t^-Nt6rZMxmt$My+S{h+flg{W^#%DS@DC!K>K0j1 zr2m18EM3m%JXlaXbk)6y&ZE$F@4QLLbfqiS$jAQr0j-~nmm=B&EppmbvR39NNQj#g zjw!X;G0j^9*B>`Br+l+G;3e1B)~U0oqfv7nn@Q(q4|F#;#g_Myy7p?3cEuwp`goc3uG_N)SxW$XFp#v$DWh zK^2~FLalFQ-1pb++|XVod;?AWlWgY!6g3?G6<<&>90(D=pGDYC7h(UMVF3#bPX07- z*g@dw_&NRrvgC+dJ<=dp?I&jy%GGLlg#${wgrM=+6QlJ84Swyn(bBYitc#sl6 z{*SO}n}ke5q<}A@P-#;%6ZveUyro7dZ`lGX)xudhqD4B({we-|ES;Yg!Uqt!AZ{^w zAnpkA`BCcQ;dk0f7Ci0p@lUPt@aE%_8Ipetic8?EqJB6lq5nQn-FE1LFiL*-2}9b7 zfI~A*8_>P9>4Spb|9pCYtgzIU!P7e@qBPMeS@KN|ln*}-$X9ty`1}0AVJnNXBNK!@ zLa7qY&>;QMS|NYwTSz01M^qBBVm`z_ItE8*F6)Y`c_0w>gdfc^ z0cf>;R8EPQOf3^E;5D+^0z}OaBj7hZaX>Bb<)ZjD6zStw4xIRgF@a#HHneLu*tH%3 z%iP^)pN;1!VW0@`h?ucam{yk4*CpUGTMEjPRBaN#F&f7unz=T|ykBgm?c|a3# zq4sLP6f<^xUmA#~z5wRpMMJq@hMiJF59I2iz1$q$rPOp$x~qjUTrAJf@$ns?nCi8{ z8MHE>Oz&jHd|zlVBEZFJ^otv=(n#`!F|Cu6A>;Skj>q$?gQ?aa(w?AePAw6Pq@FMf z{L5vRT?}}jau5`1gqfz8o28Tj`-QGqiXl38^fdO7kDJ@KK=NBk6&$2f26aaX35l7G zckm|w)F8ZfU=9+A{tH$EXf?~dl{EDCD|Cu8T_^^Mh&<~xZ3NG4AKlaE=0X4%A+jxt zL1?{62^{hF!@en{erKw(CE`>f-533qupOUT98;)SH~=B8v>7%$LAuwqtis1D&!xUGe{)IRE#(O_h~* z>EDJ#Iqd*Hmh&gleBV&?>4Uytobu+O=eEe=TmT2M{aPsxZ3i;7>C3;d`@bfP$Pzkv zEA@K^Dr1TZ`kSZA3|+WodZzg@ZpJ%OCGtzk?t(;ebxuk>V^99?d)J+^O8x0S%Wl?r z?%#FY)6Z;YEm3FN7qe;I@5|~d%|C{_nXX+QwC3WyhsT0X+*FOit>Yd|8wS^z6|B@R z)5AB73l8Yf z<3@aEHLGA zp}-Z9)N7g~@e?uh{7U5^0 zu^uBxli5h}t$s4%@>}WibJHPyIv~=^$-xu-gUz?s(8;OWQ6mT6Um-NhC8;%yTbq2J zy^10sC2FbgK8VOtbHLP#dxYh*YdzNx%_blm;Ac7w=6{&d>T+Mhy)M+_j%mAMur5J* z7{|s{P9IR#O}-Z{F;ARdbwfDf7fF^bAzwt7$`nxn>nfc6UpkJbUaT%c?b!Uv+T_(r z$8GtI>m}z?0_Oq0&2!5PXkKPq(*bnNk$UFuSsOL<^r7|Eswyx!xUjd#(Q)`m zQ}BRU!C?H*nCW1AtQwUD^CYU`5%bN9(AVJ*9cyne5)PZl91-H`x|8 zP$c0+&H~$hn@O)GoIbf6OBY4bZ+K09b>h2N5uElNbdIv6(hOIh`4IGAmA`u3+J{y1 zPxZPb%@XfqnIrBmbUM90%Z+$D7-dgn<<8_z?ox|Nm~<|kJgQ+5~r9|R)X7{O_)mmJ24W)H8v+;N1jZ#L}t+aLXKT*8s|tF$?a5nyXok4KFoCD(*< ze3G#}w1n5zMKVa*a#xDksa+Qsb)e+eUtR_< z3)Ov9mEfY;hL>nV&lhKFJCg2z8U5Ow(!+6(hUs{^gf^gN7AN!zX9D<~F&lw2udYv< zv;QXu*^vNW?e|EMw@GjO8xGlg0=jojj#tn+H{(pY%1@Y!DIAyNBZ+{6x zX6fRk%cpB@J8b}NO#}h}TXj!4EFmLF9|{rWCxJ+9lg={ubSL}^ltdyGd-y;k-%>=X zK$k=u2dj-j#UA@Fj&`e}lWtpYlN8|*IZHIf5yP=hAR!LvSK)D74Os0WFWmm-F;&Q7 z9x~&hZO90@tM#A*aWY789%a5i|1K$C3FJ>?xm?ctaV^AQu^{Q8^2u2SvP8~k`QS0< z{wz+*#v`Amv+sk61hZKsYZ$=!9{_vkSuv9XU`iRqtSPZHzfdm1YbS(%%b^nZTW+j! zWOoBH5F2;;+qXy&k$2c}!f<_w2xg^=N+vy$CxJC45qYJ#x4@Qg(gq4y3;jFm5bd)u zh%EWrVEA|d4ctAnUU;(xFdKJI?>bJLtylYPvSFO zpgv^wwT}>3Kkt2a`%f}nA5teD({dzJoI_E4njej8BfLWgwiD@-XQOH6W;$4t{FItO zpaU+wvk$aT(|1C0-8#l> zJ(12|_Y)8freOvGh@EdCrZ_TKzr4+8Br|SHU@h2~gPFY{Iunc}2%hM5WrkZKFjax$ zZ^7e%o$}izuJP+JmsOD~Ww@jqCXsc_FNyH!e@799P2aDmIj}=#ga}{y&1E&8)^>U` zWd#kL=6y0l!CMI=pVQO2BPmxqJI8Ur2a`lVKbhr}q9a3q;}J7-!YtDF@^ZTg!*4?l zhwL^BMS*g3uIGPBul5i^kGO!Wd1-5*z5;qVg)nVZJe1vxqSIF^0w8_~c2(4LdZ z<^sS%zR+}^Db=X5azdTuRz&>%%H?=TNuw@>rO88Qo~X{~X7|vp_N+D|Vz>!(F8k<1 zN0OoWuD>t|X(<7phd+%tzJ7Oa3#zMS1G>)K`dFJM6c?!{xjHnCz4Sj14p_IwZSDCc z!gK#t57Y@CPxkJ>+9_dj^)!Q^+fd(+BHlcUdhbGot1rv;;PZ|3z*6<-U%2N zYZb1TsT-_buxr}TRh3h$^G1{AnpbanVm#zvlf$gwUGRl%9lP6exws7u z)1$h3G1$RN@4$?%@;`c)g7bvZCw2p}^62gXZU0;~jY7#a9c4ck-M_nPy=$0M`hVnj<2pYk2vn|8x1a?vv>q~eEQ+Tf7} zsxc+LVO|!Kt7R8ZfQJ}!@FdU*{50Sd}d>r}X+?%K0m>QRD@o%Z$ zo#D{D^>=%6r?mK26UmX0tl;K1a(ZM;4%fu>qvxi-C(R_k0!&_Ri0rd7CUtnT+C>rV zxe9eL)%iQ$tevJCPDaWO#LBsam66W!(|JHfkuy&LBLN#dYS1@CS4n!Um>iwtQ!Pu^ zK=GjCGKuBpHRzoT1A67r=qMvETQ3a|PTjf}IG$QqJ%foMY;^shFg+4%G(zUTL&^5} z8JV30D-C;OXj)F<5`rYc^GsvEISq+DL*8eJ3+2G>$^~^%m^=rRB@#;So!0z>J#dD$4wsduGng>mRU zMc;79NrG2T(h1>WQ6Z}kG6h_8^2*-BvD# zD-ald!h#o$S@xR10pg{ZGBBH4=mOgb1X30k0r!9QV)pylIRU6|&;){)OA%>{2r7Z@ zwUfJol@NLH6>0?w0Yf}Q!!)_1tI9)W9anlx2bh4b*$DA-Kk{u)z2)g@aStiPg zgg*QYC?A3*3_flz?#cWU`M61}Zd*vZCfk%*Pt+nM$}#p=fDNV#m`&(dVA>zay@LXU z4a-X@U9MxJX9e0XD*}N*qnN}b^)#xDRRx6{6U~ryh;h#n5NbkLtBNWhjEm`Mk4<$OC zwu)#0KpZUfulB$}Z;q8~A#hdlP#8Ag&bdm;<_C)`G!HS{D613-x`sBiO9zzJOs`S^ zT>vC;xS6uS!Ko@`9d5$Zf-XE5sjIE-HZOWBO283I z=6`+iIg|19eoN@iv^6H@##>Jv9(=IAazlaH!i}Rj(zE2a?5d|z7my(o^fp>hYHElZ|+9fIL}9o8ehHcwu?wI$m8p4 zyP?h{Z#KPNXHD2hB31#r{&36XrfsQ%dc6_E#`On(o~q8sOJ{c7F;!-Y44k3huxE44cL4JPO4ABP-)}>ZDmAN!P8A(ZgO8f2x zKs~Ofa#x#gh{Qw(BH%LW&}g)*VVV9nk-9N}z^)%`9F@8sb?TS0^(ahL(_Nih)O*(| z>Z-N-jdVM-mUx4t^!_B%3u`G<@JihYQLP+L{l?X;iJ`~4MfFW}E3-tQ%Pe#@o6V=Xl1LZ(0AM`oX+-^-Ql8V0*?rI7 zeue-H%z1~Y`^hM<+qa3G^j639CoiG9-w``d86w7PBl?9ks;bNuat+GaLrt|h)8aV) zGxgXX_?E5)lSClUt(zB1S>(NDBbnCjP5XAeOWjL5WW9kk!F!Tk5hKa z{eA%$REt77M?8n)R3-INHUunTIK0|xb)SOM(5Mb&OUplQj~~rFeYPR4pIZPmii)Qi z*u+U!@uW+K@idiRLA7HSuy4Udah#y&rBkc)i`LiyDgtQeGRQppiwGErF7%1JdpdA^ ztnP{>qN<=FoW)`zTB{7zK@U07^n}bBlFX(XAPd81{PulWZkFAT^x)&|lTpg^Q_2Uzrzs{k=m`MOxtW_9b)JPzEzc9LJY=@sn0{)fdV3==Is- z8tqJy~QU36?3r| z5K@tX4GkvvvCC4kxCgP|rrB|<|k3karom<%2zdha=M+?)W&u(V30jEvyMEL8YY zXGj9~2^{zvOJY6(+ePzP*q!_Fh-9HQeU-_iy3OTVZ4?UuvH}ra1)E(gTo8XDeYU#} z7e)t9LFC!)*3~Hx=TCf_I5{O6(Xv~8@!IUAGY;8O@Hr~wESo$sCCRUDlg`|19*tso zO~fn31N{g|F6r)2X_066BAHs4F(8u&4}z zG!2I|D?lfAI2B{kLR|HYd!{=nl6reRk;bK2g`U&|clVACWEJBG9mS16%*^H;B;rR! zCMtaFL=^nvcYmrDN?@{_l`bPoM!bs;=qDX)-58KkLtPD617NIa9s@1~%k<12qyBXb zz0+^UWo;m&G}VQTlDd9@$c~1J z%Ij$&X*|;VK0&t~M6%0tSpc_BS&?3^GvXaMPJOf{@?iX|RhVOl1Bl?+-is+6yrT!u zLgVf2R4e+BOD`|fyIZJr>jpL8ylW1!r!}K*~xdh zXp|Y73)6+YtHcRCNd(LdAhq){1_|#VKSXB@dN4pSezB5zp8NlnPbVi(o(;|Kez4TB zzTq&E1_78xr~n{THt_ zW+CibS7vqhNP3^NF=!o_SpWCdD{}+73X|pzX-5`y6-)Wc+w2LO*aEjQs#WaAO&r?iM}~%KuRC}p-qCseF)67@TFI&#~XFeL_vrZ02p&b*%U#aiK`-}a?PTLO-e%^R; z=jTGWT`l>p=6D-Z^m?bD2%j87q0^+u<#m0X%#yzY`vuueB;hj`nj!G z%l)86{a~Tfbrp5sQmkbV+PrCbMB9Nq+76}mPB_8?+rxUQ-6KrtxFcaJ=7oiqAg3nI zahVOO(xD7hw(-I-$5OERfDG1MY9C&;uG?_L65}`${Ojg3{~W(G{8y^)gDakw(682n zi&)`2H|%h>tF>N6WQ@^kww=&HtXvD7{bxvDrjHKcAb` zws#G~xGd9;8eZpgB(1?GT-(N3BFwab-2V{vt2QOX3>J`)$ zG;VKNyVeSG$Y;M`BRxNG8-?<}~CY?o?uJ(*#6>BtWh@7utZgOX(vrjbc zS{u`^w$|5PVZ$fPle-|y7WJ|K(t23T|9d-zTFA`=!e7Ozo8;zyH*r9E*{B$qE?3I& zGVd(6#T1YzrRK-(v0wPI#pCH&vRD;fFrC$BpxvZe=)=R~S$>D}o^<7_@lU`Z?tz2r zlddlnLilKua}d=483kq<@}Uj0Yc8*%@qRcOAZ3Zmk)$5J#Cu9B#A}4=d1muNyG}^U z2y#R?(hq8}Plp=7BtN8m8AElJxkF#}mLP{~UfGhBM#$51`-5U8$+*w?WU{tQ6DwW` zWT05n$d`wH?l=e%PsE7C9n%v%kd^)X%fP$@CetBR&aT1)$>}v(p;|3ml91M4`@53R zkHafNb12)%@aP2So5!STd|`>G7t%gB+DFzt1i>V55r)awdqy`%E~pR3((p&4lXy0J%Dbid28(W z)p~O_<=69PQC0_!5ymqXD74j9jy!&(Z$<{e<3z6@o7R`qmO=1~)8NB+(4 z?h-f6FV-shJ|W&J*3gYE!?1y{h~SpyHQwfMB+xbUfGy$cigIYnKCB)<^Swj)wmNY0 z%m}Skgo9l*xU-q-dwWG|BDNpQh}_hYE@tXB{aZ||9IcPEqVPITLq-P6h*$sTdK8*~ zsnuOA>`@V@Tw=DN#eQOU4Z(%qS+{x!BUnxwNmR@>w_u_v$ zJ#hbXgd2l+iA!Aa+xS<_w7>3Z?yF$>(>)of*#yrG8WkZoevErCZtpg1>rl+aM_>1g zK#N2D_m}_PB~h)np|%>I1`68ad3NL2@+fY(1}wNj{*A8+*?P74&;yURZtIYi)|-b` z{oU>`xO^lJ(y={#D2gEHz7cW~>r1mVMLrJ)wp>2y-sHEY@>Q+GXN7T;)khY$zS`X3 zciltj>+ZxS2o;KgOE!qpP(ml@yx;TOO#f=*qI*?(mC2*fn&i#F_Ae>|H~)@f{K z3Fu;e@y~i0d%&r(CfQt7MND@Pzamx!Kb6BI?tm)vy{zovHa{y7u1j+=QS$mz zJU0>%%&af&iVdA!RVZgAHmX>#!|Oi@B@Z25JIEDE{(wg|ocl5(`9TE;l97m$I}i=h z!XFwXt8bZm`o1v1eD6?M?h<$H*2hPdjU=-T8^5zbogMc0V0(RdB*c*_Pi9Sk&*HE- zeyO=-=#g9_FKe{Hb=o(}b%H;cPz(0F-y(~3EU0xHb_S^-hm23zR;JY6TOmhG)>mlM zWRCppJCJ+fAPW#i#=4mG>lnUC0XZYJ%h%R^=sI%$GMJb?E7i#cXjp@*TlT(X&V~%3 zDp0sfRY6}2-kYJ;U&_2#>G5bi>NWi`mL*{@PlRwcJpe`*TI3;pQi$v+CsOk{JEY>N zarZ}0Prn3lkE%e~NqLLh{XmI8)65EsH|iVwJd!$XqyqxBen3SU*q+@c&ZO>s_T@Xu zUpKL$lTrNp-ayZiK%Kwg3t+8uN}iq0)0<~-*UnRaer)SWxcspG!72oDbci$#+d;LX z?j=*L4z~|~daJBV!;E#rMMsyQ(=7ni#8UdVFXl#4fmG7l(3a+{FAz+sa7>`+3nB}8 z_ZDZz8zYOv*7?t}3KJ}saIwfHw|G;dL?V&GRPM>h`#Ib^bY9r@=%}r}(a3t6f>QdM z;U`?ujIWpN_So01BY@NTUZ&gptLy5Jix3!^?%rbzGHA3@1Lw9N{q|#s^pkXetbHOQ zsk2ALAattuu$#UQYeD7~#bOHa`mcS7$b6dD8mgjPz0^^rndf$mlM{Ga0a*>|4Xd@U zZB(MTO->(DKP(i9G8$RMMa2kp0*}P;N8tdSfW`ODgNXScVqKFQ@Hr5VAaYqA1Z5x{ zc#`1G9X#$y$DKP%BnZ!%Xwf7?iV5<^fKfbxS0O65WyNIeui=XiP-d`kNF(|pZ}U36 z@q;-?c!pT5y<`j*n?BJ-1REhPo}$ljm-c*){~@3pi9`Of1RV>okAC#A|I~Flw){FO z`aK2^A&|)xTG*jMd-k5=O-_)xw}=X4HkToRAEbG@2MO04Xxd(%kj(1mgQ=_TgoKO3 zK^o=Wmw-O}VN;R!iBkbz7$)eeG0EA`HZ^{-^P0K^U|UBb&?If}eB~VbcGXWjqkzj+ z_RcrOBm|L8u17%EC7ftQkf_OHt0C4Hp#)@!c;H!!O}SacaXTN15S;|9#Te&o*$mYQ zTT&@gNm)o}KJXa{PiP?d`#+FqInw#{e|d{+8zM-1NV+op3!HOy?n=UnGgW<^pq4<6k?znWWcHx;u^QL9d&31_1R&3T47wjo z;E3npEk?MNV97`|_C4p2&g+YvIHYIXXXu_@gTnu1LC+g5xm?3@#mi$JVrmPgRKl|<*Jiv{8#@A!1iDd6b#L3M zM=Lv<(o}u+?Ac1<9o}At@%DFTlShQ{l2NU&@@uN$?&N19XV*WAObbR~qPWzL7rr4( zO26FLh|YQFH(hR`PGRuYM8;rgj5?H0Q&oQKG-w1tpL_XDZ9IS`jpT+tF-PbA+k2r0 zbwM@qq%GS_iFnv`0|UK(qTkj^S^o_{sl3>J+|F~`eb9WyMHa1G%*>3%)aKMG#{VsT zO?gNV*OY)d_h9`m8%$qz%RK#7-n_*i-SmbX#ESnNh5l+840!F0%XN$$%TiWLPFrU(_M$Tn7*t|#L0jnDO5}4b`oiz#brv*zg7wLkFu%Wo zyY{VYZ_C+O^(o5H!u;b#)7+atM|18cIz?Z~mpHSVqTJFhfDEj%vLm(e1u>1~oKAU3 zBkCBv-Jg8#&X&vAsE-GF_U%Piafe%tL&iGipb|8)ckFC#)n|G(vQRDio9k!Jt1zJi zF6OOTx0s{EdcC)-GZC^f=I-FdGiz5;D%KtQPs;5zdpBTPDYX3r-dvyk5P4Rsu*@Rk5W->&k!Q^c5#RrSiJ4Y+FB7%)F==*!r%4U&WQ{SI~b4GzzKqceWYpc zi7_=R|F7CaxcHgB2Mflwdc*;+x9bVHy0&`MrYvJ*w^4ZMHsxyu<@0 zR}$O|36XAtNh%1wLeo$-*UPbG#|Lw$2OW+r*CiPJ4`n$DP><4fN5yR25@k4YH}`UG znX8@`$a`F7`=WICSpIzo4iJ6{FN%Xn zTYqWjy5#si%V%62EXwKhg^eS}Qf^qsW6`t2Y%&}6vbGC=>8bbbZW^pMd|2d^WcmDk zBgN%s$F-)e&f9ejLO%L{somh^(K8Tl0BPli$2Vev5TTu4yw{RT`*xN(A;eTCu*|k% zQUD=?r>uqp`Zv`vHF9` zettKTFKE_8X$&TAxwdDuQb5e0e+Cg; zg+}|=8+sno-w8g@ridyM%e>-lVtU*)((N!e(}EVV59J-X9!| zBq9S@MLp3#ik&YwSvc924%r|oB}%pS&>j*p#hfVa zD7hsq#3SRK6JZ^g{*s&9GN?*r%Ln+|A%r(|?&X5aX0m8b!Pm%eTe~H+j`Y4ZbumlK z>^%e3L^b{OSc?(He4%ODi-7r2>T z{c$}#nq)4_5ETNOvOp+&CVRd;^QEhF@>Nrh0#eP{%wWp0ylQzg3YO+j4VKtxXd-O` z`YY5N=wLzbq%%$%+G2<%_@|f%59oTU zZa)I``)klgX7Itc021M1XzrB6cQacD(5`6Ab=v|<=BH2p4XOkM+D^)6ow$4A7*b|z z73v)}I$`CI+m}elI*o0u&D!v@j_66)WMccprMlYBnO8QBceO<9Z!t@`lzlLI)4JF= zzk$3%Lzk+y>~;8k{KezXRmZW}glVc&+!+sVL5pp`TP{^vwzHR%R ze)TfjZaC_74;$ndRjfaYeGzm8J^tOQ)SoJoP*&#Tta_)MQu_&w5i>Rv)R({z=;qTABytd9M- za~rmiWVm{*e)=s*Ydw`8se9To#NH~%$Y2KnwKed_FM6)Js3V`(Qq6+4+;TV`czB-H z{-DYH^ZUFPTYYwoJ1n_|s@kSweEs-Y0A!$RM!#tmQw92;2Yyc{c@&iAj@OuT>20l|-4Yz{c8?!!ki*PoX|{gVM~yn-*|-_2zi zf2>k4T@ynA>mgm@TNozbMcyxF=K-w>g=R)Y`KE_?7AT@AA@r)*sO5#J-5{uPpD2s0 zL_{Qs=p$Ku=Z?CK$xw}EfpGb^9=Q9kzjJj~0AC+RoR0J1GOw*{Fs>%FwGmZd-kaUl zW@Bu}8_D4sUTkmZA{4)CL57KBnD&|nX&^NoCM`6a0CBx85~X}J%dzuehWJrZCwmC? zP%3Wr_C{IqyWs%A=}HrAP4Gb6&Y)$Qx4#G8wH!Wx+?VC~8#xO{9=3%SE_CFF=Zi+g z3^BNDmq1XWR($cIP{4$zf_xK^?w+}^30bT|RpvHj93M9)3*ew%%WkgS`scmt!0ZZm8j1SIEewQui&R^Pmug8RrWS}6ya_)i zujGK`BqA1{xR*g5edapQJ+SQ^`+0|4+wmj$3sguhvAluT0#+0QB!*Ch2$zf`uF-^= zKAB~3IBaIE`_{w^9-t`1DK+W=Z$u;Ohm<{WUttb-)hI~8>d^{zJi3*fJ;#BT-Xe?5 z4g7uxf@E!-od3x1h#J|N%>Ow%z&}1F#Q6=_#B^`TbpDsGr_6X%`9Isz;h+VLbpZ>ux;eydY znGcw1GDRnGNxrhIINB`{gN;w~^WTm?Uf*yv02j;0GqWlZV+ zN7UQEGrfoZ|G#t648ug_uG}P)$||JfW;mzZ3>E1Rv(m{;?#fMv*kLoeC*6qLCW_c9 zHyvWf)(xG`IkK3DrJN2HlgzZ)-v7(_et*CJdZ0V|4BPv9zpv}{dOZhW{H{?<3hNAt zFG@K=GfaTsqn-%6jhSFJsHEwVY(5kcD(vj1k~ssXJqy$Uso`x4Q4Wy={!DuXIp&Tm zssqVVo7*9MN_5x;)aDr4x?f3zo0gzFg~w10NiKV7S+!{-JM9r&5+N_bX3bV2W*V-N zpmyXooM>GJsyCW^uQ5<r1p)L2+vUxkkzaD{-;Lx5~f-=O4hZgD-(&7iI<-HxSK z9~n3gmH6t;gV=4!sznht0Jq|jd4Z-Hb*!l-niuekZ47*9#8G7fx&a=n7XwTFV`aK7 z%o4G>N6H5}LAL`6S0#P*Wf$PAxca}-;(zb-()_gQwdlBt&Lew?SwGWZw3nHMQ7H#= z1Q595yWVU2;I!KwTG3@NNIV^lvy3sGZhepxZ@pYJ@sFW&y1_~uafNs~|cCWb%%?3R11as_?iWAV}OH!)|f z-w{c<-WK@3FX+5lt)%O}eLFEL;wN4F@AP;#ms3ZG_deJw=`45B$uqJyd4T2YRx(|C z<>RjFZrksM&Ey>Vt&F1?I(YKvMBa_yKDB_rbQvhX0lX5dYe6@nsHs${xEf|1%~v+r zk6*;y*k*s{yT9q%RnP2vK*}%NIde4x$nB*zwC0F+ru(j3S~A-`c4yKEK&7U5yij+I zo-=9+>D5?^54%ga*Pf-dU=mi>U;D(KqFh6SP?l5;4GsNB)|{a;Cz&-mm|pFE&f35t zej!<#u_yl6q^D)uc*jZKD{ERF2JO_?ZE88%8C2=k6f}nh2b)rPZLkT&sz?pllV6PT*BS3!S1{Xw!@y-kg*Tbv&r*L9nMuSQ6kGf_RN*o zOdM@=;PKjgeXAxMJ{L1<6vgGEtZohwkiI#}xLf<U=hadU|qVQn05~m=Y$2-H-$g*Hjc{^K?M^qrm+pSi-r1ffW)qYnO^C88`9bklm zKkaz-!+L3r%`IrFGt$XIpyVL8 zFQc(Lr#bOFbyc!8Ap+r-?0!HlfhQ7>r0OB*frT6M=2}zl{sbrWMUf4l}$%9 zA*7Ib2Bk(L!IYv+pb#;jH)a*pG7vl!kk-VmZ4}G=ryN~tVz#iqm9>HakjhMYTOvuV zFSz|Y=T#+(;zIFsthd!Gr{D$odGaq92uCDjTu%I0rG z#{jx7yP5M5BC1O2JnHEB8oVQ%q+lIIgn};vG6QZa5q$riSvLC5 zwWp_AeK=|-Huv#l(cP?le;mXUNU^%U4|j-0ubgMJXMf4ik8}_P1bCLrC4A&y^-Z^O4sOF%*rVR`(cZubZ|I@elKcK!mi}ij zVH2TJ2!#{tow2`kS2Z&oiL!=xxMv5{dUvB`hb+E#<@2e zZmDW-&m{O7-`;*M!6Wmg=*Cm2p`jCBD4dAwtvMe5!zTQI3G1Y;3F8d@_w}3KeeTOo z6*zd3M4odU?DpnWeXdC;W|t(w_~pNGC2wf7(N0MsZF*AFR>7=EW)G0k&1D^*_HuK| z7wpryB}EqqE}eT7y51`T*=N!PQ*x0|{`uYzvAkEMvpm|D-{0Zv_OWk^!}-%GwH|{F zt+h1`_awsP4kn6pMoDCT1G|=w;Y0b1AHFxHuOKSj z#Okl304&J;?}w*<|0^>qY{M5VRpMr~lk~GuQ7`Y;U;e9KplD(?v?uwB{nujG;v;Lb zc}klsNthxE4!@ni_?2k5p^)J7H{KmT<~OEZ_A?mEX12HiqOR&U{ZhYkTF;|@d0e42 zJC5@2=XxMTT?TtN|I+Inl>9u8f$*-Fjq1wtbumi1A7% zw;%Dl|Gb%RxL?=RM(vi~n|w`|uCXY+yN>#FGfkVb-+!x$)Lj?6Yb`BRs$kKo3<-He z#%$nghe~;+e7dWpAj^$Do6I%WvyUiXopsc1F)^kanV2kWbKhqoRB$?{02yz~ZPVBkB4@>_0Z(qW}{=2sH&@sU7A z8Ra&f{pdoAU8BwTd{%wMukL5IQSzUd`YBx7SLCc?sM|itPBn7~H&cPp4XYc&F&k~D zSn;bogXf!ubq2Np+4p=eF`LArk{kPW)QNmsNDjf$gAIm`HlsE7qwulCot^Z#cjoh} z40V07H1wl-h|N{Ev1_#d-ZDc=tNbNBKlZGf`-g$>xpiy0HF#?CY@ty0Y;)WM|0y|m zB-?zlH7?bo7iF|kd((z{(*=^m;>hxeBq9h113hLYoD3bxi))6<$MMO|m-~x^sr+GQ znH1ruGJ)I?tw9R56r9$R?QFgWKb>6@+B)A+5{E=a)6pvM+9~23yuT~Bwgv(3QY`9A zPhz%3rY9-bz9iY>DnWzD2b6_Xv!@mdu2GrNY}hrAZ+?McOVJBO*Hr;?JY`YOkerHI z5g9rfj5_#tnS`jo=OFWdMc^|~k+io~ed#qSAhX$gBk)VT;LCT@VgLQY)B;5-+%!QS zu4Dw`jKik(X9}0(@?CUlT&P&g{Q8~q0YVu(*HH^hO}O%-3cdoCP=r<{D*TNg-e*g@ zlREgRP98HF6Z7xLPdpr%^$?>vs)Q+1h(kx2(vc(7tp_PqVy1k*+FzUc93hI~S;k}M zFJv+jP$ghnre666krxYpl^@(&uZVV52nNX^?6f4LcAs4@Yo{V6_2%EqpV$JVKlDN< zKl4E*`|B)d8eh^Rrvs+Ii3Qrc`4P6_2%niO0|*&JY0E?$K4Nz`vlU`VO-)M@LVpHl z9O(zwWyb1(sP>9TuKiT7*Hi|o+dg$-4h`SQZvWGc*Ut|<^0!3X!jua{)WMJm32gPL z@RiT?bCvhCdI#K@uv^s^IA&kk7juXbTRh|`Y65=-IMD_3Z)KuK;yUvDaa2SVwUApw zA&BGCc?BPh4d`I8`s$Yovmb!J>VXPq1-v0lMwgU3P_2IuDCCTlHaym~?2D}Xgk}~; za8kprH&iBz8x2qlD!9JLlapRYZDxPoF7Yr%?|4*oB%=U7)qE949kZe)I>N4bqn#ya z{2#1$4TBn0i9@5TStH6FH z2ZuPOQL;k^s88M9h~=NJEB&zs1Jz4~dnj=@|929m+7Rw|^T?rzclzP`L~5j%a+>#6 z)isbO@zioc4R+8_;y{P4(y5Hmr9XAdC7#0)Zn;6cDd_5+1?sE}_OR*W)Fk}R4qM0P z0u(MHowFh_;z9T{2b5@U4c_`HP_(?-f4QPp)>r2nNyuXj;-?M;Oc}=~TnYO%cYWTe z{4GBl4y?BTC=z@+beOcO{`;7q?QZarscEBU4v1E%bU^3KJ zo({3nnW|!i-ORxf3at+9)1s(VeTmI^WBZi)ho8r_XCnLnO%vP=fgZVx+^fWEV=WgyS~*4GXtD) zC*g1l4e2l1#>Do^Qd9am{yjcZ;C|$#bkqGUWeaz!ZeK=KqIurAGmg$c_>@XXa!b?{ z=M}PrEv2TR#fXe{kSR+AFl($a|Gjd>x{KQ@ZS{-^-gt9bA62k~i-GblM~&vmcw3Z$%fjsx<9 zr@n=T>yLXgZsiyT;cSYcSVF8#pQ~m-fL|$|lBicmXoir$K54tnXG@n(HLNqZohz}& zZz@&bep0Hy5H9bx&U4rDas6`2SOHA+ibRtLA}wrx6aD?@#Hca`f11?TKVheTn#h_> z!I}T?#l@N%Hyy6-07}xj$^`crXZPu|np4_qCPZeAjozn0-gepj1-0D?AK9Cw zZeujuHpRu-47)NlI<56d9Co#!Mw)obW~j|Vh07}RDM&rEEiSe8$u1xD9ekq10|LBV zdWrSguiipCZN-LVZ!GriP_%S^4ELg$pXoSpR(g=^G`T#QsPU1FCH1{=^Kvt78fmmQe!9Nh z?=*=)J29+$;{y0UUX^rSCtAgRJ>m{CuGICHT%CP=5FZ7}6&-alfbK0PZ zF8h*weIZ>Wamvw-S59O5T<1y5Z7N;3_tG zD(L_fDdJ>v%#gr<9fHW^o}UM&(*C+@AP$LBWX^SnknH0n9?zF8Bac08U6+yjaXyzP z4uF{MNr{9EkMDN${SPSu)bL34hN3B>1a$C!MmS}muT<$Aj~B`hfLRhe7&1?-Kx@(y z3~H@p;aq$A)Mi_mDqEPbLP#EISF` zYCTxcFer;g&Bw_?B>VYPTamS#3LdP9v|t$s4#6HB+7jEI-Ya9Wr4S-z*TI%=US3EZ zPKQZDP++7*`~*e81r$V^inLCXbco^@K&c&sjEv@vk$=$%^tNm+LQW0leg12{Z(io1 z0EhYzo5v?N%h?dR@AcU~Aq%*AT-<(;96;{JK5q(!>lWan>v1l|Y|$zrp_;2&)IPt8 z*Ti5)H?QId1)pvC0~uFsY8&ehg!Inyg+tCkLH$TxWPRdw`ucjIV1`5Q*EQ>-<73Qe zxPVRtg?aN#%m&WVu$XASPD-~-3j_&JXZCZZB|)tS90XlG_RhN zg9T!B6V`+)j*xc(PJh}i9}MXFlygdUxJz4j_{zJ+AMi^k3MKUm_y~iQAnAJ=mRSy# zFwYG%)!HIIit0HPRzL3|7Ru27jBarC7jF^|V1KyD!PWcxd(&gR14bo32IIrQtl}LC zEA*T-9<`;dR}oT9xI*WN_(nI7u}VU@>qATAPzcX?|5?&n)pLQRzPMB$e|-91mE5DT zG{(Wd^xUY*4Z^Hu>_26x0x=1r_1PqhYBVwb_l@E4D#Ki*p0KvTGqy+wrP2idKRMt3 zqjX^4SvR-xhy|=df8CALmX9#mftzCtwWgH`n~u1EnWE$?HOcqdUBUfk;6ZOmT3uJQ zPE&OqGJkna+v;Y?xfden?M;REzo)qe>YtlTxN-Av>z&{rX)^wJ zch~jzyFP(1mhz@Zq3ac^JQ7(@BhRkVsqDH)Aye1 zvboiGiU5}9Pi{SLHr^f^7h3${aPmVgK!8@4yafo}Y}{+hI16>{G_$!-2u{4G>MZU% zWBf5#rH5EEN+=60#s5sX#2JllQ@OjLlMbw9<4?~B8{Yr5=RcG6mG9T$g7!M@A`bZE zB`xJ_RgGH=#&^A_8g|6=HQ%G-EHrS}28LH;`7?@cTpA3oJnM$>&N>JorK;1UcXT+h z{nJ4bn9qj2c2MW8zwMsW(m=bD)W0TiF{N)alRssFh6Kaeck1p`31l6UbJIiX)-cz9 zS6$Et>~%X`Um}aw6X!8AL@(}*Q}=KqV#dt0wv3m2v!`vw|FMqlX`;>O$e}oNe3;(? zEL1+{#q*NE3~dE(%E8(?moM$1oT*>AtF&1v1MQbJT+eN`QGDtbWCdgMAYqoYG8JiTbq+Aogl&{fpc zoKM^kT5x(!E*8%elT&Jf1LLYoYJ1<>k37^p=xX{!H2CG=`jb`G2I`8T#yX({$%n{t zu+1`MMss{--$YICmm1_%GbpVaOg%%bgX7dMN}4m#$N_q1$jvBZ+d=?&(OSrow%4+m zfk;Lc^IxE-Ch5pZMjaWEP%~;Brpnl8y8mgMFS}^@!n~`>7H9Mk3Cysd7_-9g1IUAY zgReK0U_=&VbUkEL>qUVTb-sX!E=MnBXVfv#W3nWajUZy1iY}>B*&pTNo8>SN&9Z7$ zSu{XYFVrvmwvARQdUz}ly|!YTmkziG&bkWF6&TC#u!w(09|92SX#Kh2{)>qW)5 zIYRbqBwtQNuhq=iOyP8MUFtma_1eCAiDH~ZQ0cuSd?@)pT~-MGP_%@yp{H5+1RhJh zNQR~d<)Mmt1U99l`M>#c(6fJ4;{CSktFJ`j+1tpLNNPtw>p`98-)|QwRI;#{>S$)(d@T&y|Zx^Lb0xQ>9y>Gd18Yi+zZNP(d7jH9AU+x0O89=jR z8O!1maK^qma7GA_~Jq}S^6RPX!SItXW>nIuyIo#12 z+?K~a(|kz0#O!;Gzf>4m9!9e`#{$sH%fy0*_J<;?S)DdwvAlzm8&u9aQiR)Bt8$lO z;g3%sE`wQ2=Q5WMSwNE}ka8)@j@-2{bUVUbxpI{@3H0d8pnSIdcaVa2@BXVT-aR)f zwA?#z9VGBrHx%JE+4}1lE^qTU+-9#zQ^Nqhe1<}esqMp^6E-S;R2@33h_ zhqkX9$#KJu^BRVRyV}@ZDd=U#tlFC3%Gh&%Xc&IpcRFT8M+1^d$J3|pp4;A}KC1lA zo+_k@rEw@E?JDSVGdk!&%mkdZP^e(1M%L6_79*;d39M*9@>Q3mPXthf=FeO*m+f{> z(7?UfV7%eOy7R`P`Q}7RcRbOOm~Mif%YU{@{gs{%1;6OV@ICN$lPS*l2Q0}~sc!QM z`kpRBZC?o4HVTfVyJ2my!~uv?=LH|(!1E@Zj(epWs#i|H?p`=)yt6#4hl26h<`NG< z+3{T!*sC_L+#kPWxw&)}y5#;+>}oS+IY#Wd?%TDqvqbN;Vb@mrAGcjVc=v17sHztC z;iu^1?g@Z>+hTHMr%HG*-Pf>i-u1^H)}D2%@|aBsU$=w;R3>tj40?z!=CvnhXdK+C zDVt7$kI6`>HrB4)FM{CmH|Bd~-O$lnx;~rm+dFBaCu+h!|Na-Q;$Ln71N-}_Q5+Xy zBuDXgO^er$vR=P=w~JIx1AbQO2?P4Doqm$${(T@t4<&Q0UAfjn5ViP@-eRHQe&LoA z>0O@4eVBoFpBl~2`(dp%xn;g7T0PB6y5@_9J~*H7xsmgA)Csyw7P6y_G+pp8{z_bO zsdgU>g?5pok0Wa^#nqj|=5wXAuyF{8QZm5oP4l+6aVcbYtl_KxTf$vV_uNdV%e%yd zAB<+fubl<(Jvc=7z4f?j@5vpNe&2SS$Z^DPaTYZy=C3;k@WdfWA07`!rbjyN5bzp# z{E%IwxjqMrm6OcWK#z8APEGv4HaAH*n4U2BR3hl&Ysw+-$F6{(%`3mJXELf}z!(S* z#yZTVX!KhAl90kR&q|OVWFBn^5`&maQ6LQr=sVAo4V~|qnw-+~>ELrtq~gqS#tCK2 zVe@gqJw;<#azkmE=I9{KnAb+K4wrg>IRaRGP6$%yexwkj}xjkQBp2Gi<&9Jy%1}Jw%F#)gQ+;I2+0P z+b}YjXiC6mdi6y^&TL3+moYP7O4GIH&H!5$ppdtqnd@LyM^G~u{p^trd)vjkYQPYb zEX*pc7RpCUjqWffIRjbv^5`Vg|kQDSTw^{IlP$znHQ@`h5Gw!MN^2=GgT3}Tdp1zM zSl;oQ$xT~R8oR%DJr!6K^WtnY93w^? zC(v3*=cX8|dV!i4WBqwOMYX-LZ6N9jtGBHV#iTbi@rMqg!Swlg1y3v&274V;fImiF zPkrQEZ_Q*Ck!-lC+NwO@Dd7%yz=%F}3Ep%L=bCZ^4=!A+;R(o=94L4BP)VQx^;Q4G zes#E}eo(46fpMSk;2>8ey(YnrGZb-PWlGGQXpQzJ78g3Eyhfvj=62~I*CMjIgsXCO zVwF=-G-aDrcH6qN5zb98W!Wy8Ke3%M?_)rGw2gsIw!3|`rSXXaE`>*0lz{aFfguU+ zA%h!y#ZZFbi+#4qRwWCP4s1A2_m>YWb!X{@@%>9R$bRX}1~-E1rW)YsLN|7?a3cTr zU>56TJP6Dw_X&3$Aqq0ZJJM#FWxQ)>0vW{{ZnX>HSrbGMCH@oHd z&mXNeUCTY5?|nh`v^?6<7l9GWOktsKzsY zes}7X%rf_rpL=F7lN<~PqC)`zWYyYLMtGQyF3+Lsr?bWQ#Xwb6EI1QNn73YL-onj& zx=nEZwbR(`cOnj7x_iTe4PyfjD$fjILaP8CJ7)FT{yk3(do^Tihv!bDRhatcX zO?PYD>zkMqbk=C-r}sXEZ4Bv;w!;^P7_APCW=PtvtcfiU9GpsLutZq<$fo$k%^fXb)R)HRPaW(_8n|>N@N%7y-_-q2 zZE`cdykxKgpI$RxoSh^NHQ*y;G$@xUl2*<0#G?w9P=*w3ea=%`y>H}xdvf^(IaNM2 z&rXyXLFcTNO&;!y{`30-VvNhv({Hiq)~_5lN);{9pUt@LAL#CG&m>g2f_>TxMq4OV z?r%K`gNv*=fed8iFf%hSwIm5rYmKBviZ@g=_H=35w(gvC9d*vY{pj3}cF;sb8K}Qk z!!Zuf;jjm@XHSbns3#Z%*sMfaGH)_N!u%Sr8jBaQb#2ms0lBSYVo4cFE;xRnEx8w+v*hzO#9s7n{(vJ=#E?FhFL==$-zi$FvT z<2|M9{PV?`oA`KEr|sueeGMfOOhPra2bpXRswrZUmeECED9m> z|E^#EyNoS;z-Vvmq1f0MQEaA8Tm&TP=@ZXn#Uoe85asezYnT{yKh;R5fjzEuS`^EPY( zpUzJYe0mw_*FRL2l>dA{PgNqTzjF_xyN+?8LhIG*oriTzPOUrYuqA!?z+~~>h1I)f zl`Vqv>_y8R^m9A^`R0_PS$R}Z+@Lq$M``@)DJTEYWlkzpkm7JCsld{({^rWemu?uZ zBA2d`dD&|tctrqP%8!y3*zs>v4g>4x8aI;_uUIRXT4-=?n;!Cr3wYC3@9^!AZ_XVg zo5&csanZg?;5%i(mnX^(!pU}J{avq@U0Mp=P_{5oi0VJ>^XM=0H8MigwY6nZ)Y1&P zX2alh`Stm%st;@S6ou1McQI55InS%oA%}v$-S^)JY$97=q=2FQ8*}_=^V7P1B>cbl z?x$v)TR2^u_63Fxep^Bwr&47n#1U~!y4LN~blp<6H&c1Hu1RiLgZuaY-kkT#=(zhp z(TZYhNy}uaw|0RNI;@nYG*2k1DMyF3y>CIXd)NB>w?>d5)uf$6?anjk_-|Kii{G2Je;+iM{9ap5YguVx@SxKA zd`>r>>yp`Nj66%HICmiMr6&JHHpzCb34hl{tn~M?)qpV9!JBlsUEjk=ENv_?e`6on zn*bpPq&HU8om>vsW16hrcWdG{IM97fuIr^^bZ(_XfSyT6rQ7Qr49~K>23H49{Q+|0 z-uMrKf8N{9wFXCHA+5`YP=u<-Z3?1fynY_ZsUY%j!CU*P5h)1;wNwpL6gn0-^B!Vv za%Lx&MshZ&^z+Oc<*1BKpKoy)@KTJ4EYt@)+Dw#b=6X7*X5W@C8(v|gXw2SHj7I1w zp(QW$PrJ(EvnPaAWfbS8wjfeffA_Ot*o(>U61hHl@jAw{DT3&ubFD<>8g-CQ!1F~@ zh1E4<9Mj_>-|Uzcj3C`O>blsAFYEXsU-6>JcVPhu)*H+%rd7*BY0?lTY0`o0Q{Ogy zL*d-2=y+ISB@ow31#)Q%vu!{G@iO-<}snE=dck{OwNvVR< z%&&)hgY$B}Fp;P|-I?+On}+8|r?#|8gi@xLuz0WXL-X1pfryPzJkSjSpBfz7HOGbq z*VnDkJVDPAzcq>wQ}o$-&dX^jxi4KH|2T-u)W)3yI?A%+`a!ei%Z`h_gF=2@A>aev zLcTb-_`yru^`JcvbaM}aXL5^WCRdcd5va3)y~EUkl^}p)ZsCj>x85r&t_J?J~OIJUd9&7VTMAWskJ=; zCJ(&`B*ToAoZ!gvrxxnp_~OT`$f_S5-dd`u+xl~6I06E9UJ!>-}YtuPPbaK zm+-IvvTgh6mm-|D(p-PnsEzK%P(}$?N6*l0-LFM`gqb(C5jMPb<)xCMg<%}N`eEBR zh#}Op)Ugb0tbOv0oG?c_2SufE=~A0&A^gvXN%hFh6{D*92Eo19gGn?G z2gb^y53t6ugZ?wUEjk7JU)$gcM-NfftD0`6sr>kHI9qG6$^Wkv*-zGzuI-(V|F4RY^Fr9|7qpIQ6cU2kgZRO!XuKle|P^snw*54zjuiz^c=d|qV|2NNir+}6lS zCpH>)noed6I297@sVRd(d8&nm&l=~~LB#H24GjaUKb3LxwMcH>gCVcdCdtT_8^tG|2(59TQA82t_1k*gNfYV-yau4Lqn?=A_?Pu)ICf}(e zBpqPY>}H`x|#>-umy(D~z|TWf)!xUyrrE8@^SOHi$Ecuz>)dU6)T1^|6N! zd|!$^V_1jP(xCmeGk>oM*W#YOx)QDM=a%7g?T)j*pY-9Hom_>@d%ZhiiJGQ6wPMYn zxx*EssI%{*Kh)Mvm(AmMz4@z<`i{xqOzcVz$C&ELtCx_fkI_CBbB>ldd8Oj z;|1zTx1bNXa45S}8e!uzs!UYIT}X9#Xa07DzC|ICv0@HPFkJP(uDvH#)_9aptuV9| zql0-#LBN&X4SB{nk+loPoHJpxDyc6!AWGKPUl0@EWC*b7(Q{Ic%DCO!7JaU&=XfdM zSmoKT;a=q~&{^~94)qzTOdcD3Xy&>;T^o*76w_pGHwRa=ExEJ6xK!DE-u=Rb)9w|m zX7_DNBhWer-F=L zpRO0YMm>whVY9VBdyIu{+iv4`5oJ4YrS$mMR#X6j@EH!$k(T}^#(e2xIaS)y!;|lT zbes>(JRYByB96aD7D%bl!GLtTRn(8&H>kCta zc3F;ak_~I*4GEf&iF-p!p(+rmayEY^bn#;Lu8{hx!p>N>!kH|~s}WRu$ulm4JeW0m z-B0pTnyUp(3z{35UT-GX6I+?vA{@`Y}@g zj?9@d)UAxvIHoV;$_rkiD;Jr9*-$mK=qz0~8R=9k77U?`j1G$63TQHm~CS}MxW#lHd znuvoV+{h-e89$W|+V7-7G76SlOaQ2)yV8YK{{g3Yy0%~H1^pBs{~DK83^s;&+Ch# zQxCR6<7)nR(0uD)Aea2e;m_64U?_zYJCVPq9jVYO!u4&Q-m8b!5B27*6Zv;Gb~ z{+>2PU3~2p$tsF~?u+gbokV-b>C+j`|AGQR?)mX*o!|vu@9fJ(GQPby#RQPI<6Yd+}+R` zcX8l>Y-K;~&<u2^9fuf4r>_nr|#p->#{?%p$(~y+6O{apWD`D*fzGeJ<&A_`U^-4NoPK z_s-UzMxx_SY{sYmprj7%?Pm#EID9S*>;6LpM3Wn9)njP(Wqx8}cw0MoW zt|s))HL69pYgrVGYKm%ve-Grkt6{YHaZml--S_;@oPTK`vjY-%-EV2_%|JmE*S!0dmKKpK-bMRAylSl~dlUFVJuog< zL7NmY`)@0p`{mX_hzG`pDMdS|{!7_IKN{Wj<@3oCsfusQ)>WU#*L1`Dn5C<2eD&C@ zQ*?O5pFeGxJ=1^w_T4aA_{rTw8!;d9G)4wpXi6sUD+o`1pz9qp>@hZ;sb=7FD!Sb9 z>O1{(f=dPv~J`%t6 znrS^HJ9SlhU#xUW-u0-PimJ=#Q=cu$drtegzFD;vpB`E9^pK?mol_rsEtbY37Cpzh zLHMZ?-7n9jhoWM_-Ho3Kt5MA?(lc~%#f_WTpR&W-KPs;d`B3bme10=@peeV}(2X*2MXn&L_LKJ>JIMGAlBhT5+KmlF`Gu^E}t;Q~c>`^)~C9Ib*NdY5V1y z2!PkM5#QkIxFYA_3d3`b07|vH(ReKbiAXagH8nK=!)xkojT=mTYY#PKAhowv1CAnf z8b${>In|RK708VcWKSKS<*0j%;CFD;+jkoeq^kE&2*pIgr#}u`ln*5Oyt_*1zH1ut z+VW&V;LO=Qu;i!QNkelE(bNg2bpqMc`m{D5MFHRETHNR2>XP2L_QAM!nu}d-|ootraS0rgxFzm8vbM`XlgILpWi5rQT=NXQ_F94%T8zHc?Eoj_~b|5*EA3~P-Z zY8id}XquV6Fy^U+m9925C_=K8@<6nhXM_|&_qeg&;jpS28*V{U&WsY>bYF8HN5}V2DIB)-gC#p2%+EwLj`(R=<@$;v?Dd>AL9ocYjGI z9y##*VPulgI}gzSTDPQv_%<1J>YLrhjO-XYRlS zflzRbEXpz;8;t>Q^M4`Q*_RioW0q=_224+MgIR8uRm?%Q=fR0&MG`n~vG%0XQNeUh zIVZAwG#kRgpf6ZuiQ4n`s8p}uVQorAra9`3oXEz(cn*o@vt~K57pEIQtXi{6-Da?s zWQQl^9zL*-t`0#ymAc?Z-G@JR@sJx-!6iv`Zf@l%$REJuF3^;4=0$Lwu3bes0u69dsCC9R#k>j&7ig|vBGgC zP{fx0?5=B~g}cMLl$TrdTiU~0CdppkVN^q4K*KradQ3B)Ow3~PK5R5K-D3LTfAb5R zgA;E^hd0Ff%TpWJA@P}225N(zHzpV>tgb6xbW~0*Y{*O0&TZtW@n}lxRJHeM8KF(( z&jVL)@7VtEQ1{_L=KJ#Un|Ya8I1%>B&9|1XUfV7E*|lujZK+sgrjw}riiOY9ese#^ zObM_CB}G^M*o=27jE_e$|GqO1cSE{n!kNzjIV#l}hV~ATGUU+|BlyjsGI{vj)zitB z`t+{UDgV_&6W=8^YRlf3Pe{^HdQW;<+fc~n5OWmpVtyr6R1ZQQBz!UX+rTzNMpWJ$ z-?t#lud|5o62~A0V)b6fHcP2g#WzoX_8WX-kBu9{d;8nSuGDQi@y~33Rz1iB-0&+T)=)6m=v9yqx4L&>BgM`vS6w;(>8=Z}+-Tbkb1F3N ztv6^}|1tdZBPCae-Jx~jxTPAWF9V6y?-!SvECZc|$1d-FE4q+*A!o(>acx#^MK|3q z_nQ$m2Un=KS>?^a)!W3Dt4pp(_>Bf0)ibgJMxKIhBO*S>XW&7XU>iW+WU)G3nw5p; zXp-h+&?V3YYMSfn{O>qgn%;1Rj{v&I_qfO1T2;BGSZ>}?!iK_A^wWeS9b*vK5pCD) zuyucbA->Va@T%L=NFFNXZHw=^_Kh2NGT&t~hSO9xB z1t=qxfhq2{yY_Z>nv7n-o!f2dE7v?f5$g0|CkZwfojpL8hYR3bTtG*yRatXiiQ)OuQf5Oj(kmxvuy?IL z98H#Iv|9`N>tv$1>F2s~Yxx}{OznV@*B}^dnQtX0BT*fy<)8((+2wc8w^eEi@yf+W z5T{kJL^3tOOc*;P+iU6g*Kr*|9jjZ-l=P!su{3+e6oQa8g0fgZ6p7sT4{9*~2 zOKtHzeDjHry_G7Qt9B+5Qn5U$toN05hcmf1m5RRl|C>iu3|s%n6g99vG_GD6VST%g zF2*iCgy2*t#SLs1?s5;v8gNV%DSB<>2gto`!#nuw%REL|TmyTqsqm)`k*5d(^5!%6 zLO2g5iscMyNJ^5Tkk6LA8fl-ZI~c)!_u9IF7eY-D$kG*lwRPzdH1^Dy8q*RWr?yE$ zk(y!_`vXlaB6aYc^PvO*qd+avI@NQq{tgJV`xhc?)#|Hn5w6-i0omR0saMhye{oU- zIK^9q{vhhBE*ku;o}JS9{X`|HDie+y@2 zq+NkuzfB+Oiq0_5U|9WpHM%SyjFYB*aP8_gDAs~jHh<+<}pVDQa+;H!gA1A@0bcL{C* z$V2TMlV7i!Rup0D5qN3!Rr6Wub~JBSoU3b(&1iYrGf3)#HmQ>SN_@;#Z@1h8mrT&q z(T-#(REkL*PMOyg7uf`EfmS6HYfx88Ves1pjv9_`26=luZ04_ zJX}e23h6*in@eYkVZs{Yk^fqyXM0W8AxW=hlUQCe7+TO@MxkE|42YqeqvLl`vayaQ zHck?XF_30Ezv`)F?zP_;o4rC{wai6}59`5e6NFS*=SbA|nYRNOI@MDC%aB8Uo?XJ01s=jAq2FY4hX5J28kR=oXF zv~iK5Oe7R^KiCUqx}MechM>OYLE>7t?#WX-yMD>XyS*yH<`_TD*Bxi<*>`o_iHa*q zyYh|9wpZl8{{F)Dtwpb&|H!Y@$s%mitT4l8=HEu6&hiBl`dT0*b`pv-I3Bh76imD! z-k!j~>YCv24E(nE!#!s^zj6##g8$AqGRqk4HtD?fe?A@2quo4b|JLxV7SPTwaI`A^ z(W_1*Yr;^$!QlnEfntxwlu$tI_7tN`v%4Amy3o4?)R8{kXqA+l0DdQYqeXs~vo z0ev(?X;gxocCE>4T!JU-)G_J#vdsDwDyYLl%b$+tM<|4@%)~nZmiT z(NlgwBTiP6T5l{Qp)woqcBwfXPf?2Y%*Ei&H%AEni-Wp@AADen!#pDRTiuihb}x=6V4Qi zW|N{wJ1uhx@N=HdLLussTeo_6ShQ1HTA?fg2QzN6m;=9K5^Y8Qt`cGY@d5Y4NY<%+ zuMeIkI)dr|VfR^~*U!k*_ao};*_Y0Xh3tQB_GoVYIOu=aDU(ap3pd{ zKsNVi=WL1dd`r!XVzS(MBe<;lEBvj!*aZ zzk(GcW=m6y^&{tC_Tua0YN}j5C4F1j*NfsjnJ7e|kpE)BNuBAm!bY-s`Wz_q+c^FD zT4*T(5mI_WpVb#Ur7_O|caVKlyC|b$a`lO--2eXZQ&|Rsv6Lmtj6Eu2O{o}EWG!pNm{9hmY!MSPhIXYSQaHAVQCW(Z zV&xoDf4LuP9_0qbr zl%Sc|hx*msIf>=Oiq4kiCfebF*%i3Oiq8W7XKtHwK+1zahR3I+y zsR=zI?8l|M`e)7naC_wni6bV#g&Vd45j?S;XfF>iaE4n&+rjp&ho=8IUGA)aBVViS z0J5=GlEq9o0C3=(WR8pKS{HAHnU?7tp1A%T?T54II68{UG2B>64Nag)B5Oj?`mNv{Pk2AOP+eZmH7i082di2w_}Ny|VhQbjE^OJd`VP4_QLBit>C&1TmRz%ae1mJg|D z?~z42z|omIL#I6CHa&T-vDZNh>5jT1U*J)C_g(ZAmHyrfhl@~%cYvN2aC76|D)3PB zlu3+@Pq7TDnjnf6!J!FeVj6ZblT@75VonXMwq;w7<)Q9u+h7HA8JLPy7Q(5R_~{yq zriIMKXu+y_)1)M_0a-ljS&4brOQki^!R*_xLx>@`3Q0CETyfQtV6_hNhM~K^?fG(* zDwB<}eSM~^*7WVjwm;#DSElb;Uq4i<<+B=n(aH}qYCc#OPX%xsb-XiZaYam^?Yhwf z4}!!eGyzEEOTzrTs7l!~tWJx-bh;PyWbmP3z`GK2gFB!JRN~AoV>RTbj{ayh6%Bh> zpu$&`Ex;5>^6>nHmxm1sZs0+CR5_H^JTym4*$K!{R^j=Jp;s%dFYM~O3iz}o&)01! zD(s(`Oqe^-_*i<5L{5fqsI#(MT)1U5f|Zsrvyu~i*S{^XBnlecSwftI=PxPDucnF1 zD7(qWXGiaGrKUuqi(JQft`!N93RG#L!kaZ@22J~Uhfalx`g5)0$`Q;^$97}Wg`M*w z6{$->M+`&)_vrs=*9D9yf$l1>I!@75bW_jRp4K_|t!7N2d0|N)_Moy&rj-tyjT&NA z;vcNkNc+&+UFrPF*(Ijy{Ct5MeX(s3aBgLNW@frSnYyow$u>|E(&BOAM9oTtdDU~4 z1(_|BxXtZ?eM`V#MT1}N)FW77H5iq1qE;Sd?7%j}=ETIY1E6XEVL{)ZK+K>V<8}0L zT?8{N@%|dRGd`Wq*}*v@JHsR6-4~!`$mvt&1M=vj6`oUj1{k8#XU1~pqLYhNW9wG< zQ3-WNlo~fP(k3sSzt>#_a-tQiAmf-C%BmDE@XndIKHh`}mWw=~%do=Z3Ms4c!iGpt zcO!u0Nhq}}09qJs6sYQ@(maKKEw5S@GLU-NdqDHrdXp}&8OLn+*6Wm?$9(ll$nEAi zDBqvX{Ar@)v9=2jYN2?jZHYpL7%YJ?1;jK4lwl*V+&aT1Gx%#t5L7udl}%2A_%*=b z(7E8@RYB|Rg%3q9D>NgG>7x8T7LM8K0*=3en6Ic{+o zb!R(m=B*&1Q9l-9v&LB&%%E}##AQqn$=vxCVODpib%T-UU`EH%A^cCXG~b1u>&)n?0L%o4}XOlksJ}XZxG;kPQopWZR^+ai4cF}VH%XS<60a5ePJ_})pHsH>+NM$w#O*=<-!b!r;2`rL{x zkq%XxS9TH)N4FAMqV;jou>+*Ghv-U7x63R+)N62)=sX?UR4`A&G+35+jYQbHAP0!* z)zonC^kdtnBN2 znId$-)(CxE#5XS>%nsKD8cwd!b_4)4HJ#rPzwEBbQ=y{u0H(s!ol#X zpFBGc0A7~QA+w)q?@STfNWeR(F|f4Z&MsePlz1%$2+w5$TRkKdIVGMT7OXb6RixYO zZEuAL-!XrIokaF0yEj;HCRXBx*i@}Q04m{zYrnB!t<|}@i7(g0F80$z+{|I%)6VYh z7St~c+NTWm>Xg6sB@ra*B4~$j59hQ}{v3?f*fpst$f4M^H_FG+BWxOe*L80Eebz=e zKV$QG6-wi>Aoh$P<3n1FkiuqFVH?{a21AN9+s1H380 zC6pZaSXI?_W|r|etCZ0eY1%i*l{9827@GiwJ$)) z*m)3S?8MUb%c~>ur?u%06HYXT&nWF)-(WztBIphV()p3}q5g>KPK$UTele@;&d?Nr zqhviWM83pKO@n855B~X_a|32UI<(|EO8V#3V;8xlOuK@ z4-_^Nfy4br`MC=>-R3SRx~*DB6nrRXcA6+~l-J!b-bVstuaV|rE)d{w3H>8RCs7Ib@sdmb*h zF`y-TJ=D2N1>HB|u)v%r0~nw{m}AVWZjV%m^BVDO9ctt-+}mcv;ZIl7(#Sw_)rl#X znSC&`BE6rkyQO4s)V{13V=0X$;BtZ|Mn#r1PuvDT_CXewk*vYzf1`|b&MfbLB)qTD z@@#j<)Qr=tK))Jtc08JRpS>c-qcCc!J6DDV(q)DiyahU_{n1qGctSG7XG60>V6lMu z!r=oI2}%&3hp(=qY*vTJ5Ef;Xz@-G5(4lX=2V^PDrU*U$D{cU`6b)L5e4e}+G~dn> z_%^oTc|k(;9T50CjcepCG?QDPn8vOa2;0G0v=79uf`L3!$QSO5<@iDt#Lpk)4neF{ z;no`;ir(P^O?&o1y`O3%Iu_=$@yB!3Gw?ijEF}C|4hb?LEG2*a6?r`yeN}!>6XlU+b8@2?y!r~?P$ah$hZNOOoj58x{Fe&l-8y>)5cKVX>>|&eF zu)k;7cvf1P@LoMAaYF2jT5qoyU-w+VK3HS1TAu8FJI_h)8a_2e=XRK5GayjPY#$QR zhafDYBhZ3BG%sWaP{<3Mj(RRVyNljD(J;?sgN%`*r%Lk`FBP*LMAiNC~9f}1lMTc>`dkdssR5^DdSE(LbF<-Oq+F)~!2d|X|9WO=N{gQxD?rW;JYthWahovN6E>pC6UaPn)C!; zS0Lp`X9$u&kd*>9e+mFlw#gMpl#&ee#l?YXMbAMAqVy(U%CuDxWQ#o_GFuT;xFJCA zr_1%|(VVPm!vQx5NRv)fpHxI9IAtGsXkOs<*=-o-hck$So5751UopK(iX8O5qA|YbuJoFXU&5xx4OIQ)}=+O}%E%9qIJ^o@cf|wX%70{)l;0OA1)Kxw5O@jS}=ur9F96!}a#G zQZx)LlswrxBGQKh?LlXFnM>bhz*A&#c|cdEQNXL7r2y?#ufI=tB)Wdtw&_;wCGr$C`biT4F8#)5EFxX?wmml$0c+idNMXLFC^0W&IyuG!c{ zp+Gg@OZVRrizzl+TPPY4^c zEB1TD)YBossuoP$8zY6O)i0xKZ-~z;5X0n{iJ4KiDk4HZ>xkwrp}0DTT;x@ve5k9g zEiv2TS|78j$W$YuVlzhLF)7j%vAc*kPI_W+>3Z$%%5$ECee#=b9!#+93hq5od_Al9 zf>Uq1?9d^V53e1&HMGkrP421`>u6tocS|Qi&g<}z_i{qYC(F&;T36zIfrzqu6QDJf zMJj+IJxK3{P{7Uvq$+S^V)4iE;|AUgk#3K3_At}wSHoUvY)An5HGpmaEiN?V0BGcr>LB}J*4y)+C0$p71q0~q@7*4*8uCAm`MJ{f`@?VVwF(WWNOrkn)Il({i(hgx=z`x4zmMja z?)dVhj4nadO^I}~&^>E)THc`az5aKriWGpeIctEMutp&-sD6Y^A?IC^c{&SS?e1-u z9Bf;sPr=MSo6Lfir5UX6LRIBx&_p%AnwC4$xdVInBZ|{m)z+UDKhZf4=*cx6AM|Gi zNa|w^?8t_;Y61}v*NDZdhe5Ur?}hCNbl8y>M~jEnYv7cr{LW( zNWMRil6;?2lS0nC2TY-p@9xzHU2_>#8K5IKNYj~C*)>7a;Z>~w7$-=j7+9WfJ-*JL zvfODi$&M{ZYrC>c$-F%&u!4N!c+e#pmY*@!O3D%8z)Lpf2y1I3dVJ}SFF(COklYTw z*wMWh?v&1J3DQpL_aI4V8c|tA(g64q3$3tpIGv|!P zmQ@DcWEb`o2xxDyC(V^IDT0^xy5gMw8VC0vfOt|1thKdN2s;t6eoF%EY`tKnhGPt| zV=4R<|Fu_cT!y44&jW+;v4%kN&08XG|L<(p<;u%i_cN+POi90Jmb~IB+;X_y^ zD?N(2Sb*g%jDam6y#L#vmfH(4cxb8PKnDaZ@D?VXTLl_}>^BCO&^5GhSIh-16ms;t zsKL0m+riz`9KP3{mc-=Xg@QC5(~J_g!iy8$CJUdVb8)!F(pFgfva~0?!!xVzpTyIG zUIPCJfRwZ<>k(nXtZ;w_0F<{qV)T0SRU?@$o;ZVQW&0%pJt?`gcQ<-qNHc15Pe2lx zBxs~FU{MkNs`G6PeDZv|JC@Cl;FHVf9-Nv=jp8_fvv!A}2Y_zNrW38(fROizqG|&~ z69GfBt5Az}Q1euT0Rvw^BoHIyp)uoxylDFnm{l#%MtouQ@CxBK!mrgpe^f3zTzQ=v zfD=dHy!3$a6jhoe53>qg1p0=E&^g1Vnpp1)5YdO)7VEIMvE3+QU`s1@i8%$h8i`lPq*eYNfT}qaMxp8goR#~4N&{{MtH?@+gK0Noi zZl(UGnju$k&LUDeaNQE?pXtaiV~=0K?SK36B zilqkn57&-JMHWT)A*mOC)i{5iI%eRHeY1zI_qS>1vt1MLTe+6K!_Q(PeE;n2v%C01 z>xm(*Y=LyW{QBhnK(&Jx-z1478qG_dZSRKeywf zSMcA#{Z@{9Df){HZp_i|hgB`_4@mRdD}I3fH6KwZE5+`Vo@uz(38rRY6P=CD8+Ds%7<*|>`s|XvkM>3 z1a!Dd{M>q3ZjwDuNOYokd$nxF%p&$Bc@GU5n4YJq`(AiiS9`1odVRheaX{piRzJy# zct`fdez|U?-jKXJEu$NvK)QT;Zn+Fb;V4X3@3-@W-pQ`rYN2^=ck7{wcAr1K3iLM+ z2XWIk&FqQFQQWosvbarm)%?N_>)hxh0#Ua(Jb_(staB=)20$7Dz)`Dxl3 z1#nZ7`GUa?ns3z-a0`;O6YkylY>(K!Jx_P_1+|Zn+Sahu(^0^pkqp3wH5yyEL4vrJ zRw~HpB!Sn8yL)}PIy7h8z*tj;C~T6ZI|QH>P`C-eT81 z*kn(E=l~wd6%J#e*?V1`YsM@!HKNVueBw7n8jee>7q;_fHnzufby8w-SFy8{Spe>eTif@c$YxG=jKa!YSUL<%m1gcm7e2pp2(m?k-O})S`#QyMIgM$tYYv5ToVH{=a}kBROg$iu~y@ckX=}uV$=Mz+1sXY+eJz3ly$E8J#Vy z1c~-#P>|X`fXl%LffCISsN5#g=O6H9*>6Fx6*PXl4}d7p=yG)-CGso2m9kof$%~*K z29?1gLP#}Sr^jR%i3@?Di>2*=D#Sge^Z?LXf=S1aHV0IZa-*W6(M{Ch<2#y$hK6x* zEnUm~LLtXR8eW9&ni>{O5Pk--+a2c2WCUR{b4%PIq9II0*3Pk^B| zS%D(1;~cjj)<^csFV5$!Hn|BRNQZZb0ig_nF3w^HwJi9K+nraK>%UMUP1GFpOx?#V z8$1Wi=W3hh>0ZhKB&Fx;-b+BbslpSO_xi1;K>t0xYqL{E&dvMLNPxAgR^0#db&jdL;&&}B`$JVX#%#x~=L(V%gd5lIAQV3(Nrr_` zR{CAza>+HoTy&zw7jh|hop7T%5tiGDBJyL0&spuubw!qg0P7G$!O5Mz5Fg{8a;~D! zw^{wmbHmD}yZdD^12nofb7^4)*}uIbxVE%efn8c&=9VALfnSJ=V5#%eEUp%0h^Yn% z8w)ZFjs?UaTn9{$?r5xO9-a*4;s22lW!4PNV8+0I-m5k{yo z3RF-Ud!Mmu(m>&`_TmaKL(uENz03M7D;wqb#g-%@@d!@Zw)^@EZHy}@5>CaFf-z;N zvfx!a+tV&5d(a0X5H+`vd1v0-`C#`@c_+%&(>8}%WH$aRof|LO0@cB5_Qklz9~HBYKa$6ojZQY}qcj)j-H z2uEyskN&$~1c6uj(R)juSvP;s2W+qk0AxHeeN!BWzMm^-np5cYMWH$!eNl%h5^kjE z%T6JA4k09E-{t4|YZkTyEKM7!IoixiOT)LtVe6U+xCYV6;fQLQ@6*u9>_kF`t2Mou zDk}xV#&%&?GSXtDG+ebpW0n{dwyOiv>?WZMRG8}7{g^MG)86mxAi8gLypJy+shCux z-AKOh(lJe6HpbJl z{DQr!xNN5mM5p&B$%?2W`I=nUg#b4|H@SN*Be08- z;tJA176Soe&fdSAdV5mc8wZot^04OUF7l{T)3MC#lwocQ86Y~YvUSP16GrRRzKUHe z2oElXEchG|#m3>Ma`nVlq$(SgxWiF;J!af0>=7&&=CPE`T)sC{R%!#T8yb#Cf*g(f z-y6AOmuv+5KCIBCvoOw;RrgMiVb1ShaH((g)0r24D1E%f;w9D8v7yHMtJRP|Um(I+ zaHlVgEe#be2{!Q|4t{#b5>L&^IA~c zlZbQ+i~t;IFyoH!V==_ZNPf2q3tUJ>gw3;THhFoLEdf~b+lg@z~Lu6iiJ2aZZ8E94|QQfDL zqH5rJ{7R#0 z)NSro4$RbuSqHyqI0`bNZ8A2Cxb!7e_?5Yf<4wI|0If_X5fB7~lc~Y9wQmf%=)Ysi zKiP|EE8@0^92|wf!Sedo!HWJ7AoDW7Fsl`7FpcP}7s|Q_oMJKT7dla!t#-icN@Hul z1KwwW_$wc_#CBx-z_o{HpCTWEB2~G`#lXyh`U+_4mz_#AYtMS~xYlg0aj&8ny9$xYdagfGrae7cLQD$cw>a6KOTG12n0~2 zBM@>I%1UXj7JQ72wO^aH5x%ncl_mg~rZkXiQm)}MsT3vU5qC#NZwzf+fl{uTk#*12wZV4p7f!F4DORk1hY)`q65sHUt<7C?A! z^Tw@;e;ifb4F|!dY`5)BM|HV_i86_y7KXnm^EEwB8S=o@@0^jz%Vt)JS_ygZ1-|-cX1p4@u_gN!{p~QxQOrGmJS6~TR zOKHG{k4U8va&h8ijpfspgPz_UmBSg81l)*IQ<@CC&;v8Q%T;GMd>3r5{#anYezHPK zV(L1AqaED6V`)==a(iG^5V@*yY>D50sl98SPREhcgza%7Y~ej6EY?l4CUkO%@9x(3 zvSd_0Cn6jrPR+Hd{#9<`D2$U-Kj0-8GIr&7_tWvML)4h+2VFN(GCQv?mQE{c<<4o&fX)k9 zI%8i(Y9`qm65i%8gk7UaQBWm6BV{Fpd4htiT3s^YuC}dS^Sc&24^&Ifcm!G6DGPR6 zVSmCx0LmL(48N)`B%>El6RAo%$Hedw+IG0lTITEnPF7y}tb?97IQlCvOZRoZwJ<#=e2Xdz6W&BK{!M;$#YV z+5%sJ$FZCSs3(D3)Dd!+lR2=!pputoGS5H^%Lc{(pE2UhO6o{YWMY48j$);=g!Rjy z0=dFnfoAJX_H%#YYy2Nl0@52|7=cH6h6MPUF{mV{Xa6gozuuw$@{K$<5=4PUy}h68 z;nH1=Ts;?-`B*+zxHY4aE?|!iQQF4ZGFVPK$nkus8IFLl;5?)hN0~!+3ZGj<@2IRl zm#a#%ZvlcI9fN}8HlNnp!mie5JXIDDVSsa61XWc6UwYJG_D>#tqAH_`iJi%SPG;<` zS(Dy} zs{u8$xEdv*=}|<4S!TR#H zr7D8VX z55BXRdQZV1QMJ~cq}0;Va_-Q-J*xHk9+=A4f2f=sKgj&J4{=fr*>BqKo#QXlvK~Vr zEU)lty`X_yI3EETjNGQ)Rm?gV^WqC{KTHb<`Sp>oVkmx>Rau=O< zT4E@mx9r`;;CJ#<6?>}6?n7*jx7R989Jl~@CowSDip6EraA3}^gR&waNqTlJBy^6R z4Yv1rfVifQNd&o7z6HF*npk zX@Y2lkE#w(6F0Uy;&30O%?6lul4|9gaT?q>99`tLG{W=7v`37Ma+4yKfpR(NxSkvO zE*Qxdh1nDP_WATjtFAQIPb@1O8Bo6f!Gd=-?=8gPZPl|G3m|ER>-1 z2MT;fgin-4hS;M_Vd)s7lOo_zu=qGKwqwF&i1Ll^Yc>Z#_}1`SW1#H~v?`#u(Vcw3 zG8Duxj+!w_WO^6f6Vjv_ayT|~`swh`Ew1V06|)kTeqN{VlkeofUN)-MLe#s>)*GknGWPk7rWGQHd0|Kn1)yyU!SejK6v7aVk zBG%*CeN$4-CyQpBEvJUYR4Yh)X@_3{9czNFQuUT00GF03N>mO~&5@{FmZycxT#To# z0kdx>xb**R z`a|S5Tj{Xa&@+jr!*DU{b8#mkrA^ItBhkq9xxIUl(#BqA9E*Dq@|T9SaB3AI2v{)F6neg*cl`^j`6`buyTFI z^(fME_pV>t7`r+lccIr0bQCPN1IyRXygqLV=B@sj_XOKp{kz#`dS< z;{W$2b~G*#mly_)FTK9+f1duY9oL_J08-l2{GaPHH8=lt8Pb9Oz1jL>Sl`S94fgo& z#p^r#``H;EjEGJQI}M(FG&qk#SV&wb_#|DzVoxQ8gA4rUIj*1j-_Kvt@xoiet5)iM*0zUvg0)=x%;ewK8;L>G@oIEz=)`W!3ov44jbuvwwZnj_Qnur5>X&Uc3{`AX8 zhO?TH{{0E`-`^9@+l=lnn1BAJKHyTERwPQ*>0Gtr8|@cXx8uxCuXK!f?Z0@s$ zr;rV2IwD3;><_T5y&n4zYR7X5L4{IN)8n#yHS%k+bGx=u^s8j&jb}sTF?*WEhvMlv zTh7ipSRGEAZ~ElCn-$Wr`O~G3HBwS>T8qpQdn>*q&Y=kY;=~>r?P#~%%@7pgsJ!EK z*;-q9nNPP)rhOdm5x=q5NNH^3%?(kJ#`2=&-i`0G-tsqf?$?-Gqt$nx$vE}q%l9Xl z-yrd?#|j12X+wh(jy&%Q`@Y<(_86v=X(7K18DRLSAZV}sj$zEqm5_7ssS9t8n)mOU zl8ZW5I&{Y;lewoh_wi74^KPTJau-aFlswEd*l>Lz?E!aJc{$a4 zQ8B(Q_4S92?jJh)%!0l-M`HhHA}y&sy%(-pe8`)fD0MQCw>`&)bnox7r%|{QmcD0O z4E@`9QlHb0&D6zKJ>AJ}{%!kS^Nu0*^YphqNxBVQMc&ERK6vF{5}vuYaQ_E!r`yAN zQ^{wqr-F^XSO?AzxmFuR2hKX+t5%u8dEd-3wqI#*Jr-JD?PwI3?se_RlhD*x7Y~jN z{cMdGr|6puI4&fI4Q_tTXtXxIwPBp+>!Y|w%fI$|`-!w2+hu%*jP{=J8udyy95Sou z+$!G>FI3jFdD}C2|F=!QA+VB+^-<;j6&uXghtl=&1D@PPsuu2)6y1xAt{%Vf*PG3~Z$uHnzZG8;U;f{&XMKGB&#C_j zRsR{sjXjf2B>oCszeZ}Lu^TQ1jDPA_4t}RI zr=FD&Di??vr6L-LRJT3SLk$h}r{WLh1ZZ?pbWhsnl|5JZ`dV1aAJQ^*7Cp#!2dJQn-xAGV_nD`eKn zIw-X*qmhy^s{oiK-yl%+>1rF*$K%s7RvMNmOWcC7j=p^{V6x_a*dt8`EOs283Ctv0 zS}sDB-Pu5BOs7Y@p%!?>oFFKEFrKFaQA;smG?ETnRnYd~fGMtwQbyZpYyNs#Uz!fT zE;}2w;Z!hZcjTqe&`g*qs*F22-w;6`y7z1+C-yt+iE}-BmcVdCldrA{%^BWnmqX_! zu2Z+F+_|kdUU|Mc3!;S9^@*>ATQxI;RXTDapA%$XVy;TtNmIIp_-EJ3+E5$QmPv%p zkV|e#gR&A0vvpg9n5Xj&**Zt|pLX?j7(};AuPhzV$ou^%UTYXL;Yl9F-{{ajaGg$- z6_F;%P5^rwI<;o{){;U?6Hxby)&%Ws22nF&taR*N6XeZjF8R&7WRfp7)RAjQ5O0;A zONQ`*&u|-1LuCxANdW^}Ssoq&+W0YhYh^lld?914=r8 zg~tQ|@VjTQN7C8H-pFtnAk5{2`tHcF{Wi>%vEI|g4?-cEd*)BUK^X2CBC($wtY zh~3#j$Ix6*3O>7*@0#k^_lKMAg_&Bz&@S45tuH5Jt!9+tU}$1$xV_$p$FaKpyf@}g zn^%fWVh1C9Za#^>UDkf|tv3qej4qh(A#3 zZ{GW@$<8X2)Z1xwAauDHXI4s{VmX+OPjhM9^T+_?Y{O)7YE7pql&dqS*$od_q(BZ7DioZqt4|mxVXA0 zT6MLF1mO5nwIC6(x&1GjpDRs+P zh=+O0%Geh-H`-i$?n0zVF<&5zNsnViBwnbzk=x}X`?7oE&s`5q7V{3;vGkV2f9^W} zs$2AXwEjlqe_y}v*}sBf!1-Y&39Z~E^g5H zYIi=TNcO9}EhJ+9LTsA5P&fOyD!E(d!j_xFh`R_T?EBFo7xi2a8i5v|SLpLA~GS(k;p zdy;=J!uL?Ba-*Ec$p`ygH*8o%+76mJDt8>P7Qv_n4rB6zg$GHnZ1ZN0oe1T6bNxrc z;L&-GxpG*gcJ)MVQaJkD6Q^n-dJJZ+9Ne86548FZc#5@kw=EW#4rt_tsqUIpwrK2L ziB^u<&f2$0?2UzspDV8EWLP(mvq{?7+`lk*=%A!wHr#w9TY6V;)|FYphh2kml=$%$ z40?$cR$QjBw6;|`tVk>=1a7K)vc^2gy-&veiPQ4)&WqxL3H4hN+{NDH80>tqq5}Q7 z*Vm?#U*;sl39N zvW*+urdc`jg|dx92wamcX8)ui{mw>-wO$vREDx8v;-YMmL6Ysi+Y~Ik2iNQu30{8GmOsMddN)o(cY~@5IMA82h2P3LT|+ zL@ZoAIzkDqNwMZQ-GeiE*1qop5L2FSi5TSqNrD{S2m z&k69Vj9pTer?;vcSVE+oTR|an!xUB?xhSB2pt}&9{yu+w?JY>%?0V3q;D8}|wQmtZilS-Roj)8a(Yo2c1s$D5INhb{X5Je7t`$@J z2@6Z@syiK;Z@>F#;juwdp)xj7ujxI-7qiihHLE^;`NF1C@GZt) zVUwmi#MX}cFJ|4@wn6Plwhk=n?ZLyCCs(BW;eEj{y`GKVenj`?oA1CriSFGl_54Yp z>7-TX$JWp-TP2$I9P8<(c!OUgC2g)`+>sZ%TBrT>ZJ&!}T0%oU`qLXJZA%fK;HmA1 z*Rc}49fz+RQ#+~QrgBe8HOi{kf^Z};pk_-`AdxDDn<|P-DaVODpQ0kO3Io1;Tk1bK z=Cq+^cDo@R{TIqQK9W;fsIkMRRwdh1RIH{|;f4R;@4dbGrVOp9olvD4o=bya(S?jezK(@Lk%naV!Z?>28 zj@T*XnjC!fq{Df}RQi@x-n5yv?VEFk--z_D-@C+)&ESVAM3v*?A0fgP$tRb|W#;OI zQVWmHZF^!wQt1@ta4n;A)s*-5m27*Fl#Sberr;iUNK8i@Z9s0c@ zdBj;M9NCWGO23LdUWD0bEiW$ci&C?b__=*gvf`EUuZ!8%QZ4i=dvKyOM?VY$qiRjtE?Nl|9>ryt1Kt=YkK|bhZssMzDQ$a!<+wrr3D)mr@K-kYpKrJCQ>B zJF+?}6^9=_j0n!2Ll?3xO>CS)-){U{Lw*kJJey;^Qy*?O(NK8aqt-VHmpvn5dqIR2 zu(>cRrSyte=CK}vwabpsRxzchbIsB|@0m@=j|p;BFXqt0``=)a6@G7`8S(8>Y~O$H zS9|v94+=w}1HSU+!0W$LRrdwyhhz)i7<%1Hj+7SOqi(}J`Etwc`QdzJUJOi2h2b~% z_-03+K{z*2$H4O3;|o6T-NKN&c(PlyHyv7*4?X|>`)kBEmvOo8Z#-#|I!33j9X}#{ zrF-w=ZyXWK$c>+&=Fc66!?CG2Igis;RqeH%dmV?7=-XlW*Ew>?ox7b_F!p<9+)kZMCgd{U|X zM%TVWnGY-x4%+$&xY!@IuP*j=wIcJ94}Y@A`5n#i@1yMaJ&W&$9L(FPe9Y4HY5v3P zJEx>P20w~^luRJG-t70wpUde|m_ql~6edJoc;s_0EB-FR^@KyHKU?p`n-iFi@V5SQ z*>mJI^$OUV(KW}*HLNM?ozM5#X_;PL$kTd#_jvY|TT`$w@iEsrs{=P_f(rGU?yEU$ zJ^F5$*WRQkUD4<*#GP7u36FCY!`hG7Elx_kkFA|jzZJE8st)02RG1KK3~Q52knFmf zZGPy>)8|Ba!EW*J`3_q!)Ep`tKPqo@z%NdM8v8RAWhgTE965QLjeV1d9h2VQPNT{D z3VqE7v!#=W3K1ek+h=jXZ7}4qQ(Hte;JQBpqZhN!?FdI6C_gfhnk`ZLCH^s0!loHv zxJr~*Ohp#Zj4rlIY=83LnhQE>;|{SCZ+6?eDF$aHJ=JAko6&COO9KrAxkzOe|Nsa2(tFW6y2W0mjxZ4O`a0Sf9v>Lb2 zQ!u9}nL%{+_Ad|iU-&yoVoO5&*;8Ko2`$ndzS}3iB0{${qCX%H+`Yb}(J&?-OF1rg zqgG35nM;Lv2FhIv=#o$MAaG|gu&bxxW}18ycD$OSB>ki~pSqy|H@4hJNO| z54+E+3qb9y3Ubjp#=Rz-@ogT0k}|3ZE+|gL&YpQKy0edlwG2uXHUb z2SNT!`Iyb-2LU>;*LKC}sL0mL!n~%10a++pdN6Umm@v2^T+>{^W_H~xI*{KVdK!HY z)~#%Iz4r(Ey$N?^yf`I|?rJkeS=;074N-V(KD~ni{E;Ane@${RTn~oNWpOV z_;=kCb5+?fA^(TGH;-m>{r|o9ZqcaFpoSV_D4h_Bs-eVCLq)X4R*AIQilMYMw5DuA zYG~1FQA5!p=4fjwC0kU>ZfmPFqES+%-3Wp$qKV{w?*0A!o^!tItlxRobDn3NzfS&O zS>(>`&dPmV*XMeFUN7cp*@fz}_2^0hGnld=0vyi-PB%9HIBQUYmO6)2ynM;0e6`10 zr7ZdSXl>@7g6?!0-|EJg6dOi2Ra6m;NvZRLdrO@l#0Q&6uu+3a$&d@SO4`cLc0u(? zBAM0_#WE{^0s!ctx1nW8y6>EIGINK1Y9PdtvaKLx$B!_#;TznH!qaxvMj)(t0et1? zAbE15_n#GUqzv>5!lSb4!SO_$?cj<&GIz7ina!Wl2mUyP!&Ad&MuB&VKA4|J_v8f$ zUX@w_=-bS&bM|SME@k*=$PxMXb#q*v zFFTKk6wJ6UEDf}-9nc$Wkt1ZhGn+bu{9b%EUHxdj&y%q;HN~E$Dl=w$Jj2`LOUB9d zF(qgue5xr0%Wdmts7$K9b3L;VE0~r7#)L66E=RBhyfR|%*Py-nE6@fnY8PU-y(yDH z04`h*fbOZm_#OiL?NBMrCv@BmOGFeY?iV>e1`W`JHz`3CErA*Hcu}A5-cVbX*xN7f z2WE!9r){dZ^*kxqpl z#8;W3BXbD??ci2|07BeHk&yLNIidS|=+B8_<4tIPa*mJ;eZ(3hp3Sn411RrI$5&Yl z8V@7&l`)k7F%rwvF)s(@NL!c&Ci(h@wOD~4tuQp@(|q5o2$&IRa{i8x=e9JC9r>Kq z&|HUiD)npFe8?5z*KM+dl%i*mxOb+;$)L^VYvY{))Ty=-$ z<;$PTE%vuEI7=ok&j?cntd!gYRKoS+7Fhh5&`jnbG2#TabKAE4$d`7jv&G>lC!g=i z*V~)Qh(GeXBjiNT`vMV4R^=Sm(5&NPpE zU+w4{r4DHqjg$8oY#eK`yH=?(^;k1;-hBgMf& zlJb-?e@5Tfr*_67MB;OftY!evkx>~EbAFG+84LR*g0zn8k~4rCIJ86E!9N$43v;aA zd0h*VnfG%SNE9YUUa%|waOoE6IVR2n7IHOSUmUE=KhJmaf1<iUP5NGm-=In`|Wxc(F0El@IY@Ul%%<29`i0vaWoSI`OO(=Ivb`vN~NvI`(DB<;nd zePSS%9t9b1SGsGG3}3~fB&y_or!P=Q!o(mxuX4rhz{7S@m7lOTV0nyuYNaIlv3vs; zbl@#EF4)|%dXlt2=O|xk_+tc+KyiGv%tlUda#F9 zk@ET7$be_>`Mb3uA)1%@Q(XLM*c-(W+N~*zqBv5dSeUO zz4;39FcP%EeL-}yn5)$3TQk_SQ_%g-n&O4_STnZU<2qV$x39{xB_9b`G!+L%fFPNZ z95)8U%72SYsx7wHwjKZDMr4vPvbmBfz0)2FBlx)pB14n}G24gY2%!A&B(pI#$*&8M zuB@dNH<*ap2_nbLl{`j69hH4cq#=ZZCUwg8ROLIxr~g&Z{lC9_*F85p+g8`G@3@L= z+V_StrbCA*q*{n+5#<{>apR+^Ws0v4J}_o9YU}3_N)AYiZl`_9bX0e3j%vH}cO@16 zm$q7GQc{tldFI)&G-Fg;%59Q*(_B`b7MRopeN4=Rs)g;MVbye*ax=*-k9s|ASYnwdW)M8%+h1H^*uo+?D%>ktFEk)9NiZmX` z=FPnhW>HS#1)9Jr;Lion03fs#08;{f_!Iza;_%b=5F5bdhbbKc=)z|WA`!=w9Lt(s zHUyE-H17&*Vm`I$LlI_SU!5K{F%>&9<4O=SO$=(f;u8QN<%1Jwty zApoVEd35K%0SE1{)5FRL+25$r_AM1avhXcA#C=aljJ+(PAH-#|0@`SpAfB4@!uoIl z0(Kk65&=TCY!GOJfiGzR0DJyqh0wRdPKamY-fDtoOrZCIB_5zmv1B#FC@BtXKot<( z$4Y!Vm?@g&F|UPnYckneLSl!=_JV?0-Xb$)G|4$fd~JjRceRJM-GM)gOWi3IKouf_ z#$^?)y&y_o;FwH|nY>g_D}@TO@1&OZZ>C9oa~@j&krX{1X(AYg>g4}$G>{2_Z=ccb zG|+kv3mP(qVU7Iy@zfvz^5%*BAfXY$LvF)h|K|OagGmLZazcC!4{1xqjBV9y6x}m0 zN~dDpnVLy$!Nbm^iwbxsvG};fu?>q;+xlw)Z6bAb`jt%vTl%Jf_-0xV!Jve_N|j70 z*w&>WZDr)7CR}u$e~UPiB4@Ru&3^s8i;Mn@M3qqj)+i{AR|_$^I(YL~+E)LqM{U}X zUSNIMTl;;b)6dIxTFl=?nW*NC?`7|;I7isn_s>V8GhH>G9a*e8;a+Li_vnhEl;FrL zcH0_eB>m2^Rit=Mu~=KtJ_$Z=f;gD}=$fZp+TVR~o|+4F@RN3(N!q#(@y{*LORlbm zr=>XJa}kS`MOR|rsfLOW*`UGx;M9~H`__!)l&@)9#Ry03?|_(NV9?p8QT;n+Y+7Af zD&ub>W&Mm-Bh~tMB#u_TJCuLDtMgXJF3itM1`@Utj$qagq9h!FgH=F>!mAlWJ#rE- z{~%GS>H2%qDQs}sAK$*b*bR4dP(BRN|6Y9H0CFo-4r=5psJxxw`1IRVv26A)A{ZXo zAMe^x^)>C*<-LJ-G+<7>hP|P1;0N;o?9^BkR*WnH)o#Eh#Ausn9sn`I&l?5M3Xw2) zFWY>)YNuFlin6mvisKJbbB%ynIbQe{63@%TButT88CZ?jgt2Sxh{kIzyh=uUVEW31 zjOgV9SO=-oYB5S1l+ybtTBelh-Z8<+58`Xylp3Di+-^C+LK3RHW`p0y_lX}{WMJfP z^H!Rn%mznQjmS-b!>15md7|u z3Wb(!k>oF4%PkzhoVOLmq~u=3_3(3InP_xQSvi>${uV2GS5U~_kuYUw1hpMO6|((s z$5PC%_AG}7&~}%-XqaF|p0YR~tKHeGh9ilw0>WUSS}$VMN25!+ENf}!vr<CVu@>-lcDR;)Fqs)^(*6GhVtzH?ux*-iu_VY7%NuIU|61_L$pm&cg zR~NIE4(}S9Y5v$jKJqP?amSJ;#h|`7J6r;CX;v$qjTwBI^^P31E>83fd2nj*B(1R% zIAvz!kI~!9o~jJe-_J)UP>s<{ zKjSXA^Chja6B=9PcZqq@QF`A#PE16cCnVq5a$oj`wF^er5_1y=Fz8**q0$Pj?MYd( zD$?q(9*=XDo8G^QP3I0Tbwzop=7?1X8>-Zs=&HA%-aCYR9sF`A%HQJyq1nsvVvqQS zu2z@gGTd&->k~m@Hk>s1& z1w|}#%m^`^l!~U?4_z{0$&_Hz<(CN1>Ih}sQk8<>LRqK@ov5sV24EJ*sLv+G|9 zGX3Dbuuz5YELF$&!tX6zt8+Sz+nswuk@);(m7iBpl^+!F1L8rn7Q@P8Q< z2wxUk7e9a!XUxREOE~RR8L)M3_H~Zb_m_>xJu6Zje*U2@%~EPAp+RgPo73hALse!>`si?4Ipdhm45z)SvGw za$K2AS2GG|I>QLcIi7lTg-iE4oImG#EqQ7~OY!=2_ZJ10TQ(2gFo4PQYnMDH^*SkY zq`h6|{;;o-ba1*7^k8+H5;nT)<2^l?PpkdzjSy4MhO_S%!skqbr5EW zU4e^QirDx*SX83aK!;NP)BMsSsGB_|o|=5AFS!m%8I@g^t_Ap;rna28)R^(sUTJ2> z2F%EWw>|=qFh$@eYy{jh#=wggmhwq29usWtBydS7TrpTxqp;j4< za_3)2YmN+~6Zq>R59G(bm+jq)XOD3u=r=tFPa#IHRj2)6V*Ub=zh^u6Sj@uuNcEl9 z?1jHB+XkI%Ezfv+WB_@wR{q|yNAI!jJ@xv%>JO}6T&G)oc;1`fhX>GngOapcy5 z#_0J0`n2;i1S5xbm+4eu!j6Ff=O98a1Kzb6 zVC2DkP^752z~lpqJ&l}^-$A7x_Z)AW3zD(@#?~^pf&0g1hy}!Y&RQKAdccDkyX-q2 zCuXGPAc-{8Ubt@l@Fx46Wxd9Ax?#Cbtpg4dVI?Lg+oY+m)6eS z*tm*!$6YM>DB+2UWY+tvt&~O{_sjF_r)xtS2^J%oJl_4z?}bkg*qz99TDu?VR>g)q zjv(|S1I^@t4v=BNpTeKI*Ida(nT}?z@OzWn-9gJ6>SCTiJaHKxBcC8lVDdoZI7pg{ z6mMUS#13G#93h`CU|nn_qdx|t~i zxGM^qjXL`SgO-NRRaYd4kDq=2q+YDoFo7a=P6|5C8u=!m070+tv%q?}tnHu9pVcny zIKhx7??GIC1f`R73E5!D|ypu zi26|IAf+ITgb}_zSLQ_c*!GRh?8l%HT$yiL8D9(2L8XwXwyq2v(#Scr<$7Xl{lgCV zi9@Tw57i&$4eUPruuO05W%i{SA9k{Dc}jikkbJ#`xbRn3-gcB-+BUFMr>*T zcqK6ao*iPDA)o<&O9EUekW&k0;VU;bc)-GdkK|^9yfC;wMx+e%NC|uxu;9*F%1mr{ z7baiJQV8}(HBRw`tYwN!9}8q0aev|tC~@c8eyi{VyP$-L+xPPr{YEvQS;U9|t^z=K z0){+>ajG^oBG==jw#St>`x+;ZDfVrtR^qSJ{iOaX5f&Mp7Kw()o1c!dswAj;mi&z( zlp^lV-JW-lAQ&9(R9)aizn_XjNn3pz9A8;CGm(xM^++uM(iAmokq)Mq$s-@1-Mm74 z6}4pYK{c7kkY-tVDsN~GY^w$V=&ui6xaKqjRgnurr^fgo6tO=kFTtq(@?ELQ#x#tJ z_6Mb|Q}asH^$)5oQfa#~FcN7;#;Q!Fm_fT&({|-}MZ}!_G-?wgd&%3Azli#@!A@_> ziS=LsQj9?6Nw;oMT$`>cAx*ad7az z*&z@WJUidC1YpH8!o_)d?y2|ypgGxe-3I%=1E`t)=^6T>{Aq6hZAmEmlgY(C~t#d2;)&J=p%3F3B-f<9Q-p>@=cC`3rH<+a&X6@+Akd(;0 zoU1fNO4E94@l9LT^y_kkNEs=T-@k4VvSaDa^u^4ICk6Aq*p@g>c?$?g^`=hlII%KF8DV|jsOv#&n;r@5eu(`eX zW=%=+y-_GO@lMYkcm{9VYJ&U;5SUw;74vC%zx8p@*Bf`SC;|4M(G! zi-6>Xc$yHtVA1W7qwYm!f|hu%KztB+%83812v~hc%D_~MC>S0EPp+g;@hcULQlj8S zumOi{ugMNHavT4q&cqA&7@ly-s9DfZTFL-ww!+EbH4EWS40>9@F7}!fZzZ5T5Rcu( zj!YRBv~;%vF8U0BAI~E%wDW?5>3s%^lom$ccqi{@WR2*)K*T`QWb=@A1km1?Wk@}HWNq2`;B)pJE|NQP`L>*bF*aXTr)ZR z)@*bu^-H3H040&`sB9!mNoIBiL>D(Vnf_DT3MO&|;gg@jRRg8K+ErXf;mKpCCMs#5 zRTQeFTK|Lj1bTxgx7kpFl~8DFZY_ESdL)<1v~}_>lvmR1l~MkfHma;Dm{iOh_(%UT zq^=3pvwlW06p9QU`r`I}Q;4*x12@Qf&&9rKch_E<_>p2|fz_o2zC_riXBVL)9x%`= zwu^$3`j+vbxjTQ#&F39zm@XJ^ znC(rLFSSb*$yX9OEC*77D+W%EN{j$xLwYt>YR4lF5@Ald8n>I`{PSp|1LW5CLMvnjpP4=i+7xuccZ1$n z$cp3<$7Sc+lKYWOrVaHc%%O){Jzr~SLidJ5{`YR5?E*R5eC@pL-%>5e@3$P%ijRuL z!5e(tYfgUteGYE_TSF%g6^W?e3Ha3u%)cp72dj?mj~F{RRJ3<3fc=#wM(Z0d2yBQP zs|-mkc*+m8ayVG<#N`}GaKD=EQLsnQS_V%*P7SP7U?5f-bTfk*|MEC;A8(^8fJXN! z{Ntk-ReHd)J4HbVL?wrXI;K8KTc0>`x#+L(11EZdj8-QTQn37*Js#g%s*w_pH7QLg zjM1mMW`|9D>z=H@)trfPTn3@QQ;D2FsXr8&uF*h2 z#hTu`;J{;I4ljdWEwyYg4t{=Nxi_Qgh_1GRln1TRvHZy~+{(kL#wmspo)O3nY*;7` z1UL?RfWDifL|8Np(;nilebP-ixcW)jF62&>*JxY`skX89u&BKo&kEx&0FnudWWy`= zcn@Z{4D`Y20}*=i3~CrCng-`7lugu?+YR9a z6<>u9PY4g^ZBmHaETE&1-c08Ec7mSXG`y9G6SQCD=<-f|Wi7tPBB;1kD_y9Sr^TqV z*$!YIb$xS3FNqnxn#}>YVS-q!ffv-Y0J)9BKukhmqh4P}VYfk?W{bL%hh^b%^O_|4c zuMP*qhm5$XfOD8|R^ygnBUeXidkf7M9y0F%&ScuM8$>fvHH=Bm+df1Evo;+(d@%w3 zacdr#qVVM6+}kH>t*Pm%l`EV;42Q8CC5(8qV-E{0Bu{cke0)qfARzd+Owc?IBGa{x zs@^@whCA4noc!%C>Ss0Y?a{kVSMGq)t7Qpgmx3{wf|@-d&1BYgItlm*vB2Q*nxYC` zJSiNiSI)0(LUfdbnpZA6w*W+wTQAs_kDO1fE&m^C?-u2J$j1 zp0`+SOCG>KL#YMgDfB>ASVO6_-a*rWy>A2_GxvhP4smq>^zai;xBRceHu~wa)T;zx zvfrolU7)8Ajh;IyQltPcOWI0=4p4Xj3i0}o#{_B>1k%gyZCmTLh_7m7xwe%897}O} z9|sV&yxL@~l4&pa{0LIFcUAC81KeSZNB=PS8m;_<9o4^s72*x9#T0rc1 z0`8JJu~j_4EdyS|Dz&z#xIk;BhaqTA`Eyku$ppJ3WSX$1v&gC1PmONxtsNtM1)^=E zgB;L-ydV^UtONlqyms3U*Fm2!^MN>?Ovi+E$8~?n){Th*KzdhR^5fCuvL=J632$oX zwPz85dJTk>Vn<0x6XN0db3mQ$CcvKh`j|2x+%=iO-uq_x1P!(8wWH%wIBp(~!;`}~ zqPk}`Rd1mNYlC|7=#GDGZ$#`LNB6H1r+h4c-atLZDO#85?Cjl2_J+V-+msu-h2fkm zkk)r?=X@4}fRl~-T6rQQWbOq^E<(%?S75aHUg(8QFRjDrmEZ>4O)QYm;>p?i5P7dBy{5oS_Lg1hLTy$LYsv7FURi0Ihw0}p z{kbA#r^*Xf2eaSAeJe*oC4S?cx!C40uV2YT$H$GSK1-)tf$jl*M>hwBO)t>S)DxEH z_|s2t$H#3Z-kE+pzEkyftz|pIrHb}ddd*}n83B#- zi|^cf4z63&?hsQ+wz0taj0%$zpznv4;6gm5LAY5ZQ4E5_3PWG}?(145Qp-TSd|(v` z$KK+!luRw26h}biGhGxU(oK0N`51NixFPbks?f(8KX=tY9J=)Ap0V#}Jc;vH)WXFn zQ9V6&Dt%#QGt0`ijSzWEfbZ$XtkF^^4p>C5dC{ie`T2a4RL`S`qLglFfBm8qSGtYq zygq6BD~!c#SnPi19RF%R6l9I3IVKU1=`(BOW>e{WhfYae5bVsw{`;M}C(fU{G)Q8q zc8l1;06uGqS8&ZY{+84}4+LR~FKs%rBYuDar0=Wzu(P(#;>^X4-R|*gV2r0tzM7FK z)B;doUa1`oa7ob<*Z0uz19&bvzw!s+1#(Y14LRwXwI>vw+EHgC;wIN^D6s+HEid2{ zP+yn2i!Gr0xfls;&`$&NFO(gDZ_t_UR${|H2noI$V84-OJ=AtsVhjKdYSKk4QR`@Y z+=hU{<~F50jnc~YJSPFc+6J0>SRhi4WL z;#=;AbH${kHdNQIK_1)8Ys#$NRv~ubC!0xFKehl%A$<_yhe;w~O9A%c-E5Sprm%ta z>UHd4kMT94JPFx4q3^i%+;42&y!)KPOr(r0hUV=uAe6l*g0!%4?4KGde*!q%O4Buz zmFEm|qX$5~Rv!)He@j1Y5mAU6yBRbIGSU+TB3jSM@t=d@z+^%XKS3#6+6qB$E9%ht z#}@-G2Ry6ntALaBGOFF_xU>qG>+ zxNSfgN!kE=^Z5y+gV6br(tBDDV908k?g^Ce`VAUKka!+X0XA5SA3}f)Viy+Lu{C66 zl*AjtZQsW#vU@4vk9B6!p|X%n(br(cZnCuMi~yI8ih}uypSjf3yAzqRV&e zZfgK)my(+AO4YrfuYc^^|K8D=Tmps1m4Kp|YXwPV1_hZRWV>arw-gT8pcO2l0UU}z z)HmT~e)ujp`=@(?-et+c8Av8Ij#2(A3>!07MegV*YWrefwAk1f-XanRhF7B)0^ZSp z$1T0>6LfR)hLV5*A3Y0{XC{MgKX6v{BRK0>q1G&K_Kwk(Q@*H(`f?3Klm)>Oca^%j z6;6UxeKKWMVkI6aFu=~KYqB6>&dp@z-Fx`dF;vv6D1UMv<2l_35Oq}4u&z!wFuNNf zLd`9j;9#Ka9JqST%%qcpU`e*U`U39ST!d{)MN1n?80*8OF`1~T+Wu+~AL!dY;H|AQ zJr&(^DuJoOB;jhlQb5_#CToh%Oq4b_VNT8PFvvz@v9*dS*rS$Rb>TdXH{I-TTmc;< zeRD9e9N%YdZ(yM(iqi@1Rzb@4+E27CuvSt&55)3ctRq1_&@hGt`Upv@)Hn0y%~wn2 zO-{?of`E7nPJaN2Mg(m?DgfVJBZ= zuo%qRV)#UVgqh@wM690n;mmOF`9haV01%gqdGsZP$*e8i3&VXKx&}^ejV`IkPPP2i z%33KWHR4!P8MIcyU5QeWvX;b6$eId6)%%JOg7#B95xTFt_w(;Xt5o{P zV)T^{Hph);nyXz|!vjV5eq*Mn0mzIu*B1VMWjh%#t?i(@5lSv+oZ^c84gE*UdApLf0zb zeJebi-q+!P;M9*v%xfHe-sVh{SAcIvC$G@H5T}o0lxOSwh>>y4gdIgtzXYr-<%pdc zeuFky$q^h$(oYT`t;n-~?vPXpxxoFXE{u1%rAn3Fb=zu$Go)hq2m!ZOK7?aUUR|ML z15mV;hclZ(!{^>|hQNB0#?;kLGKZTJw8;4D&Q>tYRCO^+W?(-QfgIS6BPC4LHcI!< zW&>lm8NJH!!*u#`5V7h6r_KF02>Bv2FZBp#qk z6=({CDOn*J$3(48vAi*SEuB%7=&(>=V&N>VFFtgkLQMNt!i97VdB2p&se9PrfiPa6 z6W9uhS?vYODl3WBv6z-XhnrY`+z~{hj7o&E+k8&E<{vSkvR3GT9JDuTWxFf#Ds}7{ zo3y|qrIb%?8=*jaF^fCNNnxz0rcWTfRKfFoefahgBU(P4{t>QGhE?84IarRxk0ftxIpy_Zo3tjkOsvCc@)GPpMZc*D6RjOV*|qMN=(P zN}6RMy1}_Bl`&lj1;l>yw0Nu+ZL!U4CY%-B&cJ}9Mm=MpmyBO-29fz5w7n(QcALWx zY4<>&VkT*vW__jq`fvRnM}JROHoW<#tVMmg<|Y+Mp>t5fxt(KursQF&s9X0~p8&nh z0(FzscsF3#sMC#p;pw)X{OUENm?6VM80*20DMgtXnd!%!H-zsPu^I?38MK5I5jzIM_E2|!F)I2Ze`h-=+)t1$EAN3GkT4W(#7^H>&?yXFN$%~NK5qD zOS2bz*hy+>psZ3xk$~_>ULf-`JJ81`(Z7v`1hqJ?b@`sua}kblZI-%Ll{5EWy^?GQ zljj7i2#|VJUSp`J9tx#5IgvvVT6UspmTMNC?eYF(I%0v6P%`M3@Lltyf#e6$~XsdJ6W z;PDeEKVLJBkjF9XsnKUlm*AMfCB6`3oBA&!2D`#10!{ZF5d#D4+B&nJZ1BQ}OtLWf z{F8(+~2cch+)e?V`${diw)%hNjpvMgnY8FdmA+`_LK4|)d7pBr8N+0)a zGihzmxRM5%e}X`9I1^fnX-}*zZ=RaLCW^RY0?CsDl47bG%C20nXrQgFm8L$$XRlvK zoaDY>bToUZBC|UPI=|H+N4~EI8eF z!ZrH>B~bA=vG z=Fdxq7lykVJz&XCpB=AD&R7Eg>fbNkR@>hSk+mlLVyfZx$S&GmqofZBD%Ui@XyDM( zxi1mAW@u>cMDSyb1#;d3m+q$8#;RW7-JAAUP3<^;D1MXuu1B&v>{TL{K?~btrvS^> z7M9?*!QHNmEn+8YftggAm9feROre`m1&Kg$4<}=;;xGa z=89d`_rC=X`JYGrA6|F6_Tk&VsilwzsO;x&I)u{Gu+e;KCKk3PGAZ%Xq@gYtmOaR{i@LFlk*@VoOiIZL*o9F_O*{i zJ2Ea98^^~Q$7GcX`86mRr|Y^_XOHZzZq>a`yfRXD{FQ%suhdDeHMA)3`xVZKX%_45 z4wG{>k9)1Gdn^;3og2e|aE+Y5{GN)dqtb$bu(@XQrGZc`BQss+C)^-@(6Aol&}Y_> z^3Do!=(n#tXt?5fV@th`rO7cmnd9J3PDPOxY2D2l1?@>LN~=Qkq>8;JYFdN$yVN_?>X!1+C&d1*X9spXbS--LCGkXA z)s7Drod)Pvz4tE|aORF3wM%?Aj-vm#O~UT^^6&+&SJtT$IXgId&2QMDR_?cT!zA{_ zD4fyeebevKM&D`qVXe#LKRQ&X#U=SdvD{0Y7{6D4Ng zkB$|)Y1IktirM8sGnj4Qe$!AkU7up}W_AhHVK60^e`lv?yHa}VIc741x8z@+c zSJ4bILLlR0Y#(pEU@k%g1dT5DR+6{8#-;AVyCyxB$f3WYvWI`U)lv{Kb=mdynZ3NZ z#*N>CbC)Vl_rxbm6@r~a$GxbTjejQ`H&skFr0sP)^6AStD!X*9s_A}hQ&8C~eDjfu zl(IfD#%}JsRK8e6V`F)ni6xO7wi=oo#%t@%2v)4bMc2 zH7?itd=*~j1bQOygEJ=rr|M`Kh|l*E<`GYfRgTEaATU!epS?OSdiCnn!?o3{n_4AT z1Al1Ckl)!ieBW`ZSow|Fii}*%CE1j&Jyy>F77t7$R0EPwLi=lPdHb3`se$-%XZqYO8&Aw zb*QJ{%jY-uxo?8vU>$3o&or5D##bKLp0KnJtn5RHUGYkjiu(v&z#d{eXSoyy=!p&^ao_}j|XOwe}=ubc%FH(UinS^0O9q4D+8d3RK5DSv(Ywy1IF z>9FEfU4d3|*+}095Bogvm!&Xj^Mpa(s@cgD{ec8T*vVNnPM2{XT!|?CYu0c0DTq{T z+7Afr^-tf`H_LT@{JP#_p!?Dc-z$k!G1El-croy9@;iO*M^gLwn^5p0m&RjVCY0_o*Ojqwg~=HwV1F-f<($ zQOjia-Ma@KR34D(*RbE~Y^e8Fd{N`~nzn`CHhAAP55F(Z-x2Ro_~%#2eCuNIl&_a9 zYEs&^C^yHP!zJBn2{k@&RMgGUm)ISDl zY(h6H4|X=DLZ>I?zt6>TrQ@}C${w=Z1N#^^&E3TxI*#TEAY?<#`>#$@KVGhjX^po3 zogTLkJS0DMBk8x0MQ2X=KD-FfSV4wS!j5-pBCb@4m^I{GA z($2(Nr;cP~oY|V`T@Um8lNNM0`{ZNT!uZIg73T0?f7}SWmKZ#~S?hP@y`ud ze5I!)H}bw|HzS4?{V-@WZ|=PQ=Xn{e10Uz=FC4j&@qm{3Bw}z~T}|&bJ1|Z8u$A7E z%cc*8C*G|>18b+G-(IqWYJNc3Bz=|oV*Xo~R_VG^Iz-{|$rL8?4q|aE0D76G^9^$F z+G(-RV-WY)uuIKn2ylcOTq;@GA??@FrR2AqxY=wS#>l_ygAyTbtLspH=(pcycRx{*Lh}yGz9p3Qh1r`jS{`#NLlxn*;6yMXCJnxX1q~d9CH&$!i6>c>mS;{5xs#e}TMq z4CGP%CztYnFL}-M=y4FA`Tv)^_8&+2_el=i`s)ST|6xM?|K`Wxo_g~g(18o(zY~$C z_hyP3-L-aYE4ck=dH3z?F6l7I@<$5slMMHFr*>C_s>|h8J~BAOV|gqzJbas3AD+_v zJ~QO1OkYUIK@}N4GrVA7>XtE$l6Kh%l$ZdZt>|Qaa`YnwB@pXGv0wZ;BTG4Vn9T}5 z&RC?l3ax_t?4G^R${*B5j--1W#g=_NUTkk+Z$Tn@J$(drB>`ve?~@w{8P*q3vG&pu zRkp3E4|b*_91b}CeC#p=ZleoNJcfl9&lCCq?L1^1@>AAsptZ}>{VP@Lyu%6D`-3iU zM+n z9#;Tt`<_l7(()C2*>p6-A4>w2o-$c;)kpsv7z?Xl4HheFg~14xVy3WaNKEFp@}O>^ z7e<&sXZtS4Rq*5ez*3m!y#v>y?h~QKa@0Km$Z2q8i_nsCw1HSce8gJwhKye$hfWXg zk42d>xD@opLKMwIC`Alx5LQM{=`NfQ=xu z-9caazsObd}0=+C~F`IOXR5=miKkR6NY!j`H6Hw9ahKpc4HB)!UBE%;| zR?H0scVU{YQUKwPT;5_CB$mC+kpy)+aae2yJ1+9 zYcZ~0hn_Vzpeb!DtEuTKTJuA5;W%I}MG2s6KAiDG3up5Qcz|d$ZuoSTgYoECQHf$l zg9dK>s6Ap?4vrPU!@tVrmRmy1Bx|1q6ZCetBq+}LX*p=gIE-!vRW$F}w#CG@V??6T z-IS^!N4zDwAvsK#BE+|?d(GhzU{5!j9+HnOhPFElLHk0l^?M&vv?5ln^V zCr+Dg#Z>?x6n)wfWMaQ-%_L*S0na`qhR9K~*D9XR66`Iy*~_ZtduWVZExF&VpX;G) zGHQ>6EXxis&}fm6*4I;0jArnEwC#~({nRE>$jET~v<-etD~lmwblCXVM19d?^J7{F zUq`W)l5HMG((mLRcyP?I3Wyj1Nf6Cu6rrLOE#Zcw`z^|s>|kI%ce|L(;F1MSxu28( z(Q(Lr4n3xn8zl@Bb&@J)Y8S?$7cg7N%QZd#xmQ$gKGoMrA_*xiMG5=yz%An_PN0#f zgN=>a0=SEfYoL^Z&Hrpsy&j>bmX}V$W<-}}#BY}LCSt~0-UAx|nU}nEHe0MN-;Y$Op4j(HT!2Ej*7rL!~5Eh|d|q4D8Ub$*eNu`J4@DUAW3 zuRfrFH-!KN6){Z?a9zX(oNnCj^|@}(;)4ohVJrT8()9>QPh92Dw8}JqJsejG zJtUob$lQX4Y^ByJp%U*B6U6f;X6)mvsyA*`4RUJypn$BM+6D)xWLamE`Q|E+@Q-W zW!-o7SXE&B=L|1)`-#W6YEFpXlZBo zysTZ}j`vk8oNhk_xDt{RKWTx5+#FrYkS0))?4E5Aq+YH5NzLn%C;S=|9%|9rIw?i3 zVsExG{FZ|#ywz@e2WSv{4ZhUb+mf|zG#}#Ql29`u-CX&I`N8aq7oK{kLXUVO9#%8` zVmGhEbAfg;**Mkd5mRpYG!RJSa=l{z2I5d>OcUf4d5 z1$*Q{p&WteCf}M`>$xfaDngGSbrE6>A2mOiduU}cz)i)kqr3wQ;QVvm$HjA#?5NSy zbmhY_Ds5Y!-UmLBp`nBvkUSg?p5)21!JfrvVlf(5OLqhb>=D7KZ<`z)Ju>%o!Kt-n zh=y07v+rN}pYSv9z&PsJ(J+WL_{JBew7v%{^8>Clx646FST3^saEpzA{_Acv^HSk-u^!~; z+PxeRN9Yr2O4uKw&S`0Tp9WnHD+o!Iln6WdHPeg1A3U7+@$ia9*3uH2{|XkgY8Vc8tc<05Jk>HZpbss>s`jH0k3nqZ#AutcUX9&-jpw2JGt?fx5weoWwNEEK&=Oq9 z4i9-x!sty8D11XrBk0)0fGoh^O>=A^cR!dMy9J+VZce8Oz}9eKB28q)^`Iui zG)lPKw1@`Fv$w3Ub5&2!VBXOIsxOU6xCY`x+v>IuKDRAzYvpEbnP80oZg;|RN=GB6 zV7UiXy&%zzy-L42b6*pUmK=pI+t)hgJl7FyeCwfBrG*}S1IfNFRi`zivqRf6C#2B= z%{~Wg%?cKwMw3wd`LNr(Yd7r+Xx@vgQQQ}+qzA{CbbzC~cjxEJGosz{gv6R!n%v77zW_$f!&iBvX``_*T z-s}C|_IlnPmrl`yXRwwc^LK-FCBLtu?{hI*Wg0Yv9mq9It)c~4G4ytB{T08<>jCbJ zRcU|&L}Tv}EwJU?KqRtVMjnA+ZplHSha&itTgxg9>8g>Sv%kdcrP<$Za5(O7^8;0FhFna_FhS~`=%bH642EZR9IAwYYLh4NfB z04n|G1U@vq5CNQ_(8+{<*}J$1935IC6=+Q$FiBw{*m#S>G!0!`9$lxPnIi~rPCn5^ z;VrySN;-zJCH@W>OZo=?8mknbsewXCFa#?0cdaY(u_~flbTds`5RS&uf?V%?Ja++; zY3#%sP)4f;Gb@`qlre18kEN0936kO~38)m4t%N%0+^wt&f8*nGn~OBpInXJNN(rGM zof#0b0_QLsO~eY0-veh^XS6sn_J#75P{D?-;EV+}3&`1Be&^#zLbz`T;TG%T*q~u{ zRRgxs1D(vrd4ZgVy&C4wk0QS{c+|Tqn!uJyqQNLZ$zaLlmPZPQ)p>y1Ck%%nK?gnh z8nJJa6SQ-?jcb|bI|nF*jl`ctO>gOp$=}O6YJ7Sbra+e2v#XG)QT3 zh3W@!dAMdCG`4Q-nC4EjLPzeE=(X4Xmj^vkCmQKw~B2>*4Rk@(b?1!SYB&t_6k{pgEp-8hqM0lu;Q){F`TsB$gK_vJo!5|6B6K_AqCq_i+hyz@vxTU&=30O`}E#rOp90^P!RNGHiNPNTL4G#sZQ zo?F25;aNG?OY9beIRXb>*5PdjuK(a@a~~D&^k=@R+q@pjOR(C4*VMVZ^s-%;O{n*s z(H7G~8+e)Jfi8NNtV5pqa)kHd{h!Ea?mt9cTDx)*>cC|Zlm@k4EB zFQovs>J-ub-+25ux(l@@Xq3LsQhkeVYR5&cY7i#u;#63Fbkp5jw>3UEw7L4#Z>_CrwrHSHt#0Qf-A+trsgmPvZ`X1+$T~hKxOflyGi?VE zhc91_$m_%G!q=>(8+zfk;;oU_SL=9fULuOB@4yXcMaf4VkJ3dtKtt}pf7tLl(%mqZ z6J|cm9Km1zpBMV}s^v}yG}3#Gjwfr8Y(d}q?I;*#D}=#a?n3iBE?(Z~aw~&&rVe9R zoW5y!z-{mM|DwNbe_xI9D|N*Etx>yu^ERVTW#QM>%mKC-^o8tzv;1JGdq!wj*y2Xq zt*rm5z+QvLIGSDcy7-dcbv;x(UaREC01R#I|K6mo$Dz}7^yB%Ec}S6{GM-;G8T067 zXFfVmI|{T((*t-x;-F4}p>EJ9JQq2+PP$Zj6*7f~X_MT;fh(2zaXsB%w+p57HsE0+vjgMII~PfF~5pxK_ewiDMp z%&t-*%_2-8hQzA&=di+Ro0A&_{CUcJid@|~)FER-cRiV0FxK>pC5oO`cBRjibVQ(w z<*Y0nEG_ALW_hijKsuPiAUgeh4mFcE?YYQje}A$72iW~a+522@tum>YBB^ISq5A;} z!%}~yOEyiHQW>LuTvaI2o?^J90acd$bCsGRhGzw?hlX!DN0t9zRB1D4}#dHS@ zLu?>-(krJzJ#o>HeTI+#{0K2F{k!e=^>9bSEE69%k9sBoVH@O`B!>S)flN)7NTdT) z1~+KPJ;H5NtE~feSp=Xd-$PxzZR?R4mf`gu-lS%S~tvT9})Ys3IkNUN%I2+`c}f z|4gONhYq0>l^lqV61=`mu9xRra2`c@^K_!BXwXXSnPG%!Otc@fyJ2vKM(GyK012O^ zS~Eu_Gf9)r?0khb=YhO~GdSM9(A6#~E|@}ZbTSR<@e&IJOZ9;(J)D+l>OX5G$gIp1 zC`klaoqUWUm)5DTaXPyKvJ`cn_`tZ%c7r*vzQiUZQ;17@u;cs&qGRDfqH7{I8gqZi zYx{_)t)X^8d8%qta<>d#z$r?S(J^$O3z}~oQ@QcKeQO*>Qm(G+55Q!pKEMswdXp=W z$PjcUBl75I91#y=Iqn+nTBObGLxsed7XUs%6Zw@DD_I{v^?@DjV{ z1qlj;Aut68r@7eT_QT9J1JWBWm^bViaB-crqJMB2A~rUlH!&NTq7zVm;CIHxy{+ud zA^xGw?;!Ans_(=_8Lo0}J%c4CpV@E@xe~4zeuEd!X_y9jjd-6sNV02mM%#&9a`~fM zqlIA6Cruyo=Pxf_o-+(YJaH;cOrH=t`&E5B%F(%i9dKJP4@FWEgyZFJD{|ZA|CM_B z$40Dewm6wtEK6uJq@h&x*KkpDvtg$Amfk&;h)$j4m;`mlQdBCUK~+gQ&*s+(ZmfEU z(X|Y&V9&lk7++gUuQCy=hGg>o)GEZ~c zXmWWVlSY%wL~eB;1WEARIYYM}%|?E6`-{0?ue@UKwmdjrqrYlXzaM7H2IpqZK3z2#ZKgoFZCT92gs=RwlhK2!IF8HOD{MrNkH_i6fa-zoWO#PM3 z3A`w+wq6$X=e%F@8Yi~|ZVld%z-$rCtdcXrd~@uk$L?X@VKZatX~=8a+5@n>jG^#k z&TUh>GP;l93p1lh9MuRqUa}<<5tXv(78c{3;}#{&y4Rr7rocQglNZf76|+2~G{E*A zHGo!CM76M5ZDbZ|IuywOi`luVHB#Xr>}c$)9fK~3F4&vCPq0SnCtTyX=v3_~HBTL& z?X)VjD)qvcTAlNKfeR>(GapK4gJ}wAPx zLsDxWjfZNidWFEmJEs0}`1d?r+77+-s1OSD&7K>I07@wJ7%h@VG8#ikAbI>2;*Mbf zN`LQ3@8*8fz#U`~;~qZWi-W*$tUlrYD)uW5MAm*EINm(z80rra; zYIe2B=d7omRd*_LF^QU)#yH>W&0n(O*2Gob!JYNaRwgFd6>1ry^-}W{3Hs}Z>9RSe;njwAnl4rkegE+OqmaA0OE|{*zNK80pqc?H!eW(O zET3pcNfbSaWW*NI=kx0;GDwWE`f5$Grq4s`(^rMjIvjyYQs-PX`x3Qz3%vV@`nQUpJ{5s+*|0+cjX9iGm6SSc>V1$1HTt}V+$7;)!@Q94 zOvn|Mk(dj2>J3WYJiRX$krdW!Wq^ZvN!|hmM%=C*Cow`hE7NGhqQz^~Fs!;B z`)Scm2Uf#bk3bSl81v$-F*$PycQTqL0g3+xI?4>3{p&P zED(UDh|}Zry4v&6Hm&=R$b2AVqF@~c23B0&!vOqq3(^DUWMUmL<>P2f223DSE$r5R z%A(=j!si9c->fRmf=Lsv^&q~dU>%Nlq-KP8kchkO#M6$?>>^V{tzFssp?hnh&-3*I zI6U3Lt$+sqrlfrF9v#F=Op+J=A=*%DWZytwez12TH(c&teel0XR&elFTC6F4B#@n1 zXmP*@LFCB;jbg2a{rcU3e=h`&0XxEg_p4O8uOgwgcY;Gj(?SB}xsc-8e zCgwQ4Jmg!jvnK9mu12Mzp=nhG-E8DZ)^J~bt)VQ#&CqBzwf^l$7K+BS9+91Bc{4{f zst-p$2ya}2NsaqeJf0t+6}CJz^wI9(MhYiLt>fzB3kk|Asn>qpWgC~{8Q>Ib9NsDtWRL1tNeL^N%CfDDdwW;09Pi95KE-j*-yQkUYFJBg`tpg6U!_B;CTl&>)VXLc*IiSF4!(lJ*j z>9mXP*^fSV)gX~Vs+~X}x8i+27Js!ST4LJvoHQv4wFGj~w5J$Es5^2dwspDLp=?E} z6aS3H`S$Pe%``LLP5%sWszs?XwKC|@sh4&|$G)pOm_P}JNbdZMx{t7pQ;1lyuyQ3j z60bZ98ZWxr0)}rWs$Zdv)_Juf>C`ot7!7wMW;^mE@hbXbj?-0&kYWi^pOa;EV%EY! zhe$F#*lqaN?Aa50<}+_X>5?HQAUUsv`I!^udT+20@ z{O4nb66K5u*w7GM`Yf=gbP%(xa_uptD=8mQ8@_ z&yS4ve(`$bx=%z<@cGg83qnSEm!yYVh}WFwY580z`5mQ!m1~QLZile1sMAoE@*lj$ zREH<*^T|P=_Mf}hlV}IUckGVHK>0%3aB+ble?mby<2I1w#7Xg~IqUJ-bfWJr6s$_8 z2_JaWv`^)u=?L$gec0pF`ND0Ce~m#QxN3Gq)2)8-jpsajBKNWKB85qQ-uvB6Js8{N zBt9{aHGZdb*F0??Y1PdnGe?w+i=wyeP*35ys2E9bW5hS>PW2+DXj>=2P6-ADDkx;C z_Svh=gI%=n^PI+e-mUCFSoUw4w$qh;W`EhDJkd&sW`~Ue!j3;w3QmsxbCo`qr+#@C zJ`mz}QxmpSq=XDW;p#>Q^Df)Bt}(gn)LU0At*nclXGc+3C)!%&U{rOY*g^GU%$ef4 z`JVh&~gIXIIzR{(@^Jq-)fAdaRc`nMcoPj)NYe{@_(R>@wF6%oYa z_FF&>MOC{}##BnWQs&u8tN+y&4Qv*@eqcx77x!J7Y+_%Q3LmA&vp`d`Xjb*M0{RbA zM3Qd=*c2r^(Lc0ky-8vzV&%fAS+0qaLrE72ObWq7;cUw4z^fX&KBDSr$?J$oo9f3O zIJ1)-BGgcoh&|TTHmJTE{EYx$K&i0@Gpa<9zX*o&Qqwx;Q^)l1<6!>Cwy8@{<~>`@@5)_aSwaULS;^s1$r>v| z+R*E)sE70F^y%i!yyil^*4Bat&Ph@kDO=diQZO4ZkRJw93*c;t%5jgL zXY1?lJYV(aDum&B&W#xwKEGha#HG%6ws}wCR@~6`#-&>jakEub3BWWgt_kw?Z$ZRt zzV_d$Q-seHrca8V=nxDMY5E2hrr1AI8;kuxGb?!!6Ti|J@gS|&w!*e;BpR99v2e$L zB?Zw=ehW;H|08(KE zHJFu}qvz$onuFL@-n)P2SinFKI-*$A>Y8VNBf*nkDJxom@Hdm*&O5LJS zi2%8(sb<4cB=g=IvFgepqn9*o(zqH|baX$mKxgRE22L}_JhL@<<8`Np@M?xp=x!t~ zkDAb|%KjWc)HKd&8ieJtahvx{>867l>aTwg&_A3{E9ksZYwfh=+#ziL!Jy$mq{qyI zurz)Bt`svDEoZX$K!6EvF>Qt6s=BAR7}g5I1VdgeChbIbiO{sw;?~9@pM3lOP5%1n z?SyujE#_S!MyNKgroS=7-^N^6!8X=Y1YrBKB2#_*N4&jd_BZZYi#F>!6e4_aG@A7v z@#p)j*9tj^Of9p$Kibp7SB`0jm&e;tb%VAW?|ssA`@lomup(%fnrt`llM%bYadUq* z%g;kP7^Ebujmy%zKQeNRO0BqmWhB0xq5=tmAf{W$eP~=zcF)xLw}W|GA4c+-a;9=< zn(>P@PuJv3{*M#i54p6riYYM;haz*v1J2yh9~*Nns4#xHHnm(9ECV< zDK(q#1Qzrno$%{z&Sh-MSu1BpsmSuIlJ?Em{_LLmtImHE1tQP>-9Xp-(4(0hHFt9( zrFczZyeDXljL{h1Jo?j>Q!Z8Ir2InU_2$Dg?Vx)p3_-&o%+Go0_$i<5dX6jNHuf#W z7VX>lc#RKJKG+Lex0{BlJ5(xmlJjV-u@k48mW&IHcU$B&xNQ- zP&Z7I^e@`czv|5>z+#2Em5kmrn7Pl$A(ae+vHXXMXiiBfslo1Pq{w``cPAxS)SR3N$uyH*@+!-`?4Q-%_;Cp&}89> zQj$lBHhpeOucm=7H8)hhD)$lke9&0F0s|I% z8gh6$z&?dvTSdt^t!c(Un1$m`h?Xe%WMA@q+j&Gm+DFegW+i6Mx9WeYYF$MU06u>pH%LP0kgBf_3nfZbx+Ge4LMgu7 z8W=zTKtrt~A~WhvMbASod(r(M!|uL`(CBcTY4?-?RZ1twZO9angMQQWs^EaD<)C8Ck0}Kv(U88_bq?vW4m-PT-%3AEVl7vz zQoxvhb!h8Qow^mAkbyDwCzDU}CH>l5@>w5|Hj90sQ3{pmom(^SZHvdk;Dn7g*EBZ8Q+3xD7}>VV8X9t# z@3zWC;XNQy(8wuYo1@TX+|armeGFTS3Gs&|dhe z(?&mXGEGU|5vI}JquPmSN+N}l*{)U(Mf($SwMDp6*0w74a~n%|1$g+LYOb7cv}e_q zOgowDTv~q)K3ms%)9B7QF|qbOb9&)wTP`6oTTFBtt^_yPu-|CoaJmX2copUJWDB5bokH|!5>xBPuRk&%djIl0?qV{fBDptd79=w=9oP`9x zD;?ax$Yv@-2REp*eAl1NR+k{A$vgGxLfeF!Lu*9mNG$trhgOflrL!QLt*ZZhta)Yw zdTqFXek%}R1;r!U3N3tPfi4&(v9ZZe3j7I9kBf@VzD5_%l&4DiX!$tEBR_Ed@O!oU zr42UWyug$pkN>V^ZN0Jh-*nTU+5FXgG)a90eWGaFFCjL=R6;#`-PFs@VC~-wSPND& z;!G_Cx*OINn|{L{S+A+DU*m9o?O|GAN^rxsU`X}4o*mNBm=$D=w%UL3byVVI3gZFp zTILP=?p5@WgNMt>G-UL_clM1loAv}=K~}|YSF2eLjhMkfK*G% zYqops0FXDrK=ja7cY-UN9MOrS$aBUV-=T`VUDsb7V~I%Pv_k8BH&X*}`a7aiaEef5w1%Z|A#ia@uK z8xQq*i$p!aq)cemwqx&j{bb~$v~zUrBO(V5&|qtI`p1B^x|!?UWLG+o*WwCmwu~G; zU(ckH1*t*~)#O2;bqGf3@pX&7w)afTZerk2F8kw0??SzAK_#gb8nafU5#Jl`aG15n zt*xOmFhvVRCF?*nyIpL*I>-O-UO(nVvZ?EOpH zYtkrCf#DUhSQ0&4@o~NDJaF37A4}rcaUcT73HpSALHv5ZTzd`{JTm1f`%#V_jD`hoi zkR*{5k`V7=PSy)T7fUh8jfU-oq|>@?%0Qkr+U_t7YME{AId5~J_*Ea(6gIQsJPClS zyx|FA9V9F@J-6@-VF6|rkz~K-xWd-ZG>F&Pdvo%`L<#nKXDml=;EeZ=8uRrRtk4+8 z)T+G73yyg@KTszO!59Mg`?D8Epag;*77mkHL9N}vtV`lIz|8`0MenVI}x*L>Z57CRsC0_Uqusi~?? zN>-7-L{a>*Wj&kO+9Ez;7w5B3HUHc{rFSa5GAWj(b?4S}hi*Sx_x)VSV z|I9w~H4<3hD>~WW@GHjAY*o66aOxZoLaZK3sTa;(hXM($u_{u!Go?;_y`S@TTP^I> zMIpC6j*E`3U@ydXu|v3MfMLm;xj}<$osJ+kI385iyFZL4INiOb~$OASAK} zt0iBOT+kZ2I_EBI*&jAUXLmvfNpl-noV8Uc0~yk>P443h>j@;$Krq1DvBCWXxP z4S|@#R{(*U4L^JW{tM+0Nb5NS%ML>)SlJDPrQzZ`ETIky0%M%ti(4GhDJh9P62)=;ltizIU4#Iu0n9_d!FA zrRq-8sCP^Az$hvzvprVPSeGbfiOa?om~0>!`LDam7{Sw(?1jc;#QlpGpqc{=?{tfJ zOY~;Liv@SOSPM77cZTT6Z|Cket;lDVB#`Yi#*Afx;xhNI&dtu-kCkQKoUn}kKG@?9-BxX@`c7}Q_ zz18X(-Rzw$=8UuT<#>-foan$JJR+}Z9(KG#u!l}EiiDD0v-)`#)5bv$X> z-(ooz5pdkxnz7VdJ+INPTh5JLt(?ERC}oh6lEfJ-&}XraYOKN;QJMu4IvZ-@K-8j1latLzZ^1iBtCMw{+;S! z)$^%rPtxC!tOikYIpfp`OOtWb9mEfqdL;C&DDHK-xFUX?kHK+t#WDP*YkZ*39$S#@ ztC*iJUEedc(|EZZ+Th4dqk-+)EBp>X!?Aw$?~b5y0%ShkZEQr!V6}MHq$g5&ZDjpUmy?vocGHQ zv>rXJLsYAMU2qED)tH=Fi4RFtAx6BWDt|KA{Kb2+P}lcVyrFa;hcaCsrs1>w?|%yR z?3^#?UHjoo&yU(H28EnEg=-KcL*1UFRj`S-14cMkT7YS zAzo;@+5Dl$-n$OXSOpb(!tS4})>?5f-J#3fts6oMJ5W7WS4&rEtn`_)gp2OmKXIj` z6^Q7YaJBD?w&LhpZO#>?(+l_R$t(UMk`IBn)DG1`cRR%5HBJoQir}ZF_C3d6xm*v8 zpZ%UV{ybG8NK`p-$cGC`y&wR?reInHQ?-%vH&7iuCsC^xOD%zt z2qdyrsNR^%7d=*2wo;T%!2m>&OWz7dKW*VLN&DZ@r^jkB%`JpN6L`Nlx!>9b+X_Ks0a3F`pW^ z^*~82niee_E;BitP7A!pEOMn)LAXTTy#U+WxJG8G(mPC6P*Hh3`GE435q3#=LmxA6 zOpuk(&dA~g!);wh6I063bshfD+&nbMRuYyJTZ#@BnK|{{t?GLYAUe6;ARE8DVAdNQ zc0ixb(LhX`@Y93o9s*rRUiv*hDXw$=WdXp8R|!ld{H^nJ8iR)(^kX;lb2hasvEkAAdK0Mx_m z$?p;^lBnjgBo#9rWd=*KV!fU0-la)>+vlDv> z{XTS;_k?pc0O5;{o+`?)+EB^s9zwjcb}Jx^wNp`zt%5|5$O^+RtF*a13~L(3_XnP5 z;%}4v+NZ}viN~JNI=eLQyZ!Z~v*4g(pA9+w7PnB>G>S1$&}Mb@2c5X2pMRiH^`F|D zOFf2&U9)*G9HvF?7hqoL zKY}-{lfTo5VPtL44DBhu5u{LZ4TuuTg^AwnD;gLLT;*nG*vzss4sul30=f=BU0qI!6PHuD@PKr22g5 zd+2i;$025Am?vV$9l87{-Y`oR>&hGX=m#C^>WA4^BS4RH_<;^6?ya)=%mC;dHIStn zpj~d^T?P)SVvk2DzWkD{>pAnR8(1{&)(NyMu7BVFNjiP`C*lWCE$ zbnkmrc@HC+N~5*JIVnIQ@apIjOsM&)@e1%9R$EJXI-njT8}q5BmPNGuNIG z8D(<8>9eHa;XyA$;|biZ@w-~j3=ge~E-);3OaLvGBA~bRr*coGx=X~W1L{g0{pV`m z%3-Bs>Wv84Sd&TW`{j@L|VWQ?(9_I47KCoKSw2vyUcz-{(8!ZcMR&fXItLrVtjBHM2kPCYI=7l6ItN^%$(0DYv9`eKn84rO7m}-S_cdc z{NL=vU=R8Uo<7Xu=!p^KLms$_hmc?6z(pn!vs)uZQNn5psO%mJ9qjV#_^Xlf)$Ai* z{@D(0)7I8-5*3KpXNYI*K--?mEl+-!790@oVxG`Jim7WLd4j|oUV=zCcO2@ClG{Z> zCA{JD#ZHg$h3HGma-{bK_=oYPf#)?Q{Vl@Mo|QkGu~@5PYc6jZ3HDYJpit#je<*@n z_tfVVBG%iEL>D`*n-*p*G}Ke$R|X`7rJ-CKg3KcxLS6Z&5x?Z-JOAE&c`ZMx>P;u? zb=73k3*zZMzaF)GDXL4&;xlZlMiRB!UszU?= zp3m;^MUBNqe8~F;CC_JJuaVPe!CS#smoS8CY|@I zX9M1aSdwUnCorROGDlb(m>&`Wbd|_@6aelZ!UAe>sQ6}3(GAC5!vmd4im7H0GHKe|AU zhi=Wk5&~c4AVFeB)n8KDWz2eU=i@+!DCz35`9oDFE&JN`IG!&1O(P>Nu7U-vL?gvwAD}&piCvDF8YWS@AWFmzl zSTcX2RwdmaRDyA(gg0x{DY5SMJ#!8BW~1A9WxO-~S%ZPEjYDIW%1+vKCO(BZmeMXQ zB#cVcl1_-4JB3#)?3=oc>zh4qG_on&O?zaQY@yR;StUa22WK`%xX=#xV36G*Vpyu& z>V>KyLHv%jE8t%5aWe84H!kwzezZyNj0;ngE!dbFreCe!OWV11S7FaDUV*tCpc8au z%toqxG!!2fMANc*HaWdf!!ol1D_fhaf0^ag*jlGJgZ;3IUt>hvfGF}SRv4NF{WUPU zNe(}CQVKE_swpxVxOD%cyq-_oX;*)TX-N4J^45rKb9t`qz7X0JyC-1>t{nIJuE|*u zhqTDwZqetnGQ$&y)Gh6D%00sOm8I#2ZB%AwWk5ywU^3X+;C;1n@~Gf348}lVm*nW0 zR5o=XQ_wWe$;wKrnzgpW_^*9xSyX71bl%Ib4;KX!yH83$URbZM2{`)fGj_mAg94`e z{$Rr_-4}%%C?`)##&6Z$ig%e9z>dV--8^B?%+=^G-o3gs4nMwn6hGzmEmQt|{?m~d zQI<$G-es(Q9D)~#)Rv&XVX=Y$v{l&zUcGdKTB>Rc4dkiEJfx$+sLASP{6C`!K^xC& z_%^ILuWGK?wwoQcKv6|TcLs^wLvqG%GSvKMOD&;q1lf>-D(R-4=YjiG4UlV0#8 z5~%&`7EGw%%{ISpa?o_gilVS2DpqtPs(-iQ4F=6_uDH@0J^A6R_p@Hx2DCk0#hDhe zOw!qV1FR=0tMsB#ay()rn9!x!GN^;NotDxdW@VZ2(T>;yr^3eh@c%sLhh64!5r8Gil>l7qd&s}G2k+* zsg0c|(rf*aMtMPrf_!e30e@`+w^p0AQ2rSPCS%C=WkLY0;|U`!T^Z3wlXulOmot-X zY50fxVbAAQaCl&=Y*bq%Jd+C|13jfc{fj1Gt1&tHLPc&n?k4ykmn?cx_ty4D5pgV9c1{Lz@0&D{`6Af|M&{infK6Y1?6znleipd)B0 z%569Ap|1PI70=@0>zjMrX69%?5YdOHA|NBtxxn}YFA&Q`xdqmdas`qU3J}Cx;s0c* zQb`Cok${^MQTbnpIb0Tm>_DVWl(d+w)4J`rpERHNWD6dG0;@Pl-pI7@=E3G0E5=uJ zbP!ax$)9rzRUjtgW>kynmjhH6&&K=L_Z0tkFA(pJy0L?pQQ+0B5Wm57ox8No@Ca4s zD3M-#DkeI%BAYNPo6D769r6rr7*+|Z#7E($uZugriFkzr1%L(QgmO3#8>ymQ_%F{G zNTUxO9C$xG6fq!~$e;Z#5e|<={kL9hD%8$+XWM+Ztr`;fc*Fy~+gi+Z7)MGDZC>G) z?9jsMYHhB$=dYVbHZxC(kTy#{UjaOrwxq+8ZFz#BE$dz6w!ezjUK#hY+-oZXz!lYT5hv z5H+RJ+fkQodzagnS3Ww6p0l{P2^&-%S+o`7h2L0kQQN`R+YSA5qCX3K6q8e`<%elXWWn-NwwY*C z4fM>$TlOgIl$C2i{3J4D_jU~v!1@M4sMc|2Yi>|i25h4UW)_RKBX@94PaOV=NVwJk z8^*?TwZQtFqi53DVZ*rFmbCUpMss^%73nGbUFqL3%L^`gVhVCX~u{#BLJ8oIm! zOp@a(;hbQ)fJ1lEt6?wSEPHvkR9Jo zo;AAY9N_8rS7$7U?tFCgUeFtpwK^rD!gPa^-XlS`h}(EwPLL(SgXdme_Rq5Gh!6^Y zNDBXan?I6|AYkQ6;PoEGj7{V^Z*^>*LsO;sVzMk`wXy$-L;JQChFeJto|K-j|1%R+aQ+1u6y>JSpU*ws(>|g zU|7n7t|E0=PrB>}3OV&x}NqDtijy8@2qb7(nC_c1htAnV9F!|hJc zLNmYHJQRA-hF7jd*K+G7CI$c`Ot*PT@X!jNPAOlEBK@_17xAMHy5itc~AzOHz5ZLff^tCgUpOhk;Gm0T84!}`YN$7 zy+iRAi!V{RTkar$x2-bJU#!g7X`*VRe93bs&pjzN@z>)AgE^jJEd=@LSf6^kqOZN+ zP{h@Pq4un*%7O;6YMPn-vy%ObGst0+fg(o%#pEed<&O!AhHACD)0fk3$1S5`eYMwG zg2#1T-?vOBhxcwxVNN2vki5nB160I$of0cQ>!Df{5JtGU`Yl44X=4k?9 zE<0?_KZ*si$zu|d(T{`Q;BHq8nJL(w1KMLBDLUa*0w@EL1knqKXPB(aTZk14H|2qR z!YhT$M9G)5iz0#en@CxDWp&CJ%nQ`>5mH$16ct@KAHOw-Q*Sh9f}*RXR+)!aj~g8m1xeqyRgCD${sJ zypuVsu^6iur=n}ck%i)>tBaKEL=pI&u?YYI_`H9A&BoN`|2~?w-nzb0CtwGG7wcco}AJn-cEs~xhoLg^1-j?#D2xvxe`pBC>dc7io8SJ{!QVH({0 z40*U5IuM|mIZ3$t^_VDyXpAn-&H&1R4WiMd_NOm5&_8s;RjTD~hRV9%+7t z!R2dsxM?RhgM~rRJ#*0Q`)bxd4KZFzaogGy8;{$qS%4wuu(ATNtpOpnv?C=*Ctkt* zrr*ye+37WHOZvL#tgru2|G38bS9zLrvr~CjtY_^6i2{@W%7DAj zHy$(oi;OGcx0Y?MPwQDny7FAtG%(kEZm6-%G9bkw_vsQq6VCC795lCzGt)d&7%W2D zw#@vun4tWqct=-lsGfZ8gKylYr#_)*OoB^s_?f*qr^7RnH_W&-!Rir>iwztqd+U13 z9^;N!pU-wLGZMQ;*27gRglRJ53M&u*$OSCn70U3eSZ z{#>!%$3Ura?NqBYcKr$=pAgpclS>5Tl>sKc7V2tc&>-h z1>IA)Q)jqe4u!hb_dd9t0iwZ~%~RV(@12hh4j0L~%`lm>YkV_0$iZE?l9Xi1NYJdY zW=X*`Tl{&Z&GcZR2&(a{@z}Sz?ZKtK_WLfjCf`2FnUr_VEzU5-%)j6;r@jvaUggzn z^;k;JxIBS<)M^B&u-`;lM{cK(mrPNz3fpoh3+u3Q z4V_E4$|UEmj6$|thq1_9)z}bZybRG`WEkkOb0e;BB(_PMbcs(0uz%-Nu4`%3i%p7T z!c4W##}xV?@d(ZLYq=;UzP>U|-x!vZLr}Ln)P^aa6LkOg1IX|i3eWb1?eU?)nB@E} za^bx<6!;&6$Ho!#ug5mOEb4%y`^oKYR=UUEmL9R*HUIkA$y;8#%kP``q@m+7_x8O{ zFpvAirYr;g#@tNT7o-+_x6rAgr~YMARuB)7!H?-NCd+rZ+B`kQ+gxKCa@lOP3xfL8 z=bSZO|EorlW6}GzmGI|j-$=c7?A8y(=-OX!fBp02^QY6R7zda3pahF+2GoK!2$D@Y zncSuA^zf#mYyJNQjD07nE;(-3e{uP#PyZ2@^{HDmcb@OvQB-kJ-(q_n@_oGd@h=`n z*6r7K3+vZN)Bj_@xyCvxex9DXb(yu@ao;Ou|GZwXs-^Z%H7^SGq5_x=C#E+aHlOv@!rT+&vx(sHsy z)W%#;E0@xgC@XO(Yg|fGCc&j;Tr16Tsc}gRvBssrkP)+VrYVyY!;mPa5ecyZF%Zu0 zINyJM^iMnel-UvW!-*bkr{|=-YQ^i_RLM*iGZfwAKm%cn_3<&d%QpW-g>( z57#GB=Qg%ej*}PySF>=Ut3GnDJ^v{#Z+{4|2Jp7<+mUTQ`k9n`S!prr@8a}Zl0`7uKEL{G6^h0UyIrq3+_!-@@LBFOR(fweHU3_Nn z{bZ${j~-+yjQQuTG8#fzA~T&VKV{lsWqj(;FX*|K|6A_$)*yF`tRmHMF}*LBm?2Yq z?ib{_q2_&%&*E*;43TCIeml&z^aXSAOr-&bh@j%A_Q^k2MB_W+YgY~&ZTt|4a=5Le z`DGf*>Y}G?~l@>(caym1@?Ua#W>egYSc2ggp1H=a2@F34kpVLo`a}3RVws?1N~I z&HkJf%Y79yQ7h3boYiPrXcr1zcoKQ6NN6yOA-DZ%qaeMI8jfmYO=N}=EF@uLiP{RH zUm)zBQq`bK!(g2iWdoHEs8dH$)!ApGh5?8nmk*p)Cr7H`8rJuxn+z6uOf$Dj7gqwi;1GFqydtG}4c#*2a z4=s5-g1n;<@Myor0C1kJPL#J-XfJQX2mpC201)K*AT9>V5S;gwA@4#F#yF9~z;R9id5AL}n=wkXzU|@M6PV3>go?TcP=~r(7DE z(NDFg<8n}#p;L%>^z2s2H^XSFi)VQ;DIGH=cW})%V{wr-ely18f?;i^I<3JqN|GoL zE*uPT@T4Ro(8(*)2k(@38QSkEvudl}F$@Tt)?M}LmH@W0jvEshJmRrMhWAeC-Tj1E z)~%JR>zUMCpVnPY*j#jt-3TdfbdKpS9EJ%)(VsU$=5ZtsIOy-c@4(&v<>PSiv>eEy zxG*I|;~c9y`Ew4J%bTimrUQ*K!jOg&Y>EnGGk~3CAB{SnNtj@3(#8_&*C535mb78J z{(EpNYjk1PW9l^woAG_mmyl>u!Z>mLaI7^{E6M&{1v6kl2z#bt?G$cAu&ed?0!Jd3 zkMg1+NC|YwV(O}g&+l`=X*(8*!=bfk!M+&)vRLAARp0q_@YS;YDC_jRiToX+H(MT*^s)% z40E=z>g=;Vy=K~2^bBud6Dg;MC86d{l!~eGqpRrkTs-}X*U;Jh&%0I#8!cdjZ9`4w zG&_(T8Ml9-aF>RkIM)^oqbZgjEwGS~mihEBTStC+_5Y0ga0|>6mHNS>W-ZE*cB~|A z%zn(@(0}QQoa?>;W+x1gQ-uo{D69=vhs$dp1|4`-08wmkDTKGDzHXEi;-&=Sum`sT1Oc@uqDy7#^|8re{P(gJm*@Rmh2ZLKCtS)+G! z!yg4+4R2@vI=?OUZiiAw!(0oC^WHN|6=-Ts5-_O?dn~sBLJ{A?mocF&G^2PX73@643Wf~ z39}YB%;P$mcb*IBP)~P=$yw72*9H+o_`jHrrwJRIMgDy?dKZx{HaLe4RS3wFo_tH6 z9$_-Grm!Qf-b2L$M;y1UJ$bHhxsWk8+G8pu2ND`GlHf49PU?#J{QmDHHHbarg+!rp zg2fDMa5B5FGk@SN~@A+tHh&3*$XWBA;aQs^rPeA$3Ylqb~h=JPVCD}<@X(u ztXZHJ8j;S zOO08~I(DKV(AYBrDT-x^!HR!FZx9|1X$*%$kl1w-+-Uknl|tUUte30+_87uMPwm@X zjvj7qBNx(#!L)?&^~16R>dQ_GRi6rZsHCYypSyoTb> zK0_yk;#$!#r;MUI$E4-416WSQeCT^vM}!rnyPX@;-FBm1^f<_Yf`Br+H!e5xHZlWN zcBoJP*H0C;QP!u>R>MJI=W15t?LMR%6w}XM>bH50S{clP^&IXD3|%{eQfE+?$$UxV zSWra&*){NcU~?COygJ%w)r~#wu(5tiC!N&Sz z(nq-XMt}1$zi#jO;j|7{fGkZV>^LeyJJ(4WnkbPVcEz|VbU9qzo^vM)(64;p` z8OK_L=Z|1!Dea@5Z%o$cv7_==WrncD()97BrqpUo#k~EVM4|MY4bbunM_KmI17B=X2l2;irU^Kou=R4Ndwv%cv5g1ncUqK zMC=l3lC~VrX<_tr=E7}5aWEECRi4VbpQQllWOjFt`HqH~CqHRRw$(C5!lR=DS{CHS zoC}}okB6--X(tQ8TxWUYv;^=1>$7%`EN6tlx>FY{bY=E<=i;Rr1b@_OeyD$mNm4NwJYFfX(gDe{CFjJ!!HJ#bRBM! zAW||)KiqYcyY}ST9}@IZ;reUbRvC?Jg7aBe=ge^T9gGhVk5PSnn{c`9c3FDZg^n`w zF{8iyHy?a@AU}NBZm}$ckin7$-?RMj(u91bc?r>Nqm@QL`(^I0vkiRhB_mt2O+VRr zefrf^FHFy9$!a9C?9J_8Iz?u4(*bdW)Y zu(qs&4(Dy}*!!;U_lWP#{^@Tr`%IcfOz+@DiSHovmSbxCsMLM^BZ<@9q@4{t>Ia=A zO{ZZlbBH?*dWF4J>h#t0b#fM$w48K(Ud(mVWovRoIXyxBzumnU%g-X$KPR-+k_8vZKuUgsQ=a!%hp$$si^JS_O8#H6 z@sV&cnhfAkO^@aP?#W=X)RHk`Yow6R%#98w%&4(RZXMchcbf?H6~A|lM2r!MErAkZ zmb|P3rs3MX{V22l6K>dh-9N$+5SsKb8nG%I%an%j#SSeEgq$``9t~o)P{eKSS1!#H z{CDsII?il|Yh*PdbnaG!sk(z{hIjjAPljASwmNcAcIE95zpX&W=Yjc3nHq=aPxAh7 zubtISgV{xwz4b$hL^`8!laA%NH!HIX?-LK|3i*loqr;i-5=6lSM5rKJVIn{l7J_!k z=8tileCFz5)uE96Ih)rnbX+?y9BBSwgZB+@Ph#-sE16oTu?uY~tvj{7$nI*7Y{n@`LLEi6S{9rf)r!@bD!u6i+K6KYfE5`jqA9{usNeF;Xo143($ zcC;LUUlVj3#@nm5|3K!&odR0Cr$ssi>8Zg~3(q94EEw$b6~QkXT_X^VWPegPCfSC* zhTF?~K0P2xLd$AZOLN8|My9atewWT&+Q0n6Zu?kYr|Orn6AF6vuq-5`M=SN{euegR z!I`kgSomiZ+Y4dr;6XjORl{QS2X`9z6zKSBh^ToIfYaAgtnI~a^L9OI;`>K}7 zTRgxUW=-5W>i@DSI$Yo${La2C=m3mWPUL47u@ya#LGfYDC|%vax|nuX1HMQI-L1yK zQbw?P&&H_fYGo_yq*wauzjQbHn$u?4G7b6d^tgunWGbWn0x{$7GXd3nn7xFeh+%xkM~H(CrHn+tZJ7I2yvv5=2M(hzvBPeVAz5OAqLUXC zLgP-qHhKg1N8ujbX|wYgq(1q{c+Bjj@+n9@8gQv}py*0+D&*?UOM5&{=VtSX%Mm6$ zjze)hsA6lNo!TV}r7Ub=22Oe43WQqCrdFwgLakx3=CBebL4E_vZeUAgT9DAi%Ti0e z4FW?&Wd@`yOtXP-&PObwX$}^zX#J;1e9{U?H0;7K)e6gO`W8Yqosk%AC~wCyO(da}pJq@!SlTr!#ah?+@a^V6&K3*iE7AH@KR4y<3B{f3u@P ztx}$%4*S=QR{mP&1c@?jFx|a+3AH!Er_&dCIrth^mn!Pbo$WyPB^u+UDl5agS;iz#i88zR&mc*}xsM#n z<>au$lF1AeBS4r7)!*7e;vO>S=$Mb3uIO?!6s52S9`a`ESb$!x71Ci+)q6QVCvcY? zd)8-g)6+i5~rR4iJGgW6SfjSVk-c3 zJ@VVyTAp01=8O?W$fLp-vMN?qFlP$gU0C%gjW-l6%<$9!!%aXz*z@W4NUD4fN7x2~ z#T89Hsx#V7u|z<|dDhfI=}+CIXI0R!<6h5;j!7P7ccfH+fA>yjLS!DRy_q`3*T=xV z^kHM4?nY*PZwo##jjC~u35nwOLBD0AuT^#jlcdpsC*wGgfepE{j3&-I&Fty;Z@0az zL&prmJ+v*Kyp`UH_K7Bpre8`pIVL|l$#Yg0$3-a1g#=O(UDVK(Wk|O$DIQ!wT zf;(eSrq((H%0YI$kfLF4Sks!u-9PY|DjZE8o{GJqivn(`z+eX_s zV(^>4$WO5K=YROQU`h4fUDVyqs5@`@!zykYuHtU4zM3@YG^{a9fBEj^J>x>J7o&fM zzO47%i?g`O&tE+c6so7qvxI2TyP)m zjv+tT$=PA|HjI2MU|g)q;H&vU`n~7(o5T z9g{4@YC)iXT3E%`qu<|z+@Ic9FqJWU8ggTQ(E8n;jLf-tvwXIuB@ZsU8e6lFR{E}m z{QFprzDh!q)K{!%2p>E*&D`fK11g*NnyNWwW@dVe|HYzRb{RsS!8cz*3DA-t#fF53 z`yY%sFk3x@Yh}ALr=G7PYpb*`bD?*QQLmzhM>t74BU;1a#MvzClLizxe| zZ_j4*wK67{5RJkG07rVE>dfeUP4kgS?Di^1+W)k*6UIQrAH*k z>6EOxGQmRslb;a3jPbwhr|-H7Y3RQvkYpeCavb#a?o z)#*?oavZt#{#heSU;m4T%|uH#n&NU%4y-=i^p<0ACyL>i!u9LFc~4cT^@Lrr(+xIp z)7(0fm8q{vJ~7w6X3`csLt4TI4Nm4TtSLe2;(s==pa~!yc!zU%9h#YpT_fGmTVp zNR^K}ALQeHYT)t9YcYg??dK1721d@wAz;U^D*R;BjQ>S>lz#+I+{Ak3?Wdup&EarV(0 zLX}1(`M&vLH!MNq;A_h?A=Ga6oQ8FA%XpJ!a)3NM61jpw#A-r4pr~%K6HQz=6FA(L zM3&`!fnU=FXQ>1ff6Pz$-FK>sdloJ&0>xbIX*mG%V#IBol+z4cG zTNla+GE}G|dhi-S|9KVfp0JtP0pg+b3f>Fep<-c{ z>hBQs2r2ui1sKyX6Zrysfe(h*$b|j{4Z)^T* z9~Ules0|UOTC?c8jg&b_r2lYO?QqPx!fSM>z*}qlexM>Td|RN-aUH|szZeXUL~Pt> zYj@24q~E|ii9w9zhV^fKf9XNT|Gk8T$G>k`Fo&3oFcuuU4PBM!m$RbWOt~Dk2Rm~{ z=+v=*Exdq*sN#PfwB9TmYP!~NjfPSmZ2z@GrO4L&H{lqVJh?qVD#g%43zZ}xrK>yULX@a09*5VojU=~mqt*b;>OJtEXDv&u<``W55uI_-J?>uZ7$JJ{hZTW= zq?`)Ci`mK1Ov=81SxM`|1#)SWcWsnuC*VSTh@_Pn%U%u`?M%Ai0MWhxe2o|$9_C3R ztTVn*pgTc6g$2PkZ&s-Ie-(^euw4pvuZ43D@^$AKrX+A$1BIe_+V9&}_cAotrs(Ks zT*AuZR3Ts#t0bMPVTtm&>OGQrCr3M`@FB3z6a&q8N;QnSqFk80q|;Zwe)CT+gobKc{8xj!vwh&>4JME{_%0Z=sh_8xaug|p2u*y z9%rFhSB~GT8yPDsydt6{G6apQTx(!S+umTb9GBP5Ni1+Ovk@2Hzl)} zn7s6`H)*~K`0r}|L}OK%C65Qt3azu$u^>ZRa&qtg_F?|4j*J`y!W1xCZ$e;bH_2s` z0S(6Ax#s%}V0_9?6zmigmt`wg%#V;21{S0~ zya<|#Ar`OXXr*`Ihs)z}_CL6P^(nCNOBXAs7BumiwG?DtsL#>Kee0+zZ>@Hg*m~X+jj9ZA z_fDR3aSi?@zE}Y_-YUVvsm#pmw9e}BIKgS|ipbPE+qQ~^NzmN$_Mdw(4t^%{P0L{D-0v1tTcRN(PJn4P3=&`@Mcp-328zeRhr`n- z4l2U}1H&hdM3<_hZJ9t^KH`FpR14HHX?+gQR5z{8Qh5C*TO{)k?#e0o^{sz(4&JWJ zk!V?D5m}h10Ehcke!C<$V?e%~Ayb2y_M4jXTmkumLc-86$D>+QVwFnhGHnGbEB2^eNa{&PP;9`A!9zg+)d@OU&b zy|axhZAxRXxjpf$zl~!ed5u8R#RK6zJeEi7=wB^L!a`+7q9&nwQBtez5M4QjL_?CV z1-i0#DXijk=ggK`=bl{LnLe_Be5xSx(nK=*+NBSjF5L*bMPZi3)Jw8uL#!GZDM^F-)yScmeM1RaX6l+ z(O5UfSbxWk4Oj6WGY+*1oEycBoy>$guXlw=(?J$_^f=&8Z_+dY-}IIisP|-D+rrs? zy4Tf0slTTq$c4hFqr_u|l2Uq!eajTVQcn)4MKyD(lRUcc8bUk7Ag5V-Om2Ex1@TPq zR*iWjay2_>z-lyYrQq|RY3f*K30!&UZ6qIBcQ+;2BE2BpR98i3kkW$zl%azN0(()2 z3H4##P9yF_PqXkQlnvC6ud$4PG9q-mOaCrO8;9SdZy0@=71e?ROrR1&jx+B1`cQB9 zTp_&Zwp#_^tE;&tPjL^Qx=@NXct8xJsJ%i>(B#ng_ZMH*WrtsEDe)!8%)(0WP{|9HcH zI89OUzg$LLuM4iWXawPJO(*A7H@`G&3Oc}+({yjR1&?G)-rT!LyV~KfN01}NEk|O3 zP(Rywd;KaSn-&d>56esUzi{_+Q8+#HBym{{0_h zBk7>;Y^Xc>2bB`82nT@+1nYva1ChR89<7_4d3Wb9Bp$|>=c7suL~Z|d0cPVi|%_F@K+eU zyZzcDDbF&`n%8s_)+yWK18XM!NN!~U~JNOA(@<33En z9URp+((`1#pZQP%@w(AB^$JPx-%CEV-TpGm;WcO#ZT-IFXSEqk8b?Xvg1dVrZbwP_ zO0V%SZvMUA<2eo~B zsgM2XWeX)uF=PUChb&NaZI=Kc7;VTXll zR>FSyA;fG#p>N@HjZYdLdxwydD>qfM#g_YufYy423KnVtB<@>Mx5mnPdU}{=#M9bp z=VZxPNN{dKEzUh-@}9Zt{!IqnMUcY~o19ijm_DO9h=UoN)givW0iXdw?Wh^~Ngq5m zsk>YRH>nVf)FNQe`(|dQ9D3`%W@u%KJV}98qe-hg;=y|{2Q)lDo9xHhJHo+q8XJsY z#DoPiCxuqZP%#U8O4x0+nVAwv!rSTwvQVqkmMvhLG&`9uoO{@#(D%krmzjagGYl{c z%|O6M%l^E@nNTc-OP2L#w+^0M6Jh>6{I^|l7C8h=v}@q&S@X$RJNtNVw06%XpmCCc zKp5Vp*lw&bgnxaBhN1t3YSFhs-+^N>=0iv(5UH$0!rZX-HWtkA7iBA0p2+8uBQ58* zL?FoolT`3%OKVp>WO;%=m#DhGqTlIqy~grPo*`jc09+p-r0|-<<7n@;inO`TYTCkf zL4#(LeUhxv-tQu7pJX%vi4;0+r_dk~jO0NxXroo0h(?SK{Om|Vpxwtl{x<@D#@}y| z4i#Q%U6MLc^H!~;cazERt3Y1pS3+?tcH*+${#7ciDMS_$h7P1a5fN~C4=*639pVvNd-|fI zz;EAf%{5D_oE2=9aK4ZO*9t@i64#U-u$mhUk1Y?8++w*+jhI}-kk?QW2?njcb6_hv zvYj{*piWe(;p5>rgOp2Rq=QkjQ1LV+90X22xoZAQUo6!HlBtrye0R9#*A!SJk9LJw6}G^~nFSS2SCMY$u}N>2ShbIN zjWwbpY#h%L7ExP%>m2+9bsUtj-OruIwnZa(jUvRQS#e?f=f96FK7pC-c9dgW>!_LY z2lUoei?7f4p52R)CI3|Ez484qij**XE#iqwgbCT9{~hL~+d$8hUsH!j(q95Ym3C!D zhD~8!POBbI{Q5TLM1eHy0n-0onuEK`jq19C4{;!|LAjhSU1?Qs#(O#9$pnPSdCxm( zbRr_7`5-~76?;qyG`7bFYxLP1)KtZ63&DFt54q>y&Sl;;R`Wqa2Y&X&t;Zp4!b|?b zw0*x@DmM#ifqs${Ht;ZMvHdZ9Cm(4RD_t72@vc5P#PR7KeV2jb1IIDMVAMB=ZfrvM zoOqUUYJb^wLoj}`HYQ8sddCd6@_Bw>fIW6ZB*{H`pNOCt>)23V{PA-T<`qKklDAE0 z_=y>oDkdt8{DH@(zL%{_*0Czxe6^yY2LFC=t+}0oaOm*@hKtO{n4@gGeD?L8c$T&W zo722e_*}DN@HssiQFU>Xd=0!-Y$KtbDy6fA8{Mn#`u8OxBH}zu>U1!v{NAL&pC^{-x5VPBy=l z$T5X(NQ~)txNd6;FP1&SW>{;)Q#-?ExWOY35M`!eLaHQW1I2egTKD_#w}3+t~Tz8r6q2CO6SX3;J+W?+cy|xyT2(mXteJpKkawIQcSG%eDrSKi2}uaWFzS z4|9&XLxMX8dur}jO?h+&Ta@L0zPv{Iz!iCY&jaXVa`y;wL}C71QgZaok&~sCVLl}R zRF}Fu59mZvh#)lcs04@;RU~H4YBkUMMsMnrV`dXAMby;#qm+i)i0I1?+U9;Q6p&-Q zA7LifOLUw#i79bkay?JDv%zE@TgVVH`q<#(KwW?;nzDAf=Se0H21aLzc5F;aix@N% zPs0S!RKE+3nf9}T_X?l4bLh+WVSoGC3)72L#6lNC;YWpxO9q6zY4%a&yqW;Ss>H>E*17_b2j2DbWpvztqiNflDDupUM24m{7bqtGgj2H7)iYc* zm>+auD_s;?FxSqCWr}BdZfC<2;570(3z+S*Hl`D=69m(dx&%2IHW>a!z7wm_iA>be z>YwdjrHGy<0v@dD34h30P};!ad2GDXo& zPufD2ZXr)Ucm)z_S{TEl>OdFv9CjyAv_N(YZ}2KRhX>kC35rt4i}~yVg~+62m)nq@ zc$WIHt-7(7!B3zyHxVPlI~X18x!?A7Nn{G3fXm;7{_mTdRlW=$%mRl9z-3)s@4*=} zf~d564DSHBRzAn>RpuMxJ-ShD5f)Zr0Yrz;Zj`-0GA@S4sEx5jX=y`<@V3=^{wHT0kUqme*BOc6u;EGLh zjNVXw{4CPfl~#Z;245u&~&$1i*Zlqm&JtxQAG77$;>Y3%`SA zvlx@AV|J{vt|}ud20)#9LwHv-KH^g~Tbv0$W_UUTK`&nxUkVg+Jzcdr;D6ptDMu?~ zVAwHKCt4AgLsTPiscv0HbXr6+KZXu>FdV+}d#&bHV+(+WD)!WW3xq?nad32Fr6bB= zZwhPTMoR~-aV#*&zVq(VW4Q*dL+PdgBl+cweBOc+51hOzR}gv@bv!=~QCvlkA|Q=i zIAg*HF!OJR%ba^7X6XJkOp@Cbe13;=dMtzo#slubN5k6%gfZU!nTW1LZA`!8X!8E{ z8mLbmIvZ37Y3K3j%!!I^!Ixdhb|1`a5UY;aLXGyqeSC7n2xQC(psHw$+d*99*)&q& zU(3gRikDx7Foo<-ypEX{_Va(=-u`Hc?Kmsq4wP1VJLb7w zsYAzYC1=2MHO&Yj{P5T%|Mg92=F!Sv?d5mw>p*hTzwZwOY?%K`x=~x6c`sdJn7{XD zZMkIIB{B#Rdo;=|TsImDoAy3#8yK?Tzn)?9-tKRFo}u*k-uuL3CUUh4lT23jOTJ9> zH22Avfes_6doG79e@U7yiYsVQL0tLqIo@M3mumipEySI9LO=Rhmvxm`O|rR=Ij=li z5)Dc9lFS6=a`e|rx=%k-&?A+0harH0<>}E~SAFhGNolFyy->kQD~-riiyAUTo|(j1 zFH>)L{glaINOLZ8I0pK=;i3I`Tu;pJo4%$%-f^Hl8Q5GgS`9&;)URfvA-Ar*U#ML6 z((l>%lcdPZH?dF1_?er79DlZ97imXH&Sdp~A2ncO7wz34yelV{=)$CtXm$?XHQrYA zY4(w*bmqm#u_KQ4HMNIew9AyITvSTr4(v{jnatgF z_{(WBtu-l;_i;osBiHQl?37|D!Dje6{3H7~SwUX?%E;7-q4TjHEJ*JmMJ9j45`*{^ z)%!Lq@iTwD5tJeUqeY$mWGi=Vdsil3ENb1P&_-a!p`eit&{B@tsJ@^lYV)6$T`U`7VZbR8xrEi(fp zuiekNC%erVOGCTWdK6q0@}lJ*uksD^98pWmeN#^5nxcooL~Jli_!#H2FmJK2LO51dNO}UfK8f`Kmf(CCD1~^TjV%Ub@4NE#BbNPk9pua4CG_(7t%|2 z$M;ay2@M--&=+qTLAR7HxK~$DR;&U_0Hn#_3qU>Y(RQ@3y zpJAxCy1c!dA{$nIrIIzNECMX~JmoMumL02A zpYLSy2`Ejc9tALkfBv4Gt&wP83nbU@hRaPzUw5uI)Ho_{Q9&=6e=gC=(l)k*7%hMbh&JQXnq)v!Aao7OHk_s1|QV{@%TeA^ibwL&{9vLufKzR*Pw zIU1?9W?P2h5xw;O1D$B;mW~d|w346{tI{;uXm(yuq_9KL&W*0;@pRS~VWTC`%^2Du zQ@8yZhcT6eK{J8ZrTj;mbrAo_G@w_EW8JqR{U-C>o`@HK*P`l?Yqj!c^LN2eY!~fb zyEBpD{NUtW=CcGq{S&5JP@A3y7(+dw+tR)MC`w z=KfJG!5`6`^VvqvEVz<7EXrRg8*d!#k?FFud_kfLbgGkK&pu}g?l1m;odc!=rf8QH z$2hcdAw=^y9K!18Bc4&WASlsChx5@R(IEjNo-*w#;i-Ry1O7H~1AF@*{L^i5)R=!j zFQvX(iddD(DekPQ%Y%^qXV1{C1~$*eeDL|`nHdX_!>Ba8?Y3mP^HZ%R?TZo4xU%rF zEh7Acy^RwWm$#8;;}?=|th8-uLz7%On>(9 zO<`7f`Tcu!)|lbcU5o3Rk5+`YFZmg?x z$T(tTRE2=k*mSdo^(Ha04iI#EcgTa=;mhmD%gJ2bTiziG?&Fk{c=z=i-d4UG*_IQ- zhC%bhGh=b7+H^geO9p+`3rT+TzF^tNsl>!gg>c5wQ&wG;yGCcnTBZ_o&U^Hv(|d;C zoaUnYPrn^VTRIK3RX?uCMFkc-KstrPm$Rs7LvLLT~rNlo$j%v?pAC{kXt<6C0RH zQ*KP{ax5;jy&TgQ+8%(-7Uq5NM5b8IA9U&cqu$G=?uWYiN~e?C3jcW7=)=>HC7NBG zmaqqD7Yzklt|>3J?Jlzt9qiDh87g#Xr+)sK0&$&o%_0=?Ak1mWVF>=s#9T6qWvWuU zn8PUw+&oUS91*y_VuQ#2g4B>*g2ra?gFU>j>DeVuAGz08`iLkzM$f(LSXfvZW*)O6 zyI3*jQ{-dYd|rDD`WQMUuS_*se{R*(ZB{nz8Z?Ub-}gqN7xFuMZ9pfqh9bzyo}`@C&IMf+U3yOIIK?@?1Rx}KE*L<_~jy(kY6C_MCP(U zMg7CE0j*uy8YTypchrf0Ei>-&P5Yypnn?B4u)G$tSrkv0-OkOY#wT2#?V#YMgX=OZ@GxSr{?b`D99HRR-Q=x38LYqr|ZAl(~ z4*D1h!t49kPBuHX&w`=)lKGs`qlJf53)z4$TdQ)jvX`mjuV72x`s5`7qBG!Wy{-S< zPsoQ=QQg1>zwK3%XV{0Yj@ZlEU;RDNGQan@SM6QX!&_^DPHF*|1CBZ|hA@yc65g4q z&1s2-okB2y4lha$dm&PI&plQG+W;`CU8P|Mu&J#4RXG+}F_19J=hL#4Rd8C{^?)-^ zh|ML#*x5evJ@o(^?OEr3Cv8A2G* z)~0lP2bjoG=(daYw$dZh6Um zPgb=`=2MP;MtTdT&sl;6u zIankT584*3Xn|eSS?Inzk0CDg`e47m?>H2#QDEsFapNzb&%)Yw^E|AI<^S6Lkjf1+ zgHjT$Ib!*0i{NsIB(pSkGL$G9pZdZ19nxpLE>sgb1i*@0%{bb_uY)n%nCy%Hy{Vh- zL71ag?_&mG2#{KgT&%NK!z@Vri4#kqFv+U^dD6Nuej7yd5PiwuzuUs?P1i16eKHW* zLVel4|5{OTT>LU{wNR#b-o$OyH)Jo-oCOoi3A~o92suS$!je?@k52*@g|_k z)-1G=C~*%@uxdHxPC7=M@`CN?_iu`9Fg6b8x>G(jpA4W`Mxnlc^2f)!Bn0;HC&oHv zHmLi^V78j4RIvY4wRT?iC}~~SU6yW*cViLZj`#95oga`JjF)^ew6~%$7>XvUb*r%# zG_T2}F1I$tUysB!<>ne}@iwq|PsuOCTrch4Wn}0AQ$kM0qsvj|*Gf(8!hQstJjGlM zT^7q_9jyO4bM+J4UEAYwC#3^tWf|iJH7>U*9hg&xeEmy;4TU^0^!*=ViFe{#^4hCg zQc|m_16_yVUi!T6@y-o-@vhtvZ|G;V8Tgm#?go>^?0vrI;an%FXi>>=DCk#lyGN)Yp`xkeaf^a^ue?*D@UqL&6KvtF;f0Qo=Z>7uF546g;A^ z$)$)n`U5f~n1RQR0pNXu8`4%|EMJpBwZgm~c>dR4gZ(Ri&Ru7Y^gv$A8Z^-GPYa}J zdR4>~y7zrezakBe{Nj75)_h*h;1X43OQxAnas*V8FF7ED@i?sfbVU%v+%Cs0&(xn! zs84zAnDmQIq2vGNAlS-6|9n0=-s0#bsxQZ6(!V4Ir*jL1p(1cs;Cq_)DZvlS7Tw!- z5erkN24XEC_=4P1L9URseNr~=@f zbBw+9ynIhS(3~%p1uJIC+qZa15iS0#i94;M+P-iU{%EI#u53U0ep! z!C|2p?IaOsQs7&E{{&PR(Uf8=n9V7eie)EsWvK20Z@MO;JUKgNhibU%5J_%aKaSj4 zaAAE?UM_TsL28wv@>ibSPXL;2iZthrlK^8JEKFNZRGnwE(bo}Z3aDQoWQ>;cg4f=0 zYZsNlYzuGwdx!cqZ%Y@-$bgxZ1zVRXXSNXbQ8wM_9f~}_p8x8)TI&u~;4*y9X#$G4&MjXl3_25g6IpQ|!$i`sv; zg6Kmqrw(w}_L#-+#6lHwt+CgKOE9q_4TYf~Iv==n8bkkLOtzDhtO1Q+7^;T3obz&I zT)D>Rf@3zQ2bzVPlh(Tmc*Xhbu=#k`HBoC;ne^>*Nu^aY8Om%%En_=bTIDnJ6nw?Bxu6#D7$SCG(^WyrCF zV=#VeOSc zbI$d8y{_j%e{A>dbqc#1s2iNIkct*g{7@p79zBvGMVWra*S2{faybX?@T z-|1rC&%8Xd8tMh(o|QU{oeu-h8_^HZ8$r#d4n3n9L<{<|(j4F}dTS0Uj#b~@2q}yS ze%&OnDqv&Bo|s$%2j?qiWQspgH%tOzCM`^lk%R~j`zg=`$QO_)a2=YIdd%`vb&dM| z3R%%xyY#VFkRUe+&rTUBz4=%QvgEygBwoB8O3MY`c9bOHB%~veOuy*XOu0ytBfdF1 z#9#Ci)x_l^cGoAZ){gaw0O*1v92y->9jof){G>`Bc;@7!a)5Xqu1^Z?sH$r$mjpVU zFP8YU*B~ zE7kDUF$?7YE}tq52E@TQe>l-gOj++fX*jr7n2pf`4FUJE@syadTfgqt6UF~d(7;Cx zvo4HW)cpaGAdqApL4NL2sEw6VIZY}>XG+@u-E8uFa}yY2;DbWnOvMouy<4;`Pj=z< zXw@l*OU6(`P3q->GiCh0hI(E(v=r@NW2V>=zBaVW6P5I>nc||bN$l-F*ipaf4^bpu zN(1uG!aDS1m1r(6K&l4+CE6+#ii^Rw6kj=fR#sU# zw3W^c_%4``&0Xs`eA`hcMMmI}k?q<;#mS;xJ9++6#Co?;+LXO}vWgDO-L_Db$rr#c zsU%Myu8EZtArji|NZ#2rc=GW1qFvTzAyb(bv$YpXy%?j1Xi|)OJ$yGths>OY!ry)Q zj?y+*8oFOd?Dt08aVRo?oz=84lS3>U*5uprMf)p)awqRp@>3EbtYSiPNoXc`N-2Yf zYut+twR_JJ>2xvbVluKHpjl!<0K#zE#8m3C#F^buQ1vLm*N<0AmEpRPN5#o8;b==q z8YW=y(2z~BW{Rkr$mozKeO7^kwCGda!*a=6+mF|59sKm=j(tJ5;9fX7jnK>?e|KT+ zuS%>8Qt0)xAC6ZbWerWdvw?KJnI5V!VYSz{C*I^BfRy#KlA>R*IQ>E#8W!hs$kYQ@ zB{GB&*f(%^-vE9S1!`%j;Be|jfaY)pZB%^REkm3Jv@mf+J;eYjnRD0*&75V*3Q=R! znV>U6pRMYTJr)l=7|px46{3Pvakds9w3;V5pN+yaQ^S`laA^|ta6M*mN4_Io{^GLp zk`)fv&!ED+7ON%|7mX3I(i>shF1+2iX@d(IPCbr14XeaS+&iQR5)NqcEO3qD1%{J{ zh0@V(P(Xk?9Y8TsBq#4E;3X0j_2l)hyC{bos_|j7+vbJQZZk;WEA(2daCtwGsu*P` zzZbcV4+Ir30mS+GOfaMbX>4LFh$^t(2}1qY`Pt@K%4`7fn?7kgDIu~*tHy2m=mfBq z!$^cFDh!875>>2Bct6sY7c$cz(1mdF7TZkHTXaxjeQlrHn;J0c>muw;6Y`pR;uq9S zqbf-_RHiJ<3QsOF0=eRal34=gJ#y^U@zfw5$GDvUP_mMQ#vzU%2+({NfyfeEn=@n1 z`<5gGYkn?}v=NhK`7&R>E2DmsTr!$ZMEm%~oVnrpu zAx4`56&>QSpe7!G7}RS*V_-p!kD-6gQpZ`qktHCm7ttdVSbCj80jF^lKr!03;Lbph zai0PN*oPVYB4<075vOztKsp-htrXpbuIYa2B?z%A_kkOg44|`6#h+OcXD54H`g-rg zjJ1ef{oS$xDu)xUlcL8`KeiIiXo>!;wQZyC_25k=b_%G7|aZ-QFB-4s*Ch)b?G zsT)NWd9?VRBpSz*G+M z55RneUjenIzRFc^dm?~6#vXkZoP{GkFhIBV%WP{VCkM>?^5!3}e5hpOBHltBP!P11 za5;f7vM?Hx_mKAwV(*)tgY_cLjg#sDJT)Ucfu_IMN)M_&fl~pf^4qV{s zFCG_?T)NA+E@7ntV=5-I0!Ks>)qy-h+j`EtcjGl_(r_qn?(A}dZ*3dF5wm)A)^})! zy?v`ajse1P<9_Q?q{YP=|EwVxRikOjakE`Xy5c3d55;4NZCZO2r$YyuY!3I$HlU0C zEYUtI+x-1gDe}x0V~;aZl?^sGLam8*9_1t|l9Vac$bb6Ii6C<)7t3SRiysNokmF5U z=zLgNvc1o&oBWfQB_Q2a(LfH0;8&s=H%oFx_3yD9+vdg9oaANsP*`ug0v98wyoY1` zc$85lE!$FQmxASrLgdf24ksn8Y-Lc`Jrv>SN8nlZaOmNNq5e$!eYyAkxMw1{0V6?w zPvg(d@*wQ&&?ERBh9BKa#phrKV`MbwEjc=nAgo_2TzO}OZbFX)XU&o0#LWDS1LNEI ze9@Xd8)l)RF(RYVuB+&7a62To{tF$q5hV@_76ekx!+Hs8actjWMEX45l8f#hMz`k2 zoH^6InzC{?UBSr~rX{8e^OsX7T*JN1M(4;K$jdmPPv%E&yVFFR#asJgIdP6pHt*9m zS+)eqvCY-eQhQKK+k%TWgC|kcP8o?}MOBEp*DWrQ>4p^eo$Jd`YZkgn91#aoQ97;x z(*=Y91a1gkG?;^!QJ<6i{ItSHAM$5i!P~fFF(8fL4F$k%{PkQu2VVYrn0#X|iJC@) zf5O4=3s$X=V6R! z=>kXF&MDyH)m8vV5|>C5Om zH_$fb&TZqYUJ0j#{2$^$#Oj*Fg@XX*!A={2ywUp#cObP$#I6{}eF)N3;^8+cU!8OW zLx=d#Kpm6c9+fp}4J z^1Gcm2OjC{wTY8Q4sDdIXLfUhoR#9}lmPasB*f-JZVvu%TN@XFH$`Mf{z)0cZKb>Q z2xs@?HfrcG>Sjl~M`xKhYaeM_bC27A25|@iE{YtMh~w2p5eO6bC2}Pj-Gw%w{KJ?^ zT{6_Xwj%INOPP?lY4^qFM%%(I!7>+SOHJ>fK;dO$O%O{D8^jP%OrkS)Qq6{?C?#~v|)TD$2UK4$_CoOS1OcVbC6zzg&0j@YcmNUP~pH1(M{wlIeBCit7 zA-y{td3VQ_sRYI{#2Iu~*|YVhv6qTEuw-wC+7#@^bJ2*a026qnwHVjh(YQkSnZo;F zBkUDmfP3e2;jia{_QQyz=IQ1WWmgu8n`=chDx^*r2!OEXxBPy=)L`WnT*){~F)Pw@ zbNR=_jt8iPkuhPa88?DncYm^yAX;vR-1)*iP2s&I?g@~rYppXu)X~2F_Flq20MGyg z=JG4W-{IQZ9uhx|<1DDobqJT@*`(~Tu~CNSf+{5F4PR{^JLTT)YO=~Euu?yLER|Ca z2q^yi^iuYAXyH-{_MaJ4;gPbYOC^$iQcYZ8zp`~kjAPf>_oo@mUJ*n?W6N#|d9box%^nCkA;6SbYS&OK8+8SpYv1J55OQI6+H5^){)W44f=R}-sf$N8L;x=OTsCv<* zk@Vmd10X7P#He*N73(8R?|!vvR`qd2R0aL)0;SPV*yu({qCk=za+DEKV3%48f*rbI z1|6=WfO}wEBCeE!m`3E#B$qu`Q5xgNl%|;B()i_Dr1ABrBAAFx8r=~D{Gqi? z?v-GB4_pXqHfV?MCMt&-48RS3S(eu0sy5l6+AA|QWMyfq=olnPO__c5)s2}FhKv0& zn{DTaU_;-bj+xZ+yU@5M(e%S~NVIjd=lSpjyx-!S1p<9?wncV%2PP|JM| zThXOK97AGI*Yctq7R&7Q>GAf7=(UM-;<6*#y@U zX{*|v-Mt?8dN=|&@8>)|Q zByur28q-|;^9H*6D%;$a(Lf){cPPx`HLU6H-_q!<0QhmJnj$L!OlE?``Er8eoS0_@kowo zygNtu#Y_rk~|wdv{X#^l^_GpLf#(gwVpF*cgj6lz@c zfC~LcgTfbi6K)I+R@AqEV-9FEt~Rsl?f?eaXS-_)0(yjg{m1=6XU8@d^~;GWyEnS? z9Oi3Tf|hn+di?GO8gk6;>2|#;kPJo|@zXdd3hlOC3}zJ2#eUsCz4DGtC6$P*=4=LS~*(nKIl7ri^hfauGNzTC!Ty7N>)3;77=mgw znGLb0_GgCm{xj)l5r<=j0e1|^d`=vWRswH9#Desds|Lu37`l(L;}sj11=S7;mQ_aP zad}25r=bBbz2)T~%HtH{=fx!}fwpJ;W;z15@l>duGO3cunP7agA~da>Wnx7X0IpX+ zB{=LOruqS7g?5*lYRFN66y~0)3@~+7jh_;4%Jxq1&Z(@0RtY0OG#31s7K?qmK?3zs zK5kPkfW>F712ol-jpJ(Z{@Xa%LrviY9$Wi_3#eh~V-%d9a3>kl2bl00Wudu-7n7ygC!KzeYQe5|cG~ zcm22dzy00pZ>YQI)ILJ%P0^L5r|G>rCu)j@I9&|y_F4@?M&NG4=3{{=vtI45a;FmP zTI6|rvLp1<^i&!3v-bD@t;7G?_J`PS_R^=LLe9m%e|(^K(NaL7k4@;9%*4^3U(X= z8;+em7o8Ay>hw7z=*Q?_G}yWR0dov#vDfmSHbxj{q^0qCN5{Z+2e5tbe?FUn&sP6_ z_5|&%{>!2wqP)oA^I^~(kwdH!?6f6n0f&msT4XZ;)&|JBSCboTGX z?%xlt*U$ZA*y&UMUZis*xL-3Xq^bG8X9f+7JmR8Hd7h33w{GO&bP#FuPa6lMk=NNR!OnUv;{~rDI1J_4C013W|e=pY5 z{NMYO4*Z{H=KpDCiUQa9KbzMN_|JD|bPyjAe>x6~eFQj<)9F*uA>f-laysg4d?>iU z^$w2xbJ_p-{x=`af8ZM)uI4H)+%`xs-X$gDwDeS$B~;X}2#%sUL=0}F)tb|bQRs8|^mCR~`CV*7rGS)223 zTWUk>nWy@P9)ESFW{(?Z_Rp52o`bRh+x_NVzrpFY@2sfPhzc0b?zzVPThlJxX189< z0&@OtvYX|Neczlc_o*;P9cEji8I6-~a%F?R^fsP5RuTBaYR>(rlJ^dS16+S7Js?QWbnDySWMv~bJ;sDH$7lfPgSJ?C&mz0_XG$cz}qcB$+Pi#!$H6;h>s zLduNIYqZ$)vLejLzqTT!HMuN!c=r3#*_WBByRv<@{GmK-X<23HWASA{9?3)-|xA+mc3SaI{j3nJoduXVu@dr<&5`S*&2;CH)Dy&mIEfo z7CgRKOpnxktD4V(U0X%B@g^9le_psCz0eCSX1zeid*5BP`BLqA{XjwMgVRZcafhp( zsj2G!xV>CPLkpDLa^{mNf$2EIRS>A92imYm?JW)pi)2O<|wt^He3uYLG^@yNN%v6U$O zusQX&n~Wk%?(RMFovOuO77{$-dn!ks9#k~6Oo>uL6tDV0_>89OFABD7-^u94ubz5+ zwJhMo(HDOXm{5H(Y2k=>udaJ`yk`9_x4n1UAMRrQorm*9-A}}ADv>|AzE2$e*ShtYbEi>Eyvr*ju#N_j~1HR6ST7` zYs)-B#RfkA7JSe7Q*xiGbD^)|)Q8H*9Z$_9YkJ~`57d@^Qn@`~_WjeW0wlFV;dZ}5 zi%Vv(xPeY-|5f%LmoLlHm#^JS+7x+xk7{IHtN!S6`8JyAWt}gtM{d2X>N{3^d$w$< z`(af7SBJ6>?h6MhC)S*XUcLUqCuzaH@XE#wGTZ&0sj=Sq&v7R7?kXvhA~p>sZ|7dO z*YTY8s))fi#*29~`;-EMz24dMs-^AC+o8MXpxKcqQG>xt36b;;V%8w8eo2FsOWYiE zprNp$^@37$9#ccDB5!18+{}$T)m!IJs@q!K9opJhY2yE~`)*BhPhawRceB+7m1a{T zhl$qU>K~1}&#o!vqnvd1lo%xjJR5x5>oWTE>V-95r;=FHueh`0msvl?w>(za3I951 z`9Sm9jKkNi-?r*r)CW4xPGoN z?iyn%Ov$eA@zQU*ZfKvqBERnidKqQMs;*Y98e%(l*X+s7}FH@@jTiP*xna!#F&MlaHi3{ zn-d)8orX_;Q@AxzgdXpR!KYmzW&Sm3@l47T?-=u-^svE$G+NG9pRR`U8=UlU`@MwpsfVykjT6UG4vLx$b)C@jsFEv2#6MMupQ+-B$Q56{J@+ zGZ)JLN}F)-i)pdR&faVm7BhXN^}gzu!7i0-s@My+ms>GU|EB$Ibh*?|sfdvJuD~Vn z(Wv7MYV50csP=$evPR&ZY1v~_&`?#36PeUb$6HZHO>Hhs-d0WYO^Ta1xv|2*s$BoW zh(7g?1RKW>gF97ojvrR=O6HsOa55? zS#MsOS?q=UFO-Rs87Zv!i2Q3$wT+K`WyoL~$D2^4*?5FUjc`Zi5v`X82gSQ%2BQY_ zWRDy!b9j{h$vXAIK)08dX&0jvsFa8+fjO$#C$dNGQ#C~}kTEv6hHkTXUbv(0jX2YD zF!xGiI88V84^Qe&Z}ro(hL(HX)q=)H*IipzYj=kfxIOewcz87K>4JH{r(@E|i72z( zoClc)zZny*zS<{a`0_7^@;jXXL|O=L6scY@DCdI+Mdi*g-iwV z=mp=jSH6!_P9Uf2ShFwPJReydn7*|IqwYpkdi2-OPjTMn=oPikUb-Q#d~8h$X6jDv zxVL#n!%*LS*)NS1eXncZo>LbQi&)#glpUSq^lN_Tz%*%G%!KEky7&05Mdu^=xwn6Q zCQAJ7ols_MbAB)N%lRD#Z0OMW>i%BA{)mlc{znZ=#(pXGATg^NI>JhtSYE4Z&&C_~ zBMq5y`|=WIJ$CN1*mUNpbyVKXZyfE5(Uz-q4rd*+MPIJkpWV-**7r<#=3p0xHG23} zvR?-vG3DQc7e;oi$8!JghN1X45$AxHA8v) zhCb)I-MI4h%a^s>vWn6>VG-4zir>Ce8hp745&T>EZHb@%+x4tR#s78ce-niNik^); z6HdnelQR4hA0v(2aFHPD{I7uezhhEIM`tgugSh1Xgr(9(zW9)T!cr6pX>|BB{%mMG z(##Ab2SyI~_;Vho;~b+SW1^$hQw$TNkz;g3bev}l?iA?S>2xCg)agTUxbq;0|4(#l zz87U_wZ3aT<^`Ead>z-bKZ#`{k!N70+Fp~A<^DBC-~6$7KKQ0LUn1dCA0L|( zL|axjZtS{{aX@?Wd(V?ilMi1|ZVtt|9XdkYv9a{(#q1AL(rENr`XVLN5-6oj4JRJj ze$+M4pkNS*#F=H>)~Z3o^6JSa9kySt*H%FTX_cE@ra@MrmtyjI#fSG){pp8$WI|jA z5usNUvL!#|-2(h%F-?K@W7xIArJO@bdtvH`)>2GS&H+tb*}n`(StVsP+_D znGi$?ahDz}o(4!rZ2brTIrQCadQ8_*=7#4=H_#Y34 zx1UMrxoMn!%9stK$9**|8hhd`x$r9askUXD(jeelbrMpdow?+63SWXlm^>I^CM!&# z)IQk5!8f`)Rp~3ETXDv16$xRt2`LXnovW+d>>&22z++oLOj~$kx)BA+BHV<8a=GJ6Y z@41NgU=`46$V{vsu6IKWy0!wj-6Hp~CT&%CQv@0T;`u^J{Eqa$PLkij3R3D6^+Qqp z#Qaau9MMgP4Bz5F5LL`a2aWYB-5wBivJymRZod&uOtah*!r#1nZWRxfyBqf3kWb8K zfkj;Xpdt3EVC33W&Bi6iJJlFojny(Qmn+~*zbus&PQdkOe#4>a7yP%@v?54brF`;b zmfgl(v}j&bJMA9LnRG|l8{-@c3;sJ( zaU+TDF%;^e3bWiZx4`UXc7`*!(`T70oz&^)<+F8_jT&=hDf9$4NW>X)%spa&91gYm zGH=mYrf@zJO?7K=xcY8qyFYrhjy>5uM&@2KXb(EktVVtw1Gr%NF z0EWT<9ZMk0mo1BEesxG{>{Ca|^5j_uZEKsOHJU5k$xgX(Rxdk^43|Ii=+H+iK2F5o z0YldX?$-hVc0y_-Tyf>LVaU-@aj)Ouh|87Q+mGZOI`X9I%7%VKUW5B_1Kf-nPJ+e& zfK)70*gM}XfG9old-^KOI_T|@x|q~~E^D8%*s^8~ zP^{CaiCsBpyBpUYv;1xM9qC6I1aC;1(W&nnAQ(jf|Hw*q%-A@%Z&F4-Y0CFo!6$$Q zgd_6ucRI%}RyAkorNF=qw=I^}*Q-7p!9S1}vW3&n4dnvo2{V?Mz0VdaH(?@CFJKls z@xIdHS?kCRJ9L%~+8}CM(2g`xGP*;dE7Y+|u%=GP7N)I{niA5>lUnA}tit*qSc}Ql zDYe6l-Kg-#XBYDw;}vklsUz;`opU=$j3KHqqXh7DKH8~^oEP*#|T=4@1dI~y zHn=a0wsz|5p!!8E3yi{;qRQq)YRs7Qam5Rc>pCs?hZqTQ1ZtNd+%Pme@9@_7w4A&z zjM37ANH&4PNtp+@mIvtP2P~?yFC5-(>9e5blstT>}jd%J+Z2?BQIIXPLU3exHh#A|C?FzbdGR9F5Y zGl+KBMADdA8dIj!FYfUvqs(&UY&~srhk~23BjA(-1A!N>HZ7WUB&I#4xw&3VaW-f3 zSed%MoSJOG$wC~S^b?1cbdXb1Yg2e?nhd_baj#KN*g<75);n%!qe9A_)dgWQQ-s{> zEEVRvPZI}}T%yG$o5GKO`1JG3j_ln~pXYCxIfFaNwewcw@Fr~ScBjJ<2C};oy55zb z(a@_aXlWhvzDFA+ALvQ>`k(h19KM$!y&*wzHoN;~mxWSvyN$nbUJ4>^15w$Ffiu+I z01%Te{PUdy`x}>B5Z||nZ{Bcid0V~%ZC8P0D{!2C@2B~fJ4O4joDAv7Etf{%bX~aY zuBPo+pEe>x=k9iho1(GLXX$`nZ*bGkkSy(M#TOT6t?(m}q6&cuexs5^*)ixx526Gy z?74BD)NNTraJ4M~P=HH{nmj7SX7m~?=yZq&=CCq)R_Li4IhmD3?+Rx(d#942fEB?6`Da<=og;R8GBTr`?o?S5OO%n9sqRi2gVd8mU6vwBVOI7k^!L_;*~LoY_Qm;h zIaxE0?CoG_V~l#Cq{Hda?%B3GEiDhs0qa=26KaLpMMuIJPz%&F_Ecl=2Iod$4o+HZ zzo}I>n+`KI9-Pc~bmGFSz#yj)OA>yr>`14JkEZSC%@ZjQ#G5zz>9DLh@BbB^QBdva z@LsQ~Z<&b^u%d1jF0?dybF^F`H#((lF-o+LO-K@?K`pH#HFi!J3qRj|K&x%HMJ#Vo z!1fp0mR!pLkn6O8MhM$La+DRcsii=#J`p(n6OrAkLBjU6J(c9OIj4(p_Q#M&w|<+p zUzS9djqpp6q~!@AiWg+=O_PFBXpje66zNM@3=rWvQbzieF{d`uB*mmR7Ti;#^GxLs zNc&Qwz!;!1r(c#t+;$rU`L8xI@%@z!!U1f6_L5VyI22$&6Sh>c3H|=8*0Isn`}JGy zWSx{x^(f)Y9ebyzl>z&#CIibpD#^svJvH{y2&iAKS|h}Fe=bG!^+5L7VqZhILGz;o zes{pM0b+S7`(!B*C^x7^8sNOm8wqsqo7yC7_Lff^M9);tGLu@!K)(abq*OwjJ+`lp z1%(4-iW_tst^jl{9->Jjz|_x+ircu;Q*F!q1KQfKljAS5Hpm@zV;G$?9A6QM=Mx@2 z9HZ!nt#E`-)I?3IlM1CS3%6KbqZk3+lFtD#G=r837_W%nQt;HvsbYV@Jr4`$?QS%$ z_t*DY4aZkzr&6G`y$S;&r8Gi`5XRC!6L8!_zu6!eSrvORay{4M&)V%JuzM$y3eG543&U zQ)wb6M|a1hw=c!QAMM07EtJnQ>RANxN<~!Fubn-j$kZt&zcKRFs>`ZWXksh%2oNLm zMYD=qiB3li@pjC~{O7F%87|BQV|VR}HT%WPyIFSOU80)ouCvSSehVV{sHgDpkMQ^@ zKXU+#^sJZs;8AAdu-$#2S>b8r@@-pg8hsVNmM24D6PRSZAV;GgKzGf~Us%2~U~FNk zN!stT%#K+A(`0IuoYY3~JUVX7b3}W(*`3B~h4Pwd9Nz&^-2=6~)=8q9<&XfE(3(>o zYW2B1vJRj!VR^mHta=i4OZV1r78$y*vnSB=*vY$%EM_N*$z~-bR`rd6B{btK$(-B9 zM+#ldSNuQ!kk?kKdhRQO=?PTtlXuQi^bn^2;jC zXVmJc;r5(KNDgMaJ_Ok_{k~Zq+1zO8D;=m6eNgV4HwME13_`cg)L8w zYyGXkXxjxwrW)y|2t^%~0G!N@JY0b!iMeK;0|KJ!uF>h0944PHoN#50uh7KiH^P8W zJ_iao6Yh?Ae9fJz4v<91EPG-0k*f+vN~d50Lf^J|+32>>t6(uwvTk|s?tS3Db;U2G zc>;F|Q*ct*p1DX(Bsw`IN5+?Q7@!alMj?JM5Oiu~GBdYG64Afw-5?Deg6knhfk*5K z<1C{L5Fq5y)Oul;O*M~|?p5hhgZb<}3`cE}`0&BNtvpP2*Vg=t#8_LK>mzUlvrt?S z{++>6sTw-XF&8hkrq_*2s{N_oek}PQq}q7%oy-0mQt?xh<#_(KfXxq$#8f8}$+9V4 z`&<9as1m;$T@Iry2lt$7b1K#~ErGEkv!S?D25L_y5f zxL5A!qY8!gLt?i>jk`iFxDiQ~_2LRm)Rgo41nr}qCy0mY+x+-Z{_roYFMOPv=-Xip z`BX(I9AX)_G3=cdQ#VQ4)+(e@hn*l9HH-D8IE;;_-{Gak{i*jSsXv8dQ(dfZM-|_I zUUdOr&?!eN6QmE)OWYc`|8*#{5>?$m_+0;IE|#i&-&r& zjv_|OVb?#O_w;o07NuB&e{ca@|jTecc{-+D4Ysl zU~}K2)c1e6(f|0U{D#3UdygzJX^;5sp@VMfl`I;@jy~Lj6=nS_f->46uNtl39<9Fqht!tX2;pQ*{zBsEqmk< zJw$MG#15@-r!O$82s^i%A}*U2Fo@e@2Qi!yx_f^3K!L3Co!qgxuBIN&{o^XgV{zMw zV*S$M3J#pIBi_Ra#y8f|L5xsD&!?1tL+|-MfCR zP!l#0g|VN7pgWBx?p%>zBYJ=-mqKknZt6tjH2Iy&%vG}k~COb?a z`h?+~49L~E9TJQJ56WK8oQDI!dBGQllX4VbPUppBk!y_hX&uL1ndilw-|Mx00>V_W z7s3Yk311pT-68a1Vwmk@m5lHhnIJ5i&jx-8fM`xr+uT_G%*puJp9j-{uJ!?`NL*2l zi>j_P4ci+w>;lcF7FG$K++`3T(t|bj3kqI;cJ4zZALsywm7;TYY=rBqAn;cBu8dBBOC_9(VGi7B`v8C7^@s+$5ZcnO~lWoqza&|^B$yp z>4RnP%khP2Kt$o1dk5Kvy_PO;1MHi=%fm^~a*|D%h$b(v9(^5G-y@YU*5Z6pB3`GfN>s)|iRNioKhlma7 zl2=`&Ryp(KI#YL=_biN2l`&Q{MMUEA6mfk{JlfuaridtCAU2^roE04aLq11RBlI?R z%E|3yVZDy1QJ{Ik%B#P;rWWavt<=`wLLg5CQ}<4np^8hPm+3!(WLJ7SdVK}J;sIoR zz!z?ZMEYP$2hk~L|CoU7)*_^{!)VSZb!+K}b;1X_^8FKh*xYIqgg;)1i_krqDI;Cr z4YUP^&E~iDHG?R~Hf<_Lsprb9d3a)ZFfl%BQ+p~lePN^^FCnKq2K*8Zy=ZG4Q}!_~ z)mNmSv+~QkdLu_328cK?o6>ky_;oE+tYRt7Q*0ELS1{pEbIO8isUv6Fx48P{mFe6+ z5XX=T`!ll~YEsnpw?8kh`0Svm{ke=cVj}-qgKu38_{L8nxv(qp9E`bp%)2nvGw<@W z8d)|6d}j0US*Ihk8Vu#61LfZUylr1uSYx5l`@+R#K|2;^Ty<|4Es?hB{u8&QoW#&O zEe0=qrb*=RzwbsV>sOZ7Q=Em|_HRugpZ=z*u=643ZW1-di)!E^zF#^U=rV65WYkuQpps zaH+KsC1bN>ph@>oSbPx_xG;qmMK>SC;%T`=Q0}Qp(R}!63Zj24kV;g=CCVlVX;XET zdMiCVD0dh2Op=FyM~CI!-F|t-h(CC=Gqhx?naS=PO&#a{B0h~%WM+tyc%m}t%9DRT zuNQsWYZE-Ulqqc)NdLm)w6ZvPoM=YUFR26X_7;o5jO}01G>8ITZjXP5Ml{!#vmgsi ziO+GzvW_MHx&u3bv}Z_8WfmP8nt)=)aRjde&sX`{{dU4`z$iZ4cU=DRJ?XL!EwU?# zcemdyx-g{s`HvczPCwAR6zK$VM@RLbvi~eC;K;GK(y|0>x-L;J4$PpIO^; z7nrW|34|2YZlKSZ{{9{XPi8?v>d@n{~qO8TC{)Ru!+4nETWQhT)uG4K} zI>uB7ye{3gioUyaSP~#s^bByD7ZCp9E_^c#Yr0@Qj@v2e+%>71c)xlszZ_L^9JY6} zwdj}D`#U-a;KhQ5fItA7CeYr{DC*eC`}-D_$p-+;fP{HQM}vi-A^GZ0^f<<03y(iU zE83GO;XI6n$lue9M0arjAA6KC;#0ksD75op&!m^*$6c&QKp{m-jJZUURMR*-H2Z^e)!K)$I1J;KCM)EgA^t; z6Hdz14F5*V!=c_k&C;<2UPSa!Z_h|Uz^wf5HuTYG9WCMczRtw^g60%mC!rB>PXnLBNT5Sfrx z&7w(#Ns^+0(-uY?@p*e)uc`f?8;L55z#B6&*>qVq-d))Wr5d@CJ(I*H3!ktcuIqd> zr->1m{=u5#)g4njftaGM;!Bt<<>!?*(KnYjPWRVbU<0w8UUS~yur~zxlH;3??t(=5 zS6P-lf`Bd@ZVJ_Jg*ydPjeMSFMSfY<5OR2LS-muBUVa;>e0*t&xJ+;(FL0+#b~2#8 z@p;cLS9Ztq+M6h>-NJy)h)6NG*3tHFSAWRLg(f@MiW!%B&FIZsHy$iPTVv?&^>Na^ zkf@p<1qnUX1m2~SoRry4v*skP&zaIde3Ca~>IaH)d4g1@ns+v4ap&Qe696vMI+wU2 z5{jgtbNg=r2O8jnFxN!p5&|}F#WgnoDFI72nq+-QisF$b*r8FPi-t{lNozTI#&^I4 zh-$ZyVFfmfX1ksqGG$q$TF-i5)o@Qu(xM{^mJjAQ$^Mez8?&I^co_J zUr8x8j6)``r!zOalo?HsMeHilLQrZEw`A8q7nZ+8%wDqDi9};C4VGT~{pnpwr8;ej8 z05vh1J31PBiQ^qRLy>emO_HVyyZ6kAFd%@m`-^^=%R=r!g2uFT>Qmo{062;sfRQo_ zHteH#7cnxGxaRef6c)SfPP1$zkl+lpP|HzpfY%M39W`HA44}*kYef&tmWcEC@qP&e zb8*NY-Z9d=s%I!nC8VaY+2qJTtCmKZwrog@f`hglkHYIsK6Am`P1*Z05P)mQ4WiZ| zaIkA8g5K!P4>dgz%S=w>Jw((UWsCk+PGmM|>t+uJ)Ut*-84>b|` z!tAMgw}I(z6MPFO35;^;eV`*IM7Rl2qfHs(X?ySnb``#xL6t$t>q9-oL#sb~rDsUnFUNfJ=Tb`!2YK-!4JQimNkyIiz~cg2a{6ZbfwEv9y> z#e7_I}B{ZtEJ1HOw+}eWxyWh%xH3Lowse4R47p2#eUEA6MlCBWHVRNs=Ea$ippR4_1Rs_PeU*i#DJFNcvT`444 zc_bHalp1M`X$T*9g5RoPlf`He9VkO98e=@&19heimfed6ZTIitd*dA;0lqFF z59bh^o$cX3uMCMsd@@FqZdsLpXJfZ0mWFyfUZ_mbVcPhH(ADpKO=L7brvk6JKS3G^Qfq9W<*y3vdb6A2v-qs(u3!>arrW1i8fdjk+i#m% z-Kfn8qigNq(ji(`n{a87Pj3P+cayZulj1rJF>dcs)m?7_J^vbzeY6BeenWnuhLtDY zuTQ6h-A!UGAJF6$4v>$xbLoMo>A6laI|Q%#2EBIanq+-w;eyMytrF>EYH#3NWnIIC zlq6q>O8Bv8N5-Xt@)N$5%1)83tH<5Fb5?aDQG>UHNYR%@E(=p39sy2(ni~r+m@(=hwo>n zR|)4hovyfSH+9Expc%suJu(1`r<-9Y#v&bW?ZzVTn_He(rFv7Mu@I2Y^v0yCCgDFC z-+YmUnE?)+2)=N+QoKt43hC3&7-~uqflsJ`yQJ}&Az21R#HH{t1NHSdq?3HrRHQ^Xnl`ubRCrINwtK~q3$k+US`eIF{{n?{5<+zE?mM zKLekw%byW(qE&ioJ!lmo#jYbsF~74_eG8jMPb#S9p{b7jlsj+_l<|i7eQ$y``8&S1 za@a`fuS8t>mI3h%b#4TbSnTaeh#vWN^liOr;Tc1c^1F6_Pg<&1W%2;bo6tdab{WC& zVKqrIigl@t(5q^^YX>A@$(yk|g!xK2x<}_qz!TV1S_8~-sm0GMI{8e55N5vpe4zkw z@dF4>RrsFH>8IGpWRM8N`U`FxOgW3@==AeYwhjR2_M(gNA?S`ICJer+_G0@R-?SaW zxGJ{3yK?c@gfM4Ftmnw?g{j-#)r@HUQr_oOih~)JMAOie5`&HQthMK(H3|sQOkN5E z>y~+c{g1{pKND5wj5iOQsMfaqS>V};tUhcf*`dE)1;yIR8v!dD(#rg&`G#Fx*ZEQQ z#m0;<9@s4f?KU?O%!t@{1*tE2^RD4yQ;`a%*Y@d7Np@{1HZBY807blpH?JnEI+(XS zMm*d|!%*wKIsJ&Rz?b?vZKMiQ3`3@-MY8kPUJ7|*)b~^nZra}0d)+NXJvGp)jD;cv zi5u8^On?W zOhC2b!K#z0vk#g*H>rVzC$c7~G4u^w!Ti`9mpk^U3{AcQ#uc#o_0RLJ@6Ht$^u$F? zPynayK8%-NerMF~2qj-fXXUiWSSPE~GFoVSi@FbhdwIwnygkr}_FcV@l`;QzXmv3W z#+yC<5wwE~a)ENu_WodwRWq9Xg>(7+=}*{H9fa5jvi%tWLuoL_XJ4u((19+IowfLV z&08?%;U3~V02BZL4SX;;_8iMh)(KCpRu~2}Lc56yV}`1aJGo+OLh7Z(5{BDvs6Th3L`)&F$t=vu zjt85Qy^ITJGL733De&Dm_}A>INaGg*|{O>TaMP3vUBNA7k>pp&ZFSr`fU zUp22tO)BX^CLC*7{lm3`XYKYCEEqLUc|}Yr-YA+y4>aA6+M$Y*RD|HhJG{4QpRBB6yO-+fSKTwc_?Ny1`x>RKJ-Ca z9V!2_e{V*PnXAJU)_BW`?O$$g^fW+N`XZKZu64i@0Y7^}tdq{Obf)_O6o3o$gyIQ( z+Snw%WPCX3&`KoL1UX7PC4gTeo2*!k4;yCpdiL1%x*u_da$3aG-P6qUSFzK#nRV@a z|D6GE4BW}d7C_w(zYrN*5>w)+XbSbPnOJHJ`U*Q{d?Tfioi`TFd$ow0_7q6f3@$0B zy-ucc%~6be%59G9M4jF#rt=;BT!Td;+K3@P?@709^X5=7UWp+UwlPUvoTRQ+RL1C> z=-6CtU}F(VwxQ~R10L|}a&2VewHZ*4eNsW6=*??QNRjh`&NerfFOKGb$PtE_@=VdD z*WFuXXAe8se}+tjd&X@L=VfQ1Ml4AhnPk3cKx-*GlwI8kc1HU~K6NV6oOlPYu=O5q z(H#Q#*0;wJ3dEC*F77+mmhCixd+GuICtaADEb@p|UzmRgyL;~uoR)C|Irj7I3 zCX2iLbt$yqte%%^vg+F=7+fSdZu4lo8%wq#u}`0P6erO|-`%H{=ebA>xj&~i}iH8A)dE2mUcSdw1ZG!}6~d_Edf zq0@^5!e32}Wg(+LT@#52=q)I|;Z7qe=rwqXO!O=Tpq%R&fn7I^el=Wyb1Q`6jD3ZE zUT$d~b0dnyv~$?XZoGO%q`0Y=S##UM2N90Plo*ycya$ih_*+hGasCj5>s?lUUYgX5 z^$TZXpc^-`(_AA*lQ;}Z>omvqq2oSB8qlK6NDq{W6%L%DC>0jMor`S~ds=UXbcI6# zA_eTLQ#XKX^NWm|T?R-JbOGWvK+-}E$jug}I-b;r%|Yp%jm0MG?^zvuW)zY^2|B1G zPO~9`rm*QHw_w6ASGS%KaYD;O(MADBISD;<1XK`xx68K`fm8cw{@;l|xbi~<>h>Gh zVXQA;iSAfm5$BQeq!7vm_uaXlS>Jh;Ku0Q=?!HS|V->#&q$7j&jFXp?&*c#dLF+^p zc;_*95%!>1YbgqqDIIKo1eUNwH~tcof?92p$74X5~m(K+!s)|54#B^_c1VJ-Vz+R zDV&4{C2jtR!-jj6cQt?+oEfRVX>GtWle~<0Ne!C_{F#nCm)vHuvFXL3dD_^keaDZ4 zvA%VZU!)~n!<0WPh&RXQa{F?&`RWdz-<*lR`WExvjdXC#-L5+0J26i}8YsNmne2YB zOb*Q!4d#{oO}}qS;!QrHp!@gkDWZVe=5updavQq zmD3-9ozSK3-&Q7Dfzbkh zyGo7y7SU>aJ1v`mP4~{kBuY*=@ z>_6t%$XNzGe2}w`v}Cp}=iCn5cvY#fHos|1A_6ATut#~Mf;$}kDjEe1Y1S3+gMC8< z7=DaMg!NXI^P;(;B^zIJWcq9FkynEzQK$i=284P@0{we+W73}+B)aGzmjtrY zuNL5DPQQLmvT(2~SlOrKs@TQx+-}XZTn#K>8Ll`PZ{SMj^c&{%D80xcY=Pm zTq^clqcpn25|gI?wy`&tW|2$C$`<>Hs>Qsly5YQTl2qzwpack^;X;*svs9{v@@&*&Rv7-#CdmoWw`;4O zd_H`Vx5&&GX4pDnj1D8G`Q?*Hpn|SMzfucY_Rw|UhCfVzMw4qOJQJC3idgo)RfvEP z3wzV@%MH_rdVE@Emujvz{&u^+Qb@d4nLA#?P|H{hfZ?3KN?eS&PeFk>hCNXt+dgMz zKx4=A4VhJ>&7Bkc&`as_ecXaVS>ol*mLj}TakH&}ng{Ld#RtP`Er!PkH~~DU;O4KZ zri#M~>rXG=Bp6CvWiN;B6TpT_w6=AgvuuKtf0tGAN#YtYngV7!jCXeY;Fq5+$t%x~ zZm~cB1k1T2^K>2{#Rz(N>iH%gy3 zHv%;Q=0MvkaSh6XXTUEQ7SmBF{3X(^D!o#-4*V+o*pemoa)95EB5?U76lRLb01Ep6MaH^oZ*fVhK|&bLLz1_gXU|D{v+k(YNDeo zJ8F_|6+6Pf9+g-!H$;SA;yV^QnSCZ_kg4XUrkpb+8Yo^a>YLjQhyYA4?tJ~2igU~e z9Br_B>-a{LpwnNeMT|7(_)czQe5M#E_(; z8+j7a@TnmspsA*Y19|;?g%xFY$k*|0`p0FLeqNmZOJU<9gpnRIBTA#LXRGP85vaYp zSt@9LZede!SY~`?VLetW5bDJ;e#pkMMqwHZdGYr1@P*p*29Tmu{`{iCzXU7+f*Ak_ z05hbFQXhlviN%JsN40UpJUv+p?%KMp!V%OA7=7cUF;sXEiAZUMCdrUm4za%%P*9d5 z_b4{N$#)}yA2W5?rZ!r7!byZvzA&pvfnu5j$Bv5IDh_W%*POIQ9^ckWF*hoT%ogw@ zGUn;*E(^Q)s*84NxHX#hd+E;s*1^lFzqmauMb|dp+QAz$P8SFQ#BmKzkf})RGW9%X z6aWbB<>OXV0hs1`S26*bpC0ZTN=>vP7EVx}p9yr>#9LEpd`dxG27Yw~h;>O|WgKzp zJ~PqF9^DX5MIJvAX!GSv0MFQKMZ3e=61R-5Tv``0xh9c1PGV=4^lynk)W-a|7=%$wvEIP-3(v6x4s*D%1wd&9fs3T+?C4Sje9 z;hmpEVSn8?^vId0YtS93CtUeAdhOz?%SLqJ4<8aX1^rygh1EH;L>pj<7DJ9ZBO|Z> zd9#xD+k<~nl5isj6kzPE$$pem_N+1VIflpVqw^T2=#$TxrvVN}s*a+3O7*_De%kA3m6B zL}Orv#cf{0LQiMp@roc0;);dcP@;zlCwMd?XyraYj$%%nKOcT`g&Sw(hl)NpiFHx#!H8lgWx5bI>u7 z$fEz*v><-`vHyJV17Py~yI59Cv6(-2B)#{P23xp!TFHlWT%pIpwv8>B5vz=x)k#dZ zFJ&Jq|4le;e{NR%#?>U~0(B3lqopOfXDkog{83-8o+UvJqJ*c{91bP1JgpxrI{BOB zZx5PmXJzjW^IR?(BaoReP)Xv6u)N!ouakU=lmBk#+}_29`V6TpQbu9Hw^LE}gQYjn zw?(IhJ{@`&>$G*T_xfLNmh7-V9w}-2wzFmXqlCk0i^Ir7#u;3d&Sf*9n4rW!a&QOj zdFza>X;rr;!e=HAB+>orUj0+K7U>2cZ_9Jnr5T6~`zvi=Tu@j5IV@s#ih8&>W2hFw zsv_~B*^mF`nHn}{$k^Yp`|cYp@mRD7sQSIp<#*mVM~q8bO={@cU`WNC1wGgeW^qg= z{pOE8EpA5nAUh>_WoTR!Rmi=x<7V^g1|GfSeNpDZtpmP~&}2Y?x?OJ^y)zp4K>!z( z-4kjsGb6wf+d0WC&qa@-89V1u1Dp0Y73-p(CrnhSHwZ!l~ zU19G6MN^>86}PdVyD2H88#ff;kAOIuL%!@i)XZCIO79?#K!0|HJ%3_g9eelr71-Y5 z%o{g3#U=n1*}^Z)eYTQuwrY7DC$F8!$z|l+uA9C@?`ATAC_CMI7mS+dn{|uV{!zUF zMp$IVN@~A3ih`HY*hY;1`=f<2vYJwBB-82UnUB5wMTX-Nb%A8QHJRDfp*5`FS3>X{DI_Xzkmi^MtbI zUGE;wpBc^7?%SuTT&DXiC97Moj}30`z6}5a#`%ieHi#Invz8zqs}NuZa-ldT+c+9G7-?x&~p@ z8r2j7R!WZGb<1@g<2ZXMZQRC5HeaeBLi!cDonQ`}hMrrsNmANI_j!B*erYg&U@6~! zb_5;Z!mlPMn7A=XVQ-FqsQrF96t`Sdyu&XN#5nSy;zzCcD6748pLnUR`1imqX_Um> zHz&Z!!b30Uw&6{IbrEzPOFMLaxsV1*Yok=t*L!2`S%s0yz>8rttauENvmbQ1Q13)m zW|Us9IB||qI3i2?bt%ldiM)(SgkM&&LkSQ5;OhD6elFDc&`8ijU}M8moobTWfY1$~ zt`l!x*C3ouE^%wqckdSsL)zq)|IrG;##QSP)h&+u;!y>b$(a%L^i|dd8^P@?ab$;R z9S<5MKt5H~5>{b1y<5(RRyfJR0|3GYL$75=ygps{WOvKe#s4l}LFe`6?+0bN^6qf}F5BNmsWLz|1z>{+4`rx95&%%x;dU5G5<-i(iY1iF?0UW=@@Ea42^uW2u4l<7)JB^X5i}x&+yi7Y`RpQ_dao5xCy8 z`Fc$WcE zyzM_c?aec?IJah~Ah}c)^o6`>ebFzAw=NNc*ztWG9*3m?7tD5|k48BPnChu5Y3@CPl`oD}Rw0Jm3VM-O@zH66b7~>~vd6 zPPc-Ps{xJHkmOoan3W-&DGN3Q*_PW0_;h^F-C=1mcPcHJ^U|yB{hAvJxzv#I++c6n zB-}GXX9Nh^beYst7e_4gQ9=^p($WDbSLHoU}G)#>A!Qg=qD{ z#nt)^hh!5{NC(D|;^tWFzXKHx7hd&s8hZ?W^9+UfK=Yt(Xe*gf?00#T3ipHJ?>}{e z^*CfW29H~I2->@|6YcoA&B5m>uisAVPG7g3=Oxy?w~8n>LDWw9 zC9hBK`%tg`o(@eEitwkOksfSWvO1*p+%M$ftCQwuJ=LF!ZH{_BTBv&C+B7!a-Em#Z zij97;SOj%Lkh)Ebg$&F~e)u|EE_3**amw6(aV6itz9gP3Xbp|apmsBIsWna=v4}`8{^z~KqKQodY0wq_ADpFJ$ifW;PZ^CgaMpdR26;Cbwk^No6Pp#X*dHV^Jek5g(Tu^PY0D83o02 zyx)N;FA|01>$x= zB&NLX)~mnztBd?69gmOYWdT6ew1thRz2|Ws0Lt& zeKi4RrJUWdzcHX_DTSBam}$Jjdet_3v)(Un@(->K#2xg@Ri{MrqO`NyLJ~c`1Hu@Q z|7%#_=C0+#7mLGyPjc9CqVWI>?&oXR#jz!XF}p_zvC24SXz!bXcR%K4-XYJ}WnzFj zNZbt8Xl4-~8`VwccJ4U&8ek{uQ!*jei$#4px7dS6#nO^$f@FQ8h@BQlCm+4%(QbuB zlU?2&r&y8J=01N)o~df`KPHWaN}xB^aaSN#+<0XKs?dt)0)|`cJ@jo#P@pmTNZ(9V zN}lfQw&%QTC3pVXT?V0$BWWdiSZye_n_3Ecs`Dngr(VcGe#hA+oAr5w^M6CC9{fZTkQaa2nW>z&f6pgl~c zv2m2=_w>eSNcWqqOiZsoX&fFFSj{uu#xS$(d0rT@-sTYiTg$!$dT7 z_w0#OnVb{-Jmo(RQ&lY?A1F5boqsO*ynbm)$c0~kTnTkdKFQ17CgaAj^e1H+R4c{$ z2pQywfca)Nogh+TqwyjlBl#X0sIGIPu}AvhS91TxiW#}O@p|puG|=ph*s`xJ?8NeQ zdsT-)4RXfcD<$^;p>L<*Q{a2GzgOms`+kX_*LuYBw|{YC8M`zOrBjg!r)~x9+CUn= zJ&KJQ?zkU7K2Ki(#C9`VExUJH{8KB6He%Hlc+f!&(Sv8a>>?6f)FW>c-OQwRD`Mz-zi{%spxVBbpl_SVU7C;6Mf;cE52O|-%_$R3eYOYVWIH@U4`au`|L*%m+-ESA4(+!5UHc_UvpI=JEENmnqeEu#IFZ#hXRO#r9Zr?6FcQRX1tU!Hou`> zGb-j$ZCML>0lM%9wCBGVFIr?}CtS+-8Na59L+79_PFrEvN>v=Nd$^zVW1!H%>WPXo z%biySwHq%D9xfO*lk14ZY>j@U*{}I+oV@^baAXH2Y@)&R1aW}V1qj>Y5z)4 z^<<0Uhra9Q*O*zVpYeA#O+;V9R zL$+Tw-gR=Pzrn;Po(dv9pdjJN>PTvhnQi=Aff44L$sdzXQBy_d;>FfZgoSk!noMe%mj8Y$Bxr zbQgfX@1pa503+BV`GRgvP2Fk8Oe4~fXi6RhwbU}iZt#ve5meE=uf0$#YX;9!AZ*!@ z855Kj8B~Rb!&)N;fAHe}|F1~{-bLjAMHjua9Qgp9UyeMcp`g_3nXkV5DY(Y@PH?n? zM%L7-#_LDEIbHfTR#ciudOs8pXzSi`sxN1WP5-}(?J3*$7zQGo-Trv|<#Y2kTcfCo zhd#xVt16ysvPbMN$3`m0Rji6|_|CmZff$=R+3=WMJm`Ea#$Qrd)VL;Ldw)p`Z*7Jk zh~}}+Udlk++Mt);bbA=$um%*Yorw?}GKYVq0m8V@yMVPurM+onbR@zmZrc_%1791 zUj($s^CLi!i@P_^zzvDGCQBStIdzT*cfj5}g($AT2jH%|j{CMA19Z46?Ww~ty&CcPgtb!>Uk;LuJ zh37ue`j=w7lu~*BbW58Q%4L2JiqW+;L?e$)HBIG z_9v_`#VcA3J%Xn|3l-bARp1nu+o03r%@C!KY2*lqVw`Ga{eFDYsvDE+x}(3Y8W;$1 z!R8}wQ`(EuO+;~~SLRp7dG?MB1DUHgP{$sV6r`mc5a0RFU@shr-f6I@r@SI#a7NXn z#jE4FwsWe-&dj8H=WKiP2`b2bJ|(uUce^eCt$mLID!%9R7Jsp#gp2hxx*d8>H}~S|iC2RYwy;ezF(3_3-Szik0oicA z8zL@{SkIGDc;#1otr$FeVm2w*I8;afQ7i0uj9lf~W(Smg%JNjpDEn{GVN*_gc3~B% zooh|m)AoMz+vsF2NL;h#E%W;E< zJpFf}RDql~F4|n-Bzx)Dw z6m+cAehuP*-SY&LM^Qg$==(G>dN*6HhGxDUcN_2ax@}H4eav6^J|$DemczH+`ch2F zA^Y64uXygO@OWcCWiH6qF-hw8{#vanE;4fOby-PIOma)bzmH!lI@|pEec&jQmYvI5 zmRptSn7%DH&jZUE^{wlh?P+#(2CHH9c?IHWj--^^sq^faQL=j?#{`_7p|tge^kLj; zHoNn+H>SbN0&6=TXy#;}xd`|woy<*uG0_}_B|FX4NCEbD5E)05X;S3SXSW&cmp3Q1 z5i{U+`OI#h13cHV@g0E})Y3}y zLM6ANjJ?|VMm1(9%bm*|4=uLH>>$%?fC06oL%?ICFdCS7B$gQJ;}<|D{Iy(toquO_ z(w2~eupxX34cw)k{;IydxD4I}X6vrSsPm`k2K=>oP1E3KN>uNY* zw9fm|UCb<5KIVNKR8pJohjwS5)sp8}3G3oDP^PT6{1&ZUfxAL>qxRuG~LS(tAc?m0JuYIk@V2 z=RuPwVdjhd=squW(SQ$mnfPR-*K!0M9M!Ds_>kk@Lv=Z-8Li^fjaKUjCqtsg5SS-o ziOo9yv`rP3(9;{N`4j9pVK}hv0+$2urmY@9C1d}5A1!`&6nI9QU*)q8k?_G8b;7UF zW5`kNJInrke^GWXr>@k+EFv!uG?TfB~Lwe8y^pKQG@MO<41>XqiO8rJ_3KKcgzI#{(dHW`^`T-fps zemo}7JJ7obo?P>i2+mAE!wO=ZC8WTui(xjNW5M4P$& zmKJ+H*fWC@?b#ZoF7LP_4x}IhPf`s_45=&5@r`|ripG%{&v`Ss=73xAaP9dlOXP=% zWkwpNqc1TSAFX4Ep2kwHPj}T%=NMd_3Miqyb-K-*x;AVq^xO7bM_2-C1|iQqJJ&wQ zEVm1|U45huG*wGz8M9CbRVrW9t4K85FHF&YYOAJ@VX?Ch>`m4ONQfKq_94 zRrZOOeCP+ormiS9j~@Qu)}G2pwhNe z1>Y8-8xl21CCU08g>D}x?(a3kGo%3T0t4-Oa8E*xb1d{+miSW zm&pPBumktMzP)D@VK)1rgkpEvlASTYYSwC?e8jGX0@b{V{q7ate=xVSW7#Z^AIj18oTw(-|;+5sF(UUyB*1y%QhN$l&vl46tHf@)dinvO7n>QMNALL+2|{1Ak+- z$F{M3K-dQc$LSFP7B0)eS>I0FR@%z%;f6|0MIt%9bAMa7FdxT~Dip0LB#Zfmdsa?G zbxq4kVSBEU*`m${F$z>a9ML4--t8y5L4f{lg`m{eicNKKP680I;L#>1tFZ2E;@V>l5flV^XBn;g(2<=&=eLkXy)|l|w1>9eMzwkc-6yH(%13 zwfUgfbHLY-kphMq9cd6p(m@}jbDv#sME^oa**!Dify#tEahxv#=fum&jrP#MHDUqy zd1(I$kZPt|#^2o*(^v3TG{g|YvXR84CSq}-d(CG*MpL&j7mp_Zw3=4i*4C=q5)z0N zCl^&x5Q-wwNb%a-$zmvUn=($PO_?16=#pb)UhBnil|2T)M_y$f$|}&eh#^uJw`t02 zTTU~&dSg&-o2>A3LBZyHh!ZhExpUdRQ}VzY?%}|ZFp0mGe9vtciQ=Mov@ctXkO>$b z;<^E%qbz85H~p4pgu*pCvQO7}ooC|WjPUs4M27Ev{bJpSa7V9(-_AQg8Ko8Rd#Ave zmcqinyRD8R5FM=p?;=))oky0GxQJO1i!1xHqUhd3Z8)1Bz}HavOx6yzRt;=Rk;RZe7!ft?bkZi?4`v*L(Q8=*h#E z!Y{9@S+;1d*L~#R%Jhg(o27q>JB$n^Kb?>jgP*k(er}lZQhCRZva@`J| z!Es;2{A1vZ{Hv6*b;&>HkA(jffRQZR^4RBcHI_E}c)QcEJ~qh?GrCP)Sya0Ml|r{X z(*wV{jfWM5e(%jsAsL8Y@L2(q-m7E9ZDM-RgG~t!F?>h=R%v19!dYjC!G1mGu-r2! zb1#zq^vKC(UvX;^?OZ_WIfR#q&3G+75zRiES}@&bFM9pbAKFmy77hB{kv+Jfl#H$> zMQQRablrSSul(7_Xl_dYX$CrFwZA>!;}<(%hpvxk06rykuCl3CKh072JbGv7Zec24 z*mSpg#S!gJcE#h~;uSSh+tGCl#D+8-15&fJgA+burV&$@cLdx{CiU(L_uaU)xd9n! z{~aTvKd$Qvy3oTlls3$<_0V^HZ4Y}tBo)mZ{5c)c$hazQkmC6}pD;{6U0<(DNyikk zm63Sf4~K874h+n4gX|m)ez12c@5*NFlTQdY2g9=MW87QL^ygo zS~_bbt@r~FFb`&Npi$W;2oiZj^D$!a0Xq4Z0ch9o{!w1J_V(fA`qf4iE`!k%6~KH` zxIz^fOHe@r+aT_t5-d9|GM$r66*b?pn`sj#qM4Dug*0wGQAGY_5i&E0_QU9ldt##9 zDEgLfsQU1haa6(o!k{on_vt^9h7grlrR@;}lZ`+Q4zFM$OF&(Iw5n@m$cCJ#@Ai$h=Q2S5 zQb|lt#n>)jja=nSt<9y4i3ne%*+5@kh!$ye`8euZA3U`h7*V|GRea3V3E=p88TjH? zpuv!Ro@7QtldctOo%0H0UsF_al4fjrKS2O3%Tu%TJ%*{o#ndOhan)H?PL!bIjZNW~ ztuUhjulh@s{L-He0DN?3*9fHNsts1pJRWG`X7uQ5lzlDdGk7vU%0j_Fs^?H3V)oS% zXV@YH@~yMIJr%oZ`G*e^?>%vD%AbF?+q+eIWsD7VWA+b99c}U_)9plJkg8w z&LV$Zp4nkiVosHnT^j60a!Ui)R~$G1M}rC+_|Fad6Wh+VqYmczA?K&D{cu{YnRRj- zjB_-$diVW`fWvPS{_)@hBMEDUoNQQ}f18Ex_lF!fvGy?cR#c#XoyMxt6B~Z3Nr26LFQh2N6^txwt*WGl#Jq+uAy4Qj__)!Ge z6rKz6u=$rYnF$2WpLP6ixtj;JSSolkKGnEy6} z$DREWbGea%@wUQfh!GAk?+i`28qj|=v8}+@vB;DPN{R|~fLn`M&q+nsku+IcCbMKC zOK)Zx2w#P?c24H~>1=9JY>Jz$(?G8q!?U=$;nCPS^0{}`@u;&UHjSY{Ggfwk&w$5m z-7=XtYPu471?$g3k#wmqis{}#ekK@0cLe-Mi6*gDY)m63r4YtlO@yBKP7(Cc6#BOT zTgm#Cc%l2b zKC*{4X*c`jLJe(h+?Ld!>f0pTp|^+1Hy{7t45>@Ede!W!0L1|plhIII10Rs`JU{gNziv>rMraQgT~h<; zW%l$+J7n!b*q4Gy2@$_-8-Dag(Az#LM=55b$KcD4q-ux?q)kA6W=sL zzPg-X6&^r65@>gGyTKx6PMJ%tvuPGPw}9K)3Vk07ZJjM+>5M`J+PH#KwT29al;vx% zd(b>kDpzL=B^(CXW6ElN#27rbKr1J)(tfx_^GM<(pdby8(T79q1kmtR8g-Ew5Y+yU zY-C|Kd!#F<%(pZ{(6g*{z*Q^KLO(2$SkcvU50}kYa-bx%Ho}Alg0R0PTCMiShn)NT zxkfiRe(pcSg*+3~SzlEQMAAcSQ6JCYsYs`iem);_>F)HL%&U@$CZ@qw^yY17ykQLE zH(E~yU%<@(z54AsL0bNd9?}nn0`W&S&nb6h_dudC+z2X|4_}Sgn0ioPwDF3K?A6k^~JM159s{@+1*6oX-;y8%8nr!;aJ%`q99nBXGyd z3X`oB2DmRyg11%ulwxDDqt7&__p4~0OM(b6XhAAv6iCMT{spbXm=ud!N66T_v}E%@ zp0UZtRbPt>eAXF@lgW7sSpCYmS}4vp&Q~{Nc6@*h^jRt-U+s`wG1CmTl6WrdciMy7_YD{xXLWfJB`x~?C z5k-GfGlEO{}-%B;W@)%^~ zTJui$;*nG=p$57ikyJkN@GR=E^4g^)~Xt+gxZ!;ri3_ zm5Hk+7W|w8U4`*AdFjxn&c~Y_>xlTec!c66U?POcL( zlAd@|$ry&w8Bj~TyCkNK1W60FL{`UXMZJY$Sc>N3yU8B1Y9mOmzkx%kv9%p zg#6$bx(gCbo)cE=q3%PLT}B?^ap$?!RiQn)=>Pm%FQW|0FpK%ia>Za=x3$&zLwZ~t zT?tl6g3(Xe2s5>|2+>__%nElEuj9h;;;2* zkmpTF*Y0$-rC;(`Z7ZOfmtA({Duc^1hwO5!BEhu_O-cHp)%ybcFK|oIy--Y=CPN6r zW^D9Yj-e&}xfgQ-=(XoV`DK^HvDV1bFT5y)-p4PSr4%0ydKhJE6f0eHBK=MB)r5>u z!-^}BOk2|EE=J9qiTw1i?*_8{uJrVKf!WW$ZYphiV^qAA_%eNXVMD>a{l9taJ^qZi z)U7J!9Q^dwB}>V~p_Pe#q{|6SdnllOZ2jBy-hr9MuvFqQ5kZ9)Rtd zN32YNt~wL}^&|Na)=v;rO2Jt>n@li<&jkF3&hIGqMpJw-Tqxi7kBPvf61Z<1W*R4k z`(Pc%dgI4LQz(i6CrB5PDyL|X%kF+#zOnYt zq$}O{j)n0noYT%_t!hddUfLY`!?l#bkT6lGX^m{kEgPEn^Ms4TCie!7M)f&G>CjkX zNa@F!a)a*uYG}Ot3b&Khd{_EAjUWlsLEqPYKJ?Z4bV9%8v_6|gySvrKsX#cc_eu0)BI(Q9l=kjJC0s?4mJ=$~ zHeqW=S#+{wG?@8m9y130L>Q?*x zUFB@I&mTn~^Cu{Cq3|nF<{^&zP@5(?1jOt#HmJRYcIvshzzsH<_Ld4|dMSf) zbz?+W2)aHY#;^p;dDAE{L!zhZ+#*R(>kkJ=_tu8X5@`(|Mf4jPY)eV1ya2Q$LpI5H zhe%iWl?|yJJ@x*oXs)aqdW?SSU>F9{OwW&mn}ENHzie*vB~Ot?2JGUxf&!(OkwyVi zP+4k<(a!#m3ua>Z(iBK(#APu=q%=3+t1k%wMlcUa`I(UOBG-4%-VE(FC6Ru(5!BT^ zeUIOGie(bmTO@A`PYt!FtQ~o~VhtEP!O@2|S-np@@C-%2cX?5R8RG9NX-+C*;PL>P z!_E1w(fx2Q`<;v=`YG^|=H|{Nyv@>iV)MC>mY7jF07jaGWBh=@DCr*5p~n1pLFbr4 zw6KBx%*rl(3}>~=e3_o;43Vba{b1vPE;km|jHYa*8`@0d_Gxd@*=cw@h62J{J~655 zw}3d6encsFMD$R26BnPqfSa!?MwzKptcl?+w~Of7WOCqIc}FRbI4LL-G=`sxxaxGQ zKACiXV8a<=SOU!fwH1t0`c}pf^7^d*$I-dRGu{9H|93^qc}|g%Go{ng$VFl(TsL~;nzG*dZ6?6P&BqpX=G)=Jl>SxjZdW_$l$eg9Uso6YxG3=-zvG1j2y~dBax>21h=ewp7Q|J5njzW+I@eXgv@AJMv!tH0aNveJ7tvN7mFH6wB=^W+c9AxE%-3Bjs$NnwAP_aFVHSF(%2(e(L5-vMuh##=D@0i)44Q?y)wipOSdfl_HEkUgFi$ciwy=!KTNLuwdq+) zuA$DZcdm(+0^vx++RVFMx8it|F+Js==fWeZ+iIIX(#^8T0W2h9cqT;XV#0ZU2Hgo= zAwkpisoyqQ4k9A9z>@|oNh!izp&?5W`E?D+EX13nV?r00x^tmsw!rhw6%lzqmbTR_ z@Rhkl*>~Ih=4yWA^C)#PC!7ey50!ySVeD2vCG`q5tMU5l!Mck+I(=Q;12-f?D5zcB z#;s%pf^?Gp*WML;*Im#`40J0L+xn`p8hM|>Bl>Wii0*QuFV5qk zXNQ267kgCbW5kpe&)%W%`R8_>9P1Mg^kw7PN88Jc;I5}JE(0W0HxYCvi$b8{Si2{J z!vVF;#g)v>|3AQK7N6KA?~ddyOo7^Va&@c?INQLlrF1UNaHIFnA_e!KnEtlFZ(9Y- z_8ANj0k{;^fEyOUw$}ULLpHTqpNdniYu&%8D40&xw)s{MyB5NUjB=%@tzp|)ztt_( zwoEirGmT~PHh?!<2Jl;66-qUoU%Y6sd8@(}A=zENv$8TmmFwDNadaT9i^3bwZJ z)rQZEgR27Y7H3uduq62o_;1r9lSa?l|D$$t@3X*Lduo@Dx|jfp+r4mf*Nx@iEhwT@ z;`)OGPt>4v$m9#iWh^VNZIEJy#@x zzI2KQ%m+G!s{9KrjS07H--TQ$F@*m+az-bdhjF%@I|A-m>SPODc^e)2A)aF_?NZXM z4<~NEI#y7_({RO|VY{0o{FlD^b)~iSY9Wn!c2}}{1TQp&#}(0mR5^5pDT34$xE}iv zH{Hr(RC!-SeP&g{@kztH5Gb@SvPImuXuKT~EnADBSMy@!$G}ZwP-!l{d(aOy-sp7{ zj;KmR0t*OAJ^eOKw&9tQu>{eVEj@q8Lx&~v0l|Qp0>JS`GFlz zl#^c@Bg?!?qf-f7geMAeQ{%;OWPPxm?=E|Nr9DFeM70Jb3x^O@l>@x(%b>$KxYOpOPj&n zmk97%nWwU8tu2@qAB|--Ym4WR!@eOyUt&XJ!0pd4KbYe=UpqC^PZ0LT%0PuQotR4N z2gi#;sHX^ww=xu-#T|Nk+Gt*1px%_!#vW;crld4zv8!G`ew|z*2Jzj83y8bzm^4z+ zu^HDeUvFljC$7N=LHq<}Fh9?aDjAVtba2NhB8X^fylGO1du0$V2`nF^!r-G!yqeF< zfd_PP{DHO8JHlamKCU&Nx^39+95FY?(&EZzBxvRH!&N|cU<`b?Wlk&#(J5+V#e+B1 zLfM$)eB!C&px$Len9D_jZb4VIJT6@k8L0;ei#iA9pd-&nu@T>2Z|gG7Z)bz8Mu(YX z8rHJbCs*Gr7FSdDPH(50Hk|SGiBp2=Iy%J32!(*+daRW~8e$8O=k}# zFi}i-pl|fKj8v@#4yG->b4&g%lB_D<3{FOn>1Lj8Yu2<#+YZX$XF*gRx~tV>jcKr? zo$Mz)A7L=`Mb-NqHG>?gQd~TmmL|gI%V0iqxlhE_=*Xo-5b$~n9YK0{V^q98=c?=Q zw6AYUffve}A8L<9o7639X|GK<2%u`71koaC0HR>r`}!Vlr!OqbrY^PARgF8NN_tRb zfKa&a&Sf9qo_e>d;R1`KA#DbOAZ61t#!OIDU@28biKCZw%UPIkRA(@9#qtI4b{1ZF zX@h3L8dbg|L!*6Af6On7)<scdnp}5pEiXVf>YaO zn1_BJN==|9>>o|8r+_^A%w}l-1#)3XA{B=)gpP9LiUYR&F31n>bxRpZr^yy8!1K%P zg`PuJ~fOws#*7jTJA*SBgz0Mj?w2 z$Po%>Y6^f1PLWii=}N{)JTEZ}1;QL*%n&#Rxy|y`JE@|1pK2!nip)j>_glU^T}wgx zXc|@+>~qDF=bQP&*A@C)N=fOuOCe_Q#gdNJ{-W69s>>P|BMf1CRdwi$LH8(gDfWK` zGAs|TA}oSZwB8fmdhQswX?7_jLXQ&3TVFF4-D>z_v=)F;p&Etx2Ypux=^lyJEEQiN1c?!+-bRuyU=KZs{;Rm9nY2aB15E`+Lzn z&4MM%mtj7;H+M$0I)zX1uDs*%x}SyHJ&m=B(Ni4dKs8N;8JD$ZtOj+;g9;$-n-_0= zLJM@OqXw4MtSo*0{qNXKkm=H(hb`=(Hjezv;f4|n3z6?HHH>SY4E*!p9$CakmUFRH zE(nmjms(i+1UBChx7{xMs}Q3e)7p@g5XjUiAhgC(B>VRsHdpm2-s{i-ko#qqYgqdQ zfXMvK3SaREp@zr=vA$V9kjf`=#u)L^{-%c)Z3p1t8>r+PSW9N~T?Q_>31~|1it;ylG1>C7i zx9BFV?sItMnpED)i&7~2NjQ2OU*M^36})4f=zUNz>T)Z;W0EKQo z>1Q;ue#r;X__*e&yM6$XGNHGH}8QZvm+g0DrC0PE?yy_C)+&e+TXzx=2c@eM$K^+lt!!36O zex{p3fQAc||63y$6BbYLe(-S%f$uC&p47H-1!lzScYNXNRNbaO4^^-l<&Bd$j*8^Y zVE5R_G01Cj9i%12EqqW;#O?DNPD7X5B&dGlYHG@k|gvc2F_rFj@Ydt;FUa%@D1!ynli{eeZVw3AbLZr+gda#7&gQ->rT42rMk>qx=s);W9#O=2az|1LA#uPBB1NzaT zvNt)sa^NgCC`>ih1o&|bU98IPZAtifGTxz7K>gLYL#mOG7pmt72 z1*CIGSJwqOsuf&gM|#T}Qp>J^LMo!(g2neNNLdBo$Z|ahiWwMNr?ErBgMPvbRn`t< z>CP>UEg#HCEj%LmcJ(Obhm@WT47q(`*8$1g*eh{oBvasuacM)0W`lfiVIf)P?g_+t zE6h2l`L4tq8dG{-^khH~TK4hXxm4*msQ)--adc1(U?cbXXkn24MD*u9H$E|x>j3NN zPEjxP*IwLs2*}_T6$ZOoGjw2A-HS`edi|bgWta&REEc=cbJ&ogZZWjpcFNUI2BqWSH3INUI z=vE2&6IlETMqQ_Eam4eaGN`xXo_%$5B|tCx4(qmx z(XFDD@&zc+rE@kz9vH%LZ@+%DO4mGFGv?D3+j{ikYo9Zs1w%1Jhb9#`vu5ouY#Z>D z8Nb{(5|_gRQ)qN2Xx4n}>~jokTWMW4Kfx8zM4~8`y?yayheB7;QP$Jk&cvvJrT|P@ zAw5#g=CxFqk>)ymeTk8ki8S)a^J|H_>EyJGk2HD}O&Wiqp z1==ByKOpNmTD59`BjYJmYb%wpV~RsLRROv8pROt(lrVut4`*ah`ah~)>EXM(9|gwZPGvEsDJORk|#cLN^oyP;h^2)wolJ>YN6 zQUy%V>EJbZt@T&#CT;_{s({3ME@~CN4~8CuC6oQr&akZ97A!~_-OUQmemOdSjbP>u zz6k&3^+E3NvkY}B5^XdXUlH~oI1J;wx*}Zd0)i83WwG7Jv2JAND(kQrCQolD`hLiI zK#e|Yo26zrp|#LgkX3dIP1KQn+a;AM@8#!8LZH5OAJ8FymOMHT4Z*G|W@==@k=QXs zb_e$rF0;2P=kAnAA4=9F6%nZCVk0b+9S~-&Jm!dHVkEBLHM}&qXp(PW} z+3gk`>=pu=|1du8Yt5e6oI>LV+Adw&WV6#%Ri7!$6&@ku?K1ao7~Tg!R=wXrq=c6sRA8Yg`|Mv0*Fnv>gZG+D@bP)<$B_K`HKP~aH|MT@sO=kG1Z6+*8(ZQq4f zt{u_eZATsQxAsfpUJH$6JkJ@Z8B9C7hWYwUsUq7(rAlR8T#k+!NgitFC;QA7Lp>>n zAKJWYv082XSHJswm*L8F{r7GfQ{T7pW;*%!3rL6|(jfj1#T2IK4(y|*wq1H+MWXU; z_jvC$cvDUc>j$?)ul>-nBPkx*85)Y}A&Mp=-d}=!0G}HNNZCh0J1qmE@N)sjz_>r1 z?i0-C$^JV(6=C$sr1OymID_!Sq4AxZD0y7+u;0oJV&)A6f6M1XzOm#$mag)yP*i%R z@j@Xu?339=H%{*i(DmlE|&;NeV@dF4x5)7$4wSAzU`7>%T-{xhO)TLR+j&y>Y9cg7x$ls*=0XQ zqao4VPO<3w&R?yx?-APr8~HPPi;6vE+$1``^p1!gl?&zn_HIc;i}ZNjklhwj6yO}h z%J8W_ygKgd*Q>SJq}4U~&Q3V`~wI++0}*W!CVmS6yEvuw!al@A!BN0jkAX z*`1Mfy=|@1h5a5=`>ySWh5{jogYd4bBL$bJk9s?uI*tzOWfeae|GkUX_38zHL*e9N z7bsL{?yBFekiAq+Q4{Az<^<#Ra92d{cLyC{6^fpnp0z%6E)+$E7NGbl^@urc$HIIq zm|BYi(oOvhQO!~|xCU95d-C0PTzC57R+MP^{KMw6VJw>$p`q+_8)D8uRp=iy2zR?M zWD-K>D7Y7Q#!|_z{+!;>8b5vg<>m2(t*b=Vw z>xwhbp^_C!C;#1M{`smtf`Zr~0cEjFV3!t5O1xVMF~22zK4qa+u}jjQBKM4GANgX* z;>8Tb90+VnwyME{gwlS4UPOwdBJKhr%Zsy>?nXBdDD#0QLQ{TH|?`7jcle}4t6`<6a!1) zlUUr z&JTAZt%EwtRXu8gDiL7?nQKilRx*OFOn)lOJwP^Z);G$$r2B584w-K*SX1RJWWUj7RR<2GEYmLBx-xnG0ZEE@G|FL6_Hl}de-~VX} zMF&diAl+O%UYFhbAFTLohnXOEIuJN8lMFlC^Hk?NV_!z-TW`IRC!d_qA^4AFXdC8% zJ_Am}xpf+YlY7QEk`QzHJP80YOzLjm?q1gN$=As~;&jaSJjhA{f!RG|wsGjT%Yg6C z(beX81dr@F_M7HVi-(B2xfqqm(yob=MY^&!5fQ-&>tm1Y$<6GhD1OH5M5P58IZSBn z{gUAS^0m4eDTEU)j+L(iR+#B$Tc<;}d~V6TxpA$TEIKms7qo<`I~N@7d%XRnwQ*N9 z5I$QWg{{PwyhpNQpA6=f#2`}5GH<+d?fY&y@z|axh2lVo>`kYsYVhG?pM4it8svXrW~c0!?A&nZdV8Bb{PEIf5g4k@aYvr(@NaHr-ZCtD9e?MJmpy5tV0O$`wk5{RlB6hqGs)THwq6lXnY#h3jhS7 ztfXg!m~{-7h9@kZn*Oo$ZM`M#({TR&Z<}>?<(CdH z=4N-_Y46QSRS=aQs<_$W;EsyV4Q&-wiGCG-!N%V-9IbZ_K5roDcVQ>%O=b|S{vVCd z;LeT=hGITcvE!MURpVCAjElU)zk99$%)@tYLg<$K1Jm&?J9h;Cp;r{NcK*m_YQq^{ zLBn}nU40}&wPeR?8b)~oEMI|6qY&V(>lgc=r4+@%m8V!>P#kzH`@B1br6E8HW^Myv87kRKAbN?Fkh}#m0}BIzA00sV5WueKxWlZ^ zvDn$cEp0rY{X>s$p4$&S{FSDN`fe$iJ%mBQ@#WwH`tE~5hM58U##(y5v6R1TeeHX8 z20c_FGaf&-PJ7#+)1FP#)eB`kzd+qjpo8eV$qcw|xx!PS%vk;1+ zEIOYqkIRrFXYDYptxOCBb+r)4bWKh3bctB1fLJ=Gw+)hSS&p~#CK&p39h_)h*jH=6 z75Z%g{6Ch)d&EuSckXInT9*e+EGW7e_oGP1sDsVma_oCL2a>ndv}#K*;T;=bU~WM| zU9WT;hm>!ntr&G&A|eQmoLV#*E+%Fth~{~V-KWD%a+oK_> zbLL84q!z@_NCP%=p2O)|zuTAuYG2!8PF_OSkB)I8BUV6~xbQhvO(+WZdd~<5N@>&k zah;K%PD$ijGd$sY2Q``+GXU!yh9Jin z*XWYwDF&3U$GA!_-a^@h*hg}8=?pfoa4=V0?+P3}0qVFjQ}uh2G@4>;u1Vs;Q~R<* zZWtK`7xhx zAW+|2-TDWp5gP#aq9r!pFWs;;atVN9+KHTRSKao_yauKY;aIs{6tCN89I%Ns$KzBq z4+rd$fP8Kmi?e4x=m=zm29NyHpJPIo%chEBxuUoZ#TY&A{(<`_SIj;49qlH|F}B|M z`^pkMi%Vd)-IBpAj3a!pia2IUR5bl(+Xp>v;A&xG!CTf=RdquDOpS^L**wO< zoD~BktdM~~vZPasKV>0K{VAoN{AWQDixOe%H}e1l9l*&~SP!C{02K6X{;H#71Wk3H zfVBN!mjA9E?99xpUBBx*LuNySsw|0%GAJ@#$uw`R@zK}Z)O1E)zpX6-MT`s^&WCx1 z+*knNn59T408+BL%Cjb+00d^^c%2uY2hjL(jiHN?_-WgO?}m+h1q2Od=~a%iGQf%?fbM!spa3N!YJcrJ&tb$R|L=DQJ03{z*vd5U2hQZ)guLCsE+V58SX#*i!)zt$Q2dKStFjk~P3i|1d z$;rACEnwR27&eG}-vaYZry=%D zAVCv2HiiD$i^Y@K$L_vI09Q|yzWzX^R6!L%ka2Y=dNGkPp}_;Vec+7(q?N0GxSnt_ zL((L28CYbLHFObW=ALuWNXH`he_2Dm?wt!Ir&53++oYe^&ZLrc)SftEi%GwOr$;co zR4kvOWQZy$p$90Z!@SKh-_PIIhs%{q#H_4Yde)i2+!4zWm%A;fijMrl`}G)y=v@}@2XGka zm=2@L^Oxx^Xk`Ya_q1Du%?0j1y7i4)lDD4_w!8v4lZfVT^}*UW?B*>89xO=Jo5-pMJd_r3Sy^QgTuQ7CU3L&h%VS zS82}Ak$^1+>2oB_;1A=)@Bf_4D$;f&7;FfCyMi5dX2;G;K9OD=tXB@7wOzYjK#mDW z>DH|k`KHHrY9JvY{Lu_JY_~7D=c)x3MyyiRwq$A4jTR~DzCSV#P(Moc2~ODZ=f;Mp z!4Xt{dKHG3_&x0{IyW&lEJj_2JahmM<}ZBx=q%QFv{AY>qsIBsuHpaa5jQkS5(nWs z3|qDA=U)O7bmJ6o=!rTuzdQthIYH@F4%)WBY8bGs@GOi1XX+hoJixO{ww%ZZHgFuk zQP5G1A(LtVbxf#7SsP6QTvnmwtU-R_Q6_nw#;1y&_eY)+kFc?xSriPS*&2TB4~=iG zo7{DMA6rV;t;Zo;S`z6$r{kuA0Gi?KdaS@VPD9xl-wnXn5V9*eDObNlE{IgjM<(5A3D@m>Qh{ zJwp{hi^|)#n<^8z66pe6#L5R0me$r-=+3e2&~=k&NR>ZA5XsrC)<3o#6GM=Axw3Ys z{@r>a<<2m~ADF7EO(x{VOj*bvpShLsTKas4$t^U#S*EP6+H`8wE}ip-3R}8I=mGJ- z%C7KigOr=_Ql%`W{VhOe%`5e_oQAB!a=)OsTv;>+4RN`Q?^`}YukcD959;bk-r9F} z_bE8j-VlalYCDTQO-O=~TxeJ$U4p?~Wyqk#iuSQNKu|5}{Cc*f?&{wcQIX9hn;+Po zSV1smf&B?+Hzu8*CD5ZLK0%&=gI`3N9y7=vXbw-Q z2+cZow$o_OU`Smz+!51#)Wf}uVGxhQAa2*%&VSoX$*y0h9fMfbBH1-LwDMNEe};+L z1J0W8w5mGxj_qH=UZdD(0C=hS`jl*5R@BSj(zsHg-gQY|s6;GJdWslx*`&tp0DG9e zs5)T>>?AztL26n4dNY7Z5~{Cc(?NkjTX6`7lMx9~Pdkt2c`<=IpittzabHgZsK9~W z+F(UC_3?fFvM96<;``vK3ObRf%oP&keTM+|k96#oGl-CQI-b6`c70gkb?r|GQpoy0 zHQhB-+A7$6=kVY0*TCgqR>l#Q5|hH zRwhfwYFO4Nq8y0yny03)I0Xfx-U$Sjs~vh0?`2JQ-{t&zcW_Dn0$J@2SEF0`IcDLB z5WcO*AP`9MAn7K^1+%ww-P(SjTgL)Zd);`#XLey0KI!L?&{Ry`;jMUnb?n$|)4-Z; zno#K8V`Vmrs0^}2BiJF5rV(0O_gO2~?cJzHnY=?Oigp5135^-iqf`|L9arvsr{`-bmpW{wN+NjpZV>6jS=7*eM&;C{p`3`J|ebghY;i_ zJpq8Foym$qnqsHVfVq;wt)IBCFjvt%*WG2vGzTT+E!1ZCDOYcs@h`EEoUZJu9Zgm> zZ7JwPm9~?1CWpJ+Z3ffC$o4LHC+dmo_zX{b6R=s&S@0Dzy!n}pmT41YW>b?o*G$C?aYY@x@r~-Ov<)3D^sJlgiQ z@MuWj6;LG_>iY`0k)FHu=4u&PSu0#cf$cZUq<2ry5%Kj|bZ;-&+-5Uc#gUiy^SzN8*I{g))dgOip`SQKfU&C{ur9 z+AUDO64Hw|OIFMr-oL7V&QM}zB2@lgO}Mo$BFJ*VLT^^rjjE(YxW~C6B#T1cm3zq9 z=uoyqLCX$~e5N42+RzK$4<8evtNtL?o>YbW!EVOcEQpt{k?xk@T_7a#-$Uvq^ z6?vzwAqTVw35gorVo1){VE`dNBoW$tx@@Q5@>b=gFUXu5v%8wWLutPqLJ=TZ>Glu) z`+7_|I0*%31%c0U@e2%!oDRmjwzbNK>lia-SiU=Q3*0FU6RrhJ(=KfW{fw3Tmrt^K z#0-V>r14@kUxquGw01c~5&}4>n_LmFNV=8P@MLGsXlEybyJwva_jV8m^J;C;fd1HIRM@Nw6WW_c@!ZEqtu^RrQbOISD6n;!@WNFyna^qDT zsC#qLs|u(4ZuiJ(M0IAbnc4IEpl!qQ`P}A6v`nr!GXuwfx?AmoNfu{jXo$x8d_ORl zJ{LN=z{=N%9#ifMPIhN-~5XkWAlA$H)QDnUPiPD)cFOeW#yVB9o$ouLuH)v z-{RuhtSI@{Cd$+*|JJ(9nc6Wfo0F|MnX`EW`(unEG2IB1PA1k zSSdO@bTo#9ZY?b*u<0#bozn(R#;b zNZOV)_4?4b@0kHbcr1G>>EC15w6BBxu-)6n0-Q#CKdUq>_zm6i3Tr>~wf9c3;ks`L zss)#h4)ru9&UyKs475S3*U503Vt+k!VkHY{^8%hus&!#A=BBN2zuf#-$6ih0;@!3! z+qwp(PCHllv02CQqnplisN%yh_xD(bluJHD017_~TML^^=z5{v7B%#WN0u&|?L+_^ zaV{@KIPvSCa~@|QL`5K*;QX@s>-E}2e{}~S^4h$AMGK z`yO9hAT{zPWjU=|52)lyBMle|8s8iPT0@$KYgVrXGqy@z10(D9v5es)~|Q zA637Ly}fK%@vEin7+bTmX*_-+(gO6~Ede9TtbT0On$n?qeIkm%%zUJJS^vE!N`WSupjKFV?o_Ylz#*TH8vgmPfMe&S&zH9Tsn2?1adCY)l>oWKd+#{M+@H zp5AbB-Ij(X%3*oFgXU_v+z*C-s5gIf#R{RBp<~2G3w)~Y86Ch;5JB;iz7Nd)xaPiv zH+K60wsPYcvPEvZ4szkk*Z?$+rl(#LzIyiyq=a4@5`R!mN2XcBa>Sh2q z01e1#y!pX3pWUnnwLt_t3l4+dukCBa4x-6}<1eyvE=$*yPgnyg=W}4b-)Uj+)n~7p*rWywU zS|J3*Lr2a8G*`#k!A>~YMalgO>REyd)?rid)L%X#X;Gm&q||_*xekkor13yub0w-` zq>T}D0~P{*g*a!SI;cMU(bdDlmj7)JupvQ_ufgiI8J1KH7qqeS1OI?sA=;B3xKe9! z_1>*3u(E0tiwQ~+s6DPxo+0K`$#F?kLya9Mm4egW(faG;<;m(6Y%43$mdkL^EveWH zsIx&iT=AAICZl;u2%WrZ%+#BtHCS4RvnaBhRza~qbTgC$nvl~;9dbq}J&TPeD&iT+ z8|I6*!3kdA-)^+gdyB!|TcZ_wA6SI=XW2Y<2xuRA&cIJ%iQ2~ev$gm-=s$=dfjTNN z-ihl>ltbsSrlIfL(=Lt&v)S$W)f75$i3Xkl?n+5UVq`Ngb{8iNk-AtKLUGxIVqF9WE0C$?Me7)v&3qbZENO$2GJs7q7`ZK-!<6P}12;wV)?kv(;6p)}Z zbR?4K2og?(S4P;1?Q`G{0a0A~g`@kYddfy(&wRw_90ndfk4#8#f*r?Sab0(}Jo z`och;;?}hB82pcfe>0*iz>lQajl6bYIEwYV#Uv({e7Kkh=FDD7HiwW+>=Q>-82CG$ z!?Ijn8-9V_ts5I;1gE@;lZocvdSIHgZB3D-f^bzE9y+#kjmFA<;8}|UcKTb+S1y}2 zTiLEHfca+f3G_$l5dt+2jF67l_4K70gu=Q14W z;gQ|O&DJX_VrgN)kk_>$rEz}&;q;E+oqA-`;GokxRLyvHR)1e))eXnM2VqyYMj$R; zK#={m{(ZnZ`H7SMxrzse-bmmM_HJqot(g%E4?;qG#pjJmMpnX7GA--zkL@jDpo-%2 zaVLoQA6p%@hhCzT6_1mgB(V}y+411=n;*x!*NvVMd;tqxU674L)BV;f{W6IqBg| z0N*_&;jPQwKVCgS>Yjwp@4$9EuHoT&BN+qG$k&!HdoEobIp~^S$11Q!x0MAn1EI@c zgQ2uD1OJZ7cPZ4Lr7HP36f3SWMc&qNbss8!c`6-8<6~U(;o{ zBxzXx*)%x)$e(E??nj4D%+Kzj6LE4YEEOtqao#c#N#34s>YzaSl-V#<{{Z2A??WlZ zqsjKtu^XcFKJnBXG%K^cqmmC_b$_F=(k;@lq+Q-&fEyyDk zz{l91+Bw^au0%)5)2l(%ij{t|zOJejS#MUL9>B}YuYMXwCqbZX+QF>(ADc-Gl##|slIWt~E#kwII zwnjL4`}!xsUCh!(h-0Gf#wEKm7Uwtwe29{bM$0iL>Nk#rXq&K=%I4e#iRNI{?($4pCun((7ZkFg5GC;DK=E4z?I z&rtCg=NKq5c|H=`#!2li9VuV|MgaYEse!{Qr>+0JvYhA(_Q;-fk8}Qc;$!90cZP$! zZX6%W8Y^QrRtKQ*B$~31caGjkzK69el6erIu@cr?AAlU%rg-qI31_g<@u$AHJ)gW zhvAi7bv3Mh&xpxPPbnSB!ioC(pl)R~;gHvSp~tFB5*SvQa_jD0x7I`Wg)PYk%Gh{u z3m+%9)<^})^$rCuj(@Utsx_~@8lFS%+XQ@#W)RuiGUf*mTCeqINT#@4D5qPhsO`j1 zKZY9{J(c_}%~NEfcs3SuD^@0>E5#1DDLxVUPbO77bjJOL{y6HWEiA5Ge`dq>KKo?@ zGgS)?fjCbOk>rCCy17n233Jqiu%fNy`u>SrR%rBOHbB!&+#C0RyUX z5Xl!s;_;^T=Yl-fZ%zfOYtKfP_#XCCkKlJG3@wP)(9?fI3ITD!msHh|6s zJ+IlkEg4_~wN9wrZ%NXa7;QK=FH~=msrl>7NeDWG&C=d-Mt#u?TNT60zvYxxDibQ7huYd{C3WMeB4T#c)=aLVH)LGc z3#fKk9Sa_Oj$A#brePPm-(^n3xk+;tkR@@tn?M23NLq8+&GlCL#z*@IsgZNvHzaMZ zTnZ&7&veeM`7*Je9b8lg02x{^Ka2Sxfpcen98WPS5>1Z8baxe_?jO*$ z+@UxIcl6cf_z6ww8s`0H8hsb806snv{a#6MtDXDmNoe!Da{(r`1PilouQ-9Ja zX-*flhL(qEh85g9ND2aWA8VV~K5lZo(|MDH1bh&Mizvi*8 zuOAK^16W${&m@b8$gOSb0+>35QQvbT(m(imtLi#l2h(8oCLmm`AZLFMw=+N{X=_(Y z@Qt9Z$e5qw28imPTqOJ>%#6PEL=QZP^w)#QB?mL>KHYnc0{s-Y{kku(wMiQ0mR<|% za_Z_q=JwAMCWniKEhvFH{u0)}!TndrD3cZOwF~YwiiGHZpYS=e;<7bmdIO! zZorE-x&HazkwnuVhqL3l9FLr;pRnCmH--hHU>@GO-q$MH19qi{h?NThb(5)~61AYq zY!Ym@A5P)ltXGK{YBUU)>#D`u8+#c+&m@!1z>C_A6sMm!0yMhuuU;j@PW)Cp217Iq#O|f|yyXucW5Wa5pUL}%E zi66uETK*}xW$88VHJDrCHlI z`Tu-##b=hL5(o<~yp&*ZfLPs){LeX&ff^sL@5;l?8Fa>uN)#q~^Lzy#+Cu$DIM8aF zpLXr(Q%BhR_9RW?@OKVpZF&KZH=v_diifVg$l=(79Pm6*_L?U8dfn*csZQclgnr#c zH6tsLB6+vvq#Ex+G{kY1OQ8`fcrV;Bcth1%16-lc3 z^=iE~=Hx&XEEU_AU0NXJ4d%tFI>+U}C)-ldo$dW(a~|va#zS9J*BQaFKhl^~=Q}Z| zS+@Q1uGeF5EO|q3W>s^GvxNOTrq5nIOXgCQ#ZOz9jC>k%09EL}-oE|l-8yEo-6M5O z0JDtr$MOB68Dq@vNST-c4fN~xJ9n@bW}Sn>1-13GmP4PrDr&L0`W?|0Rwb6+@N27N z{(C|M6kWE$V;7`|hJGF=sG3untE7|LX^emlV>M%MZ9~nIk>&0?*N)i~ro#+jh>n_j zw+@58^6}7rj!9x)?P;Za&kE!YJk*+vjCF{g^vu%Uc$A4M3Mh$x(S9Y-?|;Wy1ge8t zouMCKOCMb^NsGH(aalwhfyUJ#NJae<(NRnhcCY2g>2Tu!AVv;ZzFu{+@WRfifi5(_0FY#8K$(#5XZTm)w36Ex& zA9+bVN6rR8#n{z-Q4%GuYmMN3u$mzo1qhU!pBw+#qH?n`$i91+g&mztotUe{@f$zU z@}*0(9Jz#Z1dKIJLtIJ6cy(aeGs^v#5fMCfX(AyoeI1DEiUi8O)p(iC@NO498X!)* z+#c7Nntl%vGBl+PFEX2c{u3l7Z9N>+Y9N1n&vEG^*LY=(>VJ3C`E86G@xVA{BX$Q! z5|)CofEjGPtxiEe?>A((#(gSrz(Uz76KvkeO4v8WK;va+buWUVxS(+BYl*&lql5R1 z`dlGGPZ7k(hUlCczKoGMN`!*!Sr^Q}gj16p;TrmbYp8;uSgoLs#rG+avqG34 zVmSyWYVx%rG>$8=v?Rei}joTu!i`NVFpxhr=$m z15lmX({xfC%e~$x2#Q@PE2oz-lu5OK!=5pktm`^wib1k9>h;YT7d-11OdxT8WDIn{ z?HKh&5_w0h@cNFNcyzMh$ z%fKF~uYX_7FnX|@YMOB7jJ{dnHRUJL)E(<0PY4=nu(Us5K7ZfR{?F2RhX}4j%s%^o z#Ol}}&l#vhzrb3)J#jSr$C1NdXhXNdwfrr=k9ZPiBf4H%k~R%`1v%mgqB9D8KXbJz z#cr0HYRT@dioJF!v#PqQ+-3D}28qJyu zHf!o2mDksLXv7)5>I&X>a@f`0oM6AAuZuDnIu1KXXT=%hOInEq_TS2;lzk67QLvMK zHiCeEb6pD#Y;m|}UwJTEkDU>RmtnIPYTs~fo~avOYVUYl&6h6J@*gGTt>rh|y4ql% z(oN7)(hvLZtQ#r7Ag8sizT0?oxH#0*!<8UZY?CuN-b?t6tqW3U&+9*!xSu;dlK-yW zzoC5CEqZ|=X}gmbVWunNDNp^6E)H_g_3kUpVy3Y}L&hd`J-LswB)XbawzDSJ)@KM; z5^*#`kZvTeU+WsIuA_FlHom$8BN0n}CcpY8AR$Hb(pOdCE*W0g{gIqsmK?iug_AV! zxX?(BjyIM@I;|ruOzr{wCRX2kzWJI=^`~e%1n|zxFi<5=dX`ekh*JAlFqVrA=zug9 zt3oYiogu>Z?-_@(Y1{GNc%p(Icqmmf!*@riifTk?M~DTHKBzHj1=2aa08)1k>^BFMb;5>4uX@Y-UXr#uX z{QtA|?(t0b|Nr=Pm6&YIp&Uw%Au19Qi8&N8lv5G2lFYesx`n3-gT*wUeypWp9$`~LC!bFY`@IpS?AjlTP;n3L6*rNM~8&w!*hBHI#2^+RO|1;UBf7MW4* z5MA`AkP{UJAm5LUau>Fp3?&Ezuv->{t_40rfazUK+zmnQ+&vQU{;JtR@<3$C7WWpw zOF#)G?4*$y&_Igk>;fkU>iyd3Ys#IxW=}O;>G*zt*s5!rT%nGvwFC|Pn!F&tbF^%y0L=nBSug0 zR5z=PiX`NDzi2Ndy^>r?@|3#47%3x;~!$=_D zfpS?VRh*7t?~j%ed_~;Bo1G=;dCIBK^5)crt=y% z&(7?5Zv1HzEq>sfqF|X_a4`Jsuk!2f%fmv7!frGp@%X{Gs2b|&lw)?L5S1x`I9Nyc zb)@!yO-28gW9K(Qubu+M4=H*`kAXpO#elV?Uo-!7@QoiLy;Sc&NGx-tp8eKxj+LpQ zF_vZiC8KnQ6g+o3Qe|=d;ih6wSNwuBZSN`74h_USeo}E|=xS~Ar zvdTS0y4mF66Jh3i&H)kN#d|6#=1yY(3{6MdGHmH{=e$<)_0QE}s2zONm>;ES00qQy zFUNxN#o;3`t*ZC|&#l(U6=SiTd;B_M0z#MYi9r59zic+AHw$HRh_pp3K2 za@3It0n^LeNM{^yZk{y_RAOb$IXfiV27bz%)HU}t<@KA--WawyeKN^&K+9V zxd;uNaXmhS|3bv;Uj8`R1|)0YV(e-336%r~g5pt6_*a0i$-O$TnM#3H$J^2&+=Hn> zDyZ1zvET+iXHG$Pya5r$Ufhxf)UC#gpIXpxl?+P^kfUwLqSx#;0^kMh@R$c|67ZOb zpz>mNS*f7`DCXR_4W}(}k=`|AY@Pl5z(4E-ZfnFt2{qcRZe$DEI_%-jL(IhzY>=ns zBa}2U?)Vw`_)aLsz*r|Uv?wYGnVT2jJNBq!$-FwC=@PQL2fe1R{#@6<@w|8UI^O!d z@!B6-?!aFCVM7F)s64b!?t&aJ(q2?1dm(ANESsLCx;^=Dclq|=lTF@-3Jh4m

i* zTv4S1RQ#d&BG1DadFNcQ@<7jV=v%9d*e9o7mK_lFTTJ056iNmW%%GgigAX{Jx(`d) zlRCw8X7^LKX!>5s^5R3kSs-=yVGU?<%s!pMKNKr+Gre=2U|J|!Om;3=W=wk0hB|fY z$AB5o?5w_gQVs1kB3=INVfd?xzN0yq6)wZ=)7FR_2eV4sFkj`S4+m(7PW_ouJaJm^ zZr)8&6yiUF%pneau*MSGTkkRs+C#wQNXI)jP|bXA_7X5c_$>u3mE)-i95vZo=KRNs z_hI*4r4gYE3d{xZ+1RavU^%#%=M%X=m+fl2U&6&K;|edW_gGSeX|{zONs}z4mO39d z^7fO>l+ihyf@7PkC<+D{LB}P_IKn3Tc7)%?td-d&2gXTt{T+B|B)$a$HDN$v=T2nt zz+9haXn*t}@qyaiOXFMfc}ksh91yN%x>$SK4=rnEEQf9Q7YO((DIEL8HO+KP5IA(MSd9HsMZZaG+JDkqWHzG+H%6n`)j9faO z2|Lt8OOBl1)qM>K+S*7b!S;&N`+(cl9$elMw=mYQc)yIJ zb9HcUs)FzG9y)5+pwdp7TxQVr!J6tT5JA&%V;Lcg&XD3bdi-6KeH4q8RE>1%jxX{K z8Q!J*?327Lle);bO=Sp(g`0Hc{o>w^AVu*`mnm4*>YFX}_|zlw47i8(dp{T+ye zv3indQ;Z?`E2)ChAH^3y;%|2YC9L*yo*JmR7V4Dcu!Q1TYCvGfRHVw&5HUW0WeSv4 zlL76=s*M8;pPe0Xx|VmUJIlk!5pEROsg^9ER>glXk{@guVPhVoCLQb{NKr?DO=?F= zOV{AZd}>QezO$8aaSU-F_l4nNf0fmtifOC5=|cL#&=Qq0#|tx*qYk+$=G99$n9fv$ z&y(R=GXk#Wo{6LV>J_5YPE#!biZrMN@sk{78~#FG_yD+Q{00`Up{C+e#XyW1B`p3@ zrDC<%uI6%QL&HZGXbuA*W)%$mE?il$NdV~Zw8p8V+nh+Aw36OST|I#u(D&szkvO%O z)lz#&TV(j9oMcuqyJBc)NDZAsQqvx;K#_Q0%F0B%M(G;9BN*v@(Dn!>6+VeLpv`li z6*;Sw2LU0~Lv3E2>3+8Kq0Fg)qi};ExG_Kqs(I;pJRUviWOj1y0v4qhZHCH{qD3`y zG;>KSb$TAEK_7LE7DSzU4+4$!k)RHL_3sFj5%A$VJ|fO?wBKrtBXjwZv3(%(1-M=v zkSrv|@ZZ|Sn8xTz%cdcVDroRqC!G&}yLDX6FS6Ndef*#y4$?>_Wz^sz_4xEo+F31}ry-8$0Ki62J$`H%Jr2BDQV__jb!WRX97Cko6vsOAO>2JvCm zl?p-!x>|FDo!IYiWA^Vqppl0(KBk2k<3H9w-0JI-T{rBg=I|~$e!v@R1uxxz?m#;x z*Q@HweBA&6`2`*u3g$BB3OCab(uaW(dF~_Dr2hgn1kyiwE4fiLIP`|m*!12l>q*49 zHS>pxb6(l!Kutch189?T9wTEBsfG)kaS*WCXz}C)b(|`brUid0mf1)d#y}&{T4Pq3 zR0fsd6TS0L(Wxpm1BsfaddVisk3Ir^9J3mLia*<3RIYwup^TOJv~``LqDFFqkoBdf zgV{Xuw612e29BtHN%j|Z&E}7{0u@_=3^0E50Sk7bfZy6c#%}D9g4cY;FtWtaVxWmk z>6o#EX>24$r9TQvY~+pBKVQQUXb&?om6|ER8I)0$|IHD(9=%+1MRV!;o>@kkKMgAf z)Ww^@eP|eP+JbQN>>Uc%YMqT`g;{*QGZ&V;_pL_U`kIf;Fh4N^awUHqdaCxqa&0cJ6f zZiJP;f6?a@ojWo1y7#(q(&VSAZHddcI~s({swA4{-M^jd_AY-6zw|2%&)mtlUFFpG z-nXQN(eZ}R_nWp^%GLpz8mdM)w2A)wPpL12v49H-LE@<+gSsB2j!0_*6@%8M2@}?+ zO6&Sd9-Lb#JXmT<$m|0&(ZzL$+I@4{P~8@2Vg!9`c^iuM?<*(QlylQ-JPUxxkxNC3 z-v^zKml17)sclpdz0(LA=SQDiKpn|U@i1)Hw^Qz@AV?vsBb$jB5(ku&p4bf8knm8L z+9kwAU2AzquncPuk{~YTTfHqF4+J)!GhO2nhBOmn&5f=q4mkCS0hIjM z(ZVjM!OmWQf2`;Lb~JP4KclYKm)+to4|n8$*L~v@QjAj_z-4)%x`tMGcsdj#bf2Qs z)Tgl^{5S3DJuuY$4Ij1Xa@fK{nLRwvu5CVOFyp^1e59m2mZ7N}lQ~^s&Y%sk!oCkeJdyz^=JF6h#ca za*ipyiOYl=RNe%J*tW97rDT*15N;7_t?nLKn(a*QOmmlu!kU$0f%Kn-beUPDl>2aQ zF7((WG@B6e31+8s#k+(pHW5KOmqFdeVDF(neqJ8!68~vG$k+%sE8N^z(VajuB1Y`b zuiS7w$-p(MQtsIT4QO?hpt#Akp0ffm-k}A5{!}@%w|uB&x;`d-*RH%+7AwLT*VgEG z_4?YLL)!fF?h zhO2V=q@R-Jd#7#Xv;7kabdxFc0>0xbT=@H02{Xn~CKF-RN`PVOy*+dg(lE>Xq7Mf^ zB}{(>zX>l|h8+#|3s_JBPPc8GD6F3~*0I;aF<>!^$f%claef|wv&zTS5CP^Ry>rp^ z2wy~Hgm3ao3&#h~*o5qmo>e=Zn|lSWowEkk6Gn1-S!~7>6k!F)L82kaET8AU)T1FI z-?|BwZS7n|!&=!>6DLC3D;vm3bu0?GVQ>ULMPVfan@?%vK4t?wt75FC_z{WvvldSx zMV9>$bOBHwM$7(mDKAR{s;bf&LhO1eZ=&;YmjdjuETPOrV5T{w<`%o~eyEND7L!eN zYjQ5bd4MfFkhZa|1b6PMNG3R$=z{+tHtmx9eMPvaxo6EQ{9r8r9NTUWp{7qvGi8Ni z_SE01m@}p`7D$gh+2!!-YbMw*O979?4BvdWzNy1~)qowcg$`g|c__eSJ9_3i@vu9G zfENpjFc(zYRxK)DBIC~iD-y<L_7ygV zMdV>0=GdMBlxt@50C@I+i}eaEe>(piwK%XaJfYgenr*#T3Cjk2PLe-uY8NqcjUW(D zi`a_*Q^Zsw%%EyKB5rTn43hoprGOI$ zeYwDU#uA7IXaR2R12tzxT-^L4N>R(tfVekmqV{Bccf$0v#5^sxXnWBdeg;o$$JCBQg=|nEr@%*5h-y;m~~D7{;yD_o#)?{asIZWtHss z0KSDW^<;Z=Y{%*)SVY)4l(g~#z>psDK773F9!xhp@0{l)`ARJ#PbSmsMGNMyy(sC5 ztO`1OQ-24*c2x1Dm$Kvgz~ zZE*jH1*iSIzX@4?Hh6;f)d^xkfsd771%N^f7MBYaoQ)O1}?@$n17=QOf3Sk6Vd@#009qney5u(BxLB@m+P>r|fo$ zgsb~9K^|v3I&&GWW}M=6(NJ8^(Pv(XOX95o^4H{aW|_z02M)3hD`uBF?A8ZMp9GpsTH$7m*YYYZwXouG z$K4a-Z$>tSR#W^DGD1vDSZ~6Q1!fRntV5DQel~N7j3X|nXCS*pM<*%AEb`V9w<)oL z$f zq_lfbD8oPAuVSE~uK{%T4!VfXOQ+#6f+&O$O`70gp0m;8!j?OytLrM51vdQK}W-5&k!-w9OusB@m@Qj7_k zj3G}Gb}#UuzfFJ!uDAu55lSJh<$(#n89!;eJCtyxE$gv?;)Hd4gq=*^r|hZCwv6a} z)sAJIh#^RvZWkbKm@&KkP|e@2rdVqk?z65)eQJGfa{mY*O=pwA%sCuGMnN=4(2(3A z6h@Yj!R9Sui^_8Y9ZMYxm|4z*Nnaq7wptqIq4(B0MrxL43wG3u1itHaJAc5%FC+z~ z)>E2!6tFY_wSRlqeknK+u>T}I+bg$pHsMIT94NA!&5vx01PSLEmgw=;)-~wAY)v*W zyO0KE4%Ts=Y92Z&+uo?_>PzpkbJ|$s`O&au`q9^EDkR@q2$xao z?ChA*%=BV6tn@-rVo3a6obfkv=rknSduN)4u70rxZdjv+w$MGOkyX&C^d#)4q@|1R zm)RoeqUMJeD_}(8oSu6Uh-CoPIEc9givL%@&&f_OC*Jf zKjp=i9;Rc8A!XC`Vkme!6mSk@9XB?`iUQuasv|4h4_hE2z&=A%zbw!*7J&0{B`~>t_b~NpPf&<#UFaii;fn!5#pM(-weNKn$ ztxxKUETJBymr{Z`ktLj}Pa?M`fg6j+JMF%)N>9+TWC9Q{OfQk2TPF~P27W5UW?IdT z48{X-B4&ZhUd-Mkjf}8BtncWN1&)`y$j~MT60|e3Pt{`ad9@<2{JBqy0Q|=tnQGn>y1016OT{#-=BLG@8lJK#i2@;EZ34tf0C)-%)e$A!@w$&^(fsyBWg z(K1jZ7e^3rhihKDKNt8ifJQhG$)oj1eJh?Ku~Pf0%%()`GSsr-*9CiuU@1Bk=TGi0 za&mZ4F{B%a@Ti7QYcBM4*lb3IR{yB($RP9>R&G6d;QT;CnD{S!_G&(Ay=-NTT=RXu zV#BwiEwRS+obMM7&7m^k#<;ANwJB?NX0*B2u-C~J;O(Y+ofR;j@8tS66G?CJP}f}5 z$Q&)7%?X(e%xW@NRo)JZdiSDW{@{)Q9fyl5#?iZ7FP1t1WT!maQK4lZsV$@FRh8b= z>uLuqdZv5=emilfAk#wS$z_mk{b(3jF=!YgrK!yk;dXt^LMM8fVqszyY17H+>zQ|9 zhgFa*kgwb9*l3BnJDqpqI3DtTP}9Vo)aYgOTR0PlF88~NBNvV=jCFsq_GO$N*@ZAm$zWzIaje2tc>a^2z6?>UYI^wmnq!?bPkin zWqX^y8md(9{r#D<(kZw$EmQaUmY`$$n5n1M{(J%2PQjP&uSK4I`sV}n;rz;mnoXAI z4E;hgvwBZ@RqVvi-7%~PHPmRO99qurlnAXURnuBbI#b(e``2a8vI*QuQEjXzsDs)U z?rOeYO9k1Hy~)}&&sNroni>V4lYsz#)fhjxhSeC%X#Nc^<3Q^g0W459Uk9%@E@57SF^QS-90)snV z0J@&Hg30jKni4OYfP#j*R+5Mg^_+-MwNNnwJD}foy#4jUcx4vtV#$PSwPt#w5DNKw z8}x1^a4t@4(k$T_B}Xk#Ley{<)whl^JxnQYrF3$9)q>zxo)s8j2T)D)3NnE&DTcU| z*4E0nCYRF?plm^8*%A9xFh;Ct(w9IL+UxZ&XES#z(HMQKP!o7K&}oQlPm|^)Mwj3R zGl-Tt1>8IG+5>_?F@%br1N`)j%E)A# zaI}+!9|@}Ac}HW1Pp%cLDHG#0Kow$KE3rOBz$OmyhqxWp4BI`y70f}XabQTNca1>B zu#~cy%=;reQobbYJnQbg&A=t_2>+;;?`*$+^~B`otRk1>mLqO z&nIK;Y`mxtAltbE3cybniBd2S;Kb&ovMa`Q&0kg19tiwT>X$Xq{92U;y^>{4Y#HoXx= zi!Yj$ARK{xBQx3nU86r)G>h)*m2)VOz9dq`r)|-vfs{Gzg6#AtHO4Qyu3qJZAupbo zlpn2K8f+LfF$Il1387LKnL)mRNoRXxr<-UM;$tz zEd~oFWAu8sH@dzD)ZAW0W|_y=a~sPR`+wC)9hsm2WtQ;d-p85>r!;Ug2A47c7@Vca zO{I$DBwMt38#-ebpf+}O=@u34SdC8z+@Q$2Eh?ipLs2DNSmwnHVp#g@ODa_}(jKPC zg9Jm$nrHhShFu!^;3b*HKP^~-qRtllT&a}~Hp?ydn!i9CgCAPpxJ$}XALd<>t&OaH z+5ch5fEFwU%K~bUWI&W%f(Q@-xC(0Z_GySO7#b0z(rQYO^u(j9}^P{2UkFh`3x8Cg}Huz*e*W7dL06^I#4K~~xYHk0L z4Nx7Ajf7Yj9d4S_mv9`n4k3dzxPOVLtG4}=A};B0f0PO84ZJNVEqZ6>>K0^SXQra! zHsVP$G{Om44lp`-F27xEt~J^{=P;=~RQ)Q_s=WsmHl?`5Eq?V_>}2z$i`K~nETkogSOXg|$$Le%C*)ukPGkMe_1(m8Mb#D_De1=eVB38fS2ik-+jzAMNRnFC zN#|~tGP^Wgsgy(B8ildd$wY+EKb!CB{PySZ9;i`S`%r?6l+(3rx*q)2{*<{f5>a5T zvrkg}pbQ0PX_umZ={}(AuV$eZ^Z=^<+;Zi_aKYJB9F&x_E%%&3ejx3+SLRryyCirRU zWD0)yCJ`AHz5iaVb|k^O|MJb&%y>~$njiqu!uuEFKWM7?VPmS2;a8GL{_W({nSd2Z z=N1_?Tjo!({Z z8MiXkz!k*oHUpzBgcf0TQuFcljC)(o>_^f{rFDp!RZcnaglf(MZt4$_JSAj-z5pyF zv&(TjC<@`d56Ee)z>#-WeEHm0-<)9Tl?Bg1*kIV+)SNU-#K&<&g65I@FMbf%<-gq* z)Z9q(9U%L`W>V1>hS7GEZgS=*!pFdG`NxJ*yw)~hSH@nD|&VxYe)xab} zTtg8rGCGgb9y#2nNpBmA#96_e$$%lAg#35Zan4#RpO~oE`{55UD zBomS_g?@On6%AzuwDGrTz^_|?%++@gu`2t(sU0Lx9Q{qL!rq0vjt&}ds*kWz5n2;Y*jbb9lo=?0yTGg3YsbE>SsqzZUEw7f!B4yld{2VnMuGtB z;&{#$wa_LI;d5W_@a`KYYT&Vjy1)*Q#Ku4z57iA6E<#Mf$8r|Wia(}C`y_zM7VI1X zr+W8p{_GgrkT`29VVvU%f|V4=8SS0opa5Abr3yk5E$k@WdQ95qSZ>xO3mI%sFjbuR z1P=*_F6qMLaG?mS3!7S%vmZTbPjl4OlP;DQ1j+Fw9~9>|-;mJ%(oFFx!3biwvk@J8 zMgH{MXg@Qw88OCE@D-E@R5TmAifiPE5QG`x^^9yRJ%?zbA=bkVqiyM(c&JSXaq6-t zJc@r;k2`h>7m$8Yp;-?_NSG`s2lX~!2?9t!kK8?U6t{GVJnupaNAmF! za)abPRsPmF7%(k)XjZJaD}mf~znCb31bE5p%xWvL8NdVA=RN3bAnM_xMvp+HA!2q7 zb-IE4a?(Nrn}zlcB_8VPsx{rW0#VU;Nl!i2k`6O-+8g5}5;ev|L2aL^TAIjYWmLs5 z4N)NDNedr=>hWWECPguc_%1TJY21NyzNs5Rb5{IxCa6Qfp1CG|rdsQ+$VJc|LoR2)$m0LlwnjQsn*O z3oZ=PldRb>PT2H7Br+|~M~ej#(!<#F0H%bxs7wPpu{)djE0l)Co+CT1YEOw7q!GAI z4FQ$C4{PF~Gwha)q@RXaFft?5w9oukDsC1%$~=2*lxI1wvP0YH3r+hLa^O76*!@YoAZV)a z-dKr7WD99mCAKAqj}6$b(T`k0ST@gvE$Ag(#^lJXM(jAQlC5U54wxMKpmk$E7-0+I zz>K}?CSewu(WZl)gqi_4(+l0qPDKkZUhH!_FYBni#qVaj;kAk(h78J2x) zE~ORK)$QJa>ItMm?BhG}8F!D0{)CsFm8scer~I_6Cx_K@g&su5HGb|HvWLP(ZsPww zSG3zz7Rem?U<(k+2Ha#x*Pz61u)S`hwIB1NeWSAPSjTK%f!kBdQ7y@HQ%GF@@DB0i z!MBue54_)8R<5az*k7?bK}z6xINB~&Be8u`hgKInFAG}MOsVBcBnz7+XPSl@((`XP zH`0=`c!@0xakM2~Oq^u`O&RSg^zD1@N61H5STK~*tt0k%QCEbx7kxgWF)}n=vogx3 zFP)tVR}P(8K6znd)b)H1!-^rdVSt|`%rY@uA}^JX+M^3!SljPHBs>qI#2DlMcFIk> z0wyzu38k=ua%jhhTe#Me5GcrBY>Q6#QXb@;&@#e{v5>rfvv)9ABYv2NFRNGoXh-I6 z(6_63Fn+g4n+J?H#UQR-M${DlW@z-ltu~Dgs$hFMAoM+c2#dp$(roIiJz1+OEhPot z1U5@%1ZgGNj`l%pqdgN+CoR@sm4gCRe)^8Kwx&uL!Er5vNkv!#0F=upiaepC>Ky+) zTTt;+s$8UdV)J}*b*Z{Fs$o0WbqWTpl*GF`fnzy-0cvVhI(=ifC!qP2)x(kp(#NjV zeIht3WzyuwCT|@qGZ3_^EKvI@jsTEp^AIP1oSMvTEXFldHZ%>KL)-e&a6|-5_%I8e zy`yM1^Relf33bEft!jW8o;pPqG=#K4L}t5FP)qaQSI9yVTc3WVC}AxVrO{dO=7rVX z^&SSLikfat&b*w?MPG@=~>~gS)kxGT*?zxS#3GQ{@Car0QM=zU0#tbXn%`W5=OgoB(V19j<%x!Ryrd1o zCjC~CClsSJ|wKHvHWCe=0$)f%Y=rHpATT;8=<53`J#t!NH zi%1lHp`j9F0pU6k2h4ImjO(EjUf=uZp%t*A#tV12%=f2REg31CJ+MAC>MsYbO(6jGDjmJ_8+|Asn(!CWZL-pt4bWVncE zLwKIGhXK;Oy6`u^d*63V;i@*DVI$JTFKYEo_dWnRQt6gZ5(~H~dsPgCRp|n}6M zpp}>a(bIebVaM^fFJ(3MV!TB_Yj(*Rz86K@f^3ouLtT`3#CFc zYla`FN3NFMfUF>;y9Wa{DIzL;V==b#;G0DWe{p1QmuN)R#oM#9M@ko^47ESuP8Z|q zb~b4o_u?wSRwh&&?vb|xGs%sIPISgJZ{_@rXogXQ~@w&W-{6h%jX#f0=A z!t7(wG%`0^ZebwS@tUM=v@%?Ec0s^kG&V#7&!-VzHJwUDaewY>BLT=9kJc@2iXEb% zuAAV9YJR9nEyhuQkbs9e<2=7!BjLI$6*YvvQDR40sLc(CgK8iVq&>E_Oao44*PsrL zg+G-w>`Oa`%0ovuc|7R0=g)jFqs3H{OC3+;onbiK$FJC7-vSlFbz&jfmm?ICIpRVPUOGI-T_mo zP~C{UuAy&NpgSBtHki;U>gqf#65hENDO%;3n9)Es7Dw(2(AjqR5J8F-BTOj&5kUDW z>HG_~!^Jzy=uyM@Rv;NE9etLtv3T?{2=p+kfrK`Q>N_TuG+~z2yfJAVuLx4i1^&(K zz9$2ojFobUBw5Ljl5ycPKlb zRgd*m_1acuN-IiLWCH}<@BDupvIs$|d>C~1xS@EVh58cn}-qc^0DoummCsMY@Daf)v zAJdreYosy;A?R&{7PQD2?f7y}$ea$)*xML-c7qhc&bF}60_gik#U)X*orz*$!XXg_ zPf1G-6n>^hzgtvuli3v9Eqcmx+oC=>m;K^^j`!9jABPB3t#@fjbBSc|#}Tprewb(1 zeKOKZt1*t>;WgMnAIl2u_QuMnDA(6$vM5saqeT~=JniaVM5e}Z7d499Q8{6^>2O>F^u1~hQyMSdA{LVre^ zKp|01TvuJ0YAxM6)WopvmcG=iF=^&|z}D*;E6gH6rBqdFS5om^^`r-HL7H@qFxP%A zmAW(nExDkEBty{WXDi}{tn6B_S{PkK0%MrNE6EdIo$a%WC-YbBHpC?~*7JkS$iP2` z!~Pk<4p&Mi;Ybk&HHDf$3jG>UEeIHBub0yMfwxht4xhU;jZC`yl3<9o^y=b!Qh(gb zT9J5Ea;JoGLZFbaHAgS%xmpa6b6d;vt@0dl2w#efOtW1Vyh?Nrm2K!??7Pm6(psS6 zC*qRD^^&_d4nLt{Ai{zr-|r}`D6a^)1ezT_+AziGe-b-ojbrj#LNov~sTYNROA$7= z_`ls$Y}#x=#{$7J;8;wMou-8~=_sl#tG#*kUcJZ+iH&m}lTq*{45TKN^+u)U6Fw<3 zJD79XM<5|@RMMFhZHO@O<>gw?TU|7%2a@LR5H zq~adtGdp)tnWMsnn5N3?TOdSMh{kww;l^m^UiKEew zzyYkf=E@^0_YpDb41yHcs8xwWD?}Xx;RacdY@C_EQiaL_slgM_2O_v@tvBzHA%3X4H zTTd0$r?VnC=Sc89)o{Ze5c~rt*bz>dcQ<;&YHgSkMhizYF>aiO>UN17^yTx#q;fDx z!`}vz&X)DU^_Al<)qw2HJrkHZb7vI3rKQ?6Ek_!e;^iqq`$*i095#m2%}r)c)fBJ9 z98VZ_1J0@lq`t1MzzbDVh+WIdi8uA16d%$jXyJ$H*w zSfEW2)g0AKF&MNNr_n`kvCxYX2LL9Nq3QBX8EU#4vcWw~s!W?*guYNO#t8wxKmGp0 zUBGKXYOA-yfK5&Z?C`f=?NVFCt06^GWH!_Lc6(d0%A#7xtAxu5&T&~a<&z)rv-MLP z_-ct2J>62H}YdSwIQzZ=k;$V(PXbJ3K-xq)~s!glTQ~)9?7x&r+ z1H#MtYkAn9WB$ZLom2S64smS5$L-$t!IGjs;>`CMzi@jze_>Xm^0=cId=V>^7MBmM zJ8Ch)#XGGxNfBl*Ec*gHN-7mEwj6pcK1T1rMd5%dX}2xb>sRmGE7D54%)33G5lrw1 zIp48*u@DHN;vk=BEeDj z%+0Gs3)CP~S^QxavSLMX1AE*k;D*;CwL^5LAfhHZ>kd_%$wZ4+E6(j4zVb)+b#CDE zXE)_j9KN-oZaTzYA_O%$k0Z);=+s&E#F2U_xJa*{g81bbYI6V91G?Vd9!pyi)m67N zJ$h51>2clML#M(qo(zkyICwG9HiiP(K1ptGC@lrm6k)N1wcE!G=8P~-4k3-uj)*v*t#d>}mVGnN zOJW~4T51WoqnB{A==u0hN(LfeZ#OxB{C$!6&R-lefQ|6sheO%Sm8MS+tl&K+}M&(XVl2Z{a;w!6WCsju` zx+;kM5{rWET^lb`F#7OP9qUk2!7ysQzFm)~sXP_mQXuMZ@>b=~ zn;9mJ{y8=GpK3E-#G$K~M(bB&7FKs3v2=!WGq}_i-u9UNXSdSiMY2`fZd#K78z-v^ zElym}gP@EO#L$qNp4)8Sl@3f$(1LAnw(18Thrti5L&&Jj$_s9vJDzIuJ(-5Z+`dzB z3-h))c?sltu~0~6wlrr-zsL}qTWX&A3bW){xMpO=MVmWOe9KHPZtqfs{Ju@jcBC|^yOC5hI;wbdK$mVS}0}+ zga0b0EIzb^YoMe{06m@bc&FaOsNV4s*BtHJS|fpm*vIeV`p$^O#4bqD+;GV*EujG1Rbp#%3vD6OM_&n!QW+5-%z(hg%K9Jlr#w_ zsV&LO=D8-3C-ikiZj9GVUG2lvn-BV&P%_xA z`T$_KByQUml)qvZS*fB$F>NdMcxb-E*jNha+`_x(dn+8(?@O;c+nwC(xdpZl)zse` z*MNsyKbiuF8gt4td1dtcXPq8d;?@M^Q$QBd(Z0{9zwf%X!vNMtw&K$+*&tbKT>B4A z5`Jd)ADK~8Leh8DbjmkAgW5VrIGt-&A`5)^HX^Sj^r`>g(Vv95b|$b-2_yu$-ga5T z#delJ0!g^(>!suwR?4~x5#}ji);Ls_e;THagb`pK2hp>AZSsJdZJ*v4CA*rQN<6Fp zb*5*0ej5~?jE5Vcr3VZi`uB%wpRpMFpx_AmJ;l2;>vsZ9dIW*zFg?8usI-YfhKFCx zX5tXRS481qH|P=d8GLdf@}jRvK$9x%Z8}Rt=>$JlSA1;Aso((S!MR^ zM;^!I>n5H5Xgap9zvq)tHK)~%Nrtqtfd27AmdO1fRfKO39<#(g06OT{u;&R*SJjMT zmFd@c7EDYB6ml7Z!nbjlP>5i*O+y}$2Y@x|X-X@paSt#a*-DU~#3Sm#6n=#R+*4Xx zhXJ$M2pJOzWXMfc@qQRNAX2^n6+!$9wt+!TSC#YD3?x`RX!XsBWB8ZM20T^LTw~8% zeDi%cvXfX;^H41WzT?Y-ey!DPWiILFjSk7_VH&r;M47Ww=lx zm4L7e1IxiRJaO`+Mf(qqWFPqz{JZYK0Fk+1h$A_B{Kx?Bsy0>{C_N5fZGjI7rF}ad zSSHrvp&s~lgn^MV*0crYd>rHZltc9#qDm&Ww;JzgbZPEhZxa!I?&40M2+FYaoiPq2 zIE(`z#e%vKtO{rmQ%6AdA%qL6gu&~j-q3oX1`5I(S21q3hEE+5hABYO9-+jjU|N;$?-ZJw2#>4q$SzLDQi&yhQw9aS0pk>(`JdNc7rx(x!S# zHRZ^CB@%74pnUEwC1|?!&W>jCizJo3e?2$K{h#X==xN*R9JdGliTRqFtL*y<{`mzh zE19pa`gmA3`uE9}W9z<=$MyP3v~6}h$N%@t0@oTpy${b1>*gaF$fa9-$9{-UUupiT zbpma2b*NmCwSvd3M6vMm#R2N|=u;L$2?5Zo1>L8rnSL$C^9q!Du7R@j%kMD6nb@!k z3FpsXW7dx1PDLWjt<1E|wAYRf9MDFX`u-MwM%&aId-e?Y1AQh8hjolg(GCJl%(Sic zm}&3ZZ>}8--txwtKNFjvZDnl^-Z%zcICkbjT;loDXD(=i>zE#j18=S!ppR)=?ceuL z8&kBK_CB+<3mpTmJA&8u|9fl>j;;T5>;u|c|NFYnTKhf!ypAyS0Vi1hx6#@Od;dM* zpELgb1fPFS`QPuXeTLP4o0)@){im}B4}$(4_c|4M=JbC$=@tXN@812|=2rh{4H}qw zpN~83b0z_NbyIKWL)xbQv~kon^*xi40Pes)*Kh*g65NFg;KcuS)9HL%{Qv!q9g9oA zCY%AiL9CtozwiFqiEDR1NE!nn(YJ6;D26SYya<~Gd+Zh zPB?QO-1=znG0taB$Ay6h>2W6ZY(fO+-~W8`e;@xw*UQiSIdLpAWX9of{G48Te0Nej zZ8Y>2PAN)J_S9gYpN@V^O}_8)(RL^!DLRLxLuk9a@yX9*P8q*Tuk1JRwsm@oO8n7E z&X)FB4Q=?-T26iX&x{+tn0~)whn4JikpC6=DHpGG-h%vL{l)c9IbT$yA0aA&b3y|} z&qBjaz5Hdc828KDCB@&Jw<&(j-G12W=mu+DXce1AEo=O4nRMWey6Wq%3OY@hz7D&}bs=HpPyYZ?!sqX#owfg7u1mW^ut-O~f=c%l-JKi+Fjuy=yS+*0~ zFEiYOUdNf0jJ_Xne>-AtHSt$2hI~L}-uF~B<~e&8?)_JzjX%v0G{@Cfy1zBay*{m0 z)BfZ&(>spc_RUwdqkMLQV^)~o?yW$_uQWSeC^PR>p!B-%nOCOqkJr}jXZDa^85Qa` z*XO4vdECg@eKW{7;FhmeRaXI-Vi|pfzfISsLDz_UV1E4{In&n>xccJhhPtc)|6Q(> z4S-~I#`Mp9>;e~6-PQU0O>vaUt)iln>}O6-zc-lHr`OuYUYU-Eximl6y=uMmC_yVO zuwm;_N%VeBbrlO`ukgwmdD8gD9#8jvFV`NvXWLEcx%;#Jxf^Px!)|Xnr%rvnXUBN5 zeO)#Aa^!ENvtOT?ZhwrcuRD6sL_P0zzWDQG;`n#d$MF{fk(h_@)~ko2@=lM~?5Eo6 z{%lap+}e2b;{mqeyw=^zmpXnH{RsH|*I$k$?T=a;3;$<8v-o#ZSnU0O43)JZ_5W?C ztet-Bp8@_qL&bRFoB3V~?_W?C-1W@LN?*Tzz`s{gbU!k>?#s>huQ&C*-hd4KrTBr& z^8c+rYeD6|AN`;B`rqJV>XUdX;h%{6Pk7Nb^~A=2QTyL`^uNcnlargT?;&i;zrz|~ z8h{I18`hQ<7TTt+XK-gD614a31+mrC5tnem`^q^%@ux%q4YFr>yp9vZkNtu%0wDRYqLKn#2I{$Ed?9-F5-^xGB4 zh=zu=(uJvMJpSyIA+K6AU^cAh=D2<6a9n3xI-j|85g*&m0qhRcurrh)snHZhUbU4# zY~OQ|vd=cSgAhqT5>S{=p;e2*8GFigs$_AfRoLPNi0ipN3Nv_y<;6IrpiS(<3gU){ zc%s?x8Z9TL$mKe-i{U@6+M6M|XwUFDvPy^8f&8a@3CLhBYSn7DkRF-}PW>^QUZ2pm zS{^6pq~=}AuoraoZaw$<2E+|P4ACOX8`~Dj{nAo{B*kz;_VneSLHugA1l=P)2HB1DIiE;VJ@%y-+@_F&?M--nF(J@)(?K|vdP zf~!Z%(ih0Lr=-|2JORf=@}p9=DU*^sE%HNKG7N@9BTK3Oi@Z0Fhr0X!hd-Bw#y(@G z!I-hMSt?{Hj3s1EM8r@kOR{9kHkUD&C`$^7LPEq)wure5!o?*KBa)Dc!AQnF^S+Pk zbANx2-#_>7@wo4Q?>CR~cr)jm_j#Z5TF>kGw2OsFl?`t!cZ9>$E$bQzSd|-@3?vWStkd6d!YHfs;8A^Akk>&Cr{whxzM{(jA5no= zNE>#uAzK^Qj8{!_3n(E45UEZ}Dy4ZzhlD^PsL2%fQtB|7eD`&1pH};!;m;TXW}hxf z;gUK$oOsM=}wJv?6cm`u(%CHbnR>1fT{N&+5aZ<*{?K@So%@gBW2Rnoh|r?6;WJZQq4qgLg=CBvJ$>WHzg7 zb7+TCr(__2ta<+F&r@1j5J&m0MT^=AE@b;F>bCC^{LZl_0ODdsE(cHH6oIPXE&f_i zw*-!&ZTDT`B`}95rN025No*-=ha+^o(0vei8<_VN9@m2l|LSyc7~XARh&_)0bSL&o3UxA zFiwogvM(b-QxvGr-dYsg?whLG68b1g=>K@s17hsfa}RpJV{iM3%L_w$&FubT{2qc> zbL9s`DXO^8%QMhM#yy;eeByUM2?7Kv;lTYk*Te`y+$-_&gDh|tARjY8+ecqtkC9Y0 zZkCMNRi8U!ti>Hn_^rhcQh6LI$CVf#M^!a$+}MCt56Gk#?zZ4bhCl-C)^l;CQ>QNa zNx0#s_Ih^)-M4Ce1z6rG&|JB){Ek5FHev_LsKVK_p1}+)WALY}a zb%}*C_fTLMb8#bIxphsJ!e7~pA*vFHr(Qpr&MrS8s`mzQbPvwGSe(T!huY9 zHEB5sH&)z`yTw6S zgR%ON?752PkN4HZ^OIy_PrasQFXUrlRuU)On%7pvi+mD{exPdmb)^`U5thch#raCC zP*QMI>`gb_7Xow`{4B~WiV5%X2>(Kdu`h6()03AQgiO-Kd zEc64l@<`yXL?y&OG_eq*rv>(b?svz(Gr&&WhQ5Mx%;DzbE!oT&gGX}hvi&+}H?V&b zc|!85(F3|-A<`!Kx6-2hSJ+`bu1G%Cx>viTgP@S3?7$rED>4+LkkOCI{jn(`QQpCwE(%Ct+`EK&CqbW%0vb|8SvoZmf5|jN(1ge>49?QCh=-tSO>Z(g z&<8MjEQLJXWGt$KWL~WBIpKUkzwYPRY`ug%?#=^>y6_)C#!6^SLM}g09aZG~xPc!igfbr6 z8Q0F0YTOP4q_jfL|CqZrJg*k3UI`H`WF7RgRi(-7(EGX@Cd4ps!oQFpH7t$el4|8p0@% z7`xntE9wVNC2Jaeb9q1q!;onAB6=pVufX_N6Bipwg8S!i-5Njc!P?>9WRf+0BqEVT z!a~z!UQw3FuZge&o$)GXL8gWSmvH%x(m`7zl0yWqjwY~*3}JF0d- zH`$&BSNNZfQ(tP}NCQ!2Th@JeuB2Ci2~EXhCrmI0Rh_M+6cWH)^xZ%*IJQ{@ve zwZGHLQ+O>jh0f@pFJ2*HXFBm4GSzSRl}bpamlEt}$vF6;=p}SK9~}KCQqi0v|Lx#+ z@RAj3g2CFHfg?!f4DyV@X8T1H|DCTTK^TNJ;sKagID!e_uV6}Pa8ZihFM-+ITkW=9 z!{XgAej1j!3{7gr!^x>GQPlv4qyl12(olZoT=u3~zqJQ`E1M9~;=tl}yC4 zN9;jPGMyv}q{~@(tn3m|3@+v#xCPe0Eg`Rw=zasF{FRwvFLvgkpUPkh=tmCT>6U0R zN7W9R%c2JcB;{9(NC*XgoK#5n`Lv-;K&&7|5>-2XdQ3s`z&Wryz-xz#V&8jwxU%N5 z{Wbn-8dyTp$n`Tig!+~OawRx>Bl(VI^svT8V7bUx43Ppi++7atLuGtTttJ+N85j~U zjksUkQF9+D4_AhpA{1Ii3lOWW_4@g@bSDW%gN%yuL*0)b8{eL`N4LY1;COK)@^UhJ zuG#=}w6o>~I2eD(4(NWJ%?&w5S6p5sGbk?%?Z9e^_3$#M!#<~YKGdPn0CJVt9-JJpB-`Q#BYVE{R3gfwuNQu2(y}(-Mm$DF{;Z!#9{km6x z2topGC-Pm5O5FL)bnw>6IDu*%&HCNr`5j;@4|+?XYPYvx7;FR9Zg+3G+PP$Ygz_)J zaque2&)U`Qih{CMw9z9JJeuIv52V>Asc%;(lK@+jhzz(btW>7)E%|6%<4*;oSLJWD z>9eo$%XPko6jS%+)P~Zd`Q~#6cxT-XCK=DN_3(RBJVs`+biSkR-V%l;5E-P0^&VRa zztex$!B#Si60nK9nF}_A#pPhmXoNdJD=-3Qj7bOVm|tAxRpT;@_LjI8K4aC@5lDYq zuYn!rUar?6;I@By0eJKi1*@PV`bTuU1`P>Ew2~{?Q|(-mPzTadna1wd?bcWbUWEzU zK7Z;=g9DmBV}!y1@mS6#kvliMryGmPVCd`EtV>y#DI&-XBFvWjTf+G<@%!pyPJ@22 z{f;M^7v*}cy|KN1SV#v=VI~Zc$>isWbARb;KjO*Uo1JXk?p`6|G#6;lt5X&o&kwk= zFgkGw`xSMZ+POr!HJBVJ9fbxA=3%wUInBAW;JsHAlQEZO5w+6(3yDOTMzkk<{C+=bZ^`sX%73#Kb_A3SNlobX zmFK$2r%<>I#Yt8Dw%(aytU+b9iN5>Xy(M-Oot5 zt?Mti;2z-6w3#yv{SFk{h6rjnqHeX@pD+CT)|(6G3;s@AL|9G3>o7nwnvbEMCLRK| z#G{xt_sEQQ?^;uka(UCS&)y_!OvCQ4;BAw)zqXNoi-}_AavkJ|9`qd;wD(pY#abOZ zTWB=~k}|B7%w$DfAiz0Kx4M5**Ipe^6qB;eKCB}SVTIXX9=72?nd;_)0fOh0UqdWocXhih zfKrxB)llVNFdIM7#%8ja(9ORS(!uKGnBE`rf+0$1Vr|PKG+6plioZ;ep-5*=$+v(eLWmxS{sMH+Yhsi>jA((sz%aGM7dc^D;L_^xSyD03$)E06O#E3o{9gEgVIzW5v{hbqYy{x-F*-TiLiDZ&jc)c zLlB;n2$9Lq(J^5N>eEc$fUuc4V2rVGSGxgd!v=)UzQN7jeQnR7GYJ{5Tp=*zZD<6r z)o_nqtdWHJv?RYgomv&KA`l)0v;FHKc2>YSxzjmku(yA%DoBFzO;Fc@j=YYF|JFqR zrI4!&3Q5z9b(8fU!jezq-g*Pq1*RU5in$@(Ks?qC=pRYoj{_S;pd48FVme-Y2ZJmS z%1f`o=7FJ!SKE^pC12?r!IzWofq^HcHc^`}r#>g5(8lO^K{DD}!o+A={9VCK%>TL+ zl9M#DJVTqrZ}TAC(Bci1D4KW?=dvsXcwQ zTG$Ko%6r!`gTW|jb}PgKiq~$9Z&!en>+u8N5#Qq)Me+T_PtpG^|?8B~#Gj5mjeQPT9^vGH6%DWq@Z0?@ zoQDL;sA1b~CEVg3{I3BSHsNJY5NlGB5LJm^VB^_KQ^zse%ogZNm*MvQrDwt|6+O3A zBV!jD2~pw8*{PS}r2Mx1)}P)SdDA@-Hpzc4ZKvtB&M?K{rrYD=I&wVUFm=3*l%_l5 z_o+8uA0jQBblT>y<|)5QAAfi9$aP$%FV;Coz|A{40~NgMDQh;j@LsXeRC?vy<3Bh# z)eRTR2+?$Av78m2em}G1u}o!+`$$mh3jGp+(x*-1v|TK3rB*IQUiqePZ};CY$A7~a zsvzRQF|Oy9W1O&m4XSc)`|&11s>Ur;C}CB$T!pq5#>n=4;eWKVrUfuRuC0C)5jK0@ zs=WH~NImCitaEq963%e@ycQo6#juL?=Vcu2KyUf+?w?|UaLC0Pm8ogYMWR=lv@ClT z(r!QNs}wzL+jntHrGtNxlD>WY>fJ>V4)w*@VQ6_-Y*Ca!^;i$*OY5RBAhykg2~*)yhyE6=3j3umGQc&a1%MLFy(2#m{5yMnQD=Z875H}Mvf8~r^3yYa z-S+R9Ec0el}Z<+lJpOqs5j$FfXjqt@s@Er{#AY*cqqyQ5?oLj6=Ap zyr7#H5n6Ey5k$+TGQ4js}hLm zm?Kt#R8Wazz+f>UQJM?^p5AS;%83ddzFCZJKW63S+0Mh4n~3z$LU;o1N2u?jjtPLlGuAO7J~;ko$e+fSPUMI! zq&_RwG#e@GJ*AQ7`}OM#O~geYP3&t4%7jaZ41`Xn#X&EP1Yx1kr5+zyP38(P`ZeP7 zxObo6hrO$Mg@QYL0j64MRp>X35iWLe>yd^T!B?TnOsk*z945W(z|{QoEiZ$Ay5>YT zy_cXVeA~EO0kw=hBsfgiS(x8|XjU#!Unqo;z-PikQ|!SDI%$UtptfPhYR=+&))guf zDuL`um`+Pt`fNOuSjT#sh5;O=!zC0568kM&H6yx6u(N|G(_#KA*`N{+!uL8mTYc+p zJ-);8gVuBAQ||FkxU1~!KxF)OYik5sr=BCZP#_xe%$bhwKkd#7?!8m1Fto zq{PEwV-~7ayP8d2I`#7nL>rgH#_ePfbh`8NqQXE?q_wj6-obAL6%ZGe!$>J3`~|^} z2+ySB{cgh3deOx{N|H+m3bwBl=hhzU1c!sXsI4RYh58Mx<=zXeNr zU*GnE7u++CMgB&Hn)jQ1LiJ4Nzsc-RyN*OD$bqnRXfSg1Cr})r9I!(%>i;SQ5$Qkj zbn`p%gyy_#Zn;9&KKT;GJG-&LU@-d=_GP32legY7oiT$6*Vm_o-t8EDGj5bFHh&KtT3Ak>|92qk$cB@AM97_{$Gu=wJR?9w=dN-Z`p zKdy5*2mf#P7~vf}+qTaRRD3192!%!)%OfCyhw-8t#2%U_aNgDr5jfL|qIhWf3O{4> zk~!x^;C57}Yt-|!@WZ@iGNgyB?4m$Ele&2|die?dqE1Z)2x2=H84izr3}uIW6yv97 z7oA&yI09+AZfigcJL5sfn460Qq;umG2MA~7`rCPlse8-b-rCSAyU2|ReZ$&2Q&sqB zfWVlLU0CQLGFR>#v9U|?m^Z|Zz66>GTigPX?cGE_zOcQ(He;&#Z9R+z!rsmi z(5iU(p^Zo7F0I>iYIQ1TcrMSc!F?__+vTk)YZIS+`J%;{LJIV#{30M@17YgJIX?-H z4dvaKc!6<(2>hcnv=#bpPvdQp2Cdqy71Zdpx6eQg=zd zhpGPji%W{Hg{My)TfvpvghNL^{Nt^mH`~QAMJ39G2XU}$S@N4pPJ|=z@kE1!`5yGQ zE9)(t<_hujj7rkExU9B;CTYQhZ@>bh$`ZxtsZgvZnH`bxtZqM(&>~R1QfKJRpH2y$ zTH8&$^oD14dh%{YyEP9psH`qL50Z=qm%g2offt}DmADprX8NkGVpJ`Zo%pnQ{(qmR8@ z`h#7@3Xf)FJS!3m$QaN|ZR;vF$qf-BWTYl^n(c&J1hocl0>1r%wVd%4k5q-ar(&1j*MrsQ9sQU@KR6gHSK&!J#SSR2Yf3Q=9kRxNF-q5j&y78u-b}5ED}nMkf%l^VAk6 z^_)@c03%jJ9!Csn=Q;lwIC5fpPq4Iq@pf3y&L{>1)lzt2A~1wW2Ch#YJzGLoa8~2I z7{6?gGIkA`Ct(mOH$mWjah8NAHdq4hDunUL&R7$p#lC>S{*4;29QY30o{ZpLq5AFc z0Le4RyGmdWQ|6+$o^B(Ng0KJe|3bQJh}YohZ`?aBr3n!Fo=MB8#iOE-NO|OQ^hXdP z1R+*+f0Svg@Cx? zD4Su`cfb1i4vsNMz-Aa@$!&dq#hctqW>;D*U{_zk*qx^S?x&mK3YOygQRqbRKmD;u zL<5m&Od$x7>VSf8r`azM@Ut4p%SAY79ux`VvHSkF(O93Q*`Hu?7>(^mBPT>a+TCCUu7uYmL ze~>V!D7NeY=S<4xnBu6ejX?u8cP&*%tPujNKysPt)-^Jbc`i|>r?@N%O z0a7mS^3p4pIqtA@bY@Jm?c=Z>xtBY~O`}N|jBclteKOMVKK`mcjMwnX(-;dm>4Yp) zV!63@a3(FYuVA~^|u z+~8z7vkjqL6=WPfoox?%n(&O{|M}c>!h}5iiFEtG#Za)&jfpsnK`VoW6vb+q^CVo9 z!WfwMeIGnpe)Ut$C#0~$^wUL&`iSY4YH5;}6j-Y!wvt#06G*9v(vfFN| z#R3Fn<9QIxNH)GX`KA9g5P{NLevtSHAXZqQ!7*gLi2AIU(-5WMfx;^T5neR$jM%>d zS-vxO%=g?_o{Ayc4Te#x=(-$cl#(Q6T?so#;E@3FQFk-l&*i7Y=5Y2|*&$xFd$@4N z&kA#IPiJq>uo`=v>9*wX!pFm{J|Mk&B)WpSc(-k;EUeGoLR1bC=wOgfJ5vZRbNiG1 zcw1xrfr{H?ai$jUQn&p0pEte%ZclsSr(n`4{8<3i0AHoQVOX#iVqb811$PoTg zJuG2k4yZlqCC~!(+jt^4AI|EtKktFqSp}*Uf)red>B~~SkcJka3CKxgXk5R{?>*%srPsA9 z3ITa(X!9+|ep9B7cKne>9S25+f6`6keZ-kW{LO~Ue?g)(x@ zPa@NLd+y)@9RB>oFSUX2rnJjSEFs7jhkHCH)X#WU zOWfXXipLY9FTEBwhPGp!RdMHCBNaZxt!xLX8V?W&6limW4Hni@P8nEMtWB$V2H*2? zMY)8yC$5R1uO&LaK!Urk|1;d4$$=ALo$|Jjja`lLy6ZK+lWg1e6E$|}bpR<>AC}hc zFnJzND0Dl~o&H%i2g(dSJ{=h1*u=Ch$Kag>+a z0ui{qJHh9^e~npIlKMd@uC~NwjmX!!IZC7?LioC&k+_eFZ}@Ay4OxzLqtt~QU)AR$ zQEiXe+*X3$`Rmv6E`%SJh3kbj<1}lcU3}CN;>IyMW7UQ8UgLsGp@;z0x_W}$Fw8HI8IjF>)K$eYA8-b&rwEx#I2&F-Xoi1 zSjL)vFbxz}8;0A%<7E3MDU^VW3=m@lfmTp2{rtp?3Q&Z0y8=!W@HkpkS%eVS& z&>CxM(QsAIU}s}dD;8R+h>mNWS)cN6Xsv#_Ye;`n|Epqy>C33Fqp|}Dtj5OYBkF6d z=a+m#bEf$1UyL{8@xi6gEw(jh6O~2b+BC#PZW#a#i!K%@p8sNU_N(B| z-9-6I|A_3{KdX}|>E8%NV#HztDeDPJcb7~yiGCF?vK|I9OICH;6Psek7ha;T-*k7v z851Q$`|f5y^fl3u9dP9B(xdFtBJ%!)Gi*9kxZP6ISU3%xM`N*8$t39$g%PIHQ=dBE zCMws`orXBI+pC%{B6#n6#bqx`E6nfD3}6GOL{##sNDshLAcbNMRxuc{SLRo*^s32D zhB$AmCpfM=-VV>Io8o<$ERfo%jBFS0Ss^{*^_DuvU@~_dq9ekF*^`4+o0~ybH!YJp zK;^I~b0k#AB;yQ-@j)g#z1U?2{b#MPaGD;9M3H#wa#g3k(KxNtU${RQ>z>NaOIdHxqZwmD#G`V@K*y=3{tc8cBXu|!4b zq#DuoKRNOBjm~o;Dzp^Xojl2ccB5o{&4n*4#fAX_o+0Q>u)qV2J0@AtEo@>CYso%5 z#ya05De^bq#9S#Q%JT^F(OL8*QtLSdAkU$$m{=Anj5WF4da_N3D4?;tlXPa;A|^#Y zymj%gu$wzi0>!AE$M!1n&AtJ3=$FS*7=1O&yPg9mm^hG}1wXy@wEynojk3be=m}a! z(wU`m3LDi2mdb3Ha7~3@JSG^=S4QvQ=7={3xWRv7O{HB2`2jLrAd5p?uyb1t3-w|< zQ>vS1>Pv=fnCZjMX%QTRuW0N3thPI+^jD{oct7ael!TwYfu>2>EkzFk)`wiVr$C@F z0~vtbaSQ==I4h3?!PT)C*3g-k~(7JG+qj|7zn|y zC*4SgUozHkgoc*#jAsa^JoLyp$`L50ec}ohAui6tz)}h$2)7D;wTV zQCt%JTSY)~GhEc>CdK2U&gsuGzEvdFi75OOl<@;{PIvnFrJ{jeD#@WnK-v`g&PY&Y zWEF!zwV5s}ogW#*HILtK`FKd>Ci1{1sSQ?g@2eoA{Dh*ijxu)#&U?3~ocHV3T1GjQ z5vZF>uRMDStLWy{qPjF%8}&9@!`#5xcZ5dqGZ65c2U;ddpW(j)766>0S? z&Aw9|w$slE>(lmu>>cY1a0f3yum(RM?px#K;xFjpHy$@S{%HyF=pPmyV!mRmErsFn z>{h4(6l1YC9MGBVxRx6(MZjU= z`DCJ3;z%@SgAx%jW!XiUoDMi0nv;+BkdI}&@Qfmyk*7WrE~#jEv1#R)Z)$1@Kb}0i zq-D`jQRP19nGXO`Ypp%W!3zoP0XLM#7xF4r-bV}(BC5?TH>Ma+ft~w}?k^3k&!bj$ z?DMw6TOR!RGy!m+Nwzidm3S3d>qe-N{Zf$eN@dcPoMft zr&h727K8BzqOj@EHpsz(OT)SrAoK{3?itANdo|4rY9#QM1q}`P>boa5R3|q`;&Wr8 z>Fm?`blXvu-O@1&6$mnQ**OP#y+51Ao2_>nrSj=O2XB3ok7frd%1a+t+X0Yq>Tjr% z^gU=B!Y$7^zqS0?v0>DaC?AP3@%p{-B9Q{D%x3?J@$0C=Ya@kS$1H2l0seZK8=6^5 zN0KC1JGL8DYzRA91qh2f1kfZfOp`-2gg*obbaA7yw7U7)vxwl*uA{y$WyV~*2#|Xq z``pdl^oHb^!9p@Ll0Z)YQj79AYjU?&ft#Z@{o!Pj zGU9|%nH_#Df02f@+~zIF5?g-n29?a0&Rw=&s~Py1&4MT#>)UoMTVuvr0$%}u>5b|q zBw>w#MhbuizWoUiKp2K=4*XT1lVIuuQ_cJ&k7yED=}FyYaFW`dzcpaC65v{EQjXGl zwSh(^#%jl<&_>HUPSDP!m+zB>+g7e-oMCk&MUKmErW1q$30#Xr5hs1UonGRTkk#F|n_lFZ4pZ&g@yB#WFYs z&sGwKd9~R-;gHH7=i5f~TMcBV^;85qlFm*HTVyP1S5LI!g9XrE`#YZS@DkxN;qK}b zsN?`qKtu&_dakMI8RuOY9&XiZSxKm`qX~U{*rBqrER%S1q!8jw#C2wP-$xcoKh{Yt z=9a0%Z$r)&`cOG#)yP(>N_~pHy#2-ICz`noj_784irt&9X&8(hLjx5_!sQ?Uq|{^X zZ#v$k#`$?k)H24d3U$@QZdcvR1ImeA0G^Df@^xU0d^#O8)5KKLr=!nAf)fbspe z`QFp7e6X(&F&RrP;i92(qN56ncVl7FM#?^#0>5$dan)1!_6PdR4{}ka=OFs32_916 z$Fu6Fu5u5DOQwcPmh@ZTdawgI8NKUgWfV6|lK~@k%XqD%m+Jlw+>;ZXwnDb1==1xu zPb6T;H_ji|IFX=d8ul9;Jy^=nG2zrt7UH1#ZTzHEcoAWFH$D+!?=aa;l+psX?dI4< z+-c11aBJeR-K6#}&4e#SJXDDUV}OTn6dcva2KZe zN0Hb-kF1qA&EYHc0fBWV$NVWv(0UYo>LqO(vf*Y>w$fT5P_7FxA^!2QDZj?JisUKw z4pb`1OZxdh14KYhHd!nGItQv{gS%x(nxiyo<#KD-bOe6Qh1ml|K$F|hV|*_jl-An5 z%ot`zLqjbG0nJ0vQgln*FjGx}9T`W9(P(rW_niU6LTdUpNfI(a?dmm&pS5-zpE5Zu z&;os!t?S8MP`?q24ebEB(jyQHi&CAcfHtC5t!?*2nLwHKLyEw?CAAUy zJGf3#0$iuY<%UMGc+`Y2`^W`4^qLb-;ZXgV8>6Mb^QaGws+UTP)VxOmwI+sSzGbW3?X_foM8hzKuYbf7FeFZx36xpTD^D2MP4=S!+z=JE7#;ahZi{V-JTgm0s6A9=bB z;k$Qsf$}iLJ+N-G(P&M?CGtKGr3Ig>wJd!sfG#c~Q38|#-6-z*hR`_2ydH8Z-Pj1H zLX@c)@Tf9^07p||p{Sw|?9bU*m=vzoLR;U9SShopL0#FSp>newraRf~KqI#J&NEjF z&4yvp-2nGww$QssYtzdqeCURv)Mb(VrTGpO)#5Hb;neZwAC;34{!`oj{+uU!(+R3o zu+tB|CM1}f^OucZcvvzlgz(WE7I3|B!y&k<mKYXAUhaDZAx}mgS zv+Lb+{p!X0?FDyiM%JV!Wsg*`^~RTl7c2tEyNgd3;7Ny%emjNOG<)aGqrRMn4LSQ{ zVd9Yz)Zs)k{hh>Hn($`a9)a)%S^CUL{{`%te7NXEhd@Z+K}saFkOlAqgx7X^G6>rh zoYwaH8+k6VFA*UDE($B2`IoZ16Bk;_s>iGJ-P$H!WE|`-WEPQ(-E5 zv)dG>!z+wws#>KS&f^xwzv2Tp&U}(-*A+~W0JB{wu|Hq5FgAT{fupmeZ+pi)y06K* zsMt9xGNSIYdUWe&lO)>{)1c&PNqYPXb>gEt8SWaSr%z@*g9q1M!=x`dDNtjOc6Gi zsGw}p&ZCU$QTleMXE%|X!8XXfRkzdSZ$(`gkI}4hwp&|N3AJ6iVc0sdo?AD%;%4{z zxWel*37Y1nK6kn>FpWchwh{<$AH(@spH()*yUd3qA;Pz*Mk=eXq5Zf%X2NuOxNXd7 zo(IY6RY>EBv^S#f{*v=P>Ca-&pf2eCbQCni81y$u;;^FtOx=*M+H_X8lAs9cK(Ptc z0zDkTCalqTVh-7!__G}y8k^CR|InFJguKF;+6sy%tV0|_rB3&aU)%nr8>E#dh^WF< zrq?-rpL`YX_kLMIBOLK?nv9o5e6a+{kz|W$mq*OCC!R3%IZw-jDe#!^g}Oo{hyXx0 zqJDPlKr3-854THO!XlQc^Fo5%z9^h$PInBN7PVR>w*U^dj^;6&pj_8j0mOCqN`)w2 zJW*f_&!V%Q%~HlqU$a_Drkqw?H}1_-4{>R7-a1od1;R%Zt*;uvYSBgnC})RvH@ELecZu` zNnxg~Q|qZ4&hw>@{cKThlZ9k>@Sk-eEjN4szj=-Q6U3>sL+Cpqfg`c?J4>p^4JXT3 zvYgAi83hE>z@0WG(<8UpJ$+-N2tP}$Zn5%Z4SDS-pWgVAdC;e&w}X(J=sZ{xU(8>w za1Hm<_yDP%Gs+H}{rr#f6rR0n;HO=QGYE){3}oD=t2=K1!+bifDRFqX-dKOyX@kUW zY&zSzK5jbO*K{iXNYL;^*cU7=v2H1-;bHak%|^o|r#OfL0Sxvi(>Z99Fu`81wk;x* zLeL@FuM#MYUh5oPxA?)b^^0|^mP&+YNl|Zyw{wkaI5AwRsXQS`BuU(Jbi|7^Wy}1` zg4*cc2+;2X+Ys@{(`l+ki|d-1{BA4A$P=h6_Y$4ZBPnv~xaZH`=(vZ~JQlQ^M5ZU1 z$%gkNY}~txz5z`6FiK+bu0{r)#jGD`Ze&a?apJ|_Pj6rH5#5d^%vVs9uRtvZ}&6bgA-!Br7SToF?@n}R@! z|GF)iq>xpUYkfC##CK^d%D40|n#Kc{2^NqT^E&9|2KVc*t5aKkZ^igYsF;ZOt)vLL z*t-Dy)joADz&2zz-`rlyr&Ac;r9#T`J}u<|X8$FKPXm>1a@xJH*RX>YTbOV;3w);l z9FeN|3IC)F>%HF|F(LpCRZ0f!3OTLn&GQCS3V_rc;&6tFyNS~4k?8`z9>he2*(K#-M9KCd>I~|F zIN^c-HCaf|_`Ynh-L~D%TSY`voCW^|XS|9DL1T$t;nW8~!%+E{?~R41BB<4z0CDV` z33DKB6!*e#`?lHz`4K$(hs}C(C8xZ0qI9K$KasiQ5H7v&k#z;8VWY`(d|Z=LCV1Ej zz~**JsR$iDl7N}xjEwNegXIE@uDV5KaWFlmnKi|R(ErD4bxe!Tf|oyZxOdi+X$jc8 zcS3=mxyG7|PG>>>W%IECzS_-c8Icypr@e%&UO*&~Ct+4YMPqoUnR-CK z@AO;Mzw-A+U;Pf}FERhf?uVPHVa5$V${3#wVxg^$k?*Jt>*XG9rp?)9UJq{b(c-z^ zOMSa*_~?sB*|Mf(#=zD3y93^bbzVRC=g?3<09F3a{Oeuc{hoZ!Irrz4!?hE^T@&{w zDsxu)RGDe{6N|sQJ~D!@9ogudyLCmBYfye2_o(Sj8>w#k=ARPP0b5rB;*`eCqs{fi zZLzK|7B8+WzxYd!bkMN24=469I6RtKqtJZ+{htb{u!@lVPH&)VQ|@MSojF7054^(9 zNwmI5T5y?Y9lTG@ZX4@Kq5tQshqY{kcT&H$)WMDu`aNGO9U6GPwgoO09Gl9FH+zsN zkzO@+XNVLdS{vM|VSoLHej7}+>H7OLA*;WdN3&~F3)er>9tD=ZQZ)Trg{(;v{;>SO z@*i2@{>z|ZI{Qe#^Xs}s)%pkUpWCYzt@X$A<}6_jNA#4UCDEp;)YQX%Ur$NPY%&(7 zwmA&_17~>txw_{2{!;hcpOf@YOJ%2a=hM#}H-7z@?$GN#`Iul;+VHAAJ}_naReIw# zL*I>wI+((~_f5O-<9em|3$d$HM`Z0b>r4%5o0Zv;sc)TE`qh{Icqp5@%*)Mj^pO$2 zB?u>P1YE5YKm4-KVdoKorT8lW)Ubi@Xq9OSW5kwJ3fBPkz7B>T4g$bc+4@HbnH0 zcKv&6Ueuk(n_oKGBiBNNN5!rQ>mU^qw!Bn5N!?lW`v1&Vd6Dz)h8jlp^`09#G`euc zM=)!jlmB%Ax05xcQu`lV<7W+iCTQ`(CI8;Xb0tVsf3Dv(?OL24FBdU>f?52c`Jypn zllwoCp(cD^U$2x{mL$GI%_^()9;>;%s_~abIpsW`;ugAlutuq}ug&0O!EZm8Y`X|( zSL`l_T>kSL6b5xw9j?tMz$mC?Sqr1LDNRlBSG4u%`!mm}7yCT<{&28BWI`_X@54O5 zzHwbO+X@vM{Pmv>U#%RHpKo`ag!}LP`Yx1o!}LGcFP?&Dh~zw0o$CkJYk!cl zo|GV+oYIfNo6aK*XRL__dsRK^oQ zpZr6ASJZ^tbb|BKz{0hCcA+)2}hzDlkdF_Jo zul^S|ZYxb4`h<{bEk5umZz6c%Z;HD4{=DOvYfP-)rihm9xKKd}4FG5SzX?mjd5*XfhXD{EQ%3;Dku z(B%_G>K0}uGHx90lq?jCxbvGiT6Q8Is0{R{o5iO*#cQFWd}i z;M!Z=cczT)qyW|Qq9UnI+u;u~^F2r3SUSi=z7}jcaV%~B#NK9|ywn-IlI-9xZ}g)> zcFy^4&NpQhSnlM|5Ao=t_dgEFa#wFWd#?QSWq$In7fGQG=~cJpBY)1TJ1QF`e%-l;A0o%+cU3yj5Jw=SiLU@vI?& zWbq8PtVg_;qty_&d;j8XZo>E3eb>JhpW`JyW~>YuXUzU5?jK2Zc}16qrnVWa>SS|T zuFBdq&nIMW5KM7#x#8Crd|6Fo9P`h5(&(0xiN>oFX=ubkRQ{Fn>G19952IlZXtL47 zaFVF@$wRtBm3O{hD=OENzTTG7=OPu7U+8UNJ$`nArtJ&AA68N$_b_$tV{WD3J%5`C z^*jmR`-*k8uIm9;zxB1fA)R!W9&&>5zTP~u;eQKmEz>hwSaR&exLGD8A6JZwjt$FL>ywmw>8H+dB2{= z1)gJ1FT5xCgw$ES5qujZ@l`kA)YTvBrmz~(d%yX5+Jps;aI4JG>m2&N{$9}Yc`ILg zmf-@^#?JCLzHW+$^ZaTZC;n&(p;Ohf9(EQ zX2j(ml5(RUmMrno@|?~;N;k7T9@~E1QE9z6ai@V95Nee_+~n}aU63Z%P#oX?zIZ0! z2hB{dQqhMy=|z@ z!D?Is+~A5<@UlQNqM`r);_c0&l3w5b-={JJMZ>AgDTf@I$#B@3DN2JTYB`mrNLdML zTHB#8r3BGza%eEk#4>S0tQ<;1w%DM%VVi^)g~V?7rl?q3q(u0fd;iWlYdvSJ-#P19 z>#TKLtG_BUK5*UlbzSfG>pgpkhJ4C>>w4uvw0~R0#tH^Lp$o#xFikK7aG+LEV!_dIR}xzH;gIp&O4G z4(XyG=a1(1iqcOc>Tv>2-hT!AZTV%TqYR18U0cE%oE6D0vb{^p4Ce-mqjDR>C;m>_ z+cEgt&BToQOTy>R)34e-&2vzl5-+>E|HciyHAi3M%*IbEO;c}Fm+3Yx%W1_0YVZ#09@NDPDlP|j>RT8d&%B|SXy1JJ zPn|CdCYOThk2_e!hg?jqswzDl^;P{*wrbheerT!re~mb}KK$Qc!94yi^51{Ql>M(; z^#AB`{J;MC{}fYpkon&+W%0V-|93yne}@VF&oO171^NF8Q|69wcl-a2Df>Ua%YW}F z*3Ye6z4OG-`j!9ncJu#BEBgQVTc4LMEpS7KhgBu0IvQ;Nz8>Yfp1M%aGAq6D*N=*b zvpxY=HeHhh7n?gB-ITiYr)^&*H;t!ZoRuyxzT6Mvg{k9XM;uF^=j(1b^Bb(TPyPI5 ztK9`g;&FU&2olKI^KJjOx#?7S<>zU)c+=_QSz)dT_6dx}&gB|oYZdNqo}R|l)YcAZ zD}a0U+T6TkQ*tb(_|D+k1INC%Oy2jpVQsNRQSy)7Vpvln%kKG!(08YpQpA_~bsDf2 zxw^%ch+U$y-ejpTT!8!Jd=1Cn%0L0=c48q2dupE?z<%|+D98zcoN@G&K3K%!@g{A} z?L7xpk9zk+Y2ZrAk5{IF3Wk|MWEQdf!pE85pPMMTCtZ`A5!Xu+3nOe$M2s>P@m%xs zOU3#@+uoln(irIq?)a{QICQlPT}g2?FeyseHX_gKylu==e;Y9YmPP*@o|ag79+AHy zwIepT;3TfqAbi?_+7i#;9c%u_uN!*d_jI3UZUl;mnnm%K>6ySW=9Erx@8?6qD&FKa zA)BgQfq+)0xW`~@wDVW;O=wGP&$XJ&`CrD}alB5hL^?H&`g1xU7|MUIPJ}NcIpso7 z8Wd`R>O-tv+TvE7W4ghuVQk|_zmU(W5iV}Kx+J;L%gP>ofO$OB4R-a=~ zyGhMKx6U0H>em@0tZMDJgEKJETiw8k} zxNUWN4Zg0*dT0=tL&W^;u~DN zga+7aROSy`8D5XJlvTHKsGP`DV8xCW$7qbIK*_xilnMU#5zlBbMWqsRzN?xhUTWI9 zW!t>7>Pho73Csg2{boc(EQ)^$}II-=;4bQrd|H-GLgH3cS`$?sjai8|3 zbGo}nHONn79j;zFJ1v-gArzfkE77^I!iT;09^*_i;mw_Ytq zrn56OpKci@(M_Cm!QMLw60fNR{JEQ#x>r|^TMfljOsS!q+y}nuk>NU!R>T-)m>@o& z>#giDbX>0JgHJR$U@VcUF6Y-CT6dTQ@abmOSsRDDx5 z2&1xj>ZEXdX%jaTGR?z7L|>8qfB4zZT)xn8Q+;K&LJ2@!@#3gwD3BcBS^PTuJC zJmpR7lcn6;P*>BdojT^but{U@2`RsBtI=p*D)c%Ft^4(ptio)?c=z73bO(P_uI=Q_ zHCqE=-=9l3cf}Nr#)tqh;}!Ba-n8Id&7^O8S$m_q3yMV3XETAxRIYw*_S0?l6Aw>; zWWJYM4?)8MO?bqJ`Mw5p0~!l*i_rYJ28_LL2SIC~ZQ`;{*=^$Or$h5p6{$8?whm2G`>~z>)6|O&RP!5-_)^>TxoE@ z_BdYlZ)BFeeNUh}nih=CA4*I^UNV7iU(&xc^=^!~o{n2XX1$)U+KlLjd(*)88fUZC zY&Ie;K8?O-{ps2}CX4)HnH*Mg?P;mRzq<0;yli><%WkZQ%?&uzn!U@C+#6Gmt&ZrcDt-P7yX=!Z^^)ikjW-^Z+#89lz%=n=nWED||lb<;z72pBR@*Nk^^!x*G-vvwWl5zxK8%SX{ zaehW>zg#iMU(xfBSMNEBrHk>{vfrGUwA3Xr+->D`zJ#gByFCIPuesynhxLW=Bk|r`U&Ty~#zP`rt(p}%q+tf%S%p>Buh1W! z{pK8`Z7mcB@`liaPe3fQ!wu3zw>+QgoTKf-!h*K73Mw2n`-5dpyG_kc^xo|8IpO^L z`&C+BEyOTZ6hJ)!ZuB%X1r*B>f8Cflz+8(Ga8omaT&Jy8aRBmOp!b*_3N^>`eoj6g z<59*M!AlsIc`Z=JE{O2DjruXk^5CR4#1E9>zSHU~S=701t?y+8RGN`F7%~6-^z9aaHQ46+Of5SH}8Sh7Cl|!OKkS+)qq^kKU(X4*N^vbV| zEOHgn#qZMvr|J<%jed0)W-?PrbZ-x`kuk@0S(F~mEONR3Dz)yyn$_AMwoWuv%YJxN z3l-$PH&|_shnc{wK*Bkb|H0KWczVS|_d1vHij@uFSOotGnieCT_P-25yV!zh!H8g1 z5Goef03}Y~Hc?g7^mUcf=HG70MU#bSA9r+heGOyzpJ#5Y2Ng{q&rTnxU0HP693d8` z6z7DTdk??bkL|7A1WLP2Wpb_BfSLxWxtK9%QuDzr#Ton@X9qUcE{4%Ed%2);?6~^n z*ekR@@@2RmZYm5&x^dMEv&hvFcag?JIT|frotPP+K2T^6l>*t>yUJeSaPKHF(Q4|F z9f>~DFZfr0bL9Vs+zpNqMDW=#KHP)1dwN946lu2{WRD#&o=V+d+|ZKz ztLQT{bwhe%G%k}-2GVLkjHWxSJDV`F;V4I{?MT4_3<)~?mKuUI{0{Guab z)HS_PoVn^@WOiPS6u8*q1=1JrSI&UH7b#TwS?oivkLg!wdbghKN}f$n_;plD5s2WwV`z zp&n?&-QNXLyuExjSp_LV1ffy4`lI+!CfMgTJI<~CBIR=@bqFGI34i7JK+OkIkq;bt8as$TF)P%$V zum>ZfOapqC^g9H_{0Q*)#hX?^;O;^!=*U=aJJn34Ib^ocQ=QgvAkGhy;F7>mx! zw~x$E^pGo)Fr$CBFSz-=_Vl;6e-31T>atL%eQW|eib;(s`ZzeNJyRni0Z#C|UmsPw z3jsmXbMx)vJTZ`MpVsdpqD5s8a+@Ms| z%6+L=K#%m3Y==_9&FY4d>)|Ya2T{l{l-5=)xtDKHjCdcyKbirkOGW__uV**i-9ZAS z3$}yDpe^Pea@k*4b=&)UUshv z^b^|7ZLZlm*#*{R_DGojah+P2FCpW{!vBvW^l&Ni>{@sbj&+Cmg-2b=WN`_S$yH(Ts&rxsa71TonO9vf#2$sTg3?9Va>c%1L87%QQFdo{7pL2+_qt5KS@-xcAJ#{=Nb(L* z_VoI;6tEyc81KZ8JKAqNKrVw7QBeMi9-dQGoky<&Ru}U=AZ7nscoSvzlE`d+hwYHk%@sKuy`4rm}*) z2dj%hrxp8iw3QY}&p_VnU@~r_(faevIvd~#G`$*-7L=~fs)vXaWkcMw281a_a&r)I zpPvDIv-($6ll>RtxtUuX8AxV$3)~wz<$YpLc^Am2%cz#K6suH})reWGQrQtAOnbYQ z6)mGq-B3{_asCK?d>5s0S8-=K@WNbEe<+;Pl3bpN81H$n9Kbduw9ly+yUvHKTy9ri9bcW( z4gHiddlZ}qtx}^51&pH`DkU@yQhA4bhw8>*q&%F;M4iYP2|VU1>&e6f72y8 zXg{oyq_DHOdN)ll*U5vr1VSoduiwEtaN9BB#^>*-u?kF7vlxh_$@l1%X3@!_wi|Yf zR?#UV%FfCH>`+2o8m`s4k2yR1FtILt+bmMTUbl65d*9APn?^Y1zj9+f-CO1J8(fDwufMJZ+ zHFttr7yv&v;QzpHX8;tV@8ne-m!lN;&Hl_pE`T13esv0Ds+^w@eueW;>^7ieW3J< z7|YjOKzWWbX`vnOtoC~cv(^TfoH%AnYL1;OSmj9WGPIy%)QBfHD!I|I;D4*=qKXu( zc_8JPjD#68P{eRJn&$HR%ezn5{su{Tah)cDG2y&?{sXy-9dBfs_o!eMB%um^Jeg=V zAY1|;;JHS2J?gMw*54LGXwirjW_IexAqy7ZALn(Io43QaiPA)BLG#gx5n1Vn=#;1- zBE~#I;Lx`BqwSyW;p`PNeYqWZ*JVreA#G=V{H*%E>hMSnl{($xme$jA&J1Up-rv!I z4=ef`%@<1l39#u<44{J|q3rr#va&;%8O;-EJFl|L?T|o^ZFtq)1P`LEieyC*RS?|u zkiKSqsXL4^mUWA>y=q9RB#t` zTOf8*mzWb|Z~w6`Ss_3`;t^vWp*il@tL0tq#u+9dYCV%eOFGh4=wE}=T^t6Y`n&Z=JVdwB{*R?u#6 zu^8@iH>3&7NJdO}s@8AocvFs3c_YK0xWz?iJer@3blOR(hXdHQwmc_hKUL5Z7H2qO z9>QnQEnu1{mJ8nnX( z{EjKmdpi^Nabnr@#&+L!iEWD8#{tO_CqI9C4}9ve@%B#e2UB8ACC)=hJ6zDM*FY3j z-CQk*Dqb%wLASWU-OU4wur9Ipqt4RF-=95MJz9UoHL3x(U6)}*zNT*gbg=X|`1yuw zjoD!!D0YdCabewK+{(e7rm;)zv~MbYlze_=h###_4POiG(WnVmQZ^2D-Z%XDeS_OW z1@^{<=M+n>^NV8*CKA^3kGC43AMY}PaFG;3xTF2RA&GaP@}GyrOP!W(LH*(X2~PA% zE~Mt}Y8V_awH3%CtU3w`R^LCFJv;Imp5l)-cgeRcw;PY-QyXx1WE0vR(Y}p(DBm}h z3>$qM=Wz$3Xs40e8xO6C{Xh{KbX?u2-_@a0Mmy(M`{-DIv$mZb^I6FKy!L@1ZpgbZ zr+onX(=};VOTJ@;Wljok7Lzy2M?@tMf8`w3WuBHby;TAdr_K`Un&r-=MG#8vU2;i zeoMJfQ2`iv4Ltfl(yvCz$R?^!gW-qvjHHRzqZsL~}3|;(O@hE>a9JK{~GWmzq z31e4iql|8_)tM;}MX}wcqJNn3lIL1K>+8nYyq!M&*2sMWx>`(Gz16}{JOQyk2^EA6 zs7p2P;J##i{tfZy!;JX_)Rr@aOK#+UED9LHSTKKC?OB(G9SwHgZe-epBfD}%ue+}eEWXwnz5Q}c`7Ty zY>HJdg|TKqL$1Gjog>p4mo6if+MoZK{!unwmg}Pz9lx-dEuEPH{m&}SX>kE?RLm1p zby9NQ44>$q6DfH0<+qZ}`R2C7tu9!GDg8`UDm$*s8e~KcH+_cN|5#<+Bo&ibUzS!W zMEG@^Bm{O7S+XyLFZOGopZVLMxLqM=Euw&u3-@tL41cq+5Jv04d*R!CmEV6x_jiOS zSKmsu#)zu=HK}*Cyl#z(nCjVYdXqRxXnxS%xJM7WVI7HuFuL@{xvkV$2uX7}abKCd ziJrXX-15F2y!Z4}np!ElD;&Rvg+1MDSQ%HklfltAea`nfm*m#sbS?n4n@_hvWheRg zMk+;wpV1uL@zcyaMO+#bN9~H~wkb>1v4EM7(0mHgWUujGdv-jzEIOJFE|#u-8=17F zVHIHsb;mx})@iRcXv>wcA)+2d{CywK-3PwfC<#-%_d(Dce^1*8nkEp=@Dq>ShypXW ztmf*gkB96$3;fU(@iTl}?ci9gS7^vcD+igS=KA;&V)^#ZIR(8O0oV79O4EV{+4j1Y zdxY9a+are&%F;#n#pbA)yZdteb&0y)N+#_++5%&+8hHd1muN>7Qq}5_dhdc9=eP2|w=^PsIDw3a(?q%-;K| zE+sc(cDf|>v?DXg!l0ld2k+|b?{N9R&3#nnbY0=#KQI)q;wF>%869~KAALR60YePnEplBd;b z+Ny}&0d4o5p^gWygA74KV+I8dNS%>xk&5}~Zb^TEDb0cl2f^A`Qh_)BX| z5MBnUo<|O}jc_K6)(Hgd!`RW#eaRGP%oqB#Vo~4)%~$oZI%R~qn~?k-j5kI{J8KjA z_Ov{~dDd#@DU_V}=MN9^p34c)OaLU$A$N(@lDCQz zM`LkvCmz|COs0}f#Bf=Xys^%g zUsq1djtIm5oseJ*iUK)tuKP>?N}Z5A*BhXxY?b(&h+M|m3`skaTK<|-#l8=u!B+!c z7qH;;6GB#&po$t2xL$ikIK#3Yb(4B}Rv6vJZX%6F4PQb(-4KpPH~icCnKGo5vE{$a z-&p-#o2$uISEf#>y87cs>(_R!;BMIi*Tl--nC7)#zg0u%{%8A94UtX%G<5tP@NLyF z1*<{d>#(ok^TAx5$;j~Q>TJz}?N0XM)Pjq`9wx0##xVf<54Tz)gIrF*lt??CLyW~U zj17d_x3^ce(cqXD!KHF}sq{!OpCy)LlZy`ZAG*jCa6O4|V3ZKm^Run{qs-SDxOCGvm%QR=93s^vVJU>_ZwLX>C>{-=SGG!eKG#pH{4DTi;1zc zY#%_+fs@?js=ZJB8d!Czt0&^+OOk>cmWcg#jDBgpUk53p+xxPNtam5qd&AbeYsAIw z9dY@~9ETT9ny-#wwlu;n-Fjjh8ulgn7b)5$GIbjg72ErMQpfs@Pb#!x2vU( zuel*NnPabf&T&{=y~L;Nj~8Lz)-I%G+&X$4wi-o!w7=-F`Xc2UiioCT+*J`u#g8@C zi%zBPYt->E`uo)Bko4&hVI(;Ncj004UEG0(ft_+CLGW6>wdCj?Bb~3O&A+r_qRQZ& zt~>b#IXvmajXhNkji|oUD56i~;g$;uKX#I{WL*a&Z6A2E7zW?xC&Es}+UX{hHzRNOvH0}`J!Db~U#;_#eZo`J9dR2Aht;W0%HN2n}^;?)N zNXWfq(u}LV9nx;XtjXeCD@mE$Uv@Sdmj+w}xg0pyW8nqOdVTi$ULjrA?=`6F%NWxt z9zW2x&TpNmi5$_WlO2jPEWj?)fdN8m8v5QPYdbly(%IQycoZq`O-h8?P`)wu=tYxU<(|Zf!CRuRR(%RlDsI| z#%E16;_;I20A; zJWdz2WPXf#d$Nw0rJR z#UOtjaiU8@wcr1{i@9Bao=L>WSkQ->K5)QLq>{8xkiKXznZuC*_ulOzV6-EEdw822 zyQZE0vdQ7y@y}yTZoFFRe9N4hoAbltK*e9bc#8R`S7tXj1bMf^ zSMfZd_v~#$tR6Gqd>EF_Hx%L8yqV(O_p80?htsBcdH!;qA{IfAXzIm;M|W4(6tq

1vV~^^=STT&cRcf&C8Fkpg^%TTVy6h30-WO!~{NV>Yco z6W$e~RxbmS#d}d_ndy`iw@zg%ROy)vw`6i-3;O=D9Zz9v&$>-t9Y;@XYlh}p>^%l|R0%&H67t44z$&U( z$TZ+UJT3Qzc5F1hwH(yUVjA3orSTp2p67rOz|7#cpjk_7%?~!Hk_-;tzx~d$;{a?|10-(`1Yr zP$`g{Dx*Tn#8Y)us$VrzqL6}gqHTj!xLJof@cvDZMI;eNoLkq`9|^|@-B+1eVoPjK5_5uW`9?w7E-gF&@5?pfsaLSmM%+Lr z3~6+LUn%uit2pM@lBIlI*fUuHU)@hx_%d$vt>r(}fpZWOI7dsU;=2Lg!-@SebVy+~dd5*6sP=-vF)b5C zk?2Yg(?EWjJ3mJY4gINU$_CgC4OJ?JBw1J4wG#RrIL1a+EI#bF?*cu;oRG#NcZ{>i z6`VDS*`2Evp7%mZF135EBxRks?I#1Lf6vp8Ao8T);Msh(6q@6eErvqp$FrqlZ0X#J zj-IwEl8!;~!5X^xT2l20SZhb2#vYe!l7AP=a@X-PDK8*s?r6W~tWc;6Ge!U>)aYG< zi1i~lf56TQBSyU!$N?QCx6Fdj)D$x(g~$`!wsG`RosoWhq-~PxmsZB?vl>XqzU?WE zrA|X4`Fn$d`G9^jN^jZt&NPFcgo|w&J7=hb%0lyQ^}Z);za0Lbr1)z3-}$;JVabot zZ9_!Z@kKDyMG=b$L0^4a_`RA<{i3_+ql^h!R(D^%19)4>a+Tv$&3sHA5XZ(23*FIJ zRz|zIAOD({kx^4O!(-u-FRjj%^N|rHsk2o< zS1}eTPS=snN$8svMqU?V3=F4)3@%H?%1-RGig|m|R^nur$`OVgPDyT!g`H3G2y6m! zc92Q}E8AWd;hM5OF=a!2J59f5!Iobzden0J-*FpqHzqdlF1n}>8rKD9WvzcbNm;F- zZ^(K}>T@&9Uq%VK)!^f;>0oxnM_4Necc;(0+42}?MRNw>aL;QwM~TGOx`@kHuc$Tm z^z7kok_SfxH|A_DfitLK(JefsSFy2^Gzd)CJtZvV;Hf(?cr z2tTX01a?+A!A2Z8S*z>hfQ`f>ETGet4GK6&W@QIN9KemL22d7EtPZo_(4(+6#rTlepHyEnLe@bAA_ zs39`yBx#0ha{qXS$PI7phXY;wF$tw zO+Q(s%?oE2f8pEZ7t97NiH@Bg6D2<-sFHi+4Yo%K?ZMe}-?qelM+#`Fbv3GP8=msZ zjjdBDSG7Wn#ed5AS{luPd#s#8$jt_3+N`@b7EdcjqTs0XpM`VxjR!haB+alq>OFL- z@beik`kR>^x$&-1CxBTDv$!3i%Kc_RdamV0Yl&jQ)JH(ac>N;k=esf2ZAQyJf5jdj zhyeyKR2m$e(54VgYqh?y?YvPXK-8_TD*J4D>DjB1-XgJwDJq}?p57mLJL=`@v&H3| zYGGt11ck8g&W;BXII42%!AB7$k%m>j%0SU${^rR@kilvs_i-kj`B`P-N&+ZJb8CG+ z?N(@r2Tb&PhJKBX?YwyEY`Mfei8iQZ z1q63nD-lT`5w=%2F2Pv#NT>P9P}#kpMFwZhgH1w9FPD_!{@FMc&Ok`Vx+gbT+L2rTH1KJ)4z_@R{cs6gWkB-cj)5e@RfW>o z?KU@2Ql`*N-7`H3Bv6M^>nrDpuuwhh4L8WU)$6d)@sQhB7V8*pi2UFR*rqG3N3mUo z0!7CtfSL1on#G21Iz%sKM!Kj1JZzY3jxF8k*N6GqZV$3!?$?&q?=%JXVSheyy(bx! zZD-dmi*LV45fRT1`1w*P;@yt>19~>AvcDRqt6OQ7BUhP22^F>i4YLnM$K|1Z)3se0 zrsLF9vwGXkQ=YdEfa}K+#P~Pw5EbtLeRBt-st@!He@=*ud_OIo9clkaYnPHh1Ce3x zTljt6fiY{@95_DFq)>>Q;ayWx90C+ymBp1zm_#!2hC>b9c_fL2{rHUv7rcP39Xerk z!t6a`duM)%kB|4Pb#1?h(7S@IFraV0OeLs$@V=3RP;5tPc)f{P2O=MdD!QmUx%?as zh#O>JN3ivZo$6kYRuQWdO8dI(t~krJb8{D9!WB0DM&RPXQ+G~eI5mH4!{K!xiDkaSCZ*JN< z(@YS7m;y+F5EarVi>1FhAkKtZrHbM{L1XKm7KRCR$LmoH)CH=>uyUL|S9e=bhLFqS zg{KMfiHuO!zF&O2fDy1pPWEpNSd}gms7tYAeK>S9C@qr1COH_eZ6yHmsQMXAnhZ9|DwK_aMZ1utGX(xu^$;^xdSpDx(Slwoun;8c*i z=9<~^TusZ~6t55~TmEBLPeB0g_<~r)qNw7P9UYn2=X6U`ly@U40}zOJhKXL$TYHBCe7WY8dyQt|?}~yB!9JqvA%K)nB2{F}d_TrE94z_R*Fc#J0-1!?%|W@ox@eG&{vUO9M}wfIRfENl9O^3{y86urV+h_SPik6l-#^=1EbCl)1_1q4plz?{n4mE z^0)EkjS;TyN1mOA2jL1Pkk>c#)gzcw>9@MZI6URGgZp~B@*YM64CTX+X5qZhvYb(O z%ha4utuTiQvCUqlb%e5NOV(GHK9%^qL!kI%(_0=`UD9}SEt%IAsI7rM9~t!4w9czc~{%g>hF$k5v{Y41tw7f_($ z`MEb{`qT+7TT{XH#%hMLL)YhSZvKg{jj#Ah`KU zDH#g6P}McYrH=8G6}_5`5aZ~0X7B}EM80k^-v6}gMx)PhtZ`shKDQ`WMSiqygh+*& zsap9L{*Q9>PR1_1q6`>(TgZ~W)ZC_d)f9C$Ne)Txe$}qh%I}Jjvti4}JaHQgum+e( zTR{Qb5)rPzV<28FBn1sg$OC;y@qV{tU2!Zj;=XhLNY=)|C+=%LvKIY`WZDz4{vTHJ z9WPi!dG`t+Wjyaw;UJ+ynCjL(<-72DWX__EPq)m6(a8807TOvi-GcH|mXE8Q^k9Aj z6j+F`K%#0Jsrd;D8@d&qiQ8J(Z{emJ8BCCFBS>cGzH?VjjD zuC>;&vTWz~>%no9UoQ4oup|2ToRT0wm^`EaL1XsuY|i)8VG;Dt3Le)jq*u%#70?b= z-t9*)6YAdSjm)lOGAlwyKD*3@)&#wGuql5J&DYnczZ0~OR2=&uOTrxTWaux;x&`v{ zIMtO;whp`KC3s@%X?XPgWBp*rNXbHRc%-NR#IvqMxShahg((D{aWxTRu|U*C5#7@I z9nJ(h(RVf+pqm;Y+)XzS2A`HXIExJxA>)n^GFL+xD-WxIv}ys#>tUdn%kGnWO4s5HMymN=;Ke04D-UQ$XeN>7|pMw3C{aFFnFcp2$mq^Mx&JT&gx&}&u zG$ZXh(A%KhFQexfYvjoflczGw{as%@d*qU07EaO?t5(Ghp6O~uNL70Srxve!bcy#v z)njn1+W)655ype#cFtmz)8hNXkE%}? zjD;?#d5}_?)?SVxZjPK?8BlP6`tu!}DzEFByPhjhA2|=Hhdx~_@}sQ)6FtxZ%kLkg zXKR}`soCyFrwTgSd+-4UNf?V!+ac!X54JVZWg6obZ`ZQtM|z^$nv>1UZ2?pRdoLCX zLfY*-Hzg0;U8arwu7I*S>*)!+(-|MkdqW}y!gippUb z&n%O{TD!gyX=g0H?d?YoOHSM)@V9qtKeFk&(S|#_2_>i)N0;;;Rd1r|9#5_bZb@{> zH|YB;JBAVE6@ILU=!eGZYoJu9HT%NLbBh88W{ghg_GlmNwxz+ndo8+F;Za4%OFQ?} zCW|&?Jn**gj-H`mpE8FOC7f&b?&$SCdiTNwb+*W4(%JU5g`+_q{X@sz3ntLyBV!$} zC3G~CMry{@-gjh?q^HQA^cBt3-(Hv2mOim7N-{4>C&HQ?Q_Qi~8(sM6L!@!ZFETu# z1}l$TyV3$^QISq4!4&v>3@*dE3k2+reG<{q1HY~7zkJFnjHZJbo=QwBKW{%q;~SQ1 zym)fL2DhW_Rt3i%x$9BvzF{m@G~lYauy3B(bSN6)d_DucaOd?O>-v(rM_LqF;IedZ zQ9(P1{#c*lx*mgaM_xGXoWssBWNVIVc`q=VQ$QfW)k$>v8l)Z5uk#@>>1K?c;%5CrchUuu$ z1B%_6%-27*;xSOc`aJNv^VJ9Pff4EM-PypQGbb-ye8RB?;Yc+L69`7Njv}Kon-8u1SweP@B*Qp)OH^Gfw#(kcG`M=fwnX3 z%i<@PRc&>(x3k0sx}<`LNxPP8OIay)8;{I`vefqND z6FpRx32c|^9;BHUo>7@QpQkLj^_$*7ZfoP99;9lXXjf6XDGDLO)D}qCt+vwz<>{fq zj8}<%?`94-)A<~StaJM^%C%jD`Dj7ek}f$ z98mhdDrdF32FgQf-y_hnQu}jKgC)%z0@p3#yD&UN7`|}H&Wz&bCpof0t^v-UaM3KY#na$)EuXQnhjCBXcu+AZS7r$p;$7yPN7&V>RzvoBNtzC=Aj> z2hg{%N331f72siT964*_Cl-E2H);w64ztRJBz6=Q(ha_|bb`&d-ldlO*D%F~3D5|L`b;G+$>R!NzQeWJg;z)FI zv6XQ*wAEnz?J=7!`jlKQ?G5=j?0j*2qN%FpLB!vz5!Cb{@@^rv>&2@Zt8Cz(J3u?{u&k zv^|%2fPV~?&Nmo38S-gb(B2<6!vo2761G|kjfe^0N!Zy6k`02rKpR&ia|i3RZ`+jf z$w8f+4U|y=1j&Eq-X(Kq1Q$?f0Cxtx*0COkKhD8%JBG4Jt+$?2l%ok9@gqt{J+3^N zr+Kv^H12dVu|PWo3r6q#{h&iKVdSHlt3UMjr?}L0yv@n1T(%h46P8|D58m{BOG0_` zM!P($p}AGSdU5|xpVePisHr1)l7O5{Qw!ocpq&9zOCt+#+HKdIq$&qfXL(?ysbN_B z46z+;B2C3t1Zd{t~D~cl&{ndcMZ?|HS+G4?*+3_cO@FRFN_{UdZg(S6k=$I>UN3gwU z`K6gVxgN?5TinXx68Re(_v{+&wb>SJ*Ips2Z9LK-SVkJkz&XcUyG%aE^$^$|-{Wua zEjP?H7q$x-EgC2ZXPic-qilh53GrfsLGnMVAE6rTUvW}hoR!wUcR#T!+-iCg?ohBA zUV*0~OMjg1E8|`Ju~Zwi|9JiKPuO9qvtE#8A&WIJOs+0{IfB*4d-I89SSz1l)ubc! z8)*qVA1qt|D-n#-yBxC%5(d2th58*KvorkDtsJkSy?Xkx-weIW7&h@(ra&<6V^|h* zGWI9?#$JaT%))oJd(Zq4hVPGYM4Dr}(?JXwG;WQ{tC_AdcClv$9IQdv{VPDLWcCM} zUge6#r_dCLJaR9Lm#hr#C9Qnm_susL3{7sI?$>J^&V4S>Vuln<9)v9$HvkJ$joa)_ zgA&>!PqKPG8sD01+$^019QtdKr}7cE(4l%w71_8$WBBQO0|t27s5Gr;ke^T^*+8j! zWBm`f5O`QPd=4)PS>w6)z~v=+wbWD2ss314zr!l*m`O*}D(yp+-gs`H^PqEFh9U=Y z`q-C&TuW{e%F2BDnN?y|QZ8ruX_}TBY1FTMuxfn6k!`A=ABD1}Ws`0Uv2Ip~aStaG znNjr%z6_eDZ_m4)O?f}o+(gZuXls-|Ox(wy@p|1PYiCGM8$h6j^0Qlb8qM7Gq?5Z- z*A)(zovwPb?nMuynyPWj+qOy!4%FGN+j^U-wuE-(DcOfYTu@1FgMT>DGHhrh-yQ|w z*{pye9{=F`t3yR1*T|*x*{Zm7FkitI3{kM-&}2M!0-9;+&Yj4EK>`(3G^FS>I0W2R zy4G1D(erz;3|?Mma%~dE(hMIXE8Y2TIo`oDbT^PoI9YWC z0m{{(S=}m9wxqL)wB0r(4BM3YuhMUQIv95aAnbCM@dTP}zF=FgCPY50Tho^}XTkuJ z{a&-~H0YmX!uydCVH8+gn9_p1gPmbPi(s*-&OtUiY5@3cs`u!WK&&!-Vp~O@DnOKN zL>0Y{*oiu36c$I-x=nDMn42YQvi~_8eGirU8Fv`z5SZcC|N=A!8@T*H_Z4*+rg@}y0k-M z*H5GU?R$vfdKGp?HaE}1nNM&@mn({7y0W?MxlVr6+PCH|;12VD|N8ObZ2o_oCT0q8 z#Hxdyr3wNrh649x)%EhG6Za*a@B$FwKH48Ozdx`mTM9pbQSl!)7N53b`kVWKxug|g zzpL3Jw5d}wSJhiqvORIrR$IPdACU8%B;_k@|2QuuKe>WfciRbDa;L9pcp#0(fG{QFBYrhb z9)s8rA*J8;dwo+Ost;q)loQI9>B>RxWMnbf642=L7o$xA$XV?NvS3{(1d~=4{Gb^LBlV zK^pGkZ=NZ(qZkR-BQE?!#BXmo4fHJzMMrd2A)O6nbfNM2=Am@57~(3rm;JuskSEhN z7^U&vZ+g1=jSDaVd+naCl4cIep_2BbBTu|sf3tEuy9gb;L3|Q-h;eSa$pz;iIg8Yk zLao>OibQ37i!go5@Ohs-r%Fmco|Op4htrNz%;ef`=t~7Ik(`$mxb_={&*C^D(KI3p zwkyw)^euTI_w897))>V5%-^u|2%2bDQg8uGSM;=nk%9gflLjh(#a@MXQg@0uLJI<{crkJH{i3& zi=9vUsY9%5Giu(O#S&%+UnqZ$_Mn*Hpq=_%5s~5 z(!h??oTwFqg(7DaFH^g#2TLIB&r{>w7)fm3)Wi>aEO+R)$pVV2yFC+kxi~SKx>Ma& zdnY=yhk|P!eLT*`dx*oC>w%i=c?&{X=JhV9wOZLbXEE4)=FenJpc4%trG6-x5rzTl zdENAs2QTxNUnrDHkV_U*H50ttW7U}qvyO{J5&b#8;tt!}(CyseG2|8Ran*Gi>iogh zW{9k>(a^U8#fNwOZS*Z{1RBjrLP&cTpTsvVOcS z7BjnPcGCBfFGUJ@nL6iAJdBK0Yow9@eKXVlgQfS6XL|qt|39Z3hGC-e`)8>1V`<8< z#84>Pl%Iz*lgj*v&hevYcG&z#N0EMr{OT~7hBOqhV^W;c>ByRCVy&F>YG$U+W-{CJ z`{;f7{@eANF6_Aadaiw2_K`c z9hcm0Vg#Lca@W@c7hI(t`xH*CnJZ0QtB`nxAtA-KBc_NKQhbTp`f%Va zPx^Bgw%kb8g}rA(L%@m1Mt2;yyz|>W!(FcSP^c{mlniluFP*KFws)LJL@`s#%E0}W zN=k@au(wrxwIXT{0tK}7Kpcm(Bqj6bf*smh3ulg5s+R&JDz;cHh^U6|IDgEC8dnv( z5oHz->>r@{YHGUV7jLBxXwFNExOX>z9<@czmb8eji3l^zi{*GtO>(TDvWKlYiY=qJ z8MvWgX2BCjp;xbd&}npBjlpyw!Q~VXxqJIe2WHS}s+tlu*Kw}9ia?ovTYpD6-Gcz& z=xtZ%*TJAuat%6|5bTggO{%Pz_V2TxE!^EwS2rMIeAL)}DuY%DrXcP)9K;gQrgdiy zo9GswyR-fB?Y-x-9>@6PHw>ZQcm+)tax?MQxa#v@5xR;4%B?b4qXHjxKhtMkQzy-w zk8oV}ELHh@EPGnM9JK0EM!!y;$QuZ!ur+L>RsB>pgZIcivZF8M{4rg+x?&1ACrYkF zCvyxoWL4fz<@Jh}Rhr+F0%)#s&G-cLMKRk`ZB0|bNW<~gAtd@?F(`<4*IZW9Y)pc; z=PcfCXUpWOxk?RtPmBz@)8d_{N*=M}o&(`PL`ilIoQ@$3a!Q4(4S!xH&w#n8bvqNH zude12(J|Ol@wFV1V%Iw3H+Ii1*?nB(#|`WWQ}Ey18f~y(~C>`Xu94PwjH+3~y$bKr>!+uLgIi3gD4Ee*72R>>$|FS^DVEeAAxD3U^qGB@ zh0_-`wfl$Z7SCZQ3u41Usb`C^al_x=W%2PvIpI^tr)FW>?Y&lznA_)#H_<3hiG8^} zpFHBLwX0j~(tq`Q=k9k!%h1ejYPBj?mzLq{u`~>`8z<(OVU3GGn`DYXSNXo6#|Y#| zC;?2CiQAf`^h3W;!Hv#5S^FmPF*r`Q-D17?bo15Fh*~Rqb=Et8N z-=`eE!KwBEVy1bONAOMpiM-I~iSWI-MZRFZH|fuWC+1uEwwxPh?!ZH6z;{U#z>AY``^yrC7DzIU;h1AZ8N*e zaX(!o&kH8fCZnnGwfA?wh}q_AaacP8QEt56!%S-^q#F+_TiD5}QM)vD2>D0a>=llC zVA08|?`nq{atxPho$FOxf_T>KWJzdeHI0icP$nF8_y>6Rgm_4tl6r|HKa!O>{y$A1w>nLsV$1n=bW79EtOGqH;B zoT+3gr<1>))*oQvMh}0%p>)D_$tQ2&>^JnCw2mQrQ=sw^yxJX-OvdvEau;3`}^3tvbqet@UN1{5f9_og;ld9_61=jv@EI83QIv zVhq3dv5yQFcc>ci`V<2+H2W3i0aB=H6}g2mtk((Br{|CV;Usxa-TU&bhi8(B7MGB; zQG2)#qfuorDeUsb{Sa_+W&TWtR$F?`stZ$g&VcMJSPgTNi5-8uPy85CP25uSma8PI!qMY#kYb4l)yUYY6g8zqJzSC!u1!_12U}KHz-q-qSln9GDoMT1 z*T^o|%0gRL6n?-?>Rv1Xu|Gwu_V8$*4RQkg#oE_Jel^! zz7FgE zko-Fh&yPFO{Js}GL)p{{Mvv;wQn_+z9<(a#gu4CH24#N_bs3(M;ihHS)LdyCXXLP` z<*g~@gQNeBKO49U&gSM{&L_l-`CDXDX2gSRU=>hJfU*eCR8u!FFcHN`wA{$mrMH5& z#{YE17LZ_VtVg|Z?tJ1wY*+ zpU$ED-Rz6tFc{Id`(3$c{r658HFVs%&7{watOw_+#T`ktlB7O&%Qezzh}GTAj$G{F z5ue#{redgCZf_gEJ+~3#*_{!i6&U2eL|$=taaQ$D8xnR}%(N(zdRxf#H3S8lEh~E9 z4#s6L=hBvYs5>(Ldd$_bnU$iWyZIWnJzis(oTKdcdW`}pKPvT!XnoTW)I`x{mRWF> z2v(w~d_G$4-|z6w3f+$%2<>={Gk&)}j9YA|V9OvfU#P+|>BB)+N(Dr8=Y4a&1~-AT zFaYUC~B_~~_4_Z7hIy#Yyqwk%gKKZACDV8pQYEJAF^r~0c z1F0TFWVQB)XDZp3_RXTtXoeuw$eGE(&0m&lp$7-Wv96sp2yO@nx9z(8+1M7me6XKQ z&f^o7Z_+B^A($BrFpl~<98}1lJvkhitewk4$FM96JvfFpy($96&l~rHucE43U;RkA zSe$EGD+wD%Vt)JN?@tClt7S(cvkkt3sAFa~jw&Fc_*I#{jxqcJSN-`uyZ3-|ehu3u zBsIKtG`1vr3pBmC=S)I41}RsEP-lT!{O&JLf&f>u5d=;Q76pkY2gf2rmMIYO>^_zp zFu`LPiAdVf#A^4hA8NnTfAs#JA!(CYdb^Y+MPmb{B_;pD?AtUR91^|K;c7J;0czED zKIyszK8h%iJ~wl&hHuL?)gAH@RLszZqI?~^Z;b*S0Oq2de_sK^dk7 zaW0ys9I1xRb zM#$7aAEJ-$(eF#oUk_yF0cRDYxvq)XemLv}d|?N0-Ro*eBg6BaC|b_^_oMnFnW8Z0 zUzI9aXqc_Q7^C?iS>Jr7SWg{p*QO$1FX8oYMxW67d`y#})n&yhUKTURr#BWlTz&0v zzI*h7f}GnguFryW9kygeX`vHYkU>5RW3XL*@N$PXUA@ReXy93QFFcixKGYM z_Y*GJaoOSF^1}t|EckLwdHUGzc)488Q@q~810;@|B(^Z`<~T&mTkLO#B-xpf4Rdx< zlfPH-V<+4D#-WsX!cL!Nj;(yuc*A-v5hXZ&?%sGt|FTL9J}Q*yXyHBEmzD%ZQnjI3 zG+@swHM~sqQ4eD0(o0Y{q4D_-kAgJ<5XFO7mHup9uj(iTs@zV7{yZ?eE%e2IeFb$! z*R`~UbQ-|J`&uPA(qWG5-Brq0ya3N9)vf5AJc`}xsv@m5=QdHrYuZsN>8Y0>9m7wC z==)ru{X&iK%emItH}1mVD_sbbts_-Y+`iUNq*=7Uo!b(`^b%sS111-mWOqccmnTI9El$Jl=V~<2;!U&m7{@^}O1y7_nk zN4Dye3_U)_cz_0$w>AR|966-5D2E$Q8bjTrf(Gsz5Jj0t{hqffUwQ#5U_s)D-F%TP z>Bw$T6*cM@+HpoQ932096m`D)tIMZ4&%D-UwS*D}kr@=4EoJ`K9BD`18D4HkmCsa@ zXkh*K11;N($A5S~&>%lztqovD9qOzOJYJfu&K8T$YzB@}DM4Li7E)cb*=OwC-Y3rr zjOk%}TdmhQ7@F(y=I&iS;i=ox2j8Xk%8cQLb43EBruWEzL^<2ZVHlc)0ZpyM8R2i> zUNLpN0X(10_pjTgV+X3#Kx@JUY*)x_o1y`=OLj{(c`1hiRoiObDmv6F7lPhJ44P~G z0=D(WW_GECnAI%{o-Q`EIW}seC#NR539*qUjAJ1cAw|K+n!;H$eDDCbDi}(61-wS-H*rJjqs9a8xXwT+JqN_$c(NI~{IA92BI(+)Q}?G`tvjZ)ThyMG$C$LXI{FUPgXNwTXA~ya- z_-j4$Et`IDSPvEo$ovOh-kPj`4}*3?k0Q=gusw_S^v20W{{0j8P0LLYIm^{xqZVX1 zw*zI8w)6BO=kE`E3Yhf0Tg=nQ;AUHJ_QSmORNYS=3GcUt_sc<(ul*FJ5W~ef9E-cz zo72wfGv9No@$DA#u!C$De>YE^U^{Zly<_n0G#Mugx7k;fB>Xe9kU()g9QsV8mrna7 zt`2#?1m>Rc*3>QJ^}(?j=jl~)nk_+gWl*$MShO=01IwW|R>JF%9QytJ;rPYfn%O|( zS@z(u;v8OXzx;@W%k3kp-BOhz*3APyMEOc`QSy7PWFAME>@8cbw=s0iwLjH0VwEz{ zzj5(Xk&A5;o3ev{IG$#f-SMpb`qq-U#BCv_Cb}YI_*XQsBK2EHSXboUWG!Y~)ZNoJ zzB?9ZLu-#1Th>M|eqMEpGWVdDhZNP_^=2JGT+GgfyR<3zkgCVx=_~$R<_rk(b=*2X zdPDCL7o=6uZf<5^8HB8IHg(<@am42Rs4N86&dE8)h9)(Vtc}eV0HE;vJTaN{)9b%- zPZZ`c`c6CSt}eN|%?|NN%jSDd&g!s#-Q@r!Nvv*!D1I_XW^m8vRQ&b-Kq;Vf%>>fH z4e%4G#30I)*o@)vFMsz1-IY36Hik^Or8=yL_HG1}m_#`m10Q*kJWm zKJCAkt)m0KyFJGsez!(5ddL=1L94%|XZ14J*;#$vsjfGEt+}&FQ?n9&{O+0Oac8Ry z7q*juqL>MwpoNcfIv{BQwCdFH*XqAJQ}ZA^uqt05>KB1T?p532D9v2WwqZurK=-HG zCtE?-y6D7KJm!IW|FvNYCk~k+gcda&gnsgJ;^4T3fB!y>^L46BJaTFD&1)lH+mK}5 z)&%19tMA8RT@ukQddx!?PMu;rA3aH=NYhg{u)i^opvWn_0$?31yD=R?O>`m=jvVjpRHv2Ol`~3M49#jWYpA* zfUa+Be&!>6LOwrdfocG*cdR?y^hOA-l1+%tjulbJ!<4aPZIHy`Q<%-P`XSW5(n;r)8Mr4ZM?Qh=d%PB_;3IaW8Ha;nFUR zDiV{MoVYK)1iK4vIt<*%B_$pDb0@xB7(aB-P~X6}GuoxB!hu7ZmqnkHaaH{q_7{vx zfW|&nqizpQUMwd0=~btk&(&=Kd$iqal@kYiiuCGws;82JdYD3Kgz6+nQm(>Ey;4J8 zJvt-d9b9}lY3c%aKPeVm3K-BW zuic<&xB)ZUQ%{CcYGe1++pbYdQbLld!T?VYI42v%^0D91mZ%)sVQ>H6VCMF+2uOLd zcT-z7CD9dJ4;6zdC}n3GF*Q_|W@zYB79Ac~C9c2@mH+!Z(7dTX;M97a>KJYWbx^nmK*4if*rEp%_2y;fM6Na{Qc@)%fNijCPGvqa_QG>g#-v zod+bGZWfooW$~|~Uq*K*J7#tqoLq^^Z}?bB|E*h*P3gIX8sbB4KSW>qT zu)m~$n!MRQ=$aE>1|~JOQZqX*?^N)R)dn<+DBQRIb@goRw1TZpDK}YOU0oC8)wU!( zI<%S-!XdYq0oIrPQ`G2hH15vFha0F`HuaR2j^%bp8-lno3h6WsN{uPTYKgrcnE5&| zo9bggAn$shXBe>7@8xkr=oa;S(OmG2LTgCMThZ+lW8X2~0_LQd?3_ zBMKxHEOcyOC`;TV0Dg|Zz*W7aMLqE|;tC~|u-Z2gV{nd(_0wex(cls$rZ7epBmH@^ zaCMozG!K|XB^Wf}n;AJVJwZTBBh=tQSdppzJcSwYx1?JvS2+hy!OS3)g0K1ePfH@| zLp99(fjg!k(LX@Ztjc`i2N|?;5#t$>M}6?J@shHb*i>>V@*%M3PS(VN>dd`{`pKD$ z6jVP*1aXq?xMEEn8XNE2b_cg@D64aF8%V&>74JD5}q-q8#7zYfP+UMhV-0q+1p=+Nc8f` z3JO{e^Zrrq2R)_#mvXY*OgA2HZ+s6{e5b@A1P!yj7Xq>l27S0n3RxZaEBDV|?+$4< zqNEi%Fo&q2O88BY2U<1|@wEG*_1(4;3xr)LzZIfKXJaPp2fYKxqM8Su_;7LNN-QhO zeWNF|9bQ&~+v;mUXRf#fjQt095f66Hv!T*k^_^7w8rY&Cker4%=B2Ba#fhkb?Cc;2 z*uym@g4Iz>W$|9)RCm~oeZB|G>_j3Dk33!<1uBJkQWZ3~aw+1~9kBGhi|o;D8qcX1 z_WxYeDi8#{iEOV2&l;fQN-plX6*9VD?kTQlq+t$_=o?X-Eiwl4WRRFbR#Cud!q%j* zp#k=zgRaGSzHJ$;LMKGR`3BN*qgSfIL0)vYMoOm0zFzC-fHGMsU9S3w!10)eFT!lA z77kEK4Sl^f6dd8C&N$CdV#bMHsro!JN+bKLgCJFtyE12_Od2O8911RTJb5CdT6x5L z%W;FET9?&~LH@^&KvL?42Ep~dpIFF_0v_^lVq5>G;>KZZ#6aqXB6Fm}BG*aJge8qv z40z*NQi?;qQi-gqW5-TFpxSKFA|)y_$(r`W)%32_?`MaAzE81tC@@qly5{w*&b0S2 zpzqW0JWaPoy%Lpd0m53q_Xk9m>4ak|#G?)!e*ePC9Y~biv1jgW^Zd5VugJ|%wfAUu z!U&zOX=_PVB~fjxLpYo{Y9zB^odQ;}GZc&Jfpi8LIBx5QNZ(=adf z&LJe*8xbIV_QMhHRr)|>+ujf!I@r0_Al}l<*{p$z`!X}zN3q{v}<4|z?7+-mEQnt+NtZiO64tGJ+FbhRfekT^!1Ia3`5CWtg zbmhQ)T>IGXSnuWAK#f&FD^2x6rfT8uN$^Ix$Ag4JLv@A>XmkR2pF>ImFWf!nqL~~g z^I5bp8Ba1vHB?P5E<>VXNOn>q%{$wlq*w?GA*FVlj@|~sU4c_QVe1RD8HlXL)xdqs zu04_o@~{nmfE*gZS2#4E*(hWjxnnbFAufE3tiqvoAdvZwNi^2t*dx=|dOsT;9cD&W z_Ka3kmbnLSZy_4QtA>?owIF>_{lmH$W()J}9;cHs7Vmz1IT0YIk(h5%E=X6wLl1)x zdf|7RxWX1X)xXwLcSe~vIM_Kjq|vbHRSpluGyl3~c4w|c+Vs?oV}@7{cHKoeI)m45 zqRx0+xOjl8HE(H<8%-h6c>4C=9pr~YP?7DbTou#T?Qa}K^fg#tl1CK?h_K7=-b8nY zB#bx7y7o-qapH{SotihHybJqOY<3J5;K*dsjuf-_%Hi=&DjHaL+{@d)?Qzmoatnn< zV^o!`T+I_QzFt1ZLqRQhk-m)Wf&>{P3huWxXw z-*4lctzOM;?dv__Et3v-#vDI|x(#KD^MFgUlN;Yk zn*=GXrY9vOOFVCW2P9UVe<9SI%;}Z%snro%O^P^@ME?-{LpeuM>jzOZ8MXxFY_*_g zBeC#T7c;v=GmNqbki{zBYupus0d2b3C(ls%(nTCQ)pa_|Dg%+SMZrk_+d)}miQ{(P z+ds*PXUm0}m+GR;e%%wqhDw^P_P62EyQr2ylFU{^WEo=$ODrtYyNa6Z6LfY;LwB)c zFt1c(3@?w1TktG;ZjppQV)t5Zd9$ys_Ft!<;Ot@4@l)2!<<03JrGVL271{@H!Q61A z>IU@%TLKmlep)|<6n%aLt3A)Dcn7dQo-Bwm-zT&yPCbhu`PwflWrqePr*Tpop*Q(n!>P<8F|KZZv)q8hod-+;|;c_9fd;rn`CxJ+5dbyK&9-ezrii6&JS2r~iG5Kt82i zz|R#Y-rd(ak*1VCO(pX`_Ah2*@D+Q{4eaOFzJBdsfNtQ=}XmH(6atm$^zx;>r;LDluuXpwSE43lTCHD zkf*ZuMGSG&V+VZ?ZTL&4MZ9?Xi_?R`Ahm=?4?aEMq6EtenWBwu5D(R=AV zr>Xws3q1d6p=+;l6no$nuDRwU!2a!D%i56Yq+odu+9OYL)$KKrPwmzkTqdVNW|U(t z;F5#TNy%J zwaUaz%5ZAl? zlk+yFBz~O%3W}^OA?jef4$7gNWQpdBoiHbv3BB3Hlq{OCD&b+<6Oo-`arVaSsC-W!A7 z0xh#}-7&w)SMSF&YPnh6c(ycx7Zx7L?@qH-EOqirufWVO&uqK4iuPUwQ&T~DN%RGC9FvIrP`)0aF>dZXU8cV1K7!fY(ghc${|V{TU6J$M&(+-_nd_92!i>aN@{u+xEtz~ zjJc>4{Iy+*={cKxnw1%@l0iq5@=w-^g#w9;*PZt@UVUzAim1Q5alMv<$FI8?vp8=^ z+9ToRmirlQwHr@$5pEwZ3o0u42>olfI@3FQ=7D@(5Gw`&Oi^J5*dQThD4#m3iDT|7{ z+dcPD!=@H+J7UI!y-rCPnjm2$XS6fFPoHYyEC8cng)+ZYOnQ0|8eVgAQcyIEJF6X!QuYjHz(k-iT5m`x*_7-l{y{G!?6 zL2PDqaOkZT@kG{PQK)Vm$Jn}vW#%wpn&=HH`(KWgzkdKA(!deh*Ibf<4^p?$jrh^e z^J!=tr|}b#vty!b+vw83xKOvW-3XTaHi>%sb0_sRsi3q@o>lzGDq?1c?Y4bP`$Q<9 zVy6W!Cz&@C`{czqH07b;eTFvmZXpR7_mdkDK&;YQl^dzsvs`b$V1Byu?N5uXsm>`C zAz2ZgRAQm);y}3=Q$pK9-dG$d#>yv-Aj>wzKR`D#3qw*tN>RF>!nFU!OGr+v( z*FM;hCgbJ)nqLep1DBx6YhO)Xui&jJd{Pd8`>%MT#a~9XVbL^;+|i0aB+dZM+r`D^ zs-mHlya6GT*&cX!V0vZokEO+ z9R(83$b0&R^}&umHM?<5`h)Svc4MmtSA9xK+9xmjmH)=k1!T4wAqAS_3tzLygbh_t-yhOn1Xd$u(^7^%3N@{JSU-ZOy^sr!A<~bB)WrLJ0+eI{EB9 zBmslTq;Vf98b_R~Q;;{#`%tlM24TaErZt4xuf`)kAV#*rO^U<$b1!_xiVF;=cub>Y z#Cg6RJaSh$pzQ4I%yT^!4@Cfso#M-QhXNSG2FaHodwMl@fLKv+IHjp%Tpa^ju zjsU$6IkZRfReH!bqi1pDiHBan#Eut}8B z5vaWez8$!-kUk%#z}gRhEdn~9)?EHy;E=VymIV!+7npU~1DCHojQMnsy*MoFTh$k_ zp?&P-=^$ujH*j=)XoGDn=C5RkqtETiR~9M5UI{4A=FMrb#9A<3aJy0 zX$+wDI)Qq?i_&G93Yg3j*#sP*SsB~xVG!N5b?2lDl@m&3o|y)atrpxd-goify!vNT zPB)7sYM4U?BdLUM?Mfw6#H|0LksfOpGa{{p_vId4v=rwtp|!BxTtfkYFp!ht#j1*H z)Ysx-qldwW6pZZh6Ya+nilxah1U8kGC|k7bkTrEFm>uujyB`x%-A~0=(dwu50);+9 zwH3z^=_FQ7p!?%8Z(B$z%+bKwvrfs|3YnSb6tMxRO^8HvBFI(1w*>qeV6#+L-Iz4c zA%F~C(Vpt6Cx^9uuAOqnacCFPPyUV)y>lORoU|+$8M3kXY{^?&1Be1VQFv9Q17>c=AY7b}E{^-27%E1zX*2BnR3iCVQ0h=U>^q8d|1LxmJV z!8Ns-UN4@GX-nBc#dOYA8-&%3P|_sw0P;$NAR18JI_FUz3P=r80lw}Z+y%2=ZP-Wo z&1@0${H_PR0FGoE+om`-5;$mSC_4~#7m)x@*JyLXh6|&|? zEt=(U5Ru_jt+ku!LMV*_PYcokWbM5R{^Wfdi7oIQF*Y#EEDLPI5C|h0NWVAzCP^o{ z?HP*)Og#U61snc~D4ooz=)PL58V-MV?6$*S&WIwb_dn-{qSs*tLclZ+(nT%jcSvB( zRGLM$DEgHsX!LKY){m|6EvcaaiP%ernf6O1Qr1!fz@aJ=uKpR4 zm|zM?MrR)b3(`D-GAO|lnr5LFOBe6;IV& z<7WrA<%4r)bD^JV2)1YJu6rG14w+g$oK?mh}odRbVYA0&>kdR!_Eri|L=ihYzd{JclliuWl(L>ekZP|{SnY^5NHl?yZCJNb!&;74! zdiyYKr*?6UlOb+f6lq$f=>D>2_vcxzjG~VxOmwTd!;39|-||GY^X*r^79m7+h$;Fh ztplbA_wvpe*Pu^ck%Z;$_r;o7*Y;B?@kI8yK1%AYHM=+N*_f*g1gV2&!w2n`T|0+p z@Bb`>c^RNVq1E%j&0qCw$%55vx`aMy=41ivxbK%ch$r$zkXuwjif0^~e%Y{utAo)2 zaEtlRvB?l$`PG#2g=pK{LVjD<+R49gpP}1%ThQ>)u$^Cf+s%ho^|R0Kc0}JiLyrF< z!e{M9E@MWW3DC)G4CUVk2ZaNGPBHIh*3yUjilelC&@JJIw&Fq1--@%jm z)o!VKmzVnM-P#V*YJ)Pnkq9#1O*A9PWDD z_Z&34`8h}=7=W}(Xh~_N^M{0_k`J|*O&nrdWe@zSTtu(GM37JV8n6|M7DEP5v!?$H zxvnNQ!fc1%)Ku}CVR}_SnEm?uK;>?W+#)S7AbSpkYS_m*IkCCUdtt()%SjMvn+#5|pnp4Wu4K*?LGM!8YD(fR&O=NI#=8}f z3(j5Jt}Pz;n8ND0EO(R;XAW{m9 zqMl=qs|cE}_GgHcB_V*$EOSzs590D4V!Lx$j_-CuDxp5IUel|TADlko(E_5V@5jN_ zMa$aw1?17D;$ta`e0}ReoTa5+l?zDVl*v0F{k%2-^PM{u-Lw5(fx$j1ZdAH{>vSzK zlC9`D>)liQ4mg_uAYg?AR?GIr2uxYZH8PZI5MNn}5oSwKV^Np_A`DWqM9b7u90Lw% zg2J*eHikP)=$BRv7*2A|7Z{4%yX-_@i52hQ;Bd!ynMWL1rD9XS4+~o(uE%yxif9g= zmym#m2F^<3OSTT44Idnwy7YBcN=kOg9D`0E`)*7=6imN@UbF_A-+4DuWbIulw;2qz zxDHlw*-LGjC%ZRjmHQ>QQWv)W=I{o$Eq~NrnQOSR9P}gH>hAIMxQ4C%j+1Y82Qu-? zjoPj4lgfMeis4&R4*p>A97xzat(PwvEz9Cil*r1l0VLvh;mxr765D*u#+{& zr5lQ4b32}zb{{t$3VhNwuA*oBvCd-scW@KrR=|F~cj2E|{QI%^7BM5cv3;9l_3MW088JY6sjZ64hVhiERJ$GY+iqWN0F`V3nnu%1Gi3qi8>Tzhr zZj`h38(#58fgNY`2f(E~V5VjJ|6g#wSa}wy`_h`{rMVDc($G+KEzz=KM7M?EXaiUs z@GesXVA0%1$zr!aN7=`ozMfIe{@CY#BLSnHrdMIzEInyH<1Fi8j@EEb&2&&-=S?VE zcN5U)-KW;^!ol25s%S8M8_h0O|1tU91jrrGH( z>e%>dGVrCZ2>xt~vBxRSg@gp-5tF~xbHw7$GxC~jke@)zivz4(%P3()lgC*{7#`#^-4zAS_UAJW^ z;^oV(d`Kx7JvKyOAAzJOY3iMhTOo}!_@9W>DFXe_2+X_&W`@@-s)pS-=1MHcVF0v; zSKh#AWv@&KtyKxty9sGfst&mF%))NKE{&CQ=2wI_*P}os$Zp*bv>wcB%MqC#tF{f` zwHeC+F#qpYlGq?s(0c8Ncqd;}KY-$PHfmFs7rA|u+S--iU3$IIj@DgUP)DrMBw}F% zR}mBQxdYhUDG<~v@6TLppCAE-U+oLtetSyzYwf?j8$vW?Mh^yN!K;ynQ$Rx&^}game^=sjJ37H4jjjNu3$T{$*M32gA8@LiXb)+p>khmY~&dIvEyQB94?tfDB(b#T04s4ip zf)`B}jhXs8t3&Jkf48qe=~dYiQE=z>D*sN;v}yfpvDYQ<@;YxW2W(0k1!qw5M|zxW zN=tp?9Z7bPg5>a4SDFAI$&kh0Ynl@QEcYdbQ5oeKAtx~6^{-|g0&OJuuAJc!| z%Zq)4JwRz#*cx^Ig(Xce91g;Mj$-fOEmycycGEN{0+r#UA!sKilToN1fL1Bu=$>1{ zK~Y4ysY`ks0A9=Q-#8ij&TS8ulV+&)mc4*Fdg?5hUfwSWl*vAROmgHONB@RJJQO?Sryp`o>%Or?-g`1m|+d1pt?c|*^P zjgg%*LS;5IBiT0yX57A%H31WxDAuWH$6u;Kd>tWM5s)HQf#P3Dnd}wxky?o5L}{va z*dI4P|ASVug_^p0l2A5Vdm*{S)a-sy74}Edj8P2GHEce)`QWFL7z6Y1*i07h=R+Mr z1JuWo+`bi}HtY~aXRzMW1Sbn0P=tfp zrXFXy3cEA z<%uXOG)?|~XubP7W1>-JrVKP8vaG*{hv0bWz~u`LXbT~8DyqrWbfhmew|g7-o!_LO zr&@xYxxvo)w}7P_WYxyQ>4$7A5|dAINW%d7mPK{EihFh#h~*{EaEsetvtk2H9UN^n z(FqT(Up0wdv-z<+p*&=bWq$7jr?q@KyMP#(EsCW4bJIgoaaS>9f+>m3^z*Ule&Q|6G8h{R*mbn}D_zq-6ZkLMU|WJ4A$9WB-Xl7ad>r z^vnLtGLO(#XcV{wSLMq2Q81qBt9NUru0hiJj^%kXJE&_jQ!z@-2&fn2)f^?C>+g@^ z7LDwo%p%gh?)hImf_2Nv?<%)v6Zph@{o3z2!ys#llRG)NByIQ>1nJ#&Qlqg3Qoh^! z<{)P{%n<4Gu@tvzY%8pGT~&U}DLG>HV->v%gu4HXd&s9Rt}KcQK8G<=wGr3CL~U>v z8xTQ?Z>48H27A8LQ}K=3Prn7rF3^y)OMaxn0UdA^z1ByfBN7jbD*9aF9qgzjWuqI9 z*@CYr^z}P8|LlhM)FURUpVpf`&(kvq|6$MEpa1L&+F8q(m;Cg5gdQ)}==e}nsbx15 z!{slu0^2)jDRJwi$e8W#ItwYw8Gl`Tg7`Mh(D{7@z@8s1peS6|l@swgumZc%Seh9Y zT<`2IrZU{wV^q(gbt`z7JFxebM%p&NdX|7W`?e}>dv;KH(dGYi;9!cH)7zQ$YDvQ1 zMg*JN5{ny+8jT&XUa2k(GfreLgVhJo$;WGtiF^%G zy|gdK%v7Yg{6clH$Ziq$F+R@SyjYQc%&=hR{^ctFdzTejsv_3Y0Dco28ou-(!Dnop z?Oxg$!+epp0t3`k3zw^`dIK4oJ+Ef7?Jl0VZN9;@JwT2)8@g?MfdP`SNfGSjE{?`D z)f`<_V~HMo=tsv?ofw1oNT;)bDu2X#8R4P_b%)zm78mPl*x@HkhD2nxdNpr*LKCpU zAJ$F*_hr*vCOng?BJtCmbV$<;>W~ZPvX0}wj&y`*PLKW$lCA(%(YWsx&`)P}SOEj{ z;Gm=JCjA)=up%wmcf*AHpe=#M8N{Xf!xC`~-Yt!4hoGXwhI zjQd>ialCeLq03UjLzFd5>SYif!IfsPG+!c~pwv5)XT*JKA-VLFZjrq+FN7H02?8(I z^LV~V5kG?+b%+^I?+!JHy&lKzpYfa4hhuCv9`#JCL1m4?=v+uxSbDo&O(4XCKe>{=f0_jb>vs_ji@K@4h7@5@QuH zoZJ<$RyvuvtK+67cG!$`C%O>{g}I5T>>JGb58C7T=d*eyODB@Al}2f#y#pK-rDjlC!hh2#_4wCH~1v z-PkP5o@6asVM_o{pr#RcgI#-6eDSoX^b;!sE5nI^S$~6thkNC&a5fZ zyh^n|GbJG2?Ft#@MIoJ@0w;BHxbHC0#f6h`RVHa!)ZSp5RR=SLS%FgS_O?#haAIEH zfW`I_EOoBg=v5pzGgzuqtd6IchYzt@!chQ+LblOD+cfg|@=!!A57%xH8s~+-dNsc2 z#T*;#YL?k8F{)EjMM>jP!-?)2TcVRHkxcjjDx^{xj61_``rGZ(UZ-4!{v`T9vv!*S zK74!oM5d|@@armw{wB|Gn7h+$K<0qPA_uB%XYGz81QF>ARbUSVWd@ze$8_?73)ecI zERKXP762`xm6i9mjKFQx3l3k0q1j!zW4T4!ZfowBQr|%#`PnFjN9~bNzvLE7r?|dx zkcV&@y9wc@lI*$4DKk#(aH2;OZ4O16_HzDJzvH3QD|*Qoss}!IO)*RTfTO0eWy^m@ z6-`)!&!z>I_n34|2sES%Z!^mEH_u+mwozrMz)=>beIU;mI`5?nVk?3sqULz|Fg+#m zI`|#1pZy-(=ro3$C~T!jp?-16 zX`sF(K+rv@&VYXP&a#}7M*E+@gTclks|Oqn#b0Qv2|)!brHHv+O{?(RRpwmFGFwIH zkJP`C?_M5-N~lE-U-j1rs8BXlnAa-n8U0_>nz7UbEFHG0i+`xGipsUoBs)LWbep^j(J^2^?>>gfZ=$yl39ko5QVAJEu$goZ(g!iEcMXA47L*@>fWK zTQ!$3eZ7}|yD181jCpHpyL|ryX;A0Pqmx`v?(MzZUwreLi(uY+{{_c&=b+r=z#t7PW=1%G{y`9;B@gx(zLUw>am zw!#CnwJm(vOQx=!S^(y!@pe(o|MA`4*hn;AV_%|Dl-E5V&LC-r6x@0fiI<(2QA~en@ zYcVZh{(DE{s;Qm_rKVz*B&s}D{4vpgCjHXT72o{3s7>Rs9Ju?EYV1Zqd~=(GLj4FD z6Ynr2i*=H^S+@{OLXq!FgF1IhkHd-ajOta;8QUn+<$*ONlF7#6@BPT35n@d7i+f>8 zvEoGoFT%V|ha|EuDrDcxq|VQOdkh?e8+RqTDfT2kO}}gWa$jBIp|8iEQl$;EP8BWR z5*;n!+giy<`#yXG^lZ`_55OBKS`**iCTkbjA}K5NHtHi_GjcmI8+wAVfP3`9tsN|_ zy8zW`I?h{nNz?Dn){(b~HwhMxU3hZP4i;XLp3_ezC!zXa!3EK0!3K2fYo|B02Aa2s z502}>?+Rfl6J0;Zi`IN&IUsAzw;77X;4*G+-|uI@6Yl~=AL~cvRlbY4*|7CDRc&>h zCe8*ZN)EdKcGfeIpqXFdc9er;nDXWSs5X#xbaWhTkxDEq;_5LWeV?{cnydC+)SZ2+ z;cn1iugaEs^l$5NR z9CaqO|C~dAs+g=;_}kr@M0B?ZA{(xsSA9(QtDw@w<62Tn!;xO?wcxJJWVVO__`Xro z2_D616FG$Q7P|l)hK{`M?-ZBo^Jb098f{-Lf^G}U*7G4A2}P}`^WEKSp@_u1hrX|# z&Xz2P?qoZCOz4)Qz4Dso(7SC z)9DZrM8|2t*L)+_QJq#9{%%kAFj?@xj{9R@_FvluMu(I#s%E%N)7_(~(WLC^9_WPL zR{rYoUq>_D8eF$sH#QJqU^L6V7w6Ue&LWho)lqkJltoqXeqLyTSp#BRpvIfZSIlgL|*Z$m-C}T2?}rqGqcWd zWAWjaudr)}e{wf^WrsV!DILVn5&``d6Id5#hqKO#^ z;vwIk+7^dW9gwR)X9BOBVG&}wRFydfdUT-aqopqt1gd(HwH5=;XIgf`k4qfeIz!ap zaXIe(y|dy;$=Ljez>a7P4rz8Mu6&lSMUiALk;ob@eA98`mX2U%FbbSiLq853PQCC^ zd+a7JQ>Lj|Z>|ut$=M5IQhp9Or3onCNR;a?{qRmp;qTze=0P!FNiTz1($|`gyR6p~g+^4}97OWy&qSo%0nYk?0y0V&6NH6KcpueU*Is)N$5D61$` zfGc-(yVL_>vFi7GDyWTYl{9nACaHR`5c}}CiPP9HNFKOUIZ+|19YR|qRLGRfRuw6R z8|XS-TR}_(8k(IwMIo7a77nR1-qr}$m$h{a9=}(RWf2Q!9Jh~^=EU~CQcOx^-PPj# zC~)?ndY6Hd7*eToDX|TB_dXNBKb%4*(9i|3Swd!Z)*TG%*(!a>7b_dJ;`2^<9Wxoc zX%8d2l1n@d2H}umGCOKST6~t6Y7t>)zwcrF0TTxN=-*nmbl6}^k;}s_jX!ht*BJfaugVS*loi7w-w2*Q&plF$I;dzW`CvSz63FjHO;wyndgYk{lod?%uFOE66nCZ1f@b?aY(&$m#7N_$&qO&YE zjilrSe@nW}c*YZX{Y@e4**I8`POcqwi7^}q0g%0E9cF^~0pn`qtH@-R8}&gIVB|j5 z@xC$vQGI0XA>W$37E3$C?_Qi-A$3eFgZt0L;P!cXHT3{?#{{pbvG`mChGSOKb*;!b z#keof-O^T_>?DB*%CBh7sYKnX&UQs(^k$sW_LJWmItON|GcOQP`eFSKp?04MWSt=A z-kKn^lR| z+ine+&N9xsQ6cjac#Bb&`Shm?#WNOx>*Mv#`G#Flfv4BZ^MaXIu9_28ACy-*2@~! z3&o=E5#95-%dL=Fk$1CF!Xig2oshGyE@MDffxa8=uHlvx(79f8K1L484{Jq)*(t6<|{!pA!FRC`Vbo; zb?bY*RA9h$IDZ#2G`}tm%?a$Tq!>su=B0bt0!LJCn^bfkU?B6lB~PsOm9Neu3JonEWCZ??6(kxpK6jIMJrlMorO` zkeSSJ@)Wxzs}d4ZO~;673f1!69xHtv6SB6p{$YWTc;+yH->g%K{6{u(;*A%SG}X3z z*GxWx{zIbfo4qkPRl~&etHZli{#t0M0zCr5XR(cf>C#WXI@g;zFr|VdRoK;^9QnCvpcf;MVd_!8?jhETl+Fu&RNF2nlpaEd`9Y-mK%tYy zG#tuhsUQ{=(0V?8T!vVRiPk2r2`a@oB?r-XrJ{Jbouk)L)@YnyFEc0z6l=z0q0;Dn zAH`sg8U)caWAnp(PthN)){D=Xjv*Vv&hoX*o<;q`(b3oH38PK3l3KcHD!jK>JXCYw zZ;65ciI!Ts=F2GtNGFicI?#xR{r}z?70Z9LC2x5|#yY%spy4xkHKJ@uW3Q%YoiLDF zTud3F6$Wqed}p^#JJEJC64eFY+Th)X7knmjZPEnqI|UK1bI9#gllAPp>iY3Ge_)$H z7JT`hx|5G#ctB+p8mw+haBpL8s8NP2SpHUBL@fiKH`&%C*4K$AgvcChZ;$ov~ zdBK|injXNT+6yRRpfUAbEd52K$jww!{?zY#Jt^);f+u5cb(CcrS|_!alYBzeRvZa( zyGlPwny2AR)^tU146H4pZ1*BJy8Y2+I98Mkkta71wO;yZXlYVVT+!YA#0cr!Q3*4~ z(zhP>&V$%t)i04G!t!8COs;ww)A9a3?zadLpKh`ww@7 z0u+Q$&~Xxs{wX!$1z7d#@$(?n=MBX2A1)?Us(^jLFmy={MT;e;BvJ!jr?tLkdO2Qe z_v19S)QyL^m)Bi&a3py{h_#tTioZ;1e0@KE-JPB%Jlc-8yfpqd z7Im&T{n$mS!&zcHFg47eI)R*BS{reyA@*qJtQ$1-$m!J4w?eu_#NasAsKoh_ z>!cT(06e^miOF0a2m)P-+`YzdZzIO+riQEk})-r)0`M38c9`%j{l- zwr$^1v@akpcVKVR8jV$9FB#RF%jW3!PKrBpFrZ%pszWS~6E(kk$Jqu-3ix?0)_4L|}Mlbp!b^mI1HZUXJrOnSE7~ ze8>W45y5GBY4FB_akne4MzLhmw%jv0WelmkppI7LCiD`ppiKkNX;*iFCW@nN;l~T* z^-%O%CnLevMKej2t8=$1h1tv94=~-&uymn}G>c0W(Eo#9+BV!dGkxzgu1yQeb(k~e znAefl-}U*g8Mqjvud);w{BU&^xCj@X#q_%FFub|XWDdFb?Fn0SPelSR)Q z!C(7<4XCj5$3-jE;VCtD{^~4`umZKTTE4=Lkra5bv~~2NWd-Be9wX3)R<@2|Y&Yqg zHF}y14OwK_EC9bm>+%3s*9@=}pFacZCvIf0t>w-amwyU;fi7}NSGzy)0@a-cR>VD9 zD1kn1^jHpfH$`dc6e@ttGC=8cb#zjNZIJQ?%@gpz;2!ucd`qwkv8*?$T@eDTL1zPN zl|>ME?nA12=_NDkNW?qWKW#5aYKKbw2M6`KmI9>_)hph6Kg5v=H?D%Fy}HVt4F5`n zdersroHk;{16?gZBu+~=INi@~^Vl1M@@&#ee-JSu={I&ih)TWUELe!|cB$WjZ|H?MnHt(gOC=oom<1)}MkbsKZt<;$;STqSU9wSw=s zpPlyu^iQS1X7X~z&^4(uQ_`RFbpin)fWIm5^)|Ld{hi=tZTIdq%E=>jY0epNV|Ird2aQQlT|G=oIMT1*%KR>Piog)AX$EkIGH66zE_jh;pyH=44l z1+KMy?d&|Le8AlTAU*RRidA^{*qk`LdnAMhFO;lvYJ-8&2(ya;uVa;=ae~KT({#(V zK>dr14R7>9z9D)l6m+S?c23SrJyV=>Nv+UN+qtR=qvf z`DSy0Pg&xXjc;8J#qA>Qd{kkm4act7)I#9K-F`zVOCg`(--TP;a=cpsS4JIOPomlBIJ+c6el}Kq$aet&*oXMcF^!t&EjALP^9#5!pZ39vHyWgK zSZTF0_7m;xoSgTELhl08g}lrO*me z_uaxq+eplF4$pv1;O0Gg9aD1He2_kfDF~H+JLuvuobZprA_`%&u5)zU1f7M-pmk{~ zU%+1Ur=*4aQ!;;?QgGHg4J*tHyBlF)YaoT)sp{ZhJ+k-&C58NsY1q!SyUIP2DU(H} zX`YNj$`~?H3)p&h|FHDU@3|d(A>dwit7oqlw?Ik#jVp9FBvtUNlIO7=it>%<9MOt`eV{vSGu6G+G1!ILL zuax$NirmDElC1An={<~dxRFWtB*^%v?(12k^rrY{lHwl1_^>*obWSum8|t6dp{>4m z_8l0}SfWY}`2{Pfcv3A=W>ZwDAp;y{`k2RftuJRy;P_$RrS;Vff9zwG04kQz(s~*V z(E@noXVNPOb2F&Sr8MlhXZ^W3k?{g@!aoEv zEEhjtp4$e!n9g9Ah15UKXs-diNp4*c6UpGowZ*w3pU!Ed<8p>6nTh%Kuxk2r;a7fl z6-(R#DbsHjPeT8ii%A=)>g~?C^KCD{I?Z6y&F@r={V}En^SrL#7yL2LVhnudz-$vD zlS>ooW}TtV2{|D)l+jX2da*XlIZd}R5l2c3t*Utni1#j8PkYkIVmlX8!PJEBEy@Hdp}vtmQY9w zP%keQAfze=-EVR6t`@eYbXOUnbN^?@c!5mA-#c`#2I#ppB1P=+Hm#DDx2W{HO<;a* zDwUOAq|qEa3sP1EL2?if(o?A=L9H2W#|E)Fz>UC%9r#~ZaWVbD1$_?UbV@EHb-XlaaxYi)`L*Y7hg#aJD+G`@%PQ(7+=E_u zjEBe2HVv!WYRMDUHc~%b(>zt5l-e`dA;3QT5r2$R`w!4xFGrt`nuo3uq4e?%TL9h`>6;`JOLfe6@ zcnsau8=}M8PhkLZC03w73~B)u890*GclVFyP$!U9`rm!!`7fqxhl|HWQ&89E6^q1h zq=Rv2J00sXx*ec(j=GyzBW8Y2JdC@$Li3l=^se(E|H;S3xT*df<9e;93Z+$+w>$t%~0ww~S*b(62^31U${K8Sis2~zh)YI>1q zs!F*fw}BvDT9C`Z-8hUQmJAFimW3^smwUGEGWjMT36+6f0_cSr6v+bS!adLB=L0oE zBj+)Xdf%*C!!T~D?`@a7|N2D8@w|ri$Lg-Kq|t4J$u7jt}g zTQFcb8~@(ki96lwQCmnK)WQQ_>XnH$wWk^;Q*BhAb#4iA`sQ)&Xg>07g{L)>|8foP zzH?H@C>q$3u}YTc>{Jc%QjR?Hh*u(77<%KL1MatajNb!8Kaf&1n7}=xo0U_=?!&}L zMK4Q85i|6@k?yC@-ib197|wkrAhgE~mdz%dXu`H2H_dwMv==&4KRl}WwoXYg|3)%R zcx*qgMHa;$SZsu!-QYXu74HY2$*T*~x=kGo3R9n3D4;nhoQJ6 zlJO&ty3CoPmy=w?tQ)WM>pWY>))|@~+h;`<#`oOjFAfK;ng{AfTWRp@Dfm}Zn1QkO zmQD176Sg*3wlI_3CI33(1IUR_x3Srr#*Q()+v_FsJUOZ_H`4YWAH)>< zEE{7Bp-5D7OSW{Yvs&0D3Z)346}ryKX6m!NfgTZ=w6*YX{q%DSqGMhcj0UF@)SlUR zvG+k5?i-CC>D6`FOBw~K0KLRvFlP)ZYJB%5cfNZPy+8}bRJ1kTwmfcVqseM?#r`l` zu$c%Ot2~o7k{V)8Rgg2)RAG;ZSGJHg*4HKdnFm9q&y5gU^oy~(mT7)gh6IgY@#}Ek zSsR3~{Bf4aK)+5)wly^7m(7OqX6JU1B^dVCxZ9czG2=nR>0mzu!wlr1i(PUe<8lr; zV0yR>{o8AMpimw`>aNa#zTm`iC9g+w_;Miw6~)!2nedNs(s^FjpQKh`xwc3;@>4=G zsU^>HNAPu@6zFp%2y^n?HEJ*UoCqQi-kSVuXF&#m%w}Kuo-#^?Bz1kqedBOp#P+ztNZWlG{ zLmAHF&+WC=K+0)Prk%PCg$uSG}Xd9Mpt)n05#*?Wc#|fU4^HgdBPllKqIbOl2?$IP3w-3D% zvOps?wpY!o)NA;=8sAtzq2wf}FJ79~@vw_DT}J0^!R~(871DkKB1BRNQrAWQjXHlh zhW7o3>q!!}=;%9ff+MxGEjI)+-RFFlo4j><@Oxzx8|rdJsCJaAd7)%tXNWK@6BK8{ z;O?7tH3Af|wB8uh=SovD!G?vLG`P~QX(f6C>AtoK)n7XdOq(5p+nU>;mMk_zss(>* z%6RS$tWM(yFctTgAekHMqj>_=(o3)&YrLvfESsQ{qel4ON62Ic3tO8umPGhT1xaIn z-7A2fmeOy4T-EFGi~9bn6(Yrd))E=DAsJI$|Kf9$1s;AW3`$~y9q;S;g^JkY_mjG5 z8_UeQWCG2frW$S>>{%f#sRH`|L$}zR##DgLQN)XEK*kj@Og@0phd*8#V6_Vn^vyqS z9np+rUcL&dt?MD7q0xBMOY||Pp3hKTWtLI#SrSX%)e?W>rwA235`bjqH}=rSz*zY5 zw9@f1C;>T4Jf08I?2<%aH;c86>cujw^f3>PaWtrt-7ov^T_>gS3z8~=dvx)gXJXBs znEOtK=PnEv7i-q#qD5a+&YfUkOYP`UD!M*4Z8rOO>AJIxnjksZ=tf@}ClF*94Wdx@ zYkQ4?tU}CHia*Ax#UpQiDtNVYx0r(R9aM?VV|Upmdj5Noe(D~=4{l77FUi9eM2Krm zb8Epm7CF6Fg{xKwg_GY;&);E)(F>-;W3Ps94CCef=evF@-n~Wev;F?eONN67|91ui zmV$iC#=$WZ?^ z`g#=i8_vR3AH+YLkhf=z88zamyUmbds-ektd!FQaeE^D)a2kujHsSS3@Aq?8JABH&MLJ|J`sH|@v zAjn~(9J-#fG-qglwJZ)Xz31N<0wh{vxMwIF(>(Xo2YiaypdO+>Jg#AM6Mo%w`%7bM z?*MIsu3u=sj&2NgFHLQ7=o8q-fdIiLK?_+w@5pDp4~qBM@X=vV?9Ftx%mo+J7X2~M zz8tENLthD!aoGcrGEWwY&#hNP+7tCx85e1Teqd9~OH`;<;7Hnp%E0FgbceWn^uC8Rc-y4)_2fY+$kniHCP^f$%{XWe!> zpy5XZa!ap_Wae&-XUX+!wZI^vNpS@5B!RkZLO<--1I(?#@_nwB$UNG}Jbp17Cxib< zgYQAl3-DuYkTr7qqHjEVj!oQsrC+k#u6o}Fdk!ZS$HsN~-Ln0(4#c#FGy3_!MZ<<> zJ?+6q6H+X<^eUzV&nxwTM->s1cLW>z@$orx*HQHR6I=OEw>mc9PJaP0ZEe(u*KK9ILfazPT}1s3+qi9K4rVPB7zTY?KHI0!$!%A5)+9~4BLM6ZTr zan2dz=WOt!D?VuwDAlI>7U>zzy?GQAR78K|<|H`4rWV%hNPu#50U^ z5!E12i?|>#C0OPjk^Ut=cL z{25DP=2a%uv?fibIJxq#Y%C$@gWHHpk+$8QM~?Ry{->(xNaHT}O-u&rEWRr?WV_#2 zFg`l$DA(Z^WlIwGLin}`Hs`Zdlh}@tGGX-Dx1>P zR$8MF;ZFCu9g}8Ha#JF`bSq!zA1*SD=WK$z)FTS$!-7HZ9{Vp%IMo@*<3Fy-p({Ib;&$Krna7h(=sO=bLpnV^fV1bj&TQGW2CF^cuy?<=vm9CgvApvlLiRVikpYX4 zF^e#4?P>ir`mh5iFor0d^BMo2CZ8B+1BC!!(Q7`T&fF#WwDswmI5BwS?+8vlln1Dw zVB+(gtsY6|A$rn5=ZNb(pQ?IE;B00OKu{l!pZ=Oi0t5 zXU>jum31(hJ3u&fO-Z9MwjklH>*%3uYTAGgna75}eJZcVxuu?5C7S zw%QAytJeuAD>2j@QWEX)hvNmQR&-$KrXOfyDH`u=rg~0 zlq)O?Wj1z*sr(mYqCX7ut*aQf*J^_x+yNDVC7%?3N)q&Se8>3%&ak5zctd?;(B~I< z5X^vEY^%w}bG7Xo(R8dNpn5WXf9Y7v{`w$;L4JML*YOsb z?ba2CYNcinCchmXq@M)Z*;E7lYjU;jKRmyCl}J;zDgTfEow4vjZas5yJhxq%=F!o- zBkH32n{gHMtJ?0xS6^A#y3ruat(_LZe-!(O)z{a5JL9*u^s|eDE8L40>BZAkiZc>T z7zX~@aI2$n!zuJR#iR_94`v2EF>C~^v7=D`DGn7VwgtbDV|2n812?xTzjRv_{Gw^e1fGhR}&sn7wS+<&@tx>w>j$) z@yPMoM{Vm~O6F&>*~)h4mFuCzy*7f4k`6#{Y_=6)xgkr787BmItk9qj7p-1e2%C@% zM7iuK{<)OCT#-;3TIJ-YFZGhe3!#qp>*a7Sxtc701OIt8AfKXNaINpwO;h(Jh!>-} zzFIRe)RkM`XfDc~m->BzU$enfY(Nt|;Ws)s4;-^tS4nft&z6nVvGi)6I2QRqr}Ju^ zx55gH`cQSgk?pMC^v;W`b?1yruMFPwTN7b3S0e@w{|xrewL|5qw&=ow>=&FVj>d-;upFVrD+a_|5jta6e6f9ZdU+&{}_>REc z^>s$_*e&vwmX`9jEV=-CV#oJtP0>$9f4J$_ZE3JObZn*Ir=hv^1uX_|U95RUDw!I% zN;rz_Z0Mw70vf0j0*v`^>KIqs_FG0|)&Y|{8$B?_Jdg(7L%eo;x@?{IuD+4bcy?U$ z?3Gf)(M3MB{4JhoiuXNbgX(in<|DRWv1Dm z9Ddc6di8z&d$0WQl69g-{rqOqLqp4iz{uDjBn|b|*Uusn+x{{(;l0(Gi0Kw92^g!S zd7p*s*J)}pq-m)PChF)H=S?&9eR7|h6bXi|MZC40t(svWX1!wY@;Cr!m-Wem2uear zZhK1=tQ+oEzq~JlV{V`5A+WLkal=WiL)wnDLP>dd0btXe76}>NIVugrYQ8uxQ?X_3 zo2G@tl9r?<%h*sG=IzGf;43C8=U)$^NUJ+8_$RuKK5lrNiQGihwEGzY@v*rJQn6H( zx$Z1{-Gpxiwl-Znt+nTFYisDv0yABc4RHyn(>i%gp7^W&b8mew3OfLE8|v?5%LL;@ zkbF7lQJmKbwk{_F;#)(1-U4kj>UG#y$#T!eU1d0?^k#B*FN(BnM~l#Nvgb7j~}*0 z7py@r9~K4H&QJ5do{(fe*t1<$i-n|8Hq@s_Jn@)_h2`@Qg&?^0^%8TQNvjRsp=W-3Lb~H%J8F*~DxQ0q<&6d38 z|9_$nD|M6ZwllQC^Vo7J1#$>Sr&CjFmS6wd-%n0_Nc`u|RfNeE& zecsElMmp;21Uqu=FKjnp_Yt~2u*Y};3B!n?`}{eA`Dnv(6OJkml`pWf2bL`Yr`&BZ z`Gvr_1zfc+_+%=L=W_wt`5jsBI!trB<0L zz+1i4-#(e+Oach3(=fPoTlj?(Q|7u?M+pKM1b zpjsJ}mqXV+w*1&Gvg+FUBX%GVs8zWT789q6}2m`z-k)s~Us?SYTU|ETs= zmL97?t~1KMdP8mp+qkfRW$b^wb1V9(rTN`b>R*2#OHp^iF-K=j(1Sh~PDNnx4x<>_ zLeO%b;^7|))0th?~0j-VVLJGj)fX>CVL$Khvuo>*45BI-)BQ`q*!|J zq}ieVF)Juq!^juq?2Vm=50h49cXGJ)Y_U7LffLDluu=GWC_-y>*v7|nk@B`f;@LHnPF_2){wj00?3`$eQy+F>R zKE}UvmWW=t=HIqt^*cTKapV2f9qp9{euG9fq5X#h^PtCOrF0iT_Vm|=%S7J5?eP@1 zZ3(~GoyGn$=;{2~BG|d~!$YA8_kyeheatTrR5v1&Ds^llHpHL8RnRfN`4^LYU!LZ@C3#A@e&T^f*PVzr9CHH!F;9(`GvE$gV*By_aSbw-vet#YTTV&vTHJQnnm zK%JITxt(~o>gXneBZ=1=(8{HKhWXY1LvV6u%V)6f(DSl*ACW3ynx}S#K0u*U0>E|} z&K{2f4m9nLw^rZWtB||uhUrZonkfQqfnn@4j4v9=>fa7U^|w%1R3Lgt+88|@oB&t- zlH-;A8#3gFU^vW~bT+9_P&-YR@c6*=4~^rZfy)4}9rtnqA3ocG1wkL=rX{yo@9cv! zAgjE1I*6IgoTPpL%m+F&CIi>O22!^f#&2oI)FfhIHhwQL_9slIg6e4 z4(rbp2p|zOyM014A}9A<0vy(eEv}aSwS$3GH_Z0k@npWWw%>sO_&e_~l2{|DUFhy% ziKv5As=DP?d0%L3ybSJY1(S5Nd><&>L?o>}JCD}+1}jej08xfUmr@oq52ql z5{L>ctPPUo?$YC^5G!g3m=mB=5q^O^X?V;vuX{(i_&y$0LY8og-4sd+q=9(4TzE{P zJ9?U4sr(&BEjU)(lud+LI%x9(Vbkt_<;yic;~RQ@7uN6uBos+CLMYS3xMTb{P5aGV zpQE4iLmoW-OV=Mk#8kLouk{=Eg)U9*)wHe9S9hDMxjqGS*;fih{i~1KfkOmQFaN;B z&5fvHLC7CNVfh6pPIhgsU+#d~Ilc-~Efn8}{;J;^MckfLDI_oOT`hcp^`(fDkPc{) z8%n{LoOQsyNpcxO)DE&$ch-#cQ{$p1;*Im3+_4#hL@6m@r@=m|f|Q3Xn1&Zu(=y<@ zF}SIMYONaGVn=N-BEBnJTbO0IxeNQ&nLyBV&(F`x4yTQ%AqjyUi)}=aI*k`N=WYd& z(uvv}8Pi!e1jN75OH<_;-Z3NvM!G$g01cWd<}OjG%SBn^_@dy$v0PwYy#6WGWb@^g z^g|n@Mm>}6YNJK@=r(=rKm@XJ=)?%?%VWaKiRhIVig}r^hpVWce!)qI4l5Sd0^nD| z8mAe8jViIkM+pJrOlMUg5`7=R*a)k31Ii_iVguP8LkkgVjRZ>mJ5&{TS+{;XDDqM? zYliX1zj|s&t~%VpHQ{vv!-JoFd_a)0|0grGv;lw!C&jgcXgcmp^omHiCW6;F_P19D zu-aOIA_1iB$;QY-Ah|NBsmyLb9!ha$Ab#JMSrMywuv7lPW4e}i0>0K^s$=+L`+GTJ z`Bcm#SI^Yqdj*Ctj0Ehm>)BGp@(X+pSn1IZEHkQL0Da0y36J3UZM<1~_=&J5*#UJL zpK7ts-p~;4GP3$`_A@67e5(D;AH_P8n^KwZ@DgNjy)6ZX*n7z zQfYeWes?ZD$k*2PA9kDfismh&l_8z^JrY{ z;`ooIqssG{Z}jS1^Pkbzz%irV+G78SBV?LyWmo$XoekK|DdcT!jV19`wNukx-m4>) zlO>G@&T6oR8A%sQik<(4!@abv11<}%8eAM*b>M^*^lkFv4^Ms@tOMUofc9#WAlwJK`^3r#omat8j&CqNI&0b+ zyM2EL5!1$@1HP{etdg3%IF!lrOa!#1K$IG_6~b-OiVOb}`5*56%Xh9Kc>`6VF;Z}I zU03!h>6QjNtTrT^*|3vdfh`Pnv^~(xZK+QuVf@?@I%?@tKy`DY7q4eh(AsJ+#XJO?TO-l1h7g4`wuQpr{;IeF?` z-%f4%Yvj`25A94ctT^MkRr1!E_IWWu)TV5TSFw4KM|Q+N>EEmfqPiaXYm0XebfzQW ze7&~z8vJe}i(}Q|j(=p>FG?X#Mg-pjoIXo@vfvhzcvs(c7@5ZoQU%ArLR z1Wg)VRWOgfZ-Llp%Ytr;s5z^Lp$1*?`+wEK8NZ$0vH?xH=RXrrTh&604&{iu2i#Th zPy{WnQRAK3zw#!poP4_R*^VD$4*fyi#b9}P?i?b%TvcE$KNMR2hw~MhFHcs#85}s2 zRx(*IU%<)~=Ca4ei5^X)eLILSo^JEBkJZb7q5=z)lL?wfPAbc&I;fi5tnP)F*xU7PPeB%+Ok_)Yfa{u-yRokQN1xwb~y>$2q;u-2Rj|1 zMANF6t4TQlw}L$jN7N3{9)K(J&3%poSwVMp8x#y>GwKqb-aE?;RmIi|6>5;8?pnd9 z(^Nm@)j;QyGw$-fySdkm(EoVl=vQHao^BCtn{KR*i(@Jx$3B!c`b02iFb1}Z>)%kmZ&9dN=YcBCXjQ-YSRA}EUqmX*RHNUXvTvGEI4h{IOUv>t7}|J$gd@8VH^1w zyr8v1$f)fDTzhZxKd+@gZ2vgT(vs9GGaxr&zu*klxO}p# z81!o~2w4Z4)(K?1O$mJ6Ui|3W z;R`<~nJS>kY{&D}d%dWH9?TM3QNB$8LAmi2rzGmGOFOUy%e|=KV*U&JfU459C`>4R z??k#ZXa4Rj1tnV2Y;8pJh0b2Y%PwJ9_!;2y;9enySebB`b3o#ykex9Tb3P7{6VM1;>fuC6aD`CJ0G}_uUI6-OFdkoic}@ zcWx7b9O6aN7FVl891hb9WeXdtTc*=1PZ=jQw`3W|MjpymzQZ)Rj<i8kZMA`Ij(EorU0zdwtweR*4u+; zTd3xdhRq_Y>S>`#Y*HgUxQhxw3TR9kE{z(wgdVTG<1L*0{Xo0?+m)WV9>qv%HTvD= zk_;i}R7>yAko5@=jg>8ln8Lcc=Ww@C%wy~a;01$v70D4!6|r#4h2i2pc$aHjmpX5{ z4IKO^@T>sMf2Ts?pDo1{nW&!BkmAIocmBr(Z%yAIe|m7>M_vbKs{1)$)?h_ac(H1k zgDnp5YFHSW1|NWFw8p(0uc7JEZ#KLN3+@GCLgi1X_XBq6`}^7Dk2DP#>XuYX_T;G$ z#+gThc3}_Br7{+^FWx^g`zogQ_1jtx?5kvtvbW=smCx9GRH=p%sp#OE>*#I=XW-mI9JV{>l3=J~gi-}u`yrNoWJeESO z52t6-7muBM_`#L9i`O6Sh#cM>hI(B13}=*Kfu9QG>cgx;EN!8fFM0d-c*XbH;%efO z9RhNS3PU)v?!#cg(qvNNW71M^<7R-12M@l-3o$cI!w_{~0U2_{Bp4KjKR&pLl{!_b zT@GHX$9mATN}FsK{5iHtjf9#fja-ve9A0rI!rp^6ykcqlNZqvrO|B`F zf%R6bbV9@$DQ9ETt8c{&!ie`SP3gyIsf5pA|X*lk{ ze-Hish9^fN#;O?m*58ILD1q|LEs8O!PCrUD3zT{*SRYfodY@_l9Q_L)Zz6AR>fCz?G;0QDg}qi>%5j z2r+`nz9@@=Ap?X(R2CT(K{iE#AOuG?LC6q9a1=!%1cMM!bO;os-dnP2zv5(^bj*QYAYwrt8C3{lBBS{z#!OL zh6zLtF_~IPS^6^vRq`U?+F(vvC01Ibd@CJjd!geg9q!i-=tOwB@C$naV5H`OioEt^4JL19WbgflbDANPGq_VJR6y;a`L(Y zZMh39)G{eAu0r1kf=j5b6R3v?fV@nNi3I5MC_06~ns5gz;COChcgR>$Hy_KRK<<8% z0N_55SQQfkgF8aBE5|~g$XclmKtT|n;vs5P5{caDfF~OKsI>;@u&(v>h1{*-Bq_8^ zc7M#lj^K#t5B*?DMzhHxL^1F{p1VIE;NXGq&E7@8j8^(to$GZNOHz;~3-iUT6bQPX z!kT(Pduqx6rt1=_g7S9+)>mHDbq+n1L}vC_5hOAAxVZF&e%Xg8A1xSMM|HW>7A&;k z&i&?kgrnMJjMpQLMhTm(2#_bm(~m9+0wVbU`sm=48IL=v_u;Zy7QKPYz@9rCV$(%m z9u;xWG)xZ4wqFj5U_Gb8`ugd)a}T7VAmJYOhFA= zgayid(@inEya8a+V$zclei3!ZY^Zc_x{{~jNrQj~Ze!GDHC2!bnA^MG%}6=#U23vS zFQw@2yW$;D)6G@w;k_NQ1Ae8bo;!*9`llULCC&CSVi@m1T?Y?pc_dP!5`kGa0?`Fc zV12l<7Y%RYt?37QVrQBcs0xX%EbQD8umZV-**)KOmocFBZ5Giles$#f3Xd~>1k4WDSuen>Cuk*#)6J2%WvZ+tD_N3n;v>$Nnkm> z;X#BN#)jZ&)TM4=ys+hy{!{(YL#;X``KyC;Q+D8~T{yOSiwiunBWwG^OYYemJ;1zpjBJ zP`Cd2hv5Z$((09`A8RmnDLJZeRBaP2r;;oDITn^-C*2UKdi_#4W4^Mo(~`XqGyCb_ z$*lQ1d$)F7z(A=k9T(T{9ZOIgkmFdQsK`qDBE1dBmqG;(?e&esBZ%c#)> zmZJ)>JRQVts#0}XN<#8rPs6q5!0fY7iT?KWCw)Jl+MSe2x@nCm{*6(v5B;M-5)Dfj z<@Lk4p-)8ZY~9RMTxLnjh&xZ{PFMG!73m>4JH$KY)uUdRJ4+!?{+5xsu@vW(0`s&> zNln2Uv;F2peL?uH<$xI7Hs~h4VszL z44Czam?COLUJeR#uFfLxLDGg zigff zx`tiX)9_#qmp`_d15NI0I!LOxLMW=Tu9C zv0~uv?znH?#^Je3>6jD+SeX)$8b6Vg$^*uUo;_BApoMV_hWLXuR}L4gS50jOGowUMo@MEASV!eRpNY)fHSsgtl4FfPoA1`Bt zxqW+mwEBaM?3IZd`ha2)?eKA;YiWG^3&q~X)nwh^q=gbl4k)k_lEg-znxq~kgP_m4 z{;=Jlof`TcU2s=lC)xxb6R5I?XMiW#-mVT)&TB3~Iwnd*F+q;xurYBnnSu8fcZnhB zd|;AbzUwia6FDF?(}@C@&b)lZ+uM~#G^A(At6Z!wY*vGw9mN?&@-n1 ze7{FpUQdg-r6Fdo3i73rl%j%k3S+v1jN>jvym0y~j1oX&i_;7u&0l`kGY5y1bM|ko zW3}*frn|onk2^UjHWp5DIerThsCpkC-?~5cyCMIIQg`XU{z^HqT)wZOyLjH%MIjj@0S)-u8|NW~SBC=c!7|*CRwz z_W?L$1_t!dJR5)qlp{4ctCLD#i&t%0`R?g8kod6!#0kI=?~VzpNA{T?mR^ZU0|VaF zCPvzQN{R>sMK+^Z}etFY) zuoNI3!+Sr57>s@&ZF6%}SsYj~bySI{o)iJPjd$;4>pa8%=zx?~j;hbNfjfFKXq>iN z3du(d2xA>f&x;S!r1=tMt&hAT{E{nS0dtKGtvX!5#CBLh#R1cxnD!emA8AAi@ zv5aYe34TeusvJQB^Hw*5<{hr6E{bcXXV86-47ra8=3jXg_q%po=xwJEzq0NGa}MPST#5+1*YK>jlmk`g>LLkNU}esN|XQvt@Ox6*>hL2r!{ zc2Ya9XKG5>QFSX`k3)3@1NZ9la=kQ>G!D;GXU_QMfTPcV81aR;NoR-#)!p`cf$Gap z%viVLaCBO}G`Z9Tt*BFev#U~$H-a%&u+|bcDU*u9{589JthmH*1<5ehjqP51+IHnx z{ehOh*O9)2XJo=;v)s)JKVP4{v^_z=O0~mSnOY6}exlMVt7hFd*6fs_yJm?Enb0V< zZs_LW_Dm(u+R=_U0y#<>Vf8<$Lb+O|c%4T;(K=i&ZL-ST~Il+i$M;N`Ml$$AZ&+eoXMOCZ1 z7Gxi2S{!ipLAcabTHko%q^E=4kp6E8IB5t`3l_pD?HYW1cW;TirT6*dNk>-irgHn&3^tfWvGO%jfs z0+0UU?M3-r1V{jM66n}&&SNX|xMq;tX3bC{J?Hoz6$f0~Xzu&ke(BRT!K`5JCL~r7 zgl)a!wC*)iF9>kVgT0~?JZN&l%|MB4+xlzAGiov~k5%l#m_NiMjFw6y zK!2%S(<`HI;v}GUgO!#kXkiE)aaZ>xa#Qu57yYo1j6=$?$^-)2x7Ad1@D@m1()l5x z$oZDBYv|2ty_$}7`c@S7F@;U<6EbmDsH`V4QqB?kX-#AR4yKDlLUz~B!^<_^JvK4} zUYKu2H88J_L;`d}z7W{Kq8>$L^E|aL$J0D+NXWrLsGDZA4O$o#r}=hM{c_s-;pSAC zgFtv2fl$>Sr+5yvoOe`S^zCU0d*jj)6+vQ>8U@Xiu^3Y(n@35-qeo8_p(omR+yLR! z`^dr*zq#)lWXo4?qGsl-tgO7rLP{62dw~aaV56dxg1qinN}1n$uMP4_JAHkDfN|M+ zug3bYw+drWBY~|eY|a^o>?*yQmT363FDS#r||3 zI{(`nKCT|wr#!C?Q_Yg18haR2yDLa5G{8cLWSJggQp(0Mu^32c&X$O$ma9?-%otx> z4waO(VfQ)&LZc+UCEmd%r;;!1QkP@_x9xF`KV;rJ4z*HA2}Bz3bw^13IkB1$NOT4) zio40PU0}t<%F;8Wj{>wR8lZHZWXuY0p99o}ME(tiE4DL4)_!+pdc$1`(DI!Uq~JlO z-Pi_h(PBGtXjfaSUM3xmE{Y*F_cnC?sGnK{Z`RK?egpYT1-ZkolJ{_TmJC=t<@=3` zu{}HZKsl4t5w+Y~Md;>`nev9uY`9a;QpuiOKA`I}H zad09?C?rnFecxD708Q#sObsI^AMpDPF5uwT zHa|nErc4G~%YM0$C1n3KS=it{y8RGccD7|WwYw=>R z-G$(^yE-`rtgd+K&H=AFgZfJ~T8;E=7f15t3-qeb+xC6zH1YT;`)zNS%Am??5}74z z_Ss~FK-*9pst>>gu!^}um+wv_cu`?=w$g44tklg|kp`2)SVT-ljm93-A5dY*h6?4! z!?gpG&Z#e@z;0h8Dq-5INb^GY79+m*)~2IU7WlgQigs1}3nlJ21kH>Dx=WH356Ze` zn{4P)lA*SG07!8QSLVZEu@sMsJ<+Zfo0%HhW~ps!OO5Q-ufB;oS^M22rhg>49OQ(s zBG6kFmF@cT&Ddxf9Bns}w@F&DO5vzQj+&8>%}O1=hO=R@p*;6mvDo9Ud-i%mS|D81 z{o&D9JcV2+Nf%EvGgUPS^{cj0x6=6E*T3m zR{WqL2SHzHOT&JB2L&M&>rJkd8p#dJREG`i2I6qQ(@w{=YDc2a%6ut^2~A7{9@l&No}IX>O2OERA%uQuz()Ku8pPt-q=JI~;wfZKUZC0DT20$>`TzF@7IMK1(SAMlTMQ z<*#r!j7jNIIjdh9nVSxj^7_Mga4Vay+3XblJNpc8mLc86~_caZPd6UQRNE{K9W_#7DBpW`=?1>~y0GNz=m z@?`5~XVhgUqM|mcimXQF_Yjtyqk7Q17$2jnNnD`jrbWV;qqpV5wG{f-oD3VHs)r60 z0EC+=Mw&>2-^eM#v4Ubk$Uzdxs_BSdJ0*UB7Q{&sCq-{poFH<{M#AonOquSzCpD5a zLNMYqD9P|tMS#izcqah#mEN^X;bR649|p9p37;1MZbn2W*6dB|Ga19{*1^gYWe|ne zJBZ4$tX3db=nLlYs|<)AG7ikiG0(yDalOrRs$@!;SJ= z-EiykWk}c=qQ0KAgGrcI%*<*j(2>G0!mUlg%ld*!5OTpdqYTU8R96@RJ1~_z2d9R% z@FIa?rjkd=1!&dRl27R6`X@=cdiy7jERTUUB0hNN;BWyMeUo@s8PhT&aG|f75+W(k z&np7#%>Agy2_ICJ?Zm_cQ3a7@w27eLO_NxSeL=dt1B`&#K^z&1du&FZ0;VT-E3AM_ zfZ^3kJJIu^UIjDm1}bD|22JYvhK#k8E9~gbKeb4W>bD)iNtMvt&D!`a3D8`D&A5ms znX-v6zmW}4U5OkpvCk_Ea>)fEUqN#PhfLF6ar@{Q5>iB2FRzaI6codE@!{q1MH zC}?T9v1zPjBqi~=st2nM?({$v%cOlR@1QdY_@;IhOpXb<;*T8VbNz^>W(%j)Q>W!P-qlf)zq%BItw5bltGjiHQ&Lek{i(;lsZ8E+}u*9y&a?- z<_@SHsc2#*SE}Zy=jY3`l!YY|_txH$dUec?`36^is_6E& z(u9ig<;_(Rz@DH$HyeKU4f?5e*6Un6>6hP1vB%**Er53#^T-?lt4F4QwL;LFMg(*N zDG|Fxl&9TdSiezbO2mk}cjJrTICdd6F8)S37t$43Y7HOFG?NY2^rEa$g{B|$=Tz8} z+j^29?$H6lS21++DU>30smdBN=sOh(r`zi(+=L3VTN^34Z~)SuN~ z?u>1jGl^QPy-!ZA++=uqR!gas<{`1<@%m^%&h(Mlnoeq@y!^r9nsj+kIZ?5*~ z$moqYIkD;;n!0lwZ2Yd6g3{BKn%HD~WCE4x4uhnd?4*$yxxyCb@{VM6X;^vPT%5#Cr(?x* z2`y~k3&uy6H3RAaw4As_kaB5A-P!gadW^K^G=n(7&QTw~B|2_`C-~DG_j7zbP+J_vnldGfAh9DK)I4A7S+23>P}Mo3 z(3#KG#C--=^_qNLlpMHTSz;SVsLLU|a4g*oR*iweoTv@!-VkvJt!Y$-P=mf|18YTi zWLb*gA!LPp7b9PsCZVksb$+^@X5J%?OC-xaL|d+PUGhlW{tNEW%6UXabMnr8&co00 zoBH4CErs@Hd1Z~n_ErMXG+*9E)|rhJd~!r^wC^({h9pCXAa05V2zm8$ehzyusM4Tf zrx%Cz?i#UWNh_q$J)77B0>N+xp1}||O?_^yX;6~d%nTU;nZCPE&L7<1Zgo*R!1jX? zBeAD34KO!Jsmnd2{bFH5YVz4eFY0s6YL7d6z2JKXK_{tyKnWucj4-t*9vzglNmgG? z6tvtZOh47;JBbeR+)~>w+r0(VUhm-8(O}3sqSuld`-s^*2=b70F=0XUZN~}py;GUe zV=z@9F5Q-Dd<{8emB^8v?D+n^rTPE0bS#k)SZ^kt)^LGNt4^2hso3nqm@;DOC_?>9YBSmHk z)<7(bifE?PRSe~&e0|1;6jt_kuo&;lT1(u`WCGJRyGDaWI0_$MOhqxs9aMeFDkAvZ zsvt@-;X!wo-mJ_bena*tK?UYCibNG6OPD~z?^J2E?MMWWX0yoY zL;!AsnkuH-E&m|eAP@mfzptEU*}Lao1w*UvD!}m*;^b^p@T%KQBEAT4hb4cFZj0L8 zF{!3mSLsXC0|s#TtH==)X8c=K4dU+bYMC^zS03mgJNOaJ}k)Z2(d<8n;vdRH=R43G)-)ZKb(V0PDSY zGP?oKXTKge3ViX*(k~xYz1kjPnEAw*zI`u{0R^=z43%a5J&MU5<#9`NhFlGX@GQn$)bqf(ZOU ztk;*CDK2u}>ovJAjHST{8SV%NWi$K)&IEUa>1 ziNLlwFI-A@6SWW4u1uh^I=&NDNeDu0U`4Cnt= zSv3&mwJ10-6b#sZ2siYnE%WkaGLsR;++pc9-GGJRPYHB%sGdXVaVZYW<2L)gvniT4)|7e z^9gL$3O0_gg5(fz3kpf%*u&^PJ3?Lciz4{u1{X%u6tvtex5RC|agqy_vVmJmZ)MMH zz>jt7PCiP%4C0b;nSV9Dy)2agtxQGm9pYDYp*<VNI`)CyU%V3Ltmk~x)xb_T-@##=Ve*kcO z!DY(i1^_!8kSe-X_fuztXIBydjT+xlys=o$#%_?45x6q`^ISO&>8L{xuL!*t6u z^-F0QG>G_LFv`DmBIC!1mz8e4x6Ikd@g8r6z~rvk)({?zeZia^2%Wud_ z*F5I$$A}n>!*7jM;!y&CtlrNn-ZJT%?($=j7w@ECh?~?GiGEFnWl^!0nax$gZ^;ei zO%&EFu_uMgpNwkPP@vVeOyt5XL56p4?N*q^OvBcTCb6_O&tU%#d52>sQXt09E5QVj z*Ms{hB%F~6l3V@Pi8>3^ag*rFY8w6|QeCMhcSgVwWkcd#2v=3JoC`SHp>Xqq?#I>N zbxK)pZvlESQ#qzj2_ei751)htK&2xy+BaI%ZG&kBplthK@O=$6n8lIgHhk}vB(h0sW01r4WkwuD}4uB_u(%V@CS#MKREuy-#;<#F;!a?%t|Q z)txI?p!1o~SvEHS7aE$+9IDi}Ve!Ox!ZO{bU%{jaC>p>~ZeulD_@zP9qa2}YG~mFG zL<6raz`myki^%>sqiwKq*O^TDnm(9v{>{FJjtF>2lmDb2HM`Jbb5N@mLbc6CYAksp zSj_2%YolroHY;Fi(a5WN-GZjGq)KZ!?L;TJoQ(dVGATW? znUYqJ0$2s9czwNW%97CoVxX&7 zw!P75I~IRAsCw#9hHT)U&I_=pO|Wgnc8Waf4FolYXf8ME63ASmiY*?EuA+s~vjxWoe4k9a>}NKX z8dSGG09|hNor6h!(BQaW*-nQG$kNM%v~K<+$0P}U$c&o)v`A+ctP+?$CBIkUedKLU z1vI59{FHcx06}$=?pB1T+KD5_y~5n|W)2z}k3p#6F#EHGa#6+#s`)ab@wojhUC>xN zFlEwREgc4`G5~9D6&0(T@ThOSUarj4oF%Jw_zx)+JwRko9d}Yt$@M6qxhAfNze5e| zhL23PK*(@kd?h;ZijB(zQW(fjTTsU~AU?$cP3M!yu?EY7b-m-W2VnA-KWPSGB$vOc zR+mo&xF`v-A-X3;>|UJ|0#T-$lD_R)_13`kZ(k>!CycSgghw=x4DX?~W%SDsxnXy& zeAU)su~t*H*39jIeFSByQIX%4{xxb@aowC4Z(8sn+A@tdLoCfYm9gHHl?}l0eb>Fpqr|iZ zU_arqaCuslMynOEtc5pz-65F0w^~}k0v6Q*KLIu-CLj{P=`lIm7)fKz5Z&4l}28bdmNq(!^z~N&v0Im*HvU_5M@V!NL@h6BX z?~Il&TPF9*F(E;gL=+^d&RpPf2wjt&vF+PngKe%Ksq(7!(DYJ$;Q^&DHRRr*{;dj9 zn-z7QuH3?>vK5jbh;81~J1P;mSm3<#rIe(AtDMa2Y&b;N#wNvC^)Tc1sM&llnI0uwrnR&nF^XeCrKpCg$gVe*N6+K9zfL` z%CqqP)AkLrmrA3!)A0K}#bTzI;KSSH|11QCcz-D7DY3OlM-gbhyO_1HXt(p=q85e}%VIZe#19(8hC zckh_DA6WJ@l!&-{7}+Lb%XUyfR7T&k9sLG6e-Rx*GnGU<@i+TT-DRsLjfPd}SY_*?1;?GP2$6w91?BjISzjO@F)6 zXDDn}sIIMN`3*yn@=<{2mqL+av13+kz0lY2gODKk7N=%@P!j_+a2N!kkkMVIZImTr z)I*+bZ$G=NJd+JSD5V{q=0C%XESstWW2(>j@cn*eby-H`o>i3{=~MQKCGtk7@=&HGq(EdimrPnjCOROZ+EE}265akpTF|2m(0%^!j& zbS@wID&M+|a-O0P-sf%iQ^UI4J@U~u(8qPZAQeu>hMiA5cN!P7wiS0OQep3Y zG!lhe+d6azsbK1JG5$2t)C+g^H2A~)bXWw=F75&{2oymf&G(>?`w#3z27`~haOY0P zCL+x(_JR+NfgQ(ApN~sA7kc_U5}e1>F%EpVw&8vZX?|e;KV?kaU6A`xYbQDe_S=E| z2mZai7i?SnYug)?xA^yd@3r!K{@Jf!>J1LC_)np=1NQyiMYhmpqRqivH#WjYX`2i zeh?Boihte4-u?e-0EOWHuh`mctQFgX+GGCTj$S+9-_Op}F(Nwg^f}P>(cn4`r$ghy zz>{=49eXx098~aM?XY&~e?Na&=gYtQ1;p_`DVNDY3q7 z!v>gqtHb*f{F$T2KJe&;Di^mEU)6=J&v6O4{`Z}MCpW)I_~~@X_zP#4B$kwa z)-!$)7nk!yG`X4S5@3_>cS$n+{nVS=Y10jm__9;3{i6IXs*=Z2;l72>nAaba96m@C z*S%-j-!Z0Y_r9$NvJCE}ZI1onFfnTshhS`0K4DfeXmIgqM?6!`@g zeeycEeLrA(&MZ*xKR-v*HnsaDb?fVuKU7dp??1Z{oih1%t{BA{JhybZ{E*^4li&9h zd#Q(&TE$2{9OA?{X6*BC5pRoDySDDHY>Kt!4*&K)<0C3;A?B~!6)`7H?bXbW9C|U@ zwpY@LzkuGqQ{?tU2)pr!L^i$Y@UoPt957IO^p4&Z3YiQOM%F9c5~BVFGR;p*=b|--p~PCr0K2;D+!cLb?99RF^FEqA1M4#|O8%dq2*0nM%2sol89*r0Q|= zZL##L_BO{$*Kh-;Eop>056W ze_>=49Wl0jc^-4*SeweI%4p7xi|flwwq{)_y?0}G>QVo}1IE~So>pM;fI|Ul@3J)g z`pu24&zfGnpVw-Y@0hsxlDql0iII3IAEffmU*8w|5NGV-UT!-bvH!B-uOY|J)`s)e zWxo3vIxqYdpnffte&uZVDSDFdUW4g|7X^4lV#?=9Wj$TcmS4NI&cA@TR7G90I zm693qG4TGW3un&F^t2k5CNJAv$vjm||HbRlz4zbs#m!es>23sJ=Syq^%t+49{Hp4< zw%vPwU8lZhI2wv{HQ?n`>P|a`HjW-i*kky%H83R6=5+s$VAVeuCvJThYR$;><)5qJ zxY)KGSq_v|KA`Z5k*zx1+qV7-W_F9aXQ`TB?umhhUP>q{l4&Saohpsq)qL!3BW}}T zPcmH1cMs4byHj)1%eowqF_rtdL^Xy-|9I@NZmM+GM@QoiiGQCT_W5*Dh@5{VN3KaV znP1Zxzw<(r;a1;8%Hy)lO=_n0@bKQR z2W~{}I52<0Kh5c4;77fEa&}v=AM;yN9nDMINQJ@=KT;{}FQn(mY=ge{lr2o>fY4;) zca&Ww%7p9qHvv4*K z(tqN$sdv(;#D6-eeC5$Hm0Q#jbT~dyuB~anW(-yyJ19;M5MMlOsY;JDtN_ z1l`7e;_03}AV`Cc)}k!v3uFG(?YSa%{p;YQm{`y&tX&H<%D;>K(~Iu;r}z9HXZi2V zhCCDr+x34P5d4qP!T;|MN#MPce`g!3&1=DDoM)rDnpj5uMCGOZjH zA)W}L%as~cO$p=Zbm8JyoXB+xcgv+9*A!CyLWe*!GC^4pVkV4abf+^*`O^oT1S zyO6Rtebu`0o%P_m7-h z>n8$2Ln?IQ-V2QfN(NkcRL!m=eo)#Blf>YYd!6~c15#?}5)SzTYOJdP!UhHU_KKu{ z@mx5n0tlPz9yn|j81?p^iyyVO)1_D51WEtYGn4Hz1IXuQAgk|}QA|bl;qHSO3jzUi z&aBo;A^DZMda7kRm;l+>YcP0Y-X}BPrw-ufZsC{G2EBJ4H#S;d{&SIGa68#)c=kM1 zq1xHO!8r`(HH$hh;vHQPf4@onY^I@h0z$7SwBl7(yVI6~2*kF1EzTVHc!9q4iM_x6 zUWj8>Cba1bhA_ks05g!OPTxx1&v(qF~L=>0)bCHvRI|u}I@5 z{7k}}zF{NerYEm_1{Uo_`DxlMvmVqxL;K4#bpc~{ifMF*)S;!QQ1w@g>))V)kk0UrQ96<(f^I#@DJX-?2SBVUkzwLno>0{-5y^m>B?=r&0x z0D247PCx(qeNCWU*7rTpK4x*uI@I9V zrRNuQhkjmN3aQ_P&qLbjJp*4PXI&|S`YX?35C0M5s~28xI4VZ#V~X(A+!4;jSw_$? zx!nmbwLh1hQ#)U9*6=`R#p~J4Pwb1G40Ly%FTlN#)){N1<fSor0gZ zFA#uvB9yX7bxjhFcQ%tHHGYEsD73XKWII5lb`MUNa z5gnS!%lmOSk;Wqj+qF~t>Uw9QcSLymA1S9_%g0}!08dCpWaB)5w=t6<8yf|)JI+-t zP!=|xnMqoNF55g1`_C=@&tH1K|D9Rkv3BI=W+8Z8^YWUSURwONNTp|O_;N?K@af}&5MdS_ zO<+iRD=G<*CZ_z=t>O)0)0quoLUkicEoCK2tOPt|-H5TiJOO1k7whpcccE>ikv@LB zk0{ZY-W0mD*u0WEk}J`_^>WWTLM{QD8WZK+PU@|MrY`N8?f`mN>{Wsg zTyDoXa=GV<=dRA+mGN##7NmDCbm=wHMj|=>=ffY^=j!6^LhPtS8T`Aom`R^q7As*V ze}=Ly88k_92@r-ot4knAN6m2G7p=7$QKzbKSEql+@e}dk0s)(0#FpPJw$pxmVC#bW zt18LMFH1j(I1SGn72u=mp=-Yabg(!;7U)Z-X;HX#j&$%k-Mn7tyM@gPW;M%JQZ-03 zIId|^6a{FjKng3wU@2Yv6P6*CQlhSiW3Q}9%Zc|_OEA^v73~TFW(eF*`g-DIND#1J zucmV>tyxEB2(9?kCT^s+f5Xr6Z011RT$ZzhE@CSXo_#J#m}Pn$#YJ3l{Qe4>)slW( z;D9$n;Y`13XU7vgvH8t<$e}MU_g(#t^60}N@Ls13*epD#Wq;8VO|Pb zlsSJ91fM9utB*~#Xtd74&*d6D4byTGo8Q%=c`G^|$i=$j;dx7)za3F(q})9VAxCX4 zA-VJ~@dr!D31Y}na}!16FD#1CUBUTtC4=I__-yf1JdSWo!9b#EDxpB&+KaZ((_K7h zW>qeTxeY`u2!W?2t!8=6DxWWCt+!bLwM6mU79da=o-#pV zn=$Uc&Wi9|Bd41V;p2Y7a*?*&Z)W#Jh2K(E{U@+cKXysMK$zo1fpiB6MUmib5wXAP zvLu)qah&kF?$Rr1{}nqsrJrXmIlZjzf^?~fEzs#dDbNZCf@hQhIh2|}L0ilOEezWCgxdw14eM~Uc@{-I`hQwgRvow8DdOdlq!=G3zi z@C1Zlt-|jf|4LuQk5fQ39*JG|y&!zDse7>2*vpwwE0XM_6InpT!~UktrSa}weS`55 zIdCFEI^{F_EuTLWSt#z8gLEef*LIGjjflD-zAu?D+(dZ`tD*PzFb7s$Hs~cM1?iO? z0Cib?yhl7ubP|7ApbVi83LS^p0#6>RM^wb~j}G2VHYELyHv4@A9z zu=fco4J9Td!yo}Q83CIBF@@0IJp?WtmO%v4q~Eu!S}kB6o|7vi(}$wplj{pX<9?;B zPI?A$PTA1kWd(>u62X?;e96=1-;N6Tl=L$c=0C6DjXycn6FAclxN^Z{^8jJy&Ur;g zn~y;DPY!}RBppRSrnejsS9?#~6H4kGbCDy~Gzg)dlkn<*?7`;aH=Q|IOs&*z$J|vskZYjbUq^8#Kg`yx&Q#097>hSRhy(@hk!YixsiZtXq8@S;u*5hwyZ8H?nhPh(I zl>bWMBBp2M&ZR7S(7~miJ~tDwADTlFKNGK7-;#kcr7ZID1WnMA!up~U>Hh1xAzg^Q zjJYeL7%*?Fjm(ws=alon`^qo6SDJ(zu@LslQ4l(>z+G-hx0&56{R~MwENHp_2`I>s z1G$6axZ$Xkd=O(E0sQcH6aK6gkZYGHbE#4`J#0wCEWlK+eXIGy!X*V%ip9L1l)|o`$YC-L3!!>H!(ct>iUTygHx>^{vN#@Um03U#X@Ph3gLTYTb)}$}43`+1!VT zOJO1udu~^{a|%Mdt-WeQk4eQsO{SlV!q;MH`vU@UbT+hpEdnhTJBg+An4h82^92Fy zerv*aggSBrM9D3uAW_~Gt`!z5R(hIc3j#BwdWvx7*Ioz%owM(hP^eM{5O`s`zYn1g zzz>9y@4g0ibn8kGv$cTGGf)HpdxH8$v(HMXeNm z+qS1K1);Hus!=+ou)gB;SM4Iv3WQjzw#}E@VG*g{1F?eczdo&pK%HMGfphk%raw{_ z?dT$;6>13B5J>>`fx-|wEZ($jDvtSCa*KCak;{eFdZl*Cdu_QTxdIK2>CezlrvHb$ zcaLYf|NqC|SBYWRP!3Jz5YoXCTI4WRD91`%#9FBw3psQtc4cEyIiw?nbQ!0AO8@z3$x`PxrCr1Um2@18(4;NwInV<%o{@pnDrO$gog^(IfJDV8|AX4} zioWt*^B)~Ne*cvWYe5Mmi1vU+2OdjdLNia&|1k(imtt0@0q>PAk|xPDNK2CLSh=+r zbrOj%WtzwEl;DnC7J@aD!+zG)5FYqPVnZ*lyM3d|?CXonebggL$_e0ZDUxTnREfSp z8Vv752n}fs2Xpohs(boj1HI+e5DU^kGi@3d54~Um`nf@$WXYR-u+^%`it+W5tLvU% zk!wc+=#qW1S9vd6payFHIUT6vyq2=WZ+5Hl0hEb*@`NRKolO5nz{pA}`5rD^!7;*G z@}$A@z7scM)T3NQ(3CzloeC21a2C)KsXCxk_v1A9SpT^#Zv+3siG!335sr2{gMRcx zlOO|~181VFM~^W>%qC@yHh6W(^nU^>Snn08dwfwbL&Cp#DIH2HAd-l%bnxEl#Yo*{ z;_H2V$8OA^g%H!>D#q&rJ`kEMdftZtV+;{ii4+75<{GmbY(Oq));Sv41O9(BMf%8O z^gMmR;l&Lg>C@0M00=k;v?8?DxQL`nRAuCI{wj3708JSHVZet2Ri_i9)#nLi z>a!rddvX^u5841#mL^9RE5VpIeMK-W;EcMF9cK1q7C|!!NF9Sr%WrDuzWj=UrFW2? zXw^r5+x^;}W5qjRk&S~@gE{EK@F1RQ-ykwk^f4RlmMIe>qXMn;1xM|^)0Iy+VL=2+ z^+a0q2$j!FpR&zM@|6J#tLOaFo|?>1&)bQWZQS&bG%*FfaFmh}Rd8k>74s=GnvozW zkMgFdsZ;!E%UhLKuR~W5dYIJ}!F!bY#*&cTIp1Lnt8^djCLQ7<^-l#&$(|4G>TK0#%ntpfaP*ekcP!y2lIN-`nt&Ke<`+@20fA}2!_T|_4=+}1DG6-M>5`cKk(g8gPIK|PP-Wk1! zBvs3n4gfWS{W*t**1_6x20Hi{ZKqpOO}2;xy0Nd{66p3aeb$UNs{0Yz(cT720&awY zP5LTu?smke#|~~u{idnoym}K6qSM>s%)zc+@7~^tdnC09(L<_*)0Ix<%2MkER2+B{ z%s;x#eP}jT-yY~Ry;oaoPw4|+062{>5I7!uvKu_l+MZ0}JF?3ZHk}@$bUOQClRh&Y z80-bgiO^(&;62VqwCWGqfJa6`>rs?W1~sot_2rF8wQZH7nD}B}Nm4)Xn}2 zgqX_FoO%6y(p3X(dgw~~vpTqSpli)}6@BkYr}Oom7)l11L$Iu12j^s#%GfGa1Nq&* zO*RLZRKC+RbINNq{kjB9m8|9u_30w7X%_vt~^aFx%x zFg+B&NkI<+&#bOmHm4^6i4>I_MBRvTNM*>U==K9p6SGcWeTQ?poFAp%Je_Iwwyy`E zBWa^SsCY}q>XOBONmJuDt@@wShSIl|>g0W=S7-J(@3{qT1%in_gBU0J2fXviOgmr& zr9+A%@n}bVJAM18{z;cfuj^Uq*RONUu_gkUKQnjf*m%)E$mY zdV~ga=$A4#Qq&AmuE~}Hbs;*ik7`p6%jzlZKbb)P8Jb|ZPq0U@K}CyDPiYUhk*-j> z+y@>fW#6~KQ(dyT3Nw2Mn3>Zvdrkm@282Wh`OX;$p4V@N3Q_{Ftfu05eY@yIm=O%9 zM^ucGLH3)UPw`Ir%G(W64N{-2<~YAcX&lm@+J!5ZuKMFl1sl7e^p95+Q)CR%J8_S% z;0Y331<=G`ORK3C5rO3dYIVj$0z-f)-655o4@g}~x(yvXS`B6uLqSuKhIY8pe(a~r z7NT^h=%PZ~eH*+#I3xRz8l{QA)XxID^9I-r47d+aAzAns(CIf{hz0$!uBax)+zkt5pN8P{9;I$zTNaNr@kRNd9|8A~~!K#(Z1Q(Zm@DZxEXK&6!YP{Iu;KV*V|fC8cQ^&ziBhmf*E z$j|%s6urT^k?|-nQ)%JSumipTc-quaM-8M3(A4dIsX17?W9pd0crM0qh;@D%#QOWBS^GMeHj5n-T&z`(wuE8YFDEHGt`KgR}l|EBF!cu^%7JnxM6fHDLePH@hf6yS{nH0eOQen3;e zNQFr`y#_P!w-dpp2KQ%8gLlKGXHHE47ax&;{e1CxpTbsqaQC9uKWFc!n)onX2ILp) zL+J#j{@l#D-!#qvQXsQ~z$73)9B|Hj12h#LA1&Esz)XLZ_Wm*@akYrW8aPv_ac$urQo%J+=t-( ziE(WP(z4hiqeiU%c}MIQei+R6z4ogh`T(XY zRA&VOkDR#4IphMht}yPYa+y9B`ggr_`jC}C>F=X%q4xG$v}K3skXY%!#$U_=_EFEd z5s8X6NjMC+Xa465`q6h>Y3xESNrwUhEjTnk1cA@InRrE6Umr`J2 zA^x&+|KtOM-=wNC`qh^AIuA3?VOGi+5Npp)PHkj(=r)tSO=vZYMnHyOj6IZ7+1z ze5#CVh>=l_ezOm|C+9hA--k!&zc=uAgY6D3eWb3zjcyn|TF+|JaX}9lG5argn-#nf zsk_#+@aE4{8&fmNn^&iwybG#HhMhZ;7VmY#>$@FMQVRYdcM12!n(2xuUL4-A!F5sK zkWzN~GaUld%z@%_TgcvoRj<4#p3vXV>gsad@iqJ2Sn|k+LQ9fI%hHlK5|+RYU8+sw z)i`ewcNjQ*@h`el6xKfUu{52Lq)o)XpOl<9TER!AOgeY_UAKFeQfX>{ zdz7`-vZ1R#y5#S5*XOnNzK>u2VjiU%J65B#%wG|3+{HFf>OtM)iT(Q*AqnS4G@rg| zt%2#eaa<@&2eS@6B>`Bp<*{_}l zyQI05ap#v;84;R#|Ik7K=5iCiBgxrcDS#A^Yyh2qfp}3E`_H;!^};L-Xy!ZgtTt3x zWrGpuBOlLo%#Gh%6+67wC&3?P9Xn@PS^Ibdj*_!OWFuZXO?qswP+v7BNt#8+iZ;y8 zBXBK;b|9h#e% zj?82QTJh%TP~n4G;Y2Z%xutbFLBQt@?bV#ZQ;?xUgVPs;-*Jrh{ORI^>DT(z|X!;vbDhYu*D9SHuX?6cN+->O-TpG!) z)Tmv_{hii82VHmI;PVpcW3Hf0a9g5L2Z>iFhm=(Vl@dqlV(DwWoFCUAC8%sWzf=3f zE$7L|m|{pM&a|aJej?ug_H6T{Tml3Naw&GC$^E6AucWH7?W1#hs>g*BPjKy!xSp*d z&)YeFwh#jN8_=>2bXeiiMB7R|A~CUsmN;?$f-tmS55B8A(Dq2XVz?9*Y58nNn=mIX zaU!LaSR)!QOoBKw&$TzbczQ2wow72Tp_IYJWFH?5>ke3GS*VL@6{XSxz~%@Yx>r^8 zIO}LAfkpVC@|p+<&)*LMuwoGr(Exy>5hq(nw9pQ1V6eLngAQA9w?S>18ri35@A-zh zI#&HMw>56!wz(%DA^d>JcW-Dt#&$CTSlzt`cDq)gj?h$(wQOwYe1Yi*4{ymmS8LCi zf3BQ9@HRdDWCLqSJM=N8lMbjMG55b%XnMfWQ)EPnoQ^EEa)fbc95bA@X=E^NXy_CO zfx-1OQ$9b6>?!hUi$8!eT@ol+HaAqKdzVBUI~MH?j#RTefM%6mq1ovcK68L!1whnx z5p$fGL<_*sy$C}?;4T?kzvA65Wx~rQF(rjkiVh<+nB|40hG|Cwt63N|=Uo+!G8DkG zIkEzH}YJ?&ZEzZ@#|im9gpa7=GGFgQ|oL zwWRp&q7+Y>^T{4q>XTRU_cNfnxM$+XNIMm9wi}`)@utNRU%i<-M6o4A3%meufCta( zbeCZ_o+!%cHIlKs>2V#G!*nyAsHO=8d}@qK3a<5^-znOfP8K0fb_2gC{SuXq4!)MX zbQY=WG42BiP)Q5`*C-iwoWxX5$~GeUPvx#lQPumcJXF&l0B>^kart_5u+xS=$ppxA z%@Bg8&wHQ>9k-$^OIGANC=8V@9PH%PN`!e-`kt>$9h2YC*JJ__-@t|tdM+?ja1212 zmv+jexS_wHD;NDhRtx>bLdPt0QucwmhLe0LMXyk1|BSAq?LIKO+25ma6oK@sZ62c9 zrls75^7?C^)VL4#ko2}(bCPvcQ3^~wrs-9k+CT=pD}R$IC~Bz;^Ts{67qt{lRB@D1 zc9eCQyj3W&)7+2H5O5^6aiXEfL|ps0(cp!Jk3$ua`o0Ioa}VU`m3ifulzG0@0|YrC z7K|i{rWphP*Y)u*%Xudzd(&}m!tgF}G7k#0_4N_klG;3vP3W+d?7GlJGMn>mt5H=9 zTCN4EzQ{Cp8dr_)@=sdXRFnc=AYN|px|*Bz3*wq#${xgMy6cX(q#*LH3LgQ)Md=!1**wZNvf34#mUXHy^Fd4_*E%U;e~aJcG4g?Y@kz`q~zousuqmusaR8Q{9ic0*sC zc_=o6{t`p?1J7*|Ct1=56lT(F>uQB16XL{Gd)DH-hnm8?5L#*$kZ#%%ToXM5ZEbMl zHL-|rD32~qfCwXW2`mc|ujle;F{katBo?%KVphlJG*j~Ei<;zF96>CeZ=J5s4Yiku zjsxDsc^?1r;YM&k_iXidjYZ#&8UN6}%|eF7MjFC}Hb^*?P2j(Wsl8--bK}HzKi>L) za}04%ES=vZ8RN4!d=){vVtqFUSckRjyqrFKH0hRSj*eY60lEM|6P8D0)fnh|tjeMm z#Mp7o0D807_%JPEO&}5l^CqAUO90o`)+(XzhPa9TP?rMFfCRNJaR|`I4rl?KG$fx+ z$EG#bDmjL4CSGW6Zph;;YkU>cAS0u-w@H##5-7RXC^7?}`<_eZU7@wTAMPdgubD|Y zu9#B~Ctuk$XI0eTaaFblfh)PZQPW+vTcP_H04i>#b_bl;)ycI^{^uXgUz_NcNqj*b zWM(ELRWQDjSjAn!`cf6h*r)tJ<|q~VHjXI(L|TB&^XBrhc1O27Gqh1Y-2pJm>7@Vw zeN3h#aPB577Z7FDO$fCt0FtroW;*6-Hz0eu z0#2(CBhdF16Lr60+FIy`Ny%Ii`?s>nzcebsBRP3={*_ZwTcod78082K>4n2@1NaL~ zN{+@=-9j-dBtBlIyLX!Ov(225p| ze5zMIU^}iCDG~#X(`woBm1LrgIs#L$Sw{wd^ABY-+=p-X5)td~q$IGD=ElNCJ#kW3 z9`6dH<~b@U0ti|YT+Samb50m947G(WaT`)XtWPOrj56YHV{(=6E0(sl+|3PNL^dMx z3_p@(m?0JbX+gVt10acU!So)G-Ii{J9R)PVt)Qfal!f7Ol`Y3)`lmFH0j!{!`07kO zy#2_}w?+Tyq2LyEm7)crQSg*7bMzVpGcA!s^_ruqn zyGmZCsulf7#zQe5k+!WY%{i!+_ef$%$A33gxkXAQH_Z<#%IHnXs+%eyf=+3bP=0rm z(Hq&dr`iOUhrb32=z{Vkl#a}nL*L@NDpj|tAD{x)du99!w!Om=SFj!yO@SAhqN(~h zda{=^`=jenXK*qC0)f^s(6OsH`PO;0^36CatxbAe;M8Y4zSZS+@D4;4o;rFmJFF;` zX~_t$hfzw>oZ$Mf6f;B+3^Svbq9Ok}dnU;2Nam4kG)a;17AgsDTvZi17+Z)b0t7fp zHYN9E)#RHH5#~Gm3=e&|GsD+2FkI-`#c(I#DmCO+!tx!Ze$-zw`2BxZTOdx(>{=ob z2m+o?)7_B~5l1v<&pXZ*ez9o*(au*xPxE=LVAZs12g^;?cGW*fd*NpUtW3TeBCG;; zk6b42sC&c_f3ZN{(Uzjid6RDD$pdX;ggIYV8_+|?waV+T4yqekT0)^TaX;(A?_{(xdR{)o)!`P>r4@hC{dRp zEI0(g)JNy)Z+^5upU?PhmJ}z3(nbo{;;IQ-{|gcc zBWdvbeLy9b#B?tyj;zE}4Zmuc%iFXoRI`@U0OFU}^?KOhBd6_~hHVHClnPB}Q~Lk` zPcmybb{c>b`!xe3ME*!yCo>e_o-Cy(4a}JD2>y2MQ(jbXzp)B8X@#XCs({>W0&=x} zX!3*tp^z>T`FI9mCG{$Sc7ox=XQxM+#7vR9J+D2jDA0I}OCKRX+}9?cvK(JfMO$^0 zyrPw1p|9!IN&>;s{K(RkgLE#L&E^@(H;bLbyb1bZ^5euy9vyKV%_A!W*9-J^u}|a$ zh_KtNgf3P^&NQzq*SxR;%8uW$UxPkJ7AM<--jblgE6MZ#L1&#^2XKK%EfBo|^n4s_ zN&c_al)ECG@t|txFp_*t*tO@8cbW+DxXO-f*W?b%C;0F z5O=24w1;y>Jy>*sXb<%DtySx?c&Q*ka-S=qf8GjN;6U6cIVf>C3SA1s244vFW{fql z*%<(a#(ljEGrsUhgk`&X+AYA9{CF2)WGo;cFsY%9HFD>oqUm265)nas)@(cp13kaK z0x>-Y4d~*Sy~!^bz}XI?)EV!0?Yj{V^I!ioaXa26zx!ZgHgTpA~t{!1I{6OFX-z@vj+G zJ7C-oNSP>r!LLn8R?Q%`zg~lyP!rk!AR`gMu*0CqK~P1@`69I;;LCIUipuAuPtB0M3PMmX zVo82T=<@x`A&Ks#b0G2e^K#nBJelut){{xRM8uR0`%GA29GF-tBDznv>gVH}dnaYy zFyW5B-^hq!5HBT!c6;Ie&Ez%YAK790esj0MW&KPw21gnJgKL@5n|3Fop)^%@?TOow zij9KuaT%O$HT%z%N`*u3Iq>SU2i~tINS3tjmfbpSvlH~{IF&+4N}@QN zCxVQIQ`D&YQKNtVvZ2Q~KEwiEsuL5eX#qGA{=9TkLgSJkX4Aq|iY9;_?sWKlzXkBd z?39seuIv2kHJ~yNF=wvA(<|Tf@fM`oHR6V~RECY=Zzbu}Zz1~GZZX?ZP6KP@y)`Km zdKMe_7W+*VmMwAZhUZKo14oZ7i5cNRZJ{*)dnC0Ian8%p;X6*@DpKL0kh@YcuVjI; z8EVo_Q6d|>xb3|?2KnW-4Zi40wq*DMuC21MQr)<&yUH5*_&4}%rqglaZPni84ld0< zc`&|cgG@?8h_!q}7&#I5!P;0O*+VZEukR6&eXuCGFJ2M8 z$2Qj}Mh&#Nc2gJTmqyKP(he|ozO@Uv?QL=;d(C_|qsN%`coS+jh{;!YK}7`QT2QJ# zDQu;Z9rbRzD-*}`WT=>F5|yuAgx#5$zlKfRs%3@PNDkg=KkFjT=8|YNEE zwgy&D5NhqgjEYqo*-VmXh@i}8-~Bw=>f4|iK*S-M>k|SbN|xc$1El(;NIIklaMC+9 z=%PQ@B|;;4(5NJjcbzGgLCxY*prr$(aFKE;DK!yVpmQKjU;j~E!*ynX;fI8;SN2h% zRnH;T=pnar_%v_Saftvh!As~7W@6~pdLeK3*ch|~wlgHzzQW}QIrw-w09j6@2DY?9 zhpTw;E08#pM;AjSPvuD+u^T^|K@xthXC$)kqBpckkhJlHD>Mn+5Nigp62-KKiYp=s zZ*BR~;P(s;;m3B+ITId67uQJG1eu-p*bRTbs!6&>>#(cW6+(PytmK6meWhZ##S}Z_ z6EKz$xxH;Q!cqj)HHn|HgixzMa;Hx6K-47zs0U;p~H>4Cm`YqyRA)B?Tl0_gO@4uX78akFo}_VmXoPTX(^#EdjM5) zl}xufB1BtRr-2CQTbu4OMxCf>AcYmzzWnZI-v6gExpD}pt0XH=(b_IEB>z~`x1pAZ z2H00{bcEw6>F7sMQNs5(gOT$jh1QEyb>aj7M4F+i5>+Hi^2(k zvIZC89120SfRDq~-b}hQAVRQ2n`QC8TIi-8qTd^4o&dk?Wbpg3{weKF=~L+I+bBjx zm}A|JS;{KdL;qezjK>-9ukN>s9~r^SpFuT8(dbuJ+t{yY!zY^)_^)E8x9u9Da*iO5 zw#i;>RgT#A2i1U4sI~gapY9x%hTH|vykg-yB`xvjZM)7kx>0pm-EPJgpWIey;s>(I zw3e2Ge;qaza6Gr)acP_!3l(%=6RNX&j%J*F^A0|D2oRwNsS%W`xAG%E0`cU>)ueZ? zj*N840Zd$>_QGUkfrPxZYjRk0=&1_uEhS>=((rj^(kFV-$lb%@tu%0)BK+oL{iwe? z@%z&{UP13)_dZ9RePX!B?UOU^)(&nF^8TK=I*8y;=jrO|4$0YU?&1=y-DTBev_mUP z9ksAgxICCM%thhS4cJ-r*Wz#3zYh9z*(N1i_7z7*F_y%kkB;rcJb3256Sle*eH{i$ zO<5UkY8u(N6HGSWk2$wSN!KDK_kB$v_if|?G zr1UK`cgIZyXsW@&>uGz3zXHWILhuD%jsb={s8rU+2b}1ksyDiULR3HWZOg}32K^IA zmV&f#mjO2+-FMB0}MqAyDNfV9Q?Z@h}M1&#h_m6y;Sqz zi7_?L0+TM3-!^s?rdA02i2HXHeL&d~nYgZ7y0|Y^%GaiIpBx?Nk$UiO<11R`u<;?j zXMjgbzGwNcV)m##1CBTYpj#|cWW7B%^wlHhh(HL%>P*~yB=I^>oFOKl?m?Bj7ZZ}UtNd|Nc zYqsT3)o^nV*IGU$>5CNr06+5Edqt(U+u>Wl&IUP5WcbnvVfkG;*K|ebY6{_>kt7}2 z8A9F3SeE#>gv#ecCjfj55?9Q`HAE4KO!qk~zU~Dj(O^qgi0#~dqZ&7ok52_S9@$}t zujL6L+8j+1rr0MD@g!|4!^a-j(c?;mBQwPwz}`%#F%x7TsL24NtK1eX)&7=l<5H6W zW!{oN!1D1KKK=^H73OLiWQin`@edwt6+lZ%P(btHrX>j^5DYQfV=edsPmkOnE|%!X z9+%M-KEM8oU0-urWX7AV0q5KZLWw5uBeORLc=E-U4~qiaEe5)4LLmsS_SUh)l2$0m zI%sa(+I{3(oFtDXj2j%e6a1Ud%)4Dee@*y-S58STYjRF@I|o5=v$c#Rkw9`?_qH5Q z955o_fjri1ZO~mdYosIG-#xePa$vY%m~{S8FVs%zIIA&?t_5VJ!k}$gvpE~*0F~Xi ze<~f=I37<@LkF8b^qKL?#+KX~$tK2@&b0T1ck>EKV&G^B{pW_4gCmLa(>?~jV=A~X{kUL^U~ycZ4$#2_XT-9nkxi0KlDPijBx z83bkSos=S~4+82bP!<{sjC9`U7I9Q}IAx?y(jBN0aCoeK1==&I!ueq>;3Q7^kbFD{ zRZ!;x3qTVV4iSWt6nZKIjUHpU85IyMgzXzga#Yu?lT*5R^Lpky!#7+>d6anmtFZ`f zR^NG7^~q+a9fWLjzW@+U4JYT*MAH(NbHbUMe}EPsil!SPcrIew4)>#OMw_&WcGXSq zHm4}bzJy^bO^n$6`^HQA!Wu?C7A=(}OJX zOAo<-P;-@N+3|=N7~1H?fbVX4iHJT)&K&f*BMxN8*A#>CLQ^G&0=e9X6}rj=GQDzl@8LT?~SaQqaIwQ6DLj8`SLJlRrvJZ*$6 zT&A@`JACRv03bap1uiYG=%GE7^uA_;h61=L{07OP%U2L`pm!Zeslji^MWyzjQfA^A z+=f99?Mj|+C{WEHY?}|M(bqRIaFpHwAVm)-D-?uRZ&=@L@H>5qQ@@R&bOSwwa8FYW zjg#P1?MF!~B4yN*jHc=yfPYe|cEictVx-@DGN)s2l@DCQ#Y&H8r3dI2uXepu!!>jr zb;k|`D2_Br?+pN34v(gvT{t!um!?5%8u9}eMIcsM@2~*8c^`$v63_=YFzRkGZ0;?# zsvkXGGx&A8!pQwa@Li<(q3B>LfK9C|s_OP{dt7JO7A^fTGEEJ>HI_X4V296R-;TMR zHh$*Yw?)0m7-aWmrpSfE)f7*uSNcRF-Z?42)sx-H>T3z7x8vi_ZM;+a?ner|S|Ont zv0HiAGo0q13d35q(|BvxB+fh9{{DJHdiWJ=j1jpk+KX)dO{U+kU86gol4}i#`&O!Q zDUweYoorHU_Gs`V9V)lcQBVlWj@!XBt?*uYT2;7W6T zDJ&{J$3QY3z(UkV5ZQmZd^mUus+#T8By^`8XfyuJBrTs%)y-f(wswzlQ=1sZkY)68 zesN!?z3#J&1z3>+S*3d=M{x?j4E&+M5die~1%-1bknm2Qq# zjlZTs3d{X~CdM)ogcV_xjcy7j&kgE*>Hj2`-_NzKxUeF&WVs7ExuK+y%__r9xuJ5h zo_s1%-#d2;9DOZ-5!yR0QFD*9=#uL#i3Sxd)sJ2IdL<`E_43adr0Qkk?Rp6{_4Lk> zSw2+d3pXBAI=ZxGG%2_6kuQ^5LT<)&4~(mQd=H3f`h7uv$z;4#03 zFPvOB=EUsEeaCdUM>V;n_MF-Z)zKuab=yldzK}FnL9LY|_a|!J8&|kuiJ1Gch)cMJ z1OWTV>~F-EX}V(?g1gfcM)(&zVHp4UE=O6IlZ@dbT#`u&;$U{81iy`1)<=i3#tutZ z1VLaNY1y>1>HbUdu{mGPfbEJao45R+yuQmdP^~}sx7_wuHz+BF7B2CchEN+r>GBC< z_NV_8|Eg~YE050Zu`F(%ze#~C)CgGy>v=!W#=20Xakoy;?a-CP-bIpYTM~y;#XCMR z-Y}rjO{|JVL{hFzC*=JGm?a)u3utd<$O%&CqK=I=F;qrs4Pxq&C)%5b%|xj}DC}YI z0bK!oh1Xa|3-_PxeDDn5@}3`(AM7|`?le*JfXq;aXPPGj`<401x~2GzCk4IOS;A0( z7)X%qneiJXfFl)LIthY)bvQI?C()effOtt+>4G3}psYsu(0u(+(`Z7;8hSjATFIK> z80ZZ2+CvR=f&>z~1wjn4w489NtO<^0hFHN3H;)BG26&7)i4>JcJ{Ro6Bg^ZG=SZEM z5HQ2`5DCO(XZUM<$!$TAq(=@kh}8@ZQ`C3ZG<&3}xo4V!1_N)n8c2SPQbTOy>(aE@ zD*<5~=r|pe3IHb{B(`f7wbRe9?Ru){DdzHoRTFI-h@s!M>CIG5nBREP{)F6wkJi=0^Au&M`sr2w027pQZqb0M+f9dz&i@F_k*t3@Q9{gJaH;N*m_YOGptuhDZGT<{2nWf7t8!Zwp@FtXw?Nxc{*}4V1Yinx zojV&nx;Zzj_aq&*r+M8bZc?S{4pQ@7o_^8CnElS`3;jLuP4Qf(Uv~$sI@-a_PK1Zt z>bY}{SR$yX8?2;LyD!hhjJr9O9DTCE=Bf&S+751MozAR_)YAIn>jUHm%Z@}PjGLN_ zkT6v(beB`1&gQZL;y_anpSnP0HJiBB)IdH{pE@xgKYqE+npi?A;Pmydhz z`s&e_h_G7PocK43CN(md+IAd4CHh$USisT^``uyK;2r%L1H^Tz>j&<0z;>xx=?>t^ zC9DQwe43f&(YIkpl|AV0oLB=Liql{q^4kMN5yT@JOL`B#>~ED-HO{&fPj6PT#7PjL zm1_IpdR0hSFZFz2Wnb@cH{T!e=3ZsG_o-GwCj<^3kLa*nySSgmRY}H(fs)(5%4=cE zqN^1a1`zKoM}6mPJoMqKe`RXrJ9VWz-iEF6in*HjcqZ2Q08LC{Yg7#?5B%XS*UeDg zqSnNW3U_^njS6kaF^RbVzxPc&aVty<)BmvPoiUF)OCCa<-e94COLtaqR%d43$o#D< z=a+^|z29ekFGoA=u~$C`}}4~k4H$EzmgTgWE$ z`eWJk9QZAHr-cI71x7_D0^_*w1VI9*l3lQ~C!c%tT3!2z{^lxxL{q3o);GI1=OV*Dr5n_Nm_>|4{9(=uZTY zB%$^s%T$`sFW%;K1tg%45d=*_cP2A2l*?gy3@B%N!uF=M&Xj3`VA2iE!2f9O!bpQk zKGaa~#ZEHCP~|W_?9~v&P`&B=xfDm1}zH3s7Q z2!%A#$9_P>7)XAy&8mf~M>_)4Y#-)--*wQP`H)rkf}tjT_ICnTaYBPZdEaXyG5skF~w` znFP-ABQzVjOf$3u=2_s=37woEvVEZPC;AQ0vZ(GtVp3vk@nBn9a&47(q~^3|>rm2_ zK1g!vV$dbFRqNE#@JW9FU}r7i`$)!VE6dX8k=Q_@L+lDx95_im4Xk!O{W2uvPe4mU zLpUD8gTF$6R)e5{dErV$IH|+GHVW9(EHSHof3|%2IBDK~Op#p`4sw;tXA9pZUFQ3+ z{K4@+-jC~IQr-8`-JXOGM`Mxdmx**xWdO8oytP6z8Kn$d$xxho)3y;-q*;@FgfY<` z(9`hS`MDaBu~rD00|uCM;Z)nFED{AZdq9r_t=*+35Ja-{4`#6apq?SEwP2^+m2Ho@ zH{~bQPsXum?YytwBS0YobZ>A-%L4i&wXvf3n?6ZQ;z6{TUcFkeqd3Ref0Sr6>}CAb z3)l4$1WCZ?L}>a=H_u>Bb#Rohp@GXS8j}z1ycW5(NBnKa544{%lROc3>I$Im8q1BJ zS#!`@=KlM?lzm~Pp8>VhjUZ-IXaTi_7Z!uv{-;VUq&*N30Q+>baxm&vO}y&R&E`>J zK&@h`KZgX3i_eP$qC-4UGMz4=4<`Rqx<*YNXOyaU1j@oN4~j|{p|$gyEA!(`b_3+` z5Y$lw`!ufQ4yDM?7QiD6f(ljZNG-H{mnK=65Q4Uq9gL}eRrij`I~r9L6{EOO|GK?R zi0Cvd`P7qLGV8$UZf)HzN=jIfZLd*F8=FAf+WGfLQ61^MHF24JysfGSbl?3djYZEW z`+*)LqGOIT2!}P@)S85|fJs-KjO*s!%*fRA(Dq`;H}fL{6T`&~b)sQO2WYvz(NR|t zV(vwjhlC-RJ9gDImFTH5!1FMDIz9SC{QWQfHF^ys4zQob(uaZshhWND2^AN z%+NA)_!N9K*9`wO>8oj_7h<)4s(+u18KMVSNYU;%V?VP4KpPp2=JSwd||ba~M_zvBygf?Q1tMg{`?KoBqRdm#&Zwal$2H&B{%cXgK(OUNO` z-rLWAy{2V+!~>O@XegYAd*ieAcAL~N$C=f~WoJw|UrT0J??!7w9>4vIoTpP7sxv++pGAlff*Lj(ApMp6;~8a11gq2B(@iy7kIm6 za{~^+wDguXE6+b`z)_R|w?+Kh?I#%%9cH*nu7oVJ1I_ALJ)#N1+>{M|NfCBDs8vqv z+(7~rAVOUn&5uqCd||5T8Km<8Q$R}Mfr1#clACs|4`27h5HpbGxqfhdh?EAi)8!(=0*p76w0?e zw|Qp1WRN@-)K$xU!G_9GAc{RC-hU?)@M+ht?P9yxQdy#d4G%yU3Z0vjIg;neyyVv| zPpj)D8`_sZLBVAY_(M8{WZ|?&z{6Ao3 zBLYGbEv+{GT+L?^fjvR@sRFgyGm>qD7HFzTgBM=kWKbu*tORVJBJIbQRb$D^R6v_u zt5X$OH3-Cwp{AqOz3v@`tW=UpVPd0QD|-PyVZ=uNrn`fI z&D11_vN>FI?(y4DKz+xW7AvEZg1`sHZaL8vY}P)rC-({qwWrxZAPo`I7^glvXy4_7iHHP!7Lgqk790wVBM zChjkR5}o<6Q{bGCJf`~ncKPLKR*b(L?IO z)M${hO>dSbANIa`Aw&CAZF=)zS=f<`S?#QE=Y3rph$+~8hjgkYt3GzEH*S;^ehq}c zMHh&9U%qU^I{ms0e#8d5tJmv`sFsfWZxg{3W!A7_%nyDD>3mi zb7j7;jFp+w3tc;DuI%$_j1a61%u1PoUwo1KB9E6^J9J+3t$aM1G1?^LZN%`4Us6ZmPGnAKh()jILGe@5CFusdJfmBB@dFETPcphfqcQ^gWVlb z4-i95`Jr{(A(+*+sm+^utT5!8WY_f#c?%lIZzu3-FIMDwdwDkW(*#7TAOaJ_$boQmt z(pV|V_Yv?I|KdRZ|DdI@Qn+mC$94m3>HmfP`tu9_9|Y_F6l3 z&yQIlB)VumTGONiUZH>M)|pR)53#jWnO{z=7f%zjBP+c10_qJD!mrvMB%JhYa7Oh` zza4z*TJWD}!!7(y(fq28ZD3(>wAnHGLPDdheS6{Gy8Cy%=$-y?FFE02vQfu@aoerc ziKOYpsIR-#fhmG zl@I5AuNDZhb^mO6%X3EQFXh8_N36ShLv8ye=PlQ}4&AFbxyf8Bm3^dAb|CR^LQHi_ z#=EaYQxo4Nb}!|lh7g}@FY1^&p=aN)JE%>k*FS_QDZ#E=BQwqqbPd3VB;QnaAN}y3 zvi5E4V}sEZ3VV$nutZfx!+iy-t%yB`daYB;2o`B<;QIu zZf-vDtdbel82fxxZ0S|-cvg#!xkT&46T)4v@&?HWve8W@uI$gVG>cS;2U8RIWv8G z)9l-8D5EWh4PQ6?u23Hc3%RiL!k=A!Z^9!uR*R@8>*gJ%9XuXPtA_IJf=Y~I_`PYAKHSA@W4)~M}O~xHOe_5gM>F4m z;;50qOz5myQ_66=1OI1K-0_osse!4#j;5DAUn6=O4Zx_CXD1Rrg2$_WXw-B+8oYig z({k|>QaK9yVI#Whl(>J}=f*KwmMM;Q@rypi6 z@uUx35uanaEl!1R_WZr<))^I|$T%5D7LmDT{?l8PF17aV<3vK}$gv~`BgNUqF|kt~ z72|GCkL^KxEz(;m&f!XM*2y5R`YP7!#{cev<-e)<|C3k!pQY{p*^2dFwEq7IUOu1m zf8ZHYggQ)*M^Q!;rQU2$D zo8f_~g8gFqvqv?|f=un+IFFov{(p0s@PGKxkB*0Gfxit=pc&8d(M$OzQ6HiLUf;NN zzcl8suAzfxP0Z<;KPP)IeK9Jc@ZD2r4J>Nt|Br}eO*^Bsi!nyU1x3^JgT@5O@a{Ij~$weJ@r^l-}o~FHxTu-Fl z`JA{r%5t7hdx5a{+C8B9SwzY}>&O{H3n_IpSr`pTJP>o-NG4Rh^U~3_;ZQn6O-Z95 zj<-y%5nsX{wrSC8qr~cz;0u94biG@lG32aCyLfsB#Q{0h83^RDd^)~lWE85kK6>-S z%sxqcpiYiO3(6WI?_yb(g4UYTMKm)k4o^$frT;A|#}X|)pA)0xn|{_pzz$f)NekE1 z-h1A(j1T^ui|4rbbS(2%G{@;HE%W5YxB{jm{%#hqlC097IMwY5?*^u+5@QM1NlnQFwgc03$YByFlBB|w3-RUD4vJaN`Q34s%zqEBv3HbvniiQL}J z27&~CH@k4I&QW|#j+(H!$(QGSQv|rek5aarO)}LMw=~zALKiHTseQOY2G&TETH|XV zYOjvdNm2?7PK+x5qA0Lt*3!WU8$bp&0S<-_HxJwoM0Ht^1?E2EP2jCd9O0JYf*U}a zpdmZgBCVv6pbWg<7Eojw@5VJXa^oAmuG<7r$31IPD%V zDd72Rl|nTJui(H&cWz?64?yD}bUj>!(~~!SRr0_XyOO(cgb7a5(9*<##|0=y*d2h! zCM!Y%r;hsy8f`^y>^INN*8uqJehXsVqgHT(y{h3OGJKRCp{zi)zS3GoV=xxaA~SkG znW2S|%R8`XXaXJ!J`%K)AMKd3_pQLg(E

1H+nZaFnMhBlnWnY*tkR z&X1uQGaW!3?5a_a4Gxm|M~8eRPM+Bql~M9XH-zcZ+ZJCce@Hxj_hS#oj@TH|wDO6Gp6~K9OT@OO*pL$AdvRZ2CU6dWS^M8B!){mZTaGZ$ z4m4B&MU&5ciTt202{+$>ci8+ZHIVTtMr6x6&I1uy*Uk6L-dM*uq66Ya(&RR0CSzMJ z-F$RN`DdEd)&DrdLvA zGC`N3lBPPm-o*aDHd4aCV^=+G-2>=D8$sEbml&fy*Qo%+3MGcw2oI_E$)ohdUfQSW_LY_pdjy%4As0;cJEJS3t~33SFnYc{hD zi0maG8M{v%besxoD>n~8ZBgb_50BskXSD8CzmcLe5$FIGb>{$HVmu?#kEZIMHS%ET zCjfLpZ2{!+9A=r{$5yfh9bTVZX%>q6gZ*}GiC`RYbEDFBu943Nji(=2X-_-TN*VbL z{eB$bb75u)kJhe2W_FqoirTpx+D9kr!0e64N3U;ME| zl0`#n@1oh6=-4FNF1zKxz_*-?_U*k$u=f|?00$vCGKV@; zpbz$z<<`S8A?LI-!JCvu&FXKZevlUbKHcL}6lr>)-bl76<{hOW{J0YQ!GUsx@(k^V zhSl;VUCGu@ZlGlbGyQRI-#J6`7z1Jv9d5_tNA{bZRz3f4?)qJg4(G7=;k`F4?a!bT z9mNY?6@63kGk6R3Gut(!_iLRf=qU=-QdvpeIh7D3ExPzNT>k{pM@YWfQ{+6_eg-7( zzx?YTXQzpfR}%mtZc14>(=NP3%SZN&mX?wykt!e%XJ_?J=Wj6c4nTI4Pv-?ZB_J3>%0m5nC%bkaz^<)nk`j zpb7c?kZ@X2I8D7=Uc2uci444Pc7$}2$-wim%t7m3U}b15C;c~yI_JLmIj2EOa=-Hn z!+rK#*EcfzKR-+*7NV}qZb!egP?4+%eXjF<(3yVo{RIgw>gvNbiyKe_8A;KhA%kjE z#gB(j#btk2T;kVkqZs`kd9X`C7RlhczdB}tHvQ`S4gTStjl*g3wxi-HZBIv&INu+6 z=gsc4@7Y&|G5B-Pa#u#|l)}ca-HCO_!(S9fkL(lq0t-QW*e7x6db=_otCdh~nUd+4Oc1?AVtO#lkc0B^i`b_|1iJwuVh!CA##%GEx zb~jsx4D3~RdO4tv)ubQfi`aJ@-}Ez+UbnjoFZ_|1$K2MEuh?xpsML>#D-W(aTAxjW zD7HE3TisU<`mQUoMMysj)`3>PJvj(Z$wNH}T(Cavm$(jBh=1|5YFq2b{zX~!E7|8z z#B;9jv)KKs!^doK;QiD0E-YMvDB7hbo5~&VPnW7p7yFui=lzTZQXIRVFCsz5JBBN8 zQ6l~s_A_^6+1N#$_A#F}GAj+Ye>cs)>cYm@ep!e`*>bvI=61MVa9kD^K%#kD{ux*# z$-hqe`XSnt)fan?hv(}w-O+ga<2}*f?McX4FQymIV4&@dPWDimFwc%ZaTSwz=M-$q zJL=t`po9uZ-h2=qv&;bE=v-h{EDys@2I_!~g_f-fVqIeyuwIe8INTG`+AkEO26${T zTPtQz`k3cIcvW6>Wb5kDrf;AjVDlY~9my9Y^4UT%KTh~D-*y?6yj~#yTZS|)U_c4o z>g-4H{lg`L0x@XYJ|VCj#|Bo`iL(Vc^C)3k-*LPv&saWYOmQdz^19KB%GL<#3S5FkciULzho3KQIH6tRWe%#XCzfhrX zTC+ZRVPPX0?GuWqMyEsG3#j-l=)W(=JQm!53;e*Kw(6G#Pn~!H{}<%}c-e zI}=aAEZvQo3;j`k5lEi#cFHHTO~%s>;v`i&%|%WU4+_2guRTvw+#+xM?Yd-J+bdVyD5X*NzF-OXSN z@h|ReX}vOzmJV)?p3L}4N$dgj)>YmY54sRzS17ci#A@thpO4S3TV^8>D@xuZ7xbMs z;%|&!HY8L0GJ&G_Zbyk#;te=}K)xmZK&wV;MqanT!O<8|4s&J2bxc0QfBJR5q@P=3 zqrn0;SzhQpeEb7@9SeQYFgXT~!}C{=af#&BBgNgJ#SDFEAp?9cRtYDUqc68$@`{UJQ{KxwP8Var(~Tj8R@U?e=k=H)fh2O@9u1!cb%(hCgU z`}9)KVB2_QN)|oW+A#h})y5x}GZ`BTAcyNpx5(4}g`I(InTq5DnK>zmmHvR>T;wOk zTC!bNu}7nM2&tldhSRK-g3mj6;27A8c-nX&Q=d zs+LbvK+e)h${Ae+$x85J*68v6=v1F+!OvDwx5X#*h%_P(PD!c0$OTzkw%~}r5y(U5 zfyIap8rW|DXhD;DA=7+h;1s4j=fXB^SEo4Ake9;a5u)i_LR1gRFQMzz<=`4-#?S9> zj;;e+3Q2ylwLxY|0VuJc7o{R5p_D*zVxZ!b5owFeVG0IPRY`s3D}TC3BCXDL~(<9=Q@&*}X)BgJBdvoy&Joa0FAj$v?f(BIm^5lN8`+o~Eg8q}_VM28{8+4zhrmaR7z_`O6(_ z_u?J3v1%>7(zinlIwKl5KwhCs$;_6J$lu`iiZ1bpb6#D2$bK@b*l%1CP>|C0bV1N(fY8T?mTq1%B|Ui|fD{Z9WA&b(;h`M1BT zbrS^UeXoq8x&e|cRe+gY>w_nHuYw(zF1e87fqh_{mAIupK-DPRy#Zoxb25{zOo{Qm zh0{~fge{zx)kQEE`%0k=?`VRLIL~Os``9e)MI=s=lzeFNSJF?1Kguc3RXPth9NubP z*C#~8&i?us-gM(1x~rg-?A>+aV>n)+$mo%-WbhH^&a3Dp2gIn^fubnfg~Aa3XKm@V z#*y;zo)s<);Y|wNtc&5vcflu!Xwgxd0X zpi4mLz>>tc4|IZIJ%JT@I=1N`d5OVT!ElMI>Pahctxf1TUF2Y}O|x%5oz4%~b~9|% zru}$v0iBk8E`kVn0Bby2G=m2^a8|Ws!)EJjUr2G5%EIS7BOEWg4G>Vy*R=CoZ_0`| zh?i)KT=`38Y5fYS-n!7w7GpA4h?#Pidd}acAv7(!adUh~Z@FN}&T-4W4pd zcdx9k*k3vgvt5rxNh;QQ&cBfrz;9yl&_Rn2`B)=oW35&@`x7z>u)lOFm?x{(bnIVe z4d1uW1}v_mmz)fb(X?vTf#p1P-g^&&6Q2{Ac=)we31R&rZaT?ClFBSOnaotp4Ie<* zP`9*vGJ8R56v3&eE$cT*xb&P{W^IY_OLyh`aAVJ$KYh1U^yDz@a1lwE$wGOG!Smxd z3amuq{q?{ZyWxMjU{&f)`PUt?^Ne5LO{}u;|84mGIl9#0^u#@P+C@K*sP;!-Gp^Lm z?7S$8{flKeZz8HE@?tFfS7BimG0Zoa;jp@Q!8)kQiJZMlXGdO|c;ay)Rd>p!p}2{# znG$@-;UvkAl3jMjZi_1CLeq{wp*#1|^QLclHZ9QGqCwa4V)rGjCn{q~oJ{uv64^GR zH+wWS)+>JWoY}$3ifT$YJ%lD%OKE>Of>-l}6>w0KES@{8U9Yv*^kbbUD`Y-kTTAQzFVrD&c#E`U^AjvAQ<(=fh7* zoMB(ql8jeOP}Vq<|Mm<{XUu#3@t+@{n(9)=?wDRUhbp~=#G+uv^-g7;Yfk53d7*nH z_m3M%!5$2Vi?R(S`kXF*6zwq1sM^-ld?3DkMEHK+#fHS=bWn*_+5w|WUQMQs~ zkKWMlITg3i$~~G$9(za=ZhZK|T#P*ubm5yn5}+j`Q-CRy*U71y{sqI2+Py&=x$=35 z9bI}L%gckvyXF`xv$42-y6z9{^nZE7uIq0C09CVk2W@H@3n^$DT}mlmlI?jk$`i_2 zX?=x*7}O5Ba`;PDTY(maOw2 zR)ecq2zkm(+2)Gr9*OGHirHV=ofUol$pWA`qIP;RKV@V{JWQCq$?&GBmF0njJLQKi zeJ%Nca<^wnqDGjA#^N3`H5pM5PWzv)9EV4uH+xu>e!>yR!TVy5Z#_8d^v&S@2^keI zOqlMh3GUK&u`d)z!vswwW3YEe%4o4snX50#H>tG?jw(&t7>B&KOB7bwTsT~w)wS3T zyL#Eu2fuW-j^Yh9Y)nas0h{ML(LZ!MAH9F0w}(RD&Ev$)cJ$xp65l8tjjo&_)8r~g zOme1+d%5CYo}NCf54h#Ho#< zuK@x-%^wnukX1k05_eMxUdxKAzG6K4DGvY$-%WY|-v>zvX)8NW%FS`y8|0$+5)1 zLeqhzH93?Gakm?z^|nBx2!*0YIJj>f+K+d>KAE^^O}VZhbWBDJcj!(_;8ldZ{l;xH z{Gq@a9Pb{FBba7Hf{X|5e5V0DSG^iQH}~HERCdR4U8%GMK0Fdp_*e*~j;o zNf?5W3G@^^6#@=&4JP4Qy{>~Gh)V>FdYrAZw+g?TiGx>uGrP>Hq(nG?w_3pBui(#F z3Vap(tJe-{Q2Z|VSBqma4BosDf%;0^4o`ybuMAtu?Yg{FQ5V?|m4c!!}NS55paX;BEX z^8UdMEjP!2R_0Tq&4u~j*6l4vvDniZBj4?hdOrT963rv^7k#VB%l;=$J4>!vOEV)N z8be@=VF!NA2yY*Yvllq@}>tQD|Qa(G!fB1W&Y60JHc%j zJ;eZS=jB~HiD@M_TV_v(T~Sn@uMk>%%rp5LSgucz)BE#&S3#2Ytc9LrxnKw-hl>Au zi}R*TX)i$8)>5%RekQ;iPqZ0_wttwgNUMM0uFQvL6vd_=hGPd{??z6vj~x*O3w%nKu6K2Am^ds2eI*pOhGHj0Y*|*QgtCa2Y?!_dF=Nv;RHQ&)|EeO@M5A+Q*2a zd(Rf(ziaNn{ILAJrC<-H?v~;mHAvQVkB%d;?|6BGH)64l);EcU5NL{_oT&QMssY6! zFOB4es{vwxMLwQ`pW3n5m3YU)GY<@^D|;7Vy5KxaHOb!xS9o>rr}n>~h6AvFD7DfJ zVg62*mRUU-Va%-cF;N?QcFdyEbrvcs zz~NPLVf+dB-j$~!eMt~}n0s3UJk0@`yA2oVf$!bcxT|^M_9=IfJ2D4`eHOkj2RGtg zSBTiR8{D=qlfEMZ8IJsl-LdeIUI>5vXK`U@-i3u3@5AjAK{6I{VrVV-hq{GfN*W$i zT@g}=*$O|*?@@CpLg|!DzWNz*tEcw{ScdUliJeG z%NkBqZ(H{6_g;t{h1(8@1elMSQ2X%*z%!8I6vMZB37g_XJfuTJ@#A$7^?XPFR%21w z??EPyBTgi&zk1>9WSRab1ZFtkrFO95NM&gvR>DwxV7a2Qv~lFu`XhxuPo*SPVegKb ze60Ol3Q<|e9ncpHh?K4@$_f@`F%n#z zFy~O@(JL7tv<%jA(^M0ME6=S2wqz3r-Ha4rl!>GF71t{=0$pq~sN!gJO)uPLaC~Lvd(`596gN~Rr+lTmsg+DJl1I`Us9n*cePX*sH^42 zRJaCT?Y&Bpd377(M=dp662#{*J@<0nH;4}7}Z-^pFjIg|D@BC>fY{v5XoDHMxQELpE@M$KHgffd z|NC^Cr$xs+L)!WBv_1*Rrs{Fmpi(O-m3(H+g;&-;SwyL(3?UpIcPkjZ(kPiQb)A(W zc0L+YkpyI;fVgN(m-y*p@TRFe=3rWt>xmfPJJ;a#x3LRk(4R(oM~ePRD&3B(y=6Ok zB7$Y*ZK>B<2*?ZW{58$14O#wCVmBVFtYPGT*I9(Un}`Xv-fSNWunMvLcxX@{MI1@Y zphV6eva2n5l-TJvG|%@~CL6rAonuRILP)F|?1UcIHr7pqFL?J*JxbzKgVMVmI;jt| zk!r=BS13ls{j9RS)Wj5h^+K2DD*i*;qb0em^9zOh?`KPlw<+=g;C-$PMQJc%*wx0hC;hEz}|TyOI0kPuZpEX_>Wk35Rd*%o)Ng+=cmZu63$)DZK9G5?KBuyAhK1U_bhV_N(f?i#gV$D%1>7-wKJ!Rbcg6>C zaaO{&Ckp3gpfN<6f<&$6$lq~{&f;jjpS#p_5Az^()G4tjbY%3T{h8;@9ag#!w5$yX zfBMzIzVzN-u7e7%{MoeBkJ+p(Xouw?!U3aTORMuP^}Ts0A{>YpKJ9m~9K!3j0%Ap8=h`KL$6({6W$lhF|O#z5H(Pqje@Ot70;!;?| z^=B)5QAN_qnC*5eiQU=3tb;}WczjBX1<9F|;dSvHfWs!_0Z-uks;@_1KP?!|M^8?x ztjt5Hm^8fFH0inDQj0?F1J>!;OQU*|BGBFNv6ZiXcl5xSUdYxnwhY?O#YcUwhV7V% z9dap+0|4RrN`}Fx{EDx@Er$zH6M)TigW9_wP_GE?U=lty`|n}I-8>C+iq6@T%4x_0 zB)|?_C%?+Ij;A4oG&Dnc7iPon>qD3{D$+WUE(={o&%tv@86lrXO;Tt5{(v+k4N?Oo zgk-Ms)n{x_pBQN!3~*PN7-n%;8U;wBWzXO_n@1F9uhE-FF7uf|W?G%Ejy=GPTJ%k_ zXJs8|N<{EQ1e*F8%bqR$Blm{4^bnkYX!3rv@2eNu)<02#(bG_!)Si%s?ad3}t^EL; z5LiCAdDi;dRNOm$);LJm*Y91K5Bi{mIr}){m>fwM{lN4z?Co8Fmq!Na-23{T4kn$; zxMiNz7&*+~xRrlQCdOWU2rnD{#y=_*+yno-HrbgVFu$7jT1|0sGVL>xcq!=OfE29* zKssjuYW{bP%X7EGR{5;f%y?v?2M{-T>w(V-sSx;a6hlm|BQ0WXht41czTjX?U`wWO zQ@8>mf9!o5Cj{91d^UMVz^EffQ8;Abxb*>GHTvroT*#MK^|5tSdOH4EU`uadM40qV zrV6Rnph!kbeE^)jCD`jF`M^`(-b!gU=29fKIlG3&29pSXhH+hKoMB!sF1n5lHc-!ipWhM*Vy^Z7DAii0@A@>&c^rLSgW_$Hue+Yb7&L+tPN(k>-#cq z#Px*3HatUmleX(h-uBoXT|@+L9+r7$E&;FW?BZ^tsma%C-1 zbnn&icV*)D5JmoYf}{kDTGga=rQNZ%q-}{}B}%cRgwGBdovU(%YphY7?85Oh-nTdB zt`r(dn0ztSsW#Pp8E#j7PIA%oh>U$v$?F4h8Vm7LD|aEvCw@q89d^(@Y=UD$ z!3>R9h=Nk~)yua1_qelV4_kYkdhXqPA7(S5aV0%6VRhzI6#M)|O@+HFS6}XFKDE(1 zqL#l`NJg39u^jz=`A-9F(Ldtx*@~si>+km&n9n;EH00#$hi>ul@Bg^aTlqK4-fpOR z{Cl5Sj>vhX)<>62A;+{1G=KN#EZ+k^oV(xP8{qc71!7N4qe#Lc;_WC%{1FSQ2+X+< zWyc$tu&AN(QqepVWO{rw*Cn%OM=|k*U4+RY2@|)gB^TB%jfn5xH;`8(D>%u5O~z+t z{n}q_H<4$;gxnlE(2G}*l^lit9%<%)C^a^q_+2s^5Z^C@j8M_|q=X!{OK`ATG%Fu9 z4=Web%oWin_JDYz3=B@Ig1j}gUkpo0LxrLTcmFoAS0f$lP>w9ZE-!iOR(xL1$-n71Fjc`@BUXb8`IA76Zu zY<*F{SXwVdpSo=@1#Hrm9yflz^zUt}V=EwBZOUdoxi4AlZ#{3#6#@Z;?`97l)0FXS z%)4%yeUOEaoii5rn1Q3Zummt>c=v^LONR3N5iY=Ygb$x^kOCz?`}0TO^o#c&Wyk}CEpM&1E?xYDaazSn z4Mm#O5FR1N-npi)q%kF%6{2)$I6GY=Sat|5c#fwA;OU6@661y9jLUO)KLc>W!}MZC zUo8XfL*CK*I5sC)icF=Xu!R%}LBO0XF<e`$bVLZ|OSwFLper$wjBZVE5)V`4iYk)(0iL92_jBZC zuOKl~cF`P-qz(TOnJVu-g<-dxB38)&(G81}{NKS|)Ev5_b#fUG$F@+Z=%H23Ey9XR zw)Zzp;v{)hbJe8boszf8su#jc6U&OxRHMYxBq2XrhK8jzhiixa$_*29n%^}}+uk_N z@1f+M@1RWm{APMQPgOCs=fQA|U4lRJR&vHg<=98zJ3R2>ZIK zmmTeSQR7(BX?w(_q=id{m-hVnI6IJ7s3zAk>M8kFIEnxAfYD9Cg!xA;SrjnHZMX{^ z6{!ms_hOC$aT$$VWyNhOI`SB`A7x8=m{KlzVZZMER-OkhU%C}5hL?p8Z-O4E+8L{eM@;1DVt0GvL zJYT%@8355ctb`gNG#498BoK*9gxv>LwJ~~eOE*$od0L+f*4lNfRt;0S>C`4-3RW84 zU+<2U3_zgKeocbJSmR!P?jfLaLn$x_4Z5h^r_N^3FFeto4#;JI9GFW_tg4o{SjK}u zHn0%4U$ETacn|#1JQv9aT|ArpB5TD!5~&G1WRo>MVn}A*0AD;{ni(C^)jhEN{sOS(^%MYqo$Iy){lLsyf+kQ5XdbeYvTaVexN*SYBRlvq{%OGg7@Zn=}cp zq@biBF&S#_-lq0xI zAY!Q1mwQKZz!SBv-i;Nh=Gc~p2HG!xPif|~5~O=R*%sKMB2qe!*A^bVQR9^_dh*xx zg0@0Q`^fnr!tN&6NN)M;d-(}N{@Nin+Q%b0lfpl~U*7bBQUn?$vN;L9Rc(`kvWwlx}Y zrSc{Ou8bGh6xQb+jV<_xIuY9%P+Nmr69`s*;Vhw`xle%)vA_uhlj6Ms{lNLdXKieW zYaBtH7QklrW2PFd*>qr+e@q0^*>%8KSvPv^QOzSNK#n7;ON6yy7t$p~sKK)^jILtT z(~4;TY~mU&r$l2W&fGs)C1NgK$vx0YMagCsuNs<=yWe8A$bY?nIK4CsB`-)Hfw*R( z?22Ka=gj`7^a63cB8ee9^Q`y5G~a?8ScLmaMlt7{F8wMu>R7M)&(*S&1gHFKQmNvCcOc_3=R&u50h9eIv9q7%V37_*<^TCxlk|rc| zhvmUu&6Piza{bp|+gBqV*x>U3t`3Qg5aaUH8<hu_n2f zFwXh#4wv^((ksYRgBw5K;v}L9X0bMnh4*sEu0FvSB(Im--56tzFz<<$_nwSWsk~Ap zWl<6E>t{_&*q`zCDw19y?n`_Gz?7ltty069T$0u|vIs?Z{$g5FefSGtmKO#x3? z413&ks^S7^RN)FBKov0)zEKh2qS}8d?jY2@Q;O=Q1G^_CBlCUcDN5o%17Y)cB{$5k z`UV}HO3C#QGE$JA1%p9!K=9^zgHO`mA!SelFfkrlt?vDFnAp%Q5c6>}?$u4IaAZ~A z;-W++quk|@svIJhI3h|ao391|)=A+lseSHBo;V12zYc2T`uq5F?3EHt8C72=-C$X) zH)!Fr@|5K3>sVIJbc+nNH7v_)XRM%+4hmQCM6+ z^#Qy$X(SGS2FqLZZn`nverpq8)Fb=;BT3ob<UdRfQ2---?7lu9gxM;u(@j@e z0JHzy{aao#RENVlnU~SKrVcs>a?jfefI;z~qCX@c0LUyAG8tSKLX1VBo9!Cqu%lDw z%2Epbtyrv~rBi=3F}Z5FrL; zl;x+L1ux9k6p`zNksWU|-u9<;x=ntXC_8^^>ygdq!N6z?Fd`+lh{@#=#NQhjcFLMA$G6S_fbuU*OPu+TAnuOE8UX~jZ_eL+Oluu~E zFu}00+YRr@zJYzldu3!)mjFL*RHVuDRAxWnCIn`=lmXKAMIq;ciuycw)V`A~K5d0i zjp{;#$rF{tPLriKsebCCVl5plM?*^nT?lCtrVC<|>NnNTBP>+9T0sJ@BEm|$OZ$1z zgR8wY_HTC&Nt(^nX`|(VgbhBTg2!&-^FWt zOQd3~_<`kHoLn|%Ngq)7RCGGIa><71$KebiMqNoo4%VOrTsqSsn`YlZZA|v64~iLwq?ZE|AL(dwy0-zO@1= z;LnlKK*Pb7!O0FK#9oi4WyKALV~P+HM-Rn8h`IL^I)$)0rpwQ-0Lh2t^S%5#F1>$P zC)sD?l)t~KFAIR`;5>0uIAgaS#yl)?667N5%*!PmytnueP2;IVuOnM&0E6I^jQqo# z_sd(3G>8&5F!1W!-Q5IfR_jwHwlGsQ!vmS`jHLFhf$e}bKBZ=k>r0*L=)lc!1%5%s zDUBbYm#`C83euiFDG^Mf1ZVNPudktqfH3~YA2cllr(tAW8n+4~(EKEi_2q$nH+Oz}@L>MN2?V6^dD!)fI_Czjy7P2{* zMh(2P0)?Q6%qr~2p-YNh=0$_{qSkW4Z7FGfpg^A-wPeL<+;X;AJP{LXrsVyUe@FZ0-onPM(LtmdoeZ^cv^?Y*mJ*%}*A6*emwc!8|52{R@EUOepR zm?-2eXw%8>44h<>lvTULC*WNbn`OMl$dx8cw6H>g?AzE?h)S42B^|H)WX+F!1aU_A z1ysw1!TtmVBjylm@j389h0a(Kl02M&m$~IU^qhfkjaBnjrzG@?3CNuAIRLv>WsrT( zi?pG4aNERFI-VlcXzQjg9Y+)DBRi(d*vR0sse#}L_)KKIn@(0;Ig^eu(>kWZ_xZT* zT$iUdtJ%;I6Sml}!b@pc5|$>Fw$%7>Qy7H5*$Df!GMBR!C<^ouNPSSgWa#0&T0dUb z75@PHH66b;C-VS$@X^O(H-k5{ks(5X4Y=qhb0x{-kZEe>bFAo)ilkVmlD(F8>kE6U zNBP4r6Nk?ow8B*FT!<~1x}#xB1!!a%5Y^3ST)9DyiSY__GahP9l)^y{J9vDtx_M*K zf?A`>w59TWgaGh2hVPf$|97y>AvoBxLxEVU7!8VyQnc2i{fJoe`3oD#jA#O98|Wr; z#*6_^FloNzGj2l}JWziaC6>`k7roe%e$nUUsS)s%$l0R33NQ1)&(S#K_N@>)hys~$>GWv>9m+Tn zfAuA61RFFpAk`$0AmnDNJ9tZhpD7PsNKqv3Mw-zFy`*Hbvj+v8mAvm@oD%cvF2MGP z)ekc4Du^CBSQ^{s&cti!**w>-4OIkyqt8C7vUiOctLChZ>T0ZHu6X5Vyiy3X97IF6 zc%8?Lz{tEbIT}b)Yi;(O%p_k^6~&p|P3=3Ql*PdaAu}Ae`>iZL(%&wX6e)WUDFU-- z?2?<-(hh07Fkw4o!{)OY9^}ihUI>%l>Coe;`WRM>OpuV3KwSmW(9OuC=b+_AL`&jWvT7y{FdrH^kAWovGv(QyFVpk}*dE50)Uh6hTjR zYW3IwZ3`GC7_##D^V+J;kUZ;FSUiZ?gTziEEc#j18mw3gC0|WEc-@6cZMXJ5?C9u~ zMN(sSwpHCTI|QppdSYgson7}0=*d#m%fxACM>skq#=OuhbTIXvC-(VJ?ISeTMNvNDQ@iunJ2(Jn5GG?la5&@OB&jXAvgZa zdSkYKj8X;FdAdZeQ&wGIWj4&f@oN1kip&EbzHE~Z^!rUDOr6c0Td9odeYbk-l0&BQ z;fu#c9Ppfx-YCF+TUcNvg4s1b;y%50BMn&poE%x3P>+8s0++FNS6#*3_#C5iP&bt~ zKj@cDQ>$_l*Pj9%)QiF9_Pb*`iaS=M z&EE@1p}-1%nu%YlH3v{2)xF+C(B1|L&TYwU-D4} zHEg!Wbg(sO{q@!Np2`gs_&)a4To0{iG1-U{6_*=D*f(z5TXV(h%6Ao)U9>(P)+=~B z&F0hm6NOE5g%&)s7OGo^gV(7@ul*uleV6{!cI}V|Q})lMm>ydjjpJ4?^6JuRCf`I}R-?8^oR!!}CKnZH4E> zJUXcEREic@lx-#dTKNTVP|~c-F4zscl!a!T599;n!R}vT#|{>Y!%!yWpT#L!_h(_r z{b_}mv|<2>K+z-XN-bX;fMLi1?Y4{RTey3fU5zcxk#CMr*Qstr;B1vv*sc`xvxQOZ z&=z6p50x7byMp7xg}vVap_@dt<&Fl1w+_tlra^as%M7*Wd#$9A$_)6HB@`$_y)tjL zIU3A^LdYk%mJx-Ml5_||9RXUCLF<);UcCmD z9vwYvxCioS^*IP~JtAffy|0PWes+;*PHK5&8Rj=4eRUq924V$AUI+35k?zy%eruL5 zpX^yqj3h)7h|_(H&RG5X>_`yASclUc5EXwoai;~!JPaFC60!G?0Y?!O$y3P%s+|ZE zTqTY=J$Gc&&_+N^AvCVU^5$a`fdve(1|BBW4ITE5uv$*XgMlzDvyr_|Mck=YfjG!MpFXx}~ zQoi8^o$;nf2}EZctFrJ)zJ)7^gzsqjycZTJ?SVM!=h2BspmM0R5UNk60!TL!g;-KR z@mAU}PJp)rYNI7ZB?C*$7dCwb_GnHk*_OiDe zoe#AF(GEYvQvqNhEbZT>+kRAcbR(S*sT_ZvMH5n4q7FAcJDMg433X2nq_gUvx)ZZcB%Pjp|COGitlZ0N%i zzC9-OW)mj%%IB6Nl1ly;d+#0B#MZV8TPOiS?}!jWRY8y@iU^@8Qbmf=LX;MYAkqXO zLPA$*iYQ1^dI{16ArdSosF4;7LJVSo&}7q0NahTC@8^B@cfRNRzVm+P{LWuz{DU~N zX3ea%X4c&6zVGY0Y=(r7fviqW7W+3!s(>k=Mh>7QH=Xyc1~rY61N8IUxN`K*k_!?V ztVT;ru%3F0E^ABQg8=qOJMqa`yKxfuSOsXA9@gKOKl8iIUEFnZZkkfBbGNFo-^^BT zddf5qT6$W z9WEBMP9U9RwKrOuKS^MmEMA8c#KWttD{QfO0r}&YcW$ay$4Bptb`ROX08}! zJ*c*PFK-D;n92qie4zdJX}{a#eLV0BjYqixfJ;AbBCyz0ua#|kQ?l|wuJ=tR$F?=F zcg*)|m#RV)YSESTszPsfmuBq%fMrq~cq*V79yflrr2QFOV9O`t6KM02Y1=newSki-M z_5%PN4EU2}a?SwDydAG|?8(5=S4XuTV6ztZI#5MV`v!B|TV4TAuLg%i*5|Cyezmy2 zA|$b2c`d{Y{tBUVX64x2_}QJdy%SKO_BfsTEjA#K`BY0}_N076aS- z{!cJJ7%ceK%zNrA42u}?&|Qr-|2@31w$7GkEk?e?w06nyggG@hNukYx<|(e$6&ksD zt&*d_oH7H+i{*li=ORNz2*4c4-%26l7NDImw(B*J6H7}&YJCoeF6HsFln+wT!R zXDv-)e!w%S!haXpDN$pN8K^XgI6rd?9Hk5aMPN1i!0wNxX>72KAEUd|{;nn*^!$q( zzX(SOzl0rEJ8Sgp)Xs1_lpF8-aRR#!JZx~=0{+2GL&3)~XR3Ud22$w#d6vP=0ti_2 zN+4)JfOmQ5&cNY|Mv~@XxPoKjN@wj~$lz~rQ{x%i=7x60bCq2fJcV)XBW6iPK#wPR zdGTs_>j?0w27mo0{`_-}T_*pIQ^w%`lBb2B{Cz=+AMIm*v6ub-AWu8?C+!)(=6{(y zZRf;)k*6Ko;jshB(~j*>r8&a>L7sL@>+fPmwG94~JMGW%|5Hpvf1dx}bEg%#OkSSU zg2oGGV}w>kB-1?3<%Y(&Yr6A2R?C}DSVLT zX*gCZ=<@1uvQploo=-Odc76F~+qKK&FmZ*C_(mlB<%mjyyA^3HaX?9nh&V55KBiLe z;k^*yFv14UGx+RM>A}_$1Qcz^(kX!bLXwn2hxMwM;8wY}!v~+3)M(yz%>3*HhN@ufI6WI_dCM`Km(fFBaBc?vn&W zZNKZJp64@?|8KIj|0ra1)L`_JgiG#OwY9y|Cr__nhxB%9_B0pzLi*P90}nBn5%E3c zj`)%LPD)uN*=wf(Tjbushvm!~Ki##eJ5 z-4s2wac6hc-JI|mDD5aKDdDpwJ+Ov5CisN0(R!~VhH(b4M zY&N_j4_Dm!RAc>dy`F_%mOh`C<_FhrnbH&QJqLYTz6Tt})D{cGEn;6!2fsHqNS~ju z9lW*g=_O}&7+0C-*BHKz6)2Ll_?|%yXZ1uuv9G75g)t78u||dU(@|8@nD0-IE-QLx zqAKktB{IXid07J4lD4_-t{d^(nM+;SnS?#iU7DEn^nWv*9n=2%P5CEf*Pk!c|J;kR zbNYY(qWljjyXyZ**>#P3?cd$c&Xn@6OaB)ryLA4KQFa~C*4F!9r|kN(mVZ)q4e+SX zhUs$U{p?cw9`Me5AxK}_KsssEyik|K5+?dt(`6(O8I~vq1GpU|A9n zVgS_TX~O2VS4jigI&*yJ*k?_`R@|uh77dSQc~;hJeyi1MT!2Xh=wh1EYFS{^Mk+w2XCCNl&O@3qp(z3 z+F!jq=zOd={VH7BKTqdiqHnbi=Cl@;hyn1m0D3tgP32=bsG%BzSUnN<`q!H1B8G)$ zv5o94_O6zCr>T~tVbpZ8?PibWK(f<6{@kkSyLwTCLsf8FfyNCg(16}NL7sk|ByK{& zn5#XLL`7834Nuz)W`|8NBVi1m#0ude`zs@53rel*F4aB|%_S@pzWkJqiV=W%`AFWeoVY zOKb+KP}rO&%eYE;Z3npN zDW?w>?3um(Zr@NO$TF?Ozq=HKO&+Us5?23Oq+n}dyOTAR4!v;;-Z39e%siu^)>=ON z=bvvWhmKsx7;?GTpD$Ja()Ui@LG?1s(!x}9^m-?_P6p*?sP7Z!C*0jhZ5_2x!NAeKDh zBFcwZn}JG@i1F1`X{{w?32nd_01jwvT-A?@4X!vjGINf+z8HyIdWeavYjbtz)4YOj z2x56+f~IS0i_Je3<1GqWPlzNF4G&3_fJh_bK)DBCRDj{S4&VbHwDBYyT5Ei$iC>Il zxW=xv%^k-?24W4xWvo+!V(l{ZIhs5%4(p>W_6edJ_tstetv@?9XfPUcF@X=L2-lG{ zP|M-OaZjZSUFn5>JhsNRUJpO|RWH?+3n=b_5%>hyt;B?~kAj-V!7UM@i=_x074t%?Z~oqd5v!l@ zn|q=u2-!XY*j;#(a(H{vDb#&Kp8Xl@fx9Vy*T^P~ve6nPW@Ff0hnsBdx9(rR*ef5q zp#Kmjlv`4>w&6QrD%+{6-V7SWWpw&kU+jq;U| zfo5m2w!8NGb`_rC5ft6G=q;_+4Vu`y>?IS6rZiH`)qco+O>(tYZEZfdLRqB5A5x#c zv|^RaN@e&ybnJGYI4KW4ec~a83Xf14&9KGVC~P%)&BGvsYrb_&UHkn(Wg+Ii4vu}- zvn~#zQ)vmG{3Uz0P(9A)LPC4{39ImVy{k=^B1`+#XJ0h=2A~YT6xQpKV%-JHd3hZ> zT0i+)MVdcp8tzw+9-QkrD&GA$e}9NOnr_uZ%yAX@wH-KUa1n#htcdMjW~k3-E=iIH z4nK{IV?gqbC2Q=evmRY8$_VdL4R81LXC-F5)T2MNz z419#&-sq@@bqjlr!5)B;n!!p%T23!fdjg>n!@k#WPyP3I^OaZs}+PEk)xQ%vnF)#Q+BpBZ4U^ni-t&^JD3I@On3l4w<^0#XPFL*$Kl~7RM&JX>`%VX=TgaTr9Y@CzKVr-reniS#%DfaK;!# z2rB;o^SnG8sP#l_H0_}`)%#yMCy`O$db9wHV|8Yh>uEjvqp{wh3i_?qRcLaO) zcWe}2h`7#=ntwetO_G`#gpEHBVYl`6Q8;fh!uc2jzKj=7}p$4sz@<)Ce z)7SPL)QiWD9T|RdI}hls9B6UERVW#f3&$mE5y04?cxUF^_=U$Ec=kF2pnz1Fn#*){ zUOxK#r6Az21Uc+32I5@x#2PTYPg+c6eKt4%i4$mSV62;8nr>y5K3pb)z8d^A>adHL4~cmN0@{74-m z6hu2BnRzUhaiAnyu3pw<1o;KHCU8vD_f9niIFqX68ni(jsuc}8!ygLt1g0|GhB68M z1kcpzmEltI7HekRZd@kt9(&O_{<^tcn&o25IAzIA+^m{SnSWSJZhSaRPyHxoINpS9 ze8`NZ_ZkgjfZ|nBi|`)#o1Y4SsxzXX4>+ohJ?@UUE4sAk`n5qVHYg539+~@?8&;5g z$v62<{N&iC*F7enUIEV;=#zpQJPtQ_*OI#YJGc8sYu!d+>muv>esW+Q1t2>w0pE(q z1R(GMn%%?9qT!@qpzMX79g#UkX75A>jP3HlX?W=1*~g#@3t|0xzaH@D}A!}0h<*RKlizRwb)4bm6;4I z?>MwL_Jlxyu%UBGuLjo!!87z{^PT&Bb~xqf$cc_PBt(=&?D@8fzRq)37lQe6_Y}tV`&@vm5B3 z!b~o1*|@Q=73*)*=F zoDMW2H?C^4JAD(1A*-9M0M zUBMd@5#a!=a* z+@`^p6{{x)v~ct5TB zsOV_i{27S)F-zJq*#o;bH|eOzQH4^3bd!ek&h*|Re5Qr#ryYqI;ZNmG|_Ql^TdH^We2 zI7DU3&3=RT_AY#&HW?9fH8ibmX6UJAO+_B&bgwaLuo?vC>)$KPzskG@H=xD+s`4@ zVzoRo(8IIdM8gGgju7~@fsLnJHyFGO}KL@b9Af=31(UbvOZK zFtNjQ%i_-W`$FbdaBw9ZkGoU=>>Yc)eACt-t3rS2SKfRDx^S~IJbf{CJQPu_yQXjj z96ahA!l~K&Sc?`&E@mF~77X{9!Yz-<;nXl2IE%SsN5$S+fCRMs4ySJ5Kx}|T^5mQD z7B26>q;Ic0d|!bWJviJVobPsl*{#0WTj_;qhB*Z4%#4L>`UN2e1&La@5u`h)?{oHD zs?1FDkdWa};@O-}Ct}$%N-|%z&89|cW!h#-M+HibK?F2ord4(#5hSY>Q%FW60bBj>--mpj zSl)+aCf%34$<42OMkvRbPTp*u#hGW%UN+lv;kAR+r$g7&(>=~Ck@ODFO@3Lt6N z2bDzJJDY3@?NYoit1B6h3_ctwi38|9{@V^e!ez{|N3a4W&wt30PG7xk`xY}gPX2K+1H^GekK_kt+@-NKifQA$y7A#*P)_rY18+_=i@3+L^U5#H&8biU zG810`Y_5GyAXpC%$2QQ}%*K1<=_}jdvYB{>rb$Yj1jsB57{(+pc-9C6WN#P4t8Vo~ zLb};Jeu=?1!!8--2N{E`o#Yo;$b|X1wH`*$d{8=iZZ#hcuo%kU`2(GC-Z1QjU%6wuTsm zgq&PB_v_aacku$k+ssQR`o_?3y2D-T7b|~gRKo`iMER@0rg%Q)z zb~yN?)c*Ev{mYY>UmG?X{C1u^pdNL7!B?OJ3VWNAms@3T4}eKKhYnORN=+CzN{>hS zNg%W8RzL*UbQTh>eX7t<5spYwAc~4bRsG>56lb>p`}QoG=$-iKyO8n18bk*611{UC zGOoRzX>Ddt3e{rJs;cDVsj*w`$eA@J2L8<}M;(<@qKv_`TgWOgxz{KjH|HkY5FOJ` z<;);wPloGvH?d1%tr->W&Q;{lF$GK)7}!{xS8= zp;a8n?<6YUz(BT(ZV=-&Hv*Utql)B|T&iHN44Fmw^@aH4^>)|*9fd2ww9BwE;#DaZ z<@aNnMUx`~O;6f{)l5-A-oGv|gBMgX(_MfO|4bw33M2A6!#@Y?IIFY}cWe~O1T?hF z5IZl!pw@Gug}(bz%7w%xU#^OWHV!5)HB`s+YL%}E6uQy4e)}t--2u4<0N4b5au&OW zbfwb1eBX0V`!~OsV!1(DtwOniq-8*vP{p4{>W-mmGUSpI`tzmlT?t2<#|6UQEp6}$ z$mL2=5Mcm<6h+IGpWcJJr3Wfk=a;*sU$%z3iVWSQuD32Ng6u@^;<^c-H@7DiGlhw* z+hne>3>OY!F!;5*4OMeNRiN!OzL-en1BCHxY8aY|VJ2@46J zTowTk#DeZ&!}?;p@%Y>DiCYnq;!CX54K}-QiMm{uF!@_wuh2{AXhK6{J9RRCgE5k@ z!Cu}F-#(AQxJ`8|Hn_*P6Rzvae4&oyJ72tT3s+JejA|M@phM%L%{MToSWN(dj$Ez^ zxjY8CSje~6rV?0f8>}|+<}x9)DyTWw5kHVZyu^SDs#l4s1Z%Jk%e(vDbB_b4Z7e)3 ziN%Yl=w1g~Kp+UNMDW#1383mc*QHPNG_`-Ba)1yQsOU(2-0hTHH~);D1iK9zhfJ7mmFyWJPnpSlqo>t1JVM zFufmmIH-}Y7kn(|Fqj(ObCPvoxyY5%MVjQt%69|lG)-0o{TlQrCm)ptf7>nvXgpOz zj^_$ehc&o+#zg=MGLnR(YrHJIH|Yj3K(@9X`nA%-C5a4bR7j%VBI8#Gd^FCrUJ(Wo z5wD4kg=ki++>4NO{Jf}%8{Rern@9v0OeDS(oOUFMUPLc*&tN#|P7+PcZ0Knzl1C!C z3(1qv>&mAqNy1lbA(3PXE1sRiiU;c?SkJ{Dc9XywRgl8aVTt`#Xpj)5Gdt}BH>aoY zp^qN-A76N0ZGsiZZcO4@>*Cl)ABpwkkl%`G@67U|j_hRqxbg3$_isPagTF7lkJXGN2~Zaz8zp zBWczBjMIgpmDb{(sN2MQ+d?NKC+zw(0}4BJEsZ-MCv+5^?1da=Cvqs?Ctlz$)ciIO zoH3+Hjex+1PDfH9uyrH{-^dos%Y32)WbDrSbPCHMd3r%1$RtU<@5(W2F&HC>gKu7R z3$X`UwmG{M7vKMZEa<^wn}P7(v{&GP4@`wUZ8^w45)o_ZtO+^iwX1;%Wnel zH8~b1%p)}vl6*7q$kkyNHY?Cg;s(KW9Y406E|`BU6W1B!MctrLV~p1=9z*RpJLagg z^5MPo)TjOhC4;6UNl*s?aQoGK93z>Zo2EQ|f|xl+a2($It?WRts8>hT_QFHFlaw7$ zeq?+9beVBPeuv-%^j?wN?jgN6@}fjeDnJqJVlCsT=h2*B0GSo=9+dy+kmswj5+OoP zqKr`vPOO;LW-~(h@V>952m;1%)Cl?7T1s!Z<8p83g(QuGN!G@KTWakUWx*rB;Ayi> zAhi}l!4RHubM?TZ+27^5sPoplLnLx{ui>|amKne=4Oj^%Ar7#~ON4&sN#rk(Lz>XF zPHDjMV9izoga;M2Sd(7JOyjdu66L10On040mJ4nnp)0uuf z;T|2#QDT8iR4!s`XMydOp`oG4wQZw>5_hP>pZ^V$uBVS zx7>sO0q$Zn(rq!coR>`m;8sTLW-k%{8qt3~XrK%ZS2^=?a4*Bic)Jxx*s;Uedd%N+ zU<>mVtNxPjnH1u#qEX(FfIH!&fOnVMJcO8R_6GiH=hMyeBbiJll5MH@yXAQCMb!+^ zQy&WzZ)O{_MNRt*u%JCbYQnOK%#OJR`l6|NnMn)?*{MvUQ4_GMT6)_m9}PpeLw_F% zU!EL1=y6H+lp|=Hvma_4YTI%nSc45=EZXrm{9KtQ444ijy*kO(T^=(enDH^_K>IMT z$=qD^cI%S=t$<|r)?KRI00D~2OYGl%V#O?wd>li7oNxhJZh<_P_vbei_YPd@eR-sf zb!1FZ;LY0dMjf7V9zCbqzhjC&Bvzp*0XT^h6erN+!AXJ0L=@(ixCjR=UaM@SBS3kW zh7QZua6MzmnM@Z@@O>C??tG&9&(E!i=_56Ho3)YCZkC7B4O7S2LYK`(*wJ-cK{Ip5 zKAwIBRPE!H+=Se_)0)J`<~heosCb-2`*L;ChF6vbo*}G=ut#6upj>wwBO}F9ih&%4}i8LAh^i3kd+6q z>umK@zY1VwY6GM|0tUXVykxNjJODlx2ECp6r+{ahj(^<+aVaX+?Da8;fa?1l(W_h#rFYV+!UMwZ zn9Y|mF$f$`=JPo*3N5Dy8!pNiQeXMNq09W`NE#2(%YIXVN^b}-wUJtBL@ zI7O60+CX*BEc8Nsk<1%fjF;T|%TH!xEpo32OVpO}C`Q_&aneubpYj_+6+}$DQ}~a5 z!kVzv(|ARNaigF1`3*e1Cw-;BU;ZZ|t(8_r2n=-nyoAE9js1W<4C~WY>jP>7uWX0c z>v0*M^YJEMw&*iK>5}b!3+L|fk%@)3SIL+8*h}y@S6=4JA2@T%drHCDro-j%g9E#J zbLC%1HI-I$imr+tQkpHyh=cs(Cs6!lO}EPUerC^}ePark2@ZU+7V2N=Q<6@l!Or@2 z_UUNn&%$OEJAOYki!qMqQ|tI@Z9k~ydPTu&b?88hLTL$3F57LcFW=MVXOxFdi7;Mc z#W(vf0tXk(nCpV*9S%tGtQ5Yiq~!T9=bW%Y6VAw~nScMoy&+Wgy>Atdq2z>#Wm zDrbJ=lO%qcG^gL0D~J6;xKgB#%(U^WcpenY9%)s;SzS^#qWgsd=rY*L7ig`w@*fXH ziTt4`@hs&$y+iV+%FHt%BQBxja0kiymitDO)H{#Qyjy#ZXF=0fcN1V^SLIHD3Q7;86x7Us zUh-@M8vtpBWu>9QNrx@>2&LDEpTI0)MldT&W7<#w2n~CcQQb;14_;4Jvp zb}Z?qFyuD;SoTnvXohxC^@6Z`q`|G^!;s*C-_K?a4|cKpAZegK>OZ%4JM74k_!;=o zjf}v|DF`bL6S*O>;97^MP7w?AEg#SC_iq>kPmU3D2N~- zzI{7;Xqe@`Z_=qj&8gpt5o$X^wr*V0>iH4N!|r0mQt&eX$WmtUn$;6Y04nGe!=OOg z^uvP@JuDjD6dX<#rgwc~Bea{z_Xi#P8(+Jo72Wpve1<~H$cN^w+U)i(@i zT#(W3Xt%1^Q`E=)^Ha$6i|q$)&qA_k$@ZvfMAP`_FIu=PwSjis_4R9%2G-h6>Wq|A zA6H$_gu6|g{FA<<9W1rEF0rym3(JRc)+&cfKNb^eC8d-Eg3DQ0-zfmx*lt+wWc4iH zXr0ql(pqoBl`6d6|Ad14sW7zR$Yz7y^uwt9han(oR~7%+F!EC3$33Jh9fV)RfuLzlXHv;jcM2w6*ZtbU(rWwQlP2j~ck@oicojo-jJ!ZQ{)32%1 zRaXYm6jQB~(jLt=06&lOP-w^P*A|q7;^#pmOLP^*whldY)OJFtgWTBI5fs~4TsK#Z zBQ~h84n{qsQ@}LjEh@d?BA8Xfz{m3SBLTuR9oWw6i!indbF~JL43LYNHD4qNM&Jlv z2$da49l&xo;PO%AL=wWTqn0=qJ;uOqJlykJ`*ugUk~<5SVz*QHScEUdoV>qI=C$&3vv61T1)i&{k_!`(h zU2lNa@3(Sycj*i`V(ZDQyE5P<_u3|`55oh(8{!na#s{t}$;5hQoe=<`?OmnBO_VVo z|2YMug5qc!XPGi7Ep0{tr%>u$2tBxCRdLm&%_yRhUYJKz)Hi6PJ#O7^6vs;`1(_S1 z>P>?eeGbmemz7nDfdM$^pF_Vh{QunY#m_V~zvto-l%|xvc~Y*uwKVB@?$8}m-hy!G z?eB(j*^b&=`$QqSL;0d0k~_sNL`9hUuBXb)yi#+|yBf@&dE}NS-i5g)l`U#wxAw@~ ziWZ!Vzy_{Wde$gUudU^EFmD}KCA~R!rg^5lMrFIOE0z_pf5C^wx?XfLxGzA}(B#tc zoSXeKmF?Im=ch?gB#Z}RlLdgBpk(@TRW1$t`|;^+f-RCcrq|}&?u*$f26M{N&gHs( znD~+B)%A5Obo?m5TUv(D!mjPl{Vk_-Do`Uz#=P7>s52F(!xJdXb4=FX%u2#2UcxBc z!~g!*lL;Qad+zA?m~l{Q+3B|d(2avbl;hNh5;y~+^k!A4@Jp=&O;`IA;Yr4V27Kj0 zCOW3Nf>*pBJO&iU5=7I$)V3G8G7_ErZ~6{Q4MUBh%*yErd1ymABFM_nnL_~NWVYVY zCD^IMmL~b8IB0!+dGUsEHpf(hGdW;vo2YcbF{0ASBDbrXEr`oplV)`(NHwAHZwVP&y1`*^w{ zghICLl0uQQ(*zKU^p%Iw-in=D2gDc8heUdYoZMutUcTF-iXv9lQeuanUM_wZcA0>q zxXusT8XdLwM1mNR(IkkG?#gIfje)1}*SWGQq_RauhuO%h{hIInRt*(N#dS13TjPwS zHWu*p61N%xW9A}70~#OQi$+mkB$rR_APd6-dyQMZEqshZZy=^1@#H7 zALBNIXf>f?XCAqqubv=s6{V<1AxgiZaGj;iDgp*56+Lg_X<0OGpV%wWiv>ikms|%x z05`X6fUd0BT$O-ADJmm_rUlYsuvCg)6`(WvlP7G{YE338(1w-SA-eSkyE|=TwADZ| z)SOcbDi5I5h#VpY#dT`8&TWYmR=+!6v>;-IND1P?^7JEcGGSzoIz(<$O)2QeesT8r z5s>Ko?@zh()wHxu(3={}SC_(b2*dLl1Jo|JAp%aEWD02HEWw9qNwn!UQp>uD{9{!*mCSGuhT2`?%ZtCgVacGY7pbih97OHnuT0 zcD-R3Bdc|{@}Lx=8l`ns{@>L4AG=m|?-KfVNzVV$Nj`A`#;^HTma_whsQ~|D>+6F? znTE!|+`&9(EtvihE!a^oN81xT1nL9(UXFn2|A+Ftqwm$w$nZY$PwIc3hw_4c%f;l4gTIivVi-~f#nVU-hXbV{9mvNe$8{> z2?qZvv~$8=I19~lf1dI870&&6%6}Z$xyD~w_Fyq>u(JP55Z63!e=*Sa(qA`e^(Tfz z7pC*~)&A=klD{wWU&oOAdE!orxjT$s`|nQB`MZ<;i6Pl(;7&0E1D$_hNd5u;`45q3 z%V1Q5uetA~P#<5Irj74q|A+t(mGV~y{WHh=bb7tZl-;D3STBAwdLY{Y>(uefei+xi z`%>m8Pr8e#>FIM6uKb!12P^LdqnIqC8QIC#w-&`NyF8Yd{PBVM`~9(#g`05`d|M^k z#i5LzU%^p}sF`=mOrs~!AD7RD_6E7+;g*pxcevz;x|i9KGdbBC!Y6-yCp_zs%eW|L z;ijH*QGw4vmcvy4vFYd^_x8C<>MSVaPS`a$y*PiM-1s(}{D@emxBwDj-s4|{j9Ax5 zShZ~kpNHOgIs8N_JaghUpG*(hfz$)C{1ckMSM^+lil%2M`4pHkAdzB1yhGPHDXjvQ*YsyOY^6fjZ{wT92x zhUo1%aNlc6$~;8$I1LrbC)2ePpC~;2Dk-ZZH=)AV$;L#y2@i$t^4K{f4evgSPeiZ|i=&3)%%;yMO{-P7eQ*ZYTJHD-3pbZcmhr-w}-B=|>r?=9uc}r{ZVA0>?k8PoBTrtm=F?a7y27 zmjb`n30=SIgYoRR`^GM*YfFO<*GoTUjD7eV?7c{qPPSb?-oL9mc5bdo@>7)WmC9Q> zLVcRW^?W~tT-!1fub8RZ`fEy$>L+d$x4a%c5G|oZs@}GJ`u^Vf@jO$9l-|o$U&en( z9=Y1C-r@YDAt-&Z!X`Jlw2%PtXw>~(&EsMukn+H1i0fJ1K0xVSTgxp zp5pq?OXH|>cWCU$M{WZL^e>97*W5n&#y@K^%5iY@-ZA91sP`@!y~yL=&A$J_ko^Pl z^4I(SFWkw$#NYq@d;Ql``Tu;c|A&y5@_#~JlDOCZ-}m#^4EV20{}&)Hy8p)@FFHq$ z82qn8UjD4*pWT+9jLMaHJ!*LY!rAnq@Gh5$tZ+XfS>-t*mzVgL8uNdANdNJJecmOS zkoAup{~tf|KPs4#`}?Om*v%9X;mtYUrUtPTO^v`k-`w?*;bo_vmnJfuNa)J0G2Ia` zTe@2^GN-MwN?&%juhIHcT|sl1vt0BM}I? z>*Qun1Tl_ZvjYDUh2cpk0hTpVj!Jo*oxDF3NVJy2drsq1=%_^`=yY zhg%DRSVX7(Gf<^|9xdWa%e=Lfdf3OkMvQvW(ZBZc zoF_WDhe;LHHT8#njHEcdu^x!*R|VN);n$7~oQA`a%Z|L!Lue{fzL}(@{(<5kzQ53a z&ZLC8|1-vb$PJ2TmstVzXy%k44|&UJd4|cT6gOPz(VYkyxNUm-qX^_QO864I&8clR z^rL!;WrVci@586>>C1x_V$_2e)no#Kn`Y>a^b9^qr)iah4qku4GPEbNPA(YN0#@`W zg6FMG1~o+n2wL$8>+NFA#j+o??AaSSrn~;ql|a^)d!q#=3+%&3J=l!?tPFhV!Hn-q zsHvJ4k22mQ0zlVh)pl+)bsH_ry-EL^`)C|oxFa_bje$jHHW{ehoEMK|j$5!mDI{ub z<=v^NhAO|@prF{G#Rsk+3%e_RF^)h-v)UTT{mbs%O&t?1!(b!7H6WbT)vhmf zNL)67@MN5P`)hW=C!YKRwHOQyLyel7qVQ`A#Vw7HK+y#S?$LCfs;E=>7HMFFU%H(O zauF_N3i3Vbf<#JOV91}#uj_)}JqYMaF~0Ula=lSZS^cw&=K(*FrZMXyu)e)wT|vB} zgq?(gx=QAOIsIR;ukjm$=E4!)2V|jrS>N&o`cL>=f39Z0mDoX6>7R{=m*P0OZ*LIu zKF{}|&Verh(mr9hu&SIJecZ*`Dg$}?X`=8eVri8Ynis^y79I&pA9;(Yb`kk{`%3aL zg>qAibO|+-4sVfD*}0562d_9h2yjE!Vqy?Qmd$WW37okum@y`Ws6wx|wUU>X*ZcT* zMQ!zl*&s##M-mi&7Sc@OT#pIPM zO7GA0TQ}thyyyL+F?ke!!@@&3Qd^fdIFiUQ_J{I~D~*sO9Su;bT01j|^AC6vL0f{` z9u(0gvLUH{k{-g4A=U3DeN>cCJ@Hn~n_XT0zNZT~x;Y@yLV~12=7+R$JP|@SUskQ& z=s9Nq=~c1}zC0lGuDDs?9e-F74_NI{=P+|cUB4=C#Em%bw5R~8;&f?=cbcMZ1#Le` zwDeR0-$tU)!mvFDUyb#ShSI`_g=4Lh`iR2eNSL|sWBMlu#O+j^gSp|Es+^AxO<4|J zonB#^8`vNU*Z%8TgVu;&P5g5hfWzCm4xUHYj$N&^>_KV{i=ETyl; zZ+F|PeFChbDFW?1EeL^k3iNBmDyTy&GoSs1p{ySl`}lMXw-H!{Ppz1Rg~y7>pVGYV zQrRIDLiPRj3}}*$2x0a5!X0_W92SFlKTM1x_hr{VZ!E-nv!S`Gu%&UEBIOJTyi zsjX0%U)uYy+$&iA?R53hP#YLZpFiXzKVfCy=C`f{sgonE{M$Asv=T=6_j1p@kV+Vp zLd8TuCDT)&#{E$3_X7QW*z3o=C#QYdjUl$}{9z7#DU809?tU%?N?NP{g%`c0)z@Qa zBNboQm&(!_uuLvN_lHvSW3+-^QMmY74k-M)_C#!aSDIGP>tiYWYd^KT$1l9abqw9a zUGo=*ZvDviCXQ4g?rUT^V4tZ-Lr4#af)cl3s8P`lh?e)DMJU`!Rx6H6Do_Y^S?c?j z0m~axd$?F!(39Dhy~Y%m7% zMd3n7TZg|tfB1Mhm-x4$(j#Mq-hKG8>u;P?A%=nPntTqa$rT^>9*A;?jk62Y=H;37 zpP+F;lYOO28|nJsem907*YW#%QrXK`?m3dekdQWHkV@n~mVMrS?VxvJHbb~sd~@=L z4*W*V=9y%ocOQFvdMML0zU{S^-&Y0L2a3#|czw(1a6MrGs zf>%@3lY=H6h4QPf+cjeST=*Git}idwwNB}@z~0RrE@un*eWDELB@`wJtyf+&w1!rc ztGtvT%53?a=O2u`_@&1pxu)HB_dR;FME6l?Z(qy;(q`5db;tcRdw<~lc3V4nC#xWI9eLojoBT%4Rkfb2drtfElb#RX;9O1z+V5`ksl9~f{YQmM28BJwT zjlJF)Jn#p~F%?h^oxMKVpdVjDkR<^H;$G4~hFOeLU z$a!m%^Mx?7k7b0)u6so8F9;C!v|zs?!KiD9Pd0X=#Mr54LYlFp0QkX~PyP@e7j~3G zbKE|@F86gD--H*y!Pi7Y{%(ybQpNJbx(q{M9{M8GvX-aG3#q2l&uW?y!(N6BuSuD7 zb56Jitl9{9NV&^oa3{f!Ue~I@4Zo07|E93Nj&v9fmAK$Y(#-!8Pk2L zTUQjY-tqY!G3HYGGILxwkhN!_Sz1O!O8?*-4;TNPXU$?SzFhi}SiX<{X0MXMGd3Sh z$m6qrz6tE(O5*iq2o#S)#39wwppq)-orzHw_)R*qhzdn9CrPG)-fz09L6zLRu%?QE z>+s8NP*)XUf0HliPtOO-sp)X$UGauJU3*rT&ecbs{ructvBcG;5DS%5U|u^~t*iG@ zwcGr&md8^;t8SaZgEx!zwavHJ3v+>DD`r7JIIp5B`<_hq$iPL#MMKA6F&V?PyU8+5 zBRsmc8Mwnz3zm;3&MVy_S8<4Qbq1+CNAW+4vr6Lp==;mNPuDhy!?qDBp65feUsJww zT;CQefTeOl(jSBK&x%PpfRlv>2kz$@n-|M;3i^22PdpBt|0N(#;B+k$2NmWy7u2H? zDe&LOd-rIl`v3p?x{5K*gUYEG4xRF^RrG-EVlX5YK-=li*T-|ugI?|ZG^TK9kVwiYXzJ=?b5@4erz z*Yo*!R*C$fg^FnmpEs^`Vp!6nchH@aQIHzgp*G!q_+MAk?qdU}9k`FN7nvaA&DfvTi7!o>EtFvyQtchOF84AoMa4K)ljQs53!~5n(y=lXSQNuBodSWXT|1`w^K_u9+|~>4 zOr$4Wuw`BUc;QukX9-j{Ctk_?5 z@b;`MOQ|PcZRVe>(O4X*IQ@X?)%0I{Zac^tQRK`_uI}Z_c3VTB{Hx zs5w;p5OwFA%IP3=uS6*|sUB2_8r#B7_1#G~k%IBFyg2J8Rj#ggj)^Z~V{k2(Ox4Id zoz`!+Mk9!MX!EYtX7`7}!i(_f+6AL<{Ly#j=*{qg5FJHTT~2HAAMicM>_GA|-ZUy_ zZcN)RyhJ(NBx5m9Hp@!n^7KFm@DXC6JrU5Vsz*to&>cXe9rP%3_xyweA*n1rv{aO z!P!5xCaI6_?lL&y>P@BK)ldU+!XBz~RkWYgDDs+@gu)%;b6alHqcrwKaT;!Tn;i1j z-t#5@V?KkjrdsL7kVfmpjAr+Q)#t1K>j0I!TPrc=UW1Gh3?V@+>36H*f zS*bo}c#U!oGzeg9?)jso?usztCd!lm6i1DLvh(w3E6{JO3$<=ru=**jZ3f+W973EF zb7T#-b>o7lsD=mbVXlaAkFka}a`Vbq!u90S^!=oQ!V*#hMd{Ud5Or@s6VcxZ zey9RRr4JZDycxpkK-%n8otd?jbKB%PxA~`|c#8LhFbm2u`32YwVP}&90 z&hP^b)0a-=b^!b@)LNTYj#Ya=^Tq}1LvMy^EzT`b(ylWlJ;b?(qDeID??>dQ#K8Uu zo`liiD0mI7cOpCL#Sk@6W|a>s1Ue{VpdCU*Sad>oPmt418oYh`fc610^TzGA0q2Jx zmlzw>eG?PyrhyQTlYOls;;g&-!H%JR>;u#_f0@35k(Zdz4?XKU>&JYvcMG!vg@E}B z_cE)4CB-gB4Zt$CPQIm*Ihr99xhFy}!kn>oPFzzTO5{DLf%^RLoD$_*?s}ty z5`zWk0A*;CJQ&F$Ch$YWx64CCewsb=l*LGS$%;63H+^!ZjnmA};M081=iX_^Q6o)g zodhZF$@oWaH6lQDc!|EU>_>V2Y0XE}LC?UoAUvy>{zsgp;?)bE+t z-o8mUrv)BvN`xQllFoa^))8I z1-L?ygT=i7NS9r(8LLB%ywY7xsyI`S4@fH_kn`#n-tO6^I!yc|Ln%Mu9*eS3 z**tu~&OX+*1n3u~5mGZSt8Z+L+dU-TsscQ9ZJHVE`7OrmGum`&P|vC z*o-($y-o1HzJnGUca`mCn$=~qAGaHeEoqUy)=k^h4D$c@6{VzKlKj;3l+s}(#|TYn z#|UU)AyFKW20ImR<5>G9mgV`STVbQfQ8q8!_c-R!E*s4gw~|#Am94PVlUaTZ7q@B4 zparVqpr z*6w<`^QjZ;RKqtHZ>Wa*WRjDdrl&3FO`K0d+HA3*RcMS5gOT7)~z+ zdb8(ebV2hro=7KEqC-S{fIb=wkOnDbCn5~50U7fg36?KWOQ$6P>)xn!Z=P;g##nY{ zq%Z?$o2_U67r*~Hirot4D) zsAbUvK_s9lQ7Gc098uth17yE3R-T_$1pLME_U0V-#MbIww8@#eJak^SS z9C`qide-pak;nzp_?BCCiGfM6>T}0$9>3FF)3R;Hq-)S|Y9}>vOT8ZpB&6aM;G1Ct0Xwp!^&$SATqK)l4Owx+>(t-qWcGl0|S`re&SF-o``_}3?!B(d4?bdM^OaD zd{N2LlIN)%?9b`xYkfixh;q+2(4V}R*-sal+b&Jeg8jKi$0PgsVF|JG>!<1&lK9N2 zb8S2z^h|xCB)s)0C2}l>DkccmhOi=171~TT>ERABQZ1jX%=N+mo?Q2ZynS(8o71Q#=Njqf28P+h46Kjd!YW6%Qhx-1>?BA z1(+qE4C%*G2|B2$R;lO&-EVQe>4<6j^jXey*(SQ89gvVf#7NYDH#@?rAD?v3O9=M9At4oirYna!{nDbD1n$78M z#i?lP3jC+CF+MO9+DiP{bzLXwGbp>-Hmu4#DtDl!=qWTS@6 z)?Fxg_0RA@meu9>GssOsw6qABwZf8?=wb3C>Ov89o&3W=UWlTiQq-3#dFsp9^`7o&Kf>te%jME4x*SX{!F>#KM0{hg(jBz1$s%ave&{O^iVX@o<{o!G^B)mAcI z^-^`Qf+_|!=wo8pxEYz&S$OF*Df}ij^U)iZR9^UPs60I6TlH_O6PHihD$xy+PlqWf zF1_AY3Qv%!IPc;;9scTfOi1|CT#Plt{QG8|yiIEdSKnD98mi-t+BEFr`VeHyYKo_9 zH1o3!*ow|wbz*Pq!iw%CMBxTvpkf$*86Ci~j9 zIyv$S_n+mpY`kjSV`jvcF&(K6FWybZl{uf@+wFiXd?8R}T3f%2_Rth!d z)1d0WYr|4_bp13{dWrr4X2oc0fuZ`6J1=X?iJI#Od-K-JSQ$B!s3zfzg6YL$xx*>B z$)AUsS30p0tN?rLs_A*`Y#}mh!4oTA*4!t54gc6W9j~s{fXq}q_Z`bi3qe|AMXXJd zdzLPu1$c#Bgg-p>GM1H0IPrCeLD!12zU^}RJG6FN%|=Qk(|!8k3BSrouPi^+^7Ge} zkq2kYDv7Y%wy?BUyhH^0j@Ph^_^zGPlqkdx0;}2 zN0e{bOUs%k@bPAgVRfuxV=8;d@ihxJr)cc!TzE(401xKyk4d(ac8{Mfe%eV-M!8An z!Q)P_I=1#e13o-s?}*nc;N)v$U2ThpBwEKjY`kcFR(;+2=V|F}>^+G%*5(Q`%R%+$DRWQjLTLSy&5p6&i{%b}8ew|+HfzIU-A$+dirr#U))1RjV%0mB ztI)TiPTbvDs{h(0L-gL>Gae(BQy`dH)0YYjOr{;?u-fo~lUq0owdW0hJ7>QDKd+X` zGvC`+S+O^2UG&lyLoMF?nft9eN1`Gp2_Lg-^R}4SOi4`K09z2zV?(gU4n`2eFS2+K z+UHFsME2MjSXtu~PBtLHT{kMs8VRZLgIVR9AhAIzic}uE;_FZf)twiP?xBSUW)?6vN{ zIaH{Hyh?K^FlY6i$F_9FVC{Bf!5?I)N=N5PouS~jcJ|?6M+RY*&9}BJd(LGK?MXtS z^Co^62FaT6mvJtG?JTJKo&-U|VLSKR8|o~?d!?oR9JK_1noJaq1Jrs4;=20@>=ABr zgByWDl{aU*PM)dQQd$*lT>;yvfxGy5=N7H}rlwNMMf9e1^wHpzk4!jU)zvbHh6M_s7s%RN5Edy6kG|7zV zKYozkJsla6L z!)V8>X3J)Qd&Hy}q>q|1irq>9uR` z9Y>=KlR-&w#+e!nJ>8q=j}ixpJnIFLZW7>61Y~7TnwHa!a0e@qn?aTt$jj-jT+^w@ zB>)n0%ld?6`ooB*O7CFZgaIh6>sxlaQ4g&{!6MqP{!+?v45@}VJn?WPeOXi;V(h;L zB8Ld$p_Dhpw~SLo9gQ1W)&N%`(MoTjVx`sELI^bc4_mt@wtAD`;r7iQ0(4Vae;m70SzB zk4UP5=PAGeQs? z&XtQ1-YhB3zzJ$}1X5Z;>ds}E4Y85rdDi}}V`z(z@H_+PzADAkh%pO;O({z~t3O8q z*}|T*=B8cV)(@K&Ob}BiFoGuFvuZ`D3kH=p_srXOb-sy=`1U7n4|o; z;w(dP#=)i*1knd^XDn<*$p4UA=jp)5~5W>9UcfY;V4Dx2Bkh@9{|H>k6mfFBkFaDH^%F)h>>^i0d~ z7A-7njrGlw|@sF znC&Gcavln$@lSbful{@~?dqr@!|x-UR!svJO4t_=kGJ37kEonz!Ml6GE^n6ZOf)Dk zc(iYi&E5-+Wh=T_$cA^-+mG(mQ9P}n^5xe8)AP98g|whau*z7-?**A*Bc`u>suOJw zN~^53Nz~WWpX5|xx(6o?-5x%?-*qY6G*;o=kTh85(cTkwv|$(Hf}M=%Ca>JWn9H3X zaK6FW!LdndddR~_zYmjeG(=67(b^pUv}?lL|GmVh@ zcXrR!k@1Q{GN4UnzD7}oU|j9gfFvuj_jSL*)40BldaFs{`y1+{v_Iw5<$j9aJIQwT z`&`G`+<;4vEx3wWu`rfgK1cE5p3D4|(M&+G>?S za-mPbA|E(Pf$~iie|Pna;LK!H$HQ)n?RqB9Y`{TvpO6#eS}rj*%Z8!OfhsD+KxFg4 zfdf0E#xvXPQsv$M5M8p$JZkaCXe>%f+xwzdzXp;50J5CyNKSj-fVgS8l+Gqf4tO4q zWhs1|=)0^ivghxAKAvy>&EtlY6!M*GRp<2}YaEG-guqg6b6K`axmb1}d);Md^Pokx z4E{rKu*!4#*kZTA1{_9; zEi)!S=8z-|u`xlIkttQ>9|Sbb4j>4GcsA$CIXaKR5epMUV|4LF3o*Mjt)`={sTWvv z$&4Q8sKK-vs@`&LYi31*zr^}ktHHLsaSVtwMkj@eRnAQdrds2H^!MAwz2tfI$a9qg zfh0OV6p0deH}uj)U|4K_oGIwrl1#O?#*160>jbg(H#^!h_obtNoT<#~76XxzN^ zLb`PU-%okFl80>~*5QhzlY5I(`Th^U1_=6$T7#x@Zv$q(EtV5Tj z=wClN4m-ZL#4O++^o8LGQyMlnza8s^#ts-Bhh=CaD{OSStP248 zh23K%rjgeV`lLFUmW=zn^M7nK1PMNL>%g1hEzYCxH>k&-Mx5|G9f@d}HJgzzA2EM= zP(=r&>lZZo>dE7*Kf*4s?tmY4rBdnfm^xg*$<6z921m2J9$vSqI#m;A`{Pk* ze$cl*Vet4ksaDAT@$f-z!F~^g1~jZtUrJxeeS7h5G+AcI2=1{%L78Xmu3S7n%WCk4 zR1=RkKRabr>T==M6)JWOH{QNhuB4S`oQPGz%ET7D@G(8IrU*1cPLWnTgrGfjAn-dR21x`J7@OK%L z1+t}faN-#g`74Z!B$7^bLCR`6H-c=`v5yHV1N#UikX;<^!N(H_T?!rlzm$XB{BPJ{Pn8R z`1bm8wTI~IQY-fEU%o?G^-5WXLz{dub{;7E6jOy%>s}1$=^g+hG!Ie!&I2y!VF1oB zIf(8+NPb>x&>+Sk^$?YaUN&Xq2Unt+Av zr3*Gr`ro6&{QdiUGc7j}{L#VS6Zp%UNsSHQutkZu{(eiVPnVV`=-M}>^I|B97 zk3g+L8=vh~GIxHKZL1MhZ2lR;ZCx99mO!$Bnd*6c;_~S<4iM!FbkLdEL}51mfRog^ z^$o2~YD-Pr-gsIfY4l7@Y?!Zg!OMS`>oINLf-pg&o`^`vYRq{d^XGtoIW=9!A%uQ@ zo5KjXu4r!s*;R-v3{9W1##vz@$-m*CzpUAzl<};j(LY=$aiwYn8#!d*xoHZA_+Za? zD}&M9-ZU&P0Ig}hgST%6pS54Xp^t+5=-}Bup#-z1mo|Y^Cr!69**r`$Z z;xvPBRCWbFNEGK`SIvHkt4@}ll0temXFZUab z)IX6cE=2KoI05kC8fwlW?Qb93j$P<{lif%Ba0*8g(^z;K$V&7vI)NriDCz9hJh3BC z!U+-eCZNsth9%lT?K->fgNrbIea1D8$p7t5Ek@bW5_pP-gS3>8bGF)Bo`JvIgx1qT zR8&RuKz&bS2FYo$MDHM&g5ENU-U~YBPMrrLS{TRdd{uNc!1prZ5*nC_@(WfMw%g;N zdtX|6d$sIp{tTWwn`2K8e$a^QwYO4?+)9l_()vvX$eL%9zc`X9Vcqdm6hc0?LA zT`Zy20#2ijg$*k2o)XF)S=b$^t0?c&O7FbO`m7J6?Rw>4)HjDF!oyQ8l{Oh-H97Gws3G=0+c1!$XF}rtI5JVY&7Br>4Rcn zgny-et{RuB#F_%MBsHIJ%EQJH1Rn>1V)lDRLsLxiQ-dpSHY#EHR_()N_o-f+PzBhf zzL#zTi`n6m8ng`goJxzc$w&WlRcUm;Y0JpnkG5{;;ez6d9;33%K(0Rc|KJMt1QcAiwRSVctXTXrGQV-&qW>D?(Emm zKE)}(OA;YMK9}-#n}NS<8|g#saPRq%S;K8=<4uerUjZM}GUzHj2p*2yr#9eDxMEL_ z(4Rd(#4HjUSf!H-`f1uPr&NolM$Zip9;A1)%@5XK(w7IB7>=ZH=5r8cA|-?2HsQe| z_AL!gnN7TmLCztj?8v@n`y;8DLLd^HE0+uJZa9zU@P*R&(0vK~*LV0mz91vVuM&UD z0(=xh43=jkxDigwO7gC=l0Y^S1;8qX_$2|gB4Av277$OZsh+<+>4uZnhHQb)7Rf&J zY7w?Yo$&t9U<|nQgN-sUW8>1*fh5#4Ptm^h0AMQ1vxYX?)nuB2+&ii#F^?`Y@%`hyK#5?VfrN&V3xGI=~~rgX9a zS7NIT9*qufG#NaGn&Z1H03gYaW6+N2nje*D4MzqExEK-Ulb^jA@|hI4iy6=|OzS>)30`u=^Gvvjp1O*P8^G(%=$g2{a;CLr2>ZN7 z$=p`UH$G&F16EF6P?g!;+ZH3eqsaaJKD&L58X4$|@xs_63ng3L;W4Nz+nYrvj?;?3 zc@2rD#g`p3s)0mXvQ7+}|?;UmCmjNu9WA_VCCmcCLY zs|$RChXLiko6WA4T0O~$)WdG!^617l1?-=m+m?IsR(5FFl$rufy{*TZyZAvNdjH)-rt60!e$N}h0%&%#Yc=EvgGb+P8J6rx1{kvo~3dSRglxh z6p3?IYeIEt!TU^#ePwj20`CA*4YNViI(5l!@J;`dL+#%oQU8DUE8Bs7<$oEX|BwC3 zd#wNEk^VpSEC1_-|LIrWWBtoIeiS^6f4PhQmtT30^}my|c3WFJ{@;e>f4$(}?!x~! zW8=Se@V{qy-3a}3j%KYfSWikX%;bR6!C$1E2M_is@8i1yRBTqgmCg}6D%FqX}cg?TDoxq7B?f?aB@hse-VtwiVxewnaPNKt3(jcfF#Br5hz}nRN*m znS_;k-#oTDq=w`1ZTcFbe|nm`-ba}jn%2o_A8-779ltw!QK?$rk^K3?DRD?xKtd96 z`iY|WyQ*s)@y5A|Ge2#P2*NuYRM$1vc6FcqpcTqR_?{UpBcCfRQ@%zo;Zg(|@srF#cr#I8hHVfkl zZf}+PQg8$QLDZ_LWub!chxWu<=TYkyw)kbUK7Z^i^O{LFh-RpZ?&BaF$wYp!QM>XrFV`DEgDV^-WRy)1NQ9 zQ=VR@%^shTeAr$aw9j$&n3q#QHaGHf+VQiV-KUSqW*7`D?@5ZpT!DT`ua&a1_ygL} za_M4|5A8{3#Hp{;iFoYAm8zXC4?78y*CX!Ru?^GYe!Fl%Y9#c?w0F_vUBOy=%E}cb zl)1Z{J#;xO-_7%D$#JiDFLr2+bh_lr*yv}`ctwqTpGGpDi+=$xrU%U=5aWYufgUM}f^_O$1>e()Tu6fX+hV)-;?)gO_IJ?R}rPB|@gS|Fby@fw-t zolNih3t<+MA=kZeZ|T#Y8;+J=cBpb0{TY8eX}bZFnQE!NViQl&7WnpaYs4$Pe?;Ez z%Z^hPMA4RlFUdoP`?tM9R-F$qow*_W9pa?mwtN3+na;wM$2&-f-V@FHE{?qIu2@Sl zy(z1-%~k}DupPg9v_{5p*Mnn_zxV&->Z^V@asInttc`qZV{6QBzSlHU|EJ0S7tZ0= z1oGeP(*K4d{0Dg={%p$03!oeMf50H@vHlkg;=lTSJum-1+NE3nt6jQSX6=7Ep8rZ< z_&=~qgQ0!@p8nk2yn=!bp)dX?vO&=*G(Pqhvcb+4^i+GEj6WTh0^jq?5^m)hpYlh* z$qQ~tiRY8f{i1K|hFiHMolUwBcpiNMggv;QOp8Bp(&Ga95(wz{Px8ZVo4qy;zkc+K z2LVDm692{L@P=Fb>&2;w=l=NDd;PkJ{O2+J!hP)i56s7Z+sl7FZKXQfZSMa2X8-@i zSBtyFsBa|AY0C7YaaB3*LhmaT26{1dpmNj3R4?El*aZue($rAn#M#o2`2p;?3fn_G z8uDJz*m4h>L#p(`@=3iy02TyFJUe%p5(#u6jt z#f$mHGd-Wg248t?th&AZ}+-S z-94cC-5Z!QI$CXG^Kdbcx11{`X2CL9m!zU`^Ui8HD$)L)Q`HYK$yat!&mEWcvR>57G@RB+}bi{ zbLhfronl?uhkCc2crD(|ffHe5B!0-5$rJcZysWdqa^Zk=5hUlfiXXC?S-K~*A_}BIg<4f6(~XiKmcHZ&S_;xr_~cP(;2{vwfdxc zrY(bgW+#}F-FtozSDq|$?^)haEwlA=TN##yQF@;u;`CXIbMtlT|nWHBJ4TOa#QkCSf!AT0>Z( z3P?3)sho3&23MEN_>F^L$M(c*F)+nhN$6<1b`9`f(ej&}EzKe3S-qcRM)oiy7cIx#Hy-8c6KT>Ca3^=!~u>0sxI=GiIZnAc;6dqyQp$vSg#H z0=q+MUnL)^yI@3dUwOGVo=8B-xc?+fMmaOGQWGt~&`Q2IL%d+vN zDoF(*Z?Suh(xHJ`#1H@wC(J})fCNc@lt_l#{DndnBeJu>ezl=&$NTtx8k0-|hx6*_ zsmcnh%imdW+C60ZXgU?+e)v-`6qeK{rC{HN?0aH-rd79B@LZXXrEmyf$eD&82W)ZR z=KH?Bf9+)+;Y%XnXyVs?R*BIRkUQ^`N*<$iQrnJ>hMXK4N=(+up^HS}aW*5Y9D}ui z^hHcX-k%@&K$f|#_iCiK{1}STGRWj4VcH9#%IrOhz07@Z**97{c=t$L;wANj2x>nK zK#`Z$aBbrJ5TE>A_p;y1Im#UYm*J!Xwu1S~Q>y9Wql%*#P6#&RTce3CF|ot6otWVM z0>~W89^*H)iG>*E8Fhf@EoNL8Jvu_FH2Y}msKP-I&1EsIho9K+c@;eD~UK@pEgP2NOUs7s0Digc3UgonSXU=>tZ@V`SM4d}^L^cat*U z3bdw(Q^m4LA!Z%)HA?=r4GpW=4U*|G!vEA5s4pYJT6%pzM*Q&DWSK&J-d~Y`6SoPoAiiKVJ{{0~LtH zR6sHiJ#b;PLiWpOe`jkAMo7Q*t6~bIW(b4=B0YV__rp&C+H-M%QTcvZW+)b@804#T6bi+&aZ2^Gmxm}?etc&N@#f1N8T?}6skSND{n zvcg=x?tk4_{`aX%UHcHzW2*AD!t+d8G1R%|^~tb}8@9fyCVm4hV7d*Cu zY(EMV)~^?eQ+T?>*rm(EoSuKI*1L{RFogd8LNS8S+&;G7YVdK06)H)bBckzVQ7AA{ ztb#`;e^u%erHjW`uC)WGUJM=J8wEbEcmZV4#p%Icb%E16+5m~Ff4T^AvkkRaAJxhf zmzYu(;Ohx&F@q>NF+=?fPV7F*-S=D3$)PG+VO%n(Fg&X9HdYKRQT^7{K#B2xv6iOY1o@HQn4^8?7d zjZ6Tj`14WO0%lFOL-e*!NB2osHrSrY(P9?(@?4(3>J%HLDPZF4!|$9BgO<~+qK~JF zOo#h9Uw+1!EA@+p3hywPE@JNO zo56{cmofSEr5+Ia`H_$d9#i{1fj!rup|e^SPYe?qlB)l>p5GUSAj_<{H)snLY()*6 zBJdS4^r4FL&sYUfrOO&1)xcqDGsd$QLdFKfNE9PvR+{{N7cZkX(v+7x)haHO5|F+J zzrQWW8NK*rxHZnY9;e(=_Y((Ee)&zc&oC)7X2Tf2T$?j zk_p6oO_hfFGn94onwfYt7o0x7zp>6~+i+IU^#e)|vEW0z!%Vue<7OF_jHJy+!?_)J z^Z95ajxSz+{AQUlWyRBoHP}@tkZ6Qi0|OCZ|7hkO=;$77EL~`=ZDRPdL=Vo7cUJ6m z2PNy=Ezgn^&%(z~K*C*eSuMCo_$+Ql!)Tk*P{omb24wiK3H?dw7a&+>dC1Q2H;MkL z(yRJcKOAuD#l})jrU;y9Xe0KV@}e~+1%#PDSCbLALt}#k5^D_Zr$gtF> zf9YPECqM57`Icji-q3U~>xUovjQXhbMM9HVxxT%?!D|t@5hKw&uRJp(uKW#r%NSti zSG{*fzjY?b}UHtJk~W_&?T9*s6cKX|n520Ag{`@m!Fx%+I(g$ET4u2DPEu%hSh2 zJ2prPO7%lm9&eD;q$E0TDLAbS9f@)+2C^$h86)$yYi2{EiT*{np;JDuu{ZRy24UTv zIjm=SeBD~Keq1%@(BFU6vwkFf8CKZ&w)M@sTN*5x<(O%Sg0{T95C^fWkJCs@A67W_ zsXgBnR&ETMwAD2hLvWDq!@3ZqF1_UVe1%Ywf_C-RzL=r1TsH~@{m;Z3;p%V7SKR9K7@KVgZ7YjdFo4u3fJCtvg9c=qU z4;E`mA|UP@``U5&(5*)`a+cLq19kj3qdAA~uGT}Os^|kLbH;RtLKGt2zK8kU6&}L_ z@0(@8>(+?~0dYO{sD3*5&7o`jarR&vX#5F%UwWJZkO9d^ok+p4001b=jmu9%meB(M zu*3y6imVj0r2*h8?2pI6p(xF&EzUEbMpY6`d{(waDi+g^+*F_>x zGI21_8DdEht~jk4fxqIme3}^7|eQMl+%C0Eyp8$;51jC;io~M z^%&p&4DiDyCPg#)4A1$o zThanxO{#rSGRS=y@$+l*Q(uLHX-8pgveBf6V`LxrI6}hoyI1dMMyNhRlJu>$HT3%| zG@XQ_=<^jMMv-xeAEyrMu7JwsE?rh8G}Rf6L(&3FkYbEC2S@=ey!ZTR5?C~Lj8`jB zTXh2iuLhR~emv?XQe^<4Y?Kul41(fN2vyn66M#2|Q_PJzn+(vK+1bxTTY+@qxb!?l z6qTJss`n1E0>ec5P`nL9*$=*mx*A*mKy%SdV^elp z_C8>o$uf(S8w)!n+9^ePUBN$q_} zhueg{R?9#UHB0k(ZkAOky2;*vq|;y6iF#_g=B(Iv;x61T zYgFqh!0Y;p=Bxz3wdJb;T+5_H z*8QYgn zc6xKFBEXP{52Ob3$LT`QY>47a01^b)VWflt{z5_|m**UD7Z75mHi9wBx5cZmm~|qG z*wM%RL>FyTm5AieRC3bjz#27xIu*EBJ=o=s0Ur7!N39VV$^etx>fbqpUThELo~l%Y zc*s`l;~ocfs-c`k!VnfT6jJAF2HF9fWxHiKZWFYyFdqh*_$DVMAdwrdm65@i+pV&# zCOzTK?iu|vxmYczy#by_r1Xj3%140B=da4~y+0NH4BlQ7=P?q5f8eQ8U}3XoPQ(3( z%HFHh?^Ql#mB{3xNm1&VQNbWFuKMZOckbs$pdN1w=o0a;Ymm(ea9U`(cuhBy$Yta8 zZkPl#=D*HWfnVHHzN_OtkuOM3`FhyILnS3kd9&0Xmc@+&V89bke`n!k_c(CCfg)L- z&rylVIh7Jo9&T?L{_>a0(v2hS;lti4(-dL>81m__f3~#v&RmI1e%bbSW?PG{f^Ni4 zynFtu$@mEL3r#_NHh>~R4O>?r3X1_r z?O@FZ6hNGvu|UjIo*e}Ell}fL8n-fqx_k!a8tC0-k_Hyj`VxGFqYgx(cly}WqGdg? z?O@AZc8Bm}3qK=?wg{HEQpp@(AhdrxDb=3#1bfUojG?0;yAK`TzsHkq^GKCA4V84A9{SK>jS=<6UL!$X- z4Zi&3UI!#fF`)KOK+P)>IM*Lt**9Ry0X_KMf*e&Yr&$axk(sD9H$}sCX?idfweZ%7 z13t;L3kUd|alnf_j%jcH3EAbF+8xP z&E|oZDWAb-QeuQa1Bwskurg73kK+xCi4|2#qnRi%xVRE#XY+v9$gtf!CZ2;;BtkY+ z6x@jVV0Mc;oZEoxbuLX>uEp~BtbHrGO#fB^;WaW2OhIp|+R^E?M&KCR|O?1->4tCa#WdX?PrG3gJ}CTg?W~ z*I#G+O$C>VkK;9qyDP^dU;A-ndSYG^8};miTLqyVJ=YnZ9_-|L2k(mYgv}ptVmBDx9sqm&>)f(V47gl++eNK?cRs(=)g-a-VF4mwgqAp;2^fKo&O zL5dE7f)GTSAjBjVtb;@dMj-@sMhK9|5CRFwKHJ~>zTf$+@4VkS>pN$y^Uv9TW$*0$ zlwF?Zx$pbB?u$Ym#WR04gEF@KCn;A3q$v=tpxZEPY)IC?1dH8EiKO|lBAAJL($#1Z zBFt-lCw32~tR-w$^XsE!JD(ck(e1lpofPt>sgULn*K6Hso3&p%AZpH5XJ`D#7G;ZY zp!r(L13pnI&tI;)c^a$ivLiKR{GwRgLS{~Q=&ox^MiIc0W-JJW!2R2mJVDIhX^HZIN(Tl>g0vTqpJ_hu*1v_JL!ZjCE-!o z6#b^H#Syn!Pjas+iTEsV)xHJSJDSiDBK!Mu?QL2rqF(!{0zpoQ+9tb8TE02DO7QF< z<}{qbV=JY7{)m$Y=qKL0o_w}%PgU6ddfdlXcN!b7$S(QHfwLJGzP~dl9~I#fb2)JfW-O694ENjF z=-sEEG<@ZmBzx#e$n*dM0gYpKXL&#CQulVvC)IH%Pf9YABk#N@x?~A_KO;*fi*PN( ze{?}a@lI6`7~KJ`Pjz`>0MMG?)3-Ajm9ha$;MIdP!wn?sa081yrn^G%;`BjK%b$h~uPsU(*>#4~gq1Tg6!-hgMCjP+B~O$#N|M(fuZb6V|(QOGH;a*jA93HA#4C#xAVeNr0}R(^91(AI}TLf zN_d(Ws*Q=;8|pqleGvO;aqs!5AP>AeJK2CWCI>a`y&M)LN5x}B3TkC6#n0D|1hFVh1w5 z!;#e81zb7!5R)#q8YY>cmNYDXhK9uc{fRCI56R(2zUZvn35CyeI}E>?p}(cfPBXB{K$VaoY8B@6#1E4@KL^rz|T;}MEpoGITIOGo3R16M-4;aLpV8Q>p!bD;K(>j zT>)sK;JRF&MRNIX5Z+Wg9HpZ7M@%dn_qVl?9N-HU$fsvsIzXcmHIM$#(Nv9kOCfH( zwE-56k=ucx;@j4cQDix2>0kQEP;dAO8xKwVdb)6EAJkqhtO2idmjb>I9J~}t_#}lM z7*ya#ejZ#yW^KT&)qd9hx{8Wdr{LvKRQzwCLC5;fpR#;v&jviI>`zYFU?H*LwUMJ$ z+=iyYV{&=$o~`ZYgB34_^U-+x3fyK5xtNKhURPLwpVIlV3g7R;!KaNPg_B5@Efci) zI0Z2ScWdOdYcbHmLG)((OYkUyX7ce=>fDAlj)T|b5Git?q?i)er}Z=1d~CtDI>gCF zr$#=t?w`544*U_Xr(aeZ3belu$JQfBQyjc#$OdAA#|h5Y(v|*@m)1W*! z09fZDvu!kzep6v~Pz>Gg!^Gf~fWS2@o3iB8RYa6%{3#;BlLRSJe9}q-x$e3jiiumW zmI576Bp}MEK9iB1vSDrf=QK9~iyvn7_Ey4ioxK%lL>8y$RCQ}4d)%J*barnsqLZeC zybF&l>WAGWss_-@xNT>3tiPRg^QCvPQ`REs8z?@N!d}AyiT3H5AKSAZbimJ~XV9}# z>AYS6U3vHuGtnn-61%xW8`B98#a&*q%B@L~M)v!fUxRSHY2Ja`pa%2DhC`I#R`#Zh`tfCG1nx5 z=KdCkmUY}qm2u^9j1oATj$!V2jyi8;6Rzj;^LD><$#f_~ab!9+j7n)TAT-#dG0%M! z=Dz@QekAD3WBJJCs_ZmNE%Scd>;HRi1r4I&6Sb1Z2!nZyW$U{XhpEV~&hbezR_gr@ zfRBF29Vq0)r zDFuRRjfWjpQ4@?KZ`qq>-S*|QtlH+H`gK<_q9$)k^O+)BA^^U-(naG~yV z5@Z$7^SEd)OAW4i%n(7)$cp|h8a2Mu5WPmeb57|)VcA0MgV38c`XZwKYK+5Www z{K@Lk3TcC2p|FDjIO^-iI-i9EwQLT1bTc?_aQ^W&v3>?XdFt-*6K7{=(fCd)Zq0ms zTi34PxwP4IsIuHCTT9LM3#J%mzWxPO05_!?v)Lf`$INSA(2csTDwTBHc@%#N6nxkD za#I@v@I+p1nKxuDY@04UKMmb99Ikbgn7DmmK!FYTPsY#BgO%tXGCHFZdld22`hJ^~ zvevA%WlTloP~&|<-U1yocP^+r+eaB(bbSUP74AN(BIh=;p*5b$@H29U>)Sr{PZ1TySBk$$6=y%UPB+zIpji70)H)UjOs4jIN$ zM@Pl0BBKktGFo#0;2B45)a&+ob4}g7DuCO!Q2DRVH1M3a}bY`SMrsg?V~%hmFv$?6O%NJ}J8FFk zdDD(Z0f4xaaKq1L(YK}o{Q&^yo-~Zl={y8v;;e9$P=DJfbWDnp_ zl|PV{O$$^?9-vUhfRsTRX2VYHffu3f*kX1HnGXmU8-zH;%yes7Gb@zgSJ_L6plsM} zxn-r+3#yp{zD!2*Wa4X2-l%zDScpy>!7d`tN?BT*?}5|Q}1LvxUbbX0rK$XW~h)zd=E&b z8aT34C&?srFBso6O0P=Wu+&llTiDUtrUFG!0~iB0dOy59tFC6%8F_UMF-F46(2D5W zsd>j?%;N#7Xu=P5{1yWM+{_$z$7de&JoNXxa*(rUPKHC|LgSl{aF+n8yu?rwszb1R zxqB@8QxhY6=!o@IY(kdL?TC?b*(&Xhc{`smuiL1K$PRXGB$6A%_T8^KsDonq<~BpLxOF-6 z*9mx>o?HCD9AnE>2zw74`JLWIS!((hUgfg^w-)Uauna6SG; zO))kfEJ<@`d~Yv^2zC!$4BS3vio^@zwLTzkF2?TiFz|2cB%*#k`hVZPvVM=`Y%Hc! zM2?K!R5j3yFXyivH51;EHO#Aib8YtB)x}e-`8PC_NXVOeF7DAr3Z~qGy7v_xS^f;s z`@BtJFSB)L$t%Y>A?lHqg5t1`KywYI}bz zJ3T{MtDou7x5kEO+&-Q|Gf_IfkP-Sl$6L!#;NNrU-lnvcbUZC@>sDyloYUB<>lSa< zk@dQr**M9`)LQ4om(RT>oeP$}r(E<~X<#XxOlB%=E|#If8b_Q}s>xhlNWk?bdgEur z)S7cxLHlwb@IAqgRrd9i*kQw4(>AjI?d2K0hWNe?@kC`+Kzgb{xQv+B$OJl;^zd|Y z`hei}p3X7-+d8oRmZ!U-7oN8EN!oZ^F(1D)k^Wb@8323<|Mn%ivs9;S32ZQG$|M8* zyrGf08FKWoBS9|K`L75s4p}H(Bs%ZNshG8M2VL50Y2$HnAVWUsvA*z-tnPAB*iP33=NKYIi|xhpoZR`x@&O2vn&8{O<$*? zynrp*2m~HgWB8q8Ex=>no^etT*-HemF+6-g&ingK8vq!;46`dx-*%rkOkoQ9Q+rm> z1yLOovNPxT*m0(GGyznr72rZSpW+xbThdH_?38`^%U=)bw>oZam11cU!5&ZNvlQni z!l6EYMkr4r>ivT^2T(R{IvEi%G!MU|N1t^j7eQf17PEacXLs$TWCA#4hXJ8;M#?;M zQFSxA-ye`N!_GwkpZo>$_4W02#+`+B!k+9D2r~B?wBi8a?2S8I&P7xffSYhK%_NJy zkuKE*0-_aI%Eps3B~oHdHjB$XddMV~(-?ib@Yz?k5p1cJprwSYc6KUzsAr15tdCY3 z!6DExK8U~OK(-~TE#YrhAQ~rq_(_5Rmmo}F5fJTT-;r3`+oKe^Yb6t^jSb2JhKr00 zj#x~g!n|~JK)HfvCe3X^@#*+3356yRPDp;!z-?6T0N%XUwW&g{0+PdTOvWU4B=%N= zP2#47Zq?`G{+(!>xVBDw*3|IV>Vvk%bk8d}w48eY@)?r}y59cQ7{jcQNEWwJfW=74 za1{vn5CC&Fi(Zx6uh}SrYIfzHDvGC?TL*i6QzNWCSNf#B`8*5=@XC?O!C97tGQORJ5a9k`tT4zlWFhllI01;9Y z;c9E%hymgaAn!?}V&c8VQ7qb@SiyjRbhG^r0(!5v69nNnaVI{xo+8yq0sdk>m{x(| zAQ$~{^BfSb<$B7Y+RL(@!8rDlHm9YKvm?l9d^`y|P8Jy(c~O{mGMa4>>pkIP1{BF8 zvMNVk|J4rLSU7@)J=y&nr2XNGPUS%ni4oNNv8`1g0<8T;+fas7azz%H(8C0QhzcSE z>19Rniugp-le31qTQY)W0zt)-B@I#QLP-y0p`-#cLmT_CO%FnZl-wwQEPS_E1J&p1 zn!yFgc2JBI7DtEJ&T2!A>5BI)8)hXBxwxT-N7kN`SpWTCAPU@|#xN{y>*BQDgJ;&; zxQf|?iT}G&!G0<3D zox~GQv(Cn~veGN@eq-`lPo151zkkp2D|u57?zG7EXN6&tg)TEJh^nUix(Ld_lNA|+7EO(2?rVX!tz-!>=dwk z=kPYW@B|F&-Sdg`u-#7{eLQEF3zaznn;;#q+hosL`))tgZi|)k)_Dpco|cr6O3O!h z<<_d}`fRq6d~ELRCQzMm8FDDYmJt0392HOeUX6GqV|%95(n|7-E>j(L{i~8ZHc7^& z#SvNsIl3ivH?{6V&_te6@^?fu=bt|TASf9MLpo6P&FC^v69xm#A4%L zS7j@jivxzgnNHf+o*koya>v&HyR|-oKcHW!ZWem}*-j{pR;CD2&dOJtQ;A!N^ zQ`e*0aBOa?cf;7e%gAc49aC+eMD5vfYI=hBuhSixItTSWmn|GoJJQFVrD5epj36E= zr=33PjXab~jh@w&{ad#c{9;7~xPU$Yw@z`Lw;cpw*0ZhNI`l- z$>Pa=kh=={*yn)rwX3Sdk4}Os;2!3<{gJw)mJU2E)0?J5G0Mo0m-84YeWXn+EL9j( zW(++h9@RXkzwO*X1h7&^p6g}!L(Sp<|BY(gOFD1k)F7DL#hS7t7Nfs%sP-UKZqTTV zddNhnCk0{!u_Hy#B1R8?q%cKya{5={Achj4VMJxQC?H|AzJY_RBTVaNrH2`-CdnVQ z9{D0tVzhZPig&33k1I6MRhpyM$Cu`^G;}inDTxEDC`yNbJ8YnomF4^4V)$P2km~c7 zH?JXIBd#nv5g7q$%Ev)vTmsSw^F9g$2hQP^@^GS6`6%JU0@(j`fcB;J~;WMF_kFuQ1A@4H2 zk$Tj!HnPkc)dmQU)_vUZ(ek)m*RI9A3>q9g5;YQGoM$@X?0)Vr^d!1*wxXzn7S~I` z_2QQ8ft6v(e1j=?N1V}DBh0vq}Qo;@{29TB|5tioUSjr|BY_Lqbp2t_U^czZiatKxj7K+4Hd``I?P!CV10t@ppj{X- zAi_|%Tz-Qsr9~JA07IdI0PzZW^8AtAEp6kptgMV|RwjwmIpk+=T=(FZBRCje0mV5v zV7Au9G-9uY*Ix0)JE4Rk;y)_&3gm_9+X+QOZfXE-!*iFD??RwUlw z_ZsR|Qe1nSW8>`XC@3O|jU1zSwWbd&-uaFi+jxsx-zlKrc%mH2R0bfH!ZAYjG$Dig z6Ea7_Zbs+#V^exT>Zp$2NpQY;fCdNpz`*PP5W2}`r3j_qyFmedc8D$UNTvKxQIW@5 zbTJHeSnL8OPj2n)Pz`u$sFnQ~9$*a*;*ClIz5m4Z0p&|Wt4!Pmi^rdI4*XnQ^|gmR zis|_2W6;Mz5ieN;8uS(ox~KBcYWrctMOg3NVD4e$K3JDln{LdR1KWU6ZZ0UljObURF@#Fnh7BX)5pzQz*jWfJLD}=|(qIU0)w$ zdymVtDfxp_T@kn{%aeN!>RX>}u4`Q+)RUPKvnkLYcIm|simBu51aa2%`M3*BU?vZ* zwi~OS0xj7ftl6hF4=FcvU0s;L7EYnqPr()-opbIHR%S+O%*x#&z9;&hgc?EjwQ4Jv zfw8Krsl>N9Y12i@?7upx|3=3mgOy!ky?b*M1nzAoI~Xxe16H%XNaiZyM@fa+aO42i zF##LL*bYlPk!VG1?Hz0zdEf;;i!$(GLhpwvDwqSh<>vpWqD` z)xx%0OjNJ+o%AvW^TK~2fmXJT#qors)rL{r&xsB^MILH0t8djP{5lDL^_%`5c85{4 ztvfIkQSUe{;?Ru@0N?^rn4NW@=6g&(-hrmCp*LcnxRzRL6kO-t0?69Ia z(Yzn82l5(SZ$B}}Rrho-E!>U0JmzXE6P(ijdGggQo{IPN)r0YD^}QA^TW_}p9t@h< z*%SU|{;e_lquh-@?XSk-_r%NPA}1{V2r}4e`VDJ)wSh=0Ki9fjEv%|#-AIa`z??`;*OSKzR4!!%Yi zX4Cx+&p?+Fr|63fWv-^pEaFztv1c=TC)xufbz#b zyG82l-jAkgj`5}jkfo&4^LD2_?SPM|mvVI$wembVsjW%<#?Cp$&#X;~ZMrHcB^i&l zE-SuDJO5lcf4lES$vvdJl@;{+?wBRSZ%*`ZnTeM^jK7c18$Ntd3ST~L5WjEJtv`O* zRe1YYl8RaGv-6jc*Pa}<^>|tXtKQ@24u7KmW&3ckqvG<}zWYT+O+`nRij&6kz5R?5 zmYRbz;k8fi?V0$|z`re0AEK1+yS+o5>Qk~s)0I_`Lelaq2uZT7NX`4?=bPae%{iEg z@-b^RHThz@)M_-R7F|5GgAvE+C|mhHThoPXP8?H{O|Z0G>~}o`EA$LIPO?0v_RFbb zWzjc-WC7ioIQh@{Xm@SAzKuJC%DmgCd0i!5vB!1sQQ~fxg=lY>`!Cn*d-n!7b&0I= zps52RAEqyfO5QfG2vN1Vj|{}mHsz+@-;w#`&T$Z(Yzd2Oywj0? z^SbufRAj@Y!?vL@Dat0vhz&k`^fbA+B}?Ag`TO~+Ka_owO_xkReLa1zE3oXz;De;j zFCHa6?Ft`mZoII-<=)s<&5n9>K;>T6ySI0&c9v!0XE$G6w>647Fyhi1PQA9}@v%<= zwV=1N!!#(Y1NPk`W6UGrd$$lN-A-|GcgYZzY`F031!A(44%JwB+ zNhTe8YH0d8$v=^+1?Euu`f;}B^N^p*Bmc73?NZMA#o-9;gNL^HRofq|PKSl+!xWO> zuv_+g3*M7H6Qh_nghvUUi}CxEaWe2<0xWv={5Pz{{Xf~?|1*p7UjxF=ga5ZI%70z{ zKY!@|OBQAGzq2T>$qWCx_WYX!`F|>q|Cc_#KX`loU$ZFxRm#7!DF55Z`v2L%O4b7$|DuGu^r82!J?F*#+RKw*`UpkFaLB7B zM~DZ6u%qR5&?CgSza=XVgqY%Gx4>eHctV`fB%0OS+Iqcdax}IWsvjZ6)0CYDa&7t^ zJ~N(p>EPsKkZ*00qU`Mg#Ri$ModX%TDLdv|e9r{wK{+CyGTfKJ9yMv! zh+y_$M9K=&;yX*gkg|`@l{CyaZh$z%7S54zfQY$D1G~4z_~-Wq066bi3+_xISgUQ> ztw6M4LQWl5D1~bH%)AO*#8AGp4Jm_}L6}}vfY^j0rttb$pfT%Zi%m3wnh84^;#vqS zbjbiuz@IoI4H<8|X4SL0%aY;8$9o3QA{gjqe90=@y=b-C(V%3vFcx_q!GJisGSF=h z3+wm0kpJmgH>*2!S9!4V`Eb{S%8lF55h5&0|G6ZMDqnf89Q5=62YP;c`26yR-FEvz z*)J2dFx!0Jym_A|2TRZe9t@5Uj+Ua4H`DP_1`y;=tYI}*emL2^a82FU{F2MF`{q6F z*AS!}3ur3878jeB`}ul*sNXWo8Ep$DV6xOfl}8eYBYfC-SSH5kQy5B;L?O_!a@tp0 z;Ch)pAuDd@Jr+>hRwiaHw#cqrS3CE-hJ-{=ooKm{4)A zMoVk!RK{v=Z(Il$_z;+oJ%0ec1wen^aR`xmzv7U2AVp`+k*e_ zk_m2Y%(V1H-l;wzPdvAdE?4nB-FMfe&Q#fDv(?jK#0LaT*>nnmylN)&Q~FYSErt=i*aVYsLHPt^>c=(9DGc!d^!9`2Tkcp}idRL<3H`-kXgXVAWy5Q_x? zsJT~s`P_p#e?sA231H%1wx0nI_8P1_L8V;tDjzR9ND0NPwE+*ie-DauJnRN>igtDN z9ZJJUnhP|5ufEEgFF4)&${u9{ErS!2F!@f<2N@a`vSO#EO?M znfmOOK6I)3FBk<7sl0drY-z)UXXt{T@QT%JKY#&VOp*H{*1oK*4u5yc8DNbHN-0Bt z*PWoV!uSSB(b)(_h@@i>ozGU`mL1Ho#Zl7M%mFeFklxFiYV4U=^Z#sRA=8 zXPCaY$QtPi&6w`&Uf9;-udtGvl|buRezSueKQxJRSTK*>MoY4j+0j~HN)Jrs`7b?w z==V0YdonI>UER}vC~|z}rcGw(#*Um^GA*X==+59jPVs?d)5;rXLbK-SuWgRI)wmYM zRCi(JnKX7czuE^l5qyy`Wpm=75v%J~fX$EY+E2in{%@tggtlN9)iY`_&kKEEaP^}% zH;V-=k=W6AtoyGgK|*c=NK~H|d;&O97MC?&J4X*KV4YXPc-uuEXUAI6QUt`>S*W_6 z{0j_Kd==NCB<6_XD5uzs4TCHARq3rfvFs-t)P@mL7vAeYJSRC?BIzWL#_K*Pm@8Nw zsBS2jmQq(NSWVEJ7)_8LhBxXBDsd(fM z{Oo9F^^pO+Ti4wR%H0r7W;uHKhA8O>_S)r#w#U*Ph`}=?^G+YbgR&o^KBv-y(42h3 zgYwbA6EDg}M>KBhq|VS4i0g)l!M1Y2n-&l&ro?o|spKsVgL+Q9V|Y&l(}(Ctm0KvX zi%>N_sC2myV8Q63#RKR~nh-keX)ye&N`;vJiY8;Bbzk#GVz8_ncVF;JG})Mo?rI|j zeTCSZOnYjftwhZ#uf0*xrTO;Nk>?K7{z{}vxos@}Mk;!!!Uk1rXxqafz@w+0eKE9K z>)N7pwd>6cCi;Lc`PwpmYDD~TeQkrQ ztRP3j1N)RDXh^hTEiO35R7vI&`DF=u@Hf;`3#YQtDeNaZQ+vV)Jh`bCmf7X)w7Z`Y zH`(P>=KEO@x`Wzda86qr|6W!b7QPTtmXKW9l9%qSnR3U!-)ZD?9uc5zghU_EF1@XK z3Kx$)JAyqw?0IVLM{J{Gzi(6^sLk7+AQ!U5Sx!kPu0}?_n)m)Y^0`0;9ssp|WEqPh z*dlY_$4sPH;?`C58QP*TRO{oEtCRn#8 XUTbfb%W zV9o}q{ynJ-!ZHuXl{JdroUsIt&LPHY&P>j1(FC%>)lXEm3l5f3voR5zy)a;yS z|5l#-9Q~HC;=v=!coj8lbnW(ZAUQ?0bc~;saklmowuFtEFuGqO9<|+67B#m&Re>bN zu$zN_nf@Cu9iJe;_DxrHL-K7Tq~($DS%?NMw$U6LSIB>CRp}sd7*tgF3%iDOGM;lG z>BBxN!ejFegL>nSo^TS?^)|^?M$Mr&>1!8rbLA5bIWndfyoYT(Hx2^dG!?mo zov_9SW11>u6ayQ4)BzdZc}RZr=9SO=scXi$h1z<7&Xe7RTdAAARolWR_zslDaT3Pc zNxd90;@;!IQ3+P>t$POEz#xV%+H^R}eZQc$`c2kL|o?$me7Mn$hu;!tS#e0gkyzDH|I~#;?{^iAVDq^r`m+IxIug^KYpe#bdqzH5%T`tJ30{?&1m z+_<{$1E$|XpMNGgqeUtG^xkaK!*3^c>A&g&gy@Lz6f@dQL|$lu|7_lUY|1giV0W~@ zpCij^EAQKGEmIylptWI)sDeB1dW&AKEuQHID!+Kj^qb^Bb{I;wWpHI+h8qa>T|&*+ zV0h!B)4}!Iu&khw_Se*X6Xrhtvb0#M-kDsqc_q1aVlhUYKffWlOrrA_W%8g>jmj9vvI+y1XFPM<6?8N6 z{dCA1xksgjzn2sDN z5GjHjetQ1J^1#uxA&%Vj2t`kNzS`IAiDX4G`_I}w3F21r z${*kN>Hg&;`-5ea;y)aH8k_Hnr`(Xa2(fOz`1r`cSc?CnGnNXiisY<0k(9e4K&zg2 z(|mrm8l)!_m!Hj9k7BZ!z>>s@8E$U`LEZ`!h`lFt->d63F(_iM^Ah_^^rB3a1c~2L zFl;NaM;rc>JSB++1<9OKD9jwIi9!~gs=@)~(b0V^xTW4n3~*!9%TOibyXJpgy}nzP zpA!x98DkvVqm)^OiK$DasaS089dJbTcy==}$M!70i>>kNZ;8tom@k;7MAXPmhnQS< z#VNkI_SQa2e?(*bbD)L#-L7p1Lcu%+In}EdwvX@Oc3dxwZfxkjeqm(oyi&q=`QZ=e z6uynVoSVdu!dm`(f``}v(v`7Waf@w_uN};k7)`Ypm6BULSEKhWj|63mOcze~3PM1w z(|cuQ2W|Fjrd={&rkYVl^jze#0$ z8*N2N+I8Z1_;hfQ?Axt<#eW)Xd$Wm>;)(M&+Nu7+^hst&fU4=M-0!=rvZlIPDq}wy z1wDRvnkv6#%bK@n>0S%P&*O8!Vbt8GL6H}&;L^j`4J><3K>6or;B@^!b6+;MHA^xD zeBJ5by*eCiC_z~kV<;jfpO@mF7B8KyBLksbqw#TKjC#9$AOjR?>>f`Uo?bwJ**$hp zd_uvS%#c!W67HOE4ckM9s;+JWqdk?;>^=~ZD2l30^F}pgYoafIa_a zaQHeXih8kNo+Y_hnR+WFJ1BekUCa0|sHY0xaG>ZZAkGm}hp-%;o2Y z*Dq3hKuqZ>h?eH94!yR8*8)T39s4WKdQ#BYd7{2)5gQoTcvzuI5%yJ{9n2WDwkopM&$yoy2QF=BiwlIZRCL}Pn{GO{q-}cJb3tpvX8En5inXTAp5gmCn#u0z z=>aIBE+xL4q2DZ>ap0c2;{{uVS^R_;QC*|L0ip=0gTlrtu6CLep4-$<9 z&VefQbD?{zX^r&nBo;dX2Y}EZx6Slu)Xa!A^%+314)aX>3#y1e}cW(_% z-^Wp?q%$sHyILp$;0#*%S5D(|eFM`E2ZAE9^OlXZ!vg?;^aeufRc1o=1z2ub;L!BI z6e~V$Gu;$xb)fQ}o`jL#KLxbmKIo|+y2ds9JahuDey@6Y;m9O~*-0|eOg(IId0$!5 z{Y6I}YZaFf*Z7(Q(bU;aB^Yq;>Ekc&PZh5SLKT|Bls9iS{jhTq8$1SDO%D&3$QNNA zn`ja<$kNf6_rIUsb_}Wag^5Cl*gTDk3w za-s0jRrgnKe(vVBUtMFZEb=T=^M&3EvvW^eu9fKpXb4qQot=#v)}ej7tBoBAh`$=v z3eP|Sn+t<*UGIE#UU{5!>p3fn*g!=f)r+3CY-8gDTj9UZ#ss&G#~HC}j9QULH(HJf=JRHp{pagM;a#s7R2RL@h$jDd_^6E3(+980tDhc#h0=-m|7%_g3 z!V`aJNnPJ`V22$>0^;#nCA84aTmpicv(ct20Xm#cCq+a4R^v3jI(;uK)Iow1PYkSR zK?$2=>;@6JmK?6+!d7D6vuwzG+gyt%MR2|iD;IQk_vvf0JSned?7+*F!P3ue8Iw~$ z{5&ic#Zr=kMc!)Vwts(ngdVZCk){Hd*awuMdmn^)S;9lR7mqEUzmII&J~4}!sBa+F zxg;WJP*`Na8IKA0E zw7!kB_1bY=(9`!H+eYEDuBMkC>1HwM#nH!TQ_whZ<Gm7)BXwv#VprxVoxy&(`tw02ALbcJjA-Z}hPR^(s zzb?PPX}D7ZkCnZyb~gEd;4#bPiO2H7IG3pUDULMdZh-(TCmQ(beB9Z7AV5t&IJqIc zeU96jUiESX8HV8btVps8_~JZw@o~RJ|7P%$qYWo)1{=ugn%VP5Daj8DclBw(#Dp#D_IGknGzfyiSlUIdZ?dyf(C ztx~uj?K5yMGKK~OOK_h)iTg>QVoAK%ImQFEe}uatxR}R;AO4}C{u8tex?)Zn&J5ej zoJwA>Bu6E%Qb)0Ap<#PiFZ5EzkI&I@)>I@*bi1fbWQ` zLHn5L?9tC|(BD57sA!s(U-?!e=j77ZQ?;2ITT)!^qf#{(_Arww?{dvlS?=7yYYQX- z(wo5*_?X^~%uFhqOz)mx^76YKyEOI?ULZ1$Z1WEJP2*siI06tcAYL29xU-C(V9Q*at-{;eMe+St{@Qu#Y2V(F@BKUFWmWc(2wK@fa`vsWcZY(L z+dz4uz};-Nf*5a8yb1a#rrcT=f zxTFnBQ5wKoL@~QYw;W*!b3(tn-11nk;Q$HLL7{}4Arj{3($ij_i`qcx_n8Bk7*N-p z*B6FleCsclzDDm~U4G-I`#AYqqatUJQ?R--xF{n4eT_HzFKu+bi9BH8mbQJMHe_BstY$d9Xwk4p5PbV`0BM+x&XJ$3jJc z^oG23P-)!H|DFNU_BET=sNbsZWLoJ$YZaA=UR1KWH-z{E_jU3l*xO|4mscOn798Nm0#Y1z+K%4;vtkR)JXC+hLTP2e0Ob$zA2)2?iC$~-T{^vNJZQ}LG{ zoV&P8JI+0ut^IBCLM-`iOn>Lv%dN^_$qc!zN2;-F)Q_iSr@iQu&g#q`kzD$4$d*mV z!6V8WJ8cRoBf~kIONGBq;^;577Rlazqj;y<3r$p21`X^p&!M|$sR4>ITUE`d;%CIb z;9{gX0e$$0GThk+yS$%1AmgV_lhbv;=TLjlHjjRP(Kv14tLwf2w_KE8J7O@jysHoW z;cUT*K+ce;X{QPj!8k#Duj|APNvq!@Cx-EFR^LVtdmH*c?=uC$U?KVs`(ux~JUjPB%{yeZ9wd?mO`|HJY#&~DB_Aa_BVyM)6Uju^pa#heD zcC?vlRIL`t%XF!7y{UEu<{Rqof6CcfYjNsx*SA=WR`8BEohtRZAQOGUcv1GF!9Kxb zQlduD#zNkm*a%C#j5L~oUE!9*2f)$1C}(8ib>K4^Cv}qhu{3nl>B3iU)7fD4!6m)3 zlK0k3kotZp601!Nv9a@eu95KD5r zbF~C97(z{@z1C~%){s+JE3eI)q3*T`VdTGn*lz-r^*-0;ZybF)VZitZNxnY!Ea%3S z5mCi&zZRo2=nkaIRa_YQlA(gA3f2{v?iguaads@{*$R)EbJHGit{ zayZpzG}h?5yT!I;*XP$iS_hSxyWifcS0zI*dT*^bYEE!T#X!&~!VviGsh=zfE_$=f zF@2~=!V87*!SQY9y$Ed*)>J(qkLlFSIgD<1Qlid9b@IQ4KLuA6%&1uRogL z#yNO;6N)A!m_{F0Pj%$PR4cl6-%pze&L=PQD{6o1@7{gdof3ZwxT|6~o(jC{y2KO5-EW z#Q%BJEO|*K)=ZUakn*g1cS1^@%dJzbkBw4JWMuBS{YGZMOIpos$pVRTE{&!-4;52F zDNYnW*U#DW_da)29gnpLif>7eFLUg8-qe$)^mo{M^^?1B%$1%oFj!U)BRvLsA~O3^ng0$ z&PZQqkhdbayB=c4;YRS#A!O>t$RkN=g(8DO2gY<;09IDax!)-n(%}5Wfk6fsiJ!Ip zU_@SkV}2w6#{!s9t?Y!IwC`3BCmDOP%1-Fs`#&4=>+3HXxRgq4%(+M5mmkVlDs#g3 z{nKFzFsAQirSV=P*5NSmku!hxag#x9)R=+-#>C~~%dwyu?6{@Jj%kYQT{PH{t`6|A zMR)KRV(CE{{KB4^gsirw*{!$_4;9TT(yVKy-q^M1I#2f8EIn|UT6^GhB(2Bm2%ukl z(d(piWzlkiS$M`wgA7t!`dT_*7comqqY08I;gIFe@bE?;El1yg4dm3iC4>!;O& zQ4}8^iSgH}ZPS#JhDGA_LzUQ2UKkOX6WtiKW)3y3_T)`9=W|zIog-{g)t?4Pr5om< z44!bbEGh;^`BojAoroJR^R*2Pb6ZzkEp{a>;Y(evN8s%*HUZQ-Lp#`yyRbE-80z_n zFI?0irNZoYni|F-)@C}uFt zXX!<_Ebi~7G2BE^-by`)Ek;ezJLbw>V4_;@dO;!^yv{ScJUSn!Y_nR-m?G$3mo&s= ztRSvl(3;&FI(OKNu#M`6pr~g=5Z8G$0U<IV*4g^=BDH4H?T6NeZZL3Mh4;eEI%;YHyNnS?xFCDiPMgT2{qLt z9`J{fRqdJYJ4fP7Hw$)BS_AC?Abm*xA5lK?*M@busH!OtjyZStpw8^=-fI&=$^6q>$Sb$!oXFr9t-SB&7DxJz%2Q;i z@?s_vz+fdkKTj(KjubS{_DithCnW&w$HRf?i5)8l>T+rSG^4cgZh`eaiOr4vvndxj zYM&8xA?s;^)0|J14X$b5R*v;t$#vb*5|T!lOg%Z7+J@;}Zb{*uE{S;F1F)kW0!v7M zEIDb2J$#lBD*F}(|JIwi1$45+ z>gs+?OQlCW9|jOHKp)K)x@e0-3~VQEhjUC7-RI2yz&nD;-kvbT)f!w@j$`gKb^!;& z#(n(j>Y^FwKHY4Qn9utg0-An@<%T7x8Zh?8)i{wd78Lhr{W)&B(Fu5V-uUXJR1*5< z9%#N60#X=*T_A||M+PI*^_vsGm=G=kg$$dcGphnb%)Nj~W z%el93y9p0NP;T_x)PG?3E1KO}^0U%(Bw#_~zPU;hSj%##ogKbNe90vao0qskeWgA+ z_CnDA9g_#qjv6h#!5F=x?=$P*di?7y!Z61ykrQhWcC*#FMh{-0ayf(M17!4Z%#aLX?fAZPRai8zI24*C_*SmuqdT4w z(;^hZOY51u`Ump-^f{Jj+Ovf|?m>wQ2A1o+szo(@niA_ubX>wS$7O8WY{tmlP3h!x z3@MqjtH;Dot5;!5+a=6gEm_*;oBNuN*Tic|7ukXfh27F>O4P$Guj-8&)5O4(-`<7+5Og_Kjrt8NMn+Hb&u`2FO9j`t`gSs(i((d#B;#Hfek|zf@+4Uyf}PF0|S~ubN3b_*`a*QA5LwE?XA7nEH0dGz zw%|75Xpck|yQ-#ZkP#%rv{AYxs*_;NzN3nQ6tJhSF7(yP;Y5^6J{nH^ho?eG^$ah7 z8!&*mbPBUP$_L|r`8G%Y+&|L!p(6T{UHLUB$9yPMZMloo2zYB|1EV01y@A{uYosbJ z>!SxDMZ!i2rynHV2h)L6a^t07QKfbdW0;Hda^l2UjwduqTSOUN86x_ZLsSK-LfCx* z;0=V*dwt@zmQA(vf^CH{eO=UmypTd7kL-g4L$~NJxG{vi4Wh6Jx?}Fka3}FmJCPEj zWZ&fw1-6fETHZXW9U{>08^NpJ+LjP!>R&!%%{APm4K?Yn4om6J4nI>YDa;orLL!rn zn4Kx}H0i<~d_U-Vh~kH`9?H!fhjPrexnLo%9doTJ*RAe8a}K)x)gMd5yRM*I&y1b+ zg%d1tj{`;fug>%~zQ6#3bq4#6yJCzk|2~{&3=CEsOb&T*!Bj<0v(5b9|v5;Ci_c?Gid4r@<#Ya#%c;p+#&PcS!k-i+}j99f}u^m9J`>Z=XJRSX<ngX~?+!MxJx>@2dmgg~*FU0m2F4!hQLP$Inn1M)}<@GUqL4|9)Nf!1n#U?+0{O z#%TPmL->^=eR z4PSO5!F3AM!TNt+&Ka#D0|2`;WG>3($S}UEB^H63vE{&Xx|jmDi-%5S|8AQTGRZrt z6SZ~L5y|CTN>`#4fGx|>eT=aw%{M{Bhsso$+ zQf4S}PoD`G=V79oRQ10)+BREoC{ZH)X1WAro&x;b#vZvMC1vAlWg+%W4TKl*T|Jg6 z*qjK~*2!X2b}uO5d(0Jz?`4a~z(WzI4X2*`!r)rXL}QZ+Dl(ot)mJk%8=!%}NjOM0 zk2@^MX=_fUZhZC9i3kD_PqpMQQ%N(eDgmn-)h0(@STIHRCVxh=Im7$xWosN&j-#1$9~7F6Cc;aMsC3#qd6OlV)=m1P$H729$`fviIqgR zKZ>IzzdS)a71fA>2)Gj8tuy&f{3@U4kME`~@?(#g%IQY)^ijtO07di6Q^k7zr8I^R?7k6=1sz!OI6?S zZTOb;P@Frq;UtcA$Nof!st*}%+pBzPbo;}eHQOjv+#*2`U2*ncczVPsA7=+P=x8$z zv4)`%%Z-XuaEHkj54_6|wMG@EK(b1&vvG_s+*LgQbvqaQz^FmmGkFfGdWO$x4&$ND zw`?gp-}_fM%Psem)MYIWe|WVp=Kj>f{g>X1-g0X|4HJfPsIwzOjfT$If!&;#&D99m zEldA^wm zw!2XtbU&6`IM8*}H8;9SOOF^ zCr-CflFMSdM})x6hQt1cFJW2jA6`8PQNhBkDasu6{6%cP9JQY3AhA3BM6H84pZspH z#^u{Hqs_Q|nUBO3F(cW65j%jeWR?{V{B`jh#2~ej!5cQ#li0R*T{=THbO0s*O(hPx z>b0zkQDTz|=mr60zJoqJ(GIfQe5r=2+FRhO!p zFKQus00k$K6iC48OXiPyBT>Fa(~X<&KB!JX?D0fa)3Nyi!z^%0tbliCj5-;v8$7OO zuFwPy>x{+$X)R`Qm)F<3Kc7EWWb}=&b&%}E+VL97r!7}%fD}pR-yXud>$j@zE!D+Q zPFpy|yXt1=_;|I{f4$#~32wb1bA}Y*ypQ@kT|B^;ZGSXZRsDIs{=+qJEf%+r^VOjP zYMRzCF*1_|EQWB4Tk0IJvz8Ka2%Yn=QFuY)&DDmmKh2Ka2Nke+9BOapDc%GH9Dw|% z(lCop#~h;XMx@Uz(nbSc;%WD{{VQ~ zlIFgP^spsz>sWSE3`6f+)}0NkmyJ)%KOLYbBf6@3VuWIx{Nk)c2;iozQmdts4$a6^ z;>b;dMG92`YWM|F_;UYw1w;d>(KN1x;ax}&i~yJ{36otBAb42C%-DluMpHNHz+QZ8a35rP2R^gr{8hY)3FiGzk(R6`F2 zJP$UU;3EYA?rOo`^U|RfFWg%2ZV|yXgwPxiZDjmA&CAhRG!M>oQq6|tVcr9;JWm4- zff1EWh{Dav&RJm0Wl1C{~Szt#Otp2U%aW=cTxj97o%v+Sv;|H!*HkX~LD_33{ zQ{7Z3kr-gBK1c1Ngb|2F2RrTq`{E+)JG7N1&!5aMGbwT`Bj$jRmjJ+9*vDW{kHl{W zRrfEudC+n9I~XRK8B>asR0px+8Z};;sHCIfzUVZo>S5?!0EsDKr0IP0FS7RAJ4;v6#|Q8l3419ql-Sp^)K@-QL~RIBxU zQ0Y7r)j*Ox3Ti?;G2H<=y3v&8$UV=TjrPXv{5*tOe4g`1J*)frNz z@!F54xzpZj?_JnB2qu8}uJ?ZbbYAtJFg{6Nymqh;#$YVJ|LW`^)qjq%bIJ*rjvZ9W zt5}Qj|H%q+m(2dF^I`1`FpC7XNaPwmQ;feBs*=13BdsOW+iD)4XN<_` znPG7~gTF?5N8X;b7`k#m+9eRaJ$n+(vZ42qIlJx>LJ5eDR`^kKjnCHFxxkWXp`PY{ zpN`aZX?@*-@jn~WnhMq~ZRga1wT;|gy4R=W4t+HVd~oE9@miv?Yij@6mYD+MbAgW{ zU&n3!67|CM%GzZ$s;;Fjp}D~H5in%|&$-C;U@|fnyr#8Rk?q0cfPejBROH$0_5kt> zzy5Uoxqd|6HYEl7l?hKY7{9yZ~W^guowbZhl(VLF0Go6-Mo! zX;XmMOU_!i??G588hoCqGZ?}`4y((&KmI8OkT8_2X&aOMv4~gyGXQw^zZsDKe;1S6 z8SJt8mzw+khM4@nkiC{J7ZMVk6D}F7F(2UuwxCwrZm-op?8g%c$*APB;6}wY$>P7I z{JZ}R+YB~P+_QU4*AD`Kt=6RD|9dg{zrmRH@IC*r^MCjN{GW))|C?;A_+MTE8{Mzt z{Kvh&!&T6P&lsZ6xd{HEbgNRr+q0TmRn*#Ecsw+VTYrC3+_59eONJu-D^vTb9v_*1 za!kJb^}QSCKWJUF)h~cu=gDP$wEO<)b!@5+%=GVpUxQ=2UKt~P_AYFH-yz9@sH(m> z^94;`+;dx-cPCW;_NwyIg4-rjYs8r2>)&2Mci6zJNcl!QbzLv#L$Cha1oKo%4viD* zZa2Pz{T|oZV0Y-G4X4MNi0g&ylC)05zNysDK7wevskkzVx{SLE-+3!N)AQViwzt4tgnHdO>>3qlfjzNkL~UEWhJ&^w6CCVI#I0>7Pc&#piFKQLheti zoa*`h>3($Z@DF`qD+vZFMjprFV9TP51u}se?F!?lezHX(oU`9 zY!A)=RR4D2z2w`pug8n8L%u^he_b=!y3t5+Ly>YL;{ir3$M3g-mEU4LP5>u8(rjIZ z-d#{pKaV(s-oPkZY+CO4p?*E(@`JutVJ2$N+a_UL?mE%t9d{n51+}(Sn|yjPWFhu! zXf;;3IW}_#wMEZL`OI7vzfC1pG`MhV?~HM{=-ln*-_4%7?bQ~}qvzF;>T2xKCj;wR zBlaoi54JoV{PVU<=$ipz7$JpTcdpA*~=2z=a+^RD0J`zvqi1za-Zzh~q9IDW7+^sc31 z*nI7ln6b1}WzYLumFzDrR`1u7A{Nh;roOvW*}Kk+sv}=r`ZATXy@l!5y`hOPshxkf5FHpBq=C;r_cKZk|9(!@(~f`fkLcFfb&PkHBABn%Iyg{gM+URiSw!7o!AE%wf>S4cShilyZAGFn0YmfE+QS1HB^ZLJ} z_5Nq~|7ERr`+sV^E9F-Hr}OzwKZ*Yf#9R|_=ly?7%w0Rme`>uA>^IGX>hlVEW`59CM2|-z?1S1rJad{6Jh%-M5DntRnh!X*<6{o!SiVGe$B_Me~40;5| z1Bf7+CZvAM;|LkR+nR@CWy;`3odB=om$J5+!Ws%lGUJU{|5CK3L|RjzCgfbuYFPy( zD-Vj`UC$U9IsNk$ER76((1Jy{Y>$0dbW$nF<9H-FxD~_ou0~3nI;Yj%ahz_N`Am+2FU^BkD^BZ>Y8r8(rDsm~%l_2*ycdwF@ zYdG1&X*jbIn4Pg@CSqlDA}$>ofNVKDx<0!uyuF*i;Pp_IXN6J2=@TRDCPG8CcemVZ zx?h_xz9r3G6^LpS_V<;y0qK+7?dm5AeY{65QPF%p3+)DcBl~gj63mJeV6|ETE1A^* zn;yE)h|HHBw)bJO0VaTOl8RNj3Bc={LNF}?^Bq7c<GWn>HIi41k z*G?W|iwxyD28+;NAdZDts;4O+oHC;5wKYfKXgMecBgS(1jLn*Tlq-ln0LvSyP{UlX zxd39}_{sc|Pe9u&&|0^w;zZysX&KJv?RD6%pLe0=gCDfa4>UQ<%`Mym*{g9e|H>{r zrQzhA(NnAIGYp38!8fi$3lW3I2i*+s=0t73fOVh>%l2Zye_O4b zM@l^JS-mdt>^9Td77_2idGCC-ZlBr3e8j=OF4SC0`mlHRpqZ|>eQwSi0wE*-ejIDC z@m5_PM*$6?T|wK0JBDgFqa>BB2aDDr3yqO;&6N|v=C+A1yEpg&fM zvogZBZYfugS`L7pJm;YgIm62d7{MR`;PmOxaxmRw1AahnjI(`izL8P8@hLE_?v>3nX#qet%vh>_Wto!8}iIv>q=Xb1+GQr0C z{pNEE#nF-hUbRq!2?dTma?Ajsxf$FUOVKO_z3ubgCA}wvM&o0J^=ExI311VJma8kwl-ni%c z;N_E)OS1kP<~IUTU<^3`@~br&A`E_Ms6)qg^a0?oP9Kr5x@EYHklicf09`*Vm!Y_G57Tl)=TSF5 zhcwQ&!8{EzQdl!K<6`WE@=5*>Dx$W|U-VwGf?(No4J*&xC3FYO`VFJ03amRGLXrN> zG9DoTC9wn&DYF^UF&^1t{&Of~oW8Sk1iTeTeKKm_`UK|+QN(b=M2R{qL85cKlz~YQC1T>G%;oW& zEs?pdEFV|F;#-{h+B`HC4n$XfwGnPhkdAR{Dw)eEpl3Td{_Xar>LIQGU?aORz=|#C zGDwYk;=lqc&pw(1zgCWo1N--bJVbBh*B3+)seO#NlbFaJJI*syz&DB3R?>F~8KVf6 zlJIl^FdiuoVNQ2g=oZ{_Gqc@a^Lh4|Lt`iRNFdzH73RKn~QxMRH-NIXIjSv^|k+t{kyk_RI5n zvtAa`uc?&<|Mt(6JPUh--J;6vtzfNtlhv%QUJb5#W3 z-Sr#KOt!4~?(GB8x#^88!K%_;&9g*mZ>aq{e6vah3gox~;sH2U~ssG)v$#HGuTfrpo*UtPZ8+)duJF&D>y zoXqabz{N|b9PUKoN}OcgjihS% z&P}lKeG`&4+HMRRYL9(-IvwtMEjIsfl4I4osh`P~!RVx~A;Ki6Db?b`UdKmR#Xsy8 z9X0!CWFBqGIB{X?(aUBiHNDp^aTp&KF-@4RjNtVhT}l)WpHLj=kyZhXN8UWn=%l}j z^+_&J0JLY|>^Wfkp>T0&h7TOVu;dT;$ z`s;2=cKmZO4A7%KR;wKEroY(lpa2lx_l+FTHAuodKJJAXprf$>gCHS1e-!wXr@e7h| zfP-ES=_`+P?0eK020~t!j!kn9T?qeC8>N+xt*JCwUNIPo+UQ+;#pwtg(=Qz{ZJgFT zZ`v#YGBxfv4WoEm621JHDk!+TZwxcZ-d&MmPP(Rnd ztUcyG%n@rp_6$H_=lyKP5=yX+4ZSElNQ16b0;vgztfn}=rz^|?ufvK>9>b7`%wtkm z=21HiZ?gzNmcBMs269or(xf~X!07|2qS;F*kz{<{M*b3NrC_rtFkTC*+= zXLA^nox(&+#>atY!U?6!JhHf99$F9#FL;cd#>wAWhP(`Ww&0(vN8x`=XKXqpI$MyBW zGMSlGV`1V_QsZK^dIWV&(hZDZ1orZR5Y^L8qN7Z4B2&<%&sqkNIx5Cz@1s`wsF>Tf zuT(Nyt#9Z7CNFHD2L=u1!ow<_w5S=M)@NqI-)`U6y=q8Zu;63G`eRPuOvRng-3xg; zNr5_bNMDK&Qdq==xq+`v%%+PsScBh1nt~O~6Ig_W2oNo6bF43~8mG5#@YM}A{p$}E z{#hRReI;dQo^m&84n}?gwSp{CMHpppmp^W>Xn=UP`2Hgq(S0X8naF(>KBxWT-t@^T z?H?5?I~47d5_@nIWhk8F;1j;&{mC@))}+pi!HfX|azGLnO1P-m*w`>j$)pc2Sdva= zfYAb(Nb!@%o;EHG56MtrWRjS12S^0NFG?V}K4+%dNvMS4lSj`TQasX=_^Og5gn~h( zEEOP(8$XFxle9lOqYordMgH`oSWyUSS!W(ztSH0UA<}sDGSv;;9FvQ#LBYGHKxJ90 zqpR%2z&LS>ZRCjk;!C9^#uZvq_F=nvLuKi*6(6sl{tkC z6tpbmud_!?UdyoFF~=cRv6Y|g1Ll!b2{}iE!H}8UWys$m<~X@q(j$U;k-N`r5HZAd zK#u0(^wnw<5GUm?GdXzG0TB#?0un?-68^;(0lB|hA}v;YJ=p!(LuM=seR^}7UCDPn z`)IL)1P{dObAZ^rPemv?>oK7CG-hE4A-1(!1}4M$U~!no?+aKYCn8lrbW03pNm*hz zmjh~6lF)c)E5txbRVC+0nTu3K9j7k4MXLB#P3=zw7GC>35DTt0IUEeWVP&7Ky?jw_UKgV{h?T-FUD$gCPDKz{M3gef&`P=jN7Z2GVBu&gX6*7u7LfvR!b34R zQrP~fJ^ECrwTcZ$`t@PuP=DOZD$o8R_Z7ADLFGMyhWP1hY*<*Zr4 z+`X^s*E2^P2!H>9Rk`y=N^#fq5cO`rEnPNQ{_oP^cx;p`SLC1q^*TYxyi`AtGJ@8t zm#e+bjZ2=8&oS^QrU>Xng0U#FbJ_C()Q6Id!hmsICAbBc`?QF1(gQmb+>-`1DcERD zB<*R2d3)ZO-e5)~+|vxN5^1BFA$#!NScsCXF#v8=9s9WI*67m%)tzDB)iUky0+2(QA0I*X1}THYV$TlweGDBen$?_mW!h& zvlNHoWORxLwkaNWm~E4p11(q zmpZaxSckOF$B$0ufwGN0AZWA$Yy(3A5=(jW5zD9)K*V1%utcH3SejnbOCU_|ddaOI z1EXppo~D4If&mtWmnE1S0RYrwEwyHL|2Rbkqx2c4*_F)tOMoOZYgu?>5$Hw>kf2nV zOlWJ9NThuPp2U>EyDfQMuOlUle{_sXkoJ`WB1UjZl>Vbm$GAsY+|d#SpLmAnhq8UO8z45El+(W8*96DGydaVA3TsM3oxz);L}!@6 z5MJY-wym|h?Y~}c0}kTcXQwTk;~{(cteW0HE8deOjT27k&8?*wTf5Vyy^i@bD-w>> zV82f&f0v}vS5*r~W9Lg<9j#Va^mH@Ii*a1iwnD4&cKMZA%A&zcIN? zfX7A-P=QWOngjqs$iG4`;rVoM(UHs(i3>lHeMiB0U^V)^P`K4)xi_7_X12AVi(4ki z%Mx1Kh!e``sRMy)-HS4VKf;xA95@F!X((pC{VXXj!sJwA%!+M)hK~n}fRSMHI959Y zL1zq+??|Q?cCa5pEL&UtaX{c`&rm1v>Kp&{lo~-*&UOw%ew5k0-EDw`?7z#KkdXrZ z(#UjLOQT4PKe!{`^J2d9YVnRtoU6M<7IAt{*tPXV{qnN9)9O9QB+1IQZ|;a)g#ocjf{M5zbmN=x*mV``TEY+=QCYyaBM*2%9Rokp8#guNME`Sy<>DFg$`se;cbheOE`eyn0tQfvTNM4W(KN%>weQdE4SQ@q_kV3g58DN1Mk+bNOT zw=qRsSVQACsQZZTPA^<{LARQW^rX;elsFl^pADqB=?>38)!`uHT#vE;LX#;0VzX|$Q4+l^reNq);k?5tG;Y+DF*>=FVbz2hyuGGQ2+&$zJe`0cA=xTH;X$ftwZ+1U8C7kYs4FnY4zgxX^`V6yjRuhbqjYNV*P zrR(kjSj=NUooYyc`nWP%l8)+w&V`bAROOqNQZ1a@L?2n~x&;P8mma)eOzDeXZiYTR zaZLc6N+z|nm%%3k*@sL{Bc-g8;-#TuQMpmW?EV}yCgB@ZxvPZ#u!{*cfw#4P8~oC8 zDt6o0kf9fa?A}aIERhD&Fc!)Z&>=Y|!jAgC;Hx#}CcQ$xqIS)tU?3?0Q+0VdO zJ5b>#EdD`WtkWX+K`&xg`k5$6p}SHq@$EqvK1Qr{_SBxkv6O5xat)>i`1bBXqF%x_ z{gp-TkQZB!6Iz%lg`X{oME+ukOn(#cIz{~i0_K&Th%Sm4P%dB*iZ~~%Q`<0E}|;eseS~oiY)+0LcLF7Vr56M zCUZ9%H)ifRmo~c-c4oDEmdQPBrE4U}As?E(o!O6Vr5?aoyuj)E zunHe;x0VLq*`SHU$_2c2uF>oVajidk3J>cqh5_FOk6*@jzfG>GEtR*5EjjD{!Dr{< ze%Nl^?(KU{0y(dr=Kh>WkvzB3ePl|PEXBdIRz%3xkAL5@Ve-IY7~A%V*{v7=Yltvh z|2}E4CO3O<>w6c|iknkEUG!V;uZIAU4t)|x6u-alp*h?wckq<5f-o&*vRWam|Hdq^ zE!o>DaJl)gqk7ufX%*d9H+)l~4qZ$dBqj~Er|ocJcr7p*DrJW;fwtNZ%QI`AqYoc# zy-1Qc%PJDsH^(}=8fAQVHlJ0(UI9G7BSu`T+o4q_^}4psNo)X)Kf)J@VPD6Ak`1gO z{*rSQG<(MpK=7&@Rsy6TVfHkz`~ z%h0s3?+<;(RwMmv`myh;{W@sg^v;#bc8j$S(Q_?8JBaz+3!>(rsye?^6=lhn?S_n} z3|-Mi$H7a!z9$ZSa{B8tM9Nke0*#b)$ui%CuqI_fVb9Y+ye{LJDRcU(r`edq(qxL| zVpuWRZgVVRUvY?eapJ)R!HFGvj%#0cG5CQCf8W`OkX4D)DZX&><^^qn-k8+8-f_KKs!Apy z9_=-QMic9QR9py=yxoSP213CrgI5OxlsL28;3zrKJ2e207`-hynHvw3xcu&xBkGhw zwUkObhqvhq3R4gL_KNAdv>&qq=d)?jr&bz;Ef*6;`SIj~gDKe{G&ekjj`>D~4g!KX zwyewi<);>}ksbmN_#0zi9oq@!y1R zhh~3`(3{CzEuN{BW1_xw8D1C>XaVXV{Hz#xo06ymDQ4n;o)Vwf;8UB>i9-@#6V%pR+x>nd_p!+ydORw&jXdjHB`(>7+VSwh*u-6El2ysiGyBEVx7Vx z(8XA%u{|Bxi`4d@-`9VmV&?5;zfslYXjD10W6tWXZ&axcRjwja{To#U3*fl|tQ^R> z6ZCh3S+o>t2bPp1jSySKl|tjQ2eD8chi&St93TOMS9b8|qsHXx#DEy%9Fc4qb_E0) zD=adX^~82!IM59e$3<~h-~f@ak^mNc53doqn)QFghi&Pel7OL~Df4vOsw5`6X z9u=cRT|M_1l_N-4fMHaaZ>_8PrLcrK7^X`)=z2}6qr9LaLXmrwSHR-Ng8p*9SQ~@I z>tl76bwtYV-tROqMdGzKt5Xw}G~#Y!IYg>JS%i`>!JyJlh#Wy@i%+bc%hCoDRt%Ca z$=p~f zzDg!GfBFoQbZq-Q??*+`NF7Y|%G2u^&XEe@r}#WIeU$-k1Fomz{n+q*&eGe~ay3YtG!Sk2 zL{<@d<;k`(gN5lm_o2x2Pja>apk*v@U1dy}K7~-kiFRfeP*1>Yx6dYl+ce)A+-r}7 zVqW}dIse4m=Hj(#I{unUKWRBo@z9=VmOLcEhghwq!9*f{8T|Yq3@!|tFfC5W-RXWZ zY3I{i<6|dl-duS7%-nk`JpT9!0;hLx`{ARP_q6R@_mg$Wm$Prl0|!2ws5`MI+Zw7_ z2d1s#_P_Q+tG~Mbcj-s|6vDQhd}NfuobFgDMBhp%NlZvj#|*Y58T7qm^6nEdwq3Rm zH{L4rl2^QMP5{#9KHvRfe*N^(`D*#EAWYX6;Fy990(_p!!AFO3c1Ao_`|N=sVZbHl zYBeQ49?k2>X%DMYJs_Y9=>KJ~s5#=$*9~yFfanidWl?7knE3#}jC&9{bd-(+R&uY) zE+F97E?I5-S(QbT(m-uFL1b7cql7q}w3fFS)LhU=Jzwg2rJ!nX8f!WfRSoV=zg}DB zn(CH2rKvsz&f8lNgWHvy^FjZ!o!72?*c)DbqwC!En`OD3?gD9La8o-Qr3v{WME0W$_5Of&=& z)Wa4D$jhMX{RoZS#wU>5ngJjnB&G8R`9#HdJ6TG~2&q3GV&^3ZKq6zfqzusr$ssu4 z~tTTF1;bKn@Ekw!vLMi+5X5gVJ6eaD1Pn#wH z;Uyn!Kks3&!At?!DA@IKr)%$#x!ZMSTxpgf1%u}2SZ|27lM8Q(28NB^Ara66qAO-wLiYb|W4g_#%JY9wdLk^1oKEO4;v~6JaWcF|- zS&~9g%#x%`U*)y~Qju6wV!0tblMna>Kfk`k^Dk4(=rB?sS#D-*SeaBxU3`SR}q=k&W6M!2gp;Ox)LMRkmXf!}?Jz%jJpzzJuxw4+vySh1Bj6kUtJS?|_gy9@sNCGHw=GkNvfA5#ve z4(;8xh=u4YXM46Edz*|)6+p}P`Fs5Su0`>B77nV5H709)iPC!7of{a!P}s$oOg#~N zZ^zTXq8m#=5VzD?r*VZNpAV>s&t<*G;lTx%k^DvrYb-J&njCfyUIA$d`$=$L;Hqe7$vh zFC-w{9UT)+zt2zzn5-s*swduGoZSc6%lI8Lijo^Ad zn{+~=rjP60{=(XL-F=k`Lluoe%Z|j?)D5p<&;S13{KSr|NGtqt-4Gxn9W+uUr;jL7 zw#k3p2Z1k^40`DXHHKB+B7D2{*wuaeV};yHhBY78&A`CW&KYW?Ik*qrj zvN5XXJJfVsF-4&Pdki6I^0sVBtuE$@MlM5~=S^!O_g6B~l@?mndrchGx@PXc7u_o& zrnGkU9>d1>yR%*^1Ja&HNzi;q5$ed#qdLZ^*WDm@BEId{D+;~-!fBfd>oeRRcEVmE zc?->dmMoRFU9lti-=(MXrK68T8pTHv@AKMEN2}Lh0jVMr6<|whY-T3 z5!_7Wa9Z-wEvox7I!zU`y7v3li(OBHr%0@MnydnZPfp zHU=P%z{@;M$Mppwe^Fzz03j#rx*hA7%sCQLtUtPljWl2eaOul$?v={`+bEB@fDo~K zy8zPw3<1bp+HmS2su&}Elv!!n4EkOuH;!Th*oejk(7loJoh>dpG;hhw@LRjdQd<5v;ya~tif2DO) zGvmB$>A^slGStV@hY*$kI55cH&X<$HnBUk8(MQ*yvJft z{;*^1)baUUkGj-+c`Gq3$qbL|&XhPm|Ir~D-+MU6n;f&;wR!X-GFnQMeiVh0Vkjz< zM2@Y>u@}3x-vq&w_D$bq6y=n58jRJvFg=si|9C)S0F`%eY;=5M3v{QAjA9N9^&Q^rSomc ztB|7c${Fx@Ep^+|y)v3=#DKi;T_%Q-xp#h+)@4TRe_tm%u0aPanWh?m&a@sR3osEg z_;v+D4dAZfuP|q^j3;wEfa?;-qhCCtD%&?Jxbth`eP~$LUf+W!Z*mU%zF(Gn=y?0v z`98#12*_w7?yEF?c|@0sftfNC!Ild_G^OuiI(oOQsGr5jKkv-whWWk)|B3AsP(tLS z!_$-vidapmq!hKUOMG-~pJUFc2U>q`(MZIg{LT^ekU%Bm#eC+y3{c(8o{ESgg zs+B@17_lp!sV15+;q98F8cR|^{Y;Jn=o)s`ONbQDcf3HOAO4e+FmBiqIc-C~8T|C)>xkikM=zzHpJ7_FkE4Cvh zIPZ7evf+@fhzIX1wy>O~6Br8)4_L2Pc*J;AG{Nq`qcA)_MfM!30aUKx0WN*wT?}m# zPw&eCz3G4hJ>YZ*VE%+CetE!S;yHj?4HKBp#r&EY5IGnwh6+xab3X#RPb-3JI9#!J zQ~>lP8Utt;ULuAAe9!@anoVH)9l$G%#V>2)Iao|IfC2}LEtRVPJqB1`elhx}39ksm zpJsM{+9sY^o;VHYNo<6NUC?H9D zen$7z;i=?5Ymq}r2S+|Yjs2e)$Vw3@!jIr+5Wgk~v7)2FP+@fCtYND3uMYeFwA_O@ zC8BMhAQpI8*%(+xjE!KxQ}(}Ewp(}Yb`+YO3RRP2@Zc?8$ zo3E9r6bL5!n->G4-_1+2)ISPV^DC(s02#x!73W$gb%u5fcV&C6oleZBFOvNay}T%P zJ~YHYz_4UX=eP68Hz;59=fuBbJ4=iFm^o~S@~ ziAbNL>QNppynSK}X^f7LuyLgd)c9rj?Y?r0I4CM!b?)g!^~giA5;+6Q0e5Q#JL*K1 z&wneE-Ck*$D&P!x4qq?BWt|Po{3>MpVDOL3GX)RwV22FgS@kyMwttNH6<&v5sk(6M z{VAD=Y>IDGY|J0h;?fVDw1W3!SF62yzSs1HOEwNVeTW`+q~Vdx_IjexhK{hMocHnf zimK1;%T>-63yLrEZAk77z5U|t+4n?PqfxV|?~Z+v8Cv_uA6C|H;a6QFap!NnVVsL_ zJwa~TtF9yZ0hs9Q5EWAMr#PXb6h_Z)ogLjr%-uIAqKi87gGjR_U5oiD`R1g?EtNl? ziKAD1Bis<2uU3cZUlfP89*RaU4>+C7=iT@&*vxm%aZkmY+4ZeS=g2gLlELPWM={xi z4^Wgm8{zu0YolQQ30i-IA1%BOmJsds6Urspbifb5oK4^5=J$bGBMncDV z4?At_>oYYW+NFJ_MvvS$OX<2izs9EOFDAcVSFiZ<%^RtS2h-0sL>_$}eQR@3B|*>a zrDUTTOCesaUFWLuYH0tRmu%dXH!t3qfgx0n=-nOpK%$S5&?rbxN1%Q9;$B`j6c;W**Q!s?kH8S#veEdUX zqWX^48z1YoT?D4cUlgKa>6ax(&8(?s0daMGuh*Ue{BWZ-guET2>82;^6{Q$?-(Kir zQjPQ{&he8*Y2}loBx-AwTiz3Yt;fj|JCvQomu@i zfHmX)YrvYG@zJCI|ADo?_VRaNO|wcbte?;LTHi7C^w}J~H0T$Z^z`k_o&SgUwZWj* z9oT|#57b~jm{7|z+yzhvS7>`EpbUv9A9eI6 z3)Y~W>`W5<>z>^=IDOxyE5a&OY%iq}Mv9G`2cXB{bdO`uBXSJJl+oegVAbuF?xSU{ z9pl~1(cD{=EA6+^?_T~C9?%gNi6fbl86=p$fM?T=Jiw5~ z5=FpS`c2Ki>Cy(8hwC+AxIa7iP|RXfM+&(eeInMKPQlp5GDmOff|Dcs0{m&VVhLX> zLSQ+NzCHy3dUm%_F)a!bogN|}K7;Er<#=E?Ra@W`jmxf!1m}Sr6ds=06&%^U{e;|Q zf_G*p6bsTv##+WWh69ufc^ICY9m~0^%3qg=+6th!S6c}(59 z1c$i%=rB?EK_-$kRfDY|1D2hg+lkKpvFyN+=wy>~JPvEA{+_{A`NKp-edE+O`}qv? zk4AF!oxF|iiZ08J@oz}5l)JU$L;4FN6}%ai7H z%wMd>057WmkB9=^=H{O|I3|xsZJ^@gd1Iq34RL_5VI!9sLyZy&41`_b#+%)B3g{EN zYiw#BHr^v832LM9H~rrUG;Oi~DrRhLH5g*4(3b;#62iro-qFwRhp&Rk3oxkeNrFh! z!@Z!9p#dC>p}nm9t4Jv8dsi5JVxcoVhV7nQRa|jk$it^ldmwxl-~B^Z9BY~O7S+H5 zppvRdi2ic%jc@v^(|5dYW=Uqr!n?)>PmVbYkNb)dg3LAs?zH#KdkKHux9_RG{jyJv zg-*$CFvKB9`=F_XenW0JsK?!DDFid~?|f-S`FEN{qvD=s+^lxv3A3=HzUy zDOqr}QRb3pLl18AxneaQgIyx>j7IveaG0ZzGS)YrMCK?D7hl&Aw~1v(@&Fdh&?UB; z(e<`V_Q2yIUC$zawr$IkO%ck^HZfDkV zW5&T&WVpWt$9`rM*%Rsex_6;y|HR&bxzL(6=Dny{@Jwn6_AXJUC1R!}Zukj$76zL= zJ{E+z?GyGulXBPFqhfe;^F0IHM-15f9@HJ`ojp=Es0&s+#w0yqG^6rpfx1nm^C!(X zv-sk9kMwHs0<^`muxWRwz|wRNJ+dk5_1lGt(_Fs3v$8yF5{w%!Y)0)fecPkRY4Wvf zYgk9~n3f&|Nk~8^;1=LH)3Y2pGXXePnmkZySf-d5NT(oicIl=Z(!-P2Fx51H;o7Mi8W)IsFTUpq)IfZ#mdXVygn>}IgYX-FA3N0 z?NFTQ^LW#u-mbroGyy?~cUdp&h$kdLPUw1@9F@-}?8-Sklett82>$kguLxc_0f30m zA&M({Z203R2I`yUZe|QWY0k+$V|wL+vChgFT}%PE2jMh7asVPVi8lD!r#$>Xsq=IO z;pbKUoqGvMB7E$FJq0cuNnta6=zLe`aqE+>;45vKh@75-A?Y6bWX`MaV-3Nn=yX$2 zIQr)y$Z>dx?}A@S+M?PTBFg1=0b0)ZKv~Kh9R0xdwAKJk@Qt(&(3-L13CGGCM!ln zS<5WmSraj_<_FpDucs=q@ejSO9uyiQoV)irn~iv1C#(iYz`d5KgV)~oy^h5!9#(1^ z@F1W3Yy{CF+C1C~Ng>pKwMLX2f04P%eI*s$Wf%kbBj-b?Vw!}b5jW$~tpO(FB5c={ z!DIOaU%tAYfsLJz>fLeLtNEqhRhmzv?m19QCNKCRW3eqvZ}3>TPDbcSN942N54(5k zPvZ8nA?NJ5H$uwglc(El+a$m?%wTxf08RHs$ZlEcffw4yx`fE8mDHlI#RP*s2c^Px zS5i~@>j6}Q6uR1VS4Vjd^!_eX(8_bh0WaYbsZhBaM-D)$rUd%&kSp`@EAmPG-4z9$ zRy}r)L(1iZZ>3ZrDB>ZS{Okt8-i1?k0|}LbHcC+kmNH(d`}{m{Uu`4AR}OUVQQoD2 zoxTX!h0r#{6BcrUBvJHN&3ku*)kJB3AUq&h<>csd@{CoN`3~gt9WMRQL@@Zh%BpC$ zObn#Z;ga~q?%mgJTyCChNc1o~+tI0+oL~=&)#dd#MqHFk=&>Bqdsm~VdF$5PxI3!A zyxijXA=7n4xuy1i5nH@ZU9oNxS)kmFxA9Wjc2_LvWJ2yPomH=N^^k(rBy$T0c`RM} z2nh#GO+t%Yywn86=Jyit6pc)QBg!m|gfy6hSK^BG(vDq%KSM4IFq3xL-CC>qBQ<(U zSy)~!9-0bUW$7R0-@e=4p>HjW(ci!GgkWyY74XA-c+X2`@K{djN87$jdgPJ5An7Ge zBB+Vz==q`JeG9d^g(!g>Q&C)1QnDKZy||f5r8(rYH_!2Z)`@0VG&`XNuRZ3+^MqVo zD3&48Q#avBo^m`vkx(ojw0W0;QX&!x_sD#6fC?4!mRQkj(p>`jZelv3&5v&V`qkP0EK3ajT&^vjT}i(<6u|o-{sjot6BOUtVK$udDQR zvPbghvo_6P&8OW-jVJh|RRV|SR6=xwVgsc7&M%axA3^X*Lyy^j=K-z5c8z=La!la@7;K}sqQt#kifL_;ND3p>y1h|~qR^;RL@d^&$vgpC>g$?PIjycxhPpR;Lt}GI;GB zD$uD`M{@}+tS7ve#w%7_P9}L6GN#Fww3z@VyWeUnbUE5xmFL+=hFs4>pLt@I2njDT zBhOI+0bsbnfXrQ{E*2PZhmpIbJM1vrS->%E+eE0YVCf16c%H(>qc~DrjtduMmASN^hfm_a%l($Jg$}z}20XBSH}3eT33E~2s^swCwHLO!c}aLXf6|5v+xor`0PbNzVX>vfx0|QyTeE^KipDHTK}uR#_V*V3(yGC>6b!2 zsdr#=zmWyg;=Ms#$wIr<5{Q*jDofeSm|(_Kb+z>xC&?9@;HgfPeK=j}TIV{=(i#!Y zIt3-jfKMgWN%$Lj+`xB%;NwvW8Fvqv8%G7Y>7775*zGIw>h4~q@*!*cp`bG2?#-b1 z{W723&P4;8^<7vRmjgB_fz^5sLRtDd)BfOzlU}?md=srnf@jX!|oz1aAS%qTHPDJiH*K% z%;PwnR}uj?DSL3(_Q{`xmI}8xje%Ep?A~cb2?4c5vr{_MM8Mt(gFA2hn7*vl`{bVD z5jilZ;FEFKqp>xqddB@W8G)27`@A)PJm3E4;ZDS#{Co`H0_AiXpctdoU!mA|__AS_ z8bH2R%nvY`nC;3g49T^phoAe{9M2D^Ug?F!8Io*xUG%kW8GE1;*aq2fmRXnK*ibMA z7`Kt}Eu^(m-I-a4*HR;=n#s5r2;iu7%qO9I$`6$^5isicU;D|2R4pqH7ZpF-fnVG33SP-$zVGI zSeok;uNDOPRxyDKFAtyFasYVCOW-7*63XbiyX&~2u#UWzfb?>-mfUD)CxmBVaPu$n&AVlHav$&+?0bJJUY8j7We|?oM9g9#*C)PzQiELFF?s0-*J+a! z537_-+|;z#E?oT~f8Vtgy{#XmNr>5N))wo1gCS#iYd&1#@|(nqf4+WH3_Uy=qWjPY z?kTGTywSb*mOG^%YSs>12jPyHLFHQ;PeAbr+jk28Fz3;xG{NK@&5^8`L1;(ooJ=kr z(a}ubNe5Gq&(q9QX=i2(P|%~o>(b33)eWb6?CX2*>s|aa_qY78$>Lkdb|by>lP!l) zpN#Z>8c7~w2i`1BGRpZdd)>dnVm1$BV6a(a=PwA`Yn}ydwtXQlF8&abD2h!=#O8UG zd+k4vi?4vc;oC0WT?D_ZR5>4_+1pfzcntfRmMzdHI>_yTp8vdh?uaAI>v@OEx((S< z|I0Pi-t;~zzIHABj_X>1)PwP??y1l%BjLWw`l8=sm~D^_C8dWYW(1$&YTkT+TP&tZ zljsap6e=$h3Ea4%s((dQ8>(BzKW~nxV3p=R`^9%=WCI6}Rny1e%$R{`TUQY6)XbTE zgmxtu=Xfg56ZVP&#EUdRVjiF*bacBEGa80N&v$FCunZ-s(21P?2bavpG96t#@%$s zgyLP0^sK>|cq4sd4ats^jBs+thQB8PMq3yxS>mvNMlGi{%-+sA$^#=!jwA_z; zQ3!CSD$vgN3hzPEGsgD&eroC$?%_NAUiteQWfcwzz#)=BloWAXNwm-M3#b!xdQfZU z1#(GtkcYK==I_s#6+v~6LeTw)wBu4fL5Gx8V*IzzqG!a!l(1sr26|#*DIUh4PI1Ek zHI;K5(PzHf1AdY`T9~BkvXzYomgp|HwW`7vA9$Ki!kJIk1Kjyi&+|bI|$1jQx8jL7GMKFE^hG&;ue8nkUs$5#%I0no*uOXxM@W2F%&0 zx@Ee%AdbotH*u6;MN`*uxh+NAiQQeHc<%BdXQ9~5Y8ha*w2o>xz5nx>p$kv+3ozf*DfpfSC*KJ0_Q+q_*ZP?{Po(?gR(S>UZ)|N-wss+|jr{jZFm$tBI6Fc2B z{|on6l(Rj8dNyGFPsZHnJ-2(kHz;BhQY73{@q1;-5t#!#(wZz~ptT@f?>X9&=$|b7 zXI`o)g#zljL@ATHh2|<~gT5!_1lSwPE8yk&pUcm{fW8+>;gg@8^slKMzN!+Yyf37S z+3U%o)x~({^B$f0P*j&%Re$7{Uv!7>?#6PHM?;4ElR1|=)@WS-7kikNlSHX50yz=` z8FTP%)eAC^LDa4&{c=~j4m!hTLxd~@hYtEC8&)UMY>Xg=$`^fY(UAL24z$NoN6d7J zMd~MC?65Df(M>+Dyx4v1sEqKf(rX{TfW@-IaYrs*)_br^_q@tIMU{Jwm^aq1vXsh? z{=P5$tCv#CjWS7!if~@$nZo`%g_eS%nxGjCpgMD=!&DTkg;qs$jJeqqWO9{E1*W#Q5=gOrL*GRCR@h01x90l29`e;MXdpV*z0fnEHMqV8esOF z0-2X@=xm(69t-fE{}kU6jM&teT-zD{e7EeLK`x{d zvXyi+6rw2ABS1BI>e=qCqU@TQB=Ftjg3jmNeYN1k(PSs|28)m+$o$Z20b&z9Eb3GL zG-i%Rj!*=ZbHMwQmE3Hiu;NV%f$f#|_U&Gr)H_X{k7c2K+$31=-i1Q1=^|lW@5y1@ z$sV3J+#!mVey8MJ5VSU_dI@ zNQ(%xaq+8LvGKnfu|hfVz6-(lmCQ+p&A~7w41T3ef`|9#9pq>Y6mOm2vX`|+WkYgq z6z5NPt|^WteUC2izdU%Y?WSlvb(Xyq>(j1BoeK5j39if|Yv{K{*{dvSfuFgX&&#vR z-FuoR=SaAYK_fn?vs3fdn*DbL!fdR%TOue^HPsoXDOhL4EggR&N3=k}H@*TdWW7uz z7MQk@3Lyj+d@-g>YT(H@?g{tURg)_i57C~JSl&XrEbudU03E-rWk&4+JY2cKC??np z;1xG^jk{11tOyvG7foxox|8S9*tW}Dgb^Sc!0{DVp(@0%rbdAyw<=+fD6zu z%Pk_`1%8GgmzM=26r=%`))0W>bT#3HL)HhcCF6qN%fv7TLger)Xj{!r0Wf~10GWWF z|11qQM`C#_+_EP!ONVDAwff3`rLDtCD*K%Spq&1qMtFTN{15xNrl}(p0sz!l#|=Tg zsVsQfo^FXqSg&A+2Ac#Q`BT_NAotcWb^2(TmwzsiaDI7f=%I9#Pyp*(ih>+3zYZ z!AZ6@Txtm@K)i<{M-Bws4%by$df@Z&)+K{!8~>YaqI?js5bUT=_pOsmlSASg)FdmagGNsN%vB5O(fq? zOr5ysWN}A*#7JsVxS5?qDsfeUr5}(jtRBp~@jgWSZXA_6R1u zPlRMnHDrFZ*!f7-NWJe{&XapP_O9%OCc{P3DlkJ2MMVQjv3Ze>r&i-1hPd4+`90XF zGsRLxNrtikoeYS&FGyn(L|2kbT&&s-mDcUrEFE_P|M%{RP!m2O;GD@J5$?4~+)ky7 z{2L$KGOX!uR?bM26I+-C3*qBIVte|8TBS@piNaeLSgfGhh0_8al|z?{zF2u9!6KLg zL#PR@T8L8meEKs4t^~Uxl&Z7`nNJngIXjExD-af^C^tWmE>GkoVECll_#W8saheb@ zl`kb-lco2zNMC|?&Lnc~MTxVM<@m?G;E7y#9^S=)5NwiC&7|xG3m^D)kK^!854A4U zrikt-9q9S>+t=PaC@*qlW2?B@7ymR<;eUA*Df*cq-nbRnj(k@)jm#fpt-UIqpm!j6 zMGc{J46hy_>~&JY%wpMJx_QG|(o`F*fvi^sE;d$o{V^*i5Wab zvRxtaTA?S{H9di>ooSXirud1QZAc~!2p4)l?@1*_V5@De9v3S z)xj1yOn*pHRMf(y6T^Hm4z7MJ{%+2D<+$r4_XE+)IiY0g((}{AIMR?^5DQ91Et%t#Dl^yYmG$Jv_2rYh8e4NWATZGqz2 zT>Gdx1%MulMDV!SjY*wk@)Fn8!;`~gte1`Jba`wRHWqRzPbq<)e|WwXzkZ~QluN%t z`g9cE5!up-+&XbIHykWjeW38B*P96bPkBIEsx-j$J-OJ~ImV-dW+KR$G4ky$jPL=6 z!DEE-w|HR;Esc*Dh=x?eFIpm!Rel!dKbm9PcQx>+ocM0@;LGGsJ2@KJOouh{#$=N{ z`8$atTwHE(eAob==VM`KK<1SJfv(JgNZszmGJLsvOrUFZMKqB{uc@hN0AoL~LR8k{ z<15b>+Ut(Jd+}+J5ngg4iq4Ryl_LrbKo9?-`j%B&V3mNwEK};LYwH4+pHo@1DN1w= zc8crbWM?p3M_Fb)o~)?;C0;%8{W<$v$i=u#Jf;OS!E`30@T&%Nj|-$#L%Uc9alW8N zlQyISV-I3o7mq>;JK5v;DUv{*9N~v4D=w0djdGX=x?c!3MDmrLbC(z9`0zS;KW4ActrqXP>G=2Z%lbFIx z{gg-9%}2%gH;J#tKJ1j_y9_f>tbmza;dMr`x0EMqfoCV;t$u$TwXM$g6wjU$1v3@*2s@U=k=D+wjLCv1V}{|Glx@0+2CRq+;Ch0YX%650>}o z>?)RA$8jXYEf&_#dD1mSo?C!(c4B-j8wjjPsF<&a{`YC!n}l z%@eiWdSw61On{=qPnzJ6w)~Tc4WVF9MBO1*fVFt>RGOcdd~pR#sW0~xTTW!eN555GH5%3Lw= zU}Lub?8kJs@al0u3umk$E`-cPZpu+=Ru0&cuW(kh>RQN`5Q&sIN-WjJ!<5BaDw?Xs z$6+ZWCevf3-3_52x8)4D$5NJF`WWaW({U>;d$@);yvHshG+M0fr8hFTarCm4&wHKLl4tD){!8yHH%)OGsj)UqLm>i)a`1=)O?8GC znk433V&SPBS+oH=yyr(Te{KbA4^Puqs2-lBv!VIf8)7PB{|b>a;9WnC5iYTT58j4* zXRY!2Z>NKK15Xx>U>bET*(XT;zXs&K4jt^qEh~jc$gAT@P^xZ z)jeCc_45$fy~iF0IoB>H%UMN$k#T*eg(@)QYpFIa+?C?J5I0NX7ucjQUl(6(ly$+yj370__1GUcXu^$OmR>!x28u5CE|Iz)%c2`K!M6!_QEfvHjPHW<7e2Pz#3=RWm^Xj4iNzpIN)ZKlSC)+VUp~qE&Wc4^?3iH_4 zVc)kHsO&xwezSHmizj7%4aN{m0RkSjzgAX$ourc3XZa2Ww>l;~S8QQU3j-kxa}8%% z3uxjm-`~HM3?TvkLl_jWbZWe(i&T-k(#|Qqv{b{s>6O@09#!6l^cwa9HCy_jdh41<|)Ep3L z0ZTaEP{)%56T748<#x~9PFaDJgMW%(zm>#_MB{S}H~4_Lo#8x(PoY@4=Ay)Hqc?|k zm5;zz#anApfpu+fbW(CN4}>Iz+TA8~`L(SPm9y9p5@RkSv=Hgx7{8n~sA(dMR5^|J zi1D$$^5Sg9;(j28<;lk11W4<7parB?wD(%dsSXInLzgD?QT(k%0JQt z>p{Wg+zyOCpB*JI+JT+?yBM#w1LJ+JYEjK*@pfsgb_|aiiZH^Z@)$+djfo;zY}*La zh;#~uS}KFM|E(oA2ZYG;jx^E)UijW96it=Pino_kmNAYP%P}WF%D(RxzOxrM#62O9 zDpc7z#wfIZrN$OO#t4yG;xBLc+-qTdTWYhwjKdE^$dI!7(%*tnL#rn zduX}oRL$Sod_ZHd;?_OQwsp8MT$dXfR~;Rgi&A9pIgXPIkXy`6$>2<7^)Z}x#+|ut zKZU`vFbqMUgR%GB1c)gF^HV!KAJ{N)T#u;bnpmZYs)pET%oKommDA9Pba1UNjYXn3 z9C8qxdRBEf5`#7Y>!?5{GF7@|Hl>cqLanAu6MIzN%XnlJ&c*j!AYPEhjdSka&FndA zqV#U~0+_TXlR{cs`+eLF*DOX7tXc_j0-7b`CzEe?%k}WV2QCyaQL~BTh-3oPPex5x zQc22M22qZNqM@K|wpKb*SXo7E^?Z8i(=nnAf>c_?m$E*kEiAqm)V`RV)C9e3Y#>)NHPubL-tt|7D2NE`Fgmy(qcqNz&o^N0G-)_nV+_)A(1SUQer zr(5Bo`*7SZOOaI2MA3Lw*{{4uO8oc7j-N~d)q?lL z>#<=pakG=%gX5F znGM3^T#m{;xDVfH$sCco-MONRC(I*&cX%%6QqtkCUQU;j_kgzNxMt~N)za^{m~5uY zwy1$Jxf7asED35vQ@*$wYIjX^Js$%WoezXu((Rjr8uhe9ow=z-t%O1BPbGNGAKfvl zipOxp6=XG4-WtgFv@powku_UU&i5`@@!gcR(?wL5CUZfHFbPn{ZgZgx%lfFAVQ~3` z?2Fm=Zz<5s-Ovm^6j~ri6s@`nvih;SC%ZesX;1AiR@v?*ZYT7NeSVvTNZ7*Xpk{VQ zEW;@N5`#_W&*inH5=B0KRsQxCkL5f}=JA|;-`*(my_KSnpEH_q{&0mT8nKIWmJ+yr z{Y)X_?25$b{t3-k5+;@Y9ufyE;R&%kOjuf7nZz?SZ?Du_C*j0B99O~4;KvqimT5Hg zfMV*>_gRCqHZ?^SC_cqBOqAW1JXC`Xn|)gZj+v(R#OMIg(Byr`cJJ+M<1W|4=WWfr zHv<4?8#C&gL)dZ#&Rabg=RGIL0`g+ePEe#=rW}jjz1~(1+;#wKqODz862A+CE#@;? z%je&v+CYD(MM#Wko^EvE}g3~M%P zoosU`NllQAFk#|QTrvYc46FcAO+@gv6N+1raq~0yQdpjpx*82^F@(i-R}wI}XRH*c zmt2?QlR80zp)?>6Z4yyf-n&ykvRCh1iixqOSy#(`DN+Ghr5j25$P zkRTvQszFp2dVY($w;2i@KAe2og+lEYqC}j=OiMhCdL+nwF;N-+f+oG^;{}P-=heM@ z`yB0bdsV^6UI|2s9VF>s(c^b`cK@{l8VD3Gp?uUZuL0{ng+v>6o=v^)bmmAyB`F{Y zdN`dA^k>+r!c)?I{vQ7|5MbGVDI{eI!S3GGfyJ*v(|OV?pcfEU3xq|?i_TUj!3;<# zsd8wL$d`e8C7C$a(}0ar6*`@*2eWiflG5ZtMsW-|OUlCCYd*|Y->xGH4No%}^STMb@bQ6LGf8eV7x!N%-xjdCPNUmq zk@%Dim;_O~OD63o%TO_?(Gy#Tx0E2hv+;TL2r-VBOhALB+sWCMlE7Y(9-$cma`zEA zx2I?uz4O`N_@r`W67#x{Xx?n_rnCBUZYPFhLV z{>Hr4Z-xDvG*oNnpH*?Rx|eM!P{@AWsLE|{-z&*ihVzx_D<#@PMUozpR^zQ@J= z!h_11%^Rq2CH>@wqN`V79}SMZjh6QNE>Ze%wnU}ms2kerS-GT;b?vE|hma@NyM8#- zyxi?HK1UW^sFz5*qjfLu_;lnxdcgQf82-IqiYLGNPe?@_#@GDdOEHP#@H(;8aW{CAR?!pYoF-# zaX>Pq>cIN&a!KTT&pl44LsCMLxQF1~ypz|uFIo0gw&)e+pl9!B+V`wXkvY4~@Ly0% z7= z-_FjU4+fb0Id{jPuRt?vz~|K~_=RNKo>z|M4-dYW3Ua;Pq#UC$bt}LLvcBK#tcB4h zdtyoH*P5%_wDyoC+)L=>eC@Q+t^#LRy3ZF}f6f7yC*gvTEym{EoUHQ)eR!~|aRLb< zM>TDCU9Io$!KpL*>9g0y%eGZ8s{F&7_Zy!jTY3@pKg;;`R>?%TP|ubBY~{y=W5zpr zull|{nN!P}(OvXNHurUVd#r=tmZyJLHI$ExsQ>mz;P<#aJ{gbI*Y~&0_4+>K>^y6z zmu7tFLoQ=&$)mN1aeT9^zPjPWVYA{R4=Gm<*~=nC6%HO^F{!_!r>O;a^1KuiNH-xR?Hk zA%er;e*|Kk3Ic=r{t;LO*Rk~pxfHku4m!6@n{{I0G>epWWe%dr;6I$fb zzj|1n&XF$nPR!Wxnkd!-*Zk|j@jt&4|G&P{dVB@@Og{}w-5CtHyfNY;nGUr{w@J53 z%>9yojS0?r>~v4|hnwd5*Z5Z#Upf>}VL&>!nchUQbFvcvn_Xh-e%U1t46GFDzuq+x zq;*7y9!Xy}I31e3M2ld^BaT6h*qF(ft}Z;+$d17Tk#Xj5424?>B2Mhj8v0@)Jg$FN zS6}-d7TTiYkH}nCn+D@{%<=|AksHC>tRH(o?*MJR%a(LvhM9vUdl zbHU6^VL4kcIzR)(AV!sDf(BZq?JZ!j#LmQH-3#PxhCp+4p+;pm0n`d4kKVKdgC`DE zE9;5<^||oeAK%37e!p~DPWVAak?I4oqwPT#K^k}JL=8~$eZzfmm>3rqIqw<^D1vQv zDuPv#DX>)c1lOXNlOV=7hvu6Tb@Z7|f9rT>&f9n3dM(ynK?2Dj3fvcQmh&%vPk~&& z>s!-UgvA6D$sndX{3}4yu5v;g=vr+p&s-`F?ZpBuqiRElUol_DBCHf7c*adh*#_S4 z*2|(drHLX3uAAYxWYB-3{83Wy_HFM=eL3ba%-)*C023&brx^}-tO6RS zQK?jb+?ZenYy{vz6Kd-A0Wz6`;&@_lsAW25jm{)(Tsf|b4UUVala*IpNvoJSk7r4; z6D-t=v;JT$fcFlTx>v3VY;`u&G&GXAMJV8I&V!uRBQkEf7q$Xxc+1=#I`3_-E% zJ$N%=BT*$CT%FLrZ?((R;_#hZ;lDBn@?_8S-)uKG_THtG5>a^=w7rEv_3y|$^zMh( zsQ>ZOB4ZcfVV|WWS-l$}1bS3dCxH(R!u>)QtbNcI%(KEj7-#TZ)9e5I&iGqk(Y7?e z>jqms<_Bal#PY;ceJjcdXFo>CM)`1dPY69@dVYD&Kx!vyKT8F9#pRnCIkG2 zBR@sq0UDO&Scpj8kNu_gP!2oa=9ZoXa9MTK=&*saVY35GX}hd4ze~sQ+Q5XYQ477h zSh3#fB3>K7q>{g=j7Bm!%j;;&W#wg1I-_(J~9Gh4-Q z%|L}^lyp3PQPF|-0Pk^PjQG=EHUm>oVhZw2H6(z;UX8*70FDP{anU%-ykGAIfP#m0 zLVilTs+!PHR9p;(wTur0U9SPmuWi7V4;_!$6e0r@TFOGDpBgQ#+CAKr2b#n;al>Te>vnd~p^>Dp zS%ki6A&5=l6BfS-j=i9$8I%iR!2lirpx$%$#RG>Ojo_37%PTKl8y*Uc?`X`UN};|g&c7Qa#ZB=8EJx71znh$0 z#l>jtR(8zg{qk6UbqGMMdJ*Gp>cB25ZflR*Y=X&%Z0@EoJiWpra?_&1Y4fH3!Tui6 zuK1y+ff2<>YeI12{qz&+qGi5*xK;qz0bQTlX z1eEviRyi;X%&Y?MZKBE4kGf_6jZxxA5c?wjh4vC<8d#h=&0; zF{7>BwU|T>4?o7mQkmUmxW-lTcL4t*ahY{Phx^s4moecCyvJzq@07o;TN3!gg4HlH zI0I1MXAFU9XFMJkl!#(5ZGhz!>I4_ZON`wFQiWIzo4_~^zdlh{jR$Iev6PBH>N|i+ zwV7b?sOYDj*f$quIY{bF1x2)1k4TSuC?SzE2PU?>AOqKitOvqs=8T6I%57O7thgdC zk`@i5vJXT9(`>;m*H?E`@ED+8<()u~IyV~3JLxzrU? zKwqv4{94>p^v6tf2FJt`UM0r4$Gh{rek&{=HjV`wB7|Zp9T(cPXI> z`Yf&u7aCv8O3k)4`%;Wq2UgR#6K<$@cm5rxcD7uMGlE`*&vykX$~lrrl#eXrbthW=?6!BV=mRW0GQ+ z63vQ;`KTxe_qqG-{X6G(_S$=|z1KPG{By4U$+d28Zs777-q+{-eoZdRXwt%rGy%oj z11QOy<=s9_O(8CG)jIOwNSGnqw6zQO^oexh6N@2x0Ts>d$W5_BL|+(uF{z!3AWB+B z$H}l{Zsz+o1La7D5KYD{?a%}$i1XPZ5bR|5QIk+P{hNN|K^c_HX^T=0Viy>szKIh1 zX2d1+@|+YDSA6DRs)Qm1Jt1dMoD~EPXaRDAD2$ML}|jwsR(ms12F(*3q~Kq?75j#8~|Y`bIH+MilYvg z^Nb)(kor48MiMu3fnj|;@X;!+R+71nAThwQLn-68wUoon9_58sI}eUT`;#))pq~JWP6~n))4v?Um{)??cZG6#;Fd=4Pc7wf1_m^6_mJHdkUgAa-Hv~xp zq8ftvQ9@XHXvvs8iySYcenb&y{5|eB5oS@&%JK2>Bd8D-%uvw?OuL?oeH=)JxQ|C# z1S6tBifIs8nJkx%2!x>$RUiueWPdPfd>&!*m4m@)UCpI@p4KBP(jrhi&>h=PUJaXs zD1R;rVXop>f7~+%C)Egz6fZFGo(y&(=ITK#Xx2pmMP%i<-4LC;k{gwpke+Q2jyGeW z*opz^atfJTN3pn>>njLS7!sHH%adV5r;A}a%t(-iHsQOZD47&f1pOT>*uv!MBwiTR z$C=6`mh)qA%{O#o!7oRsm^oV_>EutOHrlU%Wh`KF^(Q_@wtE6kgBU4F_`v$>v^SX& zf&2EqgZgDjTfpFP>W8Qcrjw)&_snPHdBJ4#TtV;ZoVl3BIA+AVt_WV+LwZ!oqAT`% z=?otF%JJRX!>7I4SAihS_u(K??j{_kiPm03R_a;-;wJ3AWUhQ430c>c(H3h$w0V}3 zjdN9Z6eSJOU+yCrvojoa3uCqVLlpcO3Y>#*nS2VY(<2#0hDgeTHYBG zzspO-XglMneiD3;WLl#j%_;W{R_G#}&f4l0Iw;lH3TDOYq3vW&P-h;isGACBhm&47@LT>0ERz()axF8oozGClkbK8N38HG-IUOR||{KB?o@F zsOba+VpS|dQ@TyTMLgIHP=^MsK8@fxGo1Ce$y?Q0yp*vtsh(Z}^yXh5uZPBzKYZ>? zE=bcTqALl2U)CF9y1^wSNcIUhfQfbH=0Y}tXJ;1*kYt zS*PR)CW@%5rQ`5QZLj5B{Ax9KFd6#X#ye-VHg$1!QKA% z`4caGEPS@peRyvB;jlYTcY?=dw77=JAez5NkipVVqy(f(3tH~3`i!*nhAly+8TE+)k=)S6v9wk+r_+a+>Zz@^34J!}~x!k8QR+%#S_f!?2 z0>PEvI{g9>WIp&fuxcjYL^YBBOJ(bQR530xB2gW-yIyH@Tn|(~@YN4Gvv&o`p~k_a zX$mx;oQ`k0e)b`yNvnI9Bs(%Vw@p$fo$MZb@sQ>Qri z<(a8szjK$HR#64Xc>CqcB?ur&u=3s9w+5+eYKc;kX9{fQR7gk4EEQ9z%q@96RI->oYLh z|97Ta)jHdQ4TeYd4IoptuN82iawrdv~@yq`!nN)aYxGv)#F} zkf2obfL)IR9R#L#zdiKv@pBBt`Dj<+?X9$N4HdO|!@S+0#ky%6QYNBP)5Ef-?K}@NgEk1z6 zi5BrBCIEMDFQ}2wvHYcNVkF<7$uxKsoxIGWUci693yijpCDDMUpxq#-kZ&}4YVNC3;2wK+X#}a zW!T?u6IccjWWS#qp{S#4!JMG zN(VckJNW61JXt^rM7Q(?)1uF<0-e+{d$D4*hZG(URhjRC?6p<#! zd*B@K;65@_O#FU)`VNh=AnwrSDH6|@!$vrom^lx^(y7?5LFLUOmGSz2&@^Z*@Hz4ISuWOP#0P*4=&;YYe1U1IpYZLn7 z2(Ypa-VcF?6uFZ`K{X%Y;2vCG!V=+rglgSa3DBW-o{3frR9>-qov#2YUmfN;ytukm z2eCvtY9yIy9E$EU>7Qx_f--e)!uF;l_MGkR8A3Z=rQHOwAKMKf6h)PQ&12C+<=@$KfiG5bscTa*4Bf>iy7xb-jWsPvOHNMCe|>n3k>5MpP0D>lIW6g9b4J&{8y8rDsJ*gerk-UuV(+M8bCUp}}t?Bkl z%*X84Q)w_HXd2CPw1wOol&7&JcHpOkIT5a*h$<%VRzK?@>3k{$;q1q|Gbk%lrqe&l zmb--H3h>TFryQKhZ?weR^+ynAsqPNJs+Y@%DZGe0RId%{| zi>Acb9x?67&yNDeahib@(QluH#1_IeA#4LLpz z!lW*@(P2hgKlT5DpWn9m=~Z;*^N0vD^>XDin%~Nyx|CIvh&>S^nq z{i8Juk!k?_a1o?F?eE=sE=1b67krCtd-fb;`2Rrl|5`$Xh@y&c=}Y@Gjb_tCmi^@5 z6-4wP%q*%ZrT;z(*Ei*;NM5po*+)|(wiM+r5Co|OC+=|6ycJ)Bqv7(k{ZSI=MD!X3 zVLwLEVaS7u!M908qCbwK4$%yH>%f+TNc+#&XI}*}e`U_=x__A0^JGUoQS(5YVyT-!I zxr6q-e7eH!*<}(AYzy3XPUJvm?@|QJq7`6lB%SIegT#PGb`6k=pn4h zgq25?yxR#(ga`wm2SI@={Iy3-``FeIH$+?UxKsqw-t~k8e46N^CCxCDy%d3lRn*xP zn%EVl`C(wnXodyR#4YOl%$&f8N{bbG65PtLNIX@4Iqk?N`%uuWz*LWe~$fIkksEC@X}e^yOv$JTLCGEgRfN_S8+LMV3rzJb|GZYw+n@1dXQl_7DRag zM~-Gd*eEG1t0wc?lg3SF_Ba*Wru)#gZ0PLbij`l?kB;oN?5%0 zz3Wd@WkBEm7$D;qagJJe9>-b;$qKq@?j+vxR!J=^6}~4$<$}W>-LICQ+pscFfgfcX z2oXE+YgJDz>8=JCXd~}7`uQ0gd9{q_C*v5&ICJ9p07(B*!@j$?Ro14(4SW86QG`*h zZ}zwpN{M^O|FZbE=SBUmci5mAZIc7T9n8e}3t82Te;C_*<4|o_UplI+Fumo>Tylj@ zVVY-%(WAu?kRnhKnbM}dL8j0u*naQEtL1gh_S8c1h6?-GwJ=W^)vQvE)8YsU0oAh0 z{8q7{LUv@m?XrrpPT|$R((3k@7W$M=6z9C!g+%#AW-PvhYRXrXkN2HEz6pKGVv1Vm ziHdT}`RO10YNvxIT7&AqdbRVfw>=;xq`%M`lC~|`X|DCJFb_!Px4a02I|l-E4(Ppu z%_OP63-wmaz&EV7ZiLVc-o%frw{C%CT@-V^{jLZe!H-BCGJJbeT49PZw|5k)e=G1r z)@yVXgsBytP~3cS+I|nEq9wy(F{0^xNfjmjpU?J2vlT7%77VDx$C3=lrP@2skJTMC zQIt`Y0lt2W(99pU8T>kh3^P1MwD_n3*?{d@Hd>~n`2~IXSW<3o>}~5pgIu!6H;i37 zXaVDHavv-tI_5sNz7hH%)Et?>+N-cp^3Kv{qgusm5xRUaB0y6P4@l0GC{XCWf*rMY z+K%#7vi~u(8uB(9b^$SE0Z_{{$of#2LO!{t{#!-F=;ff)&_=VNdlE=daGkJveJCWt z_~nyeI1c(piw&oWP`BswoqxTEH(dB~I===KrjiZs?fJ)e)Ap))gyTNiaR7M6-=oR! zh~2^gnbvC{e=L4W*G@fe+ZT5^&Aq^?Bl?qyi|I8e4dh(|KgfIEM4F3+FSyzZrO(oE z$F%`f8Q4X3_|op0(7OC*g_RQ0I))Op<;uI%BToA?lG}sd??shhf%WWNF>jA4wyvc+ z^}Fm)fqWrWQ?>~Mzcw4*rAb@@EVDi(AIxJQ)jbohO8`!OPn%efm38M#w(Py39(^)i zN1p;N7goASym+ZT`LWtfz3k!xn3T^Ln9>ogFC`mt2TYM*NTr0={7_F%8w&0t!FC?{ zv%uXRAgz|(JR0`=SZIvT0Sw5YANqcFC-jUZ{qB)Z=~p)unC=%!LHO4%6_vNh+W!)c z@4UZEOb|KhCCJ}`eG0uEv<2BGqTD`=nai36cZdGWEi+cmm^s7_4Px!*8*XDNjPuoG zbOnNKaGj!Pd1E;05$?5Jvv@Aw!T3=d|P?rWt$YTX}^IY0W zM&lzRLmws7RTrn}y5!xtS83We3vLoS15VT;fA)nvFhBnDW|E?fC)om_r&4LWEaVZI z>yib`@EL3L2>R(x5Sj+^4}jo#-tu@urFeu1I%Skii^J8eLHDL;CZUt7s>7)Yzf;L} zZ+PhcZfAHY7#<9aQj?+{bSEV>0HR2w$dCxI01-A|#zX@25>oH_(G>x3cV`GzZGdVP zN4oSuk;S6&fRO;8ehhfmNvoW1XEjMdg56RlP$QBerDYTNC~5<^(xxu8OUI&VG@uKF zU=_r10BRM$VqwA94p#t>1h`YXSwMv>5zrr$0OF;UpKs$zgNVG!=8_s}{cIf%>@O^a zd}&h^fk3FoHZ@3uECT6aiVm={8`ls%h2Q?SJF}Nme2WDTXS+E7FmOyWDWRi|&1MTZ zBp#^}kTin1!bNUICKI)&+hon{UI)Q~p?ILVPb@i%BD+IM>thB%N}ADFyo5M2)AvA< z=${4h>R={p!r2alOPgBv(a845z@TVeFs%<zMb_!17%;^LI{`%QRzKZ_gY&MUlqIzI!X?3l|z|sDUxSUc}JSdH! ziqPx{H=|wc9ivk_|E;0PhO4O$#L%A~NmG<2PMtLp|6Q68I%7zPFHf zyWcj-*yeHgrGWW;`||j2seR#gzmvK{IQ!j)}(Ans?Nd|MP40)7wX!Kxxmc8ndMs*0bnv z)oedMy;h@Xp4>A+fv>}H@ZfZ7H@tjt-%?iBJ1uL#TS`_aclgJF62Xh(S~+X>IV#JE zxUy~aAa9M?<8pXk7xKz3Dy9$NeBF+6$4l5e4Ri*pPQvmwY$A+4M1ozEDGC22-;K5( zHJm^ai2w=6kv4QIBnf&+9v;C3EKjmW2NeK<7y631zAyNGpvW+McwFa}sD8REF$s`B z`s1;4TfsAa@mN%^4eRzsQg5^*(jJjD_JN}dj76}m)hs47Q{FL2Q3*>Ruayx%B zs0SEC^XCg`BEEEm9eg#iegg003rJa2H1X)?o-O_9ML5%yQPRrGy{%5J+<5lcB4A>y zM`6NOvO6dhj4uNcFHc-hBXD}-Som^4#M!3Zs>*|@wLEC)-?XR8Bq?mW`aGAdh`U~G zxeH`c>r=Lh^^QzHxAaD46~QDJ@UdrX8y>)vWO?v&q0ls{O)-!T6C zh-p=l@4ErBwQm*3^IA4P2=Y2mGsIcgy;VbD zOdA?H?6rqySDG<`+2I5K(4Ut4xX>9O;d^^69APn4?+!}U3T z6W{=LoXdXQ8|4e5z;i)^kio9^xBTsx!!i9o-xOS%vA>S<&ad(D9zl_zH!AiPy2O^g z6RC}I9bqGZ(g(qD?lWAlKqmF-@@7wW$8??{pBlK*>Fx5fr0u;C`HX$r@;LLWwbp)# zNM{7yMh+`&JFZnSX3HLs#eBLMQ!J}=El~P0RuTGF^?(8Fu9__%^;PE8B%&eTz7*up z;>cN%45Qg?9LQrF>b_a5MIs9u7!*}DIvT;>kV6EWVJWv|TVlTS$W0p!jcn7u$<>lM zprPmmN*&|lvm>Oh{{Ww9a%|kN(g&z5X{nd4cwO(T7CamN$?=k%($(s+mF@|u2+aOy zZl4+GI)QMz5$E!;r0w|r&P=|oT_Ze9JAL~h4HfP3OVBhE58-U*^oI!xDGkU`juN2D zXAUEm#LlHPN;};7LFOIH>7O+w(17%=;0r*duAkA|(Li~`5eK%Ot1QE0lHcbp!|rq_ zKy5))9Sa~Ajhpg-Y~H%538wu___Fbi2Cn={TEd94F-CyyxSED(>M=s^9=1;cM1G0bxkk(2LrhMDNjHU4b;z_a@(2cw=`EIY%&6CoUruRt!iYAjn?uFy;$ki~W+?WkRzpiwXe%#oihmNddq@v+P9}zZfZ>NQiFkl>U#63BC#*H&(zk3H1S?F-+^ilBvm z5#n!YY4xQGw{N*aW2Ku%m3B%SfSI@NxuB~CY)K5goc?q=zIn&eOo#f}f)hLMDsN%9 zPzoy9LALf1i@R9KbEk(kXZ4Wd8VhusH?jntd(i!0cebU8CE_^CmK66mmG|BgJ6Asuq*FTLF0_-ZwD`Wz0VZ|&X; z9_Vz?K7(hDAd-s-p0fB{E-#M2o>ix2k=;zM+&6C1Bu=GZ@*pw&P|ES~`IRlF%0a;f zQ=t{H>!PyasjQn$3jPQ79R&|G|EKL$kQ@B|Uf<4l2!U~=j81P*JkZbfNuIR5`yBHgB!#FBd>-hM~ zZ7}Wok+{Q#UOzsm*!4W{z4DHfXZrrY4(mMc(|x;wnXQV^cWZL9tPi}FvovLg)$!tj zSInL;2&YRzU)_zl2ZQZq#5W2R?S# zBBwYv1~ONkR~c;5csg~@=oKHM-Rjru;vx|v8|>Y`pVqO!cx)>?ue6Ej`p~!a?vtmj zO$tAJclm2(PqxmiW*Xuu;Jy>-js$&q$NGmMZ#4=DAN7L%LMybMp0~c=(wPz3`S&V$ zq~)ocUbad^L<;*umX@ZODduI5;HhTv)Q*;Kd0y68U8Ol_xVz8Mwh-v%qC{*W`4ObZN`*pY@Jk zxnFm(H_K=R8Xy$BpoqnSkv~f@Jr4gW&}AFyEg@Bv`2!^8w8M=DFZP7BX09l;1-2Yr z*)jgc0iAo*dC59p8}{j2WHdWvl%nlm?d`K^ z#15ZaJ!lun%QizJ+D@BoQa=|IY3m*Fx^&bwT#MiqBJ;fOL98QrN7}Ep^AXPLZ4Icz zmpeXGylD^quBQ0CAm-1*uOARlPIskOkmsE$0+i7k9LuAaHnKi{rwqmvRDj7XJRTD(Dd$uUrJ zXgGuT^MTalgh^^5MdeS?8`iAed1T z&Vnu5eVkQdHkS(yy!uP*Z?~=%@-Llc{@{Pd-(&vU9Qfb*js88({4b3k|Niy=*1PvV z@*9Ph|7X8ZnC#+z?|J?c7Vm$82Y749f{CXn$CJ0mfwWhJJd6ewIPfA>H^XGyU8= zOvNxARv2b&xD9={6>{{kYwUhBB-HYO8_|BM?&Iqsb$B@=3nyEHZ|gTZdEx{j1XPSZ zBE`&j_V7sR^_TDG-We@qO4GtG|9y|^nswO$V|8q$6!`&agPBKoe7qe5j7Cp&$JrOe z<8D9ohK|-qEPkZkd{<&;_UHGIp9y6(jB5EKI=HmEx6%|VHB(C?GnT!3l)%-fB)5EG zN3iK{8N1a{g??BeO)nc0Gm>zZdT8_Wo%aSa-;odLqq`h;e%(Ob8lE7QC98#EWO2R^-w(HX8KRHMRBYSq;8zB;S(Fbvj>}$)t%EkB6%hsj~$>gKXAJAR+bftQr_`p+LZ=Z%+mNSx0Hc+jl1! z-(@#Phk(kjpxwh*&a`hv$*j>{U}PywJj%wF^=d}a+9FjEuqoNli4y7X3-X} zk*e69J+|mVye_@xJ2rP~XLRA> z>FVnB>7r2dDh>kA%DT=@Xx!UEAJ`b-lfF$x5kf{Y!0v;=v)S7ZZh|0Y+1Hc69Oto` zbG};`ji45WIkMIM$+pm#^aIhi69(ZgFI+X4-W!Q8r)TBlsybsl&pRLb^ZN$54eo>e z&`*n-oXi11LL~&ILE4eISfZ_JpP0KqM*AcCU9~_UaL-dH$ijo7^0rk>dl^(-peH8G ztFe>Nw%*kcmxi?uCW@(`&vGqt+}W~Ixd!O9M$df99W$QlVS(hbMtCHyKE(o%#4{IP zHR?G}K!V>pTU-r5PjD@pfwb4452GGS7nQ6Bw~wf7%8ipv{Ibo>W`tM1_&sj> zh?a`newb;xmY>g5bjlmGCo<0P8c15Kqbz)cpfr|20O2?%@8li-HU*Rn5B&-uLxX{rjd3*x5-H*MC)$MB=R%qEw@(yuVmpxG?nT^^0ThE(eFt+P|txhaR<* zq#w0ayDpbW>ujz#B?U-G@WnQg(scl!#Dhj8Q8}Ur3uc?h321`9gQ$by1?D>SfK&mPBrUT5Ui~D%ktEfFIY;3mZeYYvTXBO2 z-FpQ*NmY%w^A*^A!MeIskA0BA5+(@jKA&b6N%gmUkDS9}k2# zwDdCM(*NE7y%^>?-k*l~m09ayoKPzIr68qw0D!UY@wFTPIw4vSC$PlS@o|;{Yf|xg z8$TeUr&ktMx#hKrW`KL^RNT)1*O{PuX{jBZ@;mBj(gGn6$Xi=}Dt#LOgmkFgx_%=o zwtU2#iT9guYw!mr1mWy2(iAnRz9tbrQ*d&M1FUxglY(|}W=9jZ3mfYeX|9<>>o}6G z0qUep3IZ%k^kXB}#>euG#h8W&5HB|X-5gd+zpteg9R?36i(|I#T=CwRzMYvDnRRVq zG{8_Di^X{90Pl8~Se5eG#03CYAz@A9iqYlUm{Hjj>mI= z2}6L_0Io=xv;!_H^|Yp%&d2QP=ljwo1KllpMnH&cJn#;^O;&ZIV+if@LaXCb+hU zJFhXwT~ zd1iEN#0LGa4Q9HEZjxPUU)*M8K1Slos!q8%=3?u^@XK4AQ=Sw(8{S8hF0FDQ6=RLj zSeM9M4T(E?nZtjec0CS1ZLxiy($S4-X$aYU>Y;(767hM_R%t#^10$?UjQtmYEz&25>(umBv?Tsy6NUOJW+aU(VpwreL@E)93i z=k$lhF!QnIVs=P}`vhKnD^hs>ua<8qK%!QDrRv6wq|LcS8yY;@Q^yMoK)0149mS==htMo;i&Fy1;Eh&?wxHgjJ z;o%->bMzgu!bTwVQF0&7JPg|m1m_{<%=SPK0q)Gy-WorhV!6_dz?pRY>qk{30HM0` z!jHyojzG%haq49d5l8{ECoqud?sq~VL+W~_G$>N_?O9+dksw?W9srXW;T$HR?sDf#JoXFAOM!U z29c`17ZAi%xcH7;HP|KyJFd(f%$x`e3>5VAwYzdjqN$mE8Iq2UI)*$vyjVkhE8O0j z*-_ElyHb2E2WWnFP@)MIvA0@FUbCJ8qYeJ4?3uY!_-bZLEvguXq^lrU(vxf!X!u`l zB7sxJ4M|HU!^0=&TvvLrGA^+fazq_JqR)+wB< zmd|FzeIwyT?!QAOaHQq-K4!a5uh)}1-BS{7T&XX;d<6e^p4=-YtfXTIKm!=A5@he; z;nyt`D@GVvRC8Me3!yyiIRd6VMXak6=7RHz7$D(u~Tfex$V+SXXcY%@1zsHpr z8moG=Ccdp?Wpv%(xdG?|f`|GkgeEF&&qSA+xnHsu@WPj-{Qa4?AW$o|Tz9f}Ke#u_ zTBXtJTj;?9N5GsYFv(5bUpZJ%!M<(Ry_9%H$3~_UY>7%nn!Ni9&=dkn|Wsm?9Z{=!*~@i zyv9I7@u^$503p%w zcHMHu{zAXu{s@GAp%Zf3=M!H0(*0Gp>z=vw_Rxo#+_xjX24)*#Uuk9F_fn1?`stGY zBpV$8r7yfeKgX2Zy4kgt0y_{!S1Igy$j#SOcxaU^Rhhvwq1|^xII!> zYB4h_T-|qmo5%Rmi2U({)5R%je>`@Gj=PZr$>{!`AH{s>);|8GryZ8F9y3Nc@|EfF zDhSs@VJjyuj+dY_0H0NKKKD^Zr}wh3Wtl^`FAd05((XSlczCadS%4+KFEarV6`kC%Qha$yUz~2w5fZ(;L8Fm@ z&gIcXu)?<;0G6&+tDOkQ+B@5=AOdYV&1&(6Tz(p8?`jpJBn`#adJtSTn zMQL1v+i0ip*dP7ar6I^{=Q_d&dW0Zu+LNKP1yRmCKHB1z4aZk#s!U3<4?9-ZWl)Zf zgkdm2Bz*mo>~b>neLChS@1K`No)67fr>j=f6k#PO(}1^~Q-qTA`Oe7fuv~ zzRta zfW@$B^rhmMQ@4v~`!g7oA3VL{i+S0NfvqjZc{lY=rF(bZKt% z@(*W1kA4BGs}>7(6&%Hw73!V{?K&0XJX6EjmFN6rCjx_vl0F8Ly=!yl>&ZU(iQug4 z+jexxIq5|G$BvL)gl&4Y2fpVUN5P{?Yy4&d`rg=ou=Nso@Mv=73t&P~z4|hLo+D&m ze>g~as)>5cUug$i&Rmgyy)!9k2Mq%sz3azob3Dn38Ep#9Od)nR_wK8J01V+*{}4`< zpVS>#D2X&YNqTo5kJxhGz-WFVq>RGKn09)dJ@f+nCWH9ngHz8Du63Yhds{(~SaT9& zY)at?%N;|HnA2AabfkH@!j3h~P6AgJ^N4V6&EN`bRy{pS5S0g#Af96|g%U_tQ@}#VBcm->+(2aFhpFqB zBMy|#y%k#%)C)FYpoZbSXVj+b*L*Lg<k5E~`l* zoQe);F9bi?<6|Q$WpdT^9F9j5cQd#fJ9z5X@ONx=Db897+Fcz+^_Ht29D6v+TMoLS z(4J5y1H`xzmIE3Z+f&T7n{?V)pv5mbvND5sp4Nu&uM&X@>yGNwnFPn|IZ|qw06QwT zc{v!S@~CNVyyO!ws&GP}u)xGFOTX@sc30Ln2&pvom_SNq_OQh0+cztUOsF8^I@*)X zYmyvy_&&67=u_7A$7v9F<{)5dC)M;>mRr9!c=H$hMOJ`Htc0093FiCUiiAcFtS`LW z^Z*J6PZiQR{Pe{HhJF%YeBz)~C>)cWoRm9wMfZJAgfaRcdd+kV=D}gG#K9F)t(vmo z^!yzH1t6G~3dVDtQoY?tAq2-04W>_M8eZM>FkuGy@xIKmqW~Nk1;FyOZZ(VHayMo; zyTaB2(9Ef%xdR?g-}k;{B!9D&zHIK;efThR+YHTVxV0BOmaI^Kc^{8l$WLjk@8s{O~V)WlO%Rv zTEcGE9K1DtcAEm{yU3%8BXlJJlIv%?0++_(j-+OF@&H0}D^Cctcfiyk#Y`V>J-vhJ zIvG+aJE=JXAP|HUgg0HWoQ^Yx!N*&9b2-8v;y~MQ)#KwjkyT+f;0`S0>f?;|FodJ6 zC+$Yx1fECu82jSBr?+$=)WA6Xq3v>{>7>goN(@RneL7*1}ickA&>9 z`Di|Z(~f!hXNihRt;6SnF>?lXY5QTQzpl!TdL3An)d?mDV+0$=_xO0f!mjw8{=dia zot!RD_6qgPxwXhm$IfFy;lmr!TDIKZ1%=-~jQq&Q)qqlj&8CAk8-H^ZtBa@f-Lf%= zQ!zg_rfW(UoxYY1I~6?ZI8BuByrqc>Jl|nft?7BU1nwp^2)5mXhstxjx`{?h^ zj9E5@hZNs^3r||^9vvJT`!y;NW&erB#vd#UVh!Bf-~*C*pg_ZYULI}L0?{q>wM zrSETBIumCSmnJ#4cYnD>68F%RAFyrHr(W+bEr zyhRV*Qnd?Q&IIRandH*|n$KGNI3Q{nUA_+UQ~15Z*pU`BN|M+Jf=xZz?k?lfyQ}NT z?gyUu+Vk{*jtjK^gSt6SI-nHImJ%7Ib zp-Yfq$$4Jqd49jgaeVycVW7b`N#f~!?q{_+WU**afyv1556ixKAfp`|1dRNvA)K#r z?qgR*SV!qoFuU56w_0tS<)iuDwX5US+4TfXksl+i@72yro3f^~Z6@2m!akOo;ucF# zd%+Lh)2d+{f$&Jffy3FG)#J8BjiC*u$n93ZYcpLK2mgHVHPc8dL#%aq7FeMnA$e}U z))yrNJhnCos3(Gf?UH`87M52cIvTmLFSp_OR9izkK=GqXL|~|)rf36D3ieeYyH)NN z^AJIl>F)f-b}}O-dZ~aieJzm^gr3(|QsP9wwSY{QPT%CV!$SE-AWeZ(OhaMZ9GlTU z!Bdg@Tf5urf%^Pr?Hw;ekKW4-u^@M23w1do{?Qy->3UsH-?L2Js~)uBqamZ9?l>6w7wWL@+V=g4sy;ZWW5Z`#8Z#Pco@=@e zp;tLEbExiROiFU(iAuzh==oCZLxcFtcn|%zPS&2IwIwt8T&@z#WXH-$+}RXr|5sP87EZMccV}R z8L>LhtH)YF2wI8KJ_0G3%UP!a2J`FoD#R#w%kxD2OS)N@bM|a9xl^9nG$P=6(lhCw zaePc*!8{K1Ja0Wql@Fc!OPH5io81Kn`F;i}FuHZQIsy_MWdUZW7d`wvLIQ9n@`P9- z6RiqcHwh>&SM)E}PsRWs@I&gqM)jfo0t+bmH0XZ@~93FORzFv7W^(`c>YQv5GjuqGXc%8 zvD3%}f!__9#2Qz zm0#5WyHTk_9gR*xQri?Ya7Zd&u{mD^mRimZBaLHh;t{9QppMy$VvQ>r&sPB@_Y%Gy z0Hg{glY>;%A-32&-kpBnoDq7C)-Jv6^S2)WE;N+3A+z;NgnI4J=SqKej(=Of@~4Iy zUJ|i2VPGCz$;PQfkw6jphwDnKn>W|gL z(S65k$(YD0nq(v%bF>1XK8#A>`9jL2>5fl+)?U+NEtEvIF}x0G<)NnIuFcA?Pwjd} zw6abULMyxre(r>WlkU64f|iir;PfrQyXOU%W%d`ROL&KJx1lb5^{|S_4Ji1QXO`xn zj`%nqeUn~r1IpZIN0@7I2#CVG);dhkO0B<*oGW{I>~e(02oo1YtL+m!+~ItouRh^y zKd+?r+^zkaIT49|{bOLO;ABoTA-jQsLQzLnt6liBw0p)!%<_mpdN@Zuax-$A&>Wp- zKT@C)n(+t{ zhrV)JLLME=yfKma_a-TOicTNF^OER^dQ&lnjByf^wp_RDrxYnpnadyLGacU4S>`lp zcoKvI64Ck;P7kCTh)xhk`M7S zF9R|(cLG5sE0h}V^CvQwf;tYlKJr%M`74wu4-3~4hUx!M+i|5q!TT*|t`|oXl%P}= z&8i8SjD-fTpV|+0+ynhwa>Vl?K>{DW()4|nGoi%CBoYl=W@^m?wV4sCNL{Bm>Q+4j?jHZ#qr^^XtOj(wm%PlMZ$Z(ToS)UKkm0os9+ zK}Tk*^6w|&zhMPJstjQD4^6g|9~2NxK~#t9kQE(r5nShKF-stRb-5O5n}AqD>43Of z`57$I`30mBKtYxFG3cdD1n{E^_f6)!+XQTn9Vn!&9nhT}FbxHZ+h)4tzDMeq*Gy*| z6O3bUN^JkSKOsFZS`LNHkoAmFkc1B1;o+k}m(_LsS)4_N9!h}1+SNs*xHsR&V2ZWX z4a*~4JC z6Bg-R+4vc(0h1Z`omy}%bx84*O;ZfV0o+B-{JK#Nn0ZkxG5j#v_++4wd&IDGbeNi2 zZ>hx`FOWS2N)`9KRN8<_DiHJebbB3^H%&zU=hAnV6r)5^r7XCWk9)PaJlc>0!K@}PNadyk!3^v=qGF)$v zNl-hc8k{OVK@w!Lx9M?2Js#s&qB)I@sB~aPM6y7>rDtp00)yPkNDe?+S$V8@RlIi_ zSX16eaK9@|D7`Z`=6tO`pPYR1j%7u_tCr9o?_&3!G*Q#mSX!g@?ctug#DEHdrs`Jo zmnS(jugB98DN9F3^j7^@wpr)McAb(T%0%jg$C2<)_spBtEvjxgv+HdnjWG{?xp=6v z8jB`+>SFtAcH}Z@NBo3er5IO&rrt?ycP@6v*3bHayu!HK9YatUQ&Y{NKEG@JCK)ap zQYEw&%X4c{418Y(ij@(a5x4?7k#=gPMBXL?7}O+p1d!E}#!DJpIWRe=UqLV3{Z9o| z%4g+1VvXRn{Q-c-zinui2Mlxr5!9F-&$gU?I&=AeTWLC5X-VS?YRhuXqUpRYx z?Z20m1pH+T|HGU1UF5^=2Sst8O<;5a3ci8|(h!tGx4iIj%iF*H^UKZRf7Clv@2>I{hga`x_zriI%4E9QO33$rOZo++dqjr=xX7%foe4K!#5J-k1j z-)NsUQxv)m$&5k6Rrh-6?IZWL=viIZU1EP`n|K_9kBf*_0$AQ0XgM9`XxV4p%%9u` zlNL&RZFUIpg}}TrhLf1bFONxY5OxeF`A=A0kO1O=TqmiNJ|*^(g~O?OK$Y^XfdWu* zDg53W5=u-wCf6w>fZne11^_S%I<5LOV@z|~-B{h6gH}rXmA*sQM=yS^+zGmo#2gfr zx9vW*Z7e~puXka5q%a|Z1oEe}Gucz&lPyd&1~-j#+lx%Cqlcvd;c^j;qo!T4+zJlT z;6f{qR-U9Rd?u5jJG%M~gSA)R1YXN{Rf$wQwSWiueG>bxc`~3djJmPN`{$(*ckJw; zD&adpJ_ivvptauMD0p}nw&c^wWl9b{!_L!`Z?>M*M=v4<$8k;bbs69W_voyeX<9_- zP>!D9sgAp8KFdR-9&IXS+VS53PoeB)62Mk4x`L#Hk*VR@^HK!d3P1jX1V`h zCO2#%L!QBY9DN`r>?~7jQ}?iHDER4;W~ zae%r)ej#gViw8&9^~-ZTM$BGmpFkGh^wJ-&mJK~;LAh4J`ydXpwem&wRf*l&QC z8@+PdpC;przn6h=duJJ#;3?dN6`N0P?inVSy@lB*WR~knTbrNV{~OZ3l)W+?XU4jfus<&RDJJ z0yTnK);zjq3=pasf$;uG%w{0TFc8pE+J?VM?5&@SPXm$24DHJl+0c;HQ(%Xfb1)BB zkisX(k5*UAPr^&0tq(daHUshrA)2>U6z^I)l97dgRE2@7$|?7z?x(#xyZe@p^JY4T zA)ie@U#t}U6*s0SY=>?+pj`p)m^Z~8rY;Fox6+T5J%lawbI`!W z8lz%gWe0&OJ&d}6CbKMY%$mqr4GGcPtLrt6X{YmYyc<&=qp%0da2XQ zA}NgzwDFn1o!_F+OW#x;bQb;FZ~hcvgvwwq8;~+ZOb#CxI2n&A5O(X}wfFe$ien51*YQ^26*|cE60beFcpu`-gCdDXuqz(NePPxNL zj0i)jII;h`u$N|^DeM~|k+WtJ((WcLt(};PF{;h)qVF4aw|?AY{p+K;-0L0_I>a5H zY|_$$==?-g3ui^OYtp|$0_+r;uMxLW{cG?El#O0UqARG^cA1iKSvqCC4lVX zUOF~=2F%Y)@nK7tg5=%Nioa9I^oY1bfNL6JJ1V6?d}zuXF~G8&^WWRsu$S#5rRLXs z^?zV}*q?+=cfA^`TO^*@XuyjCIuDOL%|RT%l#qY8N+Zy!(iKN-^?K~hx~&Crz8R=1 z^MRBHT2o~!crh8`E;YHd9k(=kNGtX>n7c>D0@;NZ-SuKQ+*R(JLE914Wy>CW(y*-zUJHn#2Q4|r^I z!X!as``X~uwHKW4n3b1Cl|)3Z*q=y#Y*`L336z+_B)f~v*X+DmtT#4^aA(;F49f1f zmaZ;=`1E+=`rlr~*jS*{+)`4F#<>Ok$c?r44-}Ga#F5$-Z&}#{!Hefa?YT?KUSNu% zga9#x>Z_TP`iJoCw9$oVFo(`wF$lzsjwTGL6KI2^7`c{=G>E}*`66yB|Fi$#@}0QH zp+Sn-RIv6(wKCBqMXF3Tm6GXgKhSxiM+S((%RKqMI!}X(w<9*G@?Ekq`AstT z;Cy#`{#Hf?ka{l4_0;)@^J^Gt+V0{nuE+~x$8z{{q>12<${BzOM;~FPz~1}Y>rh}k zf0t$(HR|3*G0B7fWs47dsP8~T+Ksga%xDpQ#eX99i~PB*Qi(lQR(jLxo{#lY`;3Wv zgwjUIMAjdhBkUoG9Zmk! z0|7`t%H}6k;qejNuz6wYS2VEPX#{{N<$I?uDYFL#3^6^ip^bMUBRUUVe~1MmKc@lK zW=v!uf4ytneKq4p`Rb(VVOu&z#|3Xr0nGP&VH zsf458HdfF9F+sQ|#D;`%)yV^R_Fr+S1GhjVMAyt}Ft}6{3ufd*Ohqq!bW2XLw!3%gWMW33o}Qto{iliy8ih#6WsYM>f23+Y(e+{? zJi90z1pB)gkr^32{l=ii+j}`UcO2A`zc}Q~s{Iu#DWKvnmyDpOu}|I>p#nm`P_8j< z7Q5>b)$H{H>frAt?|GQmSt7@01dpxzzr4EjB_-JOY#5`~{M)Vvx|p@A>vT3S5k6u1 zI5mTphrQ|z)!YS(T7e}sTwrkhciRtnmo18gBJP&L+3{$KI!{F?lq02ViY?P+I@!U2Io371f>40)khx>(n{BiBZ}%E?%lTuHDYAku5#PUweTv>9@NfM59#K11a6Exf(z`qJvcH;j5WMJBnD@o~Q1 z+6as?G21{mHqPJuggP-QriE@WR4%apCLPw;iwF1?IKLg+L*_ZICOEy)vMm0TOyO#XtoB%u6HM8vmId>4t9I z7#lj$(!0`l&>3eO`g5l%LvRw>u`bu{?u%t6fa<8k!f?%Lo=lF?EGiw-dIIsRLo&2+ z`wf8~6-pb9bsH-qPE1n~3_)6sdR+j+qFl_ti}~`jQjSD1Z;Y|Wo<_1D<=;_EKy`d1 zcbu6x6#WIp*cS+>>o)4j0c+raf>$&+*`99G+&UalUNwjMoYbv-^e|%#q2sImgb*>N zHcq7tuN`PGd}0uR?QxAkzS=o$jq2-qtOkXRXAR}k#2%~S%O#VYSqg9_se$LdT7{m)Pz01Tm}1Oix;Ng{t;o$G7{-tV>>npxw)}FX&>cs)`*>8c|ozzI|Q)efT2`6 zONrwFViZk5?_(sob7IhyB6r2GA_n0R6GIodFD!`pVATNt6$ikWsg2KkeIdEGICCLr zGK|6l@OlNpPi>NKqp2qxf6?n_fY4vvlq3E>%yzr?RKy?1ZZkfaeb=GeMf}OF?HOj(YKTYl8_O}W z%*N-24v58GM7`P3(lC}QeR-(CouzO7a-jBfUf#&39(A}nVI0xM^Bm*}mRMc2%bXbi z5KMh`CGhQ50BS)&5l1WsDHYwFU*pC`vUr(Z!nhR=x&?h?3{~mQUL=otn__cp^1_$FZjRSWD2cJpPe{acUQ9_pLbYIbucN(_L zxj8a)U+j64-rkfSzZqVPv%8w|g_)} zUWn!dFtokk9!anLhEltDsv#+@g@B76!tsH$ldPWYqZ}z}VL=($zv3118;#WAr1X}p zc;49NQp@L!g1P6dySS&jP>=s*iq|i+SHpoK1H3}g_B3~KsBrmo zRKO|BUj%hEHSH)=v>D=dq?r|6g~Ue_3VW%A?Uajgksp|L-pPNsMrh9XJ)c+z)r?u} z^b?#_#C!fwpB)C95m~tsRqe1+j+3LwA=dz*c9;+Jx|(V2aP*gP!)VJw3K+0Kl?+bn za};|I6=ssz3dA0%CXWg%&UcIm2|U~QYquBiq|TH6B*Rj zLcMv~zdN^yczSOU+w=+HeoMe-*n{z{s^YJjYJh?^LPy6S*#fvmKjFF24E_rHx$yHJ z<%54xsU!t3JBi(vkZUS2isO+;D#N%4sdP}Kn|2ow1=7^E@7(w3p-cJ4A##IsLg7O3 zQHe6*Q=3SIs};y+gc9d^YA{ORFQ%v-qD90T6450XLt`Wo#QIvFPGazQgK0QN_5=!r zWT+dcnT3HJa*zc4Oo-e)L}{wkeD~!3KIf9k$u>sjU}?}OZPVk05gzdlrj3B~bYMca z%5|V)#d@Z_8@@QE-W@i@_;w6*dVoGBCWf4j?Wn_oz>IzqCvfw?i#k$UqKF1B?^5`( zVjQF8xZ802SRZIcC@&W}$3TNKj=XnfjY^-GRy})*vOD;0|24*AkKHih%0K;2mr0*9E@{`ex;7asgysSX$QeDQl77Nhi;V#ryD)>ndpBow@gWS3Rz-Y zM2vl|(YRYq#4koBAF|62iZtZQ^vN&{VJ`p6V#lwbDB)+7Yy*=gD$Yet9?Ox*@ojD5 zLoS4tLDE+!jOCMYtSrMj0wI?Hxi|9lIf(~wqbBb9<^+V>OyIf*1V=nC$XiS3pHS6^ z+skT8f41KCx)h(;#);+#@Sn6MI~9o{%qG-Z+sT7o_)KPAp~Qj}!bAZ`&Wf!{Uvtjy zt)plS^7#;EmtCXBY%3|W+JH(`by4r|=V?T+gnERK2mzidCyHf&lBv><@?(ELJebjL zQTi>GuFTLr8v%544Jr!JaX#uYL8gM)xs#x)n)ES~T-W{gGmAZ;)IKp4f1ATV~-c<5{%cXEUI# zIH{!}j1KnwU~hJomsicOpM7xbfCTU1z_0Y}v($sO-DzpD&TuFJMa$(6oqKkmhqW#p z!#)K*krP7pSO0OHJfNH6-@+_|9kg(^-_u(CSnIjYn;o-TChn=3g1ry$Je=EbF$QRF zXOtk{J)IGJ-sO0E>EbiVpiDXP@GMXdhP^?ZmnPmQW#@28XP07#D|tl8E1^rJF|q~V zAsDzM?;Aq_ssgaRDizaTbf$L*h5_`l1guf49TAG~mus67IY`hA27rg7G}+WV`Ln-j zXjlt#WK}z7q(P;}grA+^riq+4s2aPM8$F)(YNky; z+|x`=`i{w@!l`-FFkbMsTFey8{|Kvj z^LEbQ4|l~`IIQ`is{Wty#lyN@sogWKT|35XZge!N*kk<*&&2kHq!~3Z0<(G{+>9;q zmi{nCi`sct25OljxEx}Yv#9sCHgTdr*1;D_k#FVVM2}JBG@!At5{ez8m|JN z&WG^47A9o=+2=w3nD7a5{0?S}{ zW7gXG;~8iL~r9qPACVQuw%iUzom%osIu*>v|; z6se$kyK_L_c>dLUMtPiwfAf5-LWA2dSK(HV)eEiv!KgNNZN}EBPHKD6 z(6Xu0y18fsyD9HG=}dP0{C&3n=a#L&sG@XeVkAyHI?gy9^wD3a0rj#6 zf$%F9Dx^}?NV^L3gi8Ba?z^mDN<9qj$0(5S5}+%4$JW*%9OZ{Ad625&bquhMgAX4E z*c|4*ZA8;`Kf4Hc!9nwc)W1`izsYA{19zv?uYfv5aKY4OvuZb5O08c$2C&jJB^G;E z3;o%|Ald{Odv_Bxf25D?>23_mdD=1Kvs@Qw<$+|RfVBfJN=ea1*G^Y>YmVN^feh?q zeq-UW9y{IgF%L(gSy+Elk6qo*mRrBmKDW)v8ZHzpDjZ~WfVW&MDd%N4;S^O>pIqTL zosL<=GHOd~$EshTg7O+KuT4=i9jjkW#ioA=^ApGA583ENI=~!$FH_6qrG^&TXBa%W z_in4hhX6R`i~GD>n=@B|(&XmFryB066CD#VdK>tZ5{CAB*M?BD`rHS;^$I{5@W?8v zv|c6en2E!$bm6k=3eSqewpL+1mRP!`I_!q2y@DOm?;OD%f8N)awK58GK^{3e?G%9! zqR8ZDLE%(r6<-(&9BpY73;VhAz$Yx>8K3--3^(Jy%6>K%h!F^XHd~tH%FKBA6dgrBemuxV+h5eJSw_VQdA2!{ext%& zmMxaQ|MTcq#A>Eeoq0QQW91G3mj_aYD4eo$@o|VpbG+@z#6?2C1zo`DF)4ds%g?QH zQPMCq8kUw|FyRSXqxk_)twNu@d|>~n>1M%JMttU8Gl;uDLs5$lTL;7(3Z(6VG4|E zEKY3#6eYMwl^0n%5ED3|81Da@l{!$G~tbX_SOs(U$>@gAf}8}@hivyBnzYoBy_ zx|{7Ko42rMh$bk99=i#a0^ws`clBWcRlrOcqrA}c>H=}f6%os%e;JLp&)XYT|ldmm$2#KaOY5d3wEbU+dY^pyMq%f){@AiPs!vZhrU{Z>XYHC= zb$DO7&%s?doPX_+d2)5097F;Vo=+2o(GM{i1ti>wus9Mn0n6elapFA}J2=r!{o?)0 zN*St4@hO9uWVzNj{hFrEFoYs@X9-@JV(%JJx)-Yo*aZ%iU$x}UYM=SRe&wL zA_IrIyLjLUL%s-}rGMr@a8SaYO!03_@KVUnzm=8R&DT>k+@!dOk;VzsF-oy?hGtPQ90DnX&ebE8O{@@>0^*gre@0{9V_cjuUwqs`tHm@E~Zz% z5W*fIH;(TLPvHQ>DIXVy@#KKO?2wp$4nOwNV-B?-Jo{eo{B(;FABx18s1O0C;5b04wTJ@;qxUp3>!>hu=j zl&WoXJnKC!?jJRKozt5GLFGN6uaTZjxE*PH?DojCx#xm-BAl|4&lr2y&~Ydz0^+N2 z#yhnf57!urNF~wy_B?*72-5d_+nnp!Oy=@Ll`=Y;hn)+okavV$rmC2S(kxU=hf<&UQ>}PZyicIm@mbcb0 zh@3ilVHM~t7?TJil9XGbV@sm9zR#x<&x05zu%q~T#kR0F@Wwy;{f3T7<3Cq`OtzuS zdMYYxmn|iiy>H}E(Hsq%)c!r8u2-QDjrep-WaK+k@W01I$oVt5Vh)GHm4mfek-L@e zAuDI#;UA-2y&;@oR1y;jwX1_I*MsNtATR*{P%0hU{KwjdDV^Kk8cfYrJ*l#Wvv7Rm zH-J3QYm{NbI1TP+)s>ye?rgwibgN9OJxz&Tf9pVjQavyM6Dq0t$VvL{Q3(!-dS06V$Yy!HdwTL^j^oPopi_$2ji`|*p_l=F62bp9=f<2zXVN6yQX1F!!mpWhuH z`0MpnKW=^($6luc192@`6`|(k)B=jfdQp!0B@v>2=J0Ny<5M4)lXbn}txIU3jR+k0 zL4pJG(iSeZLvSB4BbdK&Rsz+x_ev`uQ7B|nbeGn(TwRP3P2o%?o=GJ_#ic{Bd=mM6 zN@`6G{zO{DdX~cf})_eb|x-d=_;mdt;1pB)^4CLNCqkM zd<;Ght>_@QA9J&}@)F8Oyp@fcq5;7bH805F6RS0d0pMh^1eD*i#?t*Pf!BX*Z-pxl zg0BWRW zM%=_#4Hn?6Y_gPBXM}SEZp( z#2!H464ERb#~QKn*}H4t}epr^9AU_1H*5SEcO z6&|7HP#*og90U*tnv%zmVD>my`{-p)2lo|MLY0uJq*Y+r&J#CAC1lw1)OCLv5(==7 z(_@EA4d9>@@o>$i>q;b}3Qcu~3j89Q1s1cH^>YbrrbGsG zi&x7Zc9yQhJqZbAX;0Jb2wI4r+khP*b866&4RKA!U@hlgq!`ve*N%+}(bdIhfc&_j z!t7!&iFcYQ#C@(48I)e|I|#}Z6K2AK+PGShg-_(x`ru~=I^i0lK(zFkE~tM7v2noc zfA2%ATsZvPMma=+GTHEsX>QA;==_Mq21_H#WyvAjtr{PF$O%S+W;64K6st~DRu>7sDr#vu4u zYUf6`$hl^KKY_>X+!#bFQq&$91~`Ydg5E`2V}w-l6$^p^QgMS)9?>kEgcqVI!Z4JU zp{lia`o@aOrN7y1&JhE2uYcBdBhaYO#`0v9_Qb`gzOC|StW&K|)2(Y^WHYq@>mV5# zz;eMF5nhU3&ryIQtL4!;(5|QY3q0vO(*?c?fnj4{l!6lxfrY}-Yl)qRa@6q5a<73V zDJv#=@*_=I0#*dD6kbOG1pmcK{WO@4K@3i{%5OUOi)o&*G}ZL&xeoo^BcB3FRwegu z9do0spM|(D7@WHIC=lcQVB5-P4@#q(iPT2WY?o925{*zXaVGHVvt2*07S?%U|C}v+btf4C-|0@{}qB~S3TV)E) zciZfVh3{EtxpuDf*&U8DscpcMvw|Tme24eo+JrbBlmPq+U&Q- z5HAER41n$wC0HNp<_{gno=zMCGdt`j=H7gciU3QEB5Bm!9kMwog%Y^@^5R3g<|KAA zxu_ZV;vp}RrV2c-Te>#u$!BNfq18qJUP%G`iw4HRD#qm;Wv=4}x&XY*c1jbr?DyQ@ zAjnQCZxw}quJEA){4Ci7^C%J|)V2j{FaY})qEsuO{tg~c@#nc8&a=EyPDh|u_!P3N zfGZ%S-f|r)F+W`5Jfke&DSmmAYQe)OKf{ z%$`RI6{~KuC&}~QsR(&OPYDlOWC9Uekeg+sGNc#^vLDmlkBu?}ZRF;x`N4@5+k2apVwq}S z8u$$39;*A1BPN0yQ1#pLv1$~qw{%cAbcAm7J4T*W(>c1S){xo>MI5AF$^@s+S4baZT zcz)xjyCC33)LPwhkMVel>Xz%3V$08d1juR7U697ErGVTQo#KLy9kDHhs+ga?0{;oL zwOB-@_hIl<4CKd_hg)UKO2=6xM*{YE;df}`#-aK>4R&TjP=H-X#Z!xBjAKn z{NYCO#vJ0tNQBQABt&i`TON!5SPSuQ*P#cFGP*ID%*!nkICT)@yuBi%=YYm~1I=!v z?8`N9h31a?CV*tHpADvqjLtMLXoO)OXq}dS{8Pg9&IvOuGf{hfub)5g^Q+oY>t6?R z(XJZBJt6sR5f0V+CXbcg+KY+xGqG&L+;}-rx77k#&9(lmuKZ>CA-6!iHw0hEOYEvE zT59Kllka(&SYAJ3k`CSdF8i69_2Z?TP}&<1XtY85-sj-to^ul6t^NZ_m<$22R*5ij-)!1(i8g-u_UA`6V>V_-KJ_FTzp`Fc zZR|p9NYyA!rv<8qdKx{yPXuX4%NxU>v;wzC`KJby%u=ZGf2(%`-2jp#*1~}d9N-ez% z2B(H$tQ@1E`1^X#`gXm#M<)+W$ju}e&kXBOE(nym*x z7(ppYjqvl61@S`XA*j7&dNoP@4#f#>4k7<>>wkT(-cq?AYy|Cg_(k9U=QywiQ8;Qg z$9@k5eyrZ$KL-f~{}2{J*g^C|$4y|#9ssn2@3#NxobJAdeTbCS)zG@XNHh;8GP-E}Ci_Tqo=a|@2 zf&OYSA!g`IbUcokgX~SUf^L4+Zn00T>c{#!|MmX<=g+0hFOm`KXWfH8ynlG^f@u9S z*eSh@x(7d4Vsad=1=}6>P`HP$?4E=_ZDBMTsYG6Y_tyI_un7qD4bJY;7;mTkS%inT z6GFoT;q<3Iw#0k$Wjrt(!RFk@Kz>*ISHS-+Zrc4nz|3DJ_H^_mz=YM`kJ6zrW8|2`>@hSdS z_BZIP%}owYKALqb8Mbv_a^{KL6z~~;KK_4(l=obpN}USOEfs4QX(W0_QVNz~qUDJ; z>@OwP6RI1o-oC#!=d0$y_Ohpf+Wg<_(`YA;bX!&j&%XO{V$`H6KlV~c^iS3W2f6PZp`W-D&zu(8!w7({>w0I?M)S){IDdyY5gZ9c__3(thol~dh=gJ z-P*7oOj7S={X_h##kG_TuV?qkC@HcD^qMqfGI!rygL*-j`xMg`y%^Jj-xm)5gd)Sk4tU)StZx?s*T~%G!N*Iql#xOvQE= z^Xm4kEimF<*>?2i>#U7WyQz3YKx!j(G`%3l^vo50mZ%Ek63+4yd%-p1J<;{@?OH$+cb8k)BMatLZQ zMULp}oV(Oat@RIyeS9@%bSNP~(AJtu&(Ih0!b@(o1omb3_`-n$;#Yk`k8ipCu`Rx`?#rQ5YV#L7bhi{C_bjJ( zzz?r;+}PZ5`%$3A`~COs;ZIjx`Bc{Q3-N}--y0Hqt`E6uAAE8qyfi<#aL+RICfg;m z>+sUaZNUzw?=3xhHB`4=Hu`tc#)Ema=ND-$NhiPhy%_ay%ujc@;(_w(<|$$!0c^qFjMLdHiNNliYQ3)>o%cO>`UxBQ!)0^5qjWPo@7 z`xlRGu>UoigMz}MqxWD=|L26(-WrEJ22N-<4|jLi*3e|^iIiLrvEmA5{|91oPemr5 z49d#L&dLPQD=_d`g0j-HPDW*8j)G4eoSct6njCTxa|WjUU)P0gUfVtX@00xh<5~Xu zzwMb$tjWKEe--?`_@e56u5kZ%zpwNMBwzcbzC;Q*9?#RPW$Yr9p;&$&x~}v+x(2@* zyf#m_x4NIX(0L2T70Tz$3r@yA+Wy=A#?JL$5&_;d(@dn|KI|;*#AzwNDgi$C{o3HS ztt!cjk0)euihW0OE^EWCD;TasD(CX@=(qEwI!*7mpg+Ezu9V{Amg$Mlm_EJQPYqVN zc|8b_{w4*KMgE}4aq;6~W8rD4iXXFVEy@+c`S0CalcA~z8la>KRmk_(cLcX`7E`=x zDg!qXb%UYhjedvET(oiIOkV->YuaQA^;-!ok9P0Y(D#Pxsry*N_o-PEy>xF~di6jp za5a{~Un!h7=vQc#Wj4xnByv)>W~&YZ`s(=k@m=?y9l0{|^3vpkzrq#Fj)D4*;F05} zyT}i@@%~cwT((r?-3}jHBrq>It^`^BVyfZ3-pWW5cHyAzNt376A5TYJ+hZ^~%BBx+ zG>HPwna@7M44i%e+1i`{ruekhB=*6HjWi6FJKWbyP0&jzxoJ?Iqh`CRNnML*14*&` z`{WO#QIY?nyQ;+=7iDjQKn(ZEEk5JJ$k)YKogOP)8=@1MU;cFXk?Fw-6DHwJd*qT#7fe>J#92VH8f4`__!-&Qz8y8@ql(JQ>Qs{ z?8iYVlH~);;71Nu@quTil&qDHfNGyMfPrA}G#apCDFqA%59MuA3Df@)yHn0p;fq4@ zmC2kW-88<+2=E*c%ib6&bH!UuqklMKis*Piz_qx}<&)A<@B@Wx|M-yt)aF z(-=kH@Q*`O%-b*kp#QMAy1sv((UIHL*_gfOEs4FRlhMp!tyXO2z?HF`j?F&4R!1KK zH@ndyydqBAN>bvf--`Mo>gb7d`MdOw2IpX7>&tze_G@0wt0-soUGN(q{yi$mH2nL9e>0i6-uE0>sjmm`?*~8hvG%rc^&6@9LM+gd=F^0-Er7+s+!y!pm*zF z-oAAcW!kGOPbZ{D`As1_-5c7`-tB>LqW}dyOQ%s2@@Bb028SATzK=Eb0aWf!lwuU&017}h?@f%fs7la1CDI74ZQL*9H&b8g5BD z3Bf~LZqX!IoDPrH^PCkEyRW;p4@L+G?B3GS=WXkM)Xkh{+m@d=g%|q}>2Yg2YoSRR zqICbWYTdF3k9nvy|9%a?-X0r;@F+>0<+aAGX6xeMzt7On;MLAK12jbaLS#3y`!2j? zY3Yl7n$2xVw!0j8kr%^EroFX%zlY8juHiaNLuSR-&or02FW+P#O@q!g9Ql6pJ?oKG zd);=UEu)_6<$C^WiC@0Y)!~&k&mYB|er3>1R|^XIY@f3CkDI#9g!I6(Z-T;38&*4C zyf?L7z5e$@rane1l7oW6e|_^Lc=$ubfWM{AK$5MkL%`yt@$Kb5sGU0FnY`jjP*4PG zp!Cx%2X%Cj=V6-j-fii$9Ti_Imj4O%rk2E4TRYXvR}MLN!t9TAMt9f#KO1;crM36% zG#;nFG|x$L4ubbF!mEF<+-vu4UC{DHAs|h@JPB5FR&Qty85ZpGdt+#5Y@1SR8f<8} zt>TZD+wa-hCdb%Vz6?55^1}=K8PE0VU*Ibq97nDlUJBalm$(0aWqn_7>)s9&ig?r3 zpE^R2;3n;1G|sJO>u#NOBrX36%fKENe`$PxMP3ew%&?c_2Hng3rCa(b`^Kn&FEMPq zsXN|8eQ~UQ2MyH+^*R8nD}DdG@Gc1ywj8ey&KE#rw~I2Lo!Ip`o=OERpSQJ{nvYyq z5#(rmW;(=2<&DFAbW(GL)~stZd_zV81Dv-tq^4e^&P98nI&$y{edGfd)ppsO(CBS` znsg<>VEU6n=gP*)H;x_ni6K2sK*}D19v7!ti{5^tDcqq^66j=YF4Ru(eS*iw}Ac`#0O!U68#z;q*9?qfcAF|LXKW6f zwU{gf(eBP0cb$F^egHzUXN;H>ULOX><&ZF>2sr9ErD5^Jhq&5Z92f-tSOtn^}U3PdjLvHD!*tLsG3D6&^Ws*M~c9=BS4B1*3re0J2cq8Xg$ z>3th3y}ZAz`2^At7u|cuAl1+~CEWVL(`zM?)o)Xcvzh9`&D5Uw@r9;;l@wvzRq%y) z1GYRtoXUB0l*c&det$z=$e`+0>t~0n?DVHy`>l@Zy0*uCaLd?;PIoH3%w90TEkABc z57o}6dknunRBQN>_9Q4|%auG2-Qw+KW~CQa{PF(G(aJL=+bYvHZrxJ;yCCHKKHc9v zk69g`F1_}0=3-f}!F%HsZnn0F2@~6CnqApZPxZqO;lu70SNc!L74?vVrMEZzYxt|J z?S{AC-wS-IPT6MfbUe-`;`s`p3=!*PKMU#3J5nzUHl726P~1!b8Ta8PL%0Tf za{_a1IF&IN6aoA58Xuv+(}1`(3@o$*_0xa;qG$ZXYAGlf{ChkSM|TeN!7AvPU8=vG zyJwz_g=TCHkMbLXszU#w9Frg%9GUezap|^UteuP2-g%ebtZ6@NtupsP{?>r!OSgxf<<~vtQu_2nW0|ylU+h1lNe$uWb8cMjM>^$ER0*2Nhsw(TK
y3kwb<`r(!c1bE;)e+iKFk#n%aIMnDcHkZSL&}y7oMiEMe_3`QyNVUh`h9yi%EZ zFuSWtx(2W2Z^=+MATHqbhf!~fi$h1nwSr25_1*}BCatt%*270-92(Ie#kIoVG+UFw z^KT8e21KKdYZ$_a-}wQ8S^OmQH^N%x@(2prz08<71_&!~6wcRt8V@Q#?{~Zx$N-e0 zOgg43blO*Ahrgv%|GUIm5p#*i9d~YpnE6P<0w3 z3)m5K`>%oWIQoeHpuY&$S;dN(i=9ifrHt@cqs|m<82s0-7T2lN zNA5sHemx+PQzyZxUPmAj*!saf)6&&7buIG@hrP4)6Y)t9!H0cpxjJ5@%Nj?L0;C${G zL(zz56Va#(LG0-m9fhj8lOPjJznY}Q#tO1@FD)5yJY#?+>SvQ+fT&v%$qw>(|rgPPT zoP{-mBz+CbllY@Ys>&d4>ibn|8W1v2**UM9%^q~J44{G(eQx>78DuUdse?s>RF->haa$|O67FuwLYx0+?q-em-sENI zXiKS-OnkCK(WZYb}ctL|H4F%yINSNjsQJ4b$@YupJ?PyS%ipc~$3a@D23 z`7bbj0yTB@b=Cp;u;nJV4TAwjgOR`A`{^)FcTi?yy z;7(F;TQ-o=H)C;pR_1ApK)rU_17h~inF<}x@KS8nF=D%g(1Buv*jQS6EZmyoZt05G zs?OQ7&bxyu!)aIs)cZeiaP?bo_gp?$!0Wng?TWWV^A6#&#!*iQ;TS17`C**ywl>{dCu{EytoRO)?UxvO#6f;Kz5dxAAI+37@CD z$uq`%!2IV`YC5e3Gv^9TTZG^X(yJZP>jK+6vqP?mT^XYqe^IqouL=@VrOHpA&&<$J zug(91r`mtay+&`+D8lFZ&2amE;#%6h*EX-*&@$TZRy|%@DO1o+fe)NDyNhuOh>JdV zbv9VXBeA=!;G7HSJ)m#S@V_z;nWPJmeqhmdrQ+WrkVQ|_P74FlFgZ#bw!O*YbUM-n zC?LlymEfa@1u9$N7`3%A;J4?oB>pGy4I`~(r7cJJaIn4gJ?2HfRP-^ zY)6_-Qfze^)ojn8X3nqrvVVWlGtK4IvvwI)V%l+aXX;HSI66Zx3%4F+&*Aq&>?F$Y zFkNGc)4m^kg0(49^xNqxYi<(EEA|`Pj`s-H>mA=OQc?GGVJV(7MR3U?!kNHcK)&0mDn!gD}bVo|f&AUaqh2@tT z%UF;rE3N{I(eFWJ7GuIXrUglP4L(4TLFQZT&e0_B}x(MvQNC-72i2O z;_82I{qS_aS#|AxY5sh8ZXor;HECte`jC8Ez0pdBpK>ReGNqcpfw9N@TUKeAyXI&MW=J=xgM`Bl6v*|oaz+3*xv z^w#M7*ta}x$dl43pqL$VrGBtd%-o8MrSF!=`e~Z~6=b8hbQ}X1$lh7a>nBOOM1TPn zz^lLZMBiJw#)pW@#J~T-%|9;pV&M2`3uZ_Owav_HEU*t1!OZQ(&ULk^^DJJDAGIJc&HEMTJ0Rbv9>AcxNrpfx>H-M~Y0LAbpV2MY}L*63||#{L9>>h@}Ogjr4B2lPsm!x*?> z*Iukg=pFQNziEB050^$DBCm*#9Vw$+yuSsH#WAN1bf;gqJC zeAw&M!mB5@e|*{6Fmc}{HdFf-TD>3B)|!xDztik^lz+MHHpHgKyE!Y=4A(>aS$k}3 zx$4{0oZlE$$3YQWpAadcRO&NgB6u70A|_U{K@(Nz#nqY-{DKV<17#Aozh*q{)1{5r z$jG;IO+V`!=lz3_C{RDhFWU8Xpr_ zaM53&4w;9Z+m2L27avShAwNxbtL#gA()F4_I9FkC#so{toc6*bs+636V81^8L+g%_ z4ER7l@;r0G-uu+_)tQhSX4YCRbTC5QFTML9fr4No<0|Q^j?sCk#zf;6&z_@Hqlz$0 z{QLQ8=6XWGg!{atz`joG$XANy>3oUELBINH0%iBEoCk$Bgh0Zea59n`gu9F0mndVdf81kM&X$D*wu0<)t$#X?niwp+n!qKH(*W{5)<>KUgnM^L? z;^gw2J8q9M7dI$#m#_`s1b8T7g$>K(s7apu;z|{^5lq&gbHF&NQ@LRT3Z9TIkR%A+ z<1eqWfKF!V9xwoMk+w25{k+!id-nxh^{Do%Q*hy9NP{tNogzBk?s*av>`jHJJgBBG?&|0X zfcLT8k*Lfm8a#*)` zS{M4jmsLu206tK`mWlOnFhf*p#RXjDWSx{2FKXg4Pzub}MjnEleWXbJ>2{+|^45$! zKRp=KPVv?(He93meFy*4wgT?p(aoEtlm+DO-gE8%CglmohF|UsHO8y4ygm*<_}h%n zp=(8IkSc67$3bH`1xLqF+Ny6MwH#ym%F3JzdRB|=Jxuim%nl7-RcouyakJA4(*K_1 zm43K7WPLaI$&=h3(o+%t3)(a1ZeF>%=8s1YHi^?@ouH5@;$GhV*faUm8^>V^uc^Qj zlP1!KAV{We3EG>u?`!7O8(EF}gnJ6RW~51EN1|zK-qyliS}t{BH-ax~2UsAVB3N4e zyaNZO$LcUR6k1AHJN$+(tqcUajTO(vaEfKgQx{_&Jn$Hd`hAp)seWjgp(6TLoB-bA)oM%T8*KpeV1qAStOA;+v!`WT- zk$bD1nrkrGBPfx50uN{smzA@ZS*-qAXE`^?BIh(y(uEGxde)G^iDjKMfgui>ybi?( znm64yR0}9`SL+@72FKJi393;xA}pp!aOZIB2s#VmK4W17v@s}keGuT)m1?#hyf_i) z9dqXGuOrDZK@ei7?29R1eVQhEBoCtUr02_iXl5xx5|D$t`XvP z-{$_GY}XTe!?jZWVq|#qo57?(!**-^fVy#Z%d_@%d`s7BX&AM2g9t%3laD-&qT!~u z)bw9>QKn)2R|y3v)=L|Le$xV=N%>M=0e^hp08QKud35fRA|I&-t>}HGxxzP zAo!!k8H0}~^@zRbh;4q&g!6S(D4a|xr?ff3F(?CQilN~?k}S~w5l8_Uw5HKR`wB)f z9QgcZK90d3j5( zNDT|gTAvo)*Wvedkr-^D^2W!9;j{FDFy0ziLxF28G-j1zMEhWohLnd}6?A@%ahhjQ zCT+n^>^Os4badL)TR?hVo;a_4bx?{tDGx+siDM5e>Nr>{cL-16GdH};ne9a>I9X*s z7y~d@o2@DID(IT6A=xs5_H)kF?u%%gYUDCtTsq2g%!tW(jMJPqI0+u6A)$#x(>2G*?isGwyME;K5ah^1dg(IW z$-g7{)CGctXo4alH#O<>_+R@Y!hCb$XQ*?-A<{Q%3JD|VOYj)*VDI_4r)m=$x-BB0 zo5}LEr3JA~4{ryHAdO(02jSBG`STR-hJwlfDUeMRoPmCEsr>`DCdprq(h7slq zsam!5OdfoJq`RlRsT2N{w#EdvwfegCt3MBQS-YFBHh0^=n1fBwm!_{*RKUsOS8ASH zJd^3OF*hsgv6x5v6<1%jn@qb^S)PdTD;+&n-AGx>iyX5b)NHO5dIZAmiTdujQL|8W zBS&$waU_`^FMIkE*?OFV{IU72RyE-It1DWH@8t#wm_P48`$`ieoEMRkcRP)r`--UX zxU2w=jKrIFrZ~N*14YIqo+dBNTy1t*W8^(83@%bXA##57!~2or_}!N8ZkKGcP|v&Y zblXaK%h?jJ&?6$}MNQ7bdQ!*vnY-O|G8Ly%PBEiT>pKf7-mTeg?!E&nBTmH6&(Fd3 z*ip`w2lmbO*R~pXJy~1af$y9) zNO!jYot+dbfEyhCjj-FclRY%ha;1}_JhXMDhyQU341xj8x6WCbpn)5zuUw!5Ox7fC zsSj+pt6c=7vv7o>Q2~H>w*Z%^?59Du%rMkJ7l1fs^&oOYv3dl$NgMKma#dAdLYOeG z$;gA8A%$pO=_`X=QTJd=9+0RQ!)p#fJ@YXxN+A)ZII_hB*;#iV_AH?w*ojdg0U(q@ zZ>AN}S{kixV6gUA81lahsEQNRUjT&^OchYmQU_5Crd~gwwxi=UQrpwcxvRQ?iZ1G; zQGU1J0Dd7nORh5WgON4;^n(!hw_6F`p^2JK3s*B7)0opf8C%Z;_KUiRePc<+2tCh{ z^c45c24mDX76O~iie+W@CO3H76)RxwLt*N|;?M%)lELmxm%Hd)#OpBh1_il>TeClx ziRwq?MB~WLzNlOEehZtfd|%OarCpkVniEC3u5<#k_sTZ$#x3p^I?h*NV@^~cLZcZ? zw37B%L%6>N*^~vEyjW?kk+t4}l+!uOMx@lfIrS!IboM5>9a@)6m}b%<6KDy1Ax9J+ z3MP{HT!yM|VGjOU!4Xq1Bm;5z*y7t}bWgpISXzE;VVzYAo{j5{7aj^I+~4JjJ5mIsNw9#;C+m*SG}rkJXDYRjp(35;C=R$6|)liA#&O>>7@}9C^v7D%jj! zqUIBKv&db+rBD_if^AD2zZdrfeYUO)m9MNwx^u-WwV#QVb>*zy{n_D-H#7IXC!{A? zH4P(ZtIH}Z;uTbcv@hanW*E_^xj{wpne8{FB1v61Xcs%ht*R1N{Qw^SaThMPpWn6B zQ|f?2;OyHuR1AytOdOC60EK})R-?s6Ol*J|aDdJ=T3(Yh90cX$Ao%Qxu3(bJ^;-YJzph>Ps| zMZY+4p(mn9)kA6X9fME;Ao2XpGZ@@yY2!KKhTnGlzePJlzDSnMr^>=uQIew&q+5zs z*T8=<`W2SWZRV0_9PoC}-kz>O?KIlS&N?^;tW1+9A~|}@XmOvTE{t?Md+)=Qr{uaV z2wDKw3^$Aw>g%R6pE#Y}5z8zd$*I`b_oB;LP=qn=9-iu4${f@(I@pRAD4R|D$jTR& zh2EUTiQUyyQse4`Nc+eDpL6H(=C3kh#J(Fm9#`ciKTz(vluHOudvzWwlBXdTL=$|k zjgi8`V?M|g=S;QbB3@&ZX)Kp}$WT90NgP85;JB!F*+2Vaxtro((~F7$@~W`CvR>q z0P4%FI29e*>*1eoZ327+YT-5R1U1x&DWReIIe>w5d?U#fcpfgvDanN{A>7VuT~evi zXFGUX;j6l)oIC%(U;UXeLVd^tQsf+nV}T{(>Ni>nK6@auMdW~g#o5yA=9hT}Z*>^P1JT0&?N^wo4f+-hd- z7muLdeh+p*LH^gjH~MvqW5wvJ52TOXzr^~N9k~Zr<#xD*w?n=zTeC>FAa=QeWMrpf zeHgzo16o5(c6YOQlW=P3qL%O0+8BqN=reCEm$&C_?lp{m@i)}64dw#>S=jR|r~5`g zoQ7EhQ=f>}-QkqTvF4G9Iqt`-iRbr4K_r}YfLWD3t;=sfE%=f?gw^3yZK-@PfN*-x?g7>`(-Z$iJ$QBJo)tUS70j`<+W8{Vz~F}w4>es4w7Y$w zg-!ZJH`7vAeX@$)T2?+MK_fT)Bxujh;zoB`~Aep zbw*b9p6QO^+i7w>)>=NW=SYPH>sjj#2Z1|V%Qy<(<(P9&hW60#MDKc>euG~C6q*~} zu2b{Tj+dpS<)y*l?V1UgXe>F)lAnJOHec=Eh24*er*g5Pj}Ih=E>GB68+)x(kd(s0 zyS0FU8do1+#%t`zYBeIY{q)L9kpITog$%A4D|bXl{Rgu;r9nAj!z;5A!$)4djoLtE zI(0d|ThQdZf?H3w#x3!v2Q2K$0kyjdOkVQ`KpR%+Y5FxlrmCeXMFpS=RRwUF!Za=x zh|_@2u_G)#Fr8t%1AV*cPG8|X6@^Sy2z;{2o20Wh`OwT3BM&2~M3Tn2YMe-EO+Gp2 z_hIDpa>5nXZa9O4?$b6o~I>XFc+ORUC2xbsde*NZG;U|Q{=Vx`3>PgQbq zRCG#L)I3YU>a1RMm}o|6UAldA3|kXob6k%-KGOE=FJbaPMP-4lodbX@Mo zx(%1%2r4z)iJB_|g!zf>s<~R@(lAK51#t~&q6v-&1qD|7X93qNGYr#A=R)b7+l(b}i8B)p?WPpDWl?x6oWda87Ix*E(f$aq! z$27mW-FK*^s=Bc>(EXD0jYy4l`^}pqOUvS_Oyv-t2Ql^@M;eM)7|P)Mr3qd?W*#1N z5UphB3a36q0zyH$i;@K5?yo*TCmJOpk3bKFBmv=xqneKKW}7i`X?VZ~+X9OY?nD>& zN#I7EjWMuWZql^}u^b{#Cv@e3#q|1DZ(nv5ZA#TsGhbcd=4*jNjC1S+;VV5&u4*9f z>I@OX{!N2UU89W#*?+sThmlQ)=(T+(vP(8Fud8``xS0hQ1o|DFWDdr_Lbx9@=ny1< zI!sEalE5-lh$F9)9ljxDhdh-!?bwpF&+^VrPxStu{)VJDE`1gBhVftJzrzJuy)v*c z7~(x;SR0RF@i-1n9WX=yQCaS{S7_fk@80PZ6Q5i-W|~Qh8xz zxRO|>YHwEEy^9|yFui@YN+d75L6^-aMC~aqqA(?uEq^~hQIPFvu>2PUK;D< z`fM7A6Y)ff&TE5q7aVmzelXu?i*y~>m@6)B7Ad*CAu;jaMh-UDR;{^Wd9L->^o!dH0cj-#-BzJ{s-(gfMppZ+w9In{LtyWXi6#K)@?O#nwR zAnckp2H2ddC^5`eYcF>iX)BVJ6J$!`ul-f3kfbGF;x!cctVv<%Z=kZ>k^Iyj2iT*V zlpI`;fa<@yNMBjli4KJlz|2+|31rSIaf@)QGW5SRs0f-j(w@h2@0UwqHS&-PQbkX? z`>^9?I|>Ds7z%~F>61zkCTgCkmiSwR*ojE0ZUcn|?w#nfRG3<#R8DqR&9p&lfLuBI zDDnW}U|PPe%YuR|l7@CLCJPhxwTUPOSm@*h+k0zQTc)^=2#Sx!G568ib=Ab!W}1+9 zyH90qxsovsZN?&xbgnhQBRYsrv9x&0d{TFnt`GX!uM7-{(M+j~jHi}y{0-(;KllQx zjLVn703yo4I1z6bRXwO>tk4{bG&Hmf+H=rf*i=CIt|#?I#ZCXd$#z78+*+Q9IoU9? z3-{?(_wptiX!7Unk-+*_cuFndvqQ(#t+2O~CN#}3y)XQ|A-p?10r+Pts zPquRNg1)L!CeCS-wI~akH{)<}k`$sQavlIIwZ0O?1^XBbZaa(yeJaMM827_a8z`MH z#;Fvd39A-mqaQ&U}J zu(968-Oa4nkMI+wY&?M!B|bUtPFj6{wzQ$LyS4TaO!lo3D~+29QbnqUt=pq{v`G5v zZ66OMyWx-vby;^?Jv;pG=@UZi4507fp?XC2NLt!N^WE`6`q|(50XO2KKkuGrMr`+B zM35sV%Tu+ylqU$|2z34PJw_#P1U*f`o$$_{m-0|z4|&TJpV~4T!P8dqWrgh-)X|c7 zF{M^TqPapF>Us`U#|5KeFWOqD@_d&rWjT|E2%*z8DjH73Sh5+x7eZ*$EE|>dG!~Z> zvRA);-iloKL0Yb?JnS=gIZL5*XaDEkj{1h!_t3pc4pd`_p@cui7*-&mr_(->HUfuXL`(zW_#D|xx{Z5CCXS{(r69yOI&4z^x1 zv3|wblxlHaeNRyMD@sjTF!Pp19#rL&ezUPO5|l)=>$-!J<}S7O-$l>YrEahOg*Ko` zj4-J-*MX%BzvAlF&Pf)_Z(s%V#SKb?u$Vg4>=4YADV+v6cZD(b)%+#gNTejpG2IDP zIfxhZRNah5$=|nXHw!tP#voQzn@?yvbB`KPsl-C%f6frJ3|tS>@VP)&>nkRAQq29W zY(G!A+wKZsFK3F9Nj@p(4y0P?ZFRS~t8xC0d41p?L(0OXLC`hJZL;^y&)8ncFJWO- zzb#oX=D6ZhXeYhr<;TW#Zd9DS5C~Z@I_qEp1ZNJ6OR?oSy8|{ysGhhSd7#-o7CV9w z$!>}gnuV;4Ydv!Epr(@|X|&`Cwxv^gXg3StJ94tF5~^!v>A3jkrf=RlPM^#2iBeUe zN)~s1^Y0p0bj_QtR57IXYElMx{zGnqDBZc1q)#zj+XetY`T^3bG8Bpnq&a< z@J}TBh@#$wWGUaeh=5F3h%A%>88_@&ItxGo{ghb$+X<^jBJQkI0%Q_;HkGOW&Hq^q zIySbmjV#t%0+1=+eJvRAw?gLKYu zUsncl9N}7dke4-Ra22gCSfOSCIqiPm(6JeL=mXI8iSc0J#te!ll?bV7nUIDuJlP4Fi?E?&8J*Vv-UicH( za@g^9S4?$HTc>;Y6ZpJ@7D;&QNR;ARR7LL3&@yJHCl2-2S7Kjb&uhxYpyXkS7>ZV^ zVq<~Nj!3D}f!{8Dpr624dQT9%TDk2<4S|;W`Rj&X?QTCiZgPjI^GeP@fquF?#Jjh1 z9bqcM%x}bVn_tNQfi{04ADr_QW1|CmdLpjo-uI1^_DnKJ^Zl%`efY1Z2H_DgrE+Z3 zjuL%G^Bu$xm_&&H=aHemQTd1d&8y>{U#S(gH2-Zs?%*YF!LUvSTPYGp_4NDc_id(w zo9h5UxgioF1g+qa453iWEZWy8^~=|htT-ajuQEO(<`k$doPvUJnTix>ItoBb*myIW zuFh+LZRcVYs|Z>WxpZ+YbJ{;U6&RwZU$c{ErZll~Wn%MYDtj?!?4#ftY6Hwr?F@qU zD*+fClF1|Hm5wZ&@q3%kM>u&*KtRYg-W;^_W+2#tF6jO?WYg%7uPGH zmt+61NG9QC<0AdJqKZ1zh$2w+TJ?l&P>XoIK;i{cU1HKoPfm}O&{jW81En=!De zXzjXK&(K4#U$Gg3MNo{Pk;RoCl|nM6o<*#p7t@A@%xu>jp?J0~uS0kW^ql*XS>j)L zA4X4VJ=%SgiK%CXdqm;2mXD9N&bD^=gJ_R%CtZ(T7(R7u4&$}Hl}=!1@4HiOD4SC6 z`F?$wnEY$g51K!kpG!3#IT1jhC=l-JGTa9OmK-hwRuV7#k%l3Nu@RMx7smHYB0t^g zIlyL5@}S&Pb?gk%XU7l&YM~2nkZ}}7D+cB$+N)vWTM5GkjC{)OW;vp138Td^AWmB>xyf47P`WcR4?_LL>X+b-cL+n9vIB%`T_pvfIGvm6i zTf>^w#y{0AcNCp$BUWeW-5L|S`V*LAh-Jszy|52zXazkPj|bd!OWqSx&LFj<BnR+Lr?E1#+^%eQRFv&)#U`9w08*+^#}g zccMk|D`DN$B9Iu3~vyqv7P~zeFY=-ia|!M zY!8F0^xB|jkkOj>`{vHQzNiEoY|_n2`!oeRKx02c<#iH}<3Sh>L;}?pAmRbw>Ilm* zK#>m?-K-Yp>ZG7)2*{P4R8{ymN}dY9a$QknJxB!)W_|)-sSygo$vA~7r@kGupCIEF zUi(s0s@jwjVlr3Go2_V3N}|FYZuvjm<4)@S+j$DH<)a*CR z4Q*wD!z+zv^`+Pqn&WGAHo$|Oh1sS%4!05!PUuz4qpgsU%52Fcu(cBI(KX-_JB;7d z`0HJ}E2HFKu=V<>mei81+gwMIql1Qf7;W#Hf4rj+vdZqEplaMZF)=h@a8b{vH~Al! z0W(_~clp%zd1*wu`5oxE)CyZ=efcWLd)Bcot%6l*L~(4FW)FWI;f8CqA3lP8|JG+0 za{d>TP|2*X(YoLbyY$?o`5FbQu&(~^elXKc5;>H-)5ymja_Dd8H}dlpoRv~kFu_sl z+@`t1e-y9qd#=NRwXJw+e_xmOefQC=(DCDqT2Ye!t_yyzbzW|Ie^e4LRz8mJS}n?$ ztsy86h(wfjFkf+0!0j~YBR1ATLqD6(MkR$-Eor7xHdeS92wpF1{y53ZfcjnIXK!oY z9Uc5#5Y~IFqNe_NF!eGRu%~bJ4d9AJvJzI9@?bvP>_(-Pp+n7`7Sl;SNBgOoi!LZf z571pDUlwsQhG2&r$6nOugH_Tb)0IHP->5|cfDp*WDRiAxrN6=1%=@*6qWlu3HRBqX<~tr& z%wofx#sVXI5>?;QMDr&KHZ|d(ov8JP8?j|6KkcJu4Rr|eMID@iM0QdiOSw57LyuO+ zU)g2-;k>#*o;4btrhckFjE5ryX*#BH7KgfQ)nnimdU_<89LLriWR##cru88*nDuWR zMm37^>d$|U|DIRC%;K15kbCezRe~OLcTRU`SYeCg-FK}X+$VXmyceH_FB^3JQOCH` zEYiQIEnRo>_fH>@W)vhMn>rg5+}851?{3%LuaVW1`|#ir`+)fx_g1aXo{-kwXm}4RteMv>he^^ zWc9yUyA_GC-1+0=0>}PZE^@BDV9C}f*|-#C{U*Q>?`Y@R3{_vZMz*;J|EacHo4Yi~ zh-Cn-2s`ZoJzc8xm}_d~J($8-*be0HLyVoZ8B6vb-mg%j%0y(a7DrYbj{#GgTUnzp=zEW`7BBK`AqnBwg{NUCNa_ zO-BD;6zNa*;(<{z2jkkD7D0ZZimT8PW=n2QY$#-C zcs5$@am-Cyi{6^uxk)L&ji3qDsdX~p7M5^kb>jp)FG9|~x&f3n;ExpPI0#%jn5cG) z1J7SwGp%^$bD6RtSbJ_%De*^oGuIl_{q|Vj$};VAxJT)+jF(=m;SQ!F$tSA^wNd(9 zG=vBe^qZZ&@38Q%?Y4GoggeycWW#dx-^QPf6XEhad4ndx4r-sI^icO(Egs);TW6DX zv{`eM$<<9d(SA2#*s)18N^Ofa1V}?=*R^%`0-5$cMpn15@$pftlLp^ETq5BWce4u8 z-=u{KhDwa$jIiRnzEHUB9Q^S4kn_$c60l9 ztF8VAW6RSI9z-#D5ZZ}wA34%=>jV+%bI|V0RQO}tw88|L?PfmZ5EL7tP`2cBR|{mg z%zniC;c9j~BwB9!&0BqsU$ohsG~K)eSF@OEV(>o9rfXf8Bprfjjs@Ep9q9Lj<;J!bml zF-%LYuob0Jew1izpX*6J9mEF$dw&bmyt1kAu>&i=lc5=?Ov$I?s4-P2n5Px?O2ZV_ z{sn~e4Y`TZ3FUh}Zqd!RZH^{mQw1Wfw148HB>MOt33$y>K9I#;sY+DYD1jtB^RF~i z9||aQ3i8Vpiy=z{DBSQ41^>MUk>9LGFzq^9$w)Is=bp$S>etM|2y>$v!@TC{-< z&j(UrZP(F+hvZQz?{}>_fA=OdIjDD8a({XlzuUyXhj@QE;YfjstEimQ13oF5(CTmpzG-Wl^P9mdYo`x(WzdHQyf}V5r}+$f8?5RDg_p}n!9_J1d4a9O|NK5N zCsg<04xV}|FS*&A_xft5@W6CtM2>ZU`d>fRRvkM?_$gz1mwptCb|XOtJMi%f9Wc!j z6l*r$3b8%~mEr8z7?p5JRfNkhCSI>0ng$KwI4FUyaK}i2aaoBnyPurl<0bJ_PVe~7 zBTYf2&fML-05mQHSPdsx2VO0;n|rQ~F*5hs76wogscbQh<9%@1`8CLgXz);As7+`M zSX9^M#1~3Gl`qBj7ge4b6bL$N<+$vgd1YY{kB`nfe8c;BUvkG4p8YP@eUkA6-u`dH z6^ui%G3QQxoe0qH%`(7Nc0VsaOAdWnr0;SonWBuzl#10>A1-NF-!4I+v7O_z_yieF zm|9IiI3_?^=yYL;6kCY&c+Qq1u?gSzU@oe04UNHleAN`pcVu9pd^H#djaC2#psHvQ z6Q@e4Z_I!|-!a~D4S;Q3sedE6Nw8|fA5iBnorz-~|4rL9hF7gI_gglXGIOD(&CnF|e@5M0-w@ z5vz+k9wh46ck{5P(y+V`9~>)mGjWeqc&XQtYwbv`WuD*i1eF0)UYi|NW9r?y@3_7< zss!${T0fo=yWWcJvt`0=TEVF~c0I?j$VN4^|NBmC!1mZ$IRCXOT@h6V}NY=0TY72lVK zc3^cDZQI`9L5k}s`0~`rU!6}jE`gCTu5Og>pn~3;_|yx}B7A2%$r4°O-rHDtQr&LY%$T{;Sedv#q=9Y%Gx6rVxtYCp=nVi*RG4%P?w@AdUzK+Hc ziNg$HTy47Yok=cVL=_dq8O>E=^~CH5YJE-e#4hK%wQ6fqd{H=56WN}&x?w$uoq$Lw zaHz|o7)vDd!kY_i#|ZyM)$RWR%0viNovKGllqH#J#sm4DA5ic-m`Rp3QLeTI+MIAB0e+{Zr22#x!Eqxg5vzRwQ$ zFtJDaW=8J9W)08!NM^(Lg=fIjX*Ah6gz!wRcdX|WnmHBB^Ze$Xp8mcl4NVOV$E;x} zfi|KLn_%!~>)i2cTZ8sWX+6?zqlqNyGZP&A;o)ZVQbQg6$jZm?YoPn9(yxxedtf9j zy`X;3yY^4ZxsYETC78T3J_2_xd$%8=&K#|MxzqT-mE#XyxN91IT|6H~WbQP4XQ^4= z1mD%jeec=Qew2^-z0X(NJdJ;Nyu9keHacK82HOd$A*gN?-uP;h)%W+^^2gy6T}Y7| z{$e@2_#|tuq1R6bzrXW}foM&=J(jak|DL%+*+hx?`L~p3$CH0?Hvj9qyFs7b$J0-O zg09>{_x}A9}h48xLZns0(P3cOgL z+%gD0ZW0u9@wa#9%CB$xpKvJC+;Ek&VfYV&V4ZuO$>$-!U_(%l-Ab5E|DRo|M16}Z z?E|UTUH*!k>kr2jOTUFl<#JgVNyh%ND)AGgr{b&U<2^;NnL=O}>AYOe$9(Ype|n4m zG5Fzs2QT{R|3;4eznu%`2Dxzm3(WR^&V}=E`_5g{{XgcyegDQ~bks5z&SM$T2f1(_ z|BK@G|HFlY^d?v9<(K`meW&ODmwEO58#I>wGgKBk#Rix%3cZ{>QG2)Yq3i+;}%b*5at-Nrj(=jneXo`8%^*4b{Q0eD=-ooyyHB59X7sk`*5SmyPai1V`RkJzSGSy&=!%umv!90s zF6>cTYx>;cujU-bgbT(ea!{$r{?-qVP)T0F|Bz;J!FhetxRZaokZ07(>wW(_^Sa!9 zmb5Wj8+VS*pF~YaFK#{*bGGT2^ToaHq%B)4*1kUCcI<)C-jBam?4`?wUMpS;pI&<3 z+=2A7`}L;b|ES?C>vb9~#p~GQTh4u?Jej2|mh9_!eewRw&2t|^U+BNQ@d(p({}Ixc z=3DIiq=v4}wq8pVZnSO4=y;P_e?>9xSB#?*^RroNU{Dojm!){htpt z+PdueJH~nYpb5mP!>?*sv%wcL#7&6R=K`B!oh^bhAA6JpP4mG$9|_YT`st-X14pChTY3thfarQN7Y3O&#!NdDauYQ7VVJXl8|)@gAGD0>wWTd z@d>}kTaTcs&uO498=6MX-lQ zG-%T@Niht`aAhBag3_Y-WLYZDCe zc3w`tss8wj?e4#ypZ|2s_ksESlRNIM5y&yI1V_=!R!2B7sq;hJ{pw4>YX@iJ;`H{7 zJV)8<7KdA$q2C-mCT-rZ3CoAVgxJHxq%!NuU(Xi&P76EKU6X#GnYwYv^*GD1?Fwp3 zWc0rE&VR*G|3fy_3X0slqlWwJ`xZU^x|059SL%vc#?%j)yNa;UJ)=v%{=IxL`RT7o zy1#q*&&<~T<=ph6$$t9bZ)@UA`u;ur{7OIbY|7E!13t}OM^YaL2i-Vlf9V&WYLMTa zRPLBDTT9#Q5tH`<6B5uD3^AOu9I{H?XV*>-Fc^U$sLWzr4S> zb;^R7liA2b?0c9!Jt*EccqNn|w9cx6-lnG1IWZkeZ! znKyAoo!^|tn)WMBZbH24%f?piC}b|y#pGiZ-8)a`>3@$~jmdX**_AF$kcw%1bN#gEBw`aY;3{K|LnE@<^Br)`l(|l_hsW>uo}I|4G}kX?^zF} zUaRyFJ=s{3H9B^KaX*?;*}U0hG<~~iopVcC$=lC`W4rDqkVIK2*dvGcK3dRxo-}al zUc{T(6VVpUn%68XcW5JAJ(f_VO=i@Pr!`gSWt0t|h@!Cfl#S zi<@ixI?~qY0sQx73_EnC#UI%n_VjaOleu+!BOCPZcO>t3zhUon*^nTJ7Q9zCU}i-) z{*$myzOW-%o!IB`_etSjhKj3C4Lm}V=8j$dc;~_&M%&&kHdG@Wb{g#8wISQ>P{yHi zRl84R9}m5@Ni8i<_-fScg#@elF`&En@yCX&x(BA(m(FssQ#W6Z?X%10!~aa?TAd{C z=OR&Ic9_srdUP|*FRA2h$4?!*YjC7^|K#9!-J!JD_MJ0-MU{2SL@NXrAy1oJ)K6|w$>aQI2iLeJH+&#dGcj@S#VgqW#-ClMVUuY-xe*% z23Iq_>SViLWzW3(-2URv4L2IKf*;UOuaKD?)tX1&t4^=eeJ%PmBctU)^Nr@(JES|f z`TT*MpJl;Cst*#YP4SYu{dfTpi)w%Fu~WEEc51n%V24vj3Jnjk7hbjq?sYqbc4yAU8FA z-SA??A5HQxkvF?5Du3l%sZP)ujLWYLE7ts((Y^W&*K90i#qmcO=+X7wYu7BF`P6Va zrI2)^WwXnRuSO4^MU3?9OaEB3)7WI}L;om!_EyUu@Gm{^O*5zG``dk_f4A|`?t8xK zXJqN)cw1gfDwY*%3x7EN@t+ufwU+% zaU-)+)6V=CX7cB*=l{V^Mu87`n|1Vm10?_JS^nq8w)tA|Wb#wY+cz1T-kVrf$3AfX z_4emj#AVZcZ>*4)ny!twxW|KYg}y!zeEeTOwj4TSvomo;smB_1J+l`(mAlR*Xu)76 zG4s}}-hUtJxOC}skWE|aCo{_SR!pt84vBwEFB35Rj*b zySICz#yFI|$UF!|E5A6($!k?Ac;QqTKFDoHbv9A+ z6hdm5HOpo{$;a!Q;c#45w)4kvyS;zBS@*?ydZdE9(g;7Y;^j)yp?|%p>=j;tt{2G~ zc*OO2yUBpArnfg>DSlhje}sve@32x=>roV;R+AVMBxgl%M)TUK9T%?n=$g)`>l=%dh|H=WK$gt4yRLD{s z76F>y3u3okD5bf(zk=R*RK;webt<`BNto6;#b|CKl_39W=-g79tANVsG)QI89t!5f zOr->p@S&4Kgh7Tl9m*N+?mt7nBC7n)jb(y@JeHT2PK9I~mA~`++dc(mf=S5Dy?vY+ zw7|-U?VR9{*Ev`zg)}KK55iJ-K`^&l_(XLmste?G1?*WEE611ME7=}KjE=guZR~}L zg8V>hHrxrnO|x8mU4PU8R!$GCbB6RFSbe3An-g%(Reb7M+t|@4$5nXSVAOsfi;C6# zkgzZ0wwdhCU|{b4IV|}j8|J)-SHBsIxa2{;iX!URao~iES{mTTk0y}wP=?6jxPCn` z7?qLsVL0TKPxh*>IUB!Tp0IzhX%z^Pe;?dwqu=$_Ze^u+z;W|4{huNsNVQPo2y-vU zpV7Jg?aF_Do4>E{W;=aoK3=g#?clv%-nbzOPO}0Cf1$K&%#2dkJlKj>hFrTs;Yc>r zRX=#7!HAM=X)7 zOF-4dnt=A|tJ z^)-|6ILa;cgYO-PGhDW|GGXM1<@(?u#N%PCP1*V-;<%US`r&hTfOz6H-xJ+ZBv0(i zU65FWbDkGf{DP*O&N%Z6`IkPOT|rWQ$oEa9dp~1FV0X(7mc@G4s_uF)1G;3&ZYIWm zB6;8N1%3BW-_c@(6|D)cK34c(+hqJ3*o~cM$J^=KUhq{9EY8)?eRTn#r6?a*$%5}Y5GF}&JV^_8YK||+Rr0D#tcO3= zAjpV@_2p%b71Y=o?;&k9E8c0toC_YaGaL*@c&wU#Sdf=KI0!FnYN@}6yy{AYvVcrI zWY4KLEBERb@Alii{#O97`!(>xHi}I1YtGAIle{$-8<2R71b3Gp$_Ea%Ixpx-sFyM# zD$q)AbN=ABPuzx}r2&zA+5iS@kR|e^VXB=6yvpgin_oGW+ZTZu|Hu-l254LrB%OJ) z$(H}t$4X_x}igis>d4Rgn&mAWS|8j3^qMA;YtcD13y=dsi z&6_KS)b;gzKnj@s-h9nt$SMJcY+(D|IEd55p{qN&*;+Q_7!F zp+%ydttoPU@E?9h`pLHx!q5oi!$c|-m?jt&BEmA`3Wr4)=f3IEUkg@DVJW1_p`N_y zUS^DLT+Jd`MPl?K83BuYPt?LxGgQF6`f&?QE+>3DSh+v!Sj`i=dc56eOu7V`m~JPW z+kC~O)^7c(T`OnNCZ*Qw54CwMtw@%7po{y+6k&nc58=q#Kk`2?u*!7Ya8|>CX+%Ws z(s9Ybd(S$g5MimFk$Bt06c+2ynkfKhUK>mN`s?tmT|a1DWdVe@p&DC z4LyC!9f3j3TumCC$EPv4ih~IieZ0b202!-%bFXNXBLEZXqFAT?LmEdZ*W`=cqoTyA zSqGNtb9&c3k>~Mfw891>6eo0HVxBiB3vf|Yolp#N`my8r%G5B>W$iMBZ$1`TmP`@e zjgQ2HSDeea=^+V1vx78S(aSCE8Orn^LUg#4W7i-KxHwq$RqQcda2OItFvmkqUZ9=X z+0h=O_z~L+~CqMnrHu?`t*V&rqTf#?S}fJJ((&FJw*0OR&yXOD5}4` z3qnN%v^4bP=HgM~U=a)>BR*luVWt}K{xI)Rlts*2;|=G9ZF^ESl1$+s(srhaaDN$s zcm+yY?u|Xr9MDg6vk3$$t>yO}x?^YQU7Hr*o6KX0YUU|t(Vf+zx!SK0e*erZCweNm z)Af#v1g1jPu|wWboevG{S&%bDP-2cKgF92wc@^0?IiwC|r^d7-t4=V`6Ol$wm>D^@ z=V6o@g>5|El;J=r6QTVz>d>C<_F1BTkxw zu#Xcij%T9_yvF6w57M?JXi7QP6BsofzKl~Uw=^+d&XnAh%WHC>!bzMuG|5QnhBK~F@YZIH>0~xiRh;= zvYHl{-;Pt0by+}B?6+UFAmt2%h5Wv*fGX1KUihd}4l_fe*as%Ws8JV+jlNMS6vc@; zNDtS>WRPn!524i&3GVp2dJln|t{B16xB2Mq2xQdaqmo$!`}lDf5?hZNN3ujMB_xxB zHvQ0#}=+>OYRltpQMqr^5fk+qJzb-I50_u)4d|6HBTsXN?q`lcVzqd6>)rlqw`^iJPd zvNRNyoAG_`hF^9T%5zmw8_R}|h3)!$9|i!-QRD1>@##rJB)VG*O0i(~_g~o(;kk`S~K`ofFZm0V-jZEovHs*d$ve&4V10uP9$cxTaeB#PD zGWqPWW`n~UHUHVpGPc2c2zTLaeP?HG2dUQ_e!ijl#rJ3P3Jmmq_=L-bVu90Hq60mBKsNMV2A67DnmIwFr7+{St$R-UvOvsGzi^uXn_&+$@U5(NCO(NAg7Jm1ywiQDf zt=@}1raG=c{XrN4fx%-i4n{%qWP{7!Ua~u5nh^%mexz`J%>i7*wO0CF)GP; z`ZAR#mnk4Ar)t%CJMFzu$02I&IU^+cTHIBwVC`b~=(=94f~I<7*0s;WyP>y$S|IAP zQfS+G_*Cv2 zv45>38Cw^^tmejVZ~M5}8u)8Iw2k*B&OKpHK`J+$!nNyU-IYlRm%T1UC>5? z-|rjM*=wc~+1k?l-ulc8Q1%oO6KU0!Ljlohleq$_|KUDKDnYsnN>_F(^>ODnKfR78 z2q4uvNLVzJSW=syb-R@I1*Wd%Dq(StoV%>31&zSL$aZevQ19h>6@wMXGgV6Npbcef2?2^PFW@;YEmczt5zDZs7@`@)qD z(g|f2N3bxS51yg&9s$3KDQ3NZ=DKU0C+6R%7(HFxAZ!~`j-~*qh#UQ=ux+y@_<_&* z&^kL_FaIuqPi0$uQbODHB_JpglBrtSz>YxaNhS`Ciaj)WL!_qW-Z34I#GHCc>`fz< zu1VbfV?j;RwAv&leL0rj!HgLvEDQBN0#-nOzH-p(8^7yLYD9*g)fdO`O&J_%I;xh8DI4#7^C zmFa8=AKxFQ2>n(t(6R5J>|>~j1SU^lJ^v|K% zSD0qi#Kc(YAar1quylPg0LM0b?65|FBk!AWI`!_jen&6uYa9;xS}-VLQfD8(6OJj! zeddXi!NlV*b6+*xR@ZU$pp|g?6^pPECDg@~W5nsd?aj{P(`gB)k2O5aC)T_OHmt&% z1wM?a(9)bXzCg)=1ZmoLg~RyB$)D;t-CEAw+<1!h5bV;?wu-}D983ttGryU0Gzh0h zUW4621}|7dGTHRgc9ac9k_SHR9|#`J>0B^rsHZK_I>$lybooW=DNM^iTLuXr-{08q zqF-`2cawW=^w3?+(CW8X?+gpb2qbB*pD%`^jgL&ms{@nKaTxl(=5+0nRv-oOqIs{d z+ZbO`9yi%+rp1n7CEoCnXZr8zz8go>>}6|#fM37;Vj-`yCh)TLka}PSXHG-{JAc&@Yqz@bC8w_j=9r zzfim13@lDZw2Pj{_c)kLQeMNqcNm9fn+$zm>8Y8hJI=f}-m7-L&g~Z2vKI0PU#d-O zoSIu`T4FA!qI^WTddht0_nwWH0ddjXqkljTDtLi8WDYcr_&tiHwe_^Z{!D$V2Wl~OF95t_4r_5az{*@tl#@!I^ zvpy64y0V!V%)HxtO&+GaSMb%f-gkAR@6(gBYvRC_IQgul_B^s0zeN>rd(^vsWM(Vz z(-KBK!SUvANEVQCZ3e49{^wb9f4NWpw?`j!rQk)kIVkD9o?AVEwRdJ@pwX3(oP8zA)TR7XX!4v zs*dmPp%~fo+elZCO)%FK5=94Ac@JgfdUP@6!w2ctLlIEBq&*^PfiX3ZPP0iUfW6*q zAc>L!rq_Z+vjIzQhK;?>s+d7RR^jywk<=&Q0LioRJ3JGXW1z;B`sV?^m`nPN ztRPdEXA~;}Dv;+i(wlGb8A)D+Tu8+DJ26xL*80cUrf>sI8p#xpr9_T~Yp<_KGvKJC zkk1Y!j`GB-n;EKt1~_BY8P$;t=!DPK3&_})h&ppyqm^(6qOzsV#KN$_&1d&6M~m*P z_U!DjROehFgGYM@D^aMFO2XGaReQcAul1R;k?_{uQoGQfTl==Zv))l1k()7!*C3&g zJx}g0&k2UNc|qw*G-hJQ%{VBZ!DxGD(`Nk}l1Krft6Ja+TA#zxbQ3dr2X-uf66NZe z;v<*`)gbH)ohqafS{jp=2B!x&8&B>xoFpNebXIYs?=(#uyX_J2XZP2j*`f1w8)=CG zs_OB^FQ?bUJL)VKb}^G0ih!>8C81XVwb?}2pKDDhMVq3NXzMx-I9>I{j;6Ty@^Wgk z2R1zmv*I#hhbJ$KJyHq0FPFW31bZl5xgh96NtYtdcYONu=1u*_TM^bEK1D}kL{|#Z zN7CwBRI-xTbjz&_+fiE2#Vc>t-dSesyNaPnUTa79nFVyZf_>ITBm$W zkKu}(RX=JN$-?RGtnOfTfKMKNRoCzg8WCtHHTLF2d->h@3U&wa3sMUOKYP$>86Sbt zq6W|P&h-q^nDv?~q0S|X-eqx^7nc*t%3vLY+v~V<&_nmDK71&PTfI`}^1`}o`XQ&Z z;YvmZ=s1k^E$0#b5nYmj<4Qcnb>Emhf$*>5`=uVKLLtlDE?@{MKAZOOD3c#`i}4^mAiE7? z%LE2)Je;e*iBlYTIroes@lMFjF>+nlHWrQ-pLRDE*e^i2_}yCeP{ILQ+yiaP9S0t! z7cfd>HPHh~W~fZTFH|&<$MB?@PZzh{*X5 zKnfek;zq5X?&O62yEp&TU)^E810JDb^^$#0pSW@~-<2+ae`bgP@RgncIplZzd)#2( zGOJWM-3PVQPX&n!4&(17-uE|!Z&5eUq_9e0#y0v*=3by73<2F<0jTIHZ+x|tO1T>eDFtU~b3}qhaJv_4#4)poufWg6rxwv<>Ht6d|;Bl!N zr=}F0v9~#kpe%4SNm-Bm_CC(+xvyac>Nxi(58j|=>|<*?PzLPlZPYcE$H8@z8l$T& zG^r!X%H9J8m%hH5?)t-+OiSIAUnH z1-jeuqkFZNsy>E)+RpI>wsLZ)O2iarM61o&#^uiY`aIk$8Alvuw0*Lw3yt292j*A0KXh4|t^Tz^^0?Vl|rX!SEj zg@4CguOq{3SCk>i6iO4IBpBQ1$>I;WU}v4A2NsD?uE(r}$ReYosQW`Lt%*wB=Q#Tj zz7d!eMuV6meG`cm6yNSU8oK721{iLP)KpV1HG-WctSabnrBGq`@4;X`alLGuKHQm3*p1Ra;-= z_py>PNwj)-&B0k7yLuddTIFj@@KN z!Ba*!*XT(WBx8KnIvexD@rS!-0Ph*(vGEAeNextfCx==RXU=EP|NO1lj~AkS7wcTo zDIg6P;~J{;bcL)`)4&e!Od&q5G8iT&7+!*%e64G9Z%-{IDr4fuQto(8lX`^A#(;M?&9Zfz~NUg872DhI*%61@`to>5Y=8zi+Qu@}x>k#yf z!W8^){$VCk2wyQ6yf&_DNf}^hCACq9iT!?^$f>lca5|H7e3ESyg-I8O01OCDyO%4m zYg85L)l|Jqq|Vh6R1c^%CI%WdBu5xlH`v;7!PvRF#4*8CcSr+%F&l_nL8E=iRi3jS zeYB-vuwek2je8ui$O=#~A2H?A12iUAs3iG}4pk=D6esoRHb=w)LQ)mkYLKs>J1i)~ zA&+2=zj;@IT3p73pl)97j8EYvNa+Ez`zSFB`hFa;MF**CmpE$GcFfh<{oKu*#f*D; za5zz%E)QmRcS*~#)|77JAhh7Qo2U9sbH-J{?2ZQFK>B<8tBCXF^D%xH352`Ss{B4@xZNai{zLx{*Bhu6}8dCrI3COa|u- z1Nm%f@!A?|j?cVHXhOr0wKn`s;jB5HQXrzt+FBJd!Nk%3vZIg9Rp;MKsXSpvEstN_ z9(I(YB==^v7?fW|7Ev;$_o!%N=SjtO@pZd&tKlBq&C`6(EU6@V&v5V#oT^uF+NBJs zK%YFD^4SvVrHdwGpg?4w1$%2wZA;NpknXVPqrBU5)1o-up21DI05?ATom@l#qFi25 z1ChhPfk0~9g4r^Z)c5U3t;Sq`z5-I*9*iOi=z{uA)}Yg#9ToiU#YygM2t*M$e1u?N5KHAP#xiBvrR|6b;pu{ z;~}D&uI+l$^71lwQca@hJu=YN^yV4QzRy%>847s0B}XKdpu#&&G4CEC z&5-6A*=oagcsX}>vdffi-30j*q|E0#kN@^Beg|l;vbBxApt#f%-k6_V<10x+#oCaN zf0x0dG71DeM&)?YWQ+9@QJa6&9evf^$JRr~iM~V8jbnbvodV;SSfcmG+On+q#kJPY z-8MaiZ&cE#IYvm3#qi8f^Qi%Lk(B^=%y{)6#APSsXmYQ7$*g%ak*aymc#9mYvVd0M zz%m7lSxu78Dm61h(72U=>?d2>s^g=HB#08*1D@#s__Z~CISe(94<|F(jd*o5NXVs-N_)^MAamG!}(iLWNNE#qxgkNF^d#TuJ=Un9}S zIyMd7QhFN2pEY(^u~G+Rj2(CD!kYi)Ym7UFyb<$!BI%-N{lz&KV_O`rJr zW-+5dGRt7;al*Qx&Bbip!|BVSmMoXRkXB#sKdgt)Fg&t;#^bH+A-^WjuD-2nM&k7e zjtZwY@t3nHEIAVjf)xjrAdDTF&USZ>Sl4{dJ$H^GwIqg`#($iUaRxlIapUo-$vhJo#0>g&`pS6rNUiG~ zcpb8E&&az>Ot~+jzVZoX$W44TmAY@|UEsv0S5M2?#*>-I)NbcMAqfYs0<= z8&|5?v^oWX(JP{hi|rht)Wt7=x&cF?hbSDhQ1}D2V_8U=4Y|v_0xh#-&|?3@qshBN zkCF8y(OVbeUIcg z4=gvv=d#Zg*i|<_^4I`j%15jNm>ok`i_UUqt8{ z8)LB)Yk1ih9}w+Gjc;HKL_j}`RYTWSC<)(iz4n&tx|092fMS%ny~}_!x77cu*09xXHfBSh*6uLnGX%ARpgRT1aCiC-O@bg?z%-09AQUwG?7<QbH}+_aCD_}I+INFT1R*N&c2Xtg5S z=&mCk=bZ3kxw-KIY;`sSwpo%xXy<4sS-@7MTA@WqCIpH31+NU~3?{IwRl^+&VD71< zi4}2PGn5zR2Czcr1Aj-;4C#EuT%*KFMvyWkvc>+pj4xG%wQXPi`OIy(#nmf@-j69$ zL#~hk%AcrJ`ZFb|)bKG1WTWl}-EXjfQHH?kdc{vX^4PsV$UEmq>N8@BIAKr+NWruh z1EBtnepRDfz8G!*%K5V-w$?4f$H*rrQ%&i7x#v9(P0+x@S6&I|%Po+vOUMz)mp?(E z@~ZsdmjzY?{!%SnmAI^=%7Cj`_cq8^N$hDWnO`6RP*k9J1xEdbK=q7A?WBi<4T1!M z1*U?P9NWVL=0GrT0dQj1iqoq};CNwX2t!TN*yt(}e0|H$rFD1yeTeKw8tuO1(f{or z1U)H?6T1dpIXdGt|HiR}*3;8d7n*`!MI_fxh2IJV3?m=g^$a2uZ{rmd1dSv?3J^Yu z<#IL;f|2VKWAeam#EzCVQ!3+NBKXBmM2JkIl>zI%Dvp~s!GyNcwY%3Z)xUQ~w!M!n zs$@O!N)55ST<-@;?r1tew`_X8<{IhqT9pD~GF~_fmL^1Tdu>3&lx+y=CkofsYO=nfv&)bO?MuSr|Nw(|BG6#c!ourdj>b)4b^n#nO znRM`0i1kt;*%%X6N*PTsw*EOqy%g~(G95?0HCD5<^lF`QZkm0}t~Ui`uudJ3k(VP* zd=QkWuivkPlw83{LZUF4-^tzC@>TR#@7Kdnh* zwA7%hAKThi=hWvIM}9PRSTGG9LV;@ru9B-1?qoel%WuWFC+mO1`>yUB*Wg`)`RyGb zR|t!Dv252Tf*MKGR5z?<8z*hHAtL|AAl3t)DAz-6?NOgN{rgpZn3RTT%Ewn^@_4NMLA~d3jL*v#{V~Kuiis24T zu4rx$%;fFs$|67}^;}bKCp5UsvN;G&4z>E)WN`e4TQ6z7aZIR7aH~j-qMTTHZ6#pr zHC*_FLJkG+)hrxId{^{e6`#*vzWB3h*?hnwYxU->*=iR)Rc>h(i0SPI__)()6^Ff> zKm38dS+v5nd)@^_V%wkd7=yW^EF1c0Um~J?Sa8R6Ya8HInuFM>FyW4SdnV-V{i=sT zhkIaGjKWUY?rWP9P!HzK37Ncd`V#Ge?wj2@m79Of={>;4D!L%(fPevsgcHPOF=~O+ zE*4!LNTjQv{%seI?-~kZ0tiag-%r04-gk0S)D%wf%HXD$ zPA|bhklprKypQf@FKX^It%143N!c>qt_SXRRk~;25yF7iK%pr=m)6O;A3Wq>b00@g zs@laf`C*v+n^QsBEn^Q^>cqItCvF_zJ?kIeGmheP*0<{%2R-_Wh^%@5QS`GkP39M< z*j~?>E`n-cGVB@2At2b>uarNekvZGuA$9tAhF24H|s#UNkxQa1)=+5!Tz zy38{VaTHkN!)YYHeRI5)dT_J2IU#bSoX%djjd`YKSpYz|v$c5%F2O(dw{KD70tK4% z@}a{hJ_Oy8GyBlx694H3;spNfe(2{zrl{Pvn)h0nQ*noW2?${~s zp%0`;l(EU@GJ7>-E3!620rgAj%V*Ed!A|0JTq}tEn#(!&E}s8Q`#0-XOKY$9<|uD>b6DXz|* zZyVrff*dJ(buA2-l5-x|C7@;)NxgER+#&{yCXM&FbnVS^5KAWB9Df7PNaQaSkyshi zm3vaHi5xteh^-#jH89xFIA@eS!00aj?DN#u;B!Ihcrc-=EaTic9ajvKMW8Y|`qzn6 z+r7JFy{})~3{B(>-K;DMgpcmEj;mxv3l4?`F6 zmj&|Eh;9)Cyut-E5yqp>8vn|qiDVQO=D-6L(W6^sjAlFg*>a=$kN1p6CgR!GE2kNP&(+sw2L0)@FXO#%Jm_gjIGnlUDt z^?!ZG8hv2JpCs6x-3~?}m`a=5nHj|y+}r@DfJGh$a-+L4`IUxkK+36*DDqHI$;EAG=FitNfh;zYV!!Sa26~ zWxrnsU{n)Ja}&oh&lAK19H5Or1UUd4ynRNX?~?Q}#fPtF|Pd;fCb<1cOP(7K;w*(9 z4~2$gF9h6VtgI>KecEJz8}i9Eo!vX8f71m{Oz_xqK&URyOH<;+5x+)5s%v<)y_R*E zs(PwO*doYQ%5#?<27L;&&YZ_pte+nAS)l-H;=4EsQF(G*|DY_W zzjn*Qz?R)M{PtoEBa+#?GyL+(1h6IASN~IPAei`3L4}mNLbOGt%EVm|kC1dLsev6# zWN8G97s3YuPtXaOs$K#?#8UkZZc*{nc$OeNWlKjB*~qnA6Nu7^$hPktl;{s~1D(o?q`!n-apCo#dNYOGJKid!F=6RJQ*eBXwX#iUxX=VUZ7BNDeD zowvD%jO^$fB`mTipUb|0kw^BymR*plO+YQ|VJ@9oxY2WC-uM7Yr#z<*?-E`c|K+gs zR4n!(8wbg0d`LF9z?xEDYYlL(K#qsM3%3Ti)=|*F_;n_!sMt!byo(Qsip)=XT2J1f z{@5}37&7qk3KW<@q`BhtesCaM7X5gfk(#Lv3r}6n0R4q8n?`mi@Fh{8?~>UhcAY84 ztDh{oRN`yM2}c=Qb4t2?auWi9w1<>dMM5LY%>wwN1r+cfdt8B(oK}1NbD{xr2~qa( zle+(zlpBvTp$zoZiHI%j&*xq`zKAu?33h#Wop#ISWNwse*?IW~qIPQG*V;#6ArU!- zJ>z@3wjK=cS`h<-c6B~a&7@7dLG_>Fz>Ywk}ST_HG`jx!j zumYa9srvQvn61u?o2yP7OSuBCRNI2${&jaY^p|2pn50{Ix=G*GZdG+TRvRP-MFvL= zp|y|J`|UB>^YsC#;ms&sd@|;%l_Y%^Ku>t@DR7&U~)b@c{52Kl-qL!c{k)NHlvu1Mbj@ zyjy2PvNSigj*r391cj~QEo$gXFdEE$RTwWIu>@%GV9!95OaIol)}P6Xb;cOCh3n%# zYW7y7gzU)q)zUbPlPjlD=G)6VsYR!~gZ&)WU35%Z>$%(5vA{8^HSw^34t0un-{zWi z&L-zHv;&XSuzT!VhbEsq-dCgHD{poOp?S2k=oya#)tq)HB~KvAzH7E5;7NTbZP$y} zkPbN}GrJN_U0QSg8k#?k^rEvw?XrlNLFojfxSI?y2ZvvNxxD>z)`_RtCN(?% zSUMX^sRecrzs;xsw%@08N<*h4OsdF(Xwx@-WI@n*vuA6W(0RZG1VTr+O@aq=92sA> z{$hPs44U-CTBwm+AY{;%3mf`A{d15hE>P8P38NASZ-M{77;ND;TeFgGt=}^RyEa$v z$fu_!$qsQAB>h2Hu1p3oqOcR6Ch;LJC8F)H1jHYuE3Gtk8)kO#qAMz^e|?avqoH0@ zZ4r_^aDGc)-Z~zAnFi3_N|DMx)q@)p{II2;AcvM};wuiU0-M}i7KR8-n+oV>k1sI= zKug;T*~PV)L$VkaA^S^JrTO6|{Y7tRjFXIssJi%jx8@LKG-F7kBN8hPW++SI{bKfj z5q1Hc3Kdo@D+O)o%hhg#S=W1pVMa64yQ!;VO8hf3;p1rr%3s)(kxSaVuO~Erg zW)KsSN)@cnkRXgH9Zz-26+Ev1+&kN;HxbB}E*t*@BWY|YY57#T7OCfxRA zJ6ybA2=dgi3TYDq_smKLa(SHv>o;>@2Yl!H<{$`bT0pIy=w)js+Epj!C(&vG*TN0F zXTIVcV6Lmf0u8h%wIc&U;m~x$EyavG^B_m>8wAk_GaH^1dQ&GB6cA31;|0Y`g^yh- zSA$z;qE~s(P@nc?Mjh>50J8=Yuh?NRhwmX{1W87;!uqaMls7Izv(;Vu(~;d^;tN43 zkW#tSYZUMlB-P!&e}EMPcV3QhoI#0(`0eR*8C-qdpG2ctii(nx6_Jb<*<0+jIIvZU=)0* z=r#d8v?ue0y$XUXeF*}T?pHKw?d*BXa!xQK|YGY8#+ z(!`cqAe;9w7{rE1u*z)N03mb=Hz8eszFa@%T!ru?V4-NYQ+WhY=fq??`u-C?huUSZ z(ztAsn(6@AIIJ8iyMIuiP^L>Bq9zIFU88fCKMw3r4y3$RnFhN4Zu1Q8fXI}>P&`@! zl8N7b8Mgg7LnmVifc@tB7R4INd=Rp@nb|v~cvQ#Vq2l$d(RzY*~0 zb)7sgj0Fw&0=c+F=kIlSmQ@mHymsr`@6(;ErW9j4L;|v?>5#u$J6m%SXvxbyM%}pP zu!+E601-L2cu#^#k1_865wbB;+Icj%^{Cs1)@EZg72Tdl8RiE+Ec>#Htz||i5Gcz9 z1YJ4wuV$EJaI~d~cK^t#l?J>7Q;_h^rhwB_+2GR(d{lHq*r046Vt@dWRZ}@I_a&tF zm?D_-n=Z^RbT7f!c2L0_C}c^*dlqJR0-NyxBoUl4?t$3k7BC`~b%tT2-3qAY@TtD& zU5l(k;kCLtW&SAsZkOQBQ|1Vlik{5?NYDuP556j9Xi1R7du|#{#mLkyCKzJ+e z2eu5y^KHmr>XP8uvCS&GWXTj=JQ?nkO813Zm;cz1>KLDJ8ha7#vaO^HzjoA7ux8TP z@ZpuJl@0LOgrmIcuUl_{2E_$SlqvD-*=l?fdKa}-oV(}d`b@!!d-9MIyex9lgB_? z!nRSCbIp_5Yw}g`^hV45CbqYW5*MuWc)9Yz=0B+F2^$vA6b*wn_Kj@NNxWW_le1ks zJS~$kmVxu?`40TzKvp8KP3@Kdh-tA zrD{+ekQLq^-damI{bNCfKTsF0U?ie5_g8_`0sO1g)@ZEyY42ZZ0>K*A2d{`vukMu? zEy&(qbp{P%4w^l4H>p>)@z7{wVrvkKG%k)WjU95uUXx512g$nJ_Hb~MN8+(j>7x(( zgx`mN@EU=v*+Lr6^3S!CqfYUhUB3J1MSJcMXj_h_HSv;h&!*Prt7;Ql{X9*~PrxY- zh98gyF^VcH8{3Lh=S6x60Bnone|1C;>^*JRi&PdWN`sc^2?ib#%B#)pV_(dt!B?AN` zbkycSP3I%-=aToY8T_=!R5EWLnS0=O4#-A1VGb3+=tkIiry#AqFBQ_DTeea7#C*cw z?Gi%5Hgx%07xxN+Rey{KvI|pgx(ww)eTqkK>W}Y6+%o`CD_^niV4iBa)p*jvoGIQb z^oK)xcl-f;wI3N=Xf`i#O@EjQI&uzDG7^9D`cl%Q_V%Jb>6>*dg{awm+PCw9pUL(& z=ijX{L$hIf#yub(FA;6of{oK*+A}8BHoohwi;+Rf+O6{nDd_DSt#7M*Ymnm5VIU0v z$SPv?Xtu7Yh@M_BAX+Zq^IN90M+`wZYBmrF6u1sfqC8@p*KXwfe0vjuGW&tmQVSO6 zYo$`NcgD)G*$yAmySSzoU08gN4Ap`1s5!N57POqcclEjSrhXvErG6*^ z(X6pWzu#(AbJtflKuotqRxqPs2|Q=Y zIVC}hxtwrGC?|BJFTa2w!uQ)yXDK^MGjfwT;K~-=4~#}}12_BaKj-L@LDU9w-ERz@ zoW_Nu2C81w02fl6qBBz*c;VM*DVa}@wPEbQ^4%`(z|*HcfwEOqC*!yfRaAK4)GG#b zMq4??{qZVhfFWov=p5@l4*We@Z4|Cp9g%RMY0aafVWYUOk!vALIs`2Xm~>i{LY&12 z=X7mx7i(maO!2F{CtHPgbq)h{^_}C^V+U(lgc1fXv29yAcL4XsND%}INO1>8nDVYeV%@i&Ye}I%l z@*@Z#|7*&nOD(n3!fviii|u)oPFrf5LQJ-_CsyER+BET~&37M*Bm6Q|W6G?VmU?!S zI0~1l7bzyUqJDz1#Le|b<1-9EbN@1T6yqT~(k&TWm};!s6(dM|`UHhY@qu~3o#ExX zjUA2|IvslWj}@=xTGtJ2xvZnGJ18m&U7X-X3?jFK=fJFjz0zG@_(0D8e50TpzuTc_ zs2CimfgmutJ#>PV`*T|r>QB1X z^64%67Fjy_UD2=$lmCmPbB|}b|NsBzDlu$~kwfHE=paiYS8^CC%1}9!#jI53T$fYC zu59Mef#@JPj7t_`bQwkLW9vY5U6-txCYHGR#G0uvZMOIC)%Vw*-8y+^@7L@3cs?HY z2Xj<%3RfJ6;mgEo_VuJIZ z`bJq>dp^H?@8zlKhjj<9F9i1Pd#HB%V+7}M8C@B}*;0|0nUY?QPkV8iqB$jJVppU4 zm9NgMdv7kEOvltfw;t68|9e(zBl{M;quffjz}0jOB9i>QBP8 z(}kUZh34s-m>s>J7U|huIKj5sSVTw}e9_YrwEZK$g&|(enPV@RZDSv;CN%f-cS+j<&;-ia>CA!-a3&!L9CuU{ywCZhw(V<_my=S&O#MRY7$_ei? z)csn4mR35(xI}skWivv*AjDioH7~o26=soJ#+i_4vTT+~79Z77h7|dJJ?Cv%V0}R& z9cCP0xyU;XJOC)|R8;y6uwA!cL8?6vC@LZC*74|*De~1EgR%+bm#y~)VML?dA<_|i zG2c-E768(3yCqIUr=;?nqna~TMD|kf$QZg|qCUuX{&Js-X=e|ap$PA9jlHavL6!lB zk)S;Sei#pUWra4PtlncdxF05 zUJLrbHSHc$o_=bl6>C*t_2H8m+TIF|imF|R`E%0`w^y$s_XM%Eg)7mlQqJDQd=Up4 zy3Cj;5xaENj;j7V)WZ@;+z}xzHK?Z0_Lm%0&OJ0p*RzLPAD$Q?wn*e%?D$Q` znVE9!aW&+8)?bYL!fnsrR!NLCP=HzTrJk4jzYOQ}|y z4#kCk738vs7wor%6-9`KgZ9e_Yyz>;u`f(;VlxRn@~Cl3A^K9|2810yGfN&<)D!Dm ze*s7wuCea!up9xDJk6bXR2{mvEY0tx9GRsAM+H-&;on%bL#!ZmRbc?B9hpf?<=IdN zzo?L>k9oaLV2ojfu{SXOvo7PrQ6OcoI&Ujapah)|E=iKjTIKIK&VriL*^)c6Tq&)o z?x*-iDRdnnok=wgC>E#iz>R!ANX&~i!=3g<^W8PlYwoyeRlj#H5khr840Oez{XD^A z)>0rbqh~BKO`wqAwS}PpBwD#BpH_AJ&OTFy|HRDHCPhncs{6uo-Bf2_$>@9NRI60g zPHat=vFC;FL(VY}S1c34JCTXm)=!*vA34>udrMvNq*2(%?o;s4)PV~yHC-jN=xd?$ zUInv$<3G!1RsF5>>5G=U25u;8upPC((06}<`Oy}hynQT*e}J1TCX@*VEK>NB*ef6i$Ha8vsCTWn8wXKGrnSr5oeWB5csCflV zG_7EQOxH$Oo|Y#U+eWeZouUTsIt;fYzjG@2)T#3uS<3GH@((Qwlw{o}x)M)aRi~W7 zDTEi%*!xy``hIzcG)SJD+}f=i%}b2Tn!tCt(<>8gSAQNsrpt-swh6`3@mkSEKwjo* zA%T29U6{mEfE_vJ<@thjJO%qtk3~V?xOTdJ`_17~aPL(#_MPDXh6BV8a5$AH|MU|0)82>Q9z8H-ZWuY;}HAFAYc(38|dE=DKp+ zo#$X{zb%+UJZfFSg`s^WQaE`!@K>d+k>8T2nP|$k-JI94xBjP zcD(4GtzNWd^=G1L%lK;7%OL31%aDu#+zT%y*&!b$`Ok++V(=~-`v-j!VgAqB4sLOR z_aXH9oU`6;kALGxztmN!w{kwv!HXIboiSyn8PUi%`RM=_>0f%O^g^jmj27$2#h|Gv zca6{8+m9Onx$X54*WrRj)W40#n~6QLsJnP4q}5v=tnPJ=2izF>d5fjlRvoMSVN!dY zMkha+cQ5Pa-T^(=Dr=&5Lz57Zws5-i;C5=^>AT?+0Hu}IuRmS7&#QA3nvT@Z+I;o8 z%?@b++(Bikf)2s*AH21(%4dOh!8=Vgu&5T=-9T{?Fy?l`i68#A4trfa)g}*mHx@g3 z_4QuFvl7duZH1aS8E@C$uyoIj@Igi+n{t z%BuX%27ml0)V1)fFFF5OfmfPnG+j>4*O2ln}XX@3qTMoAe zY$Z`m;|eG0Gn795?t6+w@^rS$O6`G*xqN~k&)kO}wpF~25aswE*=Yd3bf@A-G|JbC ztLph_K-f|3LoPE!5CnoZftx*Z+xa3;7^dPM^GN>uLIClDV=#f2U?gT{Fwpxs8C}A_ zI(Zi4VJ(wetk^;G=6YNNMHgstqmtdDZP09D|DF3q@M~KJ%GRo(3%KfQ=>UPiA&KQS z=_8vjY{L$`ck*clSa-G*w23)FAB0+0zCS;|S1im{kbx@zVuQKn7-*BhvovQ{t1e_< z)w!EIYO32R4LaEiY=0oq4o;B?wF6?8R)sQGuq*5~*z$0fl-E-u&CLotphn|pwr~Bn z`KkUIR3~Op+82)ReQ`tlFBkf;vo;m=NdS$vvH8&B`W#-?@(9}}v_xL+#aOokXcNEu zqp?R#4dIQ@?i}~6A8<{X-QA!NX3e1j92lg={MP2?AOznLVt>~s*%H9Ftw54AztHyp z(2zm;B)U$W;&Tn{>qdbB3f>mGG)ejB!NDEdi`4vR2d<)C_0E5}+ngxfc-J(&I-;?u zu`-K%eY>FyFD3LsxFe$y0Z`ERvu(zh3d%`}0jlf1v28o&8k!d*;RRUlPF$DRSi?$i zN~#Ey4y(qP*10Q!prBB}hl231UTBJ`swLkOBWyWl=#Ho0a6(^t<`%FmBJO~8qtS3| zsZyw}dHYUgokkp`y&}-eJ=IzzXIg8mWG^c4_|43W^qN|8iDSZFE@Z|0^imow$;Guf zZGmU~6rc*=9RuozA3IVHVn9le54w`X8JUDA591x8ZxM@&a(pPB*gEn~$sX4fXMpI6 z0TLLXyat@(nnWo-uj?gc-PpP6cYBY`ZOKyf2DKV|%vK4dOaj#BCgW3^I)QY9ut(Qn zzB6g4N!(?LKvTZp`A}Fd$!Zh z%#3)&@(cR*MT}w}{DzeUbgF+UeVcOjen@%mH}8dgzvX>j@gxYMJ{5hgk01AMFOMrF zQ6G`=6|@8Yp@Iz`NL>;Jpt3c9+XS4AZjiF)lOQ{HJX<;z2#g^}Qb&9A18;viG4=lj zkCH_fi+-ave|M;L-6sb!Zq-q~oXg^cO!2AT{InSe`cq5(S~bvx+7})b&_WQah-4|0 z!vInDM>ucd)yo2|W+M`7T%c5!<>);ZyY{6j#0Aj1S`pQ~y{pt~tkIPQj)1$26b=&T zj-X;iPd@8WvtF6{=RP4BB8?MmO&JEp4cuNuK=GanUzVx9A&#pzyyR?cbhRvJLdFi_ zkB*VlhQ|uCwc*GZAVGrD+hQ4lLL{^^tqBS~#`WG*=|8|;>C>zIS5lLbEc%yk);5J=cxw?!Co9N_lDZxGeMEIuP<4d-y_w0 z{!D#~kdQ*enCt~VmyngAzTOo$o3MTE&T<&I5xmjbfTit8&IFn`c+};)orfMFk;rtu z`aW|HlV6SVbXi#Hz79RTc@tNdQx&qX&(}AEsL}HR`nN&rUc-^?e_q{oE0uELw0`@y zq=>%z$GGa5?p#m$|b-lr15G0%|e0%i??td)SSJO0ZlsFQ=AstYWdlKEu>sJ+}jCH(;w8>M4Jp@6H?M>kI@Z>Lal;US1ACJTK}L910{B_v?8Ahs$X))G>k z)MYLKqXLu#$-f&(T0x?Y>$%YpQc~H3*B36!Uy~vHlB9MSz|cHiKuSm?QZ2;;yo?b8 z~3EyXa*h7IP9v>u@@mg>Py*in^di7`v?S)2#`P)|>{ zxAEO@opr#e{{>x5<$MP5E}KjqaAP9t0hxl-oq_O{*xe^xKM*#Y@-rG3r|5<4LpAs& z8DnpC-687HLu)79o>c7X zdT>@fWbey9;=b_TI-Q>fSif^saRo1S?ap%3aF;rq^Xu91#5G$!8qxgNZ1B>-K`(E| z39)qBy$2)qfA5+}L$2&}2t8Ss`vGDtGP11mHo+2(e$=0O`3qv5?Jonn{yU6%gv*F$ zTHp>n^YZqx`tadWGlPgR9r%rfW!2^z@H|;3^uLoYy<4o2KBiZYq$1!TP)($|xqaXjbAsEGpu9fU4+Nb}?%*{(up!3D9uFkwCAT+^FdGWxflP|JT z_-vjVR07TWTob|X7dnd1E^rU3@Po4Xo{c1lq(6dXwd%GKyYW>Q{uTAhnq=oMM_`@5EWTl+bwwK;h9(uh=Q zeUc15VNB{iGT;kjL5xY3QvCN@0A0}n-^&r?Z#&0GvYBa^Ysy##BfX}-K$O7{Yl~$v z@#kw0Z13K>wftliKU+!&f;p+5Jq+`*T-fo%gBPWuB%ko8#^+XN$FH0`_*4+8U}=NT zt}0LUrxyC|a@4$_lb7)KC|g|pcF0}*%wNAKhvO>ieVW|PpM$7U!uY*xWg29q)dtq) zAs{dfwI#;?DE`wzkSZlSt|!M;v!EYiudp-co%ON7!DE-G?rPZ+S8 z^zzuJ2%!pSEL1=sV6%hRETGwDi&^m`C3QT~EeyU1hS5bU-P{^brL${6qJPSntM(9? z=_{cfD9zHz19#d223I2M7MoEaDb$;as6U(|%;fBiLA!!^)^X@JJyI(e~v`9|&mE0rbN@PMvWjK-(P9TJGWO4|^ z3c0G`ITtjxqXPj7*dzL@+}9Rj;5*iHwf4KCdK;#=5(zWBcr4QO6e7&~7qZe}ECYCt zo6l873y)LTa*O;ddc`VFsBxSsA}ifm1UyLY;PG052;=YFfx3DH4C{z|S{=qTX2J5K z^&fcfArcdUz%z$to}%BE9%3s@XJrxb-IHAtwxYQwAwI%DE&$h+H0>NdTegSH2+w7c zOH|y7IlTc?VFG!&3SEfo5ouf>-9(A=6P>zX9oZqIlVVI=29_dDLowAO4dg8z;yI;^b z`YiVp;K(rO@9GmB7Q}5`t@&B7J+7LXtqedo`vBw(YmE7%EU_A&>L5 zwXHIjy`8OE8plrqECu|W*WI8H-ovUbcy(4VMJ!tuHdf|Lg}NZTbzCW&XbQITmT>?w zwiKLi+|Yn*h|g=W8vN?#20uc~OBv+>NJbKh1nT&@=6DpZ;Y7PM8fXMX7a14++u!&g z>}RA5fXO-zBhG(0Z6-05=X%k)ok zyuD>y+_NB=QfB8dC<;TZ>7o`p%G_8;wG8UJ$kb=q#_akUo~2Es39Fm7@9VZ>?L$ z8q>&VzULg#;PmU&z*oh=uZk0Vy!UETO$@lk$UW=Q1qCU? zg0|qx&+l_F>xMBLg{rF9&9~MLIdmN)rQ1mp+`!hBp(_t7O^zE3|N7q~Ke!PLH2}Z> z2UAF$b(6O<$H0rayq)UG3Xvo>hnVGCVB2rDekq@56=t-x)odLztDdNirNzZ8$&VUY6FK7GTvQUO6QosGy<8@#72)5=1j zZoY7Vs!SeU;gc1WoIS?~i+9=3l6Vp7mXTz;`umAungs-!lYkfK;23FE5GFsz?p63$ za>5MzILdF{$qE7+0(H>xC8c82IGb#f(I9ELM{eLi%O9h3eK#weFe!4oWBX<{VFh z#)BXNew@^!B0}*HDQCH+1|-*HN=XU)2+47pC|e2gJv>qGdNGI8tc`AIW{>`5v?Q02 zKw=@7sDWSoW^cm<*vR5gF+ypExTc%u`5vw{jA^aTp#xzC6X+{%?vs9Qka|n$QN>>|9r+NHkwQ zJqbZm4p(!IWs@P;Rm_j}^m0HDDiyxGXe$PP7`Ae zg{^pRpS$E+)0Zm6XG0(u{NkKo{uUAsgK-c zVRVs;u}!myi?5P;K*w9>jXg=DI|`K?DB?-+Spnlfu^dS|Oj6 zxNRx%)G2IFHq6QX1Etf%>9enIjvL8imgFgzSh5gjrLX4&`TuI=GRHQgu9u4^xcER$ zbAq#XMLZyIY}g=+AU1XFN>#Nnfj3?XLX(24JwGfj!*B&?eEl1Q-u4wHf~3^0V@>Tf$Mk)(3rC# z#jC)-c#lmmobRs|2SYds_lA*@VeYm*tQj zGU=Wd8cCvxW1Z6V5Y@mFHCLT(0a;%=vatuU5JR%A+$lOQ8@3I$QBUiHK0*Za6>IC= z9Sc(4f{(&baV)o+RBtXxTuI!PQgP&WuQn72Fb`cjJ%_H z7OQQbT4jd~7hcV4Z+KrbJK2)U5{9(ZZQ>2PT?F!ny)A#C8_8L}rM0(*AQTBB_*8%p z-s`}N0)Q89P_4wVXl177rcJnogK&Onc9;YMtU2D69EjY`Y3ITAB3&QYZbXG_pQe5U z-9agDsIH`>Qfwm#tT&D%Y>g$t3LhuAm}GK@#ewGW-!uxB?J|rT4it1c4&+k$t)DcUZq2)&Ls%`} z_2J2(V5pbSlmz>0{}}^?$3lz4!PCbcoma1l|8Dhhjj*58}o=y!$I2w zjA=>=QKRh4@zH&|t_^7a#vZKATHe$!V+8nn2jq4+K4gV)D(1{4)5Nr=g znRMuRsU6W%k?!r5GT2>~=M_hx)znlA$+^c5y{yb6DEHpe@-wJ1+GU+WBgWuNIvCkD zd*119FN(=YA#sTeMz6$85yD$~eELChr!gLC%ekRXVl+QATLp4+1fmy5s|BrSjJW6B zBxc+rvPI}>Ges?>VJZcLL(!F47u`}1Ivr-D1E6?KOBQ){Vx&E{*$K4$?Vh9Ji3@+26J-u^mf^J3|*=YQIGQFr>UF<7%z zw_j6#W6^$O0=jBXkS15Dv+Ag75sN3Qn-O5M_iB5PxUnz-MpO?4A<@c5c2*~fbPifj zkx89ZnDKin$)k^cN(c&k0jaA9E`}gj{;#@C`qcK4LdydrA*p2()+3q|>zk(-50O88JVP^k?HW6D??ob#L|?IB zDiq1Z(D%<4f4F+~<%EY0Zm{&RFPzfk0%yUe-@Pn3=_tIW0$XNT?5_X25YYk_9CISE z1vCC@`UFJV2rlMdwQ+n8DPGaTF1=#;S20CxYo#u>u?2o*Z*_Od&{bPxDvA}d#8adZ z4zt<3K5_vhgH*j4s=wARNkc?REjs;&D2k);kTAq%XrxYIskk3#l zCkt9MYhprMkRB(YQ3ZfLh^PWwVp3bWmBA)B3KsDo-0Hxq)Qv%P*8xPF5jG*r;xBi$ zk|9o?CuECYLXBW}0I)XTFj6##-OW^qdjz2Eh6>H!ejy*_$hGbIL}PjcCxXJ%5-NTixK z)>M$d=tpd<2Ko4mgR>&WETo9?fCPj$=F7DVD0?Y+QJH;^hs))S(KMgh&bDMs-1ky? zv>x7;{V)dg+}v)Kafktd*y24YfC>Y-yWGs(tuOog9>td>8DWB%USSz)Y>UJo)lhqxn8l@7F{eZa=HrKi55sM9B)p!$+1okip6O(U#C(fA9Yj42RUC8y{2gPm0iFqC_RgFTd&_CUH5>}_ubwC~IdY{G% zZ}0hOVG7xx4UJc@*-@fI&t+5L7#_eS%}Fxw-`I;Y4=(J9<|qsWP+D92KLWrJ$80dh ztu0=6#gaE0v5eZhp6ct3sO!ssy3V>DR5WrVOi+BT>7Gwn2L{GYV{iDE%K_=-pK_pf z4&e0yYdoN1azMVdDi;nONg-qTZa>B};iw@}NF-j@fZ8bmjcLKH`C|hbR8yUbz^Mly zrwx7`?P%~21-6wKnF%7%Wrg5O+y9KXz{db76%BUUFMrv|{#)Yfd*PR(YX-Ft?|y88beATf!mqsLOsqS{Ue&8J^42x^KmsqeYv`%cX>y?08zOUk%4MLL$I(CcY#)x<)^7QP?vBA$ZF20x6AkZ{aTVBBWT$gti!0@o*w2!uDI;~E zhFhi=AwF{e8%_v)UBPFO~xcoZP2Lzg1{{0nDq})HR z%uPSSv$5W@bs&YJ#`jkEw`l68{BVt}T4O^8J}}9ih;X@Zq*dsDUeBz`7E)fkVNjBh z^WdUwy1KFNuWLBqO5_lV@ym?PgSjY3t`cd^M<&#M>i7e@N$vtZ%1E~8sbl`0j4gfh zG}C8|vCV(~dtz%&FPNf@Zr|CPLSeyNPYdC8Lh1@HG-9c4K(4^A-XN8uhC;z%DE=2) z`q6cYY6Zp9-)VsYh8aIVIj^28gG74Z%N1KFvc1?-Y|Sh=2t4G33}TMvTdmt+b!pJ* zKmV*XwiA39qTfOThU>hJMA=`qynItEG|LA{)-0`QP&E6Y_#gV8aezD2HL9BPz20hU zL(lg*l0qc+h703kj@768N6;l0X;2_9>NeMO^{vsetj*|~w}7O!crLBcf{D)&3BD-F zDsMCSS~aWuzKFPnQ*Sb24$+RqoZ{j%bQa|}2u$K;7V;&mc+M|qasPrU@3lj+Odv?$ zjqkb}naoOssu^)4eYIV{5>f%uNtHx0eJqSSDHQ~=!y(!1$6H)TYwWmXu(bDkykvLh zQXt>~M=k#oJUZ19Pr8rocxv&DzQxjLmuZp_SNryQZ{70CF4*gw+Y7vat9ALj`sL=K%>LO2alnFs>NV*gvZ}B~}H?=RN zibI`P;@@Fl2omZ9IbnMOCNJex@{-k=gu+?a=W@BD>vDiiCu!S=Cycb;& zuoZq4yyH*nAPcYA4A2*<%kl~MN4mTk-sWf3;}qm?VO1y;Xz@*2I7uZ zHxhM3va1CC6WV0Kzx)V{QsUe@#zq8If};|k)$c}<3Gt9j)e=uUbuv%GRQ*L7g9gSd z6Q4ZwBOeH=+JU?#v>|?JX^GYK#>`FSDP4p{nLSb!4~MQg_bd_6&N9aK{|4>_*}O&l zm5B(3sA0e7WX+`!sH;{4kz^HNrD*_i44{ql;aJRDXB?3dQ5wn{4H#NF3tq!}?UEnZ9-FP9W1TAc?MrCZbeJg^pc0Pg>>G|^DhpqeWwrX`2V5!3~DM{AHvyG2= zaBYgpf2UxsgjKZJe6i%P9+e-g`GW_ufO(QyT~M5p9v%@K>HAWvg$r?7|4Y+~*B*Zr zoIv{Dy`5ckl(Cm*`4T;^%L= z{@8%o(5QuqdSV?s8OhabAAG^->8z#;c>Nxuih16Q#o#Ron$mu0mSPL6zD$NB-`_>K z+eh5i6W2G_FC^u~6uhE+Q|Xw}r|7d9WTyEnq!bPkUBD|cL)3n7gQm+=POmc8SgKO0 zz?+wc3)gDuKV+Ph8PRJ;3{I4b8&*IA0wfg&_4c`YbmvRMeWFyWm`5(Ps#<8(dV3n0 z^^q-AW+=q~XbXZ+G8Ib6R>~8VtJjPml@f?pzZvnCD)8gV>@o|o>>8W=!}$FMCN!&@ z$nAv=K?N)pKb}BX3A>5UbaAMPgW~udh9R3 z|G=vx5y6z14=&fY!8eI)P0pg7)VJJ*zw#X;KrhF)YTPyWK&J#_^RgPdDtwdS6)`C@ z^(F>6Zhm%*Y2H{a`)$KU&<1}#<-e9o?8rt<@P+@l0Kc4xou!Y!+_ajYgDWQ_$!+Yo zhYyi79Ul$Nkqm&f+x&WUiXNvA+lb8J29`sUHe%kzhdOP%PAMz!Wyf!8HXuJVQTc9x zKXyN`W$V1h+_LDCFW+nyzaZQGd;jtEVaqqC=p?WLdsEswxN|Q`#e8$F>B8yv&M>#( zbi<_Kw6>>NV#fW?qw9NqtR3noJ>6X39JQqp74Z2bxY3=f1zGHCR%Sl`$^V68ihzVI zrIgNtQ`y>a0D7|8AH{QP+ zB5!OGywlsjAE&yhrZ=rgkSiKYfJ}YLvImPBX_mA=-+iPRbakaR9$gGKP_vu4xw?403 ztPYNO6JztnE#V0utI=0&@4JN(aG`8gH+r>HZ`F}LK5=*(0rGP+;4VYW*e`F$%b^;Kb6;|*XM0sF#`qM>JUG@kw3Cm-`ERl|yQRMj94#C^)tIR6=d^ohJf}+}YT0lY zhZ!9vy1Rm=Fa=M<4^1g-Q(_J8q)Zc3Qe}9U;)(704eBU>b&56fp@Z#en*{yn<7c-> zX37u}-w-5m#*U=>zqOr^F+eJCZd+VW7K6Sh(5bn;t@kr(rO~4M!L#M=0t`Wlmv>bh zBNiUZ4sh96NmQq7N;oZ7v^8*@}RjUQF^aZ z;GPoe28+9tuStK80@W7ytm_)ZoYw^(zW_QaK#0Hg?2-w_BJhkoe&%~V4C9M-7lc)cwAV5Ov$1_HT-3Bgu~mf5oQ zI|YSj%O?9?K+poDf{|CBDchnXZh>F^k#tTiw{!ZdJWt`ejJCYB1uj6R5He7y-daE+ z2=J!xo|D$lu8d2s&P?=;?C+d^be#dvx_= zMS$gN;3F)&RuJE`%ZLoUKHDypPfiLWREoIIaomGjb+`siot&7%U+le2?!$cdS2i|H zH0Pci6+FsdlDX~oN%i)9*(S=7#U_K4Yz{Lmdc@b_Ghp;W-=}pUQ@Z^)&vZ#@h z!r&?wBrzCNV`~2AQq}u}qgs8FW%0{hJ>s~kQ2MmjKw-H5N}R8`D~W3Dpga2de~YRS zUNLPwTp#<$ayW5aqv)r|C756l8-(YcKlQLTrrwnRjNX~EYw$RLvM1Vi)wzXm#&E8{ zNEuA|=?R`V%5(jUrl4V)Z9o3rcb`NZjys`dZEX`Y1|a9phYL$AMk!lv)R9)Zt}mQ+ zDI|WxYej{dP9EFnqFrNP`Th%|A1T)9mAV}QK_JngTZ0Gep7!Y6jjDz1VV(<(x|g;a zKR5R{SjG^|9eFryMfKengUmA!UJ6`nUJq5@jxG4LF%`M$5H}w|eO7Kxf|}m#E-ws3 zQs8T>E>xLxrW?;$g^wn z;FgQVfgG^5%n^pwK1X7HK3egLDUXShO^xpsB6=zz~CG&n|6+w#FCgOy-!kz1=_bWTp44j07#mvLQO>#+h1a{`h=Anw53Y z{=i`ph?-=?qB|~zDupE3)jy5}2_au9TLy)5b?3_aPLf-n1>n^S<8dx4ZCqghi zn-TapbC>Sf-JI2&1V__md82lE6NoVUxU708lPD`UFR>&cTN&y`v;Rg1!Sbt*F5#xs z0m$zidhjE>bP>hF(r5Qta+FggKZdQJw?HhvVvnXte}^yySq?~+%zQG`S<#?leDbjn z>?aHAbejw;v)fvOogy=IHRZazsWw>)(^N^BYcCIxc&>KbKmn=Zo=Wv8jj`NSmSFk< zjsyc`tXUE=PSFg&k-`o(Z&Dd-juaAx3*Sp;ybh20qQfI0t1tB$6@u^ z31C0#X?mgA^H9nf+)Js#E!!h+x^x87rVjtpe#m4TxHNE!f{&$28I7|DJ{ z6NC}76T%I|W0*hS!Cu3$d!0MKTpcyW(qEDcd5WMDVao7BIO4=Cle8y(w7E8(I(|p# znU-5~mw1f+BEWIx1q>Yk4sN}TkB4o$!JNGbb6~?0bA9vY{h(=K_FXN)H6Fy;+(JOG z?c~5(aMpv+2@Xx89$40@1qxRl88wzwcmiB-gS3~OjFk&p0m8Wgx0a`7nx|fYVZY)MOipPZtSh%ABwi#@D=5)M(N$jfXq!ZGT1o9O7ud1Xbw7wM!X}OTuZ;&tTasK;h(r#gM8La3I z-TR!@F9Yf@p9zhWN!<7xSJXAWc`<6?m5r{x6(6!V&B?X_(yxuv+KL; zQWnjO18kcnQ3+N#R#^>qf1EZVUN|L;df0p|#$Z6*KX2NH8TDfw!BlT#APpMxo z3@lsQy%w5lzNHM~8qC~+aA}(Q0VL91Q_WTYOP&qYWBK$ zS<6LubuH~!w*~=I)gy|z6wA<5K*I#6fXWx~s%MR@e;=S*VjC+$td;7Vec#i4A398F zGz6`AHt`J40AVz>u1hBz!XvZl?Sbr@HHXAtG1gS8zpbb|Y@b8p;PC#vnDrZy!`i=W z5`A_jE1fTY*&5x%sNeb8T#qrkp%nM71bSl2p6aSyEaHO3>4%&2l3ooGEwMtXnG?_g z5gLrRn!ZO+t8gmR+J3p=9BCQ(_^IF?r&&p!V9p#nt+ww96;{b04IUmRsdH1hs>RFl zi)0aV**ilan0Z>0m*y{LYRe;zmn@5iwBnq3Cg?lnLX*9KP~!|A6FUWZ$b1A|;A zK$DY}o0|bTx0|43kkcl%P^%}Da(O&S6on-7-Q26!ZCzu!KhqmpHF4LRJSfoszcFx# z({i#W-n6-~Z$gyb)Vy$E&uzhe9xf}iVv-dv70ueonssg~J-lI7pB*`vf9NHt+Q=AU3^Xz+|HY2|92FmU~O z&`e5Xk`;pDO0pRHfO_C9N>v^dVgx150?#z*T}_oUE|i!bX#ZIa`K&OT(8DwSQ zh{^m^4AjXdcXTTR*4IMwW^R2l>N_J42i_Q+P(rO4hepTf)tTVLH^~8i$GpUi=K~_| zdi2^k(P&ZReJi8JR^~!ac=$*JbZ(Lx*lx`ak-K`5Xbs|P>5=tCuw1( zQ6EK@;z5UoIwd1seLe5Ml%AdldhMxAQZ)%}O72F@=#b?P7k68)kDaP5G5Ho;`5yDp z_2bV!xQ^Lg;l)9~3X2)+ajuvkZPxs5M3yzTifX_74f7Z$6ys0U7!vcPQ#GVIBQ;&Z z3$q(!Rrz-du}skWIUQidYF>8CEIA@!G)S+0oGvDfxe#y?0nsOTRY!s0g740Vz@f zC`}ZkiK1ZWAfZT=9w`z!N)v=A3B`sq6_G9yiWHTAf)EKJuq_)25JezTbOQkbN=-=C zH|+hK^PKO!&L8jfasgM8wPx0=S(%x8e&xPhS10jGGh=o_#>rK6_OTm-YgvbpAj9&l zRv{YS#odAf#&;mpG9o|sgvoB4ZxvK70=8GaW=akZvWzUGXxz;k9?Q!560AEAEwEqk zZc;aj`)oE?2o-5#$>>GhZoVRSl;HxXO;=_vGjm1_>-i0)@}=xiij*W1lXn#CkJD2z z>HP3uw{>Ttndag}o!^0Dc7xi10Dhs11Xip8Nhx3|P* zqJpm5!A;~x>l_+N%_RajnCYY*LbxXQ#;QmUL(mtO^)WZ zX7H4)O2-o>Y^8#=r5oII!u=l#N}8R74Iuk~|1Vky^7$+lBXt@cKFKp*LaSmzK8Nn{ zv&zZYI?7zCQUWqXYGgBIUCE;q+uL!{m5(nXiEDh>HSjpqZdE+9S$3(1Dt z-jLC@xSj^na&dTx(o06r>}0)LN{S&`Z(|b)lBrY-!-#YvC#`x}?OR{=oqQY=D^{dd za5P94c??fM#dj+sRna+eH^y|ycm~Xv#3}aW)@)oMLfZ<7DY6sI{fNo})9-C*4!E_? zs$uwe<&6jNgy54MR8r?@Kyx8q$U~w)^P0^Am!F;3#_Z9B&q?nYEu%Ppm72}_Y*>c# zBMZX}DIEr(<;eu>B-FTVXpOCE<=B2Tn#;g0 zt@JO>!x2Cu(I0H@61xZDlM<7G=?ai8Mm91du^$GEmx&z6ne|NvFxw|bdc1LL9HTP)+SU7pymxtc~-OAdTYNzUUrW zN9=$%Bd!zehxG!iW=kAZx#Yte7O_1`r1{62#jN&GqwjAAd(vEFb~zMRs$==B zwEHKUm8=3dvq;1$Ejxv0X9|T5SWh-?iHhO*XN@Tgu;R)`Q3m`9P?MF9wk>TQb#nT5 zr7V}O{qon}mnSu`=5ru4@~IxfWidSI6_=Inf{GZsg}P`&&Ul9uvI{rnCGz6S^9HgM zM0-(aU|Wa>(jU+o^9hr>b*v=sCYWr&K0labY#1_JUyB*T@xc)wN^Vx`6+A`~2{tK` z>vbtNJTdcjOVpOsC^As%Awa(!yxlkpnoOm;&?=SP9tuHU>=x6BLN9TdNG+TlZ4`KA zmqm{N8`+k^uQ(1oK7NDXD*|CTbu_nlPMcYD`&hvM;arGp*G^_pN`O(Jzfk*KtojS2s=TJ4K*TX`R#aZfweOZ1^EgRVVirr9~Z zhU+jOc9m5#@eKPdxBC(M#chmN=A9iZkG_FoedFPl6;1me6bcT%pnWvS2N{&xWEF zz#I*6OhlQX$#scO?;KP#tY!8jj*is&_%ir6f)mH0_ZJ|`z5rRU9fHWaK zd`c~lL46tqGNrELg)~4;8Np=}tU0iXn9R(3Z$2DM)4zumx^Z!I{Pv)50SQEy{u?xp;t}Nq#7zjQtp!rn; zS%q>}5TSu2S7RP8GCKtVnqI+%ri@PHJ^{p(nARiL63PzOn+Ox|oKL%QH88No*-YkM1E}iZ$6P%yt;++#{b6HALb_U}EgHsZE9Yi0=U=#YXkHJ{cP0D zoXW1W7BN%tGhOZ`T7HkAtv$C+xc93*n?KJdaj8%FFwX2AC5grMCR9WK#izDeU(yV+ z469zCSmMC{@Mfv@G07WUmv=uL@wy?v;!<)b{nQVecMK^|fp?h<+DIwyB?}ZO2*8&w zm8pU3c)t?%goxxKAZ6Lb!jlEVy(`HzhtrDz-J;5w;+o?J_>xP5u6-{+44`!>X8s+b z*Gg(yx~X=J%LS<8M3iVtU(Oj^hO6lC@ipdI>ex!ZsaeI1-wu;iBVP^qis#$bJ4pSn z4WfqB6GP`mIT@s-)y4s)edIxwAcl`d*;oS;z?iP|sI)|F5;Kd$ArW(^gvQa8UfO6& zJ8h|{T_Ez;H9EvkZ4BLP)NhI%j^s0=p0i#!O&m7bbR$GCn(7X6Sp~6f-kbxn5GwB2 z*(`=V#LHlvKlzn8gqRugDr~5MpxU+(cE@nQ7zRVbsAVm&KS~_&8KguN;fkVtXpN!Y zu6|C!EWc-`Wkw4L5)vb6RcT-6rG5eqho+G!nQCLgZDwJ2+oIdLdFU|ksRMtQq|2c(%!;ERPq^+tu$cw? zxC?#V63u<(B=jN+r35c#J{iL^mmc}KC*KS{r@^m8&vjB zV~vbJd)@6XgarEk(@5)ZaKCyw2pxUhzt09IXgXYq^mhu30k^K{U}k~P{QDdegr;*~ zLJa7Ezw0mscL{poGD1i1pC$`xnqG>G`rmu(Tx1M7CJ@vwxKsAOdw-|kPVajn1a1$(l#*S zVoWf&vw!-1=hFXv{(M$9irhRSA6bc|+|7slwr*HtN9pM2Fq<&z3Zsh+Vyt6>Ap*FM z`z1rKRW3Htj(w2&nVuI>r>rOUY0Z$f^%EVREUs~NJ%0ODU1Q@?%eTMG;YZ_o)`piC zR+#D@3$t64lYxKAOFSAT^KXCLBE>I6oh*tSY3(BPEYZxx1R|d`%6+d3ClM+ce{c({ zj65Ds`@Ooo{cUbmL_-92ls z;&q5$Gj09%1FuEr0`2X$9#=fXmFfnnBdpb?K3?-784$m{MEN}TRcSR%c71i;^~X}p zh0?L(Gy7(O4#u>*3X{J*JulYfm+t@mcw$_DVC=1VL)L>=S90PPjl(5KSGC*v23MxO z%uZazirzX{nP|aj)-=0mLxLdV*>Dy!hQK07lZf|k-!r_x5 zLc(a4mz`b$cUaG(fbqK#f|->ERA0}`S=`w;YtAfE5x>=c;Lps1?JRa?9J1FlwSV$4 zrhdd)pjqnE2{-Y#QsrW;DucnQ!>YY=n-$!T?I_fwV>QaL%W-{~{J1MW|5eB1@iXLF z((W>0l;#?q<_@COV#t|kL9T_ zLYS6%5VPKN-1o99yr}!Q+4Rywk#k*CQHjhAwPk$u@QvKm>wPAkVeMV%hxucJKWSU* z{l0SQjl_-1?*oo^{;2fd-Q@qMwf=p}UcW=vMM6Fw|LRenGU!#A5=N_*k$@izIRdlL$5L^?fh#^{I+ zr)3^Bf1#)Gr}I1B)UT=8R%@Lu^XM9jkQL1Ze#{ddc(TUE;*T+>XSJ=lmzz%C`R%1S z(|XQ#ZCt*6z~ zG+ik2&NFE6o}%Cn$HO{tUq$ntX%mflcqE7Wu0lQMdpdhvwEq=$4NgA$ zaDT;|5~n|2W@ROB+F#rCuhWTa;{O7*^mp*b&T_4*^FP+`oyGqDZVmqreEH8Bu0Hca zTSwR7U&za6m9&bB-oJmsc=)KGBqZeN_uN0sod=Q#;=x_ih{tGGnH`p*WwRU#4KqvegZwP9-VFCc&(ALw{MQB9Aary9>eDpA#9Vd=ykr^~9u*m}gB_0{G)*JJA}={bq5VPCW`S`S|3J%2=qmu7 z{TsGupU?q)1`h3j82~xM|3Q~$5l8+h92*{S`JZd;K(>FkVF#=p`x~VG|7!W4&?j3? zPvF(A0W-%vN4h|4?tifO|MjbxFYdQ9VCdXy=@yUsj(<@leU&~kwBV-|r5~<#7`ZB~ zaL-ZTS%nEKNZGYo{mj-E=cVrWRg*oHP%)l2YB-}_g_C)qkS|nhz)OnvIE|gQxVXsu zYgXid9P`%XYvWeyIvQsaGf5&wra|n^R>16#Jc@LouTeYOvlBCm%*?v>?KuH5f-*k8 z)}&!J#O~ob5v$ATnVN6y6?hb46wDybTAYC4cwPJ~h8@dJiu$#$o5$>_)&M50HRXP; z26oPKQ)N)_8#-rBAVW?>oYv5et!muJ;dw&zdl^M)A;?0|$5E4oZ zP289$W}aob3Y0?=r$OEZg!O=fpt;7mUz#T*ijB9A13^5hfJE18@B(5(o6tCRt{7+v zVA;tVGzenrt!+v9V$BeY+WfyfeW}fyXk&;WzY6+%6R54lJhqFA`y}v&h*r6UieUY%nsUFYadl zN$>R$Jo!pF&;2=W@`Y89q4VtCzuE-T#oa?%nkp0#!sOS20QCvoo2R zKtfEBf4LgCrEsc1dX^xVfHCEt1lg&k>L7BCTveo3%Lig06cyj&mK{a@=a)od==z7f zDtkZdhW8D?tM`6PGrX1?b}pzYBfYXYO3_K4+-0m$__GPUtK^Typm)V;xQti4vnvv7Ii3GU@v1#S!Qu5 z^%mz$k67N_k~98#mH9y(idm+0G7sG`ZIEbQbX$db-r=Kn3gA6Ng3aqVBo2eJB)%_E zF^fD3tl)rUU#|nu4i7+VX5Ga!T`q;vhHB+WBa7Sf7hOYiYKqTSgATZO?xc=m@%f=o zPluC1Afs}jfHL4)9f-rBjG$2;PCbY#)s`Bu)5`P~FpnpI$RrNS4x9!UxrbD$L{Yi} zXg#X94s^3~QEwSo5`|2&EoY)E&NG>f1bSmbNnu=pL%|sein~a!nL0-&d2;SAWn=NH zvUq8UjW1>s*6n}aI#4s^{VaaJY91B6CABCZqMXyv6 zY3iurl&<2y9auW<)~RIzUg_Z*e8S9=Y0geJoeuoX@jd-hyx@|5&9Q~qz+UjPr;`FVZM|B6*tVkgX=_=`R0fH#CC{e>a zS#Ib3TSYHzyYpmqglv;El3h|t>D%qmkn-t<;~D7^185^To7sHZci~}C;L;3W>_g9}$G(gk*p%1jBk`A7Zgx=Yhmq=Fm zy53xsC~_17eAjghk~3rH+i)xMkA4HPP&za>#};Z$Le1(9 zDFZZWyFnq|Es*>7{ z`C=+Zp1PXfX}8~ovlNZ>4yyFJUcC4>L2O736BvWRzypuDBF~v+Rti|)om)CM8$WND zU>6gbfo$3+_=14U1rUL+eEqE%rYzl03rFrM&%XA69-8*+@@B9xk!bd8OHe)g5BHf~ z+hx=I?)@U@anVNxI%(RdMR55*TA9x(73@zYaeyd(M}-^y$YN z+a*s>?j?wi6{Yy1!d-{4EARYdwf)oq&nsZed)F)S?10ES&02 zHVN&hx>rW!t>2hvBY-I=Go7~zu!h*pkt^TsbcL=$Rbj}Jr@?p+fofY#OqHmK;?W_% z;DQHvX|a=O@=*UXYqoV$lj<2T1a}530WAWE4A$PK@BFh9ISMm2Y*tp(NLjypqm*Go>EVt zv#?F+mEXI#`R@gI-P~O&WoF49t2wPJXSZ}9Cu>Zl<8%X45PQoV%`4=Ux^BwVcL-Kw z(~r1m4&}yg2!qhygUD03SLOLX1@Z$jGUB6%<7tp5#a^+})R-wegQUjL+`g^V`ORD} zxSr$RZ`r-k(M@@M6sC3Nm*gd&yfq^LA2`P&VJSzy8=6QMohUI%D+i$v{dWT@q*VJ) zsvZ~mHf}WE_HG?#qENth=B+N@neMz|G!J?Mf|##W9UV$%dMT8$;&r>p+)QmV(+qDn z#!|iEK+NPG9sWp8D+Q>^L4ZeNrdQcGQHY{^dew$`NX%mUNWE`-h^ROb9|1ul7a+Rt zd?&9t6uW9G9&nIq7 z=gHmhu^YuH84GX5j)LPA$;0hC=TS+6bT{uTgAFX&wceU0qg8|%b$#iwNP@x>IdxQs z`6-1;9bq+-yrR;S2kaxKW<|IRreuQru5&+tm*|QS9Zcp2T1t=3hqA{*_@VK{)j2_WRMB&Q29r9$+z6k60u|zvcx>d{) z#E)fPW{NqSQneu9>^i}`IptVY}Ko)Gl@dSp!ZfWXCG<>d_}$2Q%%k#8y#Ug z**?7)rskoDls$Xj%!uUX$#{twhFlEyDz8q>%X$y@|85#=)hJka4Kz>6XkcB86k#4b z`S}>Djsq#>7!XXgel3XD9Uq;rje%b4!6~q4Zg@ssPPCQQyBKjG@8?4*kH`04``OKn z{EvLzhbkbt-p|#~$ z9uL9_{Q`*%LYBUK+01|%nIwpvP77tBG!+`iAuU0~wU0}*6<>4$>grr%)FPGw+y3nM zak92-;Nq@HytJSe(BaWtBdQqskeTQ|;I=Ds+3&0B1ofIF6(!#+e1L!0r+4e+)u>^f z_)us7%Vb7|X@9?MI@K_E*M=NFPJ^08=EpI;XK?PB70Dt!RW_Q=;N#llI&Yr0mLd|| z!N{)$L@hd=>C3wpJXaB!bX)ba$>(eo)uQSXUHtcpsi#HP9stSpf&y4bxkq?QUo<}} zMyVq$q*;!0@yJj#hrHvs=x=%jz}`pOp&dy0a^&Nc2DQ(U4J=X$h#N94KA_r2TX2@(^6Iu{L{hvq*<0{~U4 z_v0jhU+&0>TKL7MS%2DCUaV8gpzTtcKAKBe*fI(PI;T$onkIm1&zm(Hy)`&RmGEs2_?L*(DEk61di%HGlCD+Hj; zA~fqMK&u|j3<`BDS`P0k5^O0lQJ7#mQyG_VrtnI_j|X>ME$?2r4L!KKg-;IBVHWr@ z)|Oac-K|FMpuK1H#TQESEM8NkfBT|$;%^4x3L9w*6N4NKo~BQ1!@8g^|q^PZX$2s}Mh|N3y3y zNAKL2gh;f6h=2mPKZX5KTH!MZztb)6o|ikJ2HN&#h`-TuI>hkUfEYw#8%SzI0gn`# zdk1*}dO5VNETGeAX=$4?-a$YwZ`nI*6$;z_?ppyM`X4;J4(htS@!-Q?!FdxJl+u=% z0uU((NCr@dVn=aiH0 z1eu(M?O?s>%+8~V1Gh~1;L!qWIbVAp+&!Q0BOnPty{{R{Mz)vyp$^^ERZ8{l-Y$dcmrlZ8M+2p}W@fXSLr|p^ z?yG3%r*FzW5F-5Rf69 zW9U5CrCrwg;lyz#A=|3}aT{uZ??^Mn8L$iPw5t%bCQf2)UQux%5yV+=82@gQ`P(Rp zT0gnwI5K}`T&JsC=hd;Hfr~GMY-1IL8(9%$Nh#KSNXs z%Ljs{3~qug!yWJ!{Wfa3g#fM?e^k_P^dio@0PGyTf8P1;e;?esqNb-O#o2>3^ zFqFVoWoNT-Z0DW?xm#X(CsEpcSt~nl_ZMQ)0LjD7OA+`Az@hpQ#x?r;p06v?L#V5= zVV~URN2IfihOiKnm$Dl+mHRW$;JJoU<|AIE7yQi3Oy<*u2T82M7FX?L9}|zyRmD}G z3)8q1fm$-OFefy0){OShG3>+?b>ZSy#dpkO%7xy%Gr{Mf4=eq-C3E9lEWA#MJ;#%* zyE<#0rQzXM2>%HC@JZwi&}_kRO~DoTxDzDpP%MyMV7QDV5Ww!|1(&7RiX_5Jgv$m# z56f2~_h+q9D4k0kovcxs^jsAn=ezRofD%qAGeNCD<(H%I=x5bjA?xq6dE=vNo=F>! zcZ}h=rzcVk0{3ts_h`UA#UJ5XjgimmY)iq}-oA#5_}))Qw^+3>vPx`^j1lz({BGep zO5y{VS~wjZ6_m;JiRGVn^bS}BZpOb5PmbpbJ}g5=IQ_1wSvkYHC?K;|LA zyc@ftxH+3nh zvVC8xbd%%15%6Sm9rCTt852J=*3*pvt=0`4#c|U6a1G)qk`4`azubgo^SW{o#Vt0Q zq4A5SbtN}Ka9+>YbLoIud!7VwG@&^m^^TGGmYPC^Jb}EX03=0amwSNYI{nFn*nVZ+o-Dt%4i_>0;Ktme}FjPtxCRICkZPEF*-^1 zXKBO2u?Ot#r-q%bq`;)!SfO3g_cgWDw$@jT`i??N@JL!>{Gn`%KiNT4V16`(4E+3@6Tn9DGmkzQPV;f4E zhXLnjw4;#0G$6_o22<(C2o*?d@UG?d_NtT;eVs{c7Rqo$I<8s25Q7;F$vpGsOxGSA zu3NAJGI63!j|BbE!=W^GqR$o~0jZb_4gH7~(JM!D^9zP$E`!uzdX>2Oq&~Sh4?gv! z_U58N6?M@dRM45AFP*IRItNReTiF>&Abm#?(Z4gr;F_gFOhv|-n28#~g#$gi5!XVF zs@;hgZn|HW<~`iprdpw>XpngWC~JcKWm0_X{DZbKGc5~!tuz9h!rRj;ExfbMEc|t} z``}5CM$Ma-)GR%>OkS7xCL!1s3MK~x8ORha4WJ|X9uIEo4u@}IYOBBups1+v8W!}% z9Sy>Zm0~kOz~Th1Gi49EI3syxIN2FsTfH%yvydx6RST4{ty_k zboH1z_$5bOt$}txT@q&-Am(k7GIox!D)qI% z>6v04`p_e5y&rZeLEoSIk7PdHNJ&fEp116q%*)V$*$Ov7%9Fm(08s|92qaa=@cwJ2 zWKmp+fHW+@#GvXzX;3g?`TJsWZRJLNcns@~t_J*6wnEwa+eH`moOtuYJ>%_BonzM5 z?Nal(jITHcxlgdGn00My1VReVj+|IF1t_TnR1qIUt|10G7Z;A^7-a|p7Q<|vosDU_ z!v=+wLgRyIjOG6B+^GjrE4ClH#P&P%f0aA-Ss{`HS+AEoDw~p-|A^XmW5w1guc>cB zQnS|HGiI`uh2Lx*An$~k3B#`Mf|Vd|imdGCm2(jLel$$tWGFA&XfE2ftQ11?b?^ur zxxY-|vjNqgbBw|yLbgY79mbUlDiRF8>xDc7Y~p%1oi=guPQy#urYY)d(m|wZSizQI z|0%x-pgU4-5{70Rl$U!K}x(Dh)We$#Ic)Hb2~}l)X$rw6OMK=c3om z(?&~jIDW7Q)ni%T02LBxZS7m*)Z-M}OElS23S_EX1Iziwj4s(M(nw8)6;8UtpS0FK zDbJxo?JjKZ)5odp+v?0je}eVkl?cy`+Lqela?Jf%?JEME6>erPCTpX}bECofoHdU9 z>r$uRaYdnXo364DJCPlWU9Y1_TlY}vd%dgI4f(pgj}8-o4*2Spk^Q0K1Jzl^EeF6B z7@~1n>9zDYWUPNvz7P%{#{srHeS2#Nk6d&HfAJEhPFU?};*BC@=} zNFHv4;qMeBA!$c?^(Ah4=l=F1{J(3iqT<-A|3Zm28Lz6); zBlA`jq6=;V*f<}-zYN?m5c#6jkp>92!;gfiDejEc%s^MsBV>W%Is9<=DfPIL>GW^b zWmjF_`N50!9W|J~ARP_%C}vjf<*5Qi7h@-BQ62GiiyrZOIGPpMQd^%B5LJ;5sE`iu zFC(*SLnx6RDIO-Nu*}S2QG+?WjH$6ai0?!qR|8in{F zGfNjHWpb5r``|!aC)M%c$xN`W?@vMDAHYs^WNzz)MinQQ@LvtaW`KRqugEuDmldSk zW9@AlDxex0oi^W53fCt}>de@1)PnNu+>~`UF&*6tuk`mn>57gP8)s_)0t$71Z7ZPb z^7-Mz%l0uJuHT|zC4|V-l%d=#R61U%V9_d31dbHXu2vX?-++l|YxVP7T|_cDv8-NG zc1kr6(hE#?9ZHiPVo;eNC1nWZzIY>qrXMkdA_V1|go z^pNYo&NPsY2P9gGl1OQo`R=g~L9p+Alfs$7GIe}c&wAE*8!oL5y-XLiDxN9dqby~J zQ{X9-)to1?))H*hvCP_*ApS>6S=ZsSN=Q!$D-n6Tyf6G^Qd&o%pb^;F3Lo7EM&oS0 zqiS%z)2ym}Y3^31k}Y?5X_AU=MCL(TD5K5ZJd0&9OQuF7d3!T44L8Zv^XiBvIY*Vj;5%OQbmj znGn#cd^%OIQ()hrE2r|f8@~5=EU^|N3Y($M(n3M`bxOFWFNf6VM#y4{HPk_zjd-Ch z>+w9I$|b3n@m;B{&Q?(j?+w)S-AzjtQoi~gG(_X9m*JG`@AI@gnSu>U z&GE1j$HQbHhDz}lvxnAir9?OoisG=k;QZh+ipt)5sFa3nAhGG}@%0viO$X9=R{LN$ zfs}|re1j#%W2!*tDm%S2iaIpjQU9>N;kn!EaV&?lpy!*E4m=Ip*d)1mk|S>_rbxiT z1=lNhI(`4hacdB&67Exv>E|PU*zo0S_bA>KB+>0?9EyuC!*w|%r5Weh=^zRvP&iHTBRGE!8OvIE>=0wCyg4=+;yL4j!% z*Po2*TsNo?I8k=c9ob#2mwq3YF`E2T&okT|6AIBBcaVbUW50)SIAT*_ocPI@ZzvZ6 z2nDWqYy`ub-ZJ17>mh{2?IQw%q|Fzbshx{ZK>RPt$(h_h69ghUS50|W-WohcXKY;(^8mHRiMy{h+7+oxZXnIY+a8P~6o+bC4uj;t0TfG7 z=BLQxV_seeD*q%8xf)pmxFfhPd1X%b9uzcid8EuCDW&VBGStSu)9%rBV={n_nz`m^#4zC<@Qt<9HAv_J8# z5?yF1@Xwd9ki_OSZ_6;@$4Ppc`6-C3tcv~+em%ZYBLzrL6%l{#;`TbfH>Cm<}~ zlB!UG!gs$9GRui6Ea&Y5&KxT5I{b>Nv!GUC-dn2^s^=ULmItBa*n#Av#>mALOe_m( zXzFnzuClyO9q{!e3!222QI7n&5*25o{rlj;hvCM>ool)aAvA%vuDk#_prMCsf&z?+!BFR0O7 z1y5!S#P;9y)*7rON2nh)s51C6ytHVvn6h{{S!E+Ux!Q{MB{Q>9Q6qO3Pr!HO{lmkI zRqD9+X(yLd1P%r3k3t|QnHN(ftSq}-frJm$zIjzHIBFSqcFY1l9f4)0!!ZO*Q9?*d z9j2bt(UcJ@;|%OB7yjfyC5&i#?4Sbes?4ElJ5&4I-| z6NsY;bm{GC5V z?PNIl-BB0Em@_$rC)KUr0lr5O^i^GBfy3_4Mh#UL6w)7WKdMzb&b9Z`A0~Nw6tBbF z(_d)sSz9j=RolB5vx%~OeM3P^<`JLN*Z$GC>fBN&PUNeSU~biyP^|sod$$*CFNRn` zUA^(6DHOx=YWmX8Id(x)$M-$KE?G1_EilKpmMF^MCCya7a#iRVDm_F-ZW=_B2@s1P zz30}MU;4@p@J)CE&~X;%KZg3tex!Reg5JQW1eu_mNxUG;52wndD}gBMaur*V@ixv# zA$R58X(%%GWdKoXBm^ezzB8Ai{(7s!&DZoZwM1Yh8a7qPX9u4Y=}~z25ZgwpzrPi? z|AuGo?E*$_iV%zU^hwU5LulhlZ8ZKfk3E+(P5C6A8ShOXlr49b3jOkL3g}Zxs)+h5 zxw=7$rNNAW*p9%aB4Soa8M&Q-xcyL}|H>&9JmSap%l@|pT=IOdB)X}0Xw~$f?2jy4 z>>6O>_~kfZ8`t-kOq#@wP&!P6n{X!5m~tWAMH}R9plr3#NMB|gaC|=2N_kTCx?rZa zJssEYo%g!<4?)0`B-EYJx#9YN7?166xeUxt%%)*F9fCT}dDCyrzoZk!_wE#-I9%__ z9k|2w_z*mx;?}!Rd!#nm1X%*Hj+*65WtHXz>*K84tEsFB)Ebs3Je@^aB{^)_my z(Cr}Jwm6Ga7OGHkb#*ahF+6sG1${Q!z8_aesu7C?J~9&2kt9rKvgeymay;)dV~(T= z6Y5}$?p-|5DWjup-$Lp*ZJa{-RXBF*6sHq{AY@xT)IfrujS=JN`tJ0r$HZk!4S2a* zLu$M2J$+lG+rqc%At*G3v{gZ5GpH@NSjIB4oyXlZ@QLa6lJ`^qQQzQwS1#& za=bPkh$F8{3peKdj4(>1K?QNI+Cj1%o5Z3V;^iTtCetvB6dOte{50%kX53pn6ppuk ze6(%8d$OaBItq=lR7yzffLFl{*tcfp`{+l&K46mDj$)5WvOQAY*r7iVHT8)behaW# zOT`MYJl)Yw-}pmDeK$55*E?pl);mEYkC~ZG!aVW;H(tsRSqAcsy7^xlF`rJDJo9i z)E5Q`Ld?u+F#elxTpw>fRG2IS!`oTXXHk!Dofrp?t;&uY-pREQ5%u6syoG25vkEdV z0oa&bkZJA9ZGs6aB5y&sKe)cH=d<(yh{hH0~ zy%2&*6EN+R7-bs1!CSe&wA*~gd$F+_t5WAAI5Pd*tI*ohM}p^Ni(j6IM&(S})yFI^ z9X+}f7r$Y0#9%?8PoeLHk_>)oAO2*jMCMUjZw>!`27Oq{`gP#>ttH zB~Qp+(hX>%4aG@>bcFK^hPKY0{B~wlVDp5*CAg#xEX{BZ7Ws5P>P3fWsVF_A6q6p-lu&W9(PE)cXGGuOtdOAuggMb$Vo^ET? zyjOeBxv#X&*?Z*4)8g5aF-vl<v_v7yJ=s}hnwY?*5L1nb92QTS`__#Y2@moO|c_Vi?@AjKHh)N#{ zbEQ&cO$ed!UmqWe5p7e7yBef;Irj##;uwS87CMRb8G+8M8VhIwu>xUe#ir!tCfyBS zZ~ClH@poLcvK=cYhvjx;(!LZ^KA@zT*3j4cq#MR94SloKiR=7mK5E7H6c zxO9|}-M2$mRC7Puo->^(=Qam}KRB-|XD*=Z&{rANX?ke=+y=CHmK{r69gb-xk(NrU z2PFnvDXRldlADT^2ZMEm)($cf*VbDa2`Z~t=uzj{Tz-zZeEn%G1M+R`r23M2oDOq^$ec}#EAMML}V+cG`Z#`bf(no1py00sDb?tYMOKJn4;6}Cf?S0Gc%cv82CaK z8flYDcs#@QNSgJAb=|ujE~uJqX*yvS-_%L&hzXd+1#U>H!VDg7=Ai#&_~XJ z)l`a3da*9LrQz*(0t_g6dWzPpmTfhc6c_O2=%tIIu&wL#Fsk8OFHgcS48yGr~smC$3G@oD*jZ<0Z259dZJuh zZvK7L*7WxCN=e}V;vbz8gk@$<3y6mbVjdpcr*Tl)(PM4PmaD)~9#SS}Y(LudI%`Fq z7)l|4&?s5U13t#UNYIDQ=R50o?^oo%n5h9_Lr;#Z17>Yx@twyA^GnBBoH)O8t~$>y za7nqxQR10UsJ5GIv2|1V3;(zC5tJPLNh=9j75w5wou=a(Biqt& zy8+7cJK4AX6Aw$3xt)5*$#EZlgJ)W^w758CZbjnz^(weAZ~47le{eg%(-p1__^BH=w95(k$B%a*<7moV^yzhg|b&)ayMP7YN0CLXYqdAKD5_NoR7bh}%9&X@Q zi0Q#keZ;E@T{SsVbqznQ_xy_O^&}wt4Y*A+a^*66`%k-#Gh!##)`SNP&{}7@;9jqG ztDfyg8v!}aD*|wH2NSr-b@=ATf8k7Yv}bHZ%zZaPQyw8tf*`$jIA zwz`V4=&ZVM;GpclFV{@K(fly2%%j7@#-`J&CliJ4FPcc2P*g^WcMJ9Z^s)XRrO0b) zd%7;(gUw(vnZRvJU8CQ+6GP{0xK7lWMRXrT9uL0P&r>L6H#6QTnmn;MoWcMGcu#w8 z{b4d=Y1!%CfhE zJbgQoI_EZNkYAe0_g7tJ`r>s@X~bjw?Oq{BWa}SiijKGYx`7l-r^c zJJR0yUIeL?ZOpJgu;>y?p|rz{slzU@Kr2cp@s#yLX8g~iYt-M^@e~pV!a@t!(ee#; z<)GiXKE=BO2ort-uzW2UvY&Z&$&uvMvsRCVSlEsj3U#3B+7-TMy2nUZW>|n zv+1J^EgiGs^!~pfkUov&fS{t`l+!MA%TouWWrB9`?NYjly6Fsf&Y?(BQ>$xT;^;bw zuzgEb%;<0=w2dHRSeVwtI=dHI?{IcHZ*o$FrnzJ!QSFP~NoP64wM`$^uyF+^;KUyr#d`Yi5u9z?QBx@+R=hGNxm-W z5=3GZ^`$2{2JFYp_Te(G6d;h_#P&;i8%cT+|K3y}%)F%@D1=kR z%UuWL307Ix@ym^XoA>Y0tfwd=Eud;PjamloJ1+#7uL1|b6rtn`G45Y7>*lpEbRefc z-U?C|`FbfYs%a+LZm{pVNX!E_TX=Kn+IfNg-J#Vg`Egt_G(S1nFdf~uE8uG5*yMX zv16AxwU2!m@MPfYEP>c5E$pj@CMPyuwve#>8#HzGE%C*ZyuT2i2rhMJ+s}HZtTKMA z1+WSl*B?x@rxA%u0n)pA8n{+m9~9PE*V*+( zio>U*WJI#`$-N=9#f@mg_@wCYqwtfr5rgi21$L6Q*>kyRz&)Q#Oe9W$j#t1-z0xi> z5h%Vtt7X?6C(8eKbYSMK{5d?ivcUDN*|`JOrbG~q3}R1!e|2}9A5xK(}%aV4G-vq$kE4& zPqw@&^He0Dd3AVXTS(EPU3E(1BVM1LnXr2wH#yPDrllpD&X5t7**9Qz3MB#N0rHt+ zceuw@v*&E{CEKW`i>D2TF92B?Sb_u>@~3%q+rCR?BG$JK>L4F!^F&q`^RWp)Br(1o zF<{_@_PL;PO`d%pDvS<3r3o8=0jtwMv6@OOsoBLL^i6o>Hr#0b* zjgD~F)B=Mpw`jkJ{K1QZi*X(7oNOEIsbEX7d>f1Y?^gM`7KVc9#l|7y2U$=onebK` z9`GIS2ah^q2G=%wPtNu&R_K+tZ!oa(loiHO%Ix~Rr2JJ&wE8Cd$0`q6Pg1_6uXD)wKuM=^L15WTp;Q#G!wcJ=^_>&WDow<$lPck1+GhgF6<1zrJ4Ov?yPOwan`4De z;5w(cMO5eZVpNbG5KoC@_R6$S_5D-Pc z02WFpN|PQzC3GB$(lU}zM2ZMwp-2&kfDmM8f)EKJU>hVrFd8Cd976~o5`qcIJ~#7w z&N}}W=Q(RVug`wraxF}P*?Zsny07c|{d`SSz<4CvoR|}w`K&3!c~QTkV?crxvqWw8 zPkYCXh9Dy>#KI0pCStyrj9)ktwCD;5QvHaZ@-dc;@cr2EjA)^}DRT^J+RM1R94H(K z@I=?uKLz}D311r8v(#s-JJt=aIa{sbwqi$?o@s<1GHht9WkBd;M_yci7m(_UxZm6% zq6B!$4QLDB_Ldfkm-Dy@rNg}L=*xflDJXJ;;j$X$xfDB?YI$3P?hBP^PsIg`cjOlDZ=;*cHj)3x)AIf3H0+&W!1ow>&>s!&wz=1mF{xpDm!qob%I4cXbpm!%xj0 zdiNX?^=uk+{Zah(BzCB6+qgPd7Z6>@8+X=E)F;jVVO@bM4QyZ8ptbZcH>(Q}Ov5W#llW1D-nc_P0v z&_e)V`tJQZMAY96{IN|Y{qIxS_|ZFs`!Y|n(wIVlsrc}z0c2tI_q*Rjmy1wrJ`3VRU-i| z+PI>Q;m2>DWnn0(7XBUW;~2xc(gsn7%8pP4$Nd8Xxf*kKs0cZ^icJ>mf)V&BWg%hv5 z(*Ko${6S~eCT1-2sj0_Me2Dea!Ua108*~if1+e&h4?d+$sX1oXVN3H5+l?@Ed`p$* z1!tldAdvM1#B1DdEV2ns7m;;||Gg(3`~qwDY32I9;rZ`KVO zJv)~$=nZtkzFDlW0T-}{0HW(H(VDZc%7?CU$n2)CNfjkv3IhEIZ18jMUKTR(7@}rj$(B2KP_hfT2oGd95+)o>8JCkI{jf#-^a-}l+`a6@z9b=B$u30s!*KYj{s?8 z6^gH2-`q&79f8BO|Dr;0!|fKH0bI;1uSK+i5T5$(<8Qxr5aBTPuqO~DDy_qj*I1Q z6pRmv+_Ez^pO|iDTaxM;=-j%#9-^SRO`rp{W3My2Zy@4Tp=j64Qgmpsj#Em$v0G6G z{FZp(tI_vYZrO&oeZ~%~;2RM6`T+x}r5jOBsbWcC4l3$13^9!s(8A4NM+fpUuvwnRtysdcY-{JWH3%() zt_Px*xeL96-@`hoDDLYb$k#t9*cX-6L2M?bhKGkU9hWAbKuPbX;Z?u7+c%(S7L?Xd z-UJETiBoH&JQ1Z`h`GE=b2xEbCe3w{9T~@V#U@nz0Y`F{*K3xSA!z+kBfvZg8C)L< zhTfa|GB`Wd?bOXdZ})wJGyyA-k# z06p|D{j^T`)6|B~f|^G(flo3d`RQcG)e{i)o5~~XM`u@P4kw~`R#znJ6j^jHvalDg zU@(mcrw6n#Ma$w~S>TRl0J5>c_z7pSm!C;5b(%_CJR)50lS4$ORfFffCI}D&DLr@d z47;)Q$Cf#DlX5ulTLQgQvC74jb3m4HOiMm|5|x$ z^|l!z|A^@q#hs4ug{n#&1$C0gps{SPsoWs!urj_ z;W}MU&^r#q|B!`O%{<8tdc4`{e)P%tJ&5{T;zI?&4Zm?`RKFA*DngqsL$DLlj;#)8 zuFk@svA6tFQreQ&pZJ8@-D7OShf`hiQ{=Zq!4M+=Z>#hBH?+3-Z>~Sx%AJv9x!H{= zzsH{+dZr~1A?cMzIGCm30~^IJJ53ZPp37*plv{M;S==NUkS#&#z#-s-PEJ zA+HI$wkt&TqWG($?{Y-#kRS)XX!TGsZUD9{u^cd&U)0k8yjr)B4VZw2@&{KnHFPdC z-7unVoS)Mzup_>G*E8&}BZl2v(M<<4$!^4z*D%GF7&~_dfOmgKejwkka`e}kv!h3! zE*zvr>dWwJ!;~l19aW08ooTx9rplV6>cX%u(!~$oWUFmcl2aY`F|G(BK~S82^;LxN;@V=L?EdQ=LIec7rddl zb`?Ljm0U~?!pA2y}XF0xr3*02&ZM4ylh`_&3 zUD7vEREh9QM0=wnv`G^*Mk;A-=_;^LT}%CS5~7w00Tn*HoiFZR+taMCm%9?Q0&=sa zH20;?1!s21^?0Mr(HyTza&cy7eT@bbVP;IkBbXCnYnIE)DpdmyLa8 zK9_HR^YzndnKYxOO<|H)>>skSMN?qTv6Fpb=I*{xv?m4S?{6}YIka0=Oy!nbdvP~2RGlrc6eHge-Jpry8KH!1fDhPm7%hqbUoX>GU zLL^r%>TgvMdEQSuckh|RdAC)-56idZT=0;+4*h)xalZG=>8J;%K0HmAuCpf%2Qg8p z%yn2oY2|pae}7TOd6U2sSO!7UT4;jcuBi#I^G%c1&25&f+FmGR$Y70+hB5?+OiAkPbvgqo1Kco3NQ45eOzBQj1HoKwh1w3JHW*fTVi-RhOB>8T zq$!_;jz&)qFg_iB)SOH7fKE#kduz(fs<_8WgDF^t;mxWiKocL5e{`X8 zLbOE6(gGFN_(N7!JBS=oh1v#c*bF2Q^CUZ8Q)2*Sp>4I*Jk#=tQ`>L@=@o}HHH-A= zHgNSYC)rP^$rtJ)h8fqonl6_#1x`~a$npvcrL1O3;EZT%gxR3_?7}}mgc*8gZ-jGjPg=WXajXtRs!{V+SqPg-4P;pT6K-(KQwif==0SCWW3diKcG z(bxcB)|f$)k_e&xtQi|j<>=*4IkqTloi`cJIm)LqXO#LQ9Z&kTZxEt z_*78kDLb{{Q^PN8BoXum%!F@yH$n;dn9fe!WTvz194h z%eCLe#84~LC1|>l0W3>dARy5&qe?UshD<-_j>ywE+zqX%sfkk8jyUPGY*~({UF09x zzI{F7S9ENvZQOLspW;3ZA&D7lOB865=F#r)Y>2Y=OEO8il&*`ReKEwnorgawcG0+d z`-pMy`<+Mh`N?C=3+uh>i3SiuZT-;zFQ7t@4@j@=Y60cfykNT46V?4H68d3)P_*&2uQ1Cfj`wk^038-T)2 zw2OjxwX-L5%Xj}e`AwgPT_3sne9nSyCF zcOw!T2vWhnZpm2_22dxt>7ZD$w$l6NQ@%3Fo(P887*AtoPh*} zy^|Wv4`05DJ=;Hrtn5d$DIhEJ))p$Pr)>L}5VV#yG(j z|5I9S0?2U#gp*|F4O(y>EK9}KHuw^Fygaa*`9X+KqW(KqwsU@x8G}PvIL{DhyvRDa zCSTOC>vnqq7~`DDY||K64S_tpu=xlMw0GP^hUuauL67!OBp22w;i#3#Eqr)(cHv0{ zryi5-Mf;R0M?EK`FX+Gfi<-y!_$g)>0@*6ls4>wlD-OzeFu`07LPX2O3i5iK-3zJrj2K zEWap~+P9!FkrDro<7x!rg0Jxb`N`$Jjf})F`jkDB9_hu6{i1>qqV8T)9S-U@`WAd5 zTUKVirEQO`i?Bk7Pf`l1GSMj8W&7j6{#R<*r-mQc{%6?m+HqWu=W4{BL7Ihxg?FHk zN>4SBx>Hpog$U~Jm)d6hZ9X@@tT`;0VW!~a#ZPVq3YK*Ek%8Op+AlH@cB^WztIo(| zjf!Cx^&*XxV%dJ#5tZD2Q__OXU;D4w-XF`1mw(|pU)2?=sLo{9fvZ}OfhBs(Qeau? zw`~lZ?igR6!^U*EFv$DL>DA@cH$oOj+a5fHQ*YevXb+vA{XvFooIZ8otC2rITR1SbF;aoRRV({8|kOU`f7U>jXpQK?K`B~MEtfSu-=@7dIi?Pd-Y?})-~p%wrcTfcWTzA zIg2_lkmp!aeJjwP#sbeeA$9cz8B63nAVL1z&(SO_i^Uwn5_tKK(Y>|k0pF~lMEK$I z3|~j*B`(wpteo>i%>pX3gV&Tr#L6^-%4*%55P>We%L)CeaZ20WFVsxI9b#jBJ<07P zsOg06AMF7nvS=5=sz%m*y>>&im)zPd#nw-h#?cf~e&mz_P>ZaQ z#fSn`kB7W&0jK)dHzp#vQ(|D|Ljb^!jn0G zfdF=vuaIs`T;gSc0ehr>mCc7F2=S+D(WCFxg5XGFNs8t$jneqdbi+Mt&alsFYAM@DnZF zAF`sbg%eosJnQN5CPC(|_V(So_e$A{jN9&1`xPn)b0?Q)>J=WyxOC6$syh=8?-Zgk z3%=wW3m4hwaV zA>Kz6ad%c;W9R7Uhax*PU2nTj9({dd#(GSq8$;^opgQl9Yk6dgkQGxe+*NtuN#;!_ ziJ;tVJH>BAu65ne4O{PVfo)Zjy1eVBCJY;Yef>TA1gvW0bx`*2{kFPCCws;0*uC}9 zCi1UuSr!KB!j*X3We;RS`xi?q3V{EI1Q|xaj>1wvyeHZ0%zto5d$It?qw#tc;$tyy zm36~Vy#3+>>k8VFWT8+Fa%On=vP~82`jTM+3WZw3`Y$=c3_LR{w+8`!wMW zw67#?X%DWprzNw`L0`4{Y2ksOVI0?aLSR^qS0Z5OIqPMXP4QG0K-Z`pvbnSD6wjx) zmImRCQ~oM04q@B>J@7Cm;I3+`5ohyYCpY;|;Frp_hL!^bNgM*ttAI-6xpM_Hm6JMc z4y!+PLvJeU-Z<9k6}T}9b~#jGev&3IAPC|?uC*6)L0_*>jC9UVHD*$Ii5VSv0@5vL z5WX;N`)MW4HGzsgL>1=u%8Ee?eGG`vsWv(EdT95uT4f(F-7?pNP&WrNwnD)Yy-zK* zroPuTaarYkV;=kgjAP1Df(tS$3?E*=5+s8d{`#YGG?{3q*+7#$m#;*d@|247Lba1pNu(m?@UL`h(tP6Sh z)b4U4Y(n+Sx!nWe_?ZlpA(4cR-)fQM+F|a$TKG^$k-+I@LId-!vX;Qi+5+S{A0)B22gw z_(}JIO&y#*S+)4#6c~xvW#2ar5^}QF{sA%*XJVXM0B0yM+{;22+ANiOS|E4ohP0xF zu_gSPLB;uug9ejw(z9yGKWnk0`HNuPLzt+)&6JUCHJ1+6t2|yw@N|CvW{kgKR>_WT z`{-az3ug;)Jt&wlLhsahCza8w$Zd#IBV{$aJJWuiLS1KzAvn@xifaXSx@t$KIH=f9 zf`*2%AKC799jGXK;_ro(}}?|G{+bVeAHDx5H^VEzd8){s85 z0krY(p}X6pMEtFmfBI79;CTG0Ft#L=Qe-K`oN zt|+^hug*z^2xHu2`$gOQepoCT7NUN<-!aE8uke8bhvOn#UQFxk`RpuYC&PRQpaOTh zdrPC*cIEP=I*vPK6_3mVX_vQy(fiTr?6PhxwmUHonKu5TtZH4(yjVXScK5-Gzf zN%u}(0dja*7zNEi{v-}0EE1M|HERDJL$R-nZ9#iacq-XvYVzn3aL7z7TL7YZk z&wCSHc4`Mq6cGx!Ped-w;foKqV#W?(IyOp>14K=YH<%Mt(+6 z$VniH8$N|@DUr#Y(nbyj{;vgPDa8ShB;ZBOh_DB)qS^iwc9wzV_Vq z+kY}*;fp7W57;if`G_Zn1Z#fJ`zNen7-7jE!Hms7ZlL1!^AV;8*AwKKfe=hl`)H5< z{hhCl8%LC{S2QH8jZ{KHO7fz?dUk2D=AK?=6NH%6_>wfUtn-G6kXltqH?j_a-J0Of zs`~#JrAhI$`?qW03ga|?iOgDPspO9!w{HXPl~cEdxO4$6l~{=ueI~50sz8kHJ*hXk zny&E+rtxsE`Y8_IgSdN|DCDh|C^%^}D4ZG*wacvxOjGdMuXrH5`dCNf3>R~RgRGqf z0f=?yMDA?bN(}oTiqx|!B+glm>pJop0!T9?h=}EImZ2_^!<-tH z(Lcip!hMU!LU^y9bygpV3$+uON9er7$Qod@s9oU$Lvb`wZPg$8xp&j+pS=+Km5!XV z@l#bRbF?>z!+KqgAJ-SM_+eb4fNp$)wbGYO6hspu{Wg}A{8r$p2JTlsS+9#=`NYmCN6-z^3WF6?C z1JO$<(`^D`M2)h^e|D>7)6V*Fn9&Wqh;w(zd!hyI*IqmU_BKLeQ{?3Avz zKHa4-5(M=|l2#*#t(KQ(Q*eRy7Fh-h6;*o?WQ`nISb1@7*I&7nxw5tkL@YJ|=MDsK zz@1qJS5ZtimmIz(?s`woE0CKS816YH?6_H#bXUY&@;Uu>;k!G!Q7hxcAmQ|T@kIsU z>3uj-6j>m$1ahEsob^^NArIJmg0BLVnYgULHDRwwB3|io4_rq+_j*Wl;u7SQ9O;?} zNQ+ndjgPA;jvAaun!_(~dezGb(yDhJ*B>1DY^7IFugl`CH}hT@A~OgKdh8HyV)Fr? z5P)E6EB!M1lAEZjcr1t;O;~S(#sV6jFo_M!E~pAAG!oqRBPaj~1cDAyeX+q>olCu>J>fh(gjnj+d(Omj|2$ zxtf)Vyjl*cIyI_>2r(e42em7j#bXsLv}3~>F#~~JTnfYvAqqjE&GgU5 zhicWFz&(IFc(YA4`l(Jh%$ML-s&KR|T|X)H-i9GAusVw4Zz}$=CD;e`_RYvZlW=}Y ztJRXS^yHxEM~k%k*?+cPMdgeX5T05%>2ICjW>^)|=Zn?ay*(?GU!Ky4h0Z%aFII*1 zdV*QbVoaGw@-k1E__sYl8OBx#h_#`ewi6w*#r3qF3@=U z#uvxgjJ4gViN21*QDZBeiGI%S#G<+ziH;5^nxH@e5t%Wr9U15nSf?jCn5v6TO`|x> zh)GEX13n^EJU(o?=(e-cZJP5wM67I~hKbTz*Da|XJ2|hsb#`S|o6`Vy9H9@hXu!_IZ$5$h1Wrvk>t}`4n~|Pc z^J|!~^xf=1K9jKOcF{aF-oDHF@^RY=`4_QbEA`qH0RWiu^$#GUr9d4$tRX4A!n=v> zz8oHb)m53dvWm1cFn(s~iSS@7Xgu+0e_<;zIT78~Rhz~Pqq;Lwx+XjisLzqpr84)7 zYe%>AHqr4oOb&AJ@EuQT{2Jc_#22ezf4~jub{n>ov~}9QvRm8;HRVgFn54%7uVQ9r zv!)j7Rm^185D;g9Z?hO?d-Sozan(o~T2wq8o_SP1_x|Og1uC5ulzmZAc0|Kh{#r!P zCnH|nqjo%e&JL>4T58I^WhT%BRf;MtnNT}h%`~?7MU8>=u8R|mI$DR4M&;U>4Qyey<^=ge>8_S zVU5y?JJHLtiip54McDQqlm;X^GY-U1 z+QpTH)b1H#T}i0=l9~S0RL#Dj$fn8idlXL?QX-_>clQoFKrBX_CQCBTwK zT5oHO1y7LbxCH#viT%--(9^ZO+DuEUHKAHaRvRs6AAYTn?*i@Y34{i+Ukk52X-YJZR=UT>=G~w#GL9>C>U~|5W@yL|2+py z3!Ryo2_Ka|9%wzV64Yf~i=F*mPRdx@hd|pz7~)zwq_^N;zKrWhGU3dmd=5Xh%3`|# zbm7l#>{|T-X@wE)x$yHDjYY)wb@GP0mP!bX05uzMuao#GL&riU6zojGn83omMtr{; za$T4<8$5m5$g|@N@mtbsK1eRALghsS?Dd8rt6p35E>JFA#n_#Zq_{M2oQ9u* zTljC{Zd4p4jtn0TRnXb~N6_n*>^a>iZ?+8~>1t3nlQCmYGqNYW<`Cs7J+ z7v)}DBLIvc#r_yFA@QM^3!_xujpXQjYcSekWeBi*(G>>K_+lf6OV=IaF?e;Whpjdo z9oAVq(wG3^E?V!=SMVg$_?Qzs$;FS@Z)|73k66&EwI_f!mBgh?`RbN(A}dKyw0Fv# zyKgB?jIBsSbdPfjx>g#VDp;56`l%C zaZ>*T5PLvHZ${{{1)$S;V7)#Ij0nQDq~tm|O+J87GGlHWek*9Ed?deuzq~tA7qZu_ zLYh(fl=EcxjgVLTcLNsGp_asIZoR>!QU%a(%ch}6XC0O5wYi^2{5Gka`Jj0wqn+Z* zP8AV6gm}_^$MRvuF@?{((7yIX@ns&ms8|X{!ru}=Gwz_tw`ra@<#=pz?UuWt2aPSG)(c1>m0gtLg zOD^9iJPbMVdFUPWW`+?xUYN?2DigY6@^<+(e@w=y)|mNaos$N%>&Vsv9N4)tz2dDI zdHbDK)BcW|!H&2xKdgBiqHZXm}WOC+&4 zzK*Qq@S^Ux@|69n(?k`ymLiOgKfcs+Y_0t>v2vW3GUpL4PVg-%OMaUu42v zS|!-ai>Xl6LSyv2A# z#T!6JyE`NS_>mBuju4!vzH$FX?A@G^d0t$=r*u4$k=}5T5f>|0IkxCXo z0#Wl*bA-dwL*Vl7YqEiBLsT|Tm_6NU+tzEP28lr%&UZyrq3gzv!>@NX3775zP3&dp zHR-}L%9@~I=J0Z!kdX%FZM_TRzjygKSD7Y7k;VcSJ!sBN&7BK0p7desYeN~PHf3Rc}^uY9`ME5Se z06PyK!hpn*ruIqW`}aj&%mVp1zZdfa{)rB&c5A~xxT`d5SAu_NAIJDsq113BHk^vF2k z5{c_Wbb)$=t6l=ilykxXh($&Ae2l@3%xRo4n5j1t)5}@CW+J8yJM|aDAtt88s#T63 z-pnc)`D^&p)&S@O1kG3`)eXVS8exDbGk>%SLf87ubz*l6q+K$l@ig=_*G{|=M=W*uhI30JT zpA;MI3i@~ezHg<1DXd8A7304MmIQoSxmKg1ANUBb!NF;R|cNjv9VS^dB@uMww>zHk@HeLN1b~W=xdx*$9HoRUl8VhvbZ))o#(b%?bc0dt9oPrU31~$C#Dl$k!4=SlE#}CsD zL1)!Nyz;+(yge`nl}4E1Bd0i}DVJAvThFz#yqF4Z0d$CP^hyHaeXGgYD^KxPF5Hfn zl`S21T94yUz^MJ`pJ0=HHmw^iR+n&pAzvtPKGEL z{crqsDr-PYH0X+`--Z7m56kk!IVjQ!?guEArKH3l(y+U%$zgm;pPA}^-iVx#h%gF0 zy(>pcwF@(aI+FUtSqN>!kb`i*tO{4hH1Vz@KOMvw>1m1&97W`__q!`ctqTQA!k+Fg z>fg^Nt>1AGG4`rYnSZPsGh(M`vJz4~Gtk4eZxykSp6DBEB=VVL$I5bDLShr0K2IO< zEqd_+rzs7n-XUnRwgpxQxdgP&xdc);t6!ci6(328f}zFWnnt5$BmW$|#{wFhX3+B| z2`#&7r%QRl!^e0xdeRyl)4D;^g>D_)4H0W~~t6nI20WFnH5`uHr2)t$_-&@FR85lrDU z+!m(btOVD2glpr#Oj}-KhyUhoiW|M_{S0I{^H%07X>0RLxR*agn17Pb9Z~XXpD{dU*Z}Y<#%VrU+IZBs`rDm>QRT^g=DEX ziVtJvItj$s8kneLsTV3|&uYV(8q8rNV27I#n=x%_yZsGbAdj!S7JK0MfucgVjfGg| z(o!h{cxJ`0qdeqvhrEW=$muVNC%*sD;c)ojgA%@g*5JqnsB2aFv|O9&z2in>`+>88 zF88i{vy&B`my%YFh4^3MCF@3A9!bV@(&|Vt3{dk2H0z!fRe~qTm@rWbUue|qdl!fujGHp-=$P`&?4;9#y+k2dhA8Zb zK$t)NJ=;OWOyiNH3fhDnQx+ap4`KNjEG5}DP7R4j+L4nTsRryXnfQoUJUerDrW^$& zx_7xEsKrab#6dp zW$S!{17LDua7g^f32?O(K%1?jAB?YQ4SjlT_wcGziUtt(T|DzK&gN%!)y0jrJzBQ| zK%+(LlEp;4fwITo~e>n{MxU66Ty3waok24&f0iFH!U zlNyB3lSRFE^FUKJWT-Fnx-sH9`g+tfcWtH2njF_pYp!S6bRjovHi2C5TpnHXScC?A zmsaNDA0L(94H}I|zkB~>!{%grAZdWm=|TBaA3YxZ<3~&5MI+D}q~H%lEs^EV01hYP z{h48g_6Y!nj$;U+g0$Vq{;4v&Na>0Vx6d_{W%2K(Do*zRw}$9LtE*ro5e3+0{VZ-$ zqt|*LNtaPLRCreSe2@nTjtHlFpbgAHYB+>JrpO6LxTvD#(oYA0KJdu;zP{d!T*Dst z{+Nji==JWkk^~Y4BDe?|b*G&L(EhtY0jJfLhjL|QkYys5?j#IJp$Rcmc4qg$@xz|ob55Wu9UPOussk{rl22A zt7FqZ2_1L}h!NXf8QL8mg6}cM05boD+5MMA<+QG&qZHg{Xqe^_pPJ?Dl(<(%x8eGK zFOi-F(*@(VWk**-D!X(=;}o3K$5$zj`rE0{v9yumU3%w-Dcc5cOC`?&yXmVUbk{xZ7kIm?7?# zyt1L*?}L>q%_WpHFs9xi&LYabI;W`VCOt9zsD6nOw_atYsG*52QrjPWH>=wDqsAAl z-+MaaIemS*q0#H7zU*O(I!rG#HWj2<>If@nDbKjclRYe|O9ADz57!?&dH_N6R>lHmiC%-+;G^T%Ho zL)0ylf+cQN0?W3@ju(X$^q?#>3!a*+QG3BMv4ydJ(>C+egtGkavSD{7 zWYoE@T+DaoEcADcb5XD)UhOsN=F{%V*?ks1y@@WLzLY+hW1rnBc@onQm6>Bw;-z{B!JsWw=8 zM9oxAwC!VV9xD6ehzAYpb=S?l@&n7*RAlj*xvp{QH?pcjTLZUA*Vp%pt@GlM0HTIHzzvn))s&^g&`0Ob zDy;^0V?TRN01SIqPoB?w#rkJrQc_wwZ7;_+?GLJ*k;{(f+wE@nctL$+scKh#HO?+t z%nL;kU@Yok8ANmFMeHRm-A@f~qfjO386t4~P}}pdiO?uE)!=ZW?Hr!G zv^$J#4T5a^${AubI&C=+5{N-RAVxC@Dp>CRrND+^tBnTMIQE2r5kCc8X?XT`MNNH~ ztdL+lD~#Qp;J$Yoc7It_d>|EqCMGTj`^BOMx63SVycaDPAf)0A92fS-j40?{vs04V zrSeGI!8lPz3Z&_vi*jQH449<_5I7v;e8CDPrb*59`=Mu4k3dyzVaFeJNYJy*lWC>(hwkG%QPnWlfoU@2HH;{UPB_I41yx{ zd60i{-z3>r%C}LTqM!*wq^l&jitom3*qbR00F(m{yJ7be3SYg*nG1jdKO7;0ej;Wf zqot{-vE%8%y3%JzGrhc=Jntk~Od^pd6!rw3PvsKG(cnHZtSRHh@O|CM?3uOlmbHD9 z2_r($e|}_;G1HxBk1W9ys<++Omwjn#*#kZ215WDw*9}Y98BRKK$cCnaHBz^=aIZ_G za%H8RF0MFLYDt-=7?NJo++^X^Xw8&Y0N+z8We!3HFzS=L*5+!CAqOPBXBzsd*zO+y z4wSiUu=fC5Fpcy9@%xv%oA8tSY-G@Ah}qLa;06Ocp%&P=8jbX3I4gb9p!#Mau=I@Y zrvEjz-qPCR{jDt=jUNFPm)(XqZ}iqKWb24fvdvfUd<>0rb=h`m>R+xbHDqCmkaK}8 ze4e72&U_WFhsTu}kQAbB4wTqZ{7(`VKWpII6pvU>^FkxOzBovm(m&9?&UWHiJAQ4`0SEG^ook=fX} zACvbr#BAvhH?Zk;Yh~BjXfyymug~Q?(SnvI9XR~7iDQ#gpXC=?!g0g9=ytR z`P$UzyT8UDB7sMEsyPL_LH#vPP1@!+c zxZUi(`SAbe!R`OPa4S3Y-{AKD2Gbus_TQBC{~6rAl}x|&&y0>68~=~c*R2=)-^r{0 z-@)zwjkf=v>80mxJ@xt&_1RoLRpt&hhF_EP;@o&ZrA(x;f$^ymr{sbHwu`jc4V9d$ zK2zPg#>z4~?eN7&2@Wx2u4#29i)deF*^L8oo+eHFUk z{tY)SwjTM?ZztmSzDoK1y?utqMRp~`KI~D<{mHmg#QvR@K4AO#K#Y*zy0~! z`2our`Vzn7Y;q^%tU-UV&fuXZvW3Y}H4GJN>R&CY-|)oUw2sBVJ?AsbTMpf)&ow$< zi_<@S^SIo}5{40ye)jJ$2ZrLozn=2LaNbdyrzDl8-_YqZeIIV~ZVqZItj^1uTGS;j zx%ds7*GoZL9`PwI-2Ufhq^5qAafrpO*F1|%q1`(<1&JhrO=RKT?dEEKCUmt+?;UlD zdHwXOqZ?{TQo(nY_-Jh!^<`YOk&N@^ilE0zb@~3f1XhHbg|cPWaV4Q z?2+^uvj3lt)sJQtczK8i-r(MvpFW-%{QC?cb9UI_iwwT{FRd?kG?g{UMYDJO3oR#~ zu*TtXQ&(&Ij~KKb%<2`-Vm+ciuJA*;zkpF0}>Tkd6 zy;pyDvT-&e;a1)k=39w~$F=Vpoz!=${9m-ac{tSn|Nr}WM~r<$$dWBfNhDiI8YE;; zwj#@v%GmX0#uAFLq{SAAY$d~3hB9b`jBHVFnZ{_sq*TTj^ofdmlHg>?RhEe-N z`5QYpWipJtu*p7i)PTy`n z`Nv1f&UUO}FgTFrE#>q=V=9N#ufM(H(&hfzr&qETn>7aH)c>t^l_seE&Xu7S^*jC} zY~Z_9qiMab@>*HhH`B6=B{(6cS?>H;m&>l_o>#OI9-eY^@EXs5DUaTI^y#=t|Kt!I znV7Dq|EU>D!!_s#^7N*HP8`3~se58Z=2XrU`%`Uyg!biIQ@9-0GmeGwJL9}Jf4#K1 z@%H>;bCK|JPwe@xM?Zb1pCe5Se-QezE?Z1;kEU(wB$i3;P?l^ivrlhGT&ZFRv#vir z9T#RSWHshTdhzdtt|uNNy4dxMn=(bM_qF~h6-yqt_f3zuuZeFltc!bh>hJISyS?P! zaLWQ?xQJU)*+PB1$C7!EP2bgFT|;u|wC?lQ@9p+YC_i}V@Vkfar#y!x{H8j-j^cR@ zE^bL7XRxoSwL+RtZJG{;H)|XHxN&t)LYitSiKTqx`tP(WVv+MQ?^%DpO4zt^Hz&z) z-?SM|xV2L^|L&u=X0O+@`(q!DdZZ17K02gT6qAb^wLEnpOwz~X$svbv((6#@@lG41 zjA2`y%&7pW`*`W-DsIi|E~#Vsw=|_5HOH?eY%A}P-7WR7KEadk;)7WK4|n%QG>%o` zZ`G=|`BL>>#@Kb|LAA5T`sp`#2@{rDAKPZCBo|*;9T4Y@H-S805KL zj=XEHqxA_DiJt3c3FR7vopjXmDtha~%UN^FCHL>RAV+!>>VUZScljrwH@idqruV%f zM+FXFY*J(dp!#k*`m>HI2J6{;E=}|gpv(+Nb0wPIo(a;qY-i#BN%aGH@5b+p^IWD4 z^IAY^f5O|Y47c;&Yv*DwD4h%({fs&peu1@(<{7j1#@3{kXOz2>LV(r;g zR=nGOi-(5&xJu-Q4;t=o2kwz5*QMUXgtqJaJy^+G_OG7i@rwm(#QzBWr!o4f|NqLR ze)#`9(f?<+`+wB~|Id#3KfnEq#{c!0|G#y+Kl-2D?zcrZ{}=D)zbc~t{-gh2xZQ!a z{lDvx|9{=?hYp&WSp2uN{r|Ju{eQg5|NPIk|K;&vsqMe6I5>PhVsu~fy6wWHd-c1A z=L)2B#z!?KPfF&E9>~)c2jgK7y5+; z@K2c6)(Wrcp2hxgL`{d`f1-S4_BUTa;AY!d%j@?c9*^v#{9tt`dKuHCX7VdtU;B&p z?N4KpFX0bV-)3IBEJAREm0_=Oz68UR71F=(Z^0~Q(|(stCeM$-5Y;$osErfHbjyz^ zmr8=LZGxJt-nYLGKearwJJ<$3AY@04>*avRag8#+#4mZK-@7UQZlPq(QL8lzVB-w) zG`U!)K0^L0uB#JM9o%Gck%4k@fMYQrtu!a{WrIlK(ZMRg{No=f8NFcb6k_lw30uR*e2*15J2=5 z9rT>ZwR$cV>nsO68Uye3lA+{gLj6F0+av{DjmC#bPuw-!7Xi&A>V0IOV(HN8L}s1Z zdINeVlSKCqHwqi@mDa2tIG7gMXc)fik|=2bp#$+r103DP2oZ%D(OCJAR58HjcTaCO z%r+x0GYP1k!vTM!wxpzjFod4Dc?Bi&bimt}q3l1=URo!0wp@~}i) zPTd{sPX2zTkUw=%51x1UGF&wiA>^W4ZaN;uY%--5+xqxkD}QeB>w?MWo0Qr)(XEWk z9b7*mMaFjJ{DGUfyeEEziDO2P=3wfY>|e2)#SrN?PBL&UQvLqhG0QMMBhc1}w^fki z%MG3z_&FX+CR3v~KKgaJ3G?|H6{OnAu&IC!4*bnbTY*J;+d6egC&T?=+^oX-fCJrg zKislA{?cLVJ5zpt!cmII-_}0DD%%lhvTC|Ywg(5nJ71enH4fRUaqhC`-YVN&Q?6_< zA_OLsbMh2ltX@L={1=yf+G>yNI=yCW>>s5`r?oaskmEQt?7&#(Y0c0&>nJx}){Hqk zc~Ragwad-4jo^^Unf~w72gxT`*`? zJil+s&r7(AWfRyyGksyuv?sEyy>J5dIkJs1E!?=d8fZ1_V;^bn-esu|P)(`O*OE+(^Ipl|gYUL4oUAtd7io>7gjh$VbnMST zd0B>*?y+ereRTHgN1RIIw0z~I*>a5y&Jzy6IlU-s4Gfs_&OWR}Jf4W(|Egw%bJe0i8o745`22Rt&+w{03O|OF zwQX+s+{dioHBOwCUQQqv`jU5?{Xv3kl*o);ktp^&y0lZ#URzIik8H`95p|BaYcQ4cyDY#GcINta2 zrG2!L>q@sp$0>-!qhXZ)l~}9rxA@Jh>!XK-~$(Gn8$}OzkxbL*GlAs zM#ok8L@@>)zhqbo5BKy*I={S4mY*N6Yv;1+yB0(TX6M?)pJCP4ViYB1C0$8WiIe>z zeSZg$6;Z@=E(!gn_I}ur*Ge8H${;y@EckSdyXr7)Jakz#uEqY~ zBd4#GQZ~|?`3@)FMuk@HCx}_U+FeI@CRz>0vX^IY7}Mt0&n#cV7WS^%Az&A9nk>!} z9d+l=hlQlC9mj#q2IbI7*SY(*a1egqgIA}^>`O9HX^l$9z%p@(zmFH18YNioBG18s za5iCGP0L(raEyS^QI~M=-ITk>=UwSUMu=6HL}t;BY?HWm`$wb2Y&>n=rIB=+L2n4^&Ze#4lqYo8bC>7a;6Hqqg{5K*RnkgNz z8Bh4o)*>1Itn2dFuZP+}ud=M>2t>hpP2bbg#p}Jd*wB^$TAq9lPc+WU>H{E~@$tJ$(dPX87naz<*GP(T zioJTr2B|BcceS@Z8NyTmaA4c)fnMo<{?n)nPyYHms_F;LVxSo)?ZQ-KR`UnKFb&ZZ z1|tHmglNSruNJfSEI9D_J`5<6nFw)fQrL9}2D`RQ3jAl-YQ%WLG7suS5Hb_TbJ-Aq z-P8+_AY?ZOP2zxErCY)jz}N`iS33)Tp}_;w=suP1)ZX6*3O&cCsu0uXuJ<#ddZ6&% zAPoZv7Ejsm+R0%IG(j4Kca>nK%PnQhxik?uu?q3282K!%lX!^6%vAU^spL$-q+fU| zBIgFEw;)y;bbR!1I+;?STzo2vZ^V2|A(xsQqt6%Nc;2ClA5xz{p-~3 z43L_$yRX$ffCC(ypKo5r!TUsIN!cxwvm85drPE*AvTLqf(i58v)?8fMwGmr*F0AhD z;M+3%xlo$gYK=R}T331QQk`e-diSEQv!llAt8Kf#$3{dpSEy{bx$d<#I5T$01hm#nqdKKL0?N|UL)8A z9-1*jSXb}-jybnY`kI}w1{`HZNlgj^-@tokdAasmv-q@;YC3?5F=3uD=CaX5pU3$n9}+ zD#ym(XU5k`920M698X%FnjSX};=)69ukZS1VWveT4_VU3#+3E8_2{mv4CHhOuJHv@ZXyLv(1h=R>jO8|j{ z*>XMHUTep6`W7g7t$H9ZJMnVM*i`IH&bVV)m5yjHIZhcM_9Jj=vwp=t5nmR6c0-IX zo}-0-s?O*JKG1WShs?S7*cd~M+{)M7GtOw*5^VNLL0f1@$(7f;!iiM&4L7cDm0Z=( zh@?j(#nqwHhPFUMp9Ase8x~>gkN%d=KHUa;%67&|5u&kFzrY9)G)~(+9n9-7-F+%# z0XcEzKq*5u{B(p6?iELsZBsgUgpvGd&kOkE>z#2Ydy*jya#v-%! zdb(*nN`|+*JlQr!h@O=4{G(ybj8_wZN5|kKH740ilQRvv$UIDqSY?IO$ z<6>`#sb6KMq>B+GyTtPEViv11Ex9=GGRnBAJ|PBeV~dfnf8QT!POcapPLYinloj13 zJ||KS^soJ5HLt+7nETI8mji?nfH=LU3x45f#gQmPqcZpjmgw>$=z-2_tR%d!T2`^{ zwvu7aYEX3@H0rXmyk;-@hIJh>;mTR<)|lk_OFM`RZjH3|I^{Tpp^Ks`cAa7^&0GN*pd8z?{@N{!h;N zpmbj!LHe(48Y2$KSG#6HsxIS#JW!G^(=2PZYiFhz8%GD-NK;gR$6(R;&7EChPA9nU zX42*^vgXWaHj9){e-LRueQ7=K!!ef^;-#3%Do)Z$*H1KA@2}DwIiT8`0QH?@>igkh;ciIxSZ^~gkc46rXDeekC!H(4di@KdUmI}2zbbw#;H!i|0X#_oxl$O`H z>~$bUR-FwWztRW4b-@V9;w}ImSg);-7*1V46|3rl<@Wo@aBFe)Cwfezk4WC3_f{iD``8%Z5P?s9*?~}<_-|sEj zPL19Dq{gCrEZDPv9$xlZVGk3aQnvO_K zWX#IB5vhKp%vRh~17gaRIdMrc8=8Nf(oM$@fF7a`zOJ%6{vb{no0011UCHM+PdRzq z0uGHd%^MsKuuKwDgFP5AS?`}_E-L;vZ? zLbo@xjfWW9nim17LdSWlbg}#kyY$6yyTbSxs@{ql{-(-%f-(Cw+dhqlm}Kep=}Oix zsCMeVT=d=3zuBre36mFn9}ObhC@B+@LXwLiK(`XiaiCJ_G$~|yk>RBhpMaAEudrJR_<{5kG!d3 zn~do4Y&n|2PEdkRT``tlFievfxAHe#@oI40t>B&iu4J!xE{-iAN3T<9K2%*106rFx zc1#11t|a_N7ai#??H6}vy8}l$)Bo;vd1#ytDwr8T2Z|+|D|zd|QBH)#Ecy46_tDW; zf9KW6THX*BI-6YEv?!Ue`|=q~eeq(aD@8%YKb7uXRsQyqaeP|HiJ8?|#xMQM6Y6>i zdO;LL@6N9AMT3;eZa-JmGMX0r4QtxClG0arLNPZU!49Z^^PVJ0)4L3Z^bFDI&*D@Y4Dl1S~u)HIFQn;2Uy#Vr>P1=8Y{d_IP;XQ<&{(%N=e z^~OSCQGux#a9BGZy&oF|J@IlLIU-AP0&2eoH76i_qsw!{%j=y1BX#!bF<>2Nd9MfmIVPetg{kNcOGMXp z1UFOZZg}2Aa!or(DTD`iqNZ)cH>)+Wn1DvvbOgJpU7xbCdvIn@VesToZ!9RS7@J6kQLzv&$A z^8s^Xd({DpFiCx{Hf0PvC$qIpt}_=EZkT`aMS8BJW?|l$oj;PzGE2c{b}Z)=V$lB9 zGif-=M1SGrlT7yoF!IO7=fu*ED3b8vZH~?ly`3bmLWJ8x;ZJ z#U>qo>Ca{8TH~wn>rL)Gg=e3=yxEqHOqkjB{Cys#K>D}gTm~pc^mU!r+@}x(sbfPg z^q{y~@=HhJdE&^$#@u~rBArMp=4w#Q3fe1CSryF&6c2PpHo9t=X7gh=Z~f+pmf*tq zsq`K^JDse3F_n%)8|8O({Eomd@-JIKEGHNSkIk4myRp?Edv-eZ$)H(Do@;&XL?;4Hg%l>{l0-(Fr8Q z<1tm^SN>vn^J}ZE5Cyp5A()cOm!h*SM*T-=rd09%vq7znmxJ<8Ulx+jBx1_jUYM7- z0?Jp;?Xvq9Q~D7{Vp=^XB5clRZvws=kkC(MXVY)5S}DUnu?&5$nNmR|C_5=DtC)c) zoVEm;`yvkv(t#oxWEjQ=8jS&oxFi|}z9|mMC?SKO)0yJQ1&+T@s!?S44rkr%)0ulS zp7A)R!ZiqA-u`G)C8)(%Np$ePoM2V@&p|j5^mht{IkZBzVb>YCKAaaJFNj$)|yHWWJ0vr*+=i= z{Ai}{^$0A%A3t@oBE1WlB7mMrBk7EpHIFODn>L`W+DgDX-RO=Q+PzVHqVVnOi{Blp zaGz1h-v6ei3QVoryJy+`&dAZSua39-(mx9yC^}Y|V8G|6GLukdwuUv-98y7>`#DG1 zW9o!NNaF9!V#aTWiO_*Gjl4nS{R?!LZ~zO-4|nlyS9?a33r?m!QsIv7+*B+Oiin_8a_8XX}csyHan?Ux^_Dt8p`C87X zcsD88;T{B@!||v^+T7Mc-q@}OvZL7IkW7U0Sk+~=@!ehjC20P`vbF`U8gET& zk~j+Ar_j5+NpHyGImcjn13p~8@bgUGDZ}l@yVuv<-CT!1j{s)|y1yeh@|_i!CA%TW zJ!$<>Z8S6F(GJ7q^^FHbo=@w=i$6Yf11yPUfOlHbpbLn_h^qQ}xnmPjg04x388+L{ zTn-4EN6<6tZ1!S3IjKpoyLW@nf}jVZbiri%-Sq@J^G#^O>#}Oe`Xnc*m1EXY+^|1w z(&gRp*V`UsSvqV#pe!R+Edz0XRO91P_`J+c5d0f0|LS;Yu$1T~wFe+{cxM3yLc2z5 z7T`DrM2h~c%DSFDcQwx#P7O@9z!Ev`cWTDN&uU5?jAEY>kTDILi;X!e0*-m7ljRZb?(c+JomO6|~l&;M1RmTkRjab**N2F*gY4 zTK}pMouLdj7ZW>N_Ruwri0Zb@N8O({Qd##e=S3~;D*$+S84|_rqM%oR5PkMiQ+bd! zL{MzvNoDZ^*I%1A&35o>yZciGS;h)z+7{M7Q zOqWLToXZIB5H@(bs+dbbqi~dRfRlQ$Z=8I`AzgUfxbzZGy#@Vw7FyeKtZW}?Prb4~ z@7+PI+M=tRHuTWmqn5n(@vLF<=M#Y@o(KUvY}C0f!#Gv%(qHKUl&Y2`{;zn~e>H;o z<|GD%M6O>?7suJ5;VVxEa|4Vq{rSZi{+SL5u$&d zTNrY}<(*FgL+%8rjm+ELEFs>t+s&V>*=?ZH%+S!9y&G1=}hlzo+3e zYb#h>1S1ZR>PuGI229l!ZAQAUmIO8d6zwkQV|@i$pxq;Oa%!Dp4TUOF62o&A89{{~ zR8JeE3!BWCwNZLQ>t#>IPSQ+V{czfbB~G$Qk+e#9uF!TJ1u(YkL^6IP*WOFUHy##M zb2qjHG>%Iz%*5oz;3NQ1coALC!b6)l`{WpG^=4)%$eM*QfAyT$-MG($W=KqJnyD>^ z-Vo=TXG`^pWaYVAg0=?Yi2odWJe5twXT-719~dn2ogf5uw!K4D32BtNQ@gi{MMYXi zcvC_W8`P+ZJ@)FO9OF_fzqXVd_Ypaj2}|3}K}%oBR1AxzBBhnwapyfR|MjJ=T`oez z;i!&kBp1Xf?&$8@Y-%sBRWr6bztX3rb|%7%DiIu6Ulr6U->8ErWrS7>!45@(2bVP6 zmD3CW@|ki4L)jsZ0oOQ2=`QKqrK%1m8;0bUjA|7a33l1R-qDiFO(a%*StER{znzxn zp((XU47_(pBwn%Udl)L+8gwCpuj5}G+WwEoHpNlLLZ=BtwdQ`i0N&RcRS&QQ@dzRN z&yo@E>Ra(kR+zjSm%*|jr!r?NQ>&|`d`|r5 z`Hw%RP;wYyv67Mc=;HF&a25RLlOgYPzCmE>%8K_DLwacYW@E1Mp`}j;;%${;l|y^V z83dG%H);g*1P8PHoX>54;JRA~i#!pZA|18xPSge?Xt0yakL2}0OGE0kI^>>L zNfML|bYylLm7qfC2 z9gk+XmN%knVO`jf%m2)5vGLfC3h_HiyGcJ>3<7G1E|t1<)(syCgm5MIbbw%zoU*E& zobJrb^KLY)4n}YTF{M)BI#L&f5yrc!P&xi|COH)Sa1yx^fx+jLW5 zBQ{v-NZfl3L0;sGjQ!;$+Sj|!CNRd~@pdqPPyU;-EB!CA9oyHaj>8%)ZEdD>{`1Q_ zP4*?#d?oM7xhZ_|7zeYtB4~zZR?FbsubJ-B&vb^Y#95nk7b};d`DGcT2Q?+{0xPsA z%FXTRbSvA>Et+2bWS?37@rPv@XQCe*e6urIkKd;L`>B+$>~u}GanS0S=z>*{wF6SIL4{(b+pFn z4O41ly`Ub8C8CmT)&;xVUHFqKCfjmk7Zyw!m0&lIQ>09d<{0=5Cg$cBQp<}}PRC#*?;*jO@})T{U4s8`qiq|;3)h7z2OUSAA&USsU8*cv;eRlx6R zXe3IH18TsuMuOGT_snG_@b*jEl@Jbpn3Ui_{f%Z;aJq@$W3-IW5$(!OX z3DsE$|0o(}5IW^Gp+Kuzf*nVXYTUi6E1Fks?oQWuB!Kv z3E+~N)2&V$Ef}@&jUZ>1L4+-#r#EcQIy&1EUV5gtH#KlFT`%_;>fujkF?^I401MF} zzUOkA`xVJCcYAdqH?~+ZQ$h-hO6ozrznY|LyKrjwps?{(g@G#iYURfn?*lf_`q)F& zvAvdmAFmdHnUUI<{lDtwtI_?pqU#4L#c=_5zp2hW)V@#x(v;kG`=ge@+Vka5V;)CB z3DbZ4mxbGhgs5A7R5a$D($ZLX$tub!6Xr8(uuk;}z=iP^t41;%xRMoTA|EIH>^>WB zE0bJXQ}vGb>D#4{qIdF1)mQCUUx-@`n8g#jhhr!>uuqh5w9_(};PMa7bj4-wV>iz( z|CAWfY0K;>cP88J>?Ekkc$A9VarjgO?CVbaZ%frCNWIy*^D=N^{) z+xqVzGvIWc?s~EZg^P z7N-OG9L&V7Kn)gt;+p5lj+T1dIt3F5hCdmJDFAM8oFZF#O8`cWddnROFHj;^NJf8AlAA_cfu_%q)VJi1mWIFG_>Ac z!491q*p&tV`-s`e;+D#~Qvx2l2Xt86V7+4VV*c;j?ewQg{) zT1COy=|88&Nzn2G`6Tem5t~klA?}X zdwBWrfq5%mX5PA_W;8__Ihe4UhOJhNatjoN-8*e?G1PT#u{6mmg}s&P)Lh9Wy8T?? zTOl!6T{fxa=a;bN7kXE2ENP5m3cFBT_04KfDIAo&e~id$H14bm1&VB~P#b7|#!i47 zbUqoYwIP){CmMF>zPKgxG*rA}EVt;{!29;Qx8mF@Z#ODXCJYEI$-# z&a&pa_7I0-5Guy$nR0%Cyvg~jr!xx`dMPeRBr&qg1ylZz%o+@yGw-9(d7L7W@dM54 z3`*D58vX(--3uCmHme`32Dau0%9?93^u}e;eX$Y&MYg-5(l9OP|0M7!#sGSsl~r`vy$4zQNMmahB=h z$@r{mg?p_oUlfspUCOQ9Z0K6&`8{E8yy2wcB5B;eJGCz!Rn4=%&W3Yr#2Au#uulhg zS}!Bh$gI2V#|Yg4l^fj&28-nxlmDLNtyO5={D~man4|-1*tDj8F~(wd7-|C|Zr%+1 z+vaEBN?__LPzKk)$p|60b^4Ugo)!CQLRKy7&pq1@;=ZZZ7mR%V`&bW+7Gb%pWdDV8Ux0raogy*ASwmNnS5WOdlHNwm@o_Glh~h^Rp(RL&AlQ5j*G9f z;`E`n%Sx_PWTsfP`{3B{o5Q;4vpsazb?*GdcX}h!R&FkFKQ;u~ z5b+y-M{mVHl@JzU4DD11-@Ui(W0+K+7e(`~EJ_qD*h=cUmbdImb%Pz7vGHjJ`Vs*L zIBL=(S3W<^loPA^T#Dh~x28O4X1bqswCS}C9dkAB^a>(fu2oz+#_L-^+kl2b6Kj#Y zS{UZ80Bn!k&2yghO?94Q3rGpVRmdS5o z`0O0O{mejNNMMj199d_4CuHy>xW2FaBOTy; zjU~&IY6ieYAe5$YPpy{{VselQE)st_FA+joxySb2+<{##0xe#wPpUE`m_c>(1#_65 z9tCC2kUVU6QxrY3#6{zu%h5Q8_waaIB1MgXX|D&(y|eRM z8~7E!FIWBXjsA`OKodpk3pM?~WJ5)rn zF1dQK;n%T#o6u5h6JFK0RoXI3KHivS;U=IO<$*m9MKwd7_r&K<6D{QjXTnHG%b*AP zFq5)d$%N?8p`EJXNv_M3DVJ)hwwhc^A1p^^Fi7@pB_6;VBsE56icrd+*C6XkX{e%} z@*YRuPn4D2ZI&sAz>OKV$NN@MWL2+T#XGG`#41yMANtR`D@p(Wt$*`r{ZOybNasz7 zYD}X674HgaxA*6h|M0~;4;4R<20X}oM~%q*@0?NN9ah5P1@W%)rxiRqmv8)KZ7}!3 z-7GU5p8!}MYj(7LYKK<#Qv=hLsu^q2bS(8$+=!nhPI*I5A>a}PKW`1IP;&3~v{*Q& zF*b0(B*+%w;|(_XR-3;RjK6d>w7p1ABx+@s?J#T5sJ6YQj0aGg>5|pp$9mW=->=9v zong4Wv;19Q5lM<>zWt^scDEYT2OxW|>BMlFV121&_5HGty==9|?8*5%<>nOm%(7D} zgeJOd>YlB_S97=x+JXCIesXk&*pq5ArEbv_Qnydn>#hyGa!v8VP(nju;7DMTM}U&E zjTjS)W+DRa8F8%7Y_N0|42cmXbz5a+ zrA`oK2bEE1`!h}6B|b_}aWlae)hATDVYN?sR+b?eG3pqOa#QHo|Iz^-x0*hB{Da!+ z@pR9YwF|07Ggj15&DwNi@LU5QWY|{%p~7VE=b7$%SNklJQf_{%`q$QKTUK3Wc_WS} zk=0n7DJ6VVc$>(Mb+yK0-Fc5x^B@-;@2Oy)k-=Hy$cS1VBUbqoG3=_v)ge;NW>25U zM6E<@dTc;I3BZ0;l;2M+AJg8;x}*DC`EY`W13pr%X^2gcT8q>;coF}|eY0Gb@o)Vy zyZa*1t+2g~bBpiQLuP*s+`5mcKH~Y^gT==)^LtYRn)D-SZS_pZW$mLEA`xI+Ye-vM zh-H&V{OBj9)0--mz&S>XLPjbx7~y`(lw<+{`g4-*?nRW%u+B zG9rD%&TFfaN1UJTy|fVY4bNu8IxzI|Mx^wdH25}1qjhcOMnUdIw|6&_$fFCKt!=NV z?5^n9nZjOShq^*y>peHNpi|6q2GB-mC3I>NVoPvC@6Ql6yH>hW1cLRQR0cZ?%rJaq zn#u8jg-qg{c3Bt$iAT4hOsj1K?-hIASL;c6nT~gUysO3OPEFnNPsD9bDq|51I36ol zU+`kG*Kyi?lA5{Wsf%omxso5bJD*%N`pUQ($mg*rk@iyM5b%taHkk6F3Bk-m!9}`t z^1TK}qy)VG(Dsg6hff);s95Eo8#taHR5dw{Qf`&qO@>yM!HJb+je=!oX4+6G=!bvb zdIe4{Q|;{R#uI1qtq+(gxsMP1Zd-pl_VxrEF&(m`7>SoG75B=X5hjbQz1?%?vJA&UDhg)`(pRkJS0w%X4qVcvU}vJi~!R)z|^7o zk0a>3p7JB;g?oqfQw1J5A@*R1r36wQg}2K)@Xao9k@G8g>rxWp7VFNMb~P&aYnJHo zr-({;=h|VjDz@ul1rNPB16_D<)Cu(RZrxJVm{e;o1&{nzgGA|OntOuGaY8YfSa&{vrVE7MhbLi-K*{J_Ld?(DJXo zP;@4Ay#I`Trp@ppL)&LJ(FzBEI;^}`qroT0)Qjc6&(`TX> z9K9_s*bxR4wm$3n{^8+++>UQ+$KSy2p7@I;sQ$_*9FC?ClKF3>E+|XELhmP79&e_1 z-2Jsr)Kq@;N}khujm5e4hW?gbWoGrrr~01@$J8O+`G1s`OXrW>+_N}C{-r;XD_L>+ zD3#r8#|nF|us$PuGW6!h1?yDThUYT19?MzeQyN!{ba9kKr>%HKYBO^5MQ*Io#2G9; zv}p064ul~Gj^859R};4S!<;uJn<4H7Nk^Xi#96W6o7H)}xdHW@Jq%u_^sAf0c{w~3Szg*FW%_w)?!9jZk(2swf)?c2Cjz!54bVIay5IlYbXVYqNfPM5Dj}G= z)8o3_DG~j8nOBEwwbJe$SuDl;m`G6y=!>vLaL7iQHb1ma~KxXsdjH+@iTGRRo& zid$w00;l|EePW22JSU<6`a)W_7F+s+gtfq7TrFR7T9{xq9S$%cf)ldlI+onR=vzkP zx3;g?mj6(#vvLma+Amj zwR=}gjvTsjTUHomC(p;@e{&o?`pu7L>%y|6q7b}~&TFS3Vz+-*_l|gzb-nOiT5=zeW_N=dLwCKiRv#^3jXozM0MCDushLo!tDG{&6jByX{5O9_{0wX#E2g4GAI6eoIU zJ@=Q&qMIDjN^i38(%KXFI%sVQmgydG1c`1lqz%#%J#B_x`6j63hp~IJT77)fBT@=U zn>_zWDnA$ejVi_tTLhFcru;$jMiO*drC^NOV)^qCdSU}76{)IVtB~#D>F3_Q(=s^H z@v2=FI0+7JZ^3i9YX*h8IZ@d!?8N?1a$SUkO;wH0B-LseKbQA@7*>T6m4MPMB@bx- zk4knlcYa!@WJ@tuTzOp$3pN-ZsfJzC7kGrmOj(G{)PlP8-9sPeU~~E9q9xLp0YEP6 zM`}|inO6NQ=hp#w8jQ-xo&T?D)`9jf0iAll()|jgh{$B1SCu zux6CKvlul&KA~i!Uvw#VPx-gn_2&LKUU`m?XqQo$s2$Ss)(li!P&Kk`r)F4#7i(R+ zrGpqfwhanX)RDm1`X65xg$}oTdv)ND z@q8!B9c7t3>nQ9DJ9?mr3e9W$0{hoHJ$k4urO|UU=A|)hup@=h`-X}4Orrg3>u+(H z&2955NN;{zU}3AW^1&4PK!vdF{s_zHj5FU8PkOt;;1nsV6^Vc)FNlPMklqaf`F*lE z=s)GB?ut_>K^^{(`E`=X_(U2YMz^=b7Mu&bJRA!hDnt|Jb8 z`6#fGK67{VlBXS&$n~vOSfRNGU#ykWyV6o7TX^>DjPaV?Jm={zlLY*IB|9;Q;oTaQ z7&S?Ll^~-4|FcdI(C}1$-RaY)3WC+kKf7KD(Pa_^rHkdT>|Swz%u7sxCt}RYa~NDM zkzz125Zdu9AYJ!sr>(j5x^)~xOHOtVsj#9%?N6CDwzm=TE^*e{%K(JI`O}Ti4fI~7tA3pO3#<3rti1we9Ey_<4iDoD9| zj2R}m-y0sH4ixK@)T!Xe(hz%W7*|ALpC+lcN3GFJI~obgZpcO8R8-p6>;&fnDjsBf z$m?@3__IRnqK5|AAz4{m(Iy~53TtU;63opG099w8!>H-&Z$1q;4t}bbkdm98u?BAZm_45#QN|U6#PsPafL& z;-=QYQ!5S$b(eSXjO*cp67FFjmhlmcCucGGlIl+P-)@r^wb#3qomE>tGwNO!Vnhz8 zggKO)N}PFiopW_>@da&!^r$VpGdB13^yQ}uvTjCHZqmk6gMRI7w=YR7{c9bo0gqIH z6l$ow%>Lrj^oSvCQ1*ZzDelN&yo9Vo*7Rvy{=+{MMe&WqhNBVy~>y%rZ+ zYx-LD`(K(Tl=%~R5cFNbF*(B#7S+n-`pwYZm0zCBkw-)WsGfXrpvO$CY-%5pT0B{i zfMfpxd{7`J6<)Be%zLApwG05117&hFFGdQcyn9A|YY z0ry=5fyYl=`@BoI=ze&{!;Kg65RxBm!fO(ijJ=52#&W^ChQ&VJm@w(K@0p%(X_}v> zRNq(-vY|vO?{Vk;8OmoWEMI};7O>rDZeB|kl<#!kl0?b+yZIB^?AMvRhixTj9Ske^ zPzUawVpXA!Sy7B^L zwwuE9;H>T)g_<1mUl=d;uX`XRDUQkLY8BalEudYL+U)G4<^tI}i``sti?2fJf*hOo zUr!d`DPnulJFl1RM3#!y$0b6p@h!`YgiAFwu{NXVOy_TFF3IBowdEJ?3 zVrt!2SY<#}iJq4pr$!i&Elgd0O04O+uk>!sfvmTKc=W;cBdv_yN$V+CwI&F~{Zi?6 z=U#cPT8L8SP&N9Hd`h7!Sg#(`$giRTkcM$Y+yoJVy_g=`@42s|;wh0`lRU=-Uucqi zUfJln8|O7Yk-+IgO2lkG7Vf!C=f*-s-qv^zPt-o-^`P1c+i>ElXzoM?Ws^riYj>(6T^o;E*;x$TP_d@4f_i2PWw zG<*H_n$vDf`?Cn<;}I^x3^a-FnmR`)^iO9p&*|s2f|=?*=CYsr=J*phu{d@;7euDz z>Z5mu@c6)(re9H0xvKb3xfTw-GQ+s(B(jg3wMd0G_D~r2(+3vJAS_jm)_BpzF?Uq{-)dK4;sjtS0 zn>KG$4wguDd>&Frwml%-B9c;FPUJP%W4kTQuBX(?WTC1|L&g{k##(T29AUvErrrGk|lzbwTYto?8i@g0TI1TwWJ(o9hmb!GKCekvj^_$Go`Yp+lGy?agV!FM9M4}|t>SlfXmx_YB z26d{GwJUX~Obk%dEHYBK{`N};gSm=o~pOCy~eEsg+%ZxWBL>c_k8j;H`)q8Xz zU^1^Uu>1agv~C7a7=!wOf=ack#kxy|Hah%EJ9VNsiLsPYJ`4C_Rkw}O zM-{Jez(f;8+l>o+pYZ-*QKIRgr8=Ob?X=!!u|pz@Sv`anip7_EL3Yz+eN3G%sbZY*ky2fTJ){u0=SlT2d?mKUpsq!u{V!DKpG~kz^MG1pvX*%zgH}L$ZSW6TA_0H_>dXhj)*q6mv zRVJ>SJ`tn@GUuPn&6H)=u)0Yud&eaN-rr#CC3gpk2HbZ){Q(V#&%KhRJV~XFmsn#k z3>_2fIjX5lP{M`5t2fxaO!%wZ*M0`;)V9{KF=Z28PKhTFs94;gy{6C8?88rW86hrf zC*9KtGJIvsBxkZ{P2uyrbD5+)*9oFxrZy;`$s|sMbie*1|Dx-jJ=Wc&`=aWT@24XrGW>wjK($esC&<|uCE5uhGXRqr@fte> z7manFTdIQyK37Z}NbmxT>^Lg8c3FI?HGea<@aDZkWd# zWRIm3H0H+f;v+dIH{VNB5|?u72b*5V)2brJ;oCV!G9smr*WOl~odboSZ!L9D*(8## zAcX%?yvh&fX4;+?Jn~pzj`mZ;`>`ZPt$Lq{THn`M$^3_8UnQ(CO(zCsj>P(TC`jry zV-<>YbLBw>>0>_;iDw+6r&OBu7*vKU2s)e)jcQsS)kdr40?UY1zI*CLmtj7UVYk?{ zro$3ouu1DBTLHo{(3>-?_F|%IJevtBv%)QI7n&HEgb5<(u~!Lx%A+-h+2ibbXzbH2 z^P;&D^*?s~DIO|gAdTV(>$KRIDvvGCvT7KM!k|bsA(w6nQrv@-;-a4L;VEbO7och=lk(F;+$cBxg?-= z(uX{b8~GI`exi4N8dN50^Z#01ymlBzZtRHLpkA0#J7wxPO|`nCGtcj0gJd2yc{$p~ zf+87v-L*zTFiSwv{$00KSAtvW*xq+3%i`D{LtP}<_tZVYrdBJxV@k8PzGgDM?TG}T zEcXwr;;pCF+38SShIFw)q~(T93ZXbalP4=)~MRg`NCIfGO_JGI*} z{5ES#{%*|?thKYYCrdIje5Rc`@fluxgATK;6Fu%OJ$vI(KTyWIvK_gIU`(K;#myTj ztx0b%gHGAIPE=A4z@v8QJpK0TgSAQS`b=q@-1G$!qnkfwg;lKOG<3zB&5R`0Ph6xR zQv{lwHAu|nekSuGeTNzsKQ?xvv(C*gCW0j^$tbCzbRuz^#h&q?eQiQC{9ne>DSH6P5fIvPicBZg8>9 z16RgVtZ!dSA85W8CZcuFhvRj9M({b*{J|>vcS+PH?bJD=%P7p?1GfQqP>}8kI z7#EZ#BK%X=)+oTrAu@H6(>Sm>d7Ro7%cDKx&gjn68MonV&@!HKtBd7#rml%qcSW28 zG-Eq)teBfwhs78!Z8r8{JHhgrqsd3s?p$~!M1vao*Uhg%1QF!?Z>nvrbBS)tA(g_HX9`x#x;#p$px0Hbs26zP(6ZRV3> zsRxd5$Q=gP_$BOe_UmkI<3#@C;s#VBVyCI8>RnyIYkVEIB{#!H19;}5-+1@imoX!c zTHMKZ(0!yFLyzfqJij@Ygp+*Gn69C}6BUMbG~O1VQXf;UW5wH?NZZrMi)(jGmfI_e zuPWx6WY&yJa_WBLYRNU<>3cDnQ2hz z)-~!l)yvVoh}+}A=$YAH(s@$jv|zPr zVe4bb<;w!DQPWM+hUb->y~ zuu`Z07>9a-0L9L*FtdMX#+C-`^=G<#(m&?9Fzh9XYf|~iSefqt0;rP!@rDAi7~_<= zru#9Y-CR&$Z>=(-Zfl9g+HLwJS4MS)`5sh|lL&DxBM!p(U;);^`m^|SJ5qo`C&%D` z<%-!fS&6AZvd7kc=6}+D3%8I4CI&3(SnJ-D1{b!S2X0F-nzWr}kFT)Vt+O}@8to%; zee)K@LU%jL+qn79-$SubV50|=k-A%Ek4Ji5x(%^Tj0@cT0W2d1`7zJ#?jG)59sEv7 z#t&QOL7k^(tof(4+^5$jLwBYPC{~0LMo1i+Jq`dNJjgRgl7+Iakiy5dt|`hxwP|}1 zs0Sj7c`c>=3ithg-f*vRyA62QSfqYX5VQESsi%oo1_IAWiwJCdOe0`hrKXVm(wvTw zl?K!LQE|-5?ZJ3j)6U9!UDDH?ZQ=&V=^%58hEpxa|2pieKlRGhQX(%&PM0TBR3V!z zh^-F>eA6yoEc#bAn*(Mz88fHrenC1BQ9wm2qR|ypZY)$?-9+H#P1yH9vXH!9>Eaqz zjuQ5=Kd;J_=lZAYcvb#f+N9`t7rNvwH!I9gl5+E0jq> zp%utPE9Q~Ee&Xpx#Mn40^sn&p`1{ z?E#mM$9W+FbG1M_k+EQ3#=G2AqdC?(>wf;bGhLZbp-L- zRbPdpTlL;pe8#3?2`(F-7IE~|lchta{umB-m4>4{PiM+RMtm?MeJQHQrp$wZWn|9$ zw5hE!FoXX-k|v<+T{O{PW;qYs`S`YkB1fp%fb7-u9=$ffa*{H#W_z-r%e^26VT67E z9|HW6W~pzXLRn^&EVX~=dh$0`)Z@8> z2osUy-#KfNxE=>S>dMRLQVJuc_nP3d1#vt_Ah5W4FTz7yNnq?x?TT)H_WHMMP;7AT zjmPO66c>jW=98slfb3$>-TuUATT1-gk&Jdp>|9rDR)_*7`xok_8v1kba*vLJfT_%1 z3cyU;5~!q(YR2K+mVfy z;aY_MUKs@gIv!zX*!^bLXIo=qsebN&TVV3ZbKs`~f{ZgUfuh*QXQ4JtFD zjml0gjw}_nfz&QcpC)&YAjQe#Um%fZR`Y zp7?M8rQH>h-1d5KWhHR${O&ZX+@84`WT2KU0l|iE_uG!*7{-is(n8zndv`0F=28t? z^7;NNkK=IbqG+`s(0WpTOnu}!ry-Bl{rxsPp+7h!(rlNJz{idgIwFz;w`YCy= zuF)e!SKyd;OjNLA|2eN0C~LIK+emk2NSn%?lTPGMLUQqX?!A`fnRpBTZo_ffFd2pp z|8)|>D>SANkUc-QUph8oGpvwTmWT8k;xNJ~a$gglAb`X^KZNuQEC8S;mS%5aQ4dwr z6cdN|gE{EMs9SO`pm=St*kWpJ0$rP_CTiM#WfbG-)BP_>MCx#oJ422-7fo#qtuU9( zIIf+*y@?!EwKHD&v3Ty?IRP$e_oF`@)m0M`1&J&1)aUs~+s(+z!}PUBO&eFgdzKr| zbVZhZ%XbH=EvtzkvBHe+XLOk2m=`|aJ#!=9iRd*K2NujlkYknIkqm8Bsl?yGTK}u!fZP_ z*ozET=J>RN_e-5^leZG=8ph4d9ow$827Lo5k_YK0pWX6=KBgtQC&^{BLABwc(ZqaH z8aw@@HG-mG={7{9`OpPyE{MLjEQ|DA;xf8ceO zme~1JT31g?JV~?K2`H|ih0aZd0oo?3?FU%yus$w7v2zw?1$6=pQV7NdGF#6Zq#zEU zVAd+Of2KfHi=u%!aIP$SkHEINz#<~W!}tjkcF{hSS7c;t3U2k>^gOxcJD61@CBI_| zbVIj@b|Ewo2$vvKl1{XZ3CKvJp`PJ0fUb;R;g75rmXW+twccKS!BjQYM5DpaV+2RG zso|r9k|EA%lu#?0uqSP%$lydMp%P8#zZifu`T)w4X>CU*&O`C(JjW*m1q8{;ZA!E@ zQ2*eKYl)G6Df2!}^e7DXQ_$qJd+Nsgyjn5TH}tj0^)jbtMIXt$bZDACPOKf+y_=lD zuf4mQE=xQM78T_^?qdJ*`s*gk)PWevaZW zA2p=x-E8?U<%%_X?B$63OtN$qC*c@-FY-_Cg`iK3?H(x4-k!T@GVhdSd^G%%#&Z{q z$dZDYiYAg~nZ|nOnYFQ1XIPikGv+F#ICz#9btHboLeI=zPX#IdbF%_+IbtG+yM3W1 z60E$6H9cX(kO%RT^yKklk@|Jp9X{E@vKjiwo%dr7A59W?UPz}!tGeLrp#sLl72NJ( z=&%@BHr<6+-;uYXgo82uy*gsjz3!v#W2?-E2GZgm@YugWzRG5%<>A7c*~53{^b{Iv z4fGBB$4Pa@x+}cLu|MSiMS3NswP|FoFSlJBX}j12l|0r;6A#AFdoZ4@d3WiVV(uWp{~Tl(e*>hrQ{b~3vN&hFFO z6uhu~vH#3HdiT&&VL~ot7#$tpUaWVah*F%&1N&Pt*l>K7-kazhzGvYNThZjvS|urHsm%JMZ+?n zQ{-Cr_1gUNkZ@H{c)=TEve(^xS&0_HhRk~PNo~i618l3S$qnIDs4f?cZ*D(NwCa6~ z%?JcZ%DbDd6IHh-%#2uJjIxJ+CK|@FjknvMY>Y`$g@QEzbzi@Ca`)IcC1xa!?W3&G zMq(?Jy$fOUlLERXE@)Rv4}?=&g`Kp|Rm-Y%W)Ynjloj>_W_RbS)J#qJte=MQ@_;-R z(GRyVbhpv9fu@lH=`{8zlSIdOEycE_94!qi=kP}|E6Crp{ZQsdf;5}H8SgUVd(&1Q z1pVqF9HnM(9);?fLN7HBI0ggHsOYu+i4&T0LoH;{S@sU|hqb}lEa0qdg=x3aSY0!z zgD6zEFr&k3ajz-9j93pj0u>X2g~fyb2xDJu>$Ew5c@U=$@bD+Qc@4J~t~})6kEHdt zDIF+)Rf2e>6#Yu*$Qrr<*#~-4@X#}g82 zGtJZvR&B|<9dgi;GYb}J1m5?SQLda}HPkIVg}{y<1&`lK^9K3WD*Dfwb-r+`%5VM8 z3$EQSy{XoZ^Qy|?Mjt6&k&)eb%^!b>OT=R5{9~OSbgoe!!l%J|mjLHRjcLbVLZcFI zMt=vz3lP;(MGMN2t-&LkE%}teiv|h(UR=BVZAo{=-ieT*emG?+oiToc>*TFA>k&D% zY>=C8aT!60Nper?KUC!)e&P&I!`Z9E!IO$=5Ev{Ol*D;IC~q`*oscMCP8JdH`J{ZP zzEyXyj}H>gzfRpK=^}bMH93A#j6A|$1Ar||g!pa62un>0QTz%8o?d>GV~xrBvH1sy z^^Hr(fRHNh1NUrAvW5+?)kqz75Hn+KI`@c#*T|wyUI$w__x?&0uJ1hGFwl-^xpzB4 z@6jS+rkOiSZaYYnp3f9_j@E51FP%bQDxL3=oSN{1tq{c<*2ZAJvKphh+jZNKwBpI$2?M?@5`ifgwik2h(_V8ut)^JmI8pkC zFiHS>r$t7F-u8|*)7x$)A#?loshTC7X=)AcMf6E1lFcKJvz+s?!i=;H49# zDM%_NkbPZz8yA#SkchhU$4rUWkM)TP)Y*YE!KW!2$uOS{#Oo74_-0(Pw;8W)hl&|< zE{~A|0OS&Q0;?Tz{(8F(*AmG^UD5EB(HumXUBzb=s_BIfz6kV58mQ!>ofk3+U$J?F zhFHD>aYi^uf`a4rA6-y^*jeWiSOIDry>aK#rRx-YoYc>?T}S^J;6dv;UqJzL?tezj z+7tWW-<4&d#6SNUR*4D{VVEdHram!|U#yRZn;cP0Cf)^a031#)D5mKqg;MYzJP6>FgoJToqi=Laip1m90F~hl@uxk?k6b@FX?dEdeX=-lkjy{*J)LS?h5U8j zXF(OUfT*-Pn9m6u&~FYpOH4PYZ9A6Sw85O|csA!m|ftLPN^{%yY5W z&}7~VGVgfJE2+jyGX*B**UocTtZ3!BbbT>F7~S{NSkuatsB%C(wC;G`p}bM{vMWI8 zXj?CGbv+?sjS_rsjGTyInN~;&*yz{WQsh_Wro7@ir2TuTEXGEL$2ga1rl_t;nFxGTn(>beA?Y4Kjk z^#LQY|M+uL<6Zw|#}J<|+;sSEcbna)4vDqHzUgX=d3-%aPyqdG;$~9o>b562o}}$y1DXFYD85@_HZ9fA0z4J8#(O0DJ6w9A0P^{|zKm%%ebd|CWRGi-(7w)- zE@&wg|2)PPU|((5wM0`vKm_%SsR=s)$fHC05@Qnm7sU6~o+4&|~G zF`cwASnHQIAJWZzURE>5|Ab^mXD^3rne*>WN6lXCUQ?{CUROi}$F!@GcX@qI;TPKI zmHb`CIoX!F$M33|Z;9^?DUM}Io)bnT?`>*aq94!U$~~tGm{G5If@Z$y6MiN$Z=~` z7Dzezt7L1oW_zi%a+I0eE|4sMRX{_aYO9YNw@-?~1NnLG^>D0Vn499f0C>F|-OoRk zrNh|TyEtD}_yJ(xVTmFlf&T%hC4mdlg#8I#9<%Gc zY-rPtC*9p&-;IXr7s5oNb-960X~CW0vf~wZN`7~i*B*_)hzs57GOe0j~*H7IpR#F+4>6j0zdH~M7tdcvBIR1m^MC@$ zdl36?sjUZvZTp}>Xuh$M@SGb0_>8)nrEr%IzQe=fW~RD4 zLvCt{=kQO>zO{=U#Bw&fxr9-k=&vpjQ~AODxP( zfA#(#a`ThvtQUZvl%XNdYE@vXx2C0U!WPz_X$jg!h-@H!lu7%UI$$Q; zbdXSekRAA)>C_px@pE7k!vVE5+#z};-|M$j(oPR#Oa-&!>VOvZDpJ6%4XV*fLEEQ@ zhnfE_-1tDC;F){!Q8tUswmI<^afi)CgG?F|-RgW)bs$i4_FO!@jj0_dS~0PJ$8s^9 zl8dGxPB?{Z3T7x$=`x!cXeEK5*4@!oO-NF1tt)H#rD3zCjSfwymElU?7L+%h25<+E zP(Mr~i#A;oW+LFc)Wi$d6LCxp4!njnvLCU@sD1c(``A_;ngS{yGB3S7t^G1uigtk| za31bsjx#$Wb-pcSGA1wl1e9=L7=}lh!ErW;Ehoz|WDFwGbxO7>bpb1#KYUc(7#R05PCt$Gji&I4b|jWxwLGA|s}dhaIO-7xo)S3x24 z6n_Kqf>|3m!CidI*p%X5 zvl~gOsm5Q)icnO4x_Hef;q@UThXITNqc|BM5Y*=0ejkTXtc-yNts`d9n3WQPS#~p4 z@@U_jK6^St{e?5QqH@yGY-i|@M^xMl?$Cmg!7=>@IJMZNW;-ZuCOkE}M5xp`fA%^Ny$W z@$F|?&nAl!$_3wEgHjX~YF?p(&q@#T3ogLzBuJt*;rax ze2^pbvUJVSCX&&|yU}3U+c0K8e6^J3Irq-Yj4uAKLr)8A`u>kLI7Btssz zJ}{H4pH^Y9KR$?JUkro@As38a=y31{HqqxeCuOCA&!h76r->;x`eEJlmEETJ`!ps9 zUHB7(t+nC^#fww^mu|Z}@Ljk21G5p=`#K1F4NEr6ejBlAd0)qtg_FP=1ABRFuzx$I=JK(giGKME1AkK^&} z`3iM3+D>p(PhC5J=Dol->Jl7l2`ba1;@d_dekp{ajSnI@(`{mSPQ0?mp<>aOJ`b;q zpqu=^`-Da(m(#iZc^g#Itw(z9YB*~Xk&CaMq-<=7h!*4pW*FK(unzC;rP`awtP8+* zk}AkGfXM}quji_oP_LS`PXH#siFDK8YMlMmAV>No>$Gw7!4n!4_`zzo>S1@YqVLyV z;bh9pe%hRKEW24KE!dd`vlYqi{sCgOEWP#u^RBjuH-Y#BZh?4Ogiel$?9+ot!Pb+# zTU*k@htJ{s*#o2J{iGp0N1y;@Kf%z`jc}o9u|)HIa(IACx-C~?|G1|c4hKVz$m!(> z9xR7R^B~Bg{M2<=Ol7KzOE@P zY{4J-QM!s+aee3=y6ZGiVb$Tl*^}hkid3otbrsWoY}~7QanR9-y7#7tCo@rnxVQb& zBAAnp2No3|@QT4$HC(tn-E;ohvc0C*mP2bKmV>8Mx)2sEchNYhw=F6-hkWZysl|hc zna&+HyZ_hy0542hz|eZO@$||0ub1EB%&)(I8g$zPPdi2VgwnqB3@8(KCYyHHs7+`S z2H=(SuQxYn-!b^p{!g4bEK@yUQ1w3u^kKUw+n>^_APLG&uxxt5c==(HCu?k$y?Lh% zP&jXtMQop37U~g@aJwE*V9O&<@+XpxbDdSJvZomD%~Ar{QfyFcArLbzQ#_=U$vbo1Hpg`EOxVo)m$iz6)?G&y|6LNYpWL z-RK)5!3JtKPS)Ao@k#g{W;)w5H+u3;=^=St-VldzsXcxstCwjX&=eRLQ2YuuSv^`C z7marCdt_UFvrceB`?3OY^#R8_ShVBr&}Lo_Qnb#0xnn7gJ$`?d7EnG}F`W!zti~!q z2o|UpMCT3qsTF;gDUKAdF^nHy_z_=xEHY^)CT@3IESEG}2eRRjeL&f6P)(}jOXP)= z^{y%rj>xvlkdFuzao^3({7XTdTe4P9zE(9CB*jG`ZrBMRJ(x?_qs4@}E+V1MPGD%~ z;m?u^cJ)|yjPLIg-84ROq<}LIOnopkVc!!65!)+H<$zq|NDi0=wV#6evmeY##4}j(ocAUh6r|HOp^*Wi@bx{{}tNa+g0U zP9-=vqPZcAPd~kzRb&sl?h){iH>!HqOZw%i;bY;QcRr(PZ0=*@v;L+RgfDici1nP$ z3f-by`)nd3L%Yyw%VI{O*QylRM%b7BT~UFwewT%ew6x%*B&zYJlc%DuYgzKzzA~%y zXUemglY{-Jy{*=AViOt=vx}mgY?;7fhQp7Zk!pTWSG=Mnnx!z!T=SHQ9MBwS3x*Vf zx0UAs;$3S}%QEz75v2@A1wO&nzs4)J$Y{tD-uXoTR&306O*mMKab|98Ru68Yc{J!G z>@7s1t0_7tO-}>lsbuc@`|fDC7DITB30i?eeQJW-&Yg&Qhe(J9sKGc&WZGi9vA%fj}3vczWcQCdLoBR zn0*#M#cy>f2|rKSSC6!{v)`gnLo(orARPv&x8QR{8mD%G>qcEBwaP*8yTX0*mZKRD zyU(4oSQSh)7B(APMY;)$D!<(v%n_acRxJDEFYDw?*`mR$ycdC|?+(B8kboDTPW|*k zKW=BCi>x(<1yGf=y?7*^ZslKa#wz z_72ti6*YkX88rvocr{4mQl8VB4j_PWr}gN_>q^fxUvHBzZlfd)KYl-rrJBuTfNXMj zx@e23ugN}@4p1^*X^0plMEi*b23ltfo9dj^8+2GFN4wa)a%Z!D>6Ycag9P2>zI^S< zJ_!ABqh44jnNYXpCM(G!05u$!H)IdE&am0_zRplJk=7qT0oz-m)l}Jj5(5~TC7s4A zgcX2X7KcHuutiacA;wwdu(zsy(9*D)z?k^jvRa#FZ1*D*sszS`?XT3>-m(15Pq_{j z+`Y(SVw`&rC?%nL@mrSS9Yb!p$=OuQz@tFS1p8HWs#la(&n8OyeEZ;f4H{(+SQT72 z#$zUohqb&1GppA{PGVlQNjB|z=wrMXqw)RYt%>U}i7RZ4t>D^mzZf`Hc5jB-m>Z%+_O7QU8dB5}KJSm3yi31o?0i#h+ znD&}C=cUcJd{vOjnk3U{$LeRW-fe0{U6YFJ*=ee@Hmec!(|PVQb;$)XO@o?3RU6qc zH`-@X-B9bP9<&%Sdv;@XGcJ*QeP(TAE%y$4o;5M?g0_Pb_r_mJyRt#{Gi;qpvT;H-H5(t0e2%dlHTY%74k11NK=LrC zTmoTK*nDFmZ)0(QkUqo{_)ovXlbe5KFPArMuQ1+&Ct@vp@;qs*umXQ6`c~;Mn+IGpu^ruK+Y}R<& z&@Z^txb6Mfz)AmsGZzw?f)pyy5I7~|%(IG0QNEX>5#3Y|`?#fk7l5SzRJ*Vco1K2% z8^YFAGmI7b>gnb{fIDfrQ7szwWU`g&ZY|djMVUFPn)Rr+J};?_3QAG(sOxGk5qBbp z?(!SwO75@sDBt%Q*b~L4tEXHFJqsG_Q6~~AdFvhp(tI|Cc^)ftLlG}Jgj`?F)mdmJ z-jGNFPcj0q3!?4>ncE4rkB1AJ8{_er&yK!-5}4H6UtJ3KZ!L?iDjXKQrEk0ga}O;E;x8chDr zvp(K)j@%ba>#@W=y3L4dn6mQ8>4v1zl37eYmDTxi@KTA_BC0hTqi|TNtKR?mg-dUw zPM&?7Yr;ls2bT4c7X2)L65CPOK^P-%MUArE4TN~1=Pz1E= zN3}cePR<25<$RWw&pi11K`2rJ2Xw(NWy)}e?8^Is!?@E@R6AKo>TX~@AWs1pgp$cr zR}$nLw>9R`lIy9B*VzODEWUW@Q0STo|CrfT0qJYTLKPIm{F>p|C!tM;+^FPZ^7>mO zPqzac#?x_uAG3F6%Ehx0CTn5FTLPO1zx=bh%@44Tm?29T2Gx1{nKlEe%g%+Cnh2X3 ztEW?Y?==q&%0}LCI^5*$zqG(4hPO4H`jRO?T})|ba@sgjk&$<b+%Cm*oPQC)WZomOV#|tj$|}dr8+?6B|OI zvDu%h*t8qZ49J+a;2V;#s4$D5cD48?KkUB$ zpuZ1pxF6BG^*Rc?R_=$KC+4#thR$8gMhc-G9WT4h{&3jMBk)H|40~mxV`Zjm8&qCs z*H%+PivgD%uL;m8#V*CkEv8J0wZHw6HMOkSv%9onwK8U@cOTQ#)0X`BJK!AJib=-0 zQUZ!2frUp&zkO#8@@P>X&d=tw^YUbSz0T@A9Q2`y89R>^Hl9X45T&7!R3(tRCraqF zBp(AIEy}v`N#6Lf&FEk9-D7Eo3}P4Uy++nUzu ziMznS*wlwlIQPLYkp3OC3C&LweMJW8cK&3|a&eAU%yv9`ml~wt-vHLmdGWBiI{z(- zDhQNHm^1dq?4k(8gnZRf)r<4dg$QH64+a43>_xxB&9TQizFKdX1>gL8O_z9cHAh$FyUOg__ z=;I#IjU#;IP>N4Q;WxEa>HCPX#%WDr68aG=K|5)7)|29&*9B>00pYYk-gw=TW#u>gHt zJO8qh$^Ht;ai3}A!zBz|&2+>D*V^30&q1q`6738d6->TNMU;BId z<=NP#$xv>r zwSVcw_4E+DD*y0#+oP}hf(;vAAAht-NHoG7G*Lxpo>4_;omE44fJ1;*+xJE|LQ{Lc zw_Y%DE75aQ}ymBSQ16*57SZY|bOJRQCsR1p7_E{(qRsRczG2 zZ|#5fJAwAv|L%9%Z-3_B@tr^i?f*8~@1Xu~hrfILJA>2TUH+dV`*Udix0xCk?4Og} z=k!*&Xm=&R_v$|xF;oa}+d&6g+Lj9kP`@h@~U_;~Y zlU3LH=W=-eW`qBy84?`X|8+)PQ|=n3)es+Fgo?HA zjqBll-~{&v_@6BBZ(ZF(CN%})`Lo%G#i1oR^C};!(=hMBuHO&21>u>(-WA7bS7dV@ zpdQ&`n2HYhw{yg!R{nToTJp8?(&VE`0xXtgCfUWr)N@D z>M5U`*OWZJGx=@BwLM{N=6v_#Lkr3_R;P(if6k*Sx)3)p~i`oYeOa1|fvPR4$nOcrkeRhndQ^Z-XiQEXhqvd^+n(=dATD+ON{1oj9I% zJB-t10vG##KIknROr=Lx9PHiG1E}bZhkuXU`RTC!VNxoi{pQkdCojq**SSsc#hezQ zp%aHZ9}@p)5sxtMt0UPjg!nDPy98Q7`fJ}RZJl`Zr4p?ua3gz4cIEZ_dEWZ9)dM-OPE zDMJeVaws~_8cSZ^v})#lc11o(J#AR3uJAxyQ5yD&<6C})#wmZ(LZP^LwdgVD^||WH zbth|Rf2Hi&-TG)2KoI;kq*-|#=2>-}MWQ;r^yjOs`07>hXEeG%^p^gopWYJnS?p6% zPBH&!aXcVax;)}u-DFj0Q?TV>_U6R(GU<1JO;gjl0-g_8eto{`D_csu(wlGKG?^H* zk(|bz$L(vArJBpoI(Wj!E9pCFIDxRy_Sq_B1HUqvwf~i{8l-jWIm<3?tBX+_h<6TC0rz*{B)ni^^$ce<99}HzJx<^<&|6t z=egg7t!2n_vs-SuZ{=fyS4)sS)pu5%u1o(}B>#?aD(TZ)uBFb^bBgMB zBU;$-aqFE-NB*D?LbkQB$fvp(4x3(;ztCupT|be-FNRfp+Yfd$6n;rC*T1$aXY&IQ zd;s;@?~%|{PlLOx%i6ai%efzqKeH-y?|N}u9zpTb{xy1k~ZACtQLYjgkr zlO6l(i`VIM?mN#y%M%WDivE`J_@bi!wUts9}HJB=-gZ)``iQhXN}!&4B14C%`Rzed+i=XYyH^o`=<*RpkR}FOoRsP3L9rS;3xaFLZbBD)q4Y#=sPl!lqvG+@5 zc-B4BfmPG9?k6*64Bj2Rp;nc1Tx0Z&^Iy9;oBI-1V6Ul4A4uD;Nl6t*d)C<(F9*yf54_B~8f?WSw3`u>%J7X8 zZ98o~-!5*N#<}3X^F{St++cfBkkk#VdNG|4q8? z%b)!f8maz&E!+F+`~SaX`ycVOFEMU~-}FTX^Kx6HDlL9dQ%BnWW_-&^R<*43&6`K` zqLRV~0ReTNb3eQh8hmpI=KWjoJhI;2XF8nQLE4|9cMm`pKEU^^*VBDF63uJJHtJm-7~2h431?ff}Aa zzSsH>@;yp!`2T2L|3eY`-!|Wz_@l3{EH^D217cfsGA2hjba+zXh{aD1?mKl!R1Gzw z>SkeFzpTVk9ihCgVs+K1T1{ioMIxb*4C$Y)i6 znRiW#>!~kJ<@;0;I{Zh8O3VqPIZg?~B{ynC*^!tk)8MDGs9y0EC*`n_(V})v#y65;vldIit+FKk@jrGoD^`2WF~p|(IiQD8^~EW11K%{;LuqDfAq)5pblE_< z{VxjPMO~mY?bv!h^p6k!hp7RFCEbveqdFkgC3{IYlU6B=3YZz%OKAqMfq)(eQ(Ap~?}gbMk_ z>wJ0HJiR?EQqcu@Sj@+Wzs4y;BY1w4EyVkI$}A>2o{=u!630=I50(7+K`Uw5UMypG zDvHSrfqZp={7fbgpp8BErQ1_GxoVW3MWOzLWjq~)C}6S16}j#$45QJ0*+1J@ufQqG&Zec%i|*D z7WC#yr#i!xKZgO>nR-IP&@Q6%(l@XWg_{E^i~7Y%2i#y>FbTWW(!8sI;0sVlrj``S zUG(+lQVfASIyBOtu~-hXvD=c1qc7-zh&l>Q9t@YuYab?`G#uZ$6$H6=qKp4*2y@P< znQEvpHa4o&oHlRa)Cgb{N^m(rSyNR2yNVzrAt%<2OluK;4jz7`!c35{8>ZxJ=m9y=B>&jz@jnqb^1^65y8E~?qi!6r+MIIVGh?fCG zk+WOh4uNbO5tcJyP-agy41Qx|{|6sd=<Rm5Gev0O9tRkgJA+aVz|NYZ{WE z3*YoDiMtiJ-TxL}19i9tHZESy#;~^pb+B~zoA#A06aSa{KAYwxlgbWuS>uNn)4g(;M) zcU+a&$>_)W^)j_ZJA=A9f)DDBQD*kJ!DeXkqlet%G2#1mcai^y3hq1UkUg~40B{GM zDzrAW&NR+R<2Wk66YdSuwZ+4nJLr|N7{^swH`XLlla5M-lVe(2K6(ca8u4KhcVNi| zDSGzdhqWd`Ew=>d)Om8^l9avA1?L<(x7&8I?3T68g>Bzrk318t_L|o|mn0$UXKEPT zR@&NIl6x6-&d>#pIG-{4Zt4huZOX0<4U6|&hhQ3Z72;tbl>O~7W9T3IeQi%PSgwI( zVgoA)w9gj8MFuPMM6xv^tz#(tAvA`u&xYw7)>}IMrDy)|jau1BqT^rviP`0};L2MF zrcPXF-+-%A*tLI{NYU|hxf9DjnV@`5TM2FMf^hS8)jN1`cd@2%iPhP-_G-t(NmtMM zcQlxr_5IOL`gYGsAz^SfPV2@8%W|DZy=LpO`$OpHZZX-dFaRX&qX29$&0nEKiSphcMR2v^LBrlw8_1>WugIr^)l% z<)Uy6h< zf@<8d-JdfwNBiX@F{?0K}@Plm?0HThP4;tZvpc07^b zOR>>@@jIvFT<#T_7a-|0vhv#aSdcY0VG zFosi|tbSRhmCmefBDK_^%Fp$}Y-Vn#=+{R)a?+J3q^EEFVasMHV(P_!JW0XW2+h+6 zX*XdA>p3#XMcroPIGsDLd2$cBcKGOA@>s2tJe@6f#0TJ6#s7qV*UNXFg@yoMG2`ew z$hyL-6U<k7k#ML}?E-d;BuHnd$$sH$W{yaTApC(=6^fXf*trXUC8N>yT?PeG*O9 zHrK>z<3{Ozvcso+&@C@^#l3jhycC|ekp;a+Nr=>{58G%X4sn2XG?=6Y-@yUd9)YBz zW1luatEgW!1X;sG2A3nm_d0uoR4s#9tvVhgLxRLu7V#vy1*ZSI3W6D_=iUeKLXgh> zQ5Y3{eeajS2l;DCf!1cBpq@YwM%Ik+htB_IU%TCKMz^&q`v#0c0Y+}S;p^$ehneT~ z%u540*FM13@36CP*xUTyMchv1k#)2|oUQ-!*6_u0R(RderNUugEE9US!R=kJ5BL|# z!+T8(n#;2@!@tGe2z0n~@UM=t|+Y{xA8V&WLVT6{B^|%hye5YI3Picp8uZuilG>W=)~MZce-? zEe%yg)-}v{m-+p^Lj|eM=Kc5R>xNn8W%mdCRU&TN>^^l5%S$>!PmboRkhL)_Ot`UH z>l+`VJOS-#9JOjJR5Wm~moFAMv(Sx@BB!fBAmpTbPTJ{gyXT$zgclf1W6F?Y9ksM~DXYF0y z8{mDXTF_hjZwBRF)#feN2*L=>m02(Bu#I-WvFiQlcSpKd)o~h*D;rDrmVp^=uy@*?nn*-oVvzvBO&3!^Fskq{=zZ5R%KO%wiSD0 z0rWEpwt+t2RC3ZaKoQnT>J3;QF;WL?#P-anuSQY)LK8<4P@%*fj`wL`zj!=@1RwOp>VI7YrbS1 z*k9EDqkr9pU89M1Xox41Y(QAUwNYC#N|jCRLu=j7scjzouq{Bfbqno8bCbNaJQH4H za^Rwu>q<^7EhF~v22Z0*WO}2s3}&-k6Jy_^V^1ZU`bJ+*ItoNKdFHY>@a|m*>?2b!@q<-?Ll^tEhoyI1211RTyp3lZyTfG z+86=|@-6y@A%h-_5of2P{KT6x!!y+hO>J#Nny3LUSDYDD@E}@_w3qu)Nh#lkl^Z~3 z=bR9+125m@=HB8QBnp@9pv4k8F3cjHgf%uE9P3#{$joY)Rg36u$1uA5JoyIt(2M#d zOwdpS*9Hc1<;E^+fBPIqUfaUT?r!bYM~xkn_=f(4+(6Cp+Nz#P7bQ{K(a%mA#vMFV z$)(XgF;=Xk^`Fc{S5yM(2P!}f=SK?Qq^v`7U;J+L&OZF?U_fB@Vijf*;CW&E4e@TqDh?(K!Zlt0p`0GSOptni$vafvL?1n>mpZq zBQSFRgf^Txbql>qF<+>C^8T;Tb-S--_1&|PQo}2srZ@aWH?cNRR1$VS4)JPofUq8E zEVg1O{b^C1kIv^lXuV4MUD#f`9cq&6W%{zL{xayq{Wl*g%^w@2=nIJC?S{(@FmIU8 zs*if_as~?SKQ>W61(LGNwc_^XjKbia6>hhUh1EsBHfwJ?arO4-m4oEL1Wrl=J~dm@ zMaO(Ms>ggw^~T*O*QW4zgQ`-O?I44DW@lHeC}~`iMM=b(=1wM}(~U=r$VR{4g%gib z(Wj1IOj7o;K3cq4#2`3gh!{1@D(}06*6X*x3qh@sx}n&Y!D7{H3TmwBhoLG$a*5r;B>s~37FVbhY}G3pDX$sLQjxP4}R22g9z3K zuI{&4V9$2*gixobPt^jbl}}caObjiL#Z2Dw+BAOWw&c@pyetyPu8G?O33@x@*^jIf zzx@-txD?A)6$o3uv&DdIMh0~qnioH~-2S7xJ<-$fbz~zNdXTxtSLLT8FA``GcLRL9 zi1hfcy>YVwnZAhKNoxVr^JaJDP}8$LY(8C1R19K5u)4fOhHSA@g8%ijm_ck)%+9tz z0i2WZE*W2QVK!qUj=sJvjj4Evf7&(8cSxCnx<7#p%9wkPthwO;X!DG%wp>NnY5R!c zM*gbGF-6Jif zF4|Zi{N}RV)lOC09Ff@T$>h-FG#VIP8%R$yoKEsl?U*F5ZIL)wwmua&Sy==!y^}Bx z{_cPZehNQS9;u-DRRV-ZUA886D;U2fD83E+x<5dHskWWb2RjHr>S_3m>A-pr`YC=zSmwBRAw?#Jgg3O|_9U^Z{= z?kWzL&AxfJitGsGOYxN%Pr<;22)zwOd;SS!vhTn7904)bN8IX0WFyyA)UEN>t5a$7 zc=!DF#}ctjRn`dD)P@m3VCL@M`P@GA$C0b+PlxiUZZY8vL5yZJFMJGL4KMl6(jJP= zO!PhFV0G2z_8iH@sOaV41xQLv2@9;6D}!mxSsi$8YIjGBEo21xo1~ghk}e!_RP9igusS;YSxN>s&ghU- zp6}be$_l<&37SsuO~pMco$T{QPd1%9eB&)F*Y422=;MjBMP{$Qa@)*Z+RW615bFL~ zpK^f|dkm-S7F%YI&skuzpznFY3k)c|Rob}taKzpy4l6iIM? zwnvN?;}y_y%>0}%l03D1yBqsurhgn>a@x0hS=O_uHBbUkfupG?8JZV_tNVLJl`h;( zL?k{+X%^$9#qZ_L56p-V#28DJI|Lp{bB4kUMfv=BYBaRSm=!{$_4flAkS{pC%}s0F zen&d4`R*Lxpuo$D-~PPxK_*X8gPD7dW0*a6ySJvaCD+6P220rU%sE_~1%8S{t` z`bF2T8bOhQ*jyEuoh8CLSl{MrcAH;iFBHAstmHjIEY&d98S$aAo1Zx`TW=i4-pfF^ z>^lFO32@SNTdPghiUR_j6d;Q&U0X# z-E6dRfH#pnv=;Z^jNR59fNuh+Ip_#OVH}O~%W0g*DWk@f-P~NaU+hz@h+U~AO$uMs zTG=$5aa&!fqK%|VOTypi|Ia=(<%)uma;IwY~LH$~d(#Qpccw9Ro z6JEL|S$j8PUR$f(D%k*vF;=Z*giC-{EZ}{f01W)wT zo3a~-^1gr>W{TSdK!9!?Tho^=;=814&UTf_6EN%r@kqSTM?AZ1G}Z0-VHKe`%WN~& zPLkargt8&$@WiA+qB4^*PvW1&p zOAI;}Hdp5YH#Jj3PMjJDVk8ObiJzdsfaOvtF})qlp(b(ULJlP3N@(ZI#DNTX5=2vo z%*i$b!TWr?(N$xF;{h00J7GsEUVh4H{$3h$kF$Ko2{{)oY0Ij{$IYXQVC6XcBHU$02F;NuBqiOm4uoiB zO(2RK3upuD?gv-6+O5?FgxO8pNML<|)kFlB{h3MDQPC@$?E6cjd<-wLjgCA(Iink1 zHTX48*4%pM@$;1tc_<8>C2NoTBvk!j%c10*xyL%d0RX67OaLY*+thUbE0;r=TJbB4 zb-om6*kk)2_pWXctsLp5(>{3kVo0x2f1mlJ`?LQxq3%P!LNyOXAPCAXS3efoCB;Bw zov~AwGazi)*hBqNV$Lr!243OVj&t1k@!Q z0OQOwBx|lR+U6u4C{WC0k!SpF?=*!?R@a51my%fVLWT%P5qfX&R@%HK4CZ~-&|zGc ztq{4ydrn(uEME`32dC_J6@04gNJOOYRc^!oA@5UCLR(n9dsNz~Sf<$HkB%+_(>xf{ ziWvB0VRJ~J*=}t)UBM1_P8|%FWKn>O4?54#y-1njT9lljf&N2-vGCkkN=y^F)?cW0 zz$xiZ-nXFWpawn_XLr@N06;R8`n1>n&~N>rhj)T-nSA_iWNn)u#kDI%B8cahB+gtp zh%8V~oUP>%92aCt+OE8*GoPeQ9Rg}oo3yKYM?tONYl&Xz;z{XREF1|xH)N5djB|-| zJNhZ-c+WK_o+zhR{wgvB$6=P;rRuKSJhbO%ZN0iYjhF|%p=24b!w6Cq!3!{yj z5MP)cpR(BLGLZ#w_c((+_vADU82T$ltCU!(y_gfeV(xTs#vP>)mmO<-zJda!?8^Fj zj&L^RId~N@Jub>+edwy5;{g|>(c7w+>R(Z?7rUC7!rodoUql5E41#j)pCHmwLM2?@ z_JC6tbM)}R7e*R(Tb+!J4;lNAbwhvZa@3FGnj31%vA35l|MybbtbiG|f|1S{5m4(W zSGykE$k=VaWm6SX84-a<&ZSV8B?a?H!CY|3$=VFg?2C%nd(Jn5|M_;mQfFOm0xWd> zE%)Gmh5sC;<}+!o0BA(=>x9bS$D&SdG~m8lhOCD}3(uc=cUc?2c0EsNnFSF-=?_;ltyc+cpKb0E2iME0*1Da<<3h{V(^Mik z$$`g}&_CR&HT0(30G_6EldPk&XpdBVm5B*K&Y2Oj2<>RVu!r>4c~7>y^g}$l;2k12 zQdd5Nj$6^+Q_;}vI?f+2#h_K{T$KQyf|mNfnaKV(u7CIJ-3`{_={@j*5{?O7?)e8XNV95gf!KCE6-P(2X zJ_t(Y?$h?vx8)ueE{OP?jfk@cTrzhX+rKAGW)$Vb;MpJ7LJEg@7ePKL1*gQn?eY_z zKV0&`lGL>=fcoi}r3@>E+1O71Kzs>VJRjdZ&X!8?Bl8yxOUsA4Pu9mbiuV zwujAGL<^`I3v5~B?G`tKPZ5<0h7>xwFl{MNWW}Hzt1u+fLnX!e{a=-CiY{nEk;``z zGq)y|N51{l?Pee+25n+Xp=&q4b?d&q*f)y{RQ`C6HGJpj~42Tc!ZX`mx z{u}zPPFfBC*lV`B3si-dCvKQ)y-_=}C4WbDgC437({RN1TPLA`t@wC%WkG^ehMn}f zev0c&IF5-IwM@OtdYoyh!a}fuwg3i5 zol>LH%upR3AOjYdF@wRLQPdNGpV*7{NM21H$T;fQ8frRcmKslAR1ZVSa#rTBw5Ga zMOkYaz3w0BgXx_-YkqO{&AEHJyygDKpZ`+cecYHz2Ug6{YI5w+-qZUED*a|AX0c^A zYkX6x%_cW`qc0U!xas9hvgBMI3#M<;b!O1%EiNhPkM6e9*OO*R&kQg5sg>m>=#kMn zum6fFX`fxt#3zZ#3&4JP87X5CZxD5`WR!R0l)hZ`v@86&t8xDH(i!>wL4qT8#5)l& z=>U6nXs<5JA8BXAqa~7>Nl(Ugj8zMSvOp?k2fbxt z|64v|;gf#aPjAWDZcnWWPq?+Ej3?TET$L*kZaDP&VebL;TP@;9sAD*x8t9m87NYBu z$Um-!-j4#TDDm9m*x7`{(P_hAiYX#^@))fD`qe7Ua-x(C;q}$i;`n+A=KHDSpGn1e zX7QdIi9&v=FAHW1vst{0Z(_(J@$AQXL|J3YQaJJ@mS6JbdT1X35L>Myg&zIsT1)=~ zM4e>n#L*-BD9%9KhT$hoN%^|us++n1;aa8*7rqQ+V}D}jq>c1kmiU1Wu5IAF9H|1~ zTRUjbVh*FPOHFR;+jPah7_j*rn(?%(Ko^G>G&KwHc<9%@*7L+AXW*R%5=UoQ%TfB? z(I*D|G0#xBQW8}~&tEqJMAk=u#jq-o#+gLL&1WQj)rAH{5f1bE^4| z9?Jc{uW&h>MlLnt4x{@p-t6uh!S;R{NRc!*O!b2I$6-N4ZK-faj4?Idn{{;$MeSIu zb551XEWL4xE0XEA#Pzo&kfK4>il}sdM&yUyF_-Cfe6Na&)m1(`7SJlHIpHnwAtz;|ST}AKl#p;*wb$9n5ZS zIV}Tg;T8TIqWW=>pjX|TcG?>QW?Q2y%+&>iE$*5lK_DPE&9=tmCLBgatl^8*(T%x*B61pJPYp(dL^ue5;lB#+YAAQY{M7_S$X>(d&Czn7SGu z-!;Zm!GO!U1EG*Z4pjpViEScUWUXfFAhvwM*w~aD2#X*L6cAJ}H279(xR7fJu6gz8 z^Ob2>8ITGZ@o5;pC6HUsKAb>+?|gn}=Q4rZsf`wAtMbXi?#q9z@p>hqZvWgL<8xGII!pYbwA*Xr>z*5U18ywfLS8@UFJW>ZQ0c&uPkoC^EZ)5rf!4YBV89tIFk4~h~Ns+EtAY` zg@I4bJzRqYo|!5y{H7>V<clWVzj}uaOn3_$Qy*cn}T#&+p z7ND_6NRYmqwx2jh;y0E_@WNl+*qJktwCF~LD1j%HJgl;qnvSmJ(0cJKpecVD*-_pM z6+m(biBEGqZKbuNsgfp#W@eC`vhTXaj37n;V<|ir5YXfTE6>=MEOf}FRJn9C~ zupq_~;kXBT&5k!c6D8=EoL(^>zj#aD&?JB4iiw|1N!j?^{ytDUMfc{zE#O<#TV`}Q zwTzO%v-SsiluvJ%A}}=u!vUv{v6E&(_^0?6FZAFC*Z;4`>zFBD7``2h9^^Wta-D6U zExszssx>qFq2n37WAng_!>ixJ-b9%{3@mb&oxp9BfDwKOH(~thZ!o6ORm>vyh5w%y ztBob0`LU$WZf<8=8FYEp!pjPOoN6%hOV2)cg}=(`SF0VhtwSB^KNcP3j2E6wi^LC| zkN9_9?agpYT+K{U0cf5!df@R%YydUs4--7(xZYt())4+dlfEE4_`gY*D>=45#;Sia z!D^H}xn?x?Ur8OVIpcAdt5KG{+FhM}q-Qbl;2_pL?`J#s_TgC=WhDHPO7%vU3xTjV z>+}&H5VwSLf+7=t9KHLQ?OXuIM}(aUXM zR8yhI7+Uo;Dp|;{sU*WqanAJY*4q&b#t;;?v-nk-G=gy(B0x=DadAf#@_X$B(w{{~ zU)DLEBsj4dqh0iLTwOOq+W$4#DUL{+^>P+05q7qDvp_|nmn-^FN@^rE94}bx8jJ^t z4T0iJ0>qOp$xntS&gKg!Nt-tGs_Cky>mF@=DB%>cg=If4$xdm{@hb3hBVP6x+nG`B zY_#L17fOS1!x7D+b0ny9kwMmgLB%t7&M+vHLJF!BJKz!;ve?=l9cb%OJNhM~0`9I) z=7WNi+VWntL{f~%R`g%6st}Y89C-cw5h4s6vlL#-XjE=`aj>=`%3&z_LS@3c7B{z} z&S$n8GAo&YpDB<@#MT@2*4lr~w{yhu!Rw*p5=;WI0=m~uj=HliF7S6E*yt7uWG|<4 z9qIw^gmMW4OmMb0(iAgU+uc5q*WwzHYcLtXi~x38Z6#UTYwE2RTlfCy;}7k&u1U7w@qo_? zAgbs6BEa`t9b5Nb{3&=`PSMAy{&}HE-*U&Bt-uTcDNuA4X7|y`QzI+qJ=D%t7!T&T z?0{t_A0XLJ;)=d52JJojuT%g0?9RJCf0h5MCX|d<@}TV2^74=1kf20e8s>6bm_M?5 z10cL?0q}cswSChCdY3jkpW3|N9KZiNvi$W*wiGAjgzc`bJoS+LHg2T+Yfxm}HIW~i z4NZ~bHjqyr1c&GCH(oc8-#;%nJpC;+d7&0r{zQmk05jXoTnSwi_D_Xc17V?ekHBpP z9e-rF!eRrg4*@8^+5mJ7@x^m+rZ~i4-d;;|MWTDYXOQzp1LtpFZxVDKb*G&}mP1k@ zm71tIi%S^;UG?wj>jD|sX7WiFx36nW`hMS7 zaB8#jWU}Pe`$hadhMXu1j7~t;p)0+9y!Dzo?-zOP60ZCMq6HBysHZK+e3-!B53|Lo z3K}8CVBSiffDW}W#coe@FYt6fzs;oY!OqQ(3O4@*d;j{r0<^7z2G#gHepn~f$WMF+yN&9EelN+-+KS+GF0l$ z=E;d{hWz*p%e&NP7~n8%0kx;E07QOzG0Nq@v&Yzs5ash5$o}9g|24~~y67tt`Q{Vo z^do)C1$rxO`UjHo+W&)=L zR0Me$vM@3AP37SL>_;Uy;(SMZiHlidAj$f;dSw8_=_0Fj*JTrSKiz}Q+A-W)veL*> zpl=fceh5>Da$C&tm4~H_2w!QG(_A?LRSq{V#n`Y~SPWd)!KzV_bAUX3!u}ep9o(?> zRJP_;wXEGYr_QgO?ee>T$v%dW3dF5%tPihZVNfI>nn8_}VZrlRX(Glp%+1YTgT=z* z#NyGFd&{FtSc|QY#;CH1!L#UUpdyxF?sQVhQ?O@!0UI6QFCvfFh~zmp>hyB+VD?JiN@CJzTv*_5e&+V#}um2=D-ds#F|FQe&u3^x{WjW>!AHm7k za!Gh?sh4>vNEe%^R?RZ-bm-*L|2-cQ7v}RYM?lqNYwmPDyXjKTk^nVAohR% zbYZm&y8%4fO|!u!>*`FcmSo~)z5i&KW#u#xMAb(dIGzy-aDb{B@_HX+V-)V)$z|4{&4Y$fuh zPW>+vh$J9HBaS&zc*QX^^3Bq5LKPLh`FGXW9>Xgcpd`Z@6aQ6?%3&K9w8w#9o6!}K zd`SKH1qCy_vEMjz?IiLPY_F~I*9V|0o@{%&8sAWG0^fPnNZIB0Nj`2(nD$oqXKXvc zQRzycCfx#%<)Dk0Hn7dyowBZYfcDE2J!tAS7~-n=vCJ+df7A=Tx2dyndTSC<;gBqy zYP9M|^t3(!zwuW6vl9rA_^wdMgb!)s)S7B67qQdVk8UfuoqcFO1BwI^f?Y&VTPLAr zb%KG;0cAbJe>bjY%VkhENWe8fY&Ga-U?L6_NPtgZf{Y;&ix)O3?sV-e-x+wB12)P) zzr!l*#|X)h;etZ0^m-6yEwn_GOQg_TMio0GIv1v!SSeFCRp^#5e&&fhofTba(#XiQ z*!E;}ZK+{+W|+N5S@W6=3(E=^QAsLyd}Y9ZsGvb!rrMFLaRdKPC$T$h(Vujm`$x3i zCG7XbXvjbY>Uu?g_L|o24R9+F4Rc|%WnmDA1--mvA*Y1{uLC#@Uox&|Ht!HLJ)}X{ z#%L!NcCawtc#hP*Fb2xSOeooEAGP9vdSJIqMqR>odW5WO{fjVd0cffR)<#Mi>piP| z+>Rl^;LpA`!#dU%;8*Rlb@-rL+~XEjV3?T*)-vKEh%!Qq*q%m_-E1@|y-P>IfUyfb zW46)P(CfyF2%tN>P1(=*Nt4@K;==o4_~5{iZF{(onAKdsTSK zC>8ctyRE0+o-pJ~x~53JjH_Zy!0tmR<#Td!rjXeUE1`-rk~H&(WT z=Mxv^!E-*BO}XE4IE5gSDOi;7=hpBo2aNoT49$vOjY{UaH^NXwdZ>Xl9tVxwXl%Sx z&}S$wOvTCT7VlF9AN8zNtdl7^#j3Nl4JQ-V66I+`A;C!$e=z^hbcUWeYg90gha%ZT z+{@V>`((GnAGW!{C+`~DD5lcVSnBl7feYJ=jc$H}^b1lr4ZUeq_2T3~Y^DIL(R)i|`<|#fPlE~=Gr>a7p z{CODA3YxM?0RO8K&~x{vcw&4 zXnybmOaZxOA9RrH&TcVKVU3)cD<`87_yyZ9 zQIx<={e1-H>e|%q5sBQiVFL>#?w zhV1b09cC+J8G83Mm?;sDpG6>*W1p$MnK$bsr2!MC zzYD?4M-3BS?+s^r-*WuBW*2rOH}c)z9|D8FRiht-*J?U?BYwCct{iw9Ci3sj^u^`W znQNjMEFVbWy4m2=zKAOa%}&rw>wkrU$X}Mdu6mBWl4hZ?L2}!z3cC#+93lC~p44SS z7Eo;@$L&7w$5+(uU`B&l{2-cs$s%)fTqMDroZ7tJKVh90<*N~3sbIUQ5mSh_BHQRG zd?&_>&@CARRAaK6Ugk~&erIvi1P4ek>f$VfumQvR0RoAM1QakwE zNX2M5lmD}*)C5%-=iv!55lPxSn88p^;N+<3C>C`+IJNr6Tm(#UpTU-~1RQ3E4PJCQG zW_xSl!+WuGp>GrB=$}cdRXwX*L+D*T7Gya~brZ*dI6)eH_PPIlV=DK!AGbcTUfs^d zhA&hR)UTBZZHaXS-~T@JXz`4drM0)$Mb{GjRbWZw!)s!;u)@(QWKpgwaE5K4nNiag z=wK>DBH{puWPBFm2x=vGIMwIc*xf*fwIbpc5*de7PTGb5%&6KpF~ zJ6sWS_DrvjE;Wst1$FrRFa@HGd6tH!YIM@o)O}_CgCU;Ag&>>kVw6QoK6z9-Fw57M zY$U9sG-o@nOfeAjv)}H-$o&?bA_oVJQ%a-5x3yL~ZbJ-GzKJnv`_93BRS^8Tsv|UE zBoZi{U2=6oJVWOq3xAbq-;vAGqLq{N3U^Q3()wbK9dyxY?)m%l7=fE3r;b;W_0o3i ze4+#rmSzZk4|!a&aA!jyW422rEfap@TnqMW%1HRoPFAE zHK;}faj9Jzb3`1OnRx5waSc!1RG=nb(k8OHee*y@)lzn5XcmtVz`S(nrm26>yf)OUOf+R^i12Yl&HcvcSNm; z8m60cfaHixe|3ZwHJhn5Ne$odAlBiO*IxUi2QyOG3<jubLa4?kr_r3ua~9zCA+A~$_J?z`knd`yCqlrDih_| zRUMF(ss=9&<>sul*j(X|-I;bG(7QRC_7VRMCfCFQI`Nv@$BMrdxIH#2PGiZo>g0xdq_OX0K-q7 zlHQPpzbTB2`~grilYK2eEL1*PKG~CL_`a^I~>21OWPZ?o9BvZ_S0ErwD3KiXKA$78k)#bR1RH>@Vj@1kv%GXWC?N8q4~tQ@b!1>VE;ewo!_$==W}gRPoR;=-Fcs1Fz;Y}e<8L+#DQ0ynqQKrt7TJvb0tj?~`i;*Pr+s2v#! z^jr7*P~ef9{(Yu~Oywx0ev_i7A>(&inpotQ8TCQMv!IDcuR~sSlR+lYYCesLLl3T+ z)^9gocP&KK>gHgsI$1NkLEG=Km%m!y3lx(QsZHNeb&0c!viuimx9I~We7eh%S+=gD zvg(S;RHAWJ7d>iA@!K7%m2Y8ck`B2#4xUda;{y=Kw`PfEqPR5pY1Dqp2{>!+I<&$mQhlEXXS-h^CZ0j#j*=+m^}_+UgpSI>XB$5@eor}#7*J|CxiPH!nYm?3h8WW1)kqY7|lfnXf` z{OFkNx%tYtBs!*5qUJGG&%L9rOM^hV{%e7vgV;c&f|5E`wx{KF&&?uHs*tDm$3?Rw zz*Y&dXBwo^dTE;Z*sqWh1Ca0mrFZ*FUR!+D2{TLkxasMh9HMZ|EJO!|%8*zwD}ZoG zDZ;4^nY;;Hm7`I3(Ur)9zHJl|6)ivQ!3*xIV2sa-A-VHod|>>FUGUZZ!c0mEZ|ueR z`V1=AwkfMY$v%-ModWNdT+s_;%j##n0zk}-seBvp?ss=ic&~@4zC+iq{URD$N*f3S zMgs~2#s+E#Al3@1ld%&wl5^D6+LK~s?TJ_b;(hm5qm4^el2R+k!_D#mdAC31AIHCN*!SUju0Hs-AP8x@kbO|czc}g=*wsXag!5Q5F zZ*$)kCKbqzIS^(cVSHD#gb-z{t>=1VbX5PCw#ybvN~@0l>g?kjc*XA~{K<;PGP>&O zoUGIt#dXxfL)q&BO(*QZas<$eTG1&vC4fX0ULx@{sv?n-jx}*k_zw9!2NkI`ui$3a zD4j6#9cxdUJ~A~%wdY1zdOr$_c(mR1B<4{Fr7nAYrq!b}JKR@#8j!IS9XR&ntd~n+ zzdH}(k=aG$fWm5c?+p8SBl-oD^N(M|wU;pp5@1Ip!^zbfnvU~ewk-5dRck|lX8K~d zMU;@Ugq50XE_9aAd|-Pl!t~cYYyWxF(xFp+0!@`BmC!9BAMghIM#Upj42U>&r!8@# zcZV>NHnk0s1AE} z`#Fk)=D>HVJ1?&UmsY7F^R*Le;1zk7TTVvWI8$M zHlZ_@#f1OXaTn&!N|%APvn=%MZY86lFYjVCP4^kW$E>0@+Nm{(@a#0caw%GfR<7?3 z?8Syf^NvIE^k+8E>=@Z#5h^SX&Gc9A}u(i->_P zP$FcmV{!h)t^qePTyOQ;%!H_U+SVG;I-4Sx<>N z)OR$~=!bo_CS4TMiLp3}EJX*YW^Ioxvozgjy=z*NJ_6FENKOC!0E?dGyHa}=$y84y z)hA7Wgw21S<-cw?+<5tB`rgf>8HY>BQRm5rr(x6PCv*eTu!BKET-(7w{rY#FWz}0g zk~7K>$6h^R1u+P<<&}e(Y3u)1MAV4BsVC;Y{L)xk9+X&Laii}fbqK8hMBsu|xeYaQ zG{8;@(>^dfUH19Ow!jCC3H-plu55t2HtASx8(uVDu-<> zg3mQ7aAyBRlq6yGjr8k(=;--du6~tiabl7J4l=NEu-0hQ*C7a=ulQW0+ zM8Er8AtgqBj!Wf$)lKOi!QV5iV|%>cmKiI=3l)_NT8V*wH@^fh=+lbsv6Fb6e;tpl zZ`Jg$*^YRxR;Z!g|yXwn28InXkp-}7q=t-gn|O#0_HD4aOEG{|6x zSu4*+90R$&22;x*dJ$OpUbEPN0GP8|$eTXXeW>D3(L38CB8kNv7PmnNmk1GO@z6{d z1S)A109vHTT&t?2XALHgT6ZmvNm9}uJ(30SS65K1!h`S-gbz#yUQ@uR=yDq<#HpI$ z7ia5OlGjQi9?EGv#T|wOqCt{I4sGH4dD+x5@q}Q{YrWDX9Gda1P&;|7WopC`D|@w* z4q4(O#WKa{$njaoA2@ecRDr_lpnd;!^q*a702r)p3{h?(C_JqV_smC5*g|z5}IR;=yd_FV^e*yP%Qx_5J2m<8jO!cU%sp?SbvV}{-!@1tpEJ5vy zinYr&OW_XT=3{|ucIQtb;9MI5&;t8TC6>j8wqD-{vJ)v9p8)0Hf^M7-%oe-dFfOhq zYi5pwizdD`faXBCwMq7xnm%l1QX=9)2NxiPTeZ!3S{!6bn0+(G_X4Z==0n}ep`*IU z({3ogfu2e*pT##bIF0*lJ}IH&p8E$^z8o}+s5o}y!A7u3cN=ZhJQhM8!s?Dc%mH&! zE-l4xT?fbuWIeZTR1U1_(f4S@4CGhVmT51xEd|C!ydW>oftDpuU6}yQPORzkSDmO- zcWL(&QU)nOrF2i5sda*AHIJ6{S>?GRWUoYgNYhA(3i`|-z)?3{} zj@(Rn>(c#WIjDr+C1GOEMFmx#4L_Mc%Ueze#gFT;*LUg=3T-Sit1 zecF;jc@W<|yv@}BjDnTVYs>9^?xUxEJGD{Lk$#}k2QT{>Wv(^7#c)=TX|#_t`2Waz z@1Q2ve(!fJMF>hSQUnPdK_ns|O9TwPC4f?dP>iAyihv>@2rNk`cA5$(0tyMm5Wr9j zLKeXSwuM9p215+uT0#h6ApuQHaxR~}-#yQq+54UI&Y3y?9R6|!h|E3rb^Y4+_x)US zlXu(I=)URkE3{ltO+7snf|i8<`Rgx#`Yi7{qV1rtO~K}Dp`X+=F?$)E98Jhpb`M?2 z!rHjaDpWlIva!M%^*HFRR4tIJg3z#Bt$}06EolnVwRTziUl#oE@VtI~TsQeLD_1%* zz$F<3G8DOj0Z=@T9yomRQ@8Dz^Osz%SqcU`G6=_QLdML=`qN)-d{r}29*z~C{UDmu zS~=G_Jhl3X)0Qh;(+J(IbY*C&xv!7s6gpsyI`zcSKB$(+Za0Fy2GV0$mAK+AE2hFF zpg0C!I^zE_Exeg_+Ud-XE&{~kiIcq@i4bpmz)jX_bs~LODZ)+n@lNwh`|+&d2c;Ex zEv`Y0?JFa&J#{K$v7$))^cTnd4ez%n`vjG1xOTI9OM0|@cG|Vm*oPB43FmPe4R&6V zO*YzlI%O&}JdBTXS>VUtjc{6z9{V(*RatZ!P&X20h#vqbmz^2I#kYLC?F%-l=VzSv zE(CU+d;j4!skhA}kV_Tl8oUyOGZr4`GTV9{*hxbzmimk!7oO}nQVD>^wCF~ajIF(4 zSglK!PFWp`8Ozg5Wiq#%#43TYCUQf(u51-@lGY6JuFKwG(_1hWmygcgn6UB>Zs@rG zA1^@?a8{G<#0fK3lB`t6kPzR+Mr^5H9Ln{U?5~EK8)R`X+?BZi!#YR|)I(Ly=$4^l zQQF8!np#}A@rtU01tsscl+9wEv+%xf=Ex9eW<^UF)Fr2@>5Ld(vM*=YsDF5xj)J;> zSIHjVNQs{;*~ zM6k9tx-O}k3rD4QuLtZ_-KH2W5rr@c2JQS^O4_GZZofTRm7_e!i=o8SNMd&yr=L%2 zIG>ctX{F$Jrv z?R5+gh0Jp$TNx1778P)Kg<_PHoyZomxtTvy(gR!H%&}ryO>;uU=>imLBA+28x7)d{ zilm~|)xXvW`RnJrlS{nut-p~lw9eWOz<*~hf%WODd9791aYUP>XYEJ#0v7*DX=Mo z@2Si3*(D6?E9o(EFz%?ixo^v`uPH6sRP|YdtaTPm(WHE0p8~X2F+9q1H|C%265OY7 z-N*T#YvW%PE@5pIt2ehCf3QPM<)*@|#4oN{aC&PsCVrQ?&&VAn0v~6=89P;jN?hOB zpo45&T5&Hb&nU1BhS9=lITZMp7v=DAma!=Y=yg}?dwI3rgAkA6kUD>s#H*X^d_H#@ zM#)|Gd8uHPY}z}Px@yE}cGD}av(v5lRYn^Yvf-~^&+>t#2US8n4bd?t+6+R2eHC;6^*b zfpHZl94OvGCVZoG^b3u1`i)ECQWUFXo#V7{>LO84ek=i{%%GCE1lgYY=Nvh-;`yJA zIi6e`=|^RR6V?Q-kp+YhMf^FEY2M+v=cwLgkV$>@eo$O58XIhD2R8Z>cJHjfn=5&* z7oiuS`PVPkzopA(Xnphgv%rrEa;|)mRN8l3Y0zLo zIx_CvN7y+in8rJ1s3capj{le_%o~r`1*BU9(q9a*RLV;XBkoqj)PHMp+x2t7VK~~Z zG;^(AI>(hvkRTtJoDtCQV@M~aVkXR&)&b-`Q?o#}%|ILeTxp3WTT^MjXql@Y$DY7T z*b-5<nC$25KTG)nJ@v(#NWeTBgSTc35Q*%>zplTq;eyN!gv1~f zY=Fbh_Z>)`-R2j3a#6jx1pFOCnfarAv-fyQ*5Td#TUwuZtLmygiTluC84bJJvzdY9 zInm`~={}kI^g@!<=@+Us-z{4GAw90 zFqV<8gitfzxV*E>z}YDxHg1Az86j?;NMfQ^E992}`Sjdg4!)6OY+%A?tp{f^=F?|& zRY3H`jEtRuH7S@=0>$)s=SGzT^=}zo%Ojjef5cAGQzFHKA!obK1My zHvFwH)GoZ{Y=@lIbR!l?uvFt7>b>3L8Qa&E7FP~D;|D+&p~9YNH-k)K`WL5(-zL7o z?=j@@>Vu1qgRn2Z#H}cl%g4s+Sis8$%H+_HedF{d?%LNj>AXl;B$bE+R}E44Ra))@ zSS?_(O*MSqRlIsJ%@R3kQ%8@hK0kh~Maq&&KfIOF`N1n6It7!Hf~8W749nMh&5u*| z*w$i|D;mn#9F=Rp{@VsL(89P9Dihzb?h@EJMyF_jMnl!&n#1HHR#xVKp^^DsR;C%FvhFP9u@JvxZ?k$#yrSNUF)uhmM=^8~$&7b7u zNd5QN;Po#%DCu5uKX$c9K2jCaUN@hsD`q)N2#-q_DAGhf>FZVuzNdw>J}ihNKW)vp zN3{E?V1pAh@eQ)r!x*NIUAt~xP25_wGrqO={+Wks<@IyzwJdy%lpsx|0nD5%5MQka zb_b$2C}vGHe}drd`;v{3q5*QnOiQcG z)Y2k|TksEAHcGlvVY=ZxcLyYa)|LKDA<%kwcz70#K5B46e#_26(v&97CT3?7+%7cU zIi!~s9K7ubMwm+p%~u6s?D%CFwMWm%G>|tEx%26~WHTmEAj<&_@pkzK`LycIoen(pOMDF%QN}?OLmm&ezdjm zP}K+E&nT})jt(uVcht@uo>c3o=_EFS_B;yw&%rvok1m>);5cUX(Ix@}WOBHk^$ycm zjwD+eVdE1z$=}HH&pOdEvt$1>qrE|}eDjL^s_o#*pwlLXYQ}LLLwm@CCc3d)BtCZRq%^2=$^fv%2!-S}hy=y4!>ZE@Hl(^kKV7hBwJ_W7pPO zb~}Hb-O~@i*<~;3tM`WEN$C>ft3k&AUG34f{q=9k3}qI?1O^rg}v8LQ* z6u<({F#xG`gu#m-2ckZjFOhQSLuK`qaqOZRkNd{@j6fd1LrNd-HHN>IG1RaC+Bq3m2z9I8*Y}8FVDitw3%|h+*NF!^qSbcg=&pN8Q@Q5AKY)=ni0M zmbqneT`M4w@zz(%Ha0L-8M!~asef?1-9CKL8Cq9(??K$@{T`=t6LETG+|`@k?}{eI zlE;-H`>oJ&vRnVvzer|s;*pW7{2gsI?rQCrfDZ+jNvl+pN0 zGG5DGb>43#9^Qf>DJEHF`OFBGNb3xu^zXf3W!#lPf|!GDJeZPExDj#M@_L7nL@S^x zNMN=j6U(i5A@i|y#GH;^$*PdVCJMoAgOW=7SD76iu+l>+w0Osde!CwvP2A>mF`i3^Q%HggL84K8j^Afk}( zOoSw1s~Fr*VhOkmyj*JX(Js>Y@vv#VgYk~jZa{iWY2=e{NAAt9i3!g6PTWV$kq$~K zJ&;Bhiqy?zis^8?ftX85A6HC-bL_T*5jyPwxPg?$R<)6Id8UF%gB)fGn31$rMwVM2 z+T8hbWR*6I{Fb05KMb#D^ylZ*`J*X`$y>%SOhpI#9tWo_X}Z9sftB%(uIjCD=rT>g z4B(5EC~Fj7)|5Z+emfiGVo49GNl?K&XPM3e(=aV9)ij+B4eJV^#3tl3CFLv}?JR?V zE9fBKRHL+8m6W_VUA!|jzyYZ!|HW=~9Aa9mD0gbQzb~WV*yc{$0tE!)zLG}cl82#B zJUd?KeGA#tjij|UV;Z+z4bw&y%I`D z&Ujcwd_v{1lBtdcD5sJV;`PaY>-`;+x9`hKzMqWT)74-9X1wKi^A2^D8&}UdS?nRV zwR@-`d(>?w=RaPkzxJ$%Ibe>lEf;JazTbT;8Fe%0l%J*kzFs4*QskRIaBpZb#>lmV z@_{+tSUAnM$5RdC2xW%@8Q6H3Fld>MYw6v2qX-MG0m&}=b_<<-*k$FMFPaSjl5%e#-|WDOy=C0L_`BCPZSG-Yd(@d{Qm9We_9=^u zc|b$F5mKaTw`t@+R5)b25OHW_MCHT|pgS1A*Nk&dL4R1l#WNo-RFnjTzCBR*KInC= zJyK}Ujy-G}r*`ckTWMa%S})!GGbw2cvEK5W9o#u{(Wy1PJOxx=i+53{WlskNjXeLB zA_z#Nmo{x1Z&yjZy)Z7#6s^{H{6jX#@N+6_2#?K)75O71-T9)?PcbU|7!WRn`9~Uw zM&H{xW&MEyL%Dla;#ej;C7%(wcemV?NS*`4hmT@lEcYL1NqrNsNmDj#YmA2Aft4kMZ zKYO;`iERQB;KyC&a!2pI*^m~@d^#+@x3!|S#U0%aWct)h7MGej&>EP}t*5N1YXiGN z-A<-zLXDDM!X1=?*_0o>JJinU_4XFsroNMZ*WZw4eDei>&c1A6TOh(kGuhKiz5hD3 zKRUKsusgqEf?1h>&Ikf;ex)VaK1Mr`DJn$Pq|=kP&=lp;La^5yc7)L{BUjFJ!yB=O zK_le&j`^x|x{{~9(>IJc2EVlznC;FJwXjCiuhp~- z$YsWc`~Rb=nshn~)&YiKV40+Yb+#{YoZMhie%@Q7Bb6SQ!dS=Mqs6B#kV{K0Uo*b! z9+_PjDj$6?vV^u(Q_(rsBT`W@efL(N*R(hI@lfV{DG_xuvY-r#>uWsH5>ehzE#H;Y zG#_nG)hFP_Z6VI+YD=AH4g1G-rO8cAN)hmfQ5R9?oF=zHjEz1eEhu)6CD-!ou=ugdA-WkVnYzRB*1g02(|poO&I?y@!YgUSP68ij zSti_z)Qy4Dvq--EHi}H|s72|1IHZl-rft40p%weioY)9P3JahtcJpEo67!|Z8MRs9 z-a8BSTkzN|_;r?~FQ_*`J6iVL&sl*I9qCk5?%Ofn9fVEk-;$Yu{Lvt8Z%O+Z*={zJ zN@~_xhT*$vcuoGRVkeA))znn;)R5fv+J%-@R!c(~00! z>IA1+XSZ6d3D8NHVK?y@(n-cUGk!X(mk}HaD4~_RQ-|yp&52^mB(sXvr!R)e4L^ou(nd5zrD`N7PCrZ!e7rOoSCX)God_44H-dprv* zWqcnUmwk;5TIwvv-Yt%Ny9gFaPPT1^)cg2IZ=} zgR+V;uQ$OW>OrFFXuJPlaJfN8E!dg;CzJLiF^8$yqsg;0O*Fj1{NTzPhHa75F;bdm z2azl#n%410_g?bJI#xyA`X8<;bx42ev%(_@u@YLldO|DB<15zq8mH`edtDB&#Im21 zHaaVfzR zZf+`2viNx94`-YaNWOxBg6SmG0@1bmWj>0`$R&dO7hmh)^~Cc@n#ya=9wl{OXSsE$ zA1B1q=%@BJ(FFJo{D}Qi_)TB(x^?aUa zo@^$W8B|#;+&+4eRra(j<_Kg-u*41>SKO5UJW>DjF(PU0HddWU2f}k)ZQA z|6|{rh$>}(xh=a}is+^fjHeF({qwqn!4RAhNkQ;aeX{4*;;V{i+_yyWd#A;_=@$)h z^K&`d3|fV2bz2|)v54v{kc;u^Vm&fbTV3@Pp9KDc|MmIg3lHSBznaG&9u9n*5y zS1yvKGI7~mzOX^Q+gI+C{+wx)~wG zB>O(Pn=S`pTfcjnEWY$D6BGLqy1S}Od(9`0Hf(giA1V40??79g)K$0yzc(5+Ho+g) z%N|v34yMNFSP2=34T`*U>Ce$+zSx;6&2Fc1nX!f7jE@S`-hhp-EnoAEuK!@?uMG;L zqLP#C3qW7Lok%3|V?lePGOug&@cu(8Cw^V9wBz7wo@Zv%Fj0igY~Yq-h#O01s%EHD zi`Q!U`iZA>F%cT6SeemS1?Yr*u_9IQGeVds=)|D#>YEL|fz0jl<&t;%>ihgJ2mIFz zb4Mq|^`%j2A?60$g>dAV|E48Ad;O-Tf*+tX@YnOs>L{p80a)Vh%x?iU!y{9#H_8sp z*{GfNF>z)7EWezPvtvSxeXk%h@$LRmnu*VimbAC#!0@5Og=K@Fvr@i5KbWIW2fg1m z*TBmo7rD-F3Y6!_!Cl&fj5dvyc{V|+V46;C0>$w)D$8bux<2v#?!}W6Hj`pZ&mc2< z-FMrdPy(DP{n~XG+8a_9E%Q3C#~vOS)_9`R;nTJy^DKTi@}2(V?Puyp3o~p<26jt5 zXRVvkeaff`w2=5kn$9`hx4b}mc4zbBF?Hmq>n!-U@d`5p<&(yI3=1yRmc1|i&j*lK z&Bi&}9(JV+ums=Zf}T9k=d;v)XNkr#^Ah&d8+H`K6`qPED(JJtWrmyO39r1a43!(u z{gKNJt|fMc4Xcch?ajMUh-~w7hHv5bcGDN?PEnQN1l;zhpGLJiEQ}4w#XC4yIyR1_;ViBzzG6aX-(A6mt@-{L&5se@)2M*v+_dG-zc@j zws{9kQU$M}sRSc0xX%A@>Yq!&e4N!E!${@MIW2kUOO^Y-2G?%9qw+=NRWvvDV^wre zHni^a={*WQ(ay43sA+w<;k>#vVIhAdvjP|N)||O;J9b*Tw4sT#Sb>EWPoV!;MR;T%NyByEFpTu)LJz`h1OpCiG z;g zD+qD#L7NX`61n%n^fT@Pps&^w1L~dcN#>d^G_j3CX z8$W(IAoJg`dVX^7{*%@7|7$Xz19Xq$f1vSxGJpQh$b63f0UZ24C-eR57k@tepJcxO z#2oH%{11%YzmfSIe*y}B{@89ifJgijVDpWWGD$zA4j= z8iR5p`LNS1PB*m6G_(}Q{KtM|7b( z^S1D}lSs>!SXVL70(0A@i;GEC0b$og+_tap30x~m_WoO}W)+{MdXn}7YyePcv=!L)w)ty^)9r=}ZL zBYx|vinkZA8i%bLg_V!ve`F3CzlwTO?fmWra?@|})0uu}U2m^N+#mhzeVcf2$L&`A z?Bt!*dyY)G?6~Uox&di;r~3Rfmml<~YY7>-SN99pL)mis5;suXDKvk3FYfok%LRxx zrnVkVVM@$`G`9Zm^2swl{N>c5{`r)uyFpn{+=|oQA>f{WbH%DAqxml9XfxUVid?Jy zyB=$5Kb+l0_n+uLN$P)#D~tQJ4{3J)v$|vGeYH;$hfR zT6goSz~lf#_AWbSaxu}XTCwxiXL@q|mRk3J-oI|EgzozK*e|Wz&*bukyz+X*_daU9 zykHZH6Jog=jT=4}j9QBIQXf{|mi=(}(!$0OeDjFOM*CfqMmKlg&#PM%hl}-AO z6wFnw-wHUq#b!`X6Iaj^t5*6)W2x$<%hjlTpMTwuw(CN*NvSz*vyx+8-ihC?NG{f- zL47eQ?%Uj+>>gHCOE}iCEbr~8-spGc`hHZ<^dCM?a68?WcV4m%3QIj#Ej*>Fzf)T= zarlknKD_7F*@#cOXYImbA03ug{o)-2KhseZhLWndT2eHzFJ3LSAj$ zP^j~#XJt;ynKu?+UOijol;(w6<_bMCe=*Q_T3z$YzL)I!H!Hgh{+v=){$`zE_~@-n z;|Szzjkh}@=&siJIKf}VXH7NiU#BXlH6N=|2zJ5$wJG3Q)|&$l6ok7+f7QtDt-b0% z=_DFYe(oQ(Il0I+rPXHo_cffU;j6VJBx={)c&IrwaAHPZX~ORJzu`+)4+UN7+kg9O zUwXC0gEPBA|9ZXYwcyB?o7XCixy5f>BHDaN+n?f$FP!-k*?e(r!;qCh+{3EHuY)i_ zR??vF?2_`<_p#kuM^5?2ET-};&niMqguSm zWiO(e>cSBnI(Lc+;@vTm{ZC5 zxZ`H^v(3Rzi`46Wd-%@zQYvzju^Td{al@OZUdLF`-Tk8*|C#vP$Z+ccdF7&uT~%ua zOJ(w3c63-$3aGgm&p5UwecxH`-#)3jNHmZ9vj0<&&3_Y(9e*NTf8OZ-PV)O#JotZh z&Ho1>_TQ0o{~MAY{@+P{cjdnQcYn{nvtR!YNPZ5`|F1}XdtiY4`~RBc_peX+_s6#L zU3Kb^p5mwo;7B!c?VGAh&)Sb1Y_dUoRL zfLKMqKkt~yc|p&MP$8UkWL2!(6fPCa z3{t?HO}x;X*8&Ws*QlQaQc)~JfExY#j58&lL>7zRi%>;(Th_L6rUEIG!!ct?NeAmc zLF|t%49lbCfT}B(=NOqH1K*!IB!_Ik(S*$G6wJUhxlXjEN!C6vN>kiuAsbqxb_zhm zck8&8%u9>5KFt~4Bzr`SBdvTImH#vU?9nJI^F=@I{@a?OuNlG?F?oR5ikQtC76i77!$NzzH%q}7- zW37fZLo|X7Z8XL~+~pgNU^}W}XRz4K1BJd$Y;(D*;`E^mc7#Podqmg><6e05#*r%0 z_}MlxcM%w~n)$6{^rA!Qh1um7!1m)E!!RX?lgx8*H)XCNM}7)9ub9b>YBW7`V2G0= zU%$@CAbV~fnN`q&x2=%lYnTWhz1{5pNqLEgqE6(!HF^i*&!Zg#$^sD6j6X%e-(x zzCWkziMClF3>!j692DC#zIR8oOR4Dk7p_$5qP1E#4;6_~PN-=Tujki`TOh=b`36KV)k-HOyZ*^y{v9?Poj&2jd5*8mfMk9@SGX#b-U&T{v7Se^@h$S_ z&2tn?*b2~9dLnY(+NOS-3Y1RrOErP4`bi+=!0D!u^ukmy?RObGnQjtKlrH@%cmDgt zaKMf;WH3?%eZT(5C_A2Xa-tiN%aBMzgvqvY*j0cio*kfR!G569j zM+v`9hLxCnAYY7Ignl)Z=j>B#g*$w%x=8EAB-6XP?5-5JEC`Fn&K6f(;-lo7 zlIefBKa_fdENQftZxyi#ldN;v zf0kYFfeqCcLXW7*DHh0T^`^5(Q<1{-i`udL=>WBM@_UVQ4XNkM6Y5J&>!_J87d8+w z=i5023YBrZ4lF~?e#AWF;sIPAEPe+}sa<`0Z@TcUdB%fEcRF86T{rPk7!!6!%dLk! zxU~36sKgIM(eg>Y-+dwrwyN-)*wJM%V17gNorBdd3HuCqiGm+pJAaie&?$bgQLEsj zJ3rZh?NK{P%V_f@lLDvL=OsU8ZqhOr4=PV*mg{#}EXP#<{|AZ?5Y%!Qj94<*@qm|? z*s2U!(UfRPjPcC_1X6ZJ&6$_XoJ=8?!(gT(*`m-!X6zc3B3(F&3NgU6o&=VU@ewG-TLZ&GOr8OfqPL9g@@&nDYbGhp*X`Z@7@YX0-*dI1O zIhLJ4>kljcl8alAN`d3AO(BfbQLRWwg0uIfH^+i}DPM`j>Y?FT_nU60}A}-M1PUYM>Zg>mop&ron0OCR0pnyg1 zORY+#jXtaUk!Wr^cmDO2TM8a_*4Y`{rpzpayJFHMvS))oMHK9m} zRbDOL)4&uAe#j*GNFYBQ6oH^am`1qftOGMlb%?XmKyo-QMf&|>{+|4`v*81k(F+~p zr#P(@-Qwi%Sm_rVk}#hu3Y(-ufPW&=s>lm&xN>ZQP5?tus@Pm0VfeXJ8ffB_ztX#0J3OS3?}j#ISL-Fg>WT-g5@)*vM>(cP%P z)sK3JxL$5^sSSlN51C-ZG9|qk>NfJ=&UJ%5E^&6gA@gP;eQ5&tesfyE@KFJp4IFz5 z6dkj*(xf3bX_$s0qkUrB%DHDG=~?=OTgF7PTkcw2T(~^m8!g+ZTIgn^+iH-g=+w3e zAq&}afLK3vq$Z=VHFFFl1i1yo_QDhIP^E5&Ued{5pI$;FJ6&~MUmg$9L1mS+b~HyO zKpcpN!KT^KuJf}=+40d7xp&=GBM6VC%Il`ytO-e?vuIxdZVgVTq-s) zZ}m2NGzwA>|M^DTK?_5O?H$9(DB?C{glvO&J<;dhZ#vbT<(!L3^}3nz1bj^(a=V{x zW+6_0BywlAo33Kc0x3J!^|3i&@uJRY8TViL45SllnzJ{k#kp6B-E9Ya${>Fnb#GIV zXn(ww%fgz}DVu7QQ({y%Z+8>2B%a&XW~7`lZ>$UmD@!{2L0H+BiJvgvtx@C+y*-tv zZ*_g3-OJeqEHNJnnK%TP5ToyV;ys@lZiKkI8BB3kMaEgSM`5)oq&7Zv{XucfQfW~k zkIg+CcWS60jyUR7D;}2<7mD)_j&vEORhPtTzSwy^_gavMmvPt63P~?gN4POFxjqI! zTCR1uI9oMM+8=2AGbyWj9la@1B4w<$1KAvvL=U@l(5mA|H3%xA zwZ_+UD~5d%EZ?llXc2FUC85e~uH7O#vYh1C+GZwP`{kJ#SktGe#`Y!G1@DW^To|<5 zVQhSQKRuArCNE?XGCDH`c1;9fzz(^0A&}&sk5A#b<@G88^G0M2g0+_f#>Af_2P79ag3 zbNis!LFdKn&C={aQ%54nV(J>aggnCAxCv=weDo#_)D>-!-O^-RM^wNq=#ZJw z4lCcFzN-!ct%@5D&=gCq85!L$(VZ{E;B>6WpwQS=9$>i@mvkF&E9M*Gj~WuEf-$(= z2A_M5eD3gHVYsMMl%0^%H|uNT{OmXUjq{ZS3D;pn_iERT-mjfk$)fP^n@7@ZTSt7| zlmj7lEGoD|l`8uteZ*F5!$Ahv+EPVXLi*oJ2nw$_SZbHCZj&*|+|upzFW`f(*YoUG@Z zzt%%Z)Q(nD{W5k%!BCNG@QsIx8JRu7!Wpdfg)Hu(tmhjFzPTy!2bi2N;Ia>~4KKeO z*!o>NH$?&lRU;=|R9@{0_PH}TzVB{x1~s!)6iUyR5Sd~o7k`vLQ}|4ZATL$``=hvL zJDkP?<%i|lTL`%Xc7AI6~Jes7=J@5&7*!`OGwN(r~a|TvXAWzAz=*?*oXg!eLO^ zfwv#x$xJNlTcc+5^dS|XH`_AMi~&(z_4qoUwQFtQP^`4E)guQXI~7p&)AA2h7Sn2b zGF!Sm;yyujS8JSSw6dd z$^-WU`sz3R&5Dq#LDxSOE9{I^z5=BO!I_zv4HBCC{)_VS9h`f$M~$rfbeluAZ99Th znQXtU90&qwKT-k?kkJiTgW`Ub6tpZu+TGt3RELH%w)b%w7R}@ByXA4)(6Yso zBl+nD^m*X`?&C@jyKDDwO-*16{LY@;0Yh(Os;>K+R)(_^S0QS|Di>I`=Wnky{ zd}cO-l(NbfO12M67eAGsl_mr-;|i|I;_SxKI+whwEoMI@q8+or;I07rb!)Btw0K|g z;n@e!u^d0?1o_?=jIP1LkYYP7{LG9Uj}N8gka!Plk$3F&VIIKX_^qS+6e?Q5qnbu6 zz5JtWx2mcEy#D3#)x#y@K+=>=Lbxg7dyG*-1=s)e=w8Zes$oL@j%(U+?~sWc`Llg+ zr3}1&I@;_m^JU1B@Pj84kBaGMH;1R!TH@x+sMWex$}e-`YVUESt?fgZu+ZX?mkC*BTISQ7-Tu~m?>??fKtJz`frM0`&QBCv)Wg3H! zJy9VWuMKqr-iBoQmRwHG)oc2lWOJqX1;wIwnumrq zmL#ah4o;|Ex7%SAgr)Nh8tDeDvuZ;(RL=rA%VV?V8=qy6uXLclg{j;*2`@mqP6{&G zyt{xPaGs~CQ4AjFAq{0R?1OxI*I-5Qmi8b4f&EBe+M_ua` z_X;LQKkvCY5n`T99F{3i&hWn{qZAYaF<7WcoYdHtbZNh>kI{9B)_j;$jBg=f@Lj=k zl(N3ke&4VO6vA=jfEUa||Bi~P%nGCc>V;jEOdLYsbPexZoh$CBZI-NwcS)slY3z{L zJko$0PXAf4?h_w(Vmsn5Rn&lMU}mGAM(y0O(f2Kn4cD-J7@^dku|EH?r$ip`Fx*~(SYi8mX+Itee|KwVyQ5EEf0lAvIIdJsbE%wbG)cBTS`Z^;3~R{ z2J|mOhg?GM)G`wSA3TOnApzq_HbSG0pF&g5wGl z26xn$sP9+Gf~CSzwHy>=H7Xc9JHd4+Q7R69JqGx4S=-RH>($!i4@H6 z4w9YiB`xc|k~#@v;w&J8CE`{0r|4T@tn^SCknL3n-c@lu+P=)h$nLlO^6ZSeb@S4E z!gUr=51f`=^<=i%w4X$WBLpnNp|M{(g#<_M2F|G_@w z(=}0jSW96?uM*e_$mzhPfgBthRuXf47)2*<)Aq1Y8as=miw-9$2fQBBS}&91gM~r* zL>p$e5A49}jfxw_6M5w24zz5Z#mt89mk*mST4IK`;A@noX78x4BS;BV$+lV5h|b4! zo@)pwMpTtQy&9q;S*`uddcco)@q4GLK4Cldib|UI1zK`O&2YRU&}u^TbWq!-5+*ow z1*@rp$4GPq;IoHy1Kp#;@62jr^Ehj@;Ibjp&chn?PpF*0CP$nJ8pG6&p&=!gdhwdN z(7bz~u!w^7SOw9F?nUAVI~q?OyE<26jrIr+y7p`((lg1eK6KVd1tXfQbr?ihDtxs}=N)P(zq6{ev#3TxuS<%V8@O%6RO*cJfd+nU^0M5x*z4%<(}@ zmTOr2Ngd8DjaP>b%>7Y(Ar%fRoS!Rg*W9~4jx(T;NsqS4G|96Fd}eZn*l~ZQPZG#P zekaGN@dz__E<8*di;z4&r-fDElk1yz^(|eV6;8pgt?b~F$akCFZrAS?x zE#FGkwmyX0Hb0&vap{kU*FqeRA9``Wqa@Ze?(szqPCJ_3EzMr_GxadOc73aK=>`kCcknvMk~!50R9g$6gHI_7(QVW7GaE1+wva zD%}V<0&^-Z&7;onmm$=2@H4=FTwehF^(fxk_j_dA|It&c){3Ds7x+o09><2t23YM_ z@mW5Kzbd&kc>PbBO`QN<`qWO&LJ3~%u%+UXN&?Q#Ky<1W;9cavnn4hpvro`yFJa_8 zdMfE1Ma4|)6-mCwk2}l2%>W2)qdcKrR3_J7U1@5b~;mN>sbT6@A!n03;F!x%fv`uQS%El1W++EdhJ^ z+O7h{L%@AKmyj?(N@ysM_0Z3yPL69y#jf1gOeWejXr?Xu1FYvkl84#XBAI2xca73grui<;#xh8f5{StM3+#R;M*`^Q8$hyzp4= zdgl4);l8Qa+3Ophrx)jB9!>xU(Sfp6z1z&Cm(4zUd%)>cBmmA*vKKyOX0v_*T0#_z zgG;UwO;I97pkwztqpxkogLz~=DjZ2md#-eC<1q8ojSsN46MA5)=MudiVaMQM_=9Uy z%(H>|Ar<#~r7(3$0$W)g_s+~ST|uw`WEhErRtzDpww=Oc_B;rcaew6w(+<2m(1rm% z(_@$_h1;&yJ$Vdq@-Y(?BaO>Ao9FvxW;s+M?oJvPt4MwwydarDj4 zkOxprWV(Fmr}-OXb@7JbO^b%AI?fl^c&lRZ`D09+9`r~{XN=%Htf=? z+>DD0eNS7gsYi!jM$zClA(J=4*WQ_mqM+puZk{h9`gh<>MOpAK@sXSd2~4g+3N>`S zm}3QT>d{4;Dmu`fWL3@?a-x~d*XyPK>6am0d2=v(<ogAGC*?V%g;6VuqKkUt!C<8a=})C3N5|unGhuezG8kY zt%>cuKc2p?OXPdpe^5J(oFvhy%M%notjw&gp8HkhqP@8|ntvvum~o1Z2-wHLd(GoU zKe`zQ15!27TY^ex^wB8VaiB2Br02%HMp!Mr=H(HEH~06IIW~nHz#?R~E=6+XFzd|3 zgszEIuRSpQL(77n9;K~#b%YbyYbo-6F%q5)!=eW4%e+Vb0??S_Gb-m26x#wUocoNyS? z#20X22lzKnJhs!X=h-(^=x?h3mYs3;F!#mwojYNjG`Q9G<1!^JYBKv2N-Z(WAFvAh zxH^cvc>-naX}G_PqV0aiRSnC#a>;SDodrhCs?SpRAx;Tub`*E1gl-r60sek?N4cJ z{cb2qC_gZ@S1bAu&yLn6kydJ+xn682c(VVsF0=`XHgod(6t+4Zn&bjqjxdie{k~tg zE?B#$4B6JqH2kp-;ie*v=D9zYuXt@zkTcRS0c9d~HTYx*&{ovKW-*g#bZt$LnhbIF z+-Xt}zQ3-W9%8-E%q1XO7U&$qV+QWZG4qJZvK-Um*Q(ge>=0GY`tQ5SPghzd)C_N? z;zt{n!A#(MnvV`RLcv65Nb~YB%9e-o0~SBXyg> z>D|Jp4_^$>_Lm#24VI5zQ|khz*cM(!9%UB;!rChm4dgUFP7%ZZFZSLutf_U~``uG9 zgdVDhAfZSQL?VWwNC`!$2^|C}QB*?5Nt3!Hp@`Cph#*BsAQ*y90tkjof(q!=i3A8n z0a2Wb00CsuOiXfyYwh=(eeG+X>zwy|K416%8H2%KjOV$_|Nj3x@YX*pU%XUv6@`wO zV&z+jx6fs!rvkKjDZ9@PFLkfk4lQrd9XwZ-Z&_}s70#NocN-^lV-$2%gX3`$p~^CV z)<1V{d273G9^?8lM|MGA(4W>pK+_bd5=3=Vb^FPX9T1nQK9W>E@cx)aAQaGV#6g zXKllm?F*J$+^jV333qE1z)8Ih?p(NBD`*6uh47oXK!r9)BILpNmEsnE^5X71CVhMr zlHorv%>|$vaC{mkeK7|zskh1r@aSSRIfdPPywWi>fFuJY9slv*n9zK}edRnY@9jY* zFuThDGQ@l}jh0LL^@gF+9w_!s6Nd7UXs3PFARxOW3$Mj?=zUKrKSK7B=&O#XboF#u&!Tb-rO-~W zk?&VOMif+(jzC=GCDe$Vz%jY3M0+H1Pt65ib{KYOrB z+oP(bcIo{5N9bzFz9$MXu-3Dx(Z_2X%bO%?f`V9q_!>7@NbNObAtCsHjDglQMuPZo z{&K8&`_h@q4Wgh97b^CVsV~~8hU5HebO8q5 z5^O)cUamQ>yW^tKxO}QvE`Q8XAx~ng%C1-`s{7B|nWLE|2Z3#=%t@8LGMtHHV$TM) z(N1f9G@hoEdRej{kI&AmaG-C!yk&$!Klw)L4GRiWY zzSR3U(Yte^y&*mAq{tfN4p6vqA5U;8jm3TDhd93W8EimuUO*G@^Zo3P2!KTm=#m`` z`oEu}CwkBCklT<1uvMd<0y6+!3sTGjJEY+YD@jgR&gR+g6TZ}9}jygap|?<(LV}S>EfE_$e?Xg#ZvF zk9M>q*NKQz-T^5_-U`rXW5=_RolTzlkLo`0=O z$acM9mq3GC7n)U%?$k~Yr1UKBVw^)m55Bz%=bxxqv@X4`e7yA%9*I{`jb{RIs^wd< zRbuPRtUjNB4F_%8kz1$RBJXvL9KUJr*O0ZgFm#}i*Eh|7oyoDdAQ_e;-uqoYTY}I8 z$9ajL00uN^ihoc^zAgL21V!%b5l&YT3`2x%CY8rVB{PVv2__SUalqd4rih3o-t(Q?!d-m z7n=`#^R<+qXwq3o+;dHi7gk7mKi)hu?3JQ9X){Qd^D~_`T%koHTD0bDhm3g_^j9*F zV;>SHF*e(4H?nr>Oa)s`2Zv((K9fQ5no^nUM~QgzzJQb$q5%MjRW>*IZbYq<1-3MW zR|(EqnF~8y5A)Vv4a`r`iL5jsO4-#QG4&djx5``tH2=>QrRm9T;-CZs&TlRojB?4ZF0gWhQiQPJHDv8!C)84o}&orM;?nMbDbDns+bkLQ;c7K|nw)#z>HtcU?(g3kl^i zdJ|NJ$E03AF_79jJ)RuXJb7B|0jWRy@r`%07ZV*-1&>Y~WQiSC?jr(RF95&= zO8h3@G@`sS%>!{P$^-uZOE0sb4|FQ0`q=%MDhot0f)|isdDlL$A4E_X9jumg-?;m=<+ysk!DVo+6W0<2m<>7m4SQ6O zD96X!h{d?uzCXj*Te6Jil=6Hu+HUjm*uI`8e~=aYAQ%L{&u0L3=`wg;Y?``w}$j?nbRW;%o({Ea$f<;`LZ_NFK5 zi|@|8!;=QOR*HqNH;ohHDV_92ToX5Bg6j6^($*lqxJ*CY*WC(U-gw{TM`jRe^>_*f zWc%EOb-CDiCCv-9NFMu8a2BA4E!a#cWYjNmIbf zyH|A90OOT$2F;^cWaVVPEVyp0q6FP)kP*LQqW|gM4W-_1*}RGI*a!49y0Q=JRhLU_ zd%Iyb8@&#&!w!Vj^^1tRv+XtatNd4%70slR701)!j>uB-rH8pm=uDry>ldi7Czk;X zT3&mh#IU$%xy5tEXICdv+wX^ci{qc#(jgU$b2R@@E`}uAFQpwj>G$Xp;O-N$8>5{% zgJ$Oa(CzU&CICjJU5=h$CdC*^z|{S7$(F!#$*0Utv<+)z+Xv9R>qDH0&F0%vOe!hu zqxWGYNUYjQK5`&PtD>J_&?eu78XvD`W>C z`S^-j`PoF?a2ssG{b)cVu5d3n$=zEbcWcWy2HX9|NajwH@ph6vH#HI$@Wox~nIebK zK!6|^jbZssn2zL9j|a88t}EpOG$nteRce&dHa|!Ls76E=EPx9NI#tgZFMu7W7Wg3sH# z)#GOf$K(>oq^ON?Ou(rjuLDxmjwb`p1WFs!)L`P)hQzni-7&dtdXQ7ASnwB_K)gCe zs_=5elBUGQgC0l*9N8rAcM!!$qS~h{un9PDf*Rl~6sbtUcGgM*))L@CDmp6aXAKZ& zjM~p*@&9ztrZobk$_`1LJ2h_lliAhp_3hzy4v~kv6x_6DRNih&Izw@&Ep=DSXE*~o zQnqiHLu#$={}XE}A`y)uwA-`}NP-buaSC}X1em-wFj0NmjMotPjbE^G?W8UqgsaIh zQ7kFF-*U;`WB3crhdNn*3O@K_;Dwc4%sj-#Lit_))Wg zqgG!^^m!r1VzJ6^pV-orD@vy=(%cP|jrM_wMGhWN)cQ(A;_ZA`qVvZ6xq6smNyi(p zCwHCfOZyQOZl5g2?mUSE`yK$RdH}@1+Ne)t1i4klAhGI+>i0dZq;I@~`L4XiJ!+}t>EPN|uGSuO9_Q0;|Hf1tbrh=-H-I$&CG1H9Ew09x%Kkwe%&ptG5gg-iss6z+kU&N zMmx%I)C@siPcfdcF$QO>X0eGu44GBMZQj)GSkl>M$xE1x@+sb_B z1w2y<@WRTGm%lg=_V%#cnuzq?b~^z1Y-s~mSZrosj%JeyHK@0zTP}Zlnlu=*ba>2sPTj{MpQz0!v_RT5rvlYbH|>c|-4S5mVMocN24rZjGB>n>D|)BLKQtJ+h-ltrM3yFKqCcW<0vj(j<3wH<7|`7>R4y z7HDbYsaPqL4DCm8O?A>D3m#6pnAmqh;wC)3Zcr+6!LpR)^6F~F@@dG8}haEacbpK7}(Ax4Y^(I&U;|B-;hqi{s>cg zw`flBb7}0Ev6msq{c^m5EiLhmDi}7fO$!TH#U;M(+lybx%rNlhkVMm!Ce}E>kJ!rJ zp%HODHNVJw(f-VX?JXB8izwpJG4`nEV=qk?NM!2CueO)@GNbd43;>mx(3lrEc5S0} z;<1lgat)NJnHm*IMXgktp+VrwvFs=kY3doJyhpH8CJBVv3_P=4(k{CZ1{=(*agPjeU0>1wVa zSQnhmQ8x#?OsT=A5C7IQ7K+dy=tOlUq&cVb&}W?C$gjU-?oc9Zxano|kWh?xas$TF zm$PJ9wy1kq*X5FaW^SH>#LJf*AN2tEX~X)bZ_#y^Wpq2z+4L124^6`2;T_6qGNf)E z76?|y`K;l1&g6J0+C81FQ!-T_*VXeVB4tf23eZRsltJ=jaBKLc@xnJ*u5rpgjRWO+ zTGp7Tnl=JGEy5I;D|NN>1bJuhS87*zZ8fmX$zeK%U4~4>G^u3alt;0Z;O{wm1gGN7 z(MDd3p>tv37k8UsV3Wl*{&D&vP~#2=4f3eX%%yv+j&lRPTxx%g;0r*t;jtC+O8MWX zIsLS_$g_}ickh8<1hA>y(IX2U1J!?vjdtP|7o-T(ZlshT2zCb{KXVu`b&}QtryWKH z{_MOmqA&<)NI{`{HjsZ>Ya5vLV?ediWR8qIkTjmF@p3Od+2JV+!fxta^DG@@DSJEt zgbgo&7q~XtD7QQD>TlqX+T_~ntUzsj+ZtO&++3}zQM6-tgcV?Z>27+#^7`cAaJQ?3 zM5Q_p99l4`Z9aAmrDb{pd(ak#=1Y(W%8EysEcdNVvD*kcZB>Vpb_PQ^?WE*h5^|9=fIzM zjJp%Z{bn@|^RUfEdzLX7~4C|!k3+k6S}xDFA(y-GFw zeT&~69_Yix$E_>fANO(oSiiUqOKuV;^ydC`X(4vclzCQ;B#6_|SZ3T!k6-s?Rop4% z#oq78G>!4@Y67<4vL5A$j#*&C#@Wd%ndMpDP_*$EGFl*Mne*z6y!Ru!7yTkM_6E@C z*%sx61;EpVWR+D{wO(9G`AmYC1|2T_TdhBAkm*)5H_b3r#Z#`8V2PMl?s2g+t~)^F zr4E+*h@jCW)VwA{!N^`rH)rcxR$U-F{Bfesy(zt(9$JUA?&Eez(6=Ekx0#cR(93xb z>aqaLFD(sRcxUPAt)M`rS0O`g0|+yViaGW)V_*LEJN?K*XQi&|XU~@><(d-50l26~ zJ6`RDqlFuSIe8OD)W|4W_nCe@0xND3f1VvY*Yf0nlg}k2bvQ`k9Oq7X zVZb4qQWGcjAn<#2M6hGJSEd|tm}>>F+)B(6AL%0-r$0ZGjtK$sA9xLF2#9ElA~J53 z`)6n3`M%URcZgyqyaj#8sZr*@e7;Xl@Sf^rVfC>%<+#zXOW!6qm zmMSbP9-t9=YCpn(26ct+Oh=(#eG?|Vs|NU(G~|mtk3EZLqJiMoq^Aw%$!5>E?+3%% z92~XEuTp%*BM{p44i^79)Kl$nU`gfVpVPKwF*Vn`5n{U1?YBLRa_+2J6q~fz*0Lk4 zy-a4Vn?f88ZbAdP*QZQx`>Yda#*%?A@jf?)_M;`1m0+Z!GFNnr>|T0kLG4r;#s^ht*p0DD;BExw@=Y@KQ>W z!XIJZtYAyGEPmNzkvJ?6oxa3T4A2k`VWsQ%K zxRCYGvB44DA)}ZZFyf{~lPv1v-Gt$3M(fzuyO|Y><0&Jp3O6|cXLF~_8Iv1UdTX;l zJ7Nuu(8QPvlHBbgt2$}qDbm+*B!43V-a(3Lh|lkNPN84_uyd;pI!D7unOK@|LD$m+v)n{^e<9Q#5tL zyq6PnX)c&nKOw`(qMEhe$ypFLPZc7Amer9uLIBD1%S2}j)Y;1Em zI%rzBtoUaT?=Hqt^6_J-62R(w7_26(ZO{?fX7A9{TPs=WbTnm`eStKn>Z9s=*>2%w zeHv3@mYrN1x)&zXGJeRu3yzdkw0)kRBhDh8nzH7xPy=aWArc9;Vcx=LMG zUH7vwm>ii)4;eB);9Wp@X3W;kf)(RE{f4D2$8b3xzIOZBiD8#Bm&i6UHm=O>@q!kc z6w~`tlaNfE8;&9QM_!KicdB7?8W|v$zJfxQcSt>(prRTq1%~I6lBn*M1Atkroi=Tn zkvZdBcsVL<$rK2;97_$P3D1I|s}PKtVM1sMcBqk|9ue&UBlZEIMRF|=19t?5_Vkd3 zb<`mRlK^A^1VQN7A>a%dki2|BA@!IlkfYkmM^0w{OXyZ1O_09#9`j!8(=0CV+!8vaEmQonRl$A&16OZ=~ z`z7WdEhqJ_bCW*aO}Q#BeHD`vPq?YV3|b$1c`NX4Wxt$8mW*(BMcBWaK|W>clm|({ z?(Wn!pImwteH=ligmN$|v)ko#UN&lSS*u3tgsQG2SWQ-AnT!SeSuMw`^ad<5;$nJJ+I;qcA=RO|AsLcc9}I}4)a~71kS~&T z_X~;{j2ta^ASG6)wpjnfKYU$p2a={L`XHi&^0J9hNlC4kR!oRe@E`^1X(lF14J{&N|9cG2Fh1Y|W!d9TVDx@TdhBPR_ztRCmTkn0YDz}-PfFROQf z@D$k9BTViWB`|%+XOF`RQyriSjSOjh6kugEWBW=$Psd|?`H1xKW$4R2R7Y@I#Fa`T z2kQA&xQb~t>--fAB!gNgJsOD~CGb(SGlI2;Mwh+f9(Fx66t8_xf|-0ls8c~Ejc}Yy zx7r*N*)*D5e&O12OiXmqWA&nI51f?b#p+-b6IaXGkDXVq?EkgxA9dCu`n8BFUSjsE zQtmy(@H@-LZ0$d595|~g1`JljB+6JK*^C-hB!5g!JaM#?5caguI}G{zKW^rBuNtik zauGG*K&7T}aB4w3YSd*mrGvFT4-6JA0x>Yo>s6bB>Kjb9&&S9&ps+_B((3ylk^K|` zd+wIwJOI85zL@Q!n3ps5WkTobRXINZi@5EO4+F$$6|awH+pWK#qX*I#m^}lf1gERg zr7AfxHuD42>%W!*KoCAztHhNjB4vtGw==XAb8~&xc*9`R=wcK96n4xU;K9lqSX<*R zRk4nCAQU^-oz3SSnWUAKVZZEsnGl7F9%fHP%y1L87Jt<$vjiWqjlW+K(|PNoiRZAp zH}O5@UdhWJz6zk*E+fcIrP&EGc`3XULJuH!3qZbTsuRBh#aJu=OPG0P zyTWnfXh4o|r+yiIR*_~E6Av)lc_mbI;oJSp08H$7h9y8}0+5EE7-vXsH9L?DYmPUc zY!$PhdtQ_J!F6NX9|C|{m*@S%Jpo~X8U7PM2?7$rTj$OIGc$rD{xW?4c+x%2o`^qk z97geVQ-Xfh2A=8Rpsj7vu27VE>`v1Pwu_PYvhLI`MM)_b({s2pif1)CJ;DAfTMhFS zf6{dRtnCkqW%gLLh#DCY0P#BhUiqP}yP}i@gOGO+1jwdf&6s`uJ=YOKd|9<$fvXRu6_n(Lhds4y`ENCb=Ps zeOT#mggGsJq2bMc;Oq<->=$@$0Z^jKmNA@bACZ?g0RqiOA>34qrCSkj9r3pyD}HD7 z*jXC_UV?La{?F>0bm0ORXf$cy8Qo*wK0+Dt@<(bTfpHnFT)Rn!^P(Ru+HcQ5|7b7p z$(NUjd2LW(X{fYxaMzb^S^J@P$^1GAjlm2J|MPO&&UdoX8j_)qV<{eLdKMaCCTf-! zi_jXzYd{%E^y8g>n#AYj9LkgVWe9|O23^&A5PxzY9;jcF`ej9^1>rnLBi)W^i6}3yGhw(q#WB_}+56J{0v~n#L z^X+HxZ_iv+ge?KjnjdhR3FGnC%7}g2pN0Y-+kawE55W`u6(0TPm#@tckD7fPaHV>X zu!5YdqoqD^Th5Y@EV9-7%V*l%nXiqcgIx&0c)3qRhUUIsq`;PC_9y-XCqe#*RiU@H zjXyI0(H7Ekq)&7S=A}>63ZAMRY8xuk)JZ?UY)o`s&+CB<3Q?PJvZa}s9>R)o>{1F5 zBQ6Bs#JxPOap=a}C6Oj2EAd*1l(2L0A&32qFZ|OQm>h#?esCdo0|FbF{a8{wM7EO8o56nSe>EwWnhf}s#Fr+ z-4D>O%i7GEM=ekjzuXp+9#>c7q(>m2tQMcu*+PFLI0(zeD97$H9@yanQG{nceF zN+MQ!>LngToWfrPgKa#Sy@U8GcY)VZkvV~0cPI8ZYBcU*Y`VEkiDmj>z-_YxTcigD zq_irzEMVtXKx-fGWUbu_LLFpo^Isp6Hc2jpikQN?TZ2N1W+JHp=`H;JdY%$BOD1<- z>OQaB&GO+UvV;o4WqM3jFK1qd-g23$p8zEMeY@Wq=0rQS$sM)@Y2dsr`V4Bji##D` zf2lXvjP^keWpuj;UQ3eE~pCHuWT^z8nAR=R9+l}cR0_rR+ClL ztChYZrnoDEczc>_0*JIQRbT(3RJBC({jg(gwMlZq3!CcecZAMI*8(M=z={W|-!!eZ z8#VwsV2Ac+`o!bV%y(MD11uhQzi&{=cl{J%Cf?6^cFEdnA(C{0=L0;~@=rBO>r{gl zVIJQOn-1_P`Gx>QNE;c!hL)D*^^QXfLe~4h22KV zH9ja`vLQAJ8wAGa-x`2H7170cFHerm4tt?HoqDtua=E5?0H-(d z!c|!n4Lu;j${lcr+vzab8w{6^~D?ZiAoP}}T z61Jy-u*%(q)eLH%Up1X!LW0e~uk? zu-QgUpk^pCcFlvgf{R@?{ye+P^#JTqFI5#vY}5Ap98PRVkHqC`h*Hr>?i5y>x(8b3 zgc_iJG|dAa8adi5-;@x!rpVrnlCjp-iiQEA6f#hw0NQJ5%mLelZ|aUm`8t{V#dLlc z0IfMPFl*Nq;DL`lDGdC2?uLSNi%#2#3|;E2-}ax;4lBipF`3nEzv-zRT#x-hRXKD5 z7|UbJZiz~@k59EY|MjfqP@CO93g9@@_SSsgCz>T|Do*daMVx7_v5C3L6%#QBbtg%% zD&W8YsM4{G9~jT{s=h_`RVO9*Lq-Twi97d+&jyeeF%~H!)j5-H+6@wI?(y|_X5wze z2uwYSw|Jtf%a(x`&h>OZK%1n9(&2-4D^Ypnp7~fbL1Tb|gk-7^I@(n}VcpX-V_R1vki@s%=N3cwPxX{kieo>v>P59J`0r zl<6xK{jO--M`QlzjTaU%VY9;Wv3bt+yv+KdmC+3-BY?U51ntKP-8$Iu8mW|T^8{Iv z>cXm^8HqP0KcG+iD1Cax!rL}4?04v@`eZs~)02{v8;ArPR9ZBc05Ijl?qsF)iWDhV zlBB{4rAnOW4_*f5+gCzlSV3qBSSm`ya|zMU+))|OQ9oK@l(T2CGx4b1%Qgj?VQ zK@$tvIBs$a7*4mtNI%H~>U&k*_DZBYHyJ{nk@SCV|KAVaKAo@dO5&p4d&z^PCW9BE zoOHaCN7)OYNF`mxvEv`jS(JWypc{N(FS5zw!-w)E&iw>m4_v&%+0pCZXIc{%D|Eyn zpum_jLW4Or47#L+?Z{I6TDAWGIog>1#Bd40;%6LE1J9Aofks)uQmMmDx9c7^D6wcq-x!;e^^XIE(v*tyj zJ^$`$Qxv>@de*crN^K&-+qimndO6 z;HD?9k(QF&1OgniwGnHYZl&MUsL1CI7>8J;qJ^e{e=nNf-PCBKOrx8ZpzocIoyc&# zc&A7^DDzsT54GAWte{mh)86BzU^Y~AhR~b*>`L1c#YBz46U$!QOHI2}Xxl;#RA>is z`2D)M%B3>MrOMA3(dIfd92~gv{I?>jNevO80RthA+cRW$-JeDv_h}_(K`>06h-X(% z+1?OS8}{g_8s1tv_xZKwKDoJ%x%ZwRBvD$nUXX)QTkAAE>B6($mDW%T6)%pIrhJFK zsakG2x~A$&4OV;xiz2L$+pvq9c6aKog2(MZ$9@lCVElcUyp-?>TK$t}(6fTF<2JFbN49w^DN3^DI&M8XJXqMMK%QZR@))l+9TI|#0oNt zdv;+lWiKB*=zK_M5bX*1Q`Rh6PsnfWxjw2<=ukAsF*m8JA&q-Gkj@GfEKg)p_p~MK zw4NVjNB$KVV=LDN&FC?MV3#>rOv4E7=;!8p5 zi8>8ljO78nY0slr&g?ufc$>9C91n%nVl0zp9FDD~qc0i|AYr)UIhpcDN(G1s0-eqC z(id_~sVCtRjQB5wwv4O$HJB1#N3e|yd8LMTfVT`4#SL4VQ^*lAmh;seG)(#K@S8cH z;2a&Gc3_hcJ|Xq{S^5<+Afx8c74^|EXlPuqqRZ^ZqCc6gvrM@t{AZ@1 zb?(DO+}NRBWj{VJW@umPFeGbR@Pt8nb=~ybVXdTDVuJFbm8w>}aB2~JTifGTIAg9h zj-6p26pF^_99 zI!UyPB}H8ttTp#P+Cai`M7wjM^m!h=cv=n5+D%JrZ+&FZ7PYf&%SB9Ac(9mY4gA7= zX?xTZv*&IONHK|@sgDF)5y1dkh>m0ejH|i(G9bt)2>SD}Kzu*09|q}e$4xvddM{XnOE0cjS=}&fS(mer+D=-TFUl5(6GcEU zFC6TjZ4wB`q^zVA?A-KJqB>$cZve#_vPysPxExdDD-%NSGE&GCW@>C6)(NLf~c|>v01#vj`K3r;@ia+w8UBnY* zrwAX=muc2?zQ2Ia_k8<=!%gBQauIS-GO-L>T=(h;MnYBCH)ldEel-9a2mnokqC$j@ z>cefxibGOBV#~hz$;&kw@G?5CZ;vKSnH|(@`yR#rSoCCaylF(&G3?b_-qzfOj&tF< z<-q~h-yW~I7B25(5{zerKD*V3TqL4HlW)c%oUVkw`h%TK1}_Ntsc1=+;_tF8CO<)K6}xffS2a#qJV+#hD64}1B%WqYM@xEB~DZAlQuYyP+s z4gD}o+Br}6r9zWgD@QeXSvJo#$@8-;L3WlXD$nEULvpY59iVywcv1=C*WRJr3O5l; zrpZ^Ogf_tHn&}H?g3W2ZnG`;U^j_QjdP>UL;0fTfyKl^8LhepwXHSt=*4D-`9ssi` zS4@rxz~_dNX`M6Lnz?#l>uu%$&BpgjeGnEp1p*vDICuloUH={qLXMHxIeAO6R`&P{hJ0I4_f!|kQcRO@*Im3h z&#cM1odAa0F64l!0sDGOAXU-YYQuk-8~rDq)>v%fopkGdy~$b1rLxiKW5GZKZ#q$eP8GHurD3`PTC&Mz?SOl`kJXac+R-);8x=< z$hnHLgMtPbnZgEs&uM#p^0VxTscaERCMo6#D7rEZCO#E7YYa^LSN?U#P_$t6EdxsL zUMs-*jm_0BD?am0*$zfqM*nJlJ!LCV-LX^1h8r_#-G2oLucs>^d%5b zs@$xt^=+2@wZI9kwBnP0q|vvOw+`;qFW&YUkM_boG7rqGRqS&O3=+fyx51VysF>|; z9eXCD#(8)^GQyc1hV$8&a_X#&HaRMBr;s%zo(lc)>K8V%vz;Abg8kyG%V0-@)#EjS z=kc{NKTX2~m))(*c;A6kq_lv>^``pqfJ$$xx?PM6nH}9!_WdLvx^jX43BOtS*Rg^L z--`~8q9eOLs-7r3=KS}omr9IoRJWjw+|MUOtlxPw^fdC4Q|UJ5wW_&mf6aNEWpH{0G~lZPpDRjpu^u_a@RJ0%cC4L>E6{{HAx- zOhbaXe(QG3yxuGn$D4{q389RTR4}7(Ha-*8n@0-607u$5SZ&m5ZZu z!al8|=n}!Kke0n<{urQp&65`kmtVgM*%DD!L_36QY0?l(`qp;PI(0TQlzq{h1=u`} z|3!^r6W&7=EMd~gwXBdeQ3yk((A`|@Fcy%IkjFzs-D4A9WqkBHYqK+BynPrhf|M;B zyALb2L;nC!mz62JVTofMcE*tmtFIZQ;$gzAE&i z9pcC#4H=2sOy;_f&SHs#eDo$%1PqjY!mV+lvZk3`bwL_;^zN&C@DJ*ZWDQU;Rv?@) zWEg0pTo#Eo$GuE!X`tB3%tUS`iIlyVf}Kyw;sI?|?28y*iyos6W$bX=g3L}6!QqIS3`iM2 zj=jH6{$E}k|K6+rZ@#_`*U`$!s+}m$c3ufa43fP@-aTplqT!28A*@w7J>>@*8IsaJ z%lxombWUx)2WJDzYj&JRogbS532S8h+m`2lI`vlsIQ&SM`ijCacWLnT69o$Zza{=T z+|H!duM1}yM8EBB6_X|qP$*}N1?&VuZM`y~F0yw0Z6On7J?-r>K{*&j%FbA7-1i^< zf;0S@c>M|{=KsPpnEn5VjTp?eE2ieqQ>RUUd+{$2#s4m1!~9VrqPnZ#z^0s0*;ZNIkL+(n6i#bxSTlI@v&?&#;0hm+v-`xM$p*~J{;}6}F z_|&u03>(?e&E$nTt4xh(kT{-72+hTXFG)K=2W}=;-Of=MIz3QO-+`@B}zo->O%IV(NP!-gD>yKI`4Lyl+y<6!4 zdMsSKuk*Ikbn@vUL*-+^c!m=~ae|ZkG?N{~d*bClg@#p*>yW;zQrFuArjD~%0 zID7jj&D=@;>Q}3yx_>kWq(}Q$xrq@g`5b#g<{91%4V7!=#@cc15esR_+2-$2Hbha0 z?#^i4^7jLFKQ5n!Kh{gr6R9@Sme%KB9!IJsc2ayC$L_!DVR`5VhcCub?wDs@(tiJ2 zeqGJGf_+k->#Nnb$BJ*4c$_a+Ir@#P`}|7u zF~IHUCTH`N)nAX3lz%h+CHMzGCa^7{PX7-ifYUz_H~*bX@UPeC{}q|wUx)wq*TZ1( ztH~*Z$A2Jyb=85_*S&t-x_<9|&4b9u&i_g#Ac}wgpRVWULh`?U_5TK$0DuMjFH(-Z zy|a(cIZUdy+lyObIW2whDkVp@%mi>jmYcXb+h+0kuH zfaaoIX#Ldi^;5OeN{K9rY*R1bBPdSuv6HDAbb7t#D-<&XBHfohnigzn%euH24^ zN%tlRcX|dNk~dTyp)0mxApSau5b4A>HwiU)Kn{^RircOeW4{j>HdC9&zL z1W$R6Z-iMpb!2!%WF+~==oRngyzpbL4yj(<$x5$UyD57~U}M8y!y8A(Nlq1%z`PYh zh4)9z7BFCp5eeJ)>`_Oqr=(ya2>)SAdB{_1#h3f~SOlFe(bcU@kyv(ujKkf;PJt|8 zE`7cSVwFlW=d2c%IU%A8ho=T7$9Y-;aIv7) zNR;ggn6lYBSxRA-OnuMz^(cx$g4T=;!r)G$D9{c z7bxY~gm8TT%Hey8G{{+P|y5_FD@F775l zA{&4kMClv^$~dm{OwoD|v#Y17n;wLkehI-ojt-JZll>4=*hNonoHWR6D=0VxI{+|1 zzF(14Dm~GWA_MB#d3xo^scV|!5f?0ewQW5hG3?RUkhH+iNgjQ;9XJ3!1FLjddT=%v zdj>_J@K)wof)ycsEM=X(&hP9Eu*x)J#`gh+bT41Lun+zaC#}1)LpJSR0Nw{k*u($z zDpz}ZoxvMcT^~Jg;1y3ACfNV>g}mmP5R!N0Lgm-taxPJq&d=;2H@h!~Bd$m5sl%RL zysY$LwtGzf?F*-kyx%?*Sb_7k66>8xmD<3mb{2%3s>^1{6l!OkHL1?rJ&Oy!ch;kQ z<>3Fp+j~bfmA3uAGlCExKxopX7l#%R5J5@+Y0|qOB?=Bjno<;m2nit;kRpgERXTr zYY!QUIUAdLC2_FBq}3h)VfU@0aSKB(!>tFKI?g)OL~WhTj<9^})i z8@PoDO4QTW=k(iQh3}8{Y**9f17jTWwhoL-7;D4cE<+4|9Nu6{Xc}|&Qe*QI@gV)G z=Fl+_ZmOWAD3BXNTa*GV2gZGiqn$4}ss0Js)t*Z>fY>>6=SKSm*4iT7<;l_h7^w-wgbg*# zNtg$sft49x@73=kJK1ku@f3F|@$9_eJ0XvT{0D@Z9qPB%@8X=$vxz6;XXqSe={iAU zKsRHR2mnm3-oo*U<+0}TqooH+lkDG@Jvn;5P)WLo7RpWSB(Vvh=DvUFRF(XprNTuq zdr(8!{j5}0Tbh~FwBVh$uFHQ_QnaKFXDVItAhl<)floVkKGbMkdCp5t8DMg=i9>OL zTur?MCdW;>tep(|d}}{458Jmxq_dKUC4bO}8rg&%fB_7!nX|KdYT2EA@AmKdB}+=8 z`Ryl@!Sa~jd!ybe{EE&k|5-M$Y6E63>1WaI$BmjBM*sTt5A>r)=aZ&8`v!t%8GzOT zD{T0L3eW>^#0;FN9tzEI8Sd6Q=J`s=;z&#fnUU!aFdV)w?9}kul8-w$*bDn(CQh9l z6^W>`mh*JCvP_gdC-%HAd58GHQ>x@0R=tiUT3erE5^@;@vG3vk z9*JA8&d6x!8ImzP^k9{oTU+~V%(vxrDpF?Nu&Bsfczvs0sihX%zwLDlp< zP+$5^_y-``OfKa8v>|P-*Vs*}dt-@JTWy;o1u>Ze%K-VjdtR?_paK$$in}Ijw`Mfz zE%D4bwrFY-T#0W@>R)&nWax8;l+JNCcz)?*%&SATJ~^(o`CxIgcthGK+L`UM@2_79 zYc8MIo~912l(nXf%lA%O2B(Uxl^^bPf+2nAbTciJ^|&h zm8LS^J2+yJrSRVdm=-+IE+MLcNjfCPFQnAugLcL_k&`G|XI z)m7cjmOUZ)TmrX2xfHAZuvV()R!;!O2h}mOFe7#P{^3SB)%3I$%L(xycp{1ojAj|bazB|^@ zBChr5cCV~!5v~AN|LPeiZPzH%R?EhHE)#TzY?t{e(1QChVioo~QezU|fO1TivF;NM zp{ncmyJKCn1L|+r7<*2F5<>4)mrRD|e*eAe#71xL+fDUTrxHOBxbl0$=A_GqQxzE* z5^?eVZ2_ECkNgxzOZ@cL+vD+AAczG3jb-hMF z=rEWxB+ibQ^=Lw(#lX01pJlyyV}9ZS_b|tkMGocbvMg?rw{(Dx4&npBSZoM_NFWVY zCPm#WzOyv{Fno%)mww77x~#U`(dG1hddXdPE0WDm z2D>i?Ild=R*uhnj_{7L|k7r^xVM21c1K?T&H5g8eN;El(G;jV9(+UX}VAm?K02`u)3Ex{59fvSA+Rw5JIE&2K92EkBOQr3Q%HVhkAc*st4 zNyN42Xgrd35QoqQ6|<^4?qrhNW~R zE+sCkz-t5}I~?z6A^ETe0H9Q08>86Qv~yoc{;YUS-DeL|g18tXek);D#mv!sCfUwPKsV^J%0>h{M13kk) zbMWw3Vmg^dS#2k_2Tb>j3Rm^sH|=?ZQ8;gpOAa`2ulK#_u#zeCuWtF|k{iO{dPZMAsnWb>D;S3$lYccE5s;X+4=%MRJA>gcqE#toem*Ol9mUuG|b3OXOX zK}hLgavc%aSPj(oW$n7C2#EuHhxp(%t3m$m>JjOD<4=WWiD6FthqHJsr z&K439^6o-lqWedbzzOfNr)?;qTtPa6`#fyP-aqVAteA&!gjxkGLT;m#yZo=?`M>Uq zMej|L2RfLb#)j7UoL)~@RN?O))aK?@j1#o%gE@`1`-gyes5NmxkPSvil%1ihYy$TR z3I#PFoTTkyDb%WPZZEhP91*BY$J0`_$^4U+*e7bNn7TMZz1?sc4|tGSF$rpE{;C5C<=(bm`Q7$gi&XDt=ZbPBuAct%JDzp>^mU5~ zE6Ggays{3$%=S%jXqP>HwRB@m^|N{8MznS}VeMZ=j9{R7cmUuLdw4_?m$37IJ0CC$ zkRP4*0jmn{X9p8}_@3_*Osh+GSvszrgAr4J8V+x-^>SHW}ARR4y5JRUI)%kn($~11)%OPiEH+&-2R*yzy}< z@l848z|@4Cdo97Im8hY@p>mp`MWct97&zLR zKO2U6c~QV|OTg{6PLx>hQ&j%aZ7U{kTbWiba7NzbTVy^XB=H6SVCE^z+M2ayBxoVi zr3_=>0ALVY(33M$e}>$FJoYZYqsH+Pso*lMl0uJ>4$VlhSqA`* z5fkOb)(wxiSR#SSCL=KNn-o>2;kh#gmTa1V_g7!b~oFze|CI}`p z#>F8Q(hay%0hPJnbGN|dm-{9v5)$!k8PtV9k0oZzu1=tQ)Mxc|0ZI2n&zUa!ZBpQr zw}J$;Vo5Neb#b_y*9y6DR$CoWr#y8%)lH{S2~_ww&{5ux+b&D0f@5hn#uUAQ^1R2! zx~Eltj}klOm!}n6A|D(T6B`x0tOU8{^Im%qVmu!dHW_U+uf1ROgQ^2AIoJa}T+v!8!P>qlxyBbU!}1481%YskGVP)93rCNm8>3mgq42%%ux;5xuZ_J` z&rR5IttHvn#3TD@+kLeh1c5>c2Udxx+w)_?U{3-7G!TKEeyttipI=d=K(HI_WYt2R zPA@KQCZ7p#ktQR8imX~PDLuO#sUb8x+tE7be*XSpncMr4HZ0hf8k%$_eK2gJ`(V@6 z;nt=r>Idktu(%RKyzgWpq4XeE6OFC>V0-+stu{JLUB~x4C;}EX1@zuGuzthWs3?D9 z`~)Pe@+6NvxM#2jK6m**+MyzaoH*@5+>P^p=5XT0sY_TXq3!xAKb`j{PV9%6Nvny| zuAI(jl7%5ib-QT~aJ%4*t2dTq3#1udc-dh5z@khN`ta_ly_bX*ZAoTIE~^?XiHr(50gDLL-gEwbd)sl+`*cFuN^W|3C@t17ZhnA0g)Fevsd&7 zKP!0cJ`L35w-&h#hKUy>2%H90LYHDNP^@duf5bKuUIq+(YWM8Ph9wJp?zWeHebdWu6*pGGmMC@3^ zNf1Bc5+_kRkL2|T#aKnbVka;^hWfHMd9V)^xuuMe3#3sKfjw0&f>$%U^TZ06rB5#n z(!VgcV14`^i^gS939*&jJl(+6D)Fx>0DCeP-HBgV68tI-^muZ!`-9Gn$hGT0Pn@#V zu1vCr@0T@KFjKiT18SJ zb~Lsxa>2%*MbK7Bw_)Jp%BVx?9QRzBo4ed zvn3ZSddXE!xOLAV*)^wovb(L!FIW+SPli}TC*JTL8{-8Zz>SCN8yG&QSHPwj`n+s# zh-m89gn=C@Z&IT0ld+}r;_e1h@uuP3^Xewct_40qW$6BtZK;{md2(={-XVt0`2+bW z49}BZ_r#Z&5({K^?MiC)@Y3>@kS_hQxG9*=+ck89MDxpl4%^$Rb)1kx%)TqQ3o4!f zM=2bbOuGUp`c8C0+tbQeit&I9b`n6`w@m8u`=fP{(= z3J*X`COZ+!aOVaxndv&MfdYV8cWlkMoC4#dXR%Vw}CIP(f`N3^%*WWj!GlZj*kXnr9P?)5M|{7rI^<}15nkeZRL0GRChsmiFrZbggGWhT01~-A)#h| z-G`H3a`U!HUbBV!ipkX0Bb(8bRrS8Mn2hr_o}Nw_J4^3$FL-Q{$;&o`EnE9fPvB~` zaR2$?gXl?|UZ!Zg6)GBc0ix2}+?Z`npf2>DgF2rAoL35#fpx6~0EFd-L?Bp6Shc;y zjmws8@8sei-zs+U0M6cOPUKa^rFp6=!E@>bA|`ZZJ9zK*p=d_)T&lb|=8kD8XrRhZ z;ORZABI6S#&VuW^Jm4f7wWkgZrWsZ)*6>P10DvgOUp_r-v+JytMF7IeIRI+qS(6d) zUG%r`lZ4d)uyqsPQGDWwJ)i_hdnJRjDe%V?WYY?DRo0Qq$Boyq#*WvcCh4aDR5rRNhk1awDnJigi z08hlqiFA*dA>z>G#rE^ZZ-XM`K|u-Qr-4yRiE(}XNW7mm1YMzaJV)3{a^Q!D2M~TeHw?|%UgdNJ zjguqS)J-CDDYUrsajC==P*$F?`odM=$HRLR4o!eXC}68?RtAoC1%h)RmD%1q#NN3g zx2~E<>!Z__)H4C#Dlj)P0>S6=V)u3BRWnL$-)pF}v zs`o)s7?(f?+so&gCVu@~ilBYt6<;$2=Dy=3>i^DZ{lUC)tu+WwO4T<)#y>9*D zq5*v^1Kn3nF3OV7wc4+@rTq{|Z>wQZ5!au`Mzs&OCg6*VO$EemgwwKmt7X*fH5(R~ zP3;z-XYtFI30vRxHIUu;=eb5A>9OS)r}UXB{O%O@>4*K!r}Zw21cI6fyAc(_=lEsB zs7nUIeb`cSV8~m7-#k&-Z|%4NLzcTpz6cL38X&0M^yk`8=?iOLw*LTEh@QWyln#W6 zEs}{8J7q&fFta8muUlkXf>}=?vX+I|vy14VV+s+kr?>bR zUK(7o69J;TV6I?pa>t5gk1GgQFoV-E^APNj+k8J%kAucTt(Ge*HM8prp}QWpwR1k@ z%ppcyuBd{og-1yn&Z+Y*+WqcbNzY$u&(MWZx22OIZ z#(bl(Hm~eP?n+;Hw+Q z6^i%a4v}JX5q;u@Qz_(AQ(S?PuV;uoI&bruI;nV@zDFnDzkil4-c;rlxO|b9zi@9~ z>6o46C2Xl@$v%0k5SUIG@p86&Ztz})b)7(~J$H5eZtm6rLL2oYhtBND#+^|)!f%_W zdvkXAfj?q>fwhr8Eef|2PwcJJ|C#O**HAVCVp2zUl6gZ}&4SU#_#!55qOGb%oX4gU z=07v=Mzr1ahYm=K4&Qs~;%SZmqn6OT`t-GI^V9-nIi?dW!bKVZ%<$PI8x&`nivqw0 z?-yW7gu!{M#q|OM&rml{Iuo;!eFtDtU8_EtnpoB6r)TV*WYa%YiraVDYNpj>O=lNh z8z$X0*zV(E=wMrzmyklhKofVxMl%%Eyp+CV;RSB`bI?_z!xZpyiF@||KgL|N#l)y` zrC<>5###NLJHJ|nU?tsCsp0IvMzGH5qUenTtw1zKs3ej|%raNU-MB&ych0t#N zZ>0EdfRdR)6s1JPPJyb%v}<#QT#-GruV$Z+8POkNfz!(-E`pMXmXE?4vsxz|`hrP< zHTyKJTdrV@Q&5Z;ROTX=?t)Q$Y1{m-!Y=Q`Ry*GCdbo(tPPAO3Q1g=Bx}Dg^Iv}f=x17&uOMmqBmu~@H zLQU-wl4=5@uapd$(^nr*66hZH_(gT+zTgU#;JH4U2AEO$slz<58&VoquWP5gI!tsW z(ZF!?`GGKXh1L2VubMIG7DacF;5^rQ4N&asv}(LLhs2jsNEzM z>Xoh>m@%F4)q9BeYEtJfc>$=C#-G*0OkJ0MbDZ4oGJ3$ zo1RZ-h`kBFHN?XrtslXfS-EYmB`SGcBZE9N>5-e_dC&sY>;izvVE|AUYX=DYDohTS zn$^CeusRn&N|StqF!}s>ZUfz`n3cC~DJ%y{9o)=BfF+X3BDl8-0O;4}mh1Ru2&Q%n zxded0nQs@(n(mo-4z?gZGy9F!oVdC^7z_Okw3Db;*E}O245pp_d6kC>ctssUZ4iUf zB)>7Xom2JENcY_3r9W`datnEEDpLS7kQ?JljAB+)zY3)2r!WUaW<7rH`@@je4%#`5 zh6D-^U3WL{mP35h5q+G4{)Ig>{E3t&)KM?rQV@OXF-iPq-YKHd>ECDE>k{SvntbHY zOIj{85A&N{)%D>(Q$ODQE)h7IHF7dFjFV4AOgu{BeOfM}uBHV`xQrgV`WN4^PCHef z&(-3CgMXe(_gkzg7M#AU8d;%czElyubh_wV^Mesk$foo39Q^!2_5fiM-7Tj2z2&=i z)oJva@|@=~14!>W3^WgPRDsJRIJyg3Q2eNPyag&PU-9PdK3vB2ZFFej`M!0*Qe|wL z<8e#c^n5c$LEO`B6Aik3d#XMiuRx?oxDY3?nTW;KTdRF-qLvemE}uZnuE6e(^x?%J zVv__EDKp`A!`Qy~oc)J=aEuye7k91RNET7-baG6^n>#SyH8$}VXiDMj@W6>r99+ng z;+ub(7Z0BkgP)C_h+SZG8&rP2{=eOH! zSi;=b(zcu-g%RI9nO!DS5Szg?5*lJN$Z2#B6MEt$clK;h!hKT@h4ls*R4C`2-i`zZ zsJMJhB0St%;JgPZX@b(0RvFXpGC+1t7Bhw(_wHPS4|I~k2>^{q=(sPNb$3g37c4|h zqV;l3By*|@mb9Jd4mSC1NVb>U=}Smdd+u1dtEh9 z$sLawM^lg{+)Tfv7$$hYYCAa(d0kKVQliJsdYl9d#FemqFMHetq%<-?N6b=itbngc z4;$>i>!Z9=2TuHU&ZoQ+%?R90-cO%7CBs(fzo4Op8WTD+IDWA?*k6~ z^+>@5LBk;%#<=`KSB(eksE;i+(&=Y=m4s(0@x-y-^=upDkq7G#RF)nKS~V`;<-H@5 za>flg1K-(o85#g2okozF>fe${hNMtd%>QFU*Q%?@Wj0wh9 zybXo|ioPDl;}NG(RMa3s2)!ulf=I_ zP$&S39&=vjl&ww4zP6a&QY7mAyKVdR_{5~1jVXTR=Z+9FGPb;zhP+5MmmVr6t`v4KE9jl~4rz@{o3N#`hjRGdY#|<&2p$>PM76*jW_J7$u7L zlm|n1kJ3QGwzn?$q^$c)Td_V^Gjqq22z1nhhoXv|016Lg zLuIdLbynr|JZh@KFW^aO&mW0i?>R946yD(Mv8IbA>j;%x0{>}$&fxkF&Z^x4h)G;P z|2ongE6i7Uyl&&YTCQNo$pI``xY|{}Z25uawxe~`Ol}Ig7X77pwfY|54o>0p@r7(6 zTM*zd(t3Lj%nC^EO!uTb1g*%=d{#;i`)G>H9I}U)x|M!31xGFPzsNY?Yw6K+YRZA7F0YWiEI?xC(zb7HJ7SB+6 zhgvYiHF)RL;M8GBEdciU+EwStZt`Ydw2o_K%vjPaxA}vPn-26h6w<-rwi+s?>*KPhQdUTrciig;;JU0)j(x9p6S1}mu0T3FKq z*O>>vURRE=-)lS|w9o-0i_AXkYT-9g7x<@dF=y|11yl*j6zQu}U=P#NTFTxXkBsTk zM^q$L(}n1B?l=(Ffd0nGI`?a~ROc{ph&M|GV-NQ+R9S&Q)yb3tjAvjSXvx@Iy>P%z-O6Pc_xKjM4ittiV5;zf z_uU+CO+r*%uTodk(++6<`atWnk)z9M3@X-sXORS(thC=h?qZW7=jC(KNM*vd44?x{+FaV@`jc7Y<^c}_AH_k z-6b9fxL7r^*eVRJ<)gvR*Zyp|3FbjZKIr;$0N^`3Jb?#0Z_UcCp|d)s=ou&xZW@Q1 z&10}`5eUGKK>|SBpnz1q4zb4>6Hc9B2EY;Y7;U_y%5EQ<#iE(LhLSy#*~hgPRpMJVP+`L%yr(<{&F6 zLW`}y!fw4cJTxuZ@VupE(PnE>*zv@{T7e@!*P7m z&YktDO@~s5%5>YsCJOyT+|#mw1Fc8hbx3`++ZuhM{N$x4QTuJ);?@q|87Ew+`WBOb z7L8HYDGF5+`Fz4lVVDL9#K^7o?W#kRCS^4jtciiFEVDIL`ozAUC3Mdm;cXX6P#PO> z%OJBdAQqp%ex#gIkJ;Lp4qiHyyCit|crkc8j;};sM#X~|5LDSKon^jZeqaY-o zQ-&gi@1gGIu2S|?=eyDYU<3H51C~&2SQv1=o+9q@wsXzzF@U3uVRvR{*Zp*Mq^k&& zON)2H!{-_-J*GnI?U^B7WeY6&%+Fp053$ygeJ?sn?x2t^Ty{@i>imkzqq^SCDa5vO zS|@3qK0MvFS9{P@Q;-~{KJT~JACA!OCATAXRcF3vtE(HBOd;|*7m0(e+ie1Dt=8x$kNO#nw_G~)9j@3rwXb%L=xny!vUgq2a z-CvIg*yhUT2n|VQGZMIc(eSoPSpXq0?{j~2P?JU{3k8Z(cP$5XN=#Ce3glILOGDRJ za(cN$a#k+WUI%sPwUVWV3VSq;F}8C~&Sn0GUVgL&3!2YKisDhvS9K~IV8R;s6F(NMr4O(&8^)(tWd%? z=U))-8{VTEzEj~jQ+3K5Nh=(QxAe;CaK)(&ANl`M{t1@su#g4!# zV6tPzh?|TQE189%W9nAnjnzFjFM+YznW8ZikS`9r(zR_GxoB%|+bDbGH^C5p{(}qI zxUmbWKh##M@52#Of)0<3x=rc$1O}PG4EMW}*|WjDtlvz}A^@S;FIqd1A@1GXm0|`3 z*Lz|YHfMX+?S-pKl+FJ=&zAeE6^-!#bpBq~J87fx)6(j4$6p__$0)a9#H!n>!o8|p z)k=G>ExH(7^o z`)HwLUZ`*M}QZ!dV;)t>eo1GhJkVlP67b^QG*N7SngT&9c^X>>?IRO&l<58CN$9g*?* za@(taqIFD`$3&W>93Y=na5_a1s@UjoX1MK^t(|-@=(9{h@|8Pa;vzWi>1~t`3PK;{ zwQ@~tgm}`*CaI1%_}#N$(Q$6mPDQ0h0|g2ToxR27$;P8P65@8KY$Nt9tt@F9Jd091 zND!(%r1whI)*e1`)xjK8XNseKm0fQmiRu3dOCI&AURs@z%9lJSr4oC9?3pll+QB^& z6fhk!`6dB-363OCHvOA~gv!6a(Et3S{Dr)^(GriibADlq3I}K@m0j z2SV`zK{pWJaF2?NLE0r=QvFGEz*Wr-!&Q%h?AuSW17tydA|z(!|DbT9Mm|v&6H_mo zjrs==aZCi?{7H(q`>2{7`-gfna(7WZ3W6v<2{R*iJMi!SaBN2I#^CS&kY`4|;P&SK z{=4tb?f=cV8To=cnE%&CKX>@~vB3lR{=LV)&*1y_F8}MDpXd0AE&jckF?g{5#qEh2 z1$mx{jXL|!hjjTH>@x?6x_{36lV$O`ka*TNDh2%NMqUn%sz!frW2b857j-EGyaGRA z7LcAvNCB_HMQ}%xzfbdj4)*=M<4*$UC)oGz4}0X_7vn#`zGJ4~@qcc1_{ib^Ap8E_ z;lKEy|006^Te9!(1N`67rH6qbi4V-BvkC8ke`&bzJ$j?n=@aJo*yypsiP$Y%cm1dC z?vKJvZ}vE*a%iIl*%+xq!hi05+^hPo445x0+VV{rajazej?RDiws>{iyecsf+f&nb zv@kiA-5lyXi&B_mLPhMF0iqQTzK5857FAgl_=5JKB0X5wM1NVVgvfXjY3zI%eG^IH z{vK49d;U=C^#P4bK`FV(hi?I&uoK@J2S(!OP2DDy(-Tpih9}M`JL&a~EhXw4{cNlp zHX^PMJN>@@n$XeDKfc^h*BdOKz*dGXqfv8~2O}e!-mF}^t!zt1-*#w{xp;$-^l7BgN{G(_GJhA4SQy%3L|K7O;^@N@f#=`x2ghki`6j^9M|Ufd<6!-kPGEA6%) zef=G`D`Dp?j|{8yxjYKfP+o=^d_CsgRsy$CDx5dFcJX!W6oQ&!csi+2hkjfbVfcQ& zi8+7x{h;OHY14_{0*+T7*)O|2@=_E4kT-_;2Ygkj#i9FsRBs(eKtPVl=zp%^Q zd$<`V`zghSZ_(xx{l(Bue z;_Azry2oHweTSEtzV^%T)m<^|{g&52HPTvm_nuGjmzB}0GB++VA*Z>JeP1ERmmKplxFxxT5MY}JX+H28ojg}meKJ+1e(UR@p=$WD3T$Jc8^Er6r=00H!X|~19eT#*r zh1nl~R|j@&AK8Ap_{FbJeT^$1q=mkMQ@w zFU|)gK7KWWb;*2h)ELltG6X9+Gp%&2No@H>vHf*Xv0fnFq*(VL^{f$c2gV=I*I z>alnGQojnLJq02K?%*h)>Z=YNY47eHCoDeR@;18~9{)uAL=)XXFGSJcP>yPgdDfG) zJfV!NPVxL_b}Z4mKC7cZ4#(aw>!0CO+jp zOI`50^RV{$%ZERn60G-%U0UOgefsNiFi~W`lN-$}trQw^Wkr6V{=WD2U@F|zgvqzAslVfuDg_p8dbI(ijB-4W#=9yP2VFIQy zsp$D$#lKD;7U%u-wZU`RE^Dd&g^6KX<&VEEzAxbWo?;qd5Gw!aTU=(Dga-LTfiuGS z8~?9wq<%Z7@AWHmG;il_XdWuk`kmVrGH1Rq-r=jsikJ1~zF{jRC#BMl|36Zs{~YB%FPr|z;o^U7>fpA+{AoltFaIMh#sN#(~@lJSIFG%8r`Bl2ou@E@#)>6}??3*2@M-ilE? zkOY@{uDZb?61_-q(EI!ozfASsz3O87kFbNjR+lsiKV?z+GCE>nMCiFS)Nu6nh`Q&p zH!bpe5}Lakrh++G)85P>gFPg}4NI>c4rYX>i+W{+wH3G{VD84#Yxg7{admD%;x4?G zsC_$~UBhnN^|X9=Jx7eRm?n1Q+?l&rafzH7k&xLi@^lYFwfGwhTh&p~ruI7#Qt)X4 zw?l2$`TfI4g$jq>2OxO4L^nLN);{O{oV~3x(u>UD`f}(qlJVnG;}6f6i?dkm{gKH@ zmvz1F0nI$+t*&!t?#QV_a&<(y7gZRSkM$4-eA9Wo?SaeDH=(Ma8Gs3SJum-=G|Ay? zuidRI9(;(ZZJwTS&M0g-M=E6DXv#>jnmHV?2;1um567-bF^PmLj|(s^<8p5xg~myH zHl9VeOOg1A6S*p@V6y(aR%V=M8on)L{B@C5ZE|eiq?@^^)&aK*XKDSw#vOobQW~1D zK`w|tmvbYv=ZeYu+x8k@!zvL7@nkR_yp4;5_jkkfn~+RHrs@QB)%XC4SRu{m%@UXPS@3%@{#i%Tn3 z%H(2HhBwx9kh*hip?#uSgQ{oYj%aH&C7=6p{Q9b7;OS9qs}G0QQ`i*Hzjz={OQwU& z+g6`8J@W+=K{(lMf3PpqA|`QQt&9@{u9kKxj~WNYEUcoLG>dte`+_0d+_+{5*Sj92 zXb)0!5^q-Y?oCQb{^TWqK4aw@4qjT1Y4iTiny#5Fq%QkmUk|o*-k*{qCJb{VkjhZh)svY-{riNIqXr?99fv z`3}bM07q;+Vd9o3ct2p|nFWC8!|~^K%(*WFi^iKGO1noOH}7FpAXa@B9j`eRteRD_ zp>Qhr)&2du$-N{f8hSWWc+TyR+61ZmtLf|8?a+fD(IkIeJsWPoh%Q^Q)W2|c4ngCt)>(R(I-IR;6TZm9)1j)nuld@<=}?(3uEVeC;cEtYg>pVHNrNU(9na0& zZ37eDCYna>Y&r2FZ_P(^bJi=TOqEm@efj=qlXXQ3m+2E%*^B?^D+K0GBPwiP{j0^v zEr~R^xUJ-nb==qOH;nuVlGNaVRglPqz0q@()3dWi%f(nfAT0?@Zj!!$Ji_0vA5q5g zdKX^ivgr#6ONp(%fma%!{D^-c3937Y!jH$I?l*jm^+->$M{owGEv^`QL#r*C`K_$1 zBG>;c=CHReBa(7q?5u501{)QQV$YDdSXma?Jz&fXHVEk$b2@bmJ}le@oa$d+;a|ZPdOI0)$Hj! z*G(NN{pEfh?wrWu!n#+7j3-`HrpA!u+&`vovOg&O)+%{82D9zB?P^$a39)kYE>@4; zNTY&UcHvBbo*V~c)Q+F4%nX>F_t?1)FDp`YAbUK2G|TN9NRM5Uax05=TxxiJ#sn0r zJ2{!~(di9rxgWrMJLIk3_Eruti=X-?LPpP8Dvd8mH$eCDL=@pWjkjU2`{`$? z5Yy1rd!55w_T%pgCkjKhyb*#IZNsK!ic;<|vOpnB`cI)iR2kMaEK_YKL;g8NA`A zld|*O>hzuQb^@5gW3QpB2;;5>#6xcemaSwLSy|RE9UG3en~&jP?9M7WSQGz*(^3px|1IEz@~eY=9W|sxAkpGs(bqzS z)8|I!VkjsY$YUiagTCvWCgemRA>0d1hPW!3DtNHt1bpWFJ4}a6nI2<`10iVQdR!Lc z;9xtq;php;#sT?Gkj}_r`;pJIJyc^;hbgY3!sO0}HVk(y?V#DQEnVPk$(3{%c6*)r z%xCesW_#QI;na)^_5*QgG|Y$T4F3YP&R!xV9f{1#?vQ>tN9gP%)h)#I+Vj&FE8GR# z8ebWF6-pK=I8%|2OeDHI3(tU<)M?Lda2KXzUq~Z64xq6V@yP<=vp4K96PxbWm;BA` z&+TuVY?AX&)QJoFmM2XH6(Zt(y7xWY?Pz?di<&h~}bqy4Q>o z7ED$w+$~cMR=q;#U`lspgx{HyqRxV_m3rKHA+N<&y4c?(C{G??NaCna># z3F6ZqY9l20E6~%a?%4oMroJe}*N^*Y2+84iT0nJBi%K`lJ^hWWu5_O|H}YP4n7se8 z9Q*lii5qod+<|11^N)blqIIAxW_&Pr7hsxze8yC9A>9NTIJhY3pQ`DeH$l-!?4GIa zZEu56$#Kb3iJ*P^8YO%@tDzP24@?bb?X(`#8&2I`9?LlJJYa^%@gD5h-cX24jscxF zMNueXXsCcwz|4RzPBA zSQt8Ni5-LMn6c!yui_O&8y|J=N?olB8tANI<4r`(^ctpn(dz;7`uiac!OnFCV%rBR zFI~@XP}m$Fvn7ccm`?Uc%LTv+^4#>?b)Q*D`;jDKEs!yJP~AGYorfSuWblir{7)IjO&D|xN@Uc1iJ z{R|h>!p}g3fdyuuIfg=6e!}g*H*%@*W;3H9LA{2S(v|VOq=9sDfDG8QA>i>v)Eo)H zVt=x8Tc!H7Xtf&$hZZ_m2}}d&_mjtJyGr$&>O{dFrfKu_wv$3jzMkpzhquzUJfY=> ztVj5~s#~XLdix5tiQJS8atLoa-YT8lMlbzJ&LpP}ZcJnEXL?nNseV=tYF`))b`Pas zhd$^a@}Qv22*%+Ic+Rh7k+?JD4ekbu0h%7Uo>Q8<@G>d?*A#f2AakRNkV1uAx032B z$<(^-2}jUY=Q-?M8uL#mej9|Lg!RPEdr*V?hh}QepND~_B?__g=k>zK zh!&(*v_r%QPamohNNs-f0`@vBmT%? z2x!6Z`MoNqFa6FNR>qIXbGdiq5HDEs;}4cUpYs9j?X@kMvzm9}Hqkc_6tQW0HD$Zb z$}8a%dfUf}6L(&}mV=8_NcX?N{wnbctNH15YggTBI7tri1w_eSd+Xnj-QJM;Av0AY zxFo<@?4!l@Q5T;?P3o#<16kNQb=@6D!REq&pIvJ`_>VR*VQ!g#$a>H4#xib-Sv3dGv&M=?yg}ur;PGBOVV{FiZzU zVki;!PmD=KTi*rMkil-S2w8Vk+R^O=20=L*XVV>SvyNPXwLJ?7=xLxKAJk9>~Z> zj&Jnr{CvXaACyh`0DU)!1C47!>1+xY&y2yA2&~&drQW^6`ozh&Ei;A{C~18dCHuLN zqv0PusVRC6h0|hQyg*=8;v&7*9+9HpzM}yoZ&{_#z`-CKZtd;a0t*WG)~cL?DRvNV ziO5si?^XC7juu)m_5dC2@da~kgBC(BcR*W|6uh|C??r()kA9@DV!*!>?*h#t(ru?wMAZIzv){9~bmWdu z`3@Stf|{k!KBoRoX)Cn2V_k0U8R@-i>>%-Ums?nqK_g@}4IJHUC7#8L#)*4Io4h&D zo;Sr}({={ZDPqjdN0~xCrAbJc84pFGieevO*5@(>Xj?=xWpH$%CfrzCFR74wHoRwQ z&|@jDn-pzgU~Zb)(0%O;=3t#UbK`v(J7aOU8gDs=SWqP;y_Az}#v5#Zj{~p=I5;E( zl*0}e73|Rxq^{hKWeH^&iMi70adPTP6>}jT)#^qr0R6{t3gf+fLBqlaKJl0*Hj^tT zuW}+i_TGZ^xUN#gW(4L03!hE9ysy81ZUmOxPC|N}E5H6|XShjQ0c3~+hoNc`JqzF` zQ;H>%{U#&Fwfj5aVZV2-|6k<2dpy(s|NsAam6-G7Jm<-&sHKr8%qir2j+m9ojL6HO zh`rd1RC4Gbl0$3`4aq2C*-~_R$;>pdNWB~y5+*ax-}Ci(e}2F3AK&lgce(uj{_QU= z7n|p0&%@*XxZiKL>&+)4F+PPLMa1Tt_UkhxA455^HeTxBdU2!mnjP5b#vnoRyqa^B zEO|rFR}Dc7{}b~%1$wqq;|4}tBUeMJp%deK4u))8)O~YqeB{U6?v53Vw5!41*3i_e zaar<>5f$IsZvS(dv@baRv(aV+WO@G;%`a!R*IdY_t131CxqG@M_LQt-F}->ecj4_R z$n_gxp?cB1y&VL%r1eMFl}P7K7xg35Bpc=Ueo{***XK`-b#sUccT(90~1S+sS#mhch#gvCcVOK6w*1INH z0bNNce(#|6ytLHuRj)4tg#?3G+Y)?Q-9q!-nb(D%enO^;F;e1CjzCbXV{kcxNrJW# zXdG`(QT!7*&!O{)t8M{VJH)105UUI@KI&$i>^`(NJ?y&KJ?_`MDUVZ66!YA7*$^Sw z#yINJ$O5vuF^bupd&x^Jg0bEuNNW;I7E5*4suxv}Bl}7zIr~i#B35Nrz4VH&9$j7P zelMQCWes@r^C-zosruwscSqjD4xN*)TZ`R$QH4Vz-8*bNUd4FS%TOY)hCn?0?CoCR#?$F6 zXdR4mSvXAOAXh=B%+wV2s!XmcX8i#P$|Es7^OH7bk?I;? zW=Ie-=m6Fx_1~0$WlTz`rw`a9$RDekBC4To#kxMt%VSEZ`EJoy8uZRdC==#tEpcba-7Wz9)yaLFjuxI0GmP6rBKB%pGhorRwDF#5PR51NJ4$Pvx0 z;?$QTc(Vv_({#l6d`t*jQ6=>C=EZwvIM0v}+cu%0Xf6wbXN7SyRB8TD= zeJ0*y1#Rn4%Xcj;+D$derBrVnL(kXNjI#VbcPU(oB54o5dAfw`2Ar-1JJS=ZPQx8gM#)H^k6|Ls@_2qXf3@Bh{C(_Ixz-5 zr5?uQ+l^BPe2R^DYy1m`&q(qxX0@JuzNXSRiu+Rdg$3{62LX%y0S;m-O+gK9m=GF3Wnoi*^qiU$TXJa7;(C533B!^4Shwfj>+tyCbZHl;W-o0)+xQ9nOoa?AP$ zTvbxeIj&582vzv&{oo%vE+)QdN3OvKChdu~YF08KMyaMX;?UHj80Z&-V#d5;M$|MU zcL#;{`v}SXaL=F#OlISq%!^3FhEFfjF^31kXYGo0zUh)9`$gS#?t?dtl6kDb8?%-v zRjh|2+UUT+fhvAbt?$`sS6tS9iG zBp6)9d>8!I4CVGp1(1i>2t_vZ-c=1@C>a{MXQ|{$j!uve&6&-!JF?^snGi*NE@cp5 zS9I6G(wmmd;>QI>c1t!=DE)npp!n81eVdIybAi#jrMV0A`V8kJu;8}Qk)v%3H+z-@ zuN81g0EJ?$Y=fKFT;Qh05HDul4%o{QVjI2zUG&V3R~5rlivai4)hRA(=9j4X0ii&| z^mb`eN51v}1eC_q<#{vY95W=U8u>w2uMz#vqXzPD>mx^qbH8(whoussfanywuEMr} zSWVY3BluvMfEI?wQBqSer%i-mVUkH|Ao0P;F{dLl&(b8HDOvS)x{lWbChkJPobGk` z|9%#IMwGRK$sIX5W@&$~I9Nk`_FwPs4JGHzI~{b}85S@F661AQ&teqA1uLm{+Q)aQ}^|!%n(^~ zJOGBJD6Q0DOfFJvAjW!Fiad)4xXnCR;{*_<1~iiu>~Q2BylBd@lj9lRR;6pGC_V9I zkQ8xDxLskmbSK~!CxSuQ(zGzNtF7b$ezJ>e!7Pg>sPcVHIsqSzC;BI-6O`tL13=Q}NTD2LTXQ3cwv&BbGNWcr@P=ZgTLqfy5yN3-6X-ZUG%F0@~Y$Mt}FOv9J-v7)+h!30-55h$-GhiySDTH*>&C&<3>-my;Z8(C=))w`>L- zDx`=I$Bh$l+Yh`|n`HNVEkHJqYd@FX`i)3DGbLVmf$qjkJV{^p+FGc~#faA<)jS|G8}H!a0JmeUO^?krak1o# zy8xe5XP+`h?zoR|usie+Mbu0M(TI693Xr47xuX_s#^AHw0bW6C1TVr5R$$oGbQvYu z={RVRM~onR-$v0KkrjKFC7!JQA|lk$)Aqv~1(c4`)4wGoDT%{g ziE7o7ZDZd~8>wsF{NumMRJm84pzz6q?gR%RyYBM&U4!SK*aZ}{3e&tUta0pcz5bLQ6sRv(r*}ha0=k|Z{H#~NVTD_GaF@JqF0otPkfLgp3Iqc!$3mlC143cf z<%-PbM|Hp2%EPc9jhtM4oD{?&8hwMFM#YzaXWBp;-296yVR6J3G9qi3r22OMU*9o` z0Xzyxxue4IrG*=?G=VRGdBhO7V2a8dQ<}2}82^qtXFGLs5!5seXbay84*j_P>WB`Mg?!hpn zAh`%Q3$@7dL=aslkvWFP#I&30yMCzWQn#J1(ON5BIqYyz9tAhLc{eN{_Rmewf>n#@ z+zTC#qY{|>3$Up2B&X`M(0N{X@MaS#{|tDO{NU3(g~0a6FKH_ICBmLXrDiKIRBC-$ zo|@iWM^^zZcASqKXg;NNO5w?%n6c~>k zO>b8>*2{xX9G`e!J6$Flj>#sf=_zn4ZcB8L8^Pl$;3Tk6+0_b<$H6b+@WUE~RwAZm zRG^mWuNd{$RIV|z5yOz|SW%#+pnzPEmk_>{@M>uK&7?b5xvCR_@Bi%vx6!kBs1~AEs_Ti=VG2WMYLxeI(2}~GJHCe?7I$S8JKBC8xVv%KJot}!-Kbd~Z1T(F*}5grp_I~aM>H^aeu>8Ml3LWk?Ac()xo~+ zgp7^HGo=+^X|&I2oNelQ50xpY{9m(yHXE3oVm1LT+huFN9&}&Ur{#iE3y7tOH5gG} z@&a|+39e7H!^3a(#4l#Y)%J_Y=A)w#PS4?Ri_Id5Q@!7lo7nwfN>f+_BPP{x;qVp3 zG@R_|uVRj+t6;WxwE}pk8C=c(u z(o%beS{MmzvR$#L6;!?bLQK~Hw05kOGYihS_j=~X?4hb+j_el# zYQ^K44>85`&CXjgU^J2PXbq5S))5>3CpXmY7pv zXK!8f-|M1?vYijyu|r&OaT5hJHqIT^`Dom|;u~wtrMxbyrJW8(q5qxOWQb;hN@2@B(KEL{I)ek(-0t zlwE8(2M8W^Lf+|FAz0*tz0!*k<6$f=IL!{*3~`h2T>a6lmmiot1*Kf_ruR(OaF!d% zLcT?7>&V{H=!-s1yH9g^sZ*P&oh+aW-z#M6vHjb%Vxs+0`iinbW6(HR)>2IdK5oC7 zTmETU>iRv`psUlhiZrA20Q$52qdJPc>nzNU;ZLBxp3^vCdZ793Vmq9zX8yWJ#4N%--O5 z185!&6PuNLQ^1vlj4A>PpRS?(NL()H6~;)UxGO@OsdC#Zo8PZe7vh3U@+DVc3Fkeo z?LQq@+y%O?2@YSy97>hC-5%-bs{uTDTBoNUhB!rpMIQ&i8{FzCwN?;){QH#{!Wl9C zm?s!$qbCt}%qD4qBC}T~o!eR_b7SaGr%8(SI$_@*VC4g5;2fmy1FuBb^(=4-^WU$n zEcn3rLf_(tdEROAU=;NQm8IL1^f&f>FVH77{r{qOn%2E}FJ)@t*j>$}Fk|yKiR&Hi zrn(dU+1lk>CEvc{8l!EYG37N0Xn@*WjpulGgB|(~X<1Fd!U5z8@Uy?kQ*q zg7xJ~Y%+*v$hDO1RK2)BU2hCqSO@I{*iVvw zSO7g13Lf)|OCq~!EgDS{jL`mJ*sqjDTzX9J3B$yirUzKa?u3{Z|5Rui^Zn0hy7T@% zjV*v6Rz{PZ0|pP}LbSB@PtM%J1a~Z!g<#3w$U$c@P^&vXY$%l9dPJD4CAV5@F7v77 z?a%E43T7)2K1%}_t-5xdT|KU+i>l~z!~>(7?Mq3y-EAI-Chn{+9y8Fm-ZdJjd-ghJ{W-Q}f;(YuivLxO!wMQ$POouHM7^g_DBaxoKApHe z8Y(VfDP1FD48l+w$j?Cvt(SZ=y;GF5T*2an??MAY+E-g`b*nQX#yYU{;a2Hl7mF@P ztGO&w(V@Cj5m7b?ferTx^G2VdUX89!t*fXtGNLVQX~7$~xLe|O*M^xU_Ax!78Phj+ zpqJo`$l^O;&7`K)3V;O74?Ah&-nkG46g-qNzR<}M)6kK!+_%VhYnC<~hsnvWnp33J zPKD%7k6_5T46nycbJz671dCH4E)U@^T52*{X2gn&OZEj*kmQZ z*@JDB=P5vgbLgmhmQMpbCv+=2X0XPgvZLFJYT^4&R=W;r?tNs13y&b!48u>CZ zTif{=#s`~zub6K<0A!21@EEeae4`&ErLi*>G@uynt3>FX$&I>M=yV8?@Sx><7EsmQ z(dT=(ih%tXqAdz>I-;&O2bg}X3uQKXE)`y`T2afgS&MyfpjHFBZC{jhGH4g#P)Jgx zJkD$M@;QYsn4O%anTj?m>}>p&^TMO>wTz)_qxX+0qH4jAa4qUeE{RW;?&ZuGl6pHHF-vqPm@5m25#6tk%#Wm837}4$*>qdL@(L_Fo_bm_ zoCKdp zT?tGC$DFjd>w+BLN*Z5MoJxnG%<*;uj7L9or9&1iGIB3(dU1QrpSHNJXZt^k(u!UTpY9Y2{ z7g+K>GNkU&F7J^^-!!;V2VOaT`SZ0)Mrj~sKZTwt$NJa|&ran#x8EtLZTel#Ywul6 zQca8LOv;Vh!<+cMZ|N5~CZjRqRK68_zVHGx1BXl7USBZV#Vp$e(U2BqPg~sO(1!v< zEoIb8jqVS_icW{yK2rZmuYHsKXUiP>oBN2+_)C9|<<6REx-?W5{?Bc)T20{SKIXCF^!cPlTlAq=eva&^2#2vd?7Z_ucvR*@EGyp zMHnWoeH-2@;NQJ!F_kccut7@Ea*?hBQZXaUN_xddNDu3-ldN?|{%+R0 zCQ7>MWFE|$Y`Q}v+GiVNa`OXVu1Drhd?`y_?wl-5tG>bW^zqP>$gIzVtJx1_I!meg zR8S5XEv%O1e+n|uj4tK-BYL~vpVRJMn@FeiH2q9I0nL~L`)ctVP{?!H>SI`<+>N?q zp%fYo283ey?bM~hR}kBUd7Z9tu;)D=!@qD0QHg3{MD&(W!nf}QouScLv^@-(*&ixC z{kThB`)~&FtToz__ULe}*5h!LG=wO>B2TLJ9RDa_y>>mWvPK931s ztdPh!20q`CA3cb;5md?Yu+|_eI-=>E(e>rU143>FabUW>Cr}(ZQ&E$$Sg~F$ergAA zB;B3W2mL3r%Nybpt;@E;FPH0Q=Okm?#<4a^{h)b2iC{~Ly+Nhs(#ISuCJg%>7PW+} zrEc;RiY$PwTHjZVoveHryde6`D$yG9#w9SKE|e=XhVj29e>V={aOv$s7)VEtR4U&g zqY*qa*f?=ThXYO^#wktU1lL}Fq^F=#h%xNWp~dcQMF|I5>qA`6gyh0BWHW4wwX(ZW zR8cid2FfQgVv{9n86*OV*#dEaA8=avnWKh5tBop|=l+Kcv~{EA<>&MPuF1WkvCfwr zvs7#1Rtm3bt_bC|W93t}$x9olN`vV8pe7=}awx`JbH=2vMhqpBfTbjI4rxC)dxmWT z;0IsZAoR4VfF`26QLMRdQxiF907D=k4(+(B<^W4zi?7Q-t)&D-?V)c-EhvWGtaHVB zWp@BLkgYdJp*P!#?p?njhJ-Fh8dd<^iNR<8NnlBKvKQvg8FnuU;^n3$LpIZ~hI8Tg zrI~vg#snOSIFvFvFs(JQZhc{I7XWAH~Zg~BAoShH}+xNo`IJ~*_L~@tG zPQ$@pLvToqVt0Vs=Ucu^xWu0y7UUKmFa&Q>ST(WbrEA9gGg| znYHPR&MH2j0m*Da13aE+KO>k+{Q5UxICa8-f)(<`?`fh+6y4W?b_1)wGUhgM+g(+R z$Jx5S0?OT1{*LAcOo+$mA1vL!*8R~2v#!|APHw-mgbu|E8WmnzjgdP_J$Hf$w^D?a z-ByRDvvvQG(aY#4_lqCSptl2~w0G+Z^d(x78miOHuX$Skb3Rp8g1kg>)-j4zS5rQD zrX-aP2qGlWSnd`M+y64&OU6*q?8C6>hgWx!)%3V&-9~@7^+GQ^C>1nrg3P{$$~l-v z(a70%nno#$?`CI-(J_HLN^)#z2ZUSIL3HMZ5c!lP})hwM+i*dKeN(9uj!xI#d`Kq*hY5N8$3&O~Y?~ z*!6XpJudukmjjL>{F&_Z5Ude+XYIGj!?~-4nSSy%oUZoj-(BO&G$>qTP>Zx2fJ`Ty z`=3nLD7D-$1=4fm6j5LLw#PH|Y;74gZcZ$iRzpkw*}srR=}S>vx>kU2fbPJ%`DyjMt!nLHq#} zV`aWP<{zt|yFf!_*Red40IS;?mYH`a*4g!4U|46pQ$kL?o&tr7-JD~zW%vjt%av7m zAqj6~+TSRtcOW@|Ypk#y#3RI`lP@x7UU%CwFp#Z3k8o(hv3ksz0@#IZP@zE7pVyJy zwP_EHdF z)@ez4L39dz1ygwGoZXt^qBT`!Utq#w*KeO}GR@HzA?A|`2x)G_@kZ?D8{euUhXW>$ z?)TE0k=E}oe3x%e#;ggRUSq`2u$$@ajr)?H$Aqze!_Gal(J=qfq;y~Llxj}gpz%BA zAJX29X&D!A=l-(yUK&~NP-*E4i3c~KeH$LoOhsxTp{qD0TYfBFus(R& z7}0mM+cinhHTbkObUPxHLg6m(9vx~McH(a`9TwTa>z^L!|NTC2uiJLTd?tXW7ziI64uuK3d(Dp7`BD51vA>P z&XD!b6))DIV{uR z9Jt3HxV5(p&2+peV^|96{k?BcFc5Cl)Jt@jByB3&(Myl07L=7E0|IQo*LIk5t^4PW z;}zCXx1naaiDK8c5%P=IqT~1gfAHG@qSd#u`tzrY)XQ@AnE!Qa=xKV5yQz~+UTZ7Af`rIwT*e~T z@4;Y&{oWZDPTpVfTLOGDufBWQz@|wz7!wRK3O||*D6}%6)lQ73!apef6pB2K9QIz5l%M3`5+CZVJ`P~doLQ3;QMs8Wj}SedtE18?)2gRL z=D!ae-vmk84qCvsn8G9n1wgP3%d`V#P)jq14XyCdueFX!S0z)M=>nb(J?7n!gZvZx ze}cI@$)|opuE+mKoFW{wnXeE4MaR>O3JIgEO_)w_*bhCKJqP@T4F85vna%TDG-!fn z@%X898N->s(tktKT5DfRh5kWGD2r)bx@1NHmH2cg-}QU!C`&@%^b}9zGc-5H%uxF7 ze3OM<;%s9EUj&M66Vjb3hPrthkvRumPb{vHfi?QZ)A^1pBFj@+s$(M4;w=i1vjY;f z@>YkwfQtcjHcdZ}8rc~~^KI`X5RCr1pRur)5yb_q)uq9=2e{&AK=K#n|d+e1Y%aKrPRY7_Ue*TLAm2e4r(wc(^C>SJMp z%INUOt(1mu_pE14?;kmw`1M4EION!rFchz4gp<7OZz4G?S*zjJPRJ;HRgFiAb#CH* zWwvD%Ba~b?q-<9hrn_}Z3q)P0( zRMVu(uUD~ei|L!(xv8Eslx4+cOv4<{Z0A`oSn8j?VrpIoZp+@lGxc>#w_qtM`(bHB zEy2tarsSW!$qtJtsQdamkH8IJX-P=dc43U_b`LM6>!0BH*BcIterFkl1W9uJDXXO( z{6?>EGfhAlMc4y4-8?WsY$`Nf0DwV>6}Xt59kOT{W4mJC_&ILTO>t;c%Sbt}Fy73b z6X$ZPhLt`ex@L)RR|T6Mrr5C8h@lWAz74KVgR&OaP5qT5b9x$ORCURxvh316>Akar zSiBAcG8ayEq0!dpJvQWuD#jd0R@66>+*y+6wO5tB8~|rWa3))DoE8u!mK#W$gA7aZ z_zGuo&W0RluLJ<^TLv@_qsTmeVYs8$P=3IO?qb`0-a5SpJqlw=>JHzy*6Ibw?G}gL zYz8HG&uk_{_~QAvr5ZGSqe?HYs*~+tpo*%2Vkj7Xc9@`UgnUbQ_-OA8DN0ol@9^$IdVK4N|By9{& z2~H{FiYtP|q(LVH(J9Q$PaA%q%;NiB4}C!aM~)+mcFwcmzgHKaa1Yuf>ookdQ~XxP z+*U_Gzm0vf``+}G)B63*$h6-()t?}tUqHv*idsjR=vON-Mj47~lt`&G!&IO8VK#V6 zp#(kzixc@_3cvoIw0!bhY|o*C$~NfMkv$;8j1-#x%BBBQLbU`eMRjHpY&&}B0#AI) zR_yh}#GZU{CTdr#cuyo3)Ro;Of~ogJ0w?6M+IqUDI&hp+oaVqju(5qID`M(b`_RdQI90H6xm{;n5!Br#to-e~QIz8H zQTszJL9+3Zr~6|9c%N;c8q?Ca3)?LrF&&VcpXuQa*vljS2wf=#N3r&`sIySN#In-BFb<0mA8|)qM<8N=cS!?5~mzLGd z8yH0HG%2Z|hN#irRO8qwcNIO4w52a_7ik^Fa7{)lXR3teaJ2YdRpgh*Azjpb=c+8- zn{_a9Y^5mAdZ4K^=mVBbqB^tzh`B;*JtM415lxo#iS-Lfd0Llm;fV79N>sDSmDaiD_Rgt5)>O&qQmFmC}|D(K<@gjFep33^THeMtHw(Q zajO>WWPl%V_Y^A=topL`wgTy(@8;GwS6MkP4t*C`rWxQjuoINmYM#_}qEk$D^F6hH z{FlPvPoGY6$*LsqIy!#-b8K|@F(ix|ok|M} z1KUY?W0;iN`$_#fA!?3>JCjm!8JaXPP1vN#ouadhv!%fmSEUpe%R?5tZB(2>-aehV zBP(Ik45kaIISkl$PJDQ6pSAg!HdwlC-zEbdLPksNqT^5HiG{gSG|z~8T3RxNs&o;6 zd3ZqIVZTYAJn2tHHndM%Wg)djBkE#F`+6SPzyua`slen#U#l)OreapRQg)6x=se~f z`ipu-L#pFJ19hqRDV8!#@7-)D$@AOgpf!uMxu6ymt*?FcdnKB_+ITYS5^1{P8!>20Qt2G@T($gP=;uCca)-`oV=9+h7^^}|!+dcPQId#+*y7pQiErw&Glzex976O}{Ta!ihNa!gHHx-qt(YK};qd5%pk85s*5d@H@Q>p+ zi4K=FcQ3DX3oq-~682Ao>aU|o?c8+WqS_A@V$?R*? zg=VH0l36jbc1Yd+$O}eHDY|vg#cP{yv(4Wwqt=Hx>}M5N&TaUVIv)7S+qZ8IliVGC z((pX0-0!P*oLhkhex6QNKl99n+mq7Kt%{;N0<9!@wZQw>cLi#WK&NL+PQlX!(Xnmk z_K!!w?C#KUC5ZZ$%*l>R(h8zaVY~Yz$W86)j@hZjGz0mT@rCuTy>q%ljnty!-$`&2O2E4l17GhAf)XYf!xwPAg#OpCn0A;aV3(CqE;^@Fbu1xiZ@`L9KkT6+p(0$OBVX1Q> zR(DZNPXlW)6pa7_h)W&xUq+6o+Z)H&{f<#|3h=XUWBKcrQIGjIHi~?W-dasMUtj9q zn`qybin8$D9CExl$__kxt3k_S)Ld;nFWGl2df#`Y91mkdFp=$sau?NKKlUe4#!w!b zFl{j>p^>dW1)bSl8lxDTn~p`kc0@u+P-9eewB6zm+tAg8B*~roeMDezDb4lK*`50j zF|u{c}bMq^V`HwkJ1DX|QjP3r<_ZA2RZyTfI+iYeV}#{))J@;&>Gud)b(p?V#q z-rgcS_jgl#LUA9WIq6UXy@$@{A1GhjL+%sYN5xWC&c5h%F4&CuY;9BtG&Z}}7+Uv)s>TO; zElrKv_qp9ntp;fPv-f?*R|)p3HWT=nznI}PUtnpKw&LWj?iyF`33uO&()?xr3Wu>O zI*z|`%LWjJCy(C6VafDj)M246>Y6yj+zR*Tj&%Y-$m#xYd-FsDwX0YsqDa?!^S5zp zDQZ$uK%s{6eo;X~m-ueCm{27mDpOMh8gKEcdImuUL4l;z4FF$W+gy3RVl%UAxQ-*c z6CG@y=bk|C!!(bXwFu_kXt&;G)5iDgh^V~erh8}BWt_d{y*yL14dMf7OkhCVq}h(#`y!D@xs>{0h*Yd zJWz=badMu05Za;|a>)qG)mCA#wjM8d%Z7%ada4y*4rRibGZJ-3FxWYjGV!UYjSvJ2 z&rV05HZx{?86dQP1?Der+Hz&I`H?eNen9C|NU!@SLub2U`|tP73mA#aj*>X58<0z( zxF&$z)g6MlVD`lR^>#^x4`1aA&T)IQAi3p&)!#ciw}0pkcUTp4Wj53DC+fy0AFFv) z0-z~+EMW{Iejn^e%9y{3i$*E}pV(waq+Y#lh9kC7;Ub!7t1cX8vlWiZ9*AM0hzD-r z9QlDZdv=6!=RgTsUXR$`T$#P%knCtiI=!|J@|3{@*|tmDLzq2!)vwe}bimSHMu&v2 zt2N?UeK0$XcXv4)RIRxdgUqpz^?BX;aEsgs;$HrJt%zNlxzetxE)$Xmr1wk$->NYU zRez%1x@2qaV!)~v8i{lBZH{vtS6$o@gv-VxZ=|*&OW0gt6f}zmM4SJ9L1@gzPt zXt=kBB75c)G}%Lafs`sL3+JMQRP$PxAx4u?8`aV-n=`52twEJYx$!rMrRNE~vNN8g^Enx2X^)!RaM?b194?6FV_bQp2 z+kViT8;S-dy8w{@Y_lyGO!$MNVbyJ|FwX*Bs!BiYjHl&9(}{SJN>{Xbs*Ev~tDung zpN;5N$9$f4iq(uCD5W`3mxmQJE5FNs7CY}0**vPrcht+f1Qt}pi{3e0iO!h7lU9RF zBI|4T>1`)Z9GplAy6a6iRDN#|%5E zt`8^v-B_J%Obl4~oPF=2ciuTDG*=e$=$Nm@RQj;$gx!^jY*_Mmv&@ZuUK^-Xkkq^x zEtEuUEJMD>RBeyTvE9#gmkX!CTJJY$?z(3%PXT-ivUXfWO7nHAXD6sYzzRw6WB!YuXhyixr!xYx_4a;he>=VrqC>UG}Pj~S)5;=skT=&rfZVEVv5qZH}HF5V!iUDlsTd2sLj0!YqyZ7 zRW1L;ZQzvAtG_43ztR-ay@y9cbOo0)@B7Rp#tEgC-^O&!{wm8X!#} z7NWp_po&^pu{PshU$slk$xFJr*eXV}1;paHO*h0=IE$Y02RzJLu%MK$}k9{@fHlm$eD(BW&_lm*2O(@vxDr>~P z#?9Nh0|w=2MqHgjT&xj@7r05BneZ^eF!ir>2P~85G(P^<)uPDWQ%Ie4g26dLY`D10o{{`1ZvsUmYrE8w+*~o)*fdAcOz4BILgy%(poQlW zSt+WfY-7W5n)^l5N#S#d%Xo<5nD=kdh&xksx8wsrGBWVQ>#UEBE5ua4=~7CJ@3ZJXp4~B$u846h)Z}=E`w);pX{gM$1|N z>-4gFw|D2b@joizdDx>jjuz*6$P_AVq-3M_95uh3eML(#_w|W^q5a_WEHIGQ{2;5H zFmj{j=UG2}_`~++^N1$gM2jlOUqALT<(8pO#Dk{6V^wP`RxgM1#JCUY5GTGFm*{=B z6g8qjwV;LVaRUYk47l%<1ta#BuVxUZNFoRTpYPn-WV;3pbxr?1>)LH^4M}pDBjvPU z)C<7Pg$m?dLLgT@s5$oLeRTV0?rT1f=*&TLyES0Kwt6`qy%!%6_E>m(SRp(Efgi_G zbT)&^K8Lg1Qc5hq)p~huVmajjcu~)-22XP8hp?n^EU^%C!u~3l{tEgBGuU4SZaSR- zCV;9G?_NS;!H)y|)N%V^NB!t-kj^2){I48t3YYZ6QC0#YBQdzPc36tx8-q1$wvFkL=>9228%Y-r^H&22b*GB`%2NGx8Ckwhiib~JqE z2?e1zWt|S#EEqTIIl`RGn*>1c)?B-F#2VW_1ku2}nV(8+Whhm)onaazDgIm(u5GWF zrU>(GAy=TtMaBh!)GLyTWpf3X5O6S!k?2Hl+}j89Fsg9`ovJl(t(@XyRv-X`8sNA2 zt|2z{xM($Sl%Q8w@YU4PvIM5{Zgf4?x{u<4N*kjP4>5p1^13xwdSRTa-*Fx zT&M78U;@D)YKA?IOCb6$w{%NRgvcqi;X zD=4t?Zl~YhFgZoIySlXYqb!XpCa)Ab;puPfe^B<)DczIn_?075AZlM~J`TU=l{Kx=@?13!gf-A)Zk@d~;1jy`+}vC;e0Q!ldb79y zhRI|t&75f?l-xj5tI1$+(3C`4jAF!E`$)T7BnQpGZ%)itrUM@i6kS*ohQ}Ugu56_N zy+6?l0xq7$VaElHvAlta@SiC0ayMRwFidhTr2;=;BZe|BOM-F1iD+1lcthWY8dTnszYBArV^-3pR-_O(x9ave3qIRzmQ%m~v(s^+c7q)-5x3V&z#(;wQIo^x;=@o2 zp(pTn%b?i9SL`A7sNtCI_4>j)PMWPJIvm|s|C*!vP?su4SIbq2RZV2H(oj%cYD?B_eYdq zXP0n|L1Bu*XL4360qy;Q)FnIo_Kfr6RI5qe3@J5=+a|{U)qm_MEAo!zy2<4?5EZppFf%A1Z+s{I=o-r5{4hg9;3d=rJ@OL@msaKHm(o<@?$y4(@G>*6q^enC z^Vt!h_2lyXW?cc`es7nUAmj&CrLi^zsim;@b9C zv^~^n|5Dv`FX^5AokYty{YM?|XamjDbsKt=VoR>d-4*w)JJP>BJRp2UWAe)S&BUiL zt5-hpuRr$0DY$cW?Xv61P;=D^tX_O{v6C$6no<$M!~ z$~mY7L(q+1sc62QPAfhp$U9&f$N2CH(XqIO1P#$d!>W-c4|#6)P#tIE!C$4X-@I39AdM(2r_UcR`fwmC z;B0vO#$*V!cH+Bs9c)kA7w_Ky(bx&r9^}jKSAzdsxyo5N*^SG5r*AJS8yGCRBDVkR znG5w+oux)ASvQ|zvaBu@$1Cxr8%8=G!&N2!U7i>{J?wv|qIPe~%yJC-v1)3rY}J#o zQ!Dvl=ifyHvkYmnNLT*3_ue56&n>@s)StPeRu-MF`ozkSk3E%;#heU2qIu-UgA6nF zg>+8^@DtbCJ$#Ug`z1P6*|L*hrve^Ie*8c+<>65Vk(_UIzJDfRl8kPJnre{zg z!8a@!JYp3Vf7Sis73-L&*qG>FN)kt5pqxTv%oVR# zRPe=LT+xYP!58hWpss@=)^Jb&Hg{qNdIe=|9abCrp6bO|I>f?A3wWy zzC8S_Emlh~DMN;B8wYv3vha|rj^TqmZK}(;^iWOUwYEnNO)H>X>S^rNZhN>ecauuo zCgUCcz^JDciKEUK^r@cyN1r6J@?N$exSM$jZ$-41JfSJ|vp4 zZ)kk4sR%QxaBUk%gr=1$jh{2{4e>=42QJ75dikY9B(*lX0&J_Ye`4>gU|`0jqx#+t z6O2x1^$Nq2p`lb(1WUrPlTwg0UMp^X9v8N@w(PJ5$9bn*(`r1TaObS4pn=wA2y88^ z__<-FO9BW4=6C};R2)EZI1%O5K5s%0JWi5!+)6?jLhgq=4BK$C07HQdHo(QNp*f1- zWvb$&ZhAV!wP(EWM^)MOHO*lv(jmu53 z!T)&XwOK~Q4)QAIng;uZTA?J-^V37>ybXGSx1j~Rj9~a!H-$rKTWtqgQ)a)K^EjP8 z=k=2n^Mg%gZ(14k@>mF3LSj#&Xm(GzbvMQS<*W@>N^}=tUdTv!bQr^oZto+n(c{2r zv#~+YP%}dX&$t&j1tZR3pHyZ(~VrspQAg`4Dnot+f1^|hQK zj)W+Gj^d1ZMHo)hN{ma{O4%M@hqdJ9UM#49z(`ay!0Q(eT%U}?ZWy z!D1cCR9kXCe_yF`Kw$i28--$TYXfSl+aStv^{cDWjD&_o9-ZixU$j2c=ijWA+nk%P z8Ms&IEe2&mfMG};%}#*{ONYSf$>FeuS)p!HBXs$xD>|1PZ}zoT!#`>c zzsbxpISYNgp%^Y1P3iqHTfYwut+R5sbzzh$y7%W^?fMY-pyhIi+Z<4&R*LF)^sQmA z{v4WuBqi`6zF1dfxm$lwEa}pb?75@@J6Tt*N+l4J<^lBjVAk5&Dn{0(USLaMNF+p7 z)5^I@3U+_X+VE0B%tqp6E#kAkSf;YaL0W6bUV%Lv3M+@UJv*3%)koArrbQ|t{wu=d zpSO>Bi5aJ8q|v;rOHxu7hyC1ZS?F2pHY3$WRnRj;O0dUyC089GEC>5jQ7U0@@O}_0 z!A(QXG)D|lC{aH?=(^=T8&ba);~P!qCRNlnb%xcU3@2V?2n`A8KbyF81F+ixiyXJd7Ea$TwtH}Nt$Xpw`Ij4ISovf`76Ok|z6O;whgakl zq3reFMp|3ef_HxTLT~#i=~K7oaf#3*>?X$3gI}nmUn61bcp?Qyi?6)`<1jWc);}QE z#QwzdD%or>ojDs%@OiWbTr;&CU$xCwr)hL)~895)+WFQqZ3@I+9ivn`3e2C(8N zbmGotRv^8hy(g4B-oKKAaaMQud*sM|KIJL&;N>rjki-mNdWY8sZ1=L?ybjWCdRREX z$EKg6r;)~}ewH&I(=k$zrZ z9&M$SzKt&a`;m0&7={=FE?6rwkfviPV7*9S~5K*8W_j1?|6=)n0UfsmTQ`r;% z+*9BNmPR8lseNE|pB^mQx( zBo2_${9=`xd)o?0c#+i%d@kv9trsq8bXRdaLQFz4h`y?#ugIzWi@?uHQGud9hu;5*{UuD=?Z7KEXDk-{C7HBCxxNvbJ^7VU^0 zu@ANI7g~p=XLPVNu9*bk3+3%o(74`d07+qfL-P7|*mEBqP;3xu0B0BV6;3&VPom)m zIDx6Ap9|j&^5|}MZ-=mL8d1l&J@VT!^cc8lTn)tbB{WCwQ?Wa#M`$=`x@S^VY}Ru2 z<^_f8AWUZMIKEwHqaq|W13NA1CA3fj{{3L)Ss!Dn1e>@x3win~>z{jXV}t&;_4|BB zr8wxUqzIcrOT4%IQD$ols*NaCDSdJoWDT+s*W3%O7g%A?xL|wUuoCf6I52~PXkv>03fkn zMuMh82$#fp-)<9o42rSpG-}#D3fZT4ghPp4j8+Nn8as2=S}jby3EbWk)*mBVi|wo&YybA{ykIF zP?er7$uHHtLF1Oh51F$hBz?soqaGt+o&@lmxtHqmc&7sZw^g0G=w_#w6>%qSp>oVboO@h#Ja2p@EY-`Tx3C^D_dIK zI^@CNJzQ{vi5hYB_}iaW$90%rC_5=@7Xo772nU7NaLlQ{jK>Ghx}5&J-`nhX z=Cu$f5v*LsBbbULw3Q#iZvu9#<9i20a0`Gd0qj;v3`e^K*{2YAAO08x=K197LI}mT zZuZ#4j@!V$<|wAK58@N|PoPJ@MaG=_p()GqpNe7qb#kz_dx}lqY?Lv&*F)REf86x? z8WY&zO4y=5kvG1#zAfA=YwjEHt1FKe>Pu>wZ?EVnR-x5d{l)j!9sVQT@^RgQ=0?HU zgcz<7_IRmCYd|l+YNT6hRb1wd7s&LGcO7t`&f$`I(JjIqSxqV7_11~pmlA5UHkHX> zd1%c*EGfAV(B*GR{Je11(Oyzz1V{9#e0>N#g(}}Kcsi@8S+mL_)jte7i)*uq->7KV ziv9fZtc$bGeRh1M!{_2i324f`l^YF_8r6-N%yj^X?pvodQh2nL4M?%F8sw%jH*MA- z>H7H6kA$61Gl6x$h#jp{+)DY!tltqJ4Ioc*t`U4Wz>rKezx9#HR$e8?cXxe0eJbJ9 zKotC399Fc;QZ=Rbj$-?x09W>fyZL0{Ij&}3wig!UhrMg!At9se(1e-S!=7H#J)I|c zd!l)|%?{Xl1@p8d5*HMV7+Yg{3V-Oi3SLsE>W?q7GGG5Puzh@QsVZ zGS`_FL48CPsMA3l>um$pNsR6}4i$(gM}Is}@)oEHjn0}# zNp_i_;t*yQK}1m80H6SHD$$n?w6?Va*&Q4wX=vzi*wS(~K2a9se`bDx6xQVM^^Tv% zFN41)PeR5+8C)MfJFC#(w|kb^whs=CL9SK4PEcwlB51wbZRenUF;Fb3f)8=!~gGTGgt> zeL6RD{*zu55uFr{;hK=rB=cpEDtU8a@~Jp77w1DuTPL6oYW=-A~W`^inKYjkz**~)OsAA+nQgtuXVDEHjA%>t)U2X>2J?Ekn2L*uh6MlX{cS^1Et*22Mpoft2c;P z#UR1h@f8CfMgwy`A)ZP@8twzy@T?v5Gczs_0j@A7fa9|pjE>j|aCA-&2k=8p!@|8y zy{OdAIIual1Vy$a=fBO+CGcAFuj}_R7Ih3Ve}_E8lEN|tE@kE*mQ>ZiP=dr}RyQms zbUXx?pI(T!lZxMSb6P}TcgIB52k(f{dx+S^y)cyc9y$Bd!qV{XgL?Hyr7i1~9MrHY z6GIZk6v$~Uo^s)uq2FN?Q_|*Bw)^l@AeItH`No)yE_pP~QIL0|rsj{y#>>LUJ-|*Z zDUdfl3(+mj%4yDBGA?vHd%Dp{G1RDjDzgx{=S|Sb4i+>xgly-|c#FXX&^k9^S^TH7 z;QO}D3oZ&IzCxc-E@aU_pv5({(3=y|X^#o_gJ8=E+ZEZu$AE*jZ{gk0)YRa*o< z!{-NGCWp+-)E;OAzSg}^BUsOmIW(Hyx?`empspL6$<40b85Y7aB3{W`>CHyi{^91j z#ej=pz}vVFqxifp z4z%LGB+Dn-bt9fDX!x+_FlUZUb|7vm|I9bjlyb2?6jmdp7TbpZXzaTVF2&_(H7j{Y z6W?${t<_Qc;)c6{X7wEpS`5vH?0|duZ@#uo_7yGZg_Of}2>G!Z@Wm&c?S06o>Qd=E zk@-U@sq3y`{8>F@H@BO;nkF`*pDB2Rfc*&slQD4RwdKnM3D?Zxqalitf+B6?R8mS9 zKB0|Rhm6|d6moYGgsag=h&?oAq=YnqAy{lKG&rP)%?;ryKrok)}gWz7c=TLAhH zxNyyGS_gXh|8<#*5JH-S?L-*;L_g;dL8nRPakWcyz=&gzF%NOl}&Yre4 z_v+5$w{>`G3A(gS4~h~U_-%6Hx6+AGUbLoCw`}s$6oE;Jbjs@lPEX#j&GH0uGQFnq zp8If>0Nhl950-Cr3X*?doi$~pn3)2BT@kxhr+>FKmKee9AyUIo@gU{%pz8`!kU*Q9xiA&2VgyOXa4@p#5dm3CL}LIKTm14{mq2vVnzYGv(vF zZz+`Up8ZCH-&>tm8w&$`)@SJ(y}StoeWT&#V{1O^-5iBzdjSx`FQ-s~Y5*}9Q|oOO z)4SUyu3!fZ$VsB#^Z2=62=%QQG4QcEUH<{N0(1+P3`q;LHNo4f)#2~M_`8okM4is@ z`Q;rxAQg>nOa*Qz16qy6A=aNh?{Oeu#YOe+pIMvtes2I{g7_Y#8rQFypimK_+m*Fw zcvpQA@hxp?YN!2COAFYI>Bya(2gHHKgw*Y6GKF7~&^_mpec+{(%gqZjba>*|!$K|M z1PJ^?EJjZy3p{%yz(c2NS{sI(4WFAuzt+04HFgO42?d$ZMtBi~1yA)1tOS2JxKfj6 zCUu){UI1}Q(2QScs=by{&t6Ml)9_pX2;l^_qCr9UzF|uDW@TFeIXF055)?j}6D{=Z z?WiM#W7JPUN{4@)bjsk_W_`41lxwlLz|hHic|CVoOPPGr8g8T>&xJ@p`8rM9TLZoS zb*?_Y<6)9E6KD!!E?D547KlMCkWZh>riF0WG|wBF5%d#A=`ypL0(i`wJ%=d7co44Z89rWkO z;pdgIzPwEvz1Q}4)K6*`4UOG_Ef=Zf;#5{`AU8*3?ClI7?l-Y^YMNFki1r|R7P{t( zz~RDXTy@|jf~#7pLL;$GV}vUwrSdP?zR6kn?DZ*UNE}oC}3SeH|D&_BKR1TnZs$<2?JB-zxbUm zN{xl!;Zb!Yn+KP)Qyg_$Ix6~zNNbmvfs}b~F+$^X=|B`oei$Al*{2cufZvv&$#dKa z27&kvtJPpk2&t=G-hP-~Q`7rZ*N-HQ6HK<6Of!pLg%5uN7>zt$&6Ic%b2Z@`b57CB zgx>-nc!TOtYeZfNHz5ciCBypiL&w8Sb>QuhogG?C5*xWT-?sVgb$ay)$GjZ`H;wIy z{_ETNU^J6!M2U&u(pj{K#6FsG%0Mf8?igX^yYFj8Pjh>snYl?|RLoq^V*7B=0%Z|M zNooYva=H`!Wu0Nyy)$7v*ivD(>_k}SnHdL@fF`BcVSt`M=qA(sQ-zw15_>WeDPZGy zQJjaz3kANL#zG3#XJ%$lTHzHRjkvJ`O%;n?+5O#XxuGTnI+_?Etn6VBzZW)yozm|h z(NJCiEPA7agmj=RD4m^~d&lPbrC3BASs0@sTpkSe#(j`o!{;u6Tl3ej0A|AYzSYrV zNsC$kIA!4a`Pn5X-O?pHcA;o2@5#}UvAn{yH8z&+)64yMNNkGgx)`#M*Kf0UGb^YW z-n9Nvr^c*(?UW1KP3P`@X{Eaj%$3Twy_?yX%gWSU%N2_v~*b@$|4% z_ChV~8*i3MOXJB9n`Ru2%RhDKewt8GnRXN8ZS<0U!S_|YqR(elbNVyvf)+GvG-wA2jHn|) zFJ6JU!$@$Po;=%D2v0RU~w@h_}|ylx&AxEd28}6j=(ursU@5!sBLT> z^SBtxP1;HO7JBlCq>s|0kBFQ%U{}l+>zqTVHzbAMMKZsj`{7vx2u=`f~h90Z0f7d)505~T7oYe}RkM-Q=Tix6pef40Tw2Y_hr zeFa&);yxvrS8qSRdMibpJKPVT`_dO^XdK=p2Fp}jHHGSDj2J*}37?a#%UP)2b?vA` zApgb&hk4ML=S7oX+^u99}jglQ5}#>>tC!}pIWGHdRAT*NCmAc zvvp@Js1-*oAmHX{z{m+wT9e<(D3fgHA20R5xc|yE0nm`_*{dmcV%)Cew!?5~FW+^2 z1w%RT=y5`W#eu-IeQtO+`2oAl;Qsz|kw=slcr_I`KNp~3v;6=^@B|ptfP;Hv9!(LM zQvq6VfJfR@)ecCA^!{sZN2lf9#PX!o1sqCNyfPq91lOmA#05`XQAOOc!=0s2% z;{0j&%YP$T+~aQjjS;|j;8htg$xr3Qq1%$9d+J+*xM(7W?i*+|OBH+KH8=?>EWTHd z^Y3f#X8nBr|g@2 zWV&uEFGvwUlF1lkH@X{U977(6Uo!-PID~1|B*-*Hnd_Dh9AIv@8Cr`iPCiu?LZHBu zqTsvVZS9~Wu^Ii&SSWTdYvXkswQPv7#Z9oi$?Op0AvD*d%7bDw7WG@>5D_ZYa|M}RO#p`J%z=Sr#2 zFss!KM@R_U5$c+&8|Rc-$2(kFhdmriQwg8aed(y5jpK#Ru~UFhkl zC}aoxbJ?#;bB`T@z1m8X47zyU(|RZq%$5n;37TpWa_S`<{*^7e*qt|dVfv?+vVYGY z-78y4x+;7z%N^AI^icj0c3(}S^q$R^2(_*igz#WZW4fyTnSwXUVQ3fK>=2i7z7RbV z0{*JXy$bp|RNrz;3tN=yr}AO!c2!aW8Jn1T#c&4~^d4^8C&qc;;b2R6_|Qmcp>|-K zD4xyzwwAR`cwEURmgr}2;|ibjg!LbTF@~4^Qa)v*o|lpUbc$_RPrKcdsU!1X6S*iz z=01>%2NYB~evD5rlizt{`1*qf)iQ6NSs|!Xrf@$iB^MT}zhC$fb@qJ5$ng%#_t0!X zS(~FHM-AXbL1Ui^1i`QK#|3kiOyCB`%0gDHKkyr4EyJk9HGy%lp1bB;pGq7MXaDILMt+w)>Q@A95tH>#Mz^Odo%2B)Fo@f(@a-c1CNsA zkQkc>J##tpF^I`J1{zPCNCf%Y=)V1yOYb$CkEqta{ryYE`*^)gOoLJlGzzO!xlMiiTO8e}qf51IAmu$tn_cw zcP#|N7Gubq=l6m7hy`TGsHUkgYOmGnRCu|m{oV0wIn%Dh4{?yYe`$?VcN51R5^{LN z9Xt)70+aYjVi1vikJcm|TeIlP8)Y7s;%d(OuUh#2teiot;28|iNVI_DJj`AKXfIg6 z_7OZaZ2bf-Y`OiJ#HTgvN_}U7dyTE)cM~cQz+!GN0^UVU=dNwQcDX>JyWeb=rJL|KdLS4(|d0EIbLL#8NrHAVA|COg%s$E)0A7Oc6Gw zlEd8>+uC;8ThrKf`&*w?|1w$;O?_-iaD4b=i_~-8rti|e$Cibi^p^|hv+>r2}I9Y zl0@_Cs*LNvDh7Y0LY$0(_3eDbu+_{q$h36ZIBe0(8}0294^qpzM5W6QyF{VA=}B%0 z-7@UnVGbcJ^=YVK|3*bPS*)Y##4!QB4V4iae`nO*3-Z_X@6OLjkA_iOr@Bc*H{p$LXq>3=#LeU4jS>)8WL#0kjS7MN z2cTh{V#f_h;@Og5qyDf6L>JuK)>@G&3bK}@kgDF-@e`=MB4JHZ*%)v4R`EWRiRko}0Lu;F%N!+gQ`2)1rA(`E<*IC zyBbr2Y9o@;G`UA(r^dT(WI*zoY6Gb|(XK`&I#B5OTpLM?qUVUeU>OcCjQM2u{dsHX zca?aZGgH!5sYsl7pcPhjM>L-L7&Z|Cu|)h36ioJ9Hdg^f1+ShTS`^*02l`zlHgi?g zJ+}^9F1Bwmo$3$vILKA=)fa3$xH@fEJeb!w7BY4a+~C{84u{V2RtIWrN6%~ ztckEd4D5MCpN$LkUqsE?a0Ja9K9|0!UcnzZ*ySq*>L#2vw~x;qO-7mZ_IFRM6Jwbf zhYFYa+}jpvDjZinc5WO5-3UQb*c#ZM1ACnt!hqicvoYgPgOpO((`-kDJ6?xgZ4A@! zj@7zccs+H2I1yo0+DOjA&9>}NXR|y##Nt16y}Y0*!#6GW;0)2oqT5&KI;uVZOe@GY7b7zI4!`Xj}uf?=}(B z5*WiwMkKd|23$%a0w4&P+E~f7QJ#qbj-Kr%vUwomQ}|#n_V)B6cFAE@fGYr8HD60u z;e0Bz0M^D?z9ogcTnuB&CGoJ2c;unSr?!=P9-ks?-o+Ecdg|4Z(g$k+?lhyEsl0R6 zoU&+PcQFHV{+8E%1y9u8n=S>$1tvnB9VovrWA6Yb!XSq;Jxyw=6g2@{bYnWIAF1W^ z&#svbG?gyxF6S2bw(aP&>z-bQxVqIZUR<- z4^(-{@rz*)^&_%~;R^~82O_oN<@urdEvZ6Svc?`md5E^`$|xxjBQzW^M-L)JbdZHi zW`pPdU5q+CVsrZJSqBnCN(AMlaglgu-Tq2&dqs%HxcEmS-Wol=^Vc@|_kc7S34Mtz z*V5d^z@Zc2CAqo3B&N?})72pAOSR80c4&+OI(Lg77rZX!3;76dbjKWSfoO(^^`+L$ z+n<%PIy9skQx0)FO=-jJPeL?Fy=}hbMqZ=tfE221xX2HaWPqhP^m{#<*P}A@nebZr zYlpSvxdyQBUSGE8=dX?6vd@%HX5U+hCxWtTAQZhHk#&Yc7L+q?v_B`ow{*BM0#?8c^yxx#hch0;qhFhXz=bwatjO21#!B zz-rNAdl^XIyxljOmR5DSkjFK2vbf?4tl)QAX264Lt#h`i%E-kStdMt1GbXuFfl={g z$X;N2y6iiHu}NUGq!*pf=#xc!^aNY>BIE3BjF*;!3l156JtS%(0;QV;N2Q_~f%ynr z1b9F)veu?rzrxq&XCH$utW2E!*^ZIxU`$+~UlF^A#k)nB`N(Sd=?}DgH0vg5${t3PR{qWY^J@e;d zu(7}9ucQ3ZU``kuk$Ng-oPYCF^UgN9p5>PEH{O}NXQ^^$(H{1;UMM5M1o}Sb?&}6N zH%V0eop9nI668(6NbXnB>U)3wyv<>(>P~HDG$n^-YcBpJOFt3I!m~i`v`o>(@x&$3 zQ&yb7ZVnIls#GO?PF0JJ-8i@a7O7iFqBma?u8Et6TIQ;c#jbpMQ9L$bU0;@Hr^*NY zq!+40q-F(;@^N;btB4s=J!MN2Lh~~v)boUs1rPCcoh(*W=Zom{*%@Xq0>BuA6p5?j zsboSlf7l;el6dKzr}9UxKNQip@}L9`4atpuw|HEsou1lJQOHRuz}$4DA4)TGk9u^t z`BwF~BwX0hU`g)qI92=Ot+e*qmiB(%wG@&QQ`zCCkt@faI3xgWm><{7wQprSQ!pw? zamb0D@?}r4t{EQ%D2fR?VE?~)8%YMc`IC}16F)++ZaMX zcEinp2iFLwN7jFOw}f0=cS~Bq7P}JMewY)zg@&zDZhbO#;g8e@Ti+ksm|PGw5qbd^ zjR|ncmL&V3G-3w$n_!qIom>4v@+Ndg4dhqNdVjQNOgA-B0)osh)DnMrUJ4Ge)qHWZ zDeI$tPsMNmA<7#dyLemFv6HCjJ+%X^0D2dcL==Dv6b9cma{SdNb{AzxcFpN1Ke#rF zq8rMKu?QR&FIwMDfYAJ}?7cy{qjkqS0oenxus7SFwzKRZ)KxL5Y^iRhEOMIS7ia>y zD@*?@W3T(!0e6fMSoyG)OYvYF#-LE+{;}wiD!GjVKwEa(i|-kDWGA#$I4(@2P)c5>AJ_JgcbEf#c0!xX&3Y5>nQQeQjSS0P z=|*{q3dp(`cRfD3Kk~Rq{?nU?Q7qS7_6(RN3^htioTbF}^t&nvDp-vVL&8VHuoRJ| zz6RO!USD$i?7B*(gap5!wZWB4zQ@uqlzYg7#kK86*sof-x#K@U`*U^|M%Iddw+E!R z6*R*A>u6?l^vExF)HkE-K>PupO?kOuepOeM$|6sSy6Y;H+P)Q+B>wY64)mJwR4+T4 z!o4!4B|UNanaGI#wLi{nc1hdUU=e{{N{XOL3BT}NpI=B45u1nVj5!em-AJUVNR#B5 zJPf~PnrB^-qap1|sb}GE4(-tNDQW##`7A-)26k+5ENb^qi}IJ(SU$y`NmuDxQl)l+O-R2 zS`qCXl@VvibZckL@*ELSLl&a_zQ?aWRSSd2gjDv4+Sr8JafbxJces}+n0L&;-hV^@j~3{p>zIbCLV1pNq$S+(%QamL{@86*l!^9mM!g%L%##_Ha!m zP$}^{;pEu}mEWw#=Sr{V|2R0TmY6#lS&i$SR;p~ek67fNO-9s9T9=M$$eGORHq?S0 z>W1gwbT}tpxNp6c4-uaxR^tYO+Zf~>8Vc>eWw*7kzYW%Fkb@Za*I5j89#?_OBSXjp2cSU!QAA7Esx+Y}6PJI^puZhRdv>reuIyS>*T{v ztzz@awdHiwo;(OBZ8HPG#vl={EDQzh->Z60vZU*<%T5Fs88bhv9F!g|ci#!k8@+%8 zeX69xam}MHRNt}vgTT%XtZChS3R!wSBeLLQwn3&bnZo^OdY@)9>UR}(!Y^m+9N2ZY z@3`F9jfPJ*z*FgpV4h&I%59-l+b!ksxB}Nf_uCS>nPR}`?9O8&7w){?RDhr%*-F;( zrz&ja;+PwZhnTQM@IP14LIWhlt`r!1H`F^RLj9k3p3_EF~fi zITa0Epr>d=N%pJVx?|}2X`J8o=B}yg`43v>#|7$A#ZfUm@+^+LIEU=EVXIV&Rh8?2 zO<5(~UO%;hptx;-m4x|tQW*A_-P%Hx5j@(JtS%P^84!Bus8e8C`Qh;RX{$X_Es8@$ zc_Pp1CDck3Tj{;b$)7fMgaFDCd%19ep!AUAM73@SBhg~3>lP?1Z%%hR3-Om$PHC^6 zO3BUfet`x@xo^%$96P*16zB!@$3Wz?vZC4bNH{_q*%hncCo+T#Y7|t;8F36osUKViyMoci4+%a*t~lR zM6=omA|Y@e6MkIfWwIoU?5ba-k0`~eeZwA<^&=$?Wm$_vM1(!ouN)3ixqG7m@_Zj6 zv#CkZaEf0_sE#Dc-@AiPtY^5K@Okl7oz9;QVsNJ2f5?e?=v_h!SczCCQ3;vDg!X@7zQzm&5U zN@OHNAg>wF4Rp?|dLp3OY#W+8M;&ZU@1BIqO;p}@B-JnHQ$#5mt2K8YcWWz!!R1Gre2lC8*J##83NL_7kX)kl0S<(-yc` z;C#LMX`lv?-O6YrF3}2lCl)Oz{q+r8K4N$)7t9`V(Hww{(m+;Hfwl-X6_imRa#>Eg z@@=)@O~OY|c2Bk-ny%3BS_nJ|q9Y62pgN8GbFSD--&bofL|~on zcMS8rF>g^-HOb8vVUTB0?qRuWCg1*}SKw!tNWK%lW1%;4k@_?ii6`7cz&;DWwh`ze z&8TwBduUP!T`+8#&1gyBu6#dY0QHnJ&9;+&>PXvlS&aWtcZA^vOt%6^5byE9Sla@K zNXw;C36UDQ3km2jzaIIvmc*W(nL3QxEvTtx#%KyX)xRIv%aTwFJ&iFY{ecQ?2E(RY z_<$Yoxj59bCB&y6&*}T9j)NgZF$n0;faB37RuvtFb8{7wkH_=$pn z@r0X8&TN{Q`6Uq+H!Tg!uY%O`t?lOh0Y9g>*&UNp=HJ8)^NCGFM74Q|h%MsL*@0MD z+9&{eBp|b`; zf#1ao;G@Xhn{Gih6_+pSojucCP_AX*{8d|AL$Sqw?X?yHA#q&W&2{q3xIwa``&fT; z$thKj0VaN~f!jfNq?x$iDy&qLND6y=QhJgWU9vFOfOmO%MWwlWC(LNOSk-|$;f+j6 zkcoURt~C}ITX`QLGlWZ1?~j2g{3RA#g23XXB0I%uQisH@FBEpC+(qmLaGJM zj5^FIRhr7JyaJmk-i|N6-^FXnq+4xjFHiSR4Ydl8cd^t8fm6Y39i^UsFWIG#&IoWz z1rLayb|6Sn@I)7NE6Gr0Y*=-4UtVR%=rz}nvm_8RAH+=zFjC4@DA8)p3wh_rqEAux)~kysVv$Q1!8-WRUXOK4=EKFMLBRy5ELomTWt{bcMU zBZy&iR=iZPd6~-C@i&zn)VEP~u)M&W7S(E=Qx^y{T;z;Gben20>{N>D`}MEc3?BWk zIMLcE2dl_Vl#afib1CEIR~_YE1?wx8@yx$uKTVQ`)zW3%QW>f*4#f_m2iJOfft&Uz zsR&kkr-ZyjVkmO39xJEi>qc}4a2*DUgZB5%^)o0vYP+`uZx$|T^N$2TT21$Hy^oV1 zx3|fRKFnl#kCh zYDv@8?6;4yvaXkCke|r?%XVT`UgAY_Q?>AQO=*>Sgc$-HNiOu@eb?f!~(2HtOZof-BF=bY!bA6jWcph5+ z*kYLfs8;i1iF!e&m z94TbR(aA%x*Rl4hf4t=2+#MQzE+%5L`p@K)@(YW|7avc>_~^}z_q{8oIxs*EyyzB2 zqN27jF@9O|#b^Bv8|X^P7)nq!Kc0hhJkr>FL%yn{bB&*`rBrIlyWL}A1MGymXuT0F)x@n@c) zBX!)WxPN-=!`SkAE>+#+y`n`Mhe(+qiI0nI*Dmtc)dtQWwx5Dj#UD-YSu|lbTUoe( zO-zalSBwf}4VY)w@-GmxlXO8L+#Tdi#>(;j9m>kFmdypmx0k5#!sqkU**2a%!wor2 zkMZZy2V#QsEdB&G%By+gE&yYb{&igu+5*_Gim%DDugAiB+EOL%}d-hTHEucnMdcCmj`R&Y>mj zZ2}Z*RlSapQWDGEOB^2M^vEKGG@i!a)n!Q>cwu9!j!jV+`6Ll@PQj_}zU)TW0*|)zk$RW7AdHe?;-edmHQGETW8N1>R&n2H?mLX6M@Vfy6~ScAW80Nx^ZacPnbDjsY9h?6NSo3db|tx0>yexeNbTQW|H0DK(`l$-G`u45c?7B@!tvq$ zr?7B$aYbv=0M}F0OT54CF7}JI{RaG*xc#7U5Pj?6-UdJI-m#Yi<}^>v2@ z$AdzkBS4B#1QBQsoXy&ZXfO*00AFj+fqMO*0DM1^uuYM5U7A_Mwpj~xEWWT7>5bh! zK+d*L-3L0=${>Q!<7l-A$os|xbg&s>5(=J~4`Q1#y>6+569^*l!)j?^EA8aa8be2| z>gPsHCE?H%@q+gDJ|HmW*(Dt`(fj=sUmCzv=2Eu%WNTM}oJW_|RlJH_-4`_v4F z%LXkD4~u+|{Q-BD23@oNU`ql1oAJ2=QSy80+LTnGy;?7wyTB|1pWmuNVFz0r*9ta#a7HSqzUF{A;$r|KwUZ`R~h)9yK=j zPYRZQUhp3j0{?pwm0uJ5-$_)ed|j?S1W8nIhk%SfFK$AhYJVKhIoEVaJawj`ZN{#p zXZMOT|K7c-;~RM84D+J*U5CpX4k4^kJd=p&^ViKjF6>TM{G24_e5d~j@|B1F7(1m9 z6Z7R+Oz(+|gjL*M$2GrGbu9b>+8G@3cP_PX`chD2nTtpFVcKS-uE{*C`y6)l75@4~ zbA0|6BZJHn+&2t&d*tlynYU8uZ!}+ZkK){hP368CV{a(EStep(`u^=%q$`QxDLnJx`rVQCs>^?;c2)RB zpNRa9xq?omwpzs$Ay831n;Fnu!|!aCV```xDtCedTupyV4bwZ9zD_Pcg(rr7J^ z`1)(6?AyXfXvdydAN7r|+7l&|%fG2V{PF#_6oW4(w=&)o4OfbW7lf{09M0THW0fqe zXT7x(RG3l1TmNy#%V20@y?Y!zak3!p@#qQN9mq8yI_-7+;j52BZr!eb4^{3P{AwqS zxq9a{>Fe<4XNNh`g=XI&7J8kpYim+|WCeOuJvN0-C#W~X09r5dzisT?S3H=f7}uLx z|F^?+vFGoE8zmG4477`j@7SCQyznUH+C$Qj^7DGX4SD{ibbH^YQ_sF{f4uD{DqH?| z^y;#Ys2(UM(_|uc|C06GWoJd}k<0Js$uA4?N6Px}7g_O3_FWJ7?PZ(0UTp{-6?iKh z6k)$#yW9EN^RaeO{hgWZ@Rl#S4{+`Kq>iQYEuqByek*H<`yolQ^hjEZlq=`J4fGGv zFKkHWDWts8ZG=WNZsK3e^hFD_-E)fPoYeQXM5wDT7(5gey7uCFSKQ@S)3N^tZ|@$@ z^#A|=zg{IKr^z8_Gslz~QC=1rBV@=qa#*RCnPV@fh`q8Ik#fpQ4xun6hiVQ@>}?XN z*X!kF%`_pUUQRQ~tgP+%eZJoB&*yjfTz;4D_j37OF2Bp=w|`u;n6$^?e!t&t*W2mz z6}&A~hu=B=`H^g0rDU^E);?TI&Q9?MgwKjGe50Nohvd!fYOJ`5;}l!5Pi=htu{UeS zf7jpW5}(}%I!2#0=OsR>aoc;~$H(@Uv-rMpE-ke-dkXJ0=HO%7>)9A;hl&rIk zCarF3k6FbP%w=E7zr0X4Q^`*injMXbC z0`<%7l|;602ioBT@yi&rP(S{RLSN^jGq6~LUHcC#O(r33k2K-boM18K99pGIK0&6& zr|@x=Y35VJu8F#IZg5 z+5}id%3Tr9oh!D21rN)geD^N#%YuCI6{VCNI6v!t9h(2cm4x$|bNi~RlNuu`7p6R~ zG(A)#Ie5J`{Gs$&d|Pd<#(xmp`afJfHsd1r z`u~UL{`1G*q9=Yv@w+4P639I@G}wW9KSb#Z6N7ijIa@4Qq1S8ktM+cAZZ*+2GL2O| zmQ2{I$+O43F(2B^DHQMWeg zZY-4Q?%u0lXt_Q6O;&nf^E+bG9QNXwMs=enfoxi)wz$%jPF-Y#ix9Mw(zn0(tpj!kv z>SwpdU{}>HDgDc4%U3Sl=?|=XeI&==>+RB?G{Zkhnwmi|kT{6H;9HzsAVl$cBFHTztEt5O7k$~vzR1m3jL-gFwXAmE$(W59(n19 zUt6@Ik&J%DvAOFm$~UJ?R0g{F0TJO38s3&Cdv`K6@;#vRd%w2vR`yfy!-n~(wNjrM zQ zW8wZsLw#SL#s*}U6U&EOwY)mtzFgW(;7}5$%#;H2(Z&+V!LSkQN&$ zUwDtCo0}kgN<0ttoVQpW96?Ig$@kP@p7r`f)CH>i-9xSvqTDbUY+B7KpSotu-(osC@M3t!HuK)%>faw;GpXfp-W$}+(9I|E0e~dl|5}?X>6)_s zg2*60h*;O6Ua@4V=@(Q3B?+bkV12+z(V|F&+6*1l9zOG%qyM6>K9Lz*&fHy{K<%diuQ) zESW{!u97ze*J@xMHd!mqhA_qQEO(YNCu-{+{+b^CmzJfnvU@^M*R`Ce`f3u$shA>q zn#vm}Yw-|Ha1Cc^h^ynj*Z4oS>$9bPIg6g40w-?Quyd%nbC|3{;##HrX|uM+sFL~y z$ngaQnP5l%8BtTeTvSr?b)?LJDb`{~j^f|fvgw!rcJ~ga-&+Dih`t{s0sK*$u$j{x zER2H+Hg`z6#pYpbU~M~JEb8j1K@fu!&fl}tHGfU}F~X^8LL7VseEF!0KKX6UfP^U* z>ogqUTMSt|QFNnz|J>QY-8l*}QT!HfN!MJ@4)K;hSY-B^X%_w?KSOP-LmB*#pn1t4 z14x^X*y(sE6!vbXB#FWTYzli+&KH~nSsXn_7(7}(L*5jxfopMo=5plU@&SbHT1)E_ zZgFF5_#D_m-X9g+vEJHDjJ0@q>c)ziMO&QobwzRD&SSO2|}awT&nGb z?*5WoW}4UC{ye`9m)y|q@bz!3)&C~;(NbG zh?gZ2rEhOq?1Y(XNOvM!@sTBCQeo%8jkJEx1EyVh;<#+Fv?$JpE(E&c66Zy5Xi*J=o4@yjJUVUf`@XsQ;Ylwf*+`vDk5+J%rafNt{Y>E zS2)c4d@|qUM!h8=SHYSIPW}w~J?2HSQgA!j*)0AvzMEWw@S2fZ!s41e_T`gDg1|}1 zaypaTaxa8LE^Z0X(#^nz<&rF4MwugZK0Zvcz*@O=ggh@LBv_m&kwVnALl>tnzn;va zx&Q26@eQ|cC}Xc%eu99d@_%$*aIh4}U*i9&OU=|2p&| zR<{U4>Wq`R3x6|3p|mPO9N|Tnv_c zU71FkL-LEC$xb`jBSpQ_;jR&vVXI%>{R`vBU8WAB!zS?Zs<*`wZt0o5zYe|2nvFG` zrSMFNagsHH@LqWVB$pbmzH*8v@xx^GVUy)SuoLe&6ANIfNt z)(H2j#*6f`I%k3Wl;^$cv(?fz>U&**G|-p-1((O|-??r9z*lpF5)ENK-f zNbX#iCl_%j!ntjQs0$ex8CRjbS*xKljA`GuM=e6m4$hNveHPFpY?CFh0hOe|EC*vq_k`4hw zlDy6ev%85jlM$$MqmO$xVRO_qs7+Ig_kEH4pHHJ!rrjHLGdr8&0vHoX8Cb_4M-JCE78vVx5;WlYfj$}xuW4_ehGT4;^az8Ze(xc8;5(<5G1djl zJUczd(6dNc2(1rwjEhgm8s2-S-hc$x4^faevc%#up08$A(ZRAR%xadD)%OHV#=;12&)LKh&-Hn?vJK@ zzqcQG8D*hMjJAH!G4m1|0zuNsYkS^y7r}_Wt)UlvUf1|DQ|G_`)r)JaBd>?#oPDbm zcRL7e6&%0g-rfJwGf=M8@6yj$M8(Rm!ay)_Cgo9AwcFRso~_@~9{VrD(`Hxp86k*d zr;$eS&Y9VMV0~3I85(-&fxTH;){;$mZq((SrcAp3;n{(#Z?78h`nbL%=K3Ju{k=%1i2u?v z*ISlhNN=1@Agz~*GOYJ3))}VFFqJlltVdlZCeg+aFQ^D(ZxT>&23TuQ2hW z+pU5bZ*WlTs*mrK?or>kUB2s7lar&6yYu}>8a0(bs~uO0FI_G;PkhKt&Iu=e#WxSk zr)}?_@nTM+hRvj${fVn_S$jIOX9$mFFfb9pa zJ{j)(THx$eqpIj*Q+TJ_khqYT>d((V{;<4Yu-wIxxJ*oc@S#F);d-j#=Sme2?YUjK z1}S*`!W7KZSFGGk#9dNwVA|nbWOf9u(V+YJ-NT19oIV7|fuZtmL;XKDXy?T!!y963 zv*gbkemrRgb6)nf!OeND{8MFx#xWgOZ>~U%-TX;g=_?udT z%*XO6R)*WPn)2+$&+eZFtG6+ud)UYszCbIpA2?Ur>}?YOaU{Zh%(L4vDqOlonwk`c z68e3z*ZCZQGXvun&@B)GCLey=ai3$Xh(nrEd*@Uln%?XHcKx*e@V3a-=>Sov9M&3~ zXY|w^ovSsBE=e7TP3nQB!;)`1urMhQ>vikfls0bx=_^Pq0=Fo(K}Nzr+1QZk6B#nC>rg$Zaw2Zxt~Gyz^g z9Hn&>{=Vb~)Wcm#N@4_U`K2XBawQ zMqTq98s8O?LDkP%uqly=E^zRY^n(AK!D;`6O>_*z%iypaDErS`=UJI;=l^W9>3R7~ z)aH;(y8+>2`JI|0+|hGoF0fzD|E4)qX^8#xBs-x$uq{nq1!C>9qVoDOOx(A++Wf?b zoAesKj|7HVJ8kJzrzHI47QV1%ArNT;;1Rp#kSaYs#8lMq9so5M3F%Syu7~8{vsKi9 zu+DFTzi;G1&MGW-}NI$drd70z!SR zB7CY#$sJ@4CxQVi4KsL$|KwzZ*L8ulj0WsdB#*+&o+<+a9gDoB6+kyN5lbA(9ay|4 zXyAyc^GX4H1gDgK*CJs`BT&~hT{)jjERv%MO7+1I0cVrRknO5L??Z!Nf|O(SU~iM8 zb_c`?VB+#)la}Y0!c;I;l7vQQ80+yTC*KPJN#FO8hvVTIp*PHv8XETPi{!1SPwBbn zW0dnXFCU$hKU}5YAR3$pgqvq*K&Zb6)$iSpqQ22C)%BCj0b|V2r#^H!8HV<+|3&Zd zKK|%zd*{~I_t$ne9&6op(E~$4OcD~D9NIFDg3^CxYHR)1zWa!@)IoHn+*=JNLz0*h zqpZQ-tCTy%CWDbO#*p*r8OdN-*neOm>fJzlg7|?c{{rp91zcK27KsI_$3P9SZbx*j z>5l9O7K!T>*R!p`gwp)!HPE=zh(KFvd2zWrQ3)|zD6vb3>!`#y$wQBZ7#V;ylh(ta z)9X`O%KC#Ep75mn{MXi+NJt4JpR23^Y_iRKS^JqXkmG+%>$t_eUh9LMoKB|ggd|V{ zKQ`ianLaAHtIu<5J0jT_46Jf(_)%_9{PTsgQ1Ax6kC}?Po=2K; z5=FdGdv)~rDNUH)zfPKNS7o%1Zdx0hB*A`y{XCRx;h>dD&+fy0EDt*HYN1BPTFs`5 z2!a^eXYJ4zo*bOrd{JWtyZ9VRW3ifMyoXBRe~*6V7%OmSV&{Nlq2K$;xz^R4bW{0< z9FxW29Nc`fO4ry}n&IfgJifh|aRI+%J@M1$r?+#Bw!y_{IewGq-PJ10<=KcLN(+0& z=p9u~JS71mLYNKM8yEkfj$Bf!Ksbc18h28uKKSX=>)`!@ptvtZqHIB zlSPNsRgn=9zjpv<4{lU5SAqRniuOTHTflt%V%j>u_PfbKjmFs{8jQriUk5)WR~*5u zwDyHAbiaqq(g`tj_rGu?THK`Jy`*!omwud}_dKxXNkb5&dMdm?o^8zND9*kgG%kRl z$sTWZL^OG*EqT;`3bc&kNYf=ZvL5&;DZf(OdSt$ZO`sn_l)YMir%*Qu^za~rz#|6TZgzjgiwLyZJjD7n z`MS$XAD?yV#@ojMXWm+cWH&gaDa|!$9;iMotT^um8#iYgX~i|>WL)`KgXNZ&8)q~? zHyF3J5F7DmJyjW>(|sRyad>ca1?y6~#lc4BX#0aREjY-MjknSLkM$>CDTO^c;D@4g z)G_5(?Ckc|iVqVroDRpVuGPK#dJ@dm?A)qt3+SpM$rqcKL(n7|e9~udp3<;?^{R>b zK*!zIv4(-(@J)?Ix4>6JY{cE#`S`nv+~I+r>LZn<8uq4pno?H1M0>B5fmbYGX{qp; ze^?L&WRHd8VT7Jakm@uLdo${qwL$Z2i}yTU+H>(fO$=gCo%68{Knev;5xb-bh4>~O zKC3?J=S3{Q2YGV*uq@}23nQd)J0WWzFO}L`UDD324G?q>f7^(-DexBqZ}Lp+1U`UF z0Q#Z3pp>*O?#~>QBw!c~BYaFK#{NjwNT&qYgeGrSqQCroit_f{m6KSc90`<7ejDTk z7~a>O5{51}uVQC_{y^Ow&&t1bp82`{S^IPQhg(u8#aRP7j-G)c%zsBGU}hFphnLAJ zm_TlO$0R_CpG)a3blN;=7jwURX0SMs37u{dMKJgah`O};8O-tUvh%B+7P;hoWVJ5z zPjeMrEJ4rp-LZH|%yn*2e$w*=Bqw!#GS-ESn=4*tM=ZgZ*kg{e!#>x+)(?B7GIIsK zLe<@JWFw92c9M%M8q|AKtu_qQpZSKU-&bzFG}c$xc;-ACLFQ;Qol)?+;TzemSm@ER zhC)ByQ{q*Yjw0z^<_67xRYTM;N&AgasrCMEu>=>-SEI3rD$2qWyvog&r3&t&yyZq{ zRxf644O;9zIGy4I3(xNT}Jg*0yZ zb7bQ_yL}WzR>sJzDCDx|WqpjF(Lp#i`LJ~nDLssv;%nDsOA_&R0#3>aAK2l46Sdne~(Z+M`KlY1GPoxa~} zAL$hj%#bAI;HA%j9*XHvcgs)!(zqWyO=%VUs$EMrt`;CU6kuXtqmJ!uyLU0}QTjYpYm1)U=#k7A@jyY=VEiE77esig zGQIRx{Oyj_SyKOGMP%6gS#@oL`7C?8*wHDOoIU(-BDxwPC+_v-SQE|hTmJ+J? zndc#gjd<6E9a33?IIkU4q~JiLO+ZC(!F%TZvxr3xTYT0NTL)%ouCeYR@Lsu`JL|`1 zgdwNOxB@3F6MKbY-xOsw?oN7pH^|_(osG))vBh-)kz+_tGn`yY6`OW@cU@6UOZ&u(;c~Vt;koediGN?!%4xqEjXleQT*yBOLo=4u=|u@4|>2f>Si^5*;m1dpsY2i zBqw4qcGCN%LnA;_?c@Y)v`td#b5YIGeUH2`uqBxc-%R5svS~`DGL5BrmHyh&>Y6%I zW=2r@fc={bWqNPw@EN81R=OigGu3o+X-nqoT2;GZlk`{i7vCS>t)<-`)D5vG-;ND{ zq+=M~jVvd_OxcF$Xsf<9_56gco?hMZ-3=|mfb1`d`~2anK2=*)SCfJ~YK_3Q>%zk% zWt2}B=@epdHu{9K|C%Y+4bkE{xpMFQ!EVpvJ$Leg5l$kAtFRkGw0#CgkZhc}@&@~% zG#e6J;Jp92#s8xUvDo8mw_iBy9k(U&yjM|VDD4c1R)t-D5d|}lSHak&xtn5G7(23u zl~*GV9(2!)A19^lzWkYe#2d3i7XdVO0D3NV4bAhKxEehH`?mgXiE^<^(|WZl+#;BVgE2YK19mc+RpUA#RHIZL^K2v z3?r;ku$eRCO6a@S=c-MslpuB(VKOvpp1RY~4$QA~aCiw*V!zN(V?uZGdM`B=QIqt+ zOD8lgWMh51EHo~cfGbVbBAO*S!QqzwIhrJXXH=vyG8jj`MUxZqr$E;*drI$Dx-e}n zq{)&C8MEl$#z*CxjX5L_O{4uCMYMaYntMm;WRh@d?RvqvC>S&ytznSJl48C*ty9)@YTt2&;wnJEUR0IOL-Os-}CCR(z(+xv5eT{y6f5NGN|KM$H-SNX#`fY_`m$R zRljO1588QM?-Ivu_y3&?NrzY)9wkG&QT0=EET!1G17_Gokhyju`MV9Fl$Lz!Cqo26;RHg+*DJDf&y%Cejo#H`aB&J-WbEQjoM2HgIV4S;kSJCe;syN79nm;Lzso8?}dNH~2%+if?tD}2vfznhlDC`3@ z(2SLrtL=aM^;3g}=C80mMAiN@gKHx9wnree4!)xa|50Y9*?yKFEL%K?%uhtRkzvTdsw>A;ERg+AP1GC}*UHl<>5_q< z@5jRk;4p*}z%11zEs*Zr2ld4Vm^^bOuEGfw|K(v+eU#rDeYR&x>*JE66dp!U7sQgYR8EEJ!+&XP$XvcZa+Zy#CcHe=a+b_ z3N&@ra-&@yf}q$Lak54zXtp}zc-{sCJ%Okvl2-KXR%C3ho(7DE+_KgOyYc#xgXo~8 zV;+*6odH^Za6Q`Yn%+!5Gg`w`{(%%IxSx#pZe2Ehi`^fV4fOK?OZV`;BcL*!Rip@} zZ1-V$sOp-wkC}Go;f`g0_G6sXYr#ZEA+>Xb-U(#zkimHDvBOn(($oajO7rHm2Vfb~ zXwXbNfCoLaX#hYNRY<%xGO7&~)-#t7Rnp=5krf)@{sy|q>=cHj+x;~$UOYS3b9Yo8 z8praQ^$Vqq-%|FlR|Ixe-+yeqPr@g#zc`2@7Dx|FUdQ_FU1@FcgfY8b{q#(?1{R7T z%Bhl)MtE@v-KYjl$Nc=6z+)ZNT>Kj;otttxeaF};(_DOWC0Of$w$^!&K~%inu=`N5 zhCw%(=wxW|#K<^0)wTue6PFm-ddni>pa~0Q-}K>akH=(f&5N#66;J%3(T2~ex>nxI z-8XPD7rkDC^1W&oYpAtee_)SoO%5~nS3C-RwYL(*PX>l|Lk@2YUqQA37H5la_3VC* zXYNn?$0Eh_XzRM)vYbPjiQRe2X$h%gz9+_ibc2opiw>Zm?-R(=Zf9>j*`;cr;1qfL zST%lwi29oRsOI{sC#Aaz7G!cU$um(&==%g%KqF@?Lz-mc&S!<6Qo=2raGYy0IrTC> zAkRT%O2?WRIXHHo=3$kVEjvHC$e;HO+NWXSg&-wQ^A}d%#80D^CllwuOQ;4)^e*2- zc}SZK0q3TkVCFD<(0%4J$GbU3ERo)V9kn0`#v-%aU}LLbB6u6m-O_zz#@lx@_oY6jfdF(0r$f8_Szc_LV499C@j^j&!YqDAly_8f#7KyhZb44H z%oZmIy4jZqZl=qfsqBIl+H7-svx|cj;0QT;SZ z`)tpXv_$4eGqJGgHBz?u)34V^^6fX|Xxb#Rb4l~mc0eS~3<4+H5_xq*?%O2YJ~yPl z#>p24&%+(OHi&}$uuS$925|P!(rs2~DC2yNfv2Jx(v$2rOjfhHjKA|b(?Fu-R{wKiN+&uxY2Us|K8Z<{CZ7Cr$@zd4l{>NvR?d!dSg2=e z#;RZ`9$GkxG&E}C4;4%4H#g1conWnbE2hfE34X%nXi9M+XC&*j2~y$^(rC3evCYCh z>tkaHX{ks>vAvcuX{L6()#PV2lGaHuX8ihylfr<7Gt+%`UcolQTXE7isqFdYi?V|t zSlUO~ZziL;rw`)@R_y2YtY{5_ri687CbF_}>bE~yES7Bwp6r5tja0uDEUMqM{{7S~ zuq#OW9PqSA{^n6cE{wGBXC9L^yAzRto9JS+`1dFF6FgOmgKAIVNX$+UR0$e0!-nsr ze!D1*Kr4sJPC@M2IE?dLdWu5hD(KN!JTnCXn1iC;um2X{zb@E}x7O!+ZMh<;r3L2> z3#0|I!sgo9PA*RQrT`^9f79jz*vG9YNnv{pd1_kvc)~JLTW`|S=79mp_mvfXZvWJj zE_bH%$XTSgqiPvnN&>=?*Y#S50IG<0?0w}V-5IpAT(;%jy`?rR*Pbgo1LZZBwr6!_ zbtw0HXIw#MMxRwKgC&v%N_aXnr5G}VTb)ZvpuK6qdj)X1mDj98AOc|(x>kxbP* zF^^ORQk1j>O1 zTkHZ%p#8S`yCJ{5(2HjI1CaUl4k~H2AfDY0zGpzwA}v*&q!GqFVD+eLRLOYh&_Qn5+hr)y+fJ*A(+{jV}5Ltk;B%MP(>xCGOmhMUtylsw2mt z-nO{;o5zKr;Y76lSO_%nyoM=g)Jq$jG`)f(dmr&ut!?V*rj9bD+1BiYkhDj(_kzOc z89;nh`#jj&eSLcY$)brO8|yA#DbuBG446_Vt9fZlHkKjOJ%Gu3RMs-p5Iy!@-kgvw zjt6rJ6w7pOe_9law&wjF_6Qdtix-Az>t*f7Io%PG=7T;ipFFthJq_4gFN3#NHzMDG zH1$|SIs%k~pz9a!2ZnQn^T3ou6vRtwZwtnn95aK(%>?iV7LcP4ft{WHL5_HbI~+W4 z)4uU*+!-@*AV)mg-g-TotwQg__3R_7PaU(J$!={+<~AZ_>tER#015GT>#|B2Uc%{s z3k3z-PI+_iG%(&Px0C6sDYWk79eg=-3ArChOae$7>e;ny5dOiMb zyY_ii(kRFTTjyc}5c$&$zg>eA%y$tbVn;6loidNL0kd3{lNmtPu&nB@*PEBDhXeR0 zC#+~DZ)0uV{H>Mvmn_lX#}5#DJQr6obfJFY=o<4v?_^A(<>?3-3w6(&gg*5kxr&g? z1Viorpp)5@)ILv>K=3YQfME9Tt-W^@okWAfPayhk6qxz@^6M9AM93kGX3 zC=)Af&s`|-@h~etdvMw0<)UTP9i8{uVff%=*YAkd5BQ1zDL0vk(rT&06RB0>ic=oi zrpYRRU;@YQSXiuu2dl!CeKIl#01$-FG*&QK3h3qo%fL*yPk^yrttmCRRWbm4O^oXH zO}hd@j5`>U9Puwoi=7*M906=({|0cl>%D}|ohd-z0d%$LC)M*sd{XZ+W$pWptN8GY zHw#6_2^qlxbSI8m?lUECROtmCEf(gO5Dp-CvKtU!$Pe9;`*GRK`R(52W)S&i{eJy; zNPh}8UJI8iBy>)%9Vb_1P;sz{pKYBCndvYvfSe4CcF>(;?Y)zS8U|CSr4*#+*&x=W z9{m0MbE$g`V=4?-^Sw(>u}nTk-+q24jX%)*!23OTZ-g7-nxDDsw_OUIDU49UxoU)} zE#&0=M>bf_tg6qR&ASro?~)X_;T?~Db4lys<+W1zoLuid0DxDbNFogA#w5SRZM{iD z`k{{+V)sf}LqY$nzT9e+w-Iu)1)T%l(>0k2h@J+Stiy9qq?fOhEQO9Ur)Q2ehsZ#S z4d$fW#g`kcH1qwLSfoGLZO%TH`W~Yy?Dz*myc>1*s`UAR+F5ml;cdLG#;MSYF2-(1vAjq5<#IT2mry{ z_=nG6qJmwncYin5eRf~BY0*L4siA3dX+*|6{?d_vh!Rw(k}PF5eug~f0UI)AYNgz4 z9qthUFV>?6pB!EnSnL^nR|(6a;I?Prx1xe#?`CAz;@ug%sVPqB7#Nd|$8o8h7K(7C z6#Bf9*Lb)}7l!rJ6xizgQh4gqn<_&4+q(k;-31r&X|45wfG+;!gZv%gOa$k<@s)c6 zG9(d7fb}D*$>=17Hmi3&EkAIjxyEYL#7-W@`{x4|IVfQa0)FByIu%_Qv)omVg?>@v zNmpTmFi3xJHiqX?@m%ojUKvw$XR5yGJsJ8>bK($IX8(R&6E=%&(^U4aJC^Jd2F+9| zwN?m3M4&r6i&-pONWe_;h@~v0o|!Qm213z@5LY#WLU!Q#`Z_y~Ffa0W<@zV$S{AJ;ilKeXG+FvfA-Iw%5+xC8S53g~I6HMXfLXW`0f%}?&3 zJMmciOfSRWI1-#^tp~+%y!+RRmk>_2P1zGEB86ibZs3A~;N~fr5iG+La=4Uje!B^? zYYK!)3_%-5HDF1)K!nc|tNel~6&*iyC{~(@k5bF)4ZfJ4|MEy9HE)2lO$6_H(AcD{ zc8lf*CUsz<59F3Oo~hh#s5fQJZLF1=b_P#+bro4l&*bByF)nJ#0m_=HAO5p1g6;4q zx1&CT1FOSfBiL5Usfj*6%QCX@ZJ6^l;z_iaD^B4ykKJFq@Iqb_rg5nqv(_7_0dbN&06s`0m+ERi>;siFoLFV2gH2C)Uny| zQ^K45s1oaYX=Rzl>0V3)r!1gDQ6YKOILLe15fBQVtJymO41Vu22ar52TztF(oCd^+ zb$oz<%IZwrKM=3s&*E-B859M~Od&BhV663-mAgIkBn6!H{LTgwmD$&*JAm&Np!(G` z{FiOwOa^khrBH}tlAWwcP;3fH3u}iJ2&}Gh^eI+X3z%lEtVPp`MZ2oHJa;h#^^*TQ zJ|d2#3K#k>bFATg4R5<|Kw-;^zK5n=lBC_Gq1m6k=Dine{CU#&A}PZjQQ7*VGgj)V zTC_3V&(CX;a=tdSJHT5m zWQ_Rd-t(oY;~x#&>CROO`k9Tse<3c8ZA7;0`Ew5p%i0UY8c!tWzrW5c>tQNPbgFgY zKF$PUQPjTB zaC)aDWoJjcnR=yW&mX&ixY?G-l7siI^jV!KW<`n<7z2{{sLu7@#wr_gSYE8QSO@u{ zwTGKQ@@8RY<)`PmW(dIjFRz3ENU{1{CDji>Tw9)%fKT7qc>r5roAVq*;}I(&=ZG)@|EK8LKmX)PqCvb@@P{Is&WxbE#D(8xD?UE8=Gn_o zxIos&i#y^O-obWq#fbFrn7#l;X~B_!%~2CaMnD9>zB=Dbjc3XqyYn~JZ*O$84N*=_ zHB!0AhFU+Re*M&r8bg>33Utx{0!GMlpIx)Tw#ggE`f2;u##w_LN2zheP*O$J;G{?# z)Xz={29H?8hA=w1@Z?V?J$h-^!fjX}Cxp`DgZKD!{ z1iAA*m9Fg#%DEyD$h{4JeSb>}{kQxfE!;D`8ix)dO>0T>`O8qjAixr53Vc)V5;3;x zw&d#WelSb~Jd@Q8TV{{M{*f|}BJL})mu{_JrKI8BA}WLP3j~ktBC<6?PsjNbVq|d3 zl=*Wok>??F%-NFs5~5a-RZv;3?K=CqKSq_a+C<%&|Ar!f(oCOH>JDkpc9sd>an}j z)di6gNk! z?Q#Fv*g_=*WkDY#Ctn|X^V0J$?1CINH1iLV*MX$Fdt;B5{MrYLb}m7y$-J%Y6+5=G zJ}fHKH}bG+u(3O;dz1H}q#LB$lvp2|F)|s{!A)s1xMHNW)_nYw!oE0_@yd^tC@FpJ ztxzzulu3y5!IWGOM(i`m_Isp(CPrk;y3IejFxQx%Ajiz8_{Amrj`pp`zka%wh$0Q0 z;&6X>9BV%c|IJ!b@BZN(uAEH0F?D(R%Z{<_8K0`x+`U- z3W`&(GOnS;@LsyCPF-L)(=kJ9wc?s`qhRuHXLs zI!TIUVH?cE34}8yfRPxL9~bnTZ69YN;%+B+3x3kk&uVp!GqO0?+%+ZQAxKx$E@58{ zDM_n)>5cL7(!41F?O?a2G;elYl`ezJS9_za+3~DyZ@%D>fI4jv&pc=?F)0T(jqBTGT>A?p1T2LSoQ`brP zqF>qRhRjIqDD9}IR)yq5cA;n-%rTH6qzAw4@8XBCW?^im{?gqNWoy-cD3T`LfZvu$nUs#1ZSC(g&o7T<4E}Jczjduak)4H1 zH=4|zmjEEu5SVg?Ctg0;u=}-%(5repr1VDFn}ZzhkpO!~!PFLh|6dVh>-|U&14zc^ zBq{AytioD@oNtYjo2hTi`a`L-Ehc4VneYVf zo9!Az*?w(rlaKjK}Yd0VHdC@olB8LrkMd?C)CKU?DDTY#Kzgu zl*`D8xE$TpqO3dt^`ES3mBZuc zsSM6GuwBHK2!QdMI%nUxZ3*ka2$zXS656%et0Q+}AX7|O&6?|JZRfUcu!|5xCvDto z3DEyrtBjJW*P~5q6R>V<~=EHw3z?akSO9lwQH{Hcfd_Spd z5Ro6QO7!-c4jLoAwSJL!4Wxi6H!g!a>^4KRvtWh|2H%T&hwPlo^wSAg>}}Abaw23W z)jT`}=5!^{vc5jcgJnp%eiI5x4MCKDY9a@muzs6o4Lgre@=MPyAMMFKVA32?#|EL zuKvDuLs?PPpsNctD+cEvYVbxysP$Ul>PA#Pm{rns_w31Ma?Q}J?C;3jZ9j*0DWi5@c-r`$WKPR}&##<&9VI~7kG^}*`YQ1o?4o5UPMx>HIEO+PGRmON9(DiU?gNitf!*IrLWA=6d{O`!w zs54s1*W4C}C%<}$W;|T&qxg_x-1(J3b{23MouVsTP3w7EyI|*z3`-Cbb|lWf+rlQ2 zxcu~}BzaJHeL#j1lD*DgdN0q9HJ)|ZRj0Hu;)KNwgwM9ESMyheVDL-R=GoAI0*a)T zrm1?hY_oR!BRClsa0FjZcZUNTCEWxHsf|G&pFtd4 ztUnu>2cnWlA)qRPG?B&NoE&$07L872NN%@fC^CH}$A2h^00xj=69|lZA@jrIt=r-_ zPoL$k+Yg^}Q!>SZ;7h~tHvY9!zjb>WjJQJVns*2pNt)mQ8e>Wfe*7yrGT)jzEuTL|bb**F}YyH)=Z% zLp1wT42w^*Fu~nm$OD3uRN^l4`HcR5HzdAAKNy#eQLhUxTkq8qOr7=J)cECn8F8%R z>^^3V4BKvlIZyDJh&eE*ZKrcx%TRZ$6P=_qI_)jH^PKN3h>-9=3*|ue_+|!YyDip+ zraNH$Ui00_lb@SwbI0W6*N!MS92auQDyaI4Kl}ymZi|>=U3J@A@Yr9M9_NoWo=iRq z!jM(-6$_7;9DjWZUh?B#KLcL_hy&;-UzpvYdsYXay6S}d#eY6|@8AO8eecg3Q9%bv z$RXI4`gb3}i{9@pqw-@Y)0bxt@?O&>7LZ$HO3ZU-6Tres*Fsv`h^$ktWn>47{)6sr zvHmW%T)DEo@}=kPfM%ffvYnaX1u)dXz*^^GqsfA_r_^b59^>L11T`GGQOg;dDs5zw z%U_4>*fW3)y?T`TOdTd&2jzl7erUta;s8X&u?X~%EKLR30p6rML7n^ z#*1gR_siybEIh5;i2B#KONFC`_fACT*dvQwly~`lCC>0X2m;lhwap-0jmD++69DGa zr?5NsTkn+Ulyy}vk45V*kE6{q9s;5Vg!o>)w@u2GFAL5gykJfm7`cFf2Z$%8n`bD6 zrGsT+f^ll&d>@jHXT?;v3jb zTt9pW7JW)}){bW+Uke^H%6oFr?MHY<2eKmgU=sz8=Yr}%m7nUD>#xl#%npNkWMyda z28(s>2tzXUeSY)A_@%A(Ec&3?t9=FyN-5y9nX4SYg#Pg{Ru)XqVg2=_WZrvzz!vcU zi@bo58BSg%ZD~4_-n&}nR@7_1KTePUOx}@%STod!b?szYC=1n0bQn#?k?dXx*ViX8 z7swC)iMG078jy=0_8$-aN8XNC@5OOvx7C=Ly5TIj`Y8}Is(>I`eSDCbJ{>b61^?ir zKUEt9a?w$@>z&|c_G^AmVGH1Axu7=3^=ucd2feCbPO6R9z#yC)Y=_BhxEy7@hJQMA zQJjurq+}f%3Vh5jT_AhwFWirY5B)>V#~WW6eZN#(;7LM%drE%!X|p`<-wlfV{99v< zA#mh&a218WbTbeWr zh9wdYAKmqv>c0*eK*BT<1muMFOSCA^3~ zfXpMi=*d@QAu(SDrGJFh7}Rt4JKUJ|#fJYy-kXO*+5Y|G_g!Kz7)x2QPC`*3q$G`* z6lLE+(pbval`UfK7-J%`l%%X-ER8Ko5px?A+HRQ`jnJTOV{Ew%!p!wO>+|_M&;9!z zpXYb{p67cUzkj~hA9EaLJ+I4kzR&mhe!rH}z4`_MVol53bLls`_S31$EAxsbeYfuZ zfz!m*vDsg4yO`a(`9QJQ>43GMFq5EEpHU&N)z0hrw6b5>poVM%G@P|Uoj!?BzwZ&vLCM6idIf}nMm z{zM-iW+GsqTTllrj544RN_;4fD6HGt(s8Rf6oSUab1?93b`YODCgcUl6J+I|SpWTnpE5AlQNkKqL_7<8f`~i15cnNQ&m@)n zu=$dTWo9s}SA7x8JxlfaR&#Nsx($%)NYN5;0r$Q zKRbEoaHNM9 zySeYudPNm`H8!dSG(f7xM@QY)nF)0(gJzot|Dbz_Wtn=HhM?FPm02Ao5j zm(#p)4Qhr`?p)tef+!SgX&P$ciW&4@Qd9%7=1~e_A)sxWt)z}b9=k8LRp3WIkhT$| zrY!$?9?_zsMIsVE;D27V??DQtBcpR*15L<^*jyebnCmdH}ddH z#B=7xy_5L0Gq`ku!5XOKCg%w0Yq+Ue z9Ec8fmWl#xd(h(Za7h_l^`C$96!G$!gR!4{%4zDDmA*@f5RU2ZZ|32NN1}vZn9JGH zd81kFS>5CcU`@WzIdlT~$_cTCcaHNuk>Who=Sfg1W}Au~^0MuSWT~9><3fDk{Q$nX2P$t5|Y=Tl9kS88`!>9I1<4ogZ3Y?{yc_QOAn}?tU>N7gAo))!( zep6FcK~Op@X`r7v1Ti`wDBEnn8iE_zFr%bJnXKJ)9DZFF^~3uFf1cr!vI)g-%kdCC zjSbv4dh6O9gIK1cs*{6&w^Gz1XRQekdLsF7wYv_`xEJh5RLgp}1s-xI7yhC1)KhxZT`PcbL>)ZjB`j z);Kd)<@H}SThf&KaR5LN1XCT1$h&FKH+t`t;$(>ovm*J&Hn~ErB-WcYx%rP9?&nIc~9iR zKc1X8nrgqK?kjZS0eJ7t8&7_wlV;Da$~^4N0&fggOvU_o?R&6zd84|V7R-HfzQ9@U zLqQ`Wg^;tf=TsYcQpc}{lH2}N8lMhP?ix<+;H5xIc0-Fv@p1DeK-0v1lG^{;*NUId zBgb+841alCG(K60P}^|EK5#PYly1^F^qIY+PpNjLKU36E>~r5AX|9>Q{Ey5wtUhch zIp)YW#Z>z&BarZdQBMh-xGVQF`-Q$K{y68sgM3G_!CO2zmSO*AarUd>!{@r`(^|e_N06=Li2okMM^yqyvye{D*j;*njE~>KXm> zpLE#3;BRt-f0L5@4~Z*_AZ&ym#?L3z*H87p8NZNA5&qyCe|-Lb*W!BQ(ibwKi|7zq zG@GvcC3}}c8YSrfDpp72`LT86>4-BPX}jKAj{L#Cn=2(7-tbAia;x08Fyq(vd+uHR z^k)7y>3*}7j;f2%5*+U1t;LT&{xL83kv_XW!YCLD%yRgiv-SAw+An21NMc;2z}GIy z-t#lBq?&bT|jqY%kp2J zK2&NLYv1d__?NcK4EyaMDSRC|QTIt{YF+Kqn1ocml2OQli{DWa58ot|M^!B2M+x1=^3Wz^kz==!l{Qaw^=v08Gk#Irv0NslxNJEKTxP`V~76|nP}KG zZ>}fj;462(;xML4&wLg4waIPNIWP0kJIP%yx14>BII*=fbzf|W;b%;vFCYYT{3JhAox5|}tAeF285LQpby)k+4V{xu zUdEesQQcA-{3SP@1$9)lqQ&dqOL%4t!jwmZeoC zL^`V|R4rc(@tjp^U9GvSoEPmq)~!7BhtTDW43=`zxH zlqh+=4<}P+FcZ6YK4eN?wCbeSB4foaI3rRcA-ro{>G8_khcr<3F*Xi_uJPKIodCO|FA_X zrN6!M(CwUS5B^fB^;*7uWl8i?){ce!10T#Ek+vgKD(b)L-~3HLlcCA9d2`@tpdRxV ztkmP?UrEBApAVfYHs_>9bY@$qOub1pUf6F!UH#CYymPCleSUi9+$(KnOU-fVi;nx| zUyjLqWvm_`zEuH4wO$=u^Fun(?UwnyXUATCY}`9zWO3|iVHMpW^Xsc4rM2xBZ?HpH zJylP#8h7gHHgyJ1-=c1T|6((2QvUBk_rJtU{~rQ<|B@~}dh|ba@BV#I_=kw<-<9T0 z-S{sB`YQh}&=)7P{BOqdGkpFJ1p4&;bD(InrIV8dHs+rJOzeOw&KCqQeM1oU4xIAC zUGk4mJ$O(TNcx%MBCgo^T}FonhlPgtg+!==Z$XC!gKV z_OCdor*Eil{C_Uc_w!r+e%Y3`u(6q9*;|W$UyS)j=JP*!TzaKS3c9&csS>&7QQv+m zp)zyEZ5!=ATt?`aTCqG#%l&=KP$9?Pe-V@dkmREcuzBkv1H-}Rq&zK@w#Db zB)0a+4?A1<=L^Ge!)e>(vYuwrkSLo$+uf1h;n;2KMX@ZC z`Xn{1gy216@^uE=FsQnSTp`Q9;hvL59OY6#JBf6RbsN5TVe!HnhvUmLfOj|6y1dVo zTQ-}wVl}VWKdbyfQz@AyzT6*!grW9i(>QzV9cg0YoKw~Z{SDj9b0Rg474RgV>38pz zu`qdJb00U}O@|pE;fu)pULq!bE@W})++9$7;CdcfPN78<0z)8q#lt2+sivNz@rU7) z9N`l0oF?|dSPh56?=%#lqu4Eot6D@Wjhkenl^kwAHu}?b5m=(|j;gYjOF(E2`qts@ z>F;@LX*@|CrB#G@#?QZ_wk<5_4C3N-nD;6B3bg#;otHzIQJ2Pf5KtlXqH;ImJZZ8y z)ZQLI10gKH3{?LR0De%qmx(r)I_8UjV_#$ZThNB&LhCynKD92Cx*jhgkD7SYl#SYf zG=DP5Wq{9^Gi(38zjrbg8efOF4c`_58+{(1WUgPxfEcI_@oCDTghe2&Aa#x>4p3JjugP(n+$6*oNXoM z?a{o@+o1kh0?2;Z6y}$~HD11aVA$qKg&>>LW-MrQTlJ$zFQw|8=u?I0UB8zC>qr|0 zK)9%e+gp<1dvPxdJL`ZJ;Gt}4rmb*X8)IX0?})#*IxOGCAdZ^lh?8q zY~{5L9@3SYQ9;2-7p~tW88)%Va7|Wt_$M&v9L#gdF@-r*7Hk5kR`4nrQR=z}hBT?I zf32ijdTe{;cR#q=K6$3IyG_#i$Kh5tZ7eNR6Hz!EbBs4R9&!V!Pf4}`FzB)oCVs@wHA(%VBL1VM2yxk*dD^>i$P8`36 z&T!)AG|wG@6;2S$^_N?r;j33M+>`P=uW)V^<5RyD!EYkS z8&_Odl9{rvgB@GBKgzKs-h&@a+#>0JP8#02kaF#)B2i=7tSds!Tn?><5|QW#UC^w_ z5(*gNjaFj?8ER|9JzYZ4v2fMtTvU#f`Vy)xxVqw~SwA4K9#Cx$l2~Vh-e^wK>o>r` zSzm8}Y|U(C3i0{WvHa6v?ZrtyXpRAGJi-D5%)pc)od$9GFgs= zkJWOLSM@0URG&w#1Nuk-4V7t^a>3VED>}l8xn5A_y3Rp;EQ{9NY$U4XQ9FdZMiPrR zZwP2)SO-MfYMCX$+VQERi(L|ly4YYR zjc%v8-3v<=RJJ>0OZONIs|nojH&AqxA-;qef2O$*&f30GSSeTexIsJJH);EJm8HFU z7Hih-iJqj>t%HNj#p)?FIQ0;%W(vcWTesF|SI})89BDmTQBaX|%bWGc;ErRkw&O{@ z{nLVg+jrvwkQz-iLE&N=%YZpLN{$>+1X%N752AFsG1j9vi%O@GNH^3J_8iLI7G&rQ ziMHWFN|hR7fdov6kpf{c`?Bw@;>_j?~H=WWHqL(Dq6v%3kgh`%FwZ#O48)bWn|BkS7An>iG`%UQ z$LZei&&Eha!D@r5HZpE?%@6p_J@Bj~k@7ot{S1ZR;Y*$$J@-cAso81Lb3c9kwB;mJ z1vQdyotjusC4#<~D0jomKK@F>mV4SHF2M3DAYLc^x>Z*fwO&V1D_Bgn+UIa*&~p@H=ex>nAb{Z`!cr#W?g=Ccgi8^me2<7Q z%g)^%#~yr4LZt>s!%WSvFhlpy_+z{TB?4wiw4ZQTCJ}iml3&D@p!T`vw2UCz#lLzJ zm~qWK1LaEHGS$P!$-gA3f+dT9)<0Z`7;2Z`u$K-V4mPzb`;<4;Q*SfhWr>kDg`oyF zHe3TM@;_m>nkyp?ex725nmAtaKja#*j6|M#R}w&7;qZpl{GI`-Ytt7v5u4mm@x*pe zN80-GVI{f!^V`SP(nGygzj2ik`ff#ExEJbMd&3;#v(mb}(VQlrpq8e3GBX7kZmeM# z@A+OUj>im)9fyW19Z!zUjTHzixul{o^Zt8cR8F_fnK|`8n?`&_Tsy;&{L`H&@dslj zKX#0IdJfu*EYk~bv!?Ah(WX9sD#FG;b7jM(xt(DvpjIl^ry%o2vG`akmV9Xr4_%ST z+^f z@9?M{lPeaNZ`W0+$M~f^Ai-#P7*H>%sZnYOC~Qr zN240-U*3oBr|_Y|TSbkoAoJ~rTW56WU@(4nRB5>Gjzdj@W6Q9eGGUU~<$`kDIL?vd zVA6Mq*EUM!cLJxqcZbh<0HQw4H^tLn!`fj6M$|Gffa{UFMX|xbo;=8RL-E$$n}>UF zoK@C-kmezgY6N)`ok&zMjgriji0JnZZ|E88_FCY4Kr>%2aBxl_|FDW+5tij#>vM*k zZ5tX;f=Q}0wCjaI*BljyinH@Z>P%MTfK#h&uD{+um;XIxNI^_DKc28yJ}xPLg+z3a z%mey)IWf4(IZ92LTB2B*aPjbawQfcnn7jacFCgcjzAw4C`H_1VP{I}k8IPPA2zNuY z?}&trird$~2u=|C{q=3?XGx}u7fO+uSvBxlyP5`b!0cir5+80hP9JQOb!>=UOw#Z< zx_e2eZ8f5A-}mg1g^^msMHij>+qaqQlRtXZWO?J>xq(Xw`^*Iq*=4{Na5K)i^_5bV z)vG}=FD%bo-uQ|h3K7yZ>JeIi7T|Bu z`xy~q9#$gQ8HMUh&Rwz6w~r1EhEh5^sx*Ln?mdx&KmCum(~Ap6e50lws+$N}oLFq* z=U0>nsr8?5L9L}8R)Fu>P}!i1uuMFJCEL|M-S+kAyWXjsL*KCW?h-0E)qhiVsIX|& zakDy{yjdc*qO82^ejTN_%8$E7dh zW34=Bbv$M=zCxzZx76~fwumKvfInnwR>xU?;I+=*=%Mydg*zlOJ{r5OfKcmcf0T6? zk#GgV*PR|+T@STvtcMxz4GRzZB1apcF)3mm002u#n9*?K-IY{H*HmXIl3p)ng-yk@H3IW~43P z8)f^Z5G~lnGm&v!3XtlPPy`y* zE)Z8iP4q^}?E_s{aF*m@P%m(Zps~!r7`B((0#o?Mk&Cj=Y=HSj$iw~A?tqY7k+)|@ ze6ZPCoG?^}DK-^Mid+!>GUoZ-_=(+}Xv^k^B9X>kL70sPg+90*2{URNVo&MOkH3g` zkwCqg(%pAG>t)RAJCe5;_)Ra(aDNa9-vh8K9%8iIg^Jw}tFfGNh~m?Ds8PGa^a!*e zY5)&XT}*-o7!ZrkU^vxvE^lnikH^~D$a|@YXRoM zzN|5saCrkJ&5O%6CT~98@vo*#E((n#oRHtyYto#EbcO!Bggm1*jBfhVW3eMkDA0Xu znI#q1K6m(|Kbn;s85u&85Rh28s8)P9uS{<#q@yZ^ zqw4Zw_PVF5tjD}sTMvqS36#$84B~_e$@7Z%NuNTH#Jd*r%kkA7u7y@Z9}a2tWMyv zUf_xsoEBauI1aEZ(R<%nuHo$pcgzW0yxxUa&lM;vMeZ7eR3Nrt(ypfhd*t|RN2*ho zpxu#$IsC>c^mKc(s$7BHbgk(lA|~wJaH$xXbV=A61_&_^34tswj@i%mhYW z^CFcyl+6>dwRs)YC6rCl$7ZWgh(+Yp*9*k}=HSV#;N0rBElxUB=(-((c#2a?h5l{t z4xn5ih~cz%)PEKsDOe)3JvO0geyHe)mn9X=VY@PBrYQ(H6O^u}J`y}RJpKkukHj6(?(?0QVK=oonkHXzi!wTJSEl~?f6l6Bh zMY=`Bhm=}6PqFY^vCZAL4}TNFbvyMwtSbhZ4<7yg#uGW|83uHi$0mr>Bw*z;TRz|2zdBzKkhR|wA2W;G&bM0n`2;bj{zjYojFb{aJ zfRX!^SbhHq-%20d*EaS%7|E%p|h>wXdgF2^ zD=iT9d;>WsxCR@nN)uN^r#7_*Khp&=O1h<>vSsV*^P|oSg7uf%I=*^%CN+9Nr^VuC z7r~B?Fi^`$`SEl0)rh!3$5Opv-_Rkp5JA~y$rZDZzAQ~+Q#XL36dAZ@TvY;Yd-OWW zI;*a=jp}_z2(AOXzVCoKjaZs@$>yQ>#8ojt8H^1jhZKPPkDW*^s>JGSZJ?({g_*dZP$(&)}u-gQ%Aoa zo;pffFWmNKt6<$jRh6!j}u3E(nv`!zrQ)a9A;!vZGu5V4L9t+~yNR2}2 z8PfGkGFEh3@KHo?cKTxz$ejy$-QwUq2pi`iniq8X36>5BMjivaeerk(gePyt1$0Us z!o@9l=1{YR@U_9NyoZgypXx%K0Oizrtg{Pm|A$X1Ue2iXP2EQZRmGF3>RrDIR@DO^ zYbS+nkycLhrkPbyGaM-wM)&cac<93-++U@5_hZfGVt0-@T69f3JSHJi@El{XhP_6( zw!fve>YOI1r~oZ2g)pq3g&Eeh`NKJoM`E%h7cW#xpEX2E0Iu^#Ry7HNnQn-f{Rl5$ zL3b zbphg6Kc%c&s+9+?wF;5OLFF1esitvZh!CPs^5T?PRr2Io9qHT&bj()R=1 zj6XzOI+6irR8mSgTwM+rX2g&H6jbsXK&!RrS6)os%=Ptz?5>a2oeig-SKPa)e&d*% zwfSu`)KM)|rk=WT?}1I624!Rq$69Eu^W;^N*X{Ig;ta8-KH?%*<&3rUlWdi~gh zmO-Emt5IEq1%q`%KRRkbYy(=gOZ~cE?i^pz=7o}nPltOD%5S46{cpFadaG>F-)2s} zHd#!%AQ(%YSj|oifyg-^eng#!wq*ZRT2JSYuYB%s*OP-h+aH0ubjMk~SRB?B41UZ|Y#vw=5k53=b3>Gk8;9I+6(%Q)F z+~{qXp3ASSB-H#HqYES>+3G4IXH^Gas4Ug8JU1aVZbDDWGW}}a0Xma?WP|Hx8Upy5 z4@;xFK@nkMY&{vf`x-i%h{@P)il^YHYc6JxRXe|OI=zlReE_OCCJMb}f?VjphAqvt zbrsLy4jf`aWa?VY2ko+z$g2ZWJ^gd##Yx2EhL3Ozcf;d|t4n>mH32QNVyA?y#xciZ zlkrS3Q3nGR???N{VrJ`X&u18n2U2>&LA&3H?(*UqM!~g0#*i%ryXjQuTq7(}0-$Oc z#&)z@&};MX0?~vg39Jpi+lj>caA~kM*f}@b6__|5pH4lhZ@kV5_Aj*8E_Lm($)VGs zbq<$dYYTCyyFr7hW2L2~BfhzF=;aSl30hREhxahCCtzP|0NB=o9Z9J?s`zc@YtoPV z4iv?{6o0s}C3B~ub~^OQ6ao@v#I7sH(da&zeJnU4e$ZU}e%(|_qic5RZuvtIM+PDa z1XS8-u^XWJ3Fb6@9h!n53WeCx(n3v-QfO-d>yXfn=SC*(tse~MT0Q^>v%Zb=E+w!a zVbDM!MFeRE@!hOmqGdavZeqvlJv9ag;nR#iRAtrutWZXh0t#qm0#`8|PxGMdpgJ9mWX!jy9WT93FL%a`xZ z_bmtoAw}>k3j^le&*MvGURf_GQU3^&K#QMe`yZXt$r!i`1o}9r_j>&iR^uFvms{tK zDfO7_uzmOX*WRH143!On%B-~cl+KX7cK-*^VpYqFM2$8l3R)yer(V;I0ch#PuC6@! z>v=%SGD-Sb!Ll6cK9IswINxJ!umM3=(#mN3$L2XL7uDkEPV?}<+6_u6ZH&xA)#3hVYr#{9&j+5PO)J{w^W6Kd9(CFYzw;JO z*6kf*jmL!1ZKB0J*G?5>mv+&gQL)(ffn+ zb=+j4E?!`7m~j@$H+Uux|8<UaQc+lk+O<1cXaF z@8U`gZ#8m7$%MXO!^>E39x$$Z%;j;S`PCg807t#PlJOedU`eU8p|!?xxzNH=%(Dl! zW3ABYagy9nr z?6uhggJdjj8pvMmBaxo83!_EFoCWVxw``9|Q|I8AI4uo&V2sum34eW{U3(L69Vd$Y*%$+bBCQO9+Km*kF`fxGa>0q*{ry|Hd0f7s^tCFGy7Lg#E!*&1>H-`8jZp_dw#{|?qA@BMC^yaw&*X9*tk=~=QObF7xTvDbp5J|Uz;_C? z7?(f6hAa;>^P#Ab0l21&v~}7l<2P;lcc*zHU3lR1;8*j=~DJ?biW)^U%loyUH-;`_n zmE9u6Z7{z(9KUj*N0?J7=dI*gZ5tKrPy-;$EE7r8LjXg|^#E z9x)RO@2MTA5xGy_nOnH4Db-yhTn>yWE!Fua$3Zd7lg}pDEjLgdyTw#&mVU6S|p_6nX3R_z7CNiIY_g>^-1D2h_ zC7xi=B)Cye!ab7*Uhh%89GmudZv}kbbIQ?B&9K7Clt^_4=vR z*y^=T0I06RlX>gBIu33;6A!rz^lSiYwwnC9njJ44wrEIiv<$!zv6Au0R4NJkiksC;ns2E>6 z|K<-?uDtfCf{)t$$7Z+?N`wfBpZF+!SZnSWR9nP&2WJ!VIc4laoa$;a*y|65Qu{8Ca_Uwo>%69RS`^r_r5k#WSThK7 zE&DQP?W4(p`NbRdl6w~4W`bhG4;5;-uO74-mjd>S{(FA!I_`+>QwCx*U0dhd#3?fc zlI@^Vasp_aDmMYQcXpe~f=$jkrGStpN2^haoe^fQT6Gc z&kf+g&Ff75sTki-j1NCEq!4i#eMCvT;6N>-o%*90w_*!CD&m}1nQgp`HLRfr$^fj( zijpE*oi^H=Sc%nQ*D$C%eHEq1$bYq`!J0o&kSjru7ueNQ-5SksY#>Ipv|SwrH6{4` z`j#tek27 zfsuE-{XW8b`LhT7Z;TTx&RPuW|FN|Yt_WA$_Li_~J*q@+UX7qre9=4Wg)ZjuK>-5< zanJ8wh_JcH?6l2-8ZXktL=6S&nBZhoiNDu8D)pr7{&%ez2Z*rQy$P9&6?u~8O?@4E znaD^=GK*Y1C=TjVF}kRmALWyeA=dWWn6=t_F3b0zDC46ggaOU;kP}LS?adYA{${jw z)l}HwM4vZrH24e8F&Oz1+z)CM134<78~yCrh2BhQWc$Hg_O1POZQFbyZV09x3z{wBfDaV4^n6`R=r1ol!|fUgz#(QS z$3)9I)shoXaui7arATN>p&GUL8Cyc**JHaoQAt^ElD>mAoN{fd=OtNa0pdk)>78^D7`ksnT=DJguQyEM(QIH;Y1rJE{;DQ9K4d|d z-#!l2L-kJ}m1XW6O{_8csunf}e%oHl|K>H_M8WsqSTYX1ZG`DXItg2=v62bESQ{rh;n|v0#jl% z{5Wa%wiEIxJ{}N{2Q4gze{Tn+hPvwY)#T?h*9i(($HjsKiQ}{w>#aU80|l&IKuvL3 zPgM22Nd|Q81@i}3OcH_nxU*urpsaP!{tXw3k?Q18@g!?va!bc5kHQ0!CXK%adQ|-v z@(BvvUK&u~dQ*QCBK*RG@X>D1_(Ka+-@nE=k1&3-YUpCR(_F~x0eZ`Oq0S&gvDBU} zyES1CxUS1` zdpCj!a5X`H#eN%%f`%a9X6N`QZlJ4k51K0cUc1yj=cz8X9;=bPX|P~tgVMc|{n9eU z$fCzLjy+~$#-LQJ*2S}VnjcLXeWj@Fe_jW@EoYAjarA>UbJz_a<~s7U0GLxP*pAe3 z$hXE?$sxA;m89A(9|D?(7<=Br=@q7!;WmYXi0cB!oQbk-N4Z}xKp)@Bi)thG zk|(&P@zJNgKgL!wE`D`hiOI4Hqr=XAy$-N zZ15l|guBi2tQBL#>w{q+?@?|nXFV>VVKk7Ov}^JHSlPp8g;BQpKg5SEEV-;U;i%F) zqO{F^+UWr1I+Mrbdw-~G0Wg>04k&f3$npuBQ@rvzZr|)}drgj*6S`%%G*dTaM}cP@ zE6%GUEUk65mRchLg>D`c4`<+u3ymfwM+L@6;|hV}74NoAeV#@8VC&YIOn`aZa};`| z0<|ws>>A?FV=`Kb{13ql{m!Ct64BN0n{lGiEtFPoc|mcQNqPp&m4i*VJ7-?F53lD1 z#jcM8)C>|oc!Qf&LF`I~>_#)0u##6G#sST z+X9DeSLn{J4fX`37u~dIcjib)ORK|rXNl}h(zR4G?#KiZ8F;*F>oJX%s^Vqti;C`B z8T*ZKfq}^j3*(;)Z4Eo5qCtGd$foo19}&m76vzbBO_Yu(&A0A$5ogZ=`) zwLjxV;THI9ubSFwr%~_go%k#zmUt$4Nv=fvA*&;K zImHFhhsM<2_;fV&s1lvLK_BAj0{P<0!om*%D;sCG%*{CMx7JCzb)I2cysZyJ`AL2lNO7UY;SsgBt0F*;?%X(eL4iKZj9eDqHgZyeB;IIHPaMga7?nz!LHx( z1$$(1WcUHkmF;n!coZ~q*S#hZs%ERb$R_z4x{6w#@6`<}c-fUq9f;uaWf__yX0dK* zu2JidSAtsMtVWVZ&5AU6?t~g*GVSJDfuSLjv+*k>y8^!-9YV|E-}0g7pfn_3Ux~V- zv{FP14)j0?i~d5#vP^u4+nXvi>)ZokC2*tckJ0K}{*N10EfL;sjRlSgGc$&5HcX#X z^kC%Jct8z@09}m8^+xW}olZw3)2&Z=??(g&+FHI0QdX-#T-M^6(=&#k=1{E(_R`rjj zySpM;R|Ad!^NsFnXecXVQ?;ABns8u&^F8P=zlyTT7-~PyM47=JyynZ$0vm?FgG7 z*RnRm2sSEsV|3p&$<8P4flYP8pX}#)Et=n(mY=UZMx6^dOW6Mf`dFmtW53U6ax$rb zhj=`=zx&g@yf2EbN#enR57$hqEv8H5yN;QBNE0aa^y%FDCf;Ui)UfFX)wyeN8n?_{ z-g>4}bRNUlYD!DYw!^=ZUSB9cid+av9+-D7d~svA{z(V6<<}k~k4yJghHn|Zx0hTb zv=K2%x+Q`9{9^d9xi2ABCamkCwZX4iCI>APP+w2}6_ix`Tv&nCD7?eX(3m6p$zycO z$N0w`HQj0^2FIemjvA>$2TfIqY9|=VW0g-2E*KL}{Arr9I=EN%3GoYAV`t;-uUGB= zIDEk;LD-ggtSUVHy|`WGl|n{W^oJ#bX9Qe&ed6><)82h8LiM(+xCaN7;x1`4-3YyF zEN^5bZ6?HELE4IQY7`?NLDhTy2-v1zdNzj#|O7%wjzU59Lv4-t@T|x zSK~POv@z~1S+4i$F{Z>?{`M**7Au;zRWV^gMgLjxRu*#u$JB=9kN#=y>zXQ^dhm^|w(iDD9oo%F z2aNn(uNQk{T$L}%O_TN(M84Z_rnv8MeYCwL>%@yM2cn+eDxFR*CXr0S?aHI`KHk~I z`y{tFqabSQn2>w4*AZcv&r8yd$2tB!)PY#dds-!0=rgw!o_9*7Atp~{->_2e#caPf zZFEl~QKqw5hM8@?SF3F4n2lP;N9UI$PEAFTkARaGkGe$Oak5oYBEq{Pq-s^>ETzrRN-TY_lH4BP92mr2~W~aLNg?{zV6`PCBeiY|9)K5#YXz-23*j zsh*8(MGP4o9(@?ZlM|1PfnU>5(FoPX!|{hZnV-)8JTh{=B^tNp)l{L22$ z@goRv|J`{0&N+6v8U~nlXKlR${Cpx*4>(48NBn%oG8lUaykLV329H1gFw+13jpKJv z@1W8DImhqkxBUIG?fd1_#DT2$H@i*tz<<-(^-vLHv9rg0;TG;1^1n2OpWa`Rxzn%z zwQAGJtuOU^1JV*7ot%Qh-fU%plGp$A*lb4WnBGC=R%W#{eo#Ps)7WhKMvjB0+v?EH z?w#LwZH_jvdQ>Lc8Z|dlxV}sA5HygmnAG{1bT!io(SnM4fBBWbUCL^obsGdb=%yb1 zwVzl}YyMrx7@}6>j!x;AhexLbCQvxl(b`BAxOB2e9;KoknQ5f}gnmz2-TA1cKZjt2 zT01TR)$++CCpOtu{LZCiKiciG+6DlYG*QgRkjjC$Dh{r7BQAr^g4;pu?k=uPe8Gd;#DIVx z?QP>o#UKaVvH}w>Em9NJ!MwP8?YspgVmP{?d2lYdE_&zC2HlmnuXsXjWJiJFps{bk z51|$ALbDc*EUw^hy6SI?by`G_(&OKTwhLQS6~85_b$c#!!!Q=@w&aFE=IWfjJpn$9 zNOv~r$2HMCR)vSnkx2bl2*uCp2Fo*TVQ=J*ki}WY@$)PJdCxF*ioYRC+i_ghN zs0!oeO5GBW-|2jPx|5`CkqF8$kD9L5ww^I$L)&tC!i6l!)VQ&?$Dt32H>ai0e{rW$ z#6mUoz7&UjPO>X#r#L3C1F9u<%WJ2VPq8`&4^M@~I$1HTpT%Keu`K6f+}b-H9>WRi zB0#8?+87qg!d2r~CidHpyz(56{WG6Ex4)_)zZh%$>iD$rLP~P@dH#O=GkS~_c0lKL z(C~%Nr|cxkbl>;3>N_H-KzgM65TG3<QfV37r7a)boL=?&qh zJA!Mz3#kNGCqBo5@^fE|U(g*3fP~1+cPA({I+2PS-)QTfmbCEiv%H7hxyVlBLFqlC(L>R{uNu%VD#-Wfw&JmiZjLE4SikOudOve%2!d6aQ3D@u|AU{eE0N5#C>DA z;g}GfP_}tx7jD;xSaj5i6FBV~EeJuTMkTb>*YgRqb3UcXcs-aplL*`M`)vbj04&Wr zY4O{ua~s&d{A%ck`N6$`K^*^&WT@2oNfLXxNvXS*oi^cKv3V>H4ngyXM$7x;|lK zHsMhMah=}?O%X->h9}k#H?f__7?T+dO09((B1Y%&6(2#Ect@s+`_!dVC7vWR_^&L0 z6NkQ?^E--xMAMUt&2JCRd^VABzV}A$un$^;v5k^JC(l~@dL%zMUYO+=)?IkxK7LxN zqP@AD*ykZl=db#Tp^j$I-kvJ_gUjVltu|-g4gw&LAWf1dsl_C7ILCLQRyHX-3zObF zc<#q+5GEZ4M5uqfaL`QIw4I!4IMF8)p?uFJ!c%z^XP>dA(%wopRKHU6c30J;hfdKe zi5>UvXKZl&T6vSDjT`kK8g#OBvV9|I>WoNy*Z-ItdN@-lQz=iq=lbc%A$;q3laT3( zcNRfNBR1>Di-+fwXn1=3BK8pcrk<cDac-rgXl5KiHjWN4UqQd5JPvZQ_xs>}VY9OMr@9 zpWXD7q+6Mou1cvQ%H_y<IC^E%EPyY?#08aCrh02 z5vE$cJC|caVHU7Myc(T3cyX7cD^dhLA|gN9_mp<=qLKysVNyO}Y3KCNpxtlf-%CSvfC`yQs7+K#Gz!<-_`@#M^t+nyMW;wCGsWplwnfZJUEwH;#H?wf<(A}{S zfH@TSFS6G}&G>){Qb*{C128`XTCo2J51ISsWn4l;=p(3^vodgw-`t!<{&e`aE$W~I zm9F43q1eK9IpE;CBJ5b~SUwTf*c`x;2l1B|$NaWUx61dAE1M=_%B5yL8O9ErRqAx| zXF~T}qesN8v^90Vp^5WGQ6MUCl#YL4VHB>O+B8VHPFN7i;&#cpd7?D%DQ*TOSV@A|+(;$p0K!)?8NRKF7uTek74F*JCEs!lG5-`%;l z8&skX{$^m3zXp1H zo!tF|hT4Wepw*KVd{ja3#j- z4_f3s-!<oT*6u$dfQ&=ViO^mECy76w+#< zhYolXV1~2=G0%30QEwm1Qq=|qR7CmeG9$v$0La8x*5 zz(*FpykUL%A+>Z0gw^GJ1j(X4gXg%zxE_#bj;TbdhDLzsVoZ#n#{O;AVB~~*Os32O%}048}a&S^WKQg8@u9Pv}X_WF4TzoA7^;LcU!FVzt8h1 zyiqnjr2BFa$kNBiD2QGAy%!Hn7vx4V*S~1+lQ_XRYDWN}0#9D(k;R{SZr%GhWQpEG zSXxbd{NjAJmE^XYj=m`}C%Q}gUs{F&>GAIABTnNC6Za+z6yFFljPPo`B2d`*L$0&q zd56QOq?3%DSrQ6;bENf4p7&MtzB9sVEDPEK*9XR^^AB_>_eBOZvxrR2MpQH~QSu=A z2K)hG1J6HwXG9Ezlpq-Gd0M)kvm3qbw^(!BdUJaovAxfoTw1?)nR{)^vHNNjn~Od~kX1 za=={**>~-!sfk#YxOy%>|??Sa!ts!w2ELUsa4^P4@ zvZpVFrcN>nQ$iMf*x64Gqmn1r4(-+!%o}Vhu&QDe(QD$Nvlp@?bP0(im>v&L^3l=o zhnNhwe?TNjBHrG#7)U&_Ug@jt&C!Wd4QzS{1U7X$aTh|S}+Q%Q84p+Df=%2NAe zUEUtB2SV&~osn<5Z>7+oPNs6H9`n6k>rQldP5~eY+bDKu!Nlu=$@1P=i2@{|Ra% z_GIyQ|MhNgXGI~d*!ys1ukH=Ru;qLpot+R=mwm|HJn8N;!>BD)JVJ6}dvfY*XhP#u z@&t`aZ=sh`%V@NzZ3o9FG?SVYLps|&oHYFX}=ywxvUcBU_ ze50atmCYV^XTa2l@H`O|l>ISRa$7TDqYXpN9QMc5q2U8<7_wZ)65IEYz3%P@SAQX8 zQ5kF-?bjO9l`BFpG9Zg(w$qjM{^C*7TZ@4_VH#BQ<@$ata znf%GXDo9>_?MUYN8)u|aic+OX+hpYgzy!>G?6T0(L zU%(5XAS6E=OuL7`_B`>=ef$2z{j*m+$or%uOrlp-+_{FyV#HEeF zveU`~8#9>>M=IFw?zh^%*jWX?VLqjw=Dsm;$O^LF>G%mo`rBQdHhmyLF7;5x3iwFP z?mkhwt@a`7>P54^evB<$f@0^(9&Cp{9|%meih&lOnh4hblok^jnO4l!Tjz+GVkTc0 zfcfi+xh0JZI@QWw-^iU_43bwvm^&(IKDpd;Ear)BL#GK*7_=B9yL>N?1PkU>5_)1T zWWo)h%Dgsa$KTgtW}b=mZ&lRf#&I#ryTt6IrGX$c5(W!RZt@-NzCM~)v5PZ9yxUt{ee%H z+t(fBHPD8rp(P4PKkHei9kONIo~oPjy8QRszZW}}nply56y0fi9<64Lx%IR2Th_VL zg$-)E0gENGVtr#362^Bf@;~KJ7~IrG{9Yt7uqXo%BxUcycSt$bAA32F>y{F-d6FPh zrZfsehOK4s6|5HymeRf{7_vHA2YK5PvlPl$D~zsn0U@tq6+BV>u^f8zkq2O#-n}>x zzR-z&r!%z@E|D7lYCDn^=^XRo>4JGYsH3jYIR+Y%+>ZuKCyNK4~zJK4TvO(N=1E+YD z?$%m60#Vc_`P_jX%%dX_oVB^m%=D)6t-@gQ0OdPv#w`&g1h}HTsbwq9d{P6XE|@pf zZ%BHdYBswUH^oxGntOsW5lGCDi`T3GxxK^LI5RJYq6CwK{1vbzVa0v~{5$3MZZZgi zl0IN0`F?!EM_i%HpLnHoMf=SY+)~xdm6QSxR_cDXRPohBg8ovYco1vlzY(b7@7_N@ zyKg#|E=t!fLa^jN`4(CBt>c#^-tOgxUqsobt0~@Z4EKL&ld0!`1tBxiPRI_N4MQgU zQpJv97D3=G^pG&YPdPpm#X%zE(F>kKL{XaHgnKM0A~+cASALqGjbB|E-ZP(T$6dQ$ zyE(B`mP$*W5?Kie1Zrz?L0DQ#XE$E~&!sjsu#FlXVra@>Z$81}wRg;#G^eqf-F6=A z?WKBZ==*2ZG|pq8o*##ib+`XbS1_+fDnLFoF}%0AMb|c z$*^Jjb#EM9K*R<2oG3a?`sc)KQtc0(zd56}1T+wz8)*1(?U+*}E1B~!hTor6f;+M@ zS5z>KoxB0+(d#$5kuPHb->+NR>{wH|3F@q90b^f@R8bcOa0=7k^&~b=q8uO&;00p__u?MMuaMN9@gjSqxrIbRnf{|EZZhrMu((7q^I< zNv#mO&n0Kgn#!;AJ5y#ro^e$hjuN}N;+$ldc(vm7U$BJJ4>{k?`Di_=j(2@O`uMhP zH`#76&1G5-kxU3o&S?dugkL@HCmoji%*1759rF=Gik8j zLX#JW3Oi)D6Z&J~GUfsE)XmBye|e_%H+I(;9ATa~v%voH_1L1wevfUV7!ms?E$xZI z7%r&;r4Zhr-cY_Ku9ch$E*#K_9;q{{b{gN&`oMl)9#W(1)s92`jo}R}N#3+~s4$`G zD~eVd+zhiMJa+R+6(A_O7}) z_ZiquO_oFAHyD*$?|N~18fLX>zj)N_6`0i)lPoJ@f;*)YqRfK#Kr5@v(2aays##^g z!me7vG@6C{Tp4b8SSXN+$#msD8VZHDlO*VmkTH}~k-F^aH~h{PJG`HdCM>}tsaTQmAzBFKAACFeZIT0=yV7=v*< zVURme8A!iybkrZ@3#>yq6E=L8+#%^YCy>fKNC@Um@hI8V*!n#um>gkH(T{OjtOV9o7k%uL2qJ>_ao-# zy0iWHmA1C_(OVU>>t6@7vEYUcd_C)^;O8|@0R@n45{NQBeE)vsNs}#ethdrH5U&#Yf}@z+#(qrO@5yk~F_qp;NQKw!C3me`Cd|!VSZi5zd2paY5UI#bL`+q@Yd* zY%^fiAYD($>Dh1JN}lo+JGfRYs27zuNLR3Jl;48cz-0Hwb)hg!nv{v5z87+(gG{!AUA^xSJHuQAS>kUDM_(CE;Em3)j0tbFsC zg)_^l#$;$XdQmfZXxo>&cW!sk`e$ecvzD3p;5J86-jT;brb{d*E+C%yrq@uaIKBGb z>w?3+A1H3yS{Q%QeU*hL`kN5jzq@VTl8{UVxuZ)N)ux80w;pS}^ zTg~@AS`x(IBpU}lPpq=QTOq#%wib%%ou3n&Lzf(PL>zL0KC$qQwnBs9#y+XtR_E{{k!LHLY5p>JcQjb9p^@vMo!|jbt z##XgK?kMI{?J-dyLo_KM4qsFOG3-+t7@|6Ot?h*9(%YZ{RnuTF+ivPVBH<>Ndf951=6S%!^bM;_>!{Pf|Mt5ZSl z>hSy_TI*nh8HI$*So-k$!64+S=ZiQ>W(P)UN7=t?DmMrAvO|n z{L)>rs^d0*qC8H3Evr8AMR^mVuX^BQ0KKO%p;CST#;X3}sixPjE1aau{! z*MB!(ZO6v&jG!#L;DQYzZ_iY-?v=7fPJc(Fl{;j%PK;lBFc_|^BYA{B%xZOaqvRT^ zs3?qeq|;o7qaD7Ao2KrDeo1VVFKT=SQ`kP%Yje{63^E)sS6X3pB4M2X|IVsH=#g zRfA-c)*FcfC)T6`^G8+*aY2Zd(#e{eSAV(M%dgn@Q1hLa1rg|Y-ujvMa>|+w)Lot= zhqekw#p|wEfuwS}{Ihdp=k3kdv8?Wbqss>E(!iUz2y)W`quHXzew?5nwwn&}bHy7+ zg1io(;l%n>AbZj6eozkD3{x>Ez7tcY3dChit@hN^&!LmZ5D`mn zmaL@X`>0BtXg(C_q$#Onuj^SC+4<+{s?gRY++n$Hl`*J%WWP6Y*= zxlP${GeBf|2e}Ec-qMwirIau2#ha~fAdiRgD!Xgt_Wk+`MO&pF@OF^zUky3yM_7(l zXO_l-AUe|@U8-|;VGVR?Yb3*~FbcbhZBNPyKfc03ZcoO^1?T{;QebviVC>toesPz# zpSPU&%rFf6@CCJP#oaZfE2_Sc&}H>AjbVB(Vd}|pTNsN$ z*9bor5|gbYVxrP4P3;l{z$A zV8@a}BjOvB!m6e-M%y~-F;?Qtu4k67yC&?2Vcgl95vDv%kBsI}XItwPuDf)y*YRUG ztH!GB(DT1|BRtV6A0&EJCWk(_EJ~%1()pr{rNa7Z-*@ci6QGX#ZjaynvI&TuAd)DW z-Bq8+%-x!Ep-wBbn~Axyhvjm~Tk*0(juaBlAqY$o6b3_GHe7Tg3ZQ9y0CKb*Dn9Y# zyqg(kIyI%^m?u3_=&eX*OINVAYYt5?RCt?|vO~g7?M_{S#~=f}u%?uG&)g4jDpTdH zW!g?cq)%|o5h^OPj0~J)Y?vyB$0e)>Q0ktr-e~_umm1#HK#6=;)?NWr3~^*FAr>u= zgEikUu$WYQSI|YDS6o7%vudQ{3upZ7O7kqfqz+_YQaF&Hr0TJ zSi79Og`3Vq0;Mq*H_#4>xvQ|#A9a1y=LRPcypMMOnM;+NDt)d=CMX^fa@2AP6C=)=+g^!B z^}w@JU62O_wXY9*)dsJV)#?ft%2TMf-8yD%NH==6`fht!W|NDN>X9X@*GkCikTv_} zi**BP)9$|2Vb$v1*$#tQ;a85>n0wAf#&0vRIGNKDg0r<@Y%v=hvmBMN%)r{t)6 zc~U(2OhvT@;y`AGcqMicIkbKyt=^h6EcBBQ%(N&_Iqam4Mk~**cT9D zC;Z&-#I#b<0kO3AK`XEr-H{<5k_8UHE?(DmW5+A1rmFiTcF2^|UOT%@H1=yJgm4Jo z-q$F9Y)@Q>NMP3LErs{%%K_WZ#?klEMjn`grYAeD;v~y)Bd)_}t%=F};F10rUsAec zi*e}_KSX!~{Km{8^ULss-=@p#O&a0fC(qXu$1Q!y6R5bt4i7AYgw4(y_B-(kNsd>U zj$BUsz1R8K4tVgAz^>pZ&uoL!o|7f)U?CRcNg2r(c2mrP?Kb8u%^kuQrHAUXPuK8c zemC(=bEK{NkCRbWrYD2Pz54-EXRT(WjJY8{@+38BfU}O0+rt~oi(X=dH?Y~!y?({> zw&G(I+2!m`^n!+YR%u?+{Md|E$XJ_sk{o)K*t7E7?opT0$ zfhItl6*ks-KrsnVRbsTQ`<0PjlT`t>c=v)421=WLzfCKIDI#_X-92ko7aDW2LtO%b z>@}S5Jxkr^%hpFdI4)@`tKzOwvSwX`B`d-L-=bs+7`X@SzbGpkr>S~{4Mh=|!Fxv7 z9Wr=4Sq(#%2OvtK>{<)hWm+)(+=$I8lVY&RoICDMz>iyFWjn12q6*w;TZ^JzS#fC+ z2=kFn^9U)c^TJ7;x?e7`zev~ZzGLDmpSkDz)$Kg)kyg&5g)mpc!+UXbsGTs`Spe=J)C~sljVYDx#4Ih z(P}AHgvhMs=Q_%h)t7Kvj1NDKaF9Wj+_)-dxv~4jU#A*uY_m*mq5V!&o1NV`>h-zF zIQtC}?s=nJx`2U*>Q~$L%m)cagkR;&RZ2a_iEy?Ht;JnP^=*(~X4<8%EAZvdgM|9o zqNb(x6jWx!Z%vL$M@_uEu+~?ME?=rX5aye%^EFrcl4aJiq!Z22?}%dt*4zK~t=M6- zNFgE+zv+qR<6pm=u0EC%qqBOfYh{@o2WD)puI4~*P+yR4skq`+V*ez(B*(hLF)Q}| zU6HAYQh?#exK_Vo>Tq^a-lw_IVdOU(KBZ)NGh#7X;Xir#=1G!8^byMeCwWd z50?ay4@-|YVWP4KQ|4|afx zPH?n9qGLeeOK7qlR0YZ$lcY>UVka$SZ14>IiXLpg=zw31;4RA85dYO9m78SbN`@8S(-i-eTm4qpP*U1{Gv3AIcm2^4Ct z);~`QZqh)+qlXgWKqT?^2g(w~UYPSrf$|LgvIB3tZ1zB59wRHH$}ujnpD1Gbz$?eg zFIc~K)P^#Mtz!-9-3?}rcJjs_80yU|T;M>j9N;qoG0OMjW`73e)oJ**-7VMbE=S3j zm4}B!2L1eOTouc$RZp35MNBQ?f}l8|h10=uc%Z!K?ve9C35P*dkK!5^X2oxk=l{5l z0Jyrrqz8s_GheC?9|qaolZ^MuL@SqP+hky>?qX58g}Pzv;3dLE?dO?iW*lTTMj|d8 zm)B6m%-Wa+;+(I{SLYOzT>Pk(`4eJwI9<~5mvVV%eW}Zjk{`P9>{l0~!tI6;AhALP zXD3RT2K-0QeP+J`tM{tlR8jr<6eA>iCR zc+U2YyP@tD?e5=y1lCsSI9SC-SuvRBiHTkJ%Svvc)z?bv%sfe12@ed;_TQG2m#~3@ zP1u^y2|nBXK8$)F@pxszH(~XUji9BQX72l@DQu6m<_;Huq(feK-xL3$*9He;l0S)3 zI=(Ij2Qx=M5pby&&Xgh#>u4V)TVQ&mr_=7S&YmveQ6mPU z%eWgo#I+dK>pyyI1CtV!4M=T-tWh@u07%E7p_Q4~J7G_cTni%adAZS<{0*Mq>&x_A zY(3s9fthMq7?7`a#M6>Mk{Fh#Nt{Z(8;E-O_h9tGf+|*C72rd2t=TI(KI$5Let;hg zKmK6>{zTeoIB)$CwVm#f4nYAlN*0crjOQU=9Jw=kxx&)Nb$gVgVA7H^$Kix54##Wi zY=fnH@TJLbt59a71cM(HfLDF@eIrauQ1Kih8H`GAZKmjnwO|o0-5dGNz)8~*jY6*; zlHVpeDh81)mQ}*$;Hrr@41$JC53DEGH!Eg_)=g9H!!p!c;m>7Gw0Q=1G|_9fsx%u|CzfDgx!7S9 zv>Uo40~tTbs$lC!sM=djlQp7Dr^%pKv$dtjgN1`l?k7nXk?frsp3H-mcS4q5ok@oB zOVY-T?0;kz%Pi7_;I*>bLAUyAzJLdxPVh6Xtx%sD$y9f4SF-cSw=tsLBkf!daCy3)Zs3JNvx zQxdHk!F@nIKE>y4_qb^}iVLV>`=u+ipNP=g=e;axa4+SF(Nh03E0`N!BZ3->J||Cs z{>Pp$!GVlSCoN2d%%o3$w{sZn#m_#|YpmpUSH%V+iPPjGD{FN@hH+n5?mG zr6SCmbP%omh^n|sXfX?Z|D-kSP=3c!YhjnL7OcX?y^`20xh>LU7VyXhcn$797D1?8 z@V??nvkX%0Hmop%5#A*8N`89UXWu$qX)<;{{g=F}yq?)~~7km7KsXRiP9kibIuF@rsMaNfs;s!Rc z-LzTAN-9a_+Q+kbeT%`8Q_!l;qabJPwZW#t0y{}14-@cqjuci__X+uHJFZErb*VqPc5)YI=$tt{E;r2 zz_my>-JQ19Ce5v!)v80x7E7TYFJ#igk8~8)PmTjQNRk|;AgxT zS;~cXz?}G1qdFZ_#sUhpiq(EOn5YDEbYR0S;eetoi*n=Yb*+CU>+kx}C;fdUKYb=c z#1Qq`?4E(#b}cmOm&*|k_YeH&{rOgeqYiy#HIZ4UHq1Jo%QZ~gylFO)4@Se_dWC<4 zRP(pQoK8Egco_E>{#EDKuPlYA=wT}FomtBr)wPOxKa?)=KhO2=r-YXCZHWK*ezV1q zBzYBDbbhWN9co|+SSY+0Cd7O)V|(4T^u2XzP%ZWm4uAAm0?X^YV%eTYzRrKF+$M%P zn}2SqzI5s~+ZSc( zJf!=+Gcvz>&-R)D8`}3z@%umi^#|X-`=4Ux{&|4^vx(Ft@2;6@XC4~*arFhmfF#KO zY<8P&>vzlG;02uzXt<=e_R|#(=hX94Md(OW!H3VO{FF70NTj)9FW&k`>Sf}3+n8+% z;$K6W`6v9PTyNdsua2 zYxlEllAKScT-udh&r?1m);qWwZ9P2t>mknLP)|>7&vY3di|R?tt#ta9s8_L2_4Xks zzDmMcLF{Zw!b{M1c5qG$w+@~zOQE(%~;pbLG zVc26C<-@;94W!6fiBonyzI5>RsPXGOcb7*;|7NQ~=RTe(&kUGJ{Z@Xt9Jid1S#mxg z%StX&49i1F9b9`~?#drh3})-sRV4kPa_sV*3-f-jqVzty(NlL6yC`mSzdF0);V(&2 z9sSQOo;PF6x=!ec!d&n2oF}uxw=3Fx#<{u-x#{Qsxm9{}Z^X0qB=2sU{Dqtwy`JOL znOlTR)uKchtEi5uSJXsVM(pe}-XFX6`Anp?r_iOB9KQ{Cj|l9r?t3$(hEgN|#_I|2)+13b5aPdGx3juE*?aKlbc; zs_IJxcl*`%QOh@LumPeuz|y({@sO3I*mXhJQ=q zOoh84d2^eKr8)xoK+W5+npu1O_64*Tt?aTJY){!~RrJl>ca%T2Tcda3HKq#>(s!Cxf8&X)&M169@Tyv@;jT1T{Mx_C?fw?4xkA4G4L>D0x(5A>&9 zFMH&3?$ZaKs*Y`ziA@{IZ9`Y%1%kqz?s0ow-p#piV(*nTRwNd$GjO-%X;XsL_+6R1 zks}tfRL=N^7h_jn#~2jXPZSj%?32iD$qu*fkiMBYE4|#&T&lhH(AWHl>(7;cn_9m^ zltmuuRX+{Re!h~n9=m#%m(|uo8kX8w)~f2 z=06Vh|M@WU{m=i8!_5CB-Lme#I$v|7*8aQK^It&8d;S-kulxQ#bG}+w96b2{-ue2^ zqx@IrtG12hnZUgNer@o7{ z>x6j+*mbfBwn%=YrV$rq0kbZ4Dvq~Bb}IfdlqJO0LKs^+{n&vJ_XT)t`#US)s8ul*31F*{3)`EaFxm7GKT*}J@(nA+Oo zS&*&Hrw4Buehc@Jl5oiUSn_dRudIo+R@=(QCgFC2(k)_Sr{#IGR#8hS(C-gM_DZPB zkMw|?v34w;H}3Sp?2ZoW9Cs zQv@u;Zg1`adBuzR+gzc!4gSVp%Uwv+xX9!z5{Tf{G;Rgzi}k5S+TJUJ z>)k!%?MYPrhA;_OeypXbu{+pUBSDluJ(1LrSt=J>D!)^b)PaTYe3vnoI>-HLo_@w| z7S0Bx6`Xm;BOasK7+}sU@kky5Zm-O3tJ{xr0|X8-s{cvQdu`d~tuN_s@%iEJOXUM3 zP=@-=UePIjlc#={7H+gtRxRILJ8$4qqGD1RG_po2I^C3oJFN(SezBC9OSu-ceN@FX z&MJls*B;EQlsu2fcZ}8*Hil)%PoA-A$L|t3V946P{k(iqW9bdZ+Uve(=I{e%*=Jq< zqbp9(T6IOmOco^GlI~P-T9-PjzGqPUiI+7TBc!rSr~i z!lBD`XEF}a7oHWZrQkv*0@#7Dsy$shOV_azT2b;@Sl7qd%RNy}(Z69`s!{ZI`&%Qt z*?oZ0kSR+6wQa=ZcPD4f)tt5M140qq7vP?qp}KMOw6K0q2w za*V-?)*4n;IO4%H1mR^DlekfzoZI#%$!^Xnp5A)dI)5~L;hIhDL7nBjtEm$j@E9T& zXE5Tl`MT5{#cQaAvwx{u#XEGut@Lci^v;jKJX>C#$<#B0D8C$3pvr$+(N!}@bW zkbR}jZ4F(8mRO0Ed*1G9K!!l$y>|;VlGevWjAn=@&YGI|B#OV^dlarmK55o|$!|^Q zlQT8)6$^<+WI6k08tBMp(2f`&EoM%MYiS}I|E($-K0aP5>WQV}7QVioo$G7&7Z)Mw zwZ9gQZUE>jZo)!o;&aeS%0%FMb+)BAIsh0}&?q6YmN>hoVWfs1!h~jyf6HbH zfs5v(A)Z<~ahijL5s~vfV?Fp+@~RMhc3vU2}~-BBn&nRpxL4I+m&V|~c3soLdNVY^*@PW(P@T~_XeyyNon8kDoyI@HU!DwC z)ft{RAWZD&6#nfnZ6~N0Mynp?%w0PqR<>S@?&?kPV6t_7>_#|}5i|O*nwej-98j-j zwddRB9PgT%ALq&g2&2Tx?XE?B61B}MmYNQtGBYoBOaD@3Zgs3Tk12~;n?$53_B*b_ zbH<{+U>jWv!}ogou6lwKg_Js|*l+gk!LhDBEQDRtSD8J36553Wq{D^M+(GS3knsAN?IqQPk?ScjazOWDRd(7}S56k0yBB)Ye3LCET=~ zcC1|vb@_IF|Hmt5S6l(9E*S(*qV_!7B|aT0h6H;SLphE9U#l|j&H7ha$6^Q9XANpv z3o|!GAxy(^2pS9(3We+9iRiH%MIxQ1C_M|#clA}~{aT3Y-_S}Rh=_};Acj(YB2C=8 zvY8NKEU=R$;F1>Z2aWTO?NHoLA+9&lc~gyd%S8a2#)O_bn5hCzo6gHiNLbvcyE?wk z0%k@U#wvJS92qj~+(-MizE*L4A)@1;kvk+_1%)Mc{N0o~GYt34D_fZ0ka);rMXPB! zN$kFks}Sf9tb|^)g}*-N7lXyn05n2JxJrh~A+23Rz=u`^rh z0eoqV6+6ON&N+~Inadqa`)YnIz4UiWELzRT2c%&-0fdHVm0Ef!D4QX7;8RXccE@N! zLPG4YT^c6{GI{{!P{45WOm%%RVCfY$S&C;8AYpAzv}QAp)9iE4C+_7bWOinjhEFVO zVid@qP?jwyG|JRe%>ne)m3M~G3U;tZw0I4rk?mAvJ#i`ELczq-zK%zc$6p+k+n0;L z#jpG=4;aKG4@{3R7(MKj#C;UZ3IG&gV-yNrwdNxMx*z00T$E&Kghl6GzKfSj+zZDu zk9q+L>$8xBj~*$DoYz<__=-J-d)#!9G@umGj1;MZQ~%G22%vNw)3v_>hsj{(B`t2Fc#%K%V9vPWwubejl2D{C68ZbO?IEthZ~ly! zWZdr(7wkHD^RlHo{KnkG_rN*|wT(`zQM7Z-!k`NQh(OY**-|FxQs+ODBcUxLnWGZeij1Un&FB%#7P zV+Dx3*>z@xkxJ5&o@35s+@iJGbAqQf+6`KF%aFmT8pmMPVGPrcmA%1qxppJ%g3O4d znh{nF<>AxiKZ|RB7FCEA*MwhOdgI0} zj)t@NRBs*ZV^W6}5Smvzng>w|dx5yT7-dNT))1v2?4gmxG1;!gD!L`*BkIrR=2_F} zTu{=jV9~h8TI*yUMDuc&dFtIc>3s383kr2_&5{y9Ki zitOU&o3Oi>>likJ zIGvm4uIgrP8^Z79c2?uO-Hb9XSyRE)dK~$`*ARDqtaQ7nR#0{3Rp8!@vS*4c*uE#a zN3f=M%(zyKKv|kp6g!0}Ef;>{o9n$`U~{QaFg)3fKr2s@sF2qbTx z0gfX5sBtwk$gfs*|K_(-TPsyuKWrCz(p2dq`?Nafz`W_Tf}K~8i}~B=S^qyYx^z>1W+ugL!k$nT5~r{8Iyn3128d=!=bCZJsx{=YXmFf<*3M zu8VDwj#Va*gUph#HSWRC)%qpV!2@=#Bs9{)*We$sh>(pPD=VZ*Ewz5jGM^t73>Oa zW;e^=2p538>tn}eZ^?xuXi;o8+||75yUJ-6?fG*2ct{h=?_Oe^MU)o?YOIBz3g-FW z3m3^T5HtzCLd8rd#eE1F*UQ$3tL#hSP7p=4P$V=4`H7JoG-%;;5+6?!@#oa>4UKqe zyQKo6TPm({TkHw;8f043tg2e+aM05vcpxsQlaEm9UoF*Jhw z?hiKcu^_M5l7aqs%dXAhy8F_ty6+1k{Xrah02711C0(d_-hia5)kON4HI*fpxD<$E zoRuGn9n8tD669n8%E~{7JH_m31xvwZ11F zdNv?L!l)v6!nvz)V6tg72B`WuWHf6?yUkp-R_D5|MnSqlIm%vn8y_Q>>RHX))o{OT z)}f`-9#{9~Y?$djiKE(%mf_7-w)Jm~Lg(6<9TROcap zKm#cFOFc{vUHj;`+~k#HbkKU?YqIyRxi$1SAS6mNv20!eioL1{d%yAq5VQK;CewBP z)`x1t_4)KAUd+Pc3UkB7`w9?uVXL~X1v)Mi>MLQ?G|b&*vL1N&-4`r24&w~z>vRyN zl2}L}@04;eEx}A)twO|Ky>&FAn(n?q2B+-|8q)= z491$Z#x7Emkf=1M5JqLm7E_e5gtC-vPG&4AyCl29SYjkY5p#@$wlkR+jgV5u*hXd0 zjG6cE)%kqx?{(kzbzi^h{{Hj(=lA|cGK*`xU)yteJd*c+ZTowkHWY2O@%9k%QLIiP z$-H|%{3ABYoE8ykV=k>4xh=SixTHerYkP;Bt{rpD!+$c>F)!oFXZb~^RGaw`L>K#d>ZR}PU8SSPk4Is=*u)(wwfTaXu`@fzT&yE2Ho*aoC?GToYvm`u z%zbANr-FNyf-K7IUE)ZcXl=kkiJW9OGT3@^=_ctd<`Q?4RYj$?9G1EupA&E+asBi( z;kVwF-amW4*>Ny2-J+nL&Wf^14^pz-c2~k0fmRrNYV%X#84A63h#$@&- z$P?Y(a|Gs8Jj`bw+HwNg}nGgL-c-vUcLIv02Z(##`TQRo3%7mUB{y#=jHMuG!zHq zn6(1-d>vWrs*Ueq#;(ifCkf)k#vb`EwBn!U4_;6`;}Lh&SxAPc)YWFy^|fs1Gj3QV zan=$9^)~I41nqy@?WeRYz04)LsD3~VI@Jsy{6Z@bjHrF=#9t=7{Ci89)ZpU68^8|x zag)RCrt+Bci2^87kG@iJmWo?m{cE(46Mwe!&e`mwa8ObMI)@YEI;lc#yzX?OpKn;S z_tr+7u$~vE$Lv+@5vV@8tWyjcOqQ9z6j!xl@_Fx4=URIQW~C7#_cXHNhNmvFcaw;r zkV;848iKg^)uK)`_r1kgeQsPn*UvB7eRPzZ|K@37Vibot0`nDKIlD;+0jK(`4}TNr1#C;$103HtU- zWRS5-t@>#REQ;E2P9G8Z>j$FZAo7rE&qaeYxt7sGP*E4vC()k)v-E9D75_i6gw}?L zyYH(`XqKG#+G@8n&Ud+Mq^rDT+X*-7$ez&5zf>yu<8SvjrX@CICN{m)2(m%>I$dzV zL$kUvTRtTJ&{$5DZhf%bCdal_qPA}X2~pxHj{~LQRU=U!4ka;%zYin+=0~&`&f(@s38)EmQ0;a3l6W$`aw;5AaF<*f|eH^ z#HZMOT7r15T)9web+T|97nq}|U0rV7Vew%hUh(+CBS)_Mk=3tJ$+!jlX2tWttdQvO zl_go+L&-Bh46RGpK+za;YhLJaJJU2$aFH8|HzC5Ld{YD=7U0R$EdnH*L;c|2;ag32 z{ChHbX+kK>+$5J`8R>iv&k)~k`9xNrJ!oF7T(^foYDy@%1;Q_HYSN+6x2|I+u**8)jCdF3G?h(=V$XxT~r~Jg$?I1PvXX$M^ND zXpB6{&gp+}XOnn@4^b4pX$HAF0;aini%8ql^gIbab@MZyS9|@oh)*`5;E&Ynj{WLE z1)kv_G8Lvc!tSZAZ?UVncJh@PMQH>v5v_~_>m1oxJqTC$({Q@?z1lU2n&gRzj^I(Q zYp*rAzu6g4da-wirnJfYp>P1*kwi$0$cq>{n%kf2+p52SDm$#$UZ`NnsH~sh`HfOm zd%AUlOmM6iL=0$8gqO`M5&!^UMCNz{FNWP*X2=!bg-|sWY9vpVG|eK3Gb4M^f{@0e|(eL53@O}fFclVoM0_wwTRe0yE0zD{>AE(_yYUx ziV}{2*57wW+v|q{WS&g?yxBI&Y4r7LPbYNs2oB0U)g@%0K{5dJk3OtqfO-lF&0YTO zlw?>KUhmFdqg0)dB_&-4#dpZT`_q?_)8=_okuk;5EC76ZfaE-`HM8_iZED1MEwU&3 zynUlL%E2O)jumwkp}})_aX3;#EGZ`&ie@^qR_0m38a|N&pq{w0F(Wg}OcDyhG2ce4W%!)&rPCZVq)pFFgr#Udv)6s3)5AV|d3_Qh!K}aI}RGo&3{0$jZ zWx4cwMngLoziN^+A1LMI)vIOtw5l6`lS9x!V9T8byBAV(v(PS1cTpxw1pwk2u*PC7 zJeUOrn3S$X=HGgJ*=5AiaZ&X9kksIJH;-vsRjH?9nE;HXf|GhYJJV+9f%b_V>_pC7a-!Vxy0Y&g z{)2?Y7TS8(S&co*;q&2*u4QcEu8vfYya%<=Yh*H(Bd!B^6B751GS%=j2_F6gH{$l0 za3+)4p69e$;|Cg-?@-B5oPKk9oEL^Pd56OkByF6*UYbSHiY}x@*~L^Zy(qgHugp79>4rj0Fb>BO_i*xH%*Jo;_lcFS z!#yObnPZXd&D*@G@oRi>mY^AU8Y2i})h3@a9@E5BVpaNFX|cgAD@xvcn%{UZaOY@{ zYCt2M$pVtmCB6alwec`h3VX!W)z;NE{S2y@6(Th{sy>D`Sg*^{O8*33zH7KE-nl)` z%e4SZpdsRQzS_5KO-8Ke?rDN`j}CYM|GIWn59S0~P9nhe9KQSW3VD}kvZ6J;wol|^ z+A|Ze)y61}Q2lHja0mt6egU7Ik7iJ_DiT4;5Bh$F>c?q<;stn7+3r+1w}(W=`Gc^l zhpLyRNmzI2*YR;D4c_Ha{AcB-=Fc%aR}OXs}Xys+3{)zmN~_3h8@-*!gJJQ#JJuRWre#SkKzXDu#XhyMs9@fvZJ%LM0xIXjE|b8JuM6LLGImZojeZ13Av zA$wsLfM5B^pRs-v(EMpRVF^<@@~&FsAR=|U^{Zrk4I3S6aU$$HVn*{0b9R5_=tzw7 z%woV^$D^Lul!kfy+_vTRc0|a}KNIHmp?v7q=qI$Y1uLkExSDNPSTIIgD*tKOOx0yf zzIp}hc+2AZk5NC&KiiM;F${0eT)157ZT?*ZvFu-Zknm|mGm0SIeA_UC&8!@4U+R^T z0{-iho|XY$5l@sBEXG+&^^=b=66e-J!V+xbV#kFRDmGai#QDViK1gt;Jr!$m*=45e zZi!xoU7U_G0uM-I7&e14AndjhSTQ%S!}Gaf-KH2<^~47Io<7*&8$PHidz+d2TgIZR z+i}n$U~mbpa&GRRZ0xqklv?dJnSz4beZYACDjw5aL21d%MnN1uNXVBELf^;(!#hMr z4Ap~|@4)vYanqo@`3qMZD*}E%KpNkdfQPtLXyNRCZrWf&(k~NYxFcrs_JS-5MXxhUXbI=R6dy-n@)~4jvQtV#B@xqD0bo<0B z=L~kP8h}$}vVO$p1%sG^A|VtOFc5W4`{b`J-XQ|a1f1a=#IwpfLw@4)#p^9`XY*@9$c{`kNjjl95mj_;Nm=C{ zCxgSQf-l%nY{SZ~tMb=$X;|kM&-N*+1q4~!=&287CsUVP2XBG<2=O9P$oxAz%8isMZsazn6(HS*|B;5N@fZ}kMU(e5QR!iR`C1wU!&ejX~ zO06ZdUdyBCCgibJi+}aXE%)Jg8Tix--LmxUgn+K}h!v!8fkU-(CSh}P%B(hiU zR)`pT+)*|J!A$j;s-X{c^3R5{;ROL@hKtrtDT%(FAy5~@VF-m3hLHU^JImanGYJH3 z1in=%U6q8O3N!G{@`(L7yrlZr!S$5+_C?e8WnczurHZ<3> z(itV!k{0;X_!_+Yfc`xXmhdYcVr*D}o(yQY55jgpTsNkZha1OrvLN~)gAo_C9wMln zz=y0-nHQ4y9^7m6%lj#H5mOMei4BG=hkF9kmWDZRxeF$TZW(EDRkLhqDDMbaB-JZ> z^0Xqq6$iC&?SmZOiG}Uctrm1p0pTkTUOkYE8 zyaUy1VfVJKGwC-}kMtT}^4X$mA!(x0=RTdX9ug84)_gxbopr7k@i&6eZj@;r()uYwO(b-G?Rb@<|K8^d{^?h8oYmZj_ewDI zP+MEDA$v#I{kF1CNAa$FfL+q9L{UZ8Vc8+nH}cN2H%%1BkWRW#1CSOP0wh~cFr&CwC> zySKjpbl$~Hp-F5KsB^He4F^c86~u;FMI7AVDn@`G;|Wax#4-)679d)k+POCM1M}8p zYHSU1ePA->_?r8!Ff0iy2n4sT6CCZ>&h=U)J;_U}Js(UN2YTkow+XDz229CPxt2Le3U^Q&_6q(>jAJU#Qm!S@IA3WkPhP(x(cFbBU_tCs#+dY%A%}(34{xF25j9X z4s|uLmXOr>T`AXrA>LYL)6Y%Qr>7rf+baE@(wVfI!kfGixb0QuUXE+m0!Z-<_xw0= z9$FD_L9s;xcVmxWV$^D5cSCIhzlDLViG$9Ky*TnGl3{H%Yq_L!cEfm4R3hY)rdFoG zSx^G>GYEF^(go|tiH0*S1WWw}o1s(T3xg+L?tR6QET=bfxYZ5wC8=$XxTFqLIZv7jJ7A+u8^)?INe z^-HckihKDyFLXraSkBEMONoS1&El;-!8V8+H*a4!{tB7aT(*=Px`%O<+F`BT`$7b? z(|uQ}c8MK{Z%o94x|L^#P~}124+d!!!{5K9Tbt-IILU6SLJD^+y`{KH+B>HoDm?k2 zTu&q8{EI7^1G#66)4Ufgxm}#kIR~cYE$m_tOY7-@IT%G7`GMS9H@hp-?~gz=>)g>E z`}-GsgAHN$SmG!=i#GWDsI%}ZBha3GQ8*U+!W?75+`{W!a%dy zRto~ox)4a&@yt~&$JA>z$xV1SP1lMqFbd4oKd9t7%JALInKC_VVs>#4n06&^E&Kne zQ?N;IIMn2}WgC=Ay~cc#afU0PjFaYIs>&ZDY~_yGiTLU^U77;zfM&TjPf!*tyR|1Q zTgv8kUHtuZvgZ*CHgUQNE86l>Z3#xIIvsYnnHDGAlP@tPEN9A(%^bdKR0&69RCt&usc&Lz|Pb&z;G*~Z69jp(@0B$++;)B zu?6FQDdZE|%jFoAgeWU}Hsm+II3*xWQrV=YyubJmXWZAwsNsWYYKini`^rzMYVJ8# zFR9yjEp4aaJ{a4Kodly4P>TY4!MpLhCpkX@To7ZsgJ41ORg9$7bJJUWT2bme&Jl{P5O!bYp zF?Tr^g7&ICJs514w2TPOVD9pN+2q4y^fu{@uHrng6z+EE}QIwMjWfGkWE(lB;qMyJd7{2NK&w*EQ%Hj5yqeQ zZFS4IaCES8r=42q>n*#ty!l;h(|k8Z6lm#t3BNu0h>w|~;S--Lh$%J@GFgXrChwC% zCttWVU6E~@aDV8la76Z2Nk;&BNlm4%n-NP2uCk;@VqM~-=qMt}R(nt@Y*>XAQk#SB zP7WInpdVZ8fM==dME#YjIN^3cR2@WGbSW_kru2=HLS9lsd0FM6$;+Es2M)G=QU)$< z5EgF7AOgYz$iT-pb*`{YQ*)=`Tt(t+95Y_kVTr=1EbqWoE*M-$56HpjXe_BI8QPwN zcyUuu+|` z{nSJW-P|tcH2TakJ(U3T#O`I^u%dk!?zs2NSd|#oZb0|2T$_sYsZUG%_E7@noHgAO z0ZZ762<*N3>7J&h{@pW3TAedPNAZ|NK=_)ZefE+gURV|@qg;JjG{F{>rl6`!rgNWK zb)_~u{&gTtPftBv@CAVd)Ym*vgGLZhcHZ_7+{fUmEkl*XfBXFJTkM}N8?DQO`^+xF z7j$Fa3q9orctl2bJRlbsHu_HC-|iIk4lNNbUb8DezIqS<&lZ>3F+mkCtG}z$F}fyX z@}7+4;!lN|><|FfIw|_+7_xfr+XIb13HtKOui$^4>lCa->m9ycg_Zuq;G0M#*z7%V zYpiBqMo9w>XzB%l?~w(a-k5}gJ3sce`2UFt-DVyr(3$t65N>uixDZn1c8hG6f_Wlu zpq{1BbB!Y~)^zEafk_9eZ<;@B&ohG=anT$|yef_*-BPSba4eE?K8CH1*jFSKar#0~ zu=OT4ByED5zdiYye)>I+{PyYgqY3#7D#69EQ(oer$`FL2lBJV0s#0FVrc0G0O)SM5 zVl1S^XU&o)YUL`+9pkk$TyEICRa$s;YWbSdazJ_*ZjyN!ZrKzKHH6)J3;M;bf$%Tn`O526o=AAa0l5nyla{5~bu= ziX5`;L#OzfjF!KPcIqLV)wFg2e#Xj!XPm(Z(9{AE#A;8auf!LB6vIJT%_*(EHtw44 z;c?(_CiH*@XliPkXb=}s&eJKot(;ZxNi}ziPJ;VgRGg@(q=6N67SGO$8XYmU`85b+ zWHhQir;x#M@n^s`&BqIihiCzVZn`fLT19$VKRmm;>DGsh7gsFr zapIonq~B$-NpNK1@`~kM#fgC9oChV6VzxR~yQ1U5JL5;6D%w;Mzr!wTw(fvkyep$2 zZL$4vWP)XCSx8(1wNb-HJ1=Nwm0G|j5C!G)tp&j#Q6}dEkX$1$Eb0hNgOGdm`sSR! zo*hWmMfjqnkDWEWH`@sRN{dZ6k-4@D0ss70mG1gkI* zAJy~_J(d7?Jgxf+QnU~GSa{zhYC+(00SB^CDjmxHG;N>dm^5MuJLGZ=1m)-NIal8c z3i8SC3OEVWs1bWF)srB0Hy&co&oyQmf+_l!oI_f76=5NwGP8*IP&QMccg6ZWe}A0j zA^8JSTu2D~-H8JBXL8(HQ>Jizr7UaQ;DNwXuSOnL=#f|Y=3Z0bqVmq z(F%&{EUGl{h(?jWj7ZVvEL5>f#HdOWYod>Hg3Dt*HRKIlTsIk|W36#xZsR=eV@;)n zNU+gJju~?)zEq*oM4BK@&&S8&B4w;@&_S*(#_?*9X`9lXX-lUNC*)|pQwEGcCw#;a zrJc;%=%GHreG=6y`)A+?Wn+-z-xvofiY4MgSWHH0g`Ih*S4S!Q=ztP3@}Jv0@U03Q zRpiV+(i>GWJx7@iYbi$mdL~9gQp}kko-&;m-+f8FS<@K*&%?Eh_rbwp(gm{PtL-Z8 z2JcY!g)3UtM6RQmoa@kLb0@mjWTD*nyE{6u zDa~A>e*OoGm(CMZ#$+DRL1W1&l~7hFq9<}tUC*9qH#K1}*`9|_w{@ugvo_T~L%KQj zHJSX*#JY+FJh=F0sx%#ORO7uJy`;XLYF7j)yzi9D3`Zwvv1j6{CDlfS>Nk`%QMf#G zR5m+;Gt7ACttWLfW?&wJ=0CCI&4&{|=nZGJ^*9@!tQ11w#1-JuabhrkSax@Hbw~3S ziF^(xfd4UblwtqV5CX@%W|c`+?U!wkMEya*Y6T#aO{b)`x6d^zj^MlexXdp30hNW* z3c>9i?Q&tLrj*orl}2$=Q|Bj@XI`Oa`;TugHDUUgRqe-wwKKLVL?VWsmWG*un5OLc zaa@DMfJ~&UjJC4nZrHS_U33%=Gp+(Y=1|*HA@7jOsYRI)MOj>UrR=^P&`XWIj*n0I zUnCmdZ8b_XVMxSHOsYftYG>D|9)3nk^;po(F`XQfNEyEE0OmYR`GAUO?w{Z_&ZCZ{ z*edCbSWEhvXjGBz-s)A`B%L0l)+iOR?{2!a=vGmi;|fft9PE^|pWqPJ31zKZl={cl zb1J`!5$~O}EpIhPzgJ!J<2apW;HexmG3QzWE7)ONyw>~mmOb_#@(;1F2JQ1i707-z z#Lr9k*t&2%V&>D3P2g7_C)kwsg7N;#k$Kw}fy|}+&eEaJS$QBjGu5wG$#SA!Rwn3{ zGwccyqXf}Rh@y(PpQ4JvTpF=-6M$$8S$I2@DjdKk#P6dp1tAcJQsYgcQ2jy@IU5yV zb?HmuoE>K}Q=7M)pfrUu7tJu0nJXs_-WHCiT`q4wH{Lv;*nf(H`(VQ5_VE0oye`-TWTE&oheZ9Aa+ zRXU>xi|#5?aNVA@Fg`6zNBuNl4LK>NnjO{)@!m=huX8dF_*evr06Qm|`cAkdE&gj{ z$;kP@g>oh|xXe3je(U)$MWe1zV%l>DV1$}?f^sd?d zgeGC8oc6iJpy*c+%~f6ONhRvcZuX3dLuf22L}CNw*;;O zNVkJ_=TFxMAT%n^3k81E8sute%B{+Ssg_A)P(NDqY2SQ=t!%&nktC-f-2#a06K@KT zqg7I#3XiImZ<~Ig@8vX2G|LWI=G{`Pcw^Cp=Sf_}NNjjw^D=ZK^FZ~Kq#l_=oNI;> zLpEl80SBbZ0UGlIW!1E;N7WMnHksLWhMO!F4*iI2_27|HRgQfU8TUSQRM!$>f({_$ zAAf4f+Y{AHOm9-oP!_|&Q!AEB))x2H%E(9fU;jvOuykfyEko>yXhfNdUMQ}T@5JyX zh|lBg$sx{~pEQy5!0gx!!?Q|$k=sBO2pnr%`8m#GiS#|WN#b6M9I3eG<3631B z;c`EibRfK;LhH)vPr%rIJxgA1(oxi)$C)>^mj7Z;wcP+bOMOqrm|ygdj{wCLj^U4Z zK(3s5KJT-T2`!*XL}eFdnGZwVkI=lN_{)nXOEl&va6hHA@t+-6JJ#UY|E~4Mm>sTq z)Pg?y$U1kwgi9}M0NQoK2V-n+Eor=GUc4}w!c(R6Wi0!>)O686=T;RQeH%#@ul!{6 z;)rJ5A>-JUiKf|tla{&nbw*bR(;eHnHDCXr>RS1&y(=Lz$%#Ti6KR#2Roo03mKRWj zR9SC}9Zi|Hs>MV`H5c28&@2|*XsY#lFRJlZAS4jjb}bDjt^r+V+!Wl%4)5{@~%6JY|+2r%o`bQSfmn*1J6_+4G6ZIrPg#eHS&f# z;d3(DgO9Yw6H4Ei(BAD|VeloRF{$VU3-qk5iNg0Q_O%tUbKO=(haVVKuV|_%bik`- zbsHx=ZN%n(?)REo()gyPAAarKQH!m%&vFKQ-fp9*t_iD{yf{2+l_o3x``>6;ZI~@F z2h+7OkC*8A1Wg|@O=BU64k9MX$tKFvC8ip;GE>$HT{(G4tJJwR#@FoinBt(bgtzb* z$SL5w=90v-pGo8R{B*yb4ZUbaeh1HH?d<4{zjwa6sg@#L)oMenv!`^0KxACX-@UQX zJLVacQ@WOt2MhM~?F~GT>rUfCBp%+^Ezuf3*^`ze0SP;l;C5>uzuo?BK3aM^Y<_8#QK&IKH9W*eSok=|j<6yohzFnhFayyCVeD zqcjZ37je9OH$9$t6ho~MCrW07R;pV$X6YlNV8GBrW0OdeP2@%@rfgRlv|8rd6m6#~ z1COX3>RoCZ{465vs1s8m-Nm3^o}LfErLmzDYFc8gBEv!dBlhOim&pf^GM3=XL#Rt1 z-*tuA)W>#L^5gK_!ss|`C9kK~^l|pp^h%f(km?|2ATBXxVXrmD<_ zt?O+K{o@UAxh{#R+QOZ(rgdIp4v6$mM%jQ%gEOq6XTWl+DV=kg`ubRHMy*1XfsP;VULYVPMwW^=QgDlr$}7#%`H2=RAS4D_qE<(I4*|W-C7^0;9xU^F36mt zUBo4{rpwE~T=E&3s)1N-5Qd8(G|O^DR0DimY>^F)x^5ZKGOec7HbV}4=B%Y34+B$v zr)i%YP|}%S+{UQokHn=4JkWVRuAQ$0p{#o@<1SI4v!W|(POgm~ExBiUvdk9!R*7Tk zUCkVSsqfG8z+9dNAkq%(P|Q7ZclMKaj;R`QiZ8*iKgk`p>FUJ`yZ1mFIyo2DO;PPEH;xo^3;kJw8OneKeiv(wYFB%RZGKTjm_(Dn?!@Q@23byEE>rZ z(3^6bFWK{TxE?|D)?(4sAf>cgn2pU@kP1xeb0LJo4kAZ63<@4%woR?Y*$~y=`KOy- zKB70*C!+G~=tDf#WZ2gf{~akXm|%@N3zgMyBg5Zh>}*k`RYk=tfXEAp!+HBLT{`UD zG(wO2*aj7th3H2qU+WXu&ccVx9XM`(I;FA>(2rDPBG(#lM#vGON^r(uN*IXr8E!R{ zp<`oY#^{;&{-eYcR9duN-Wm5a6-8O>85`^&Q}v_CRaK7$J5C~K|6V}HDSJn zh@wUeE=3gKf6wZ_yxxENX8HHu5dTx__kT#3|NjmqF+rM`{EH0oe-9=BR_1?DBLCN5 zl7F7~3k2{FnB*5D27pOSeql)dE12Xz%+%&)|4DAY@7Lr1cU+QR&;RehfCnB<;rCI9 z?&B|j+@6*C{HxY<&WU%2mTHD%a7X_P#fb-G+P}wBMMFbFk#3Ys*Z$S@*H<^bW?nHj z+V-jQiH6$qlhSU z_xDPd?E@*nv)rX)chs*PaC#Rwd)g{YvpicceSh>tSlDa=XDV38GM!!SPdcqMuqZng zePU(B?GVcB{-?`EmkaV+ulPUuX+l+aZ}b}9!FW^Xl)t|ksi@%oVeKJ>y$})RExqLP z!2&hdODpZ44>@zOK%pY8HniN~hMsQ&asUxqv!$X+^~IS#4kldxksCew#y0A!nA(L& z$07f;8H=69DppteC+=I-Y(f+@Z!`YX+oULy{o5rIvDa^|w6wO#zi+vi|J%9Jh3wUy zzsfI18_qT!>oo0Qj3l4f`8-gi@4@_`UaT{Vx7A(x`hmLrk41yk8O5c|0SBIVR?9av z{(Z@+CGJ6pscYv&ec8`{kY)W3{gz;N5B`XedA)DXm)~cv4eEaX&9fzUkh#rSnuH-g zbT1rGo{jrW5TYx+eZkZY{N$pYPgjk%fng~zw^%jmiKbfK)<;@%<(m!CN0Gq{?s09&-`FpD zG;m(usfIY?W3u_D-omr@zwU1B%=$}*oV0t3`@W)`rACO{9T(<%%kT;5m-kLHZw4@5 zdc-cqrR8VXVyagWIJM~&pWL?D-9w)XFcFa_>l#fX-a=CMs~P>p`U^!n-M$@D5&v!a zME$`%&on&Os5|y&yK_dzQ(13BC=;H+1pd2PqG;i z&3h;udepwt(?4+QehN~c9)6_EC+bk4c>Vc(`FE#~xlg0_WMBKS=V7Svrv7wWwL++S z-QwyYyKVIWeu+7MLGDi&sc44w!3rB*StOvm;ak@e}-geJ<=lX7&3SgtfNwZA{Y!3 zOA7P+ss(kIJSk|gfUx3ZB+dUt{cwjBkh`>V?KEF+3cJ_w*`)%?c zU1i%=`1H;W;OM@+Dd$SO0~D5~DS7&55DM?yxk69d5*ufcD=U+e^qqdBlHf4amz2X# za_~e~C||GBeR5#J7tr~JuKFD4S2YNTH_i1734e$^-1CnZiCF&!A{>sw^oym#g?F-HSJ30xXpJ!z?8 zx>i1OEP&!Yy4>t?;d%Am(?fqjA2JHIeNXH|t-g#78jhv;k0MZWm6T0#i3wtmLHC6>Hz%TywtDLf#v_P3w5sq4+C z1~2`qA+cl$4m46TG*PEF&RDXGpj%OW$c#g^*Cy`?e~u1G%Bpig=~kLo9De=8>O^bw zqAXB@;?+jK}+krbSi08RZy7MCoOb?eqoA1s*n5~`HHH#hN~wPhxO4hat{3j9mq6*)YP*;6Q^%+6)}yx8Q?>-{S42WY`R#__zQQmkdxOEZ#mO~Y z8;{t{c4$%i+&ULl)NOb9LuM~d*&(^9lPjO5z3ZhlXWVY3$2f>y)$}7SkbLQ#EBOh? z@s*CK54vjUIz3hma(9>jVuV$O=)xJ>;CSri!ji2vxQ)To{#hWe)(ivtj|3& zPo#GXZK}QfXxx&d%<1H~>4u39uePC-dPNDY%!TPxl^)fEoX5@DmS75Q(ni6wJ68<}#hc=?!K;e#`!kJac1)+m;D! z4AA4iw`rX3gO#=`@?0wifhmgXx55+{5_)xV^S%A1cWs9ptwY9?vVCQlWyB3=hr2a z1+)U0jAHgB)_GXk+k(x)bVA!GHKaB#oAkFwo)n$(*<9%+3;oy+a^OK&$32WN%SF+8 z$wW6ZsHM&%nH&E%#!k1MX#LSr53a{<7+nH7W6F9uxr<`aEv9Q883jYRlr3#!u-Szc zpfBa28Yp(hwHL=#1=pD_Mla238^JQtd_g4%Eal_(Kl)e8?@Y5cY=dI&T?@jBCZI}U zH_{L1VS%ks{GmXrMMLyH_Vh?v&vN|(+oKdW?CGs(-rf@5WYCA?CZtS7v2QN)8wFvH z(HhdJ4Dod*^@i0v{bc$r4Xh+vs_vZ0E<>9-|NH-*5WmxPjg>k=rs4&hQ!iSM`Oi$h z>XqD5$#4^=&DGOmx>s#?=*Tvk?Pbj> zwWT)afO3Akoz_-m1|0B`Ceta>(Ao*K+~eID|)9R609)cESTi}bF} zjH@UYg~MejP8M-(BW5G*U0Szp4~fEyB(1f!)8Z1p;r$?c$dAk6Qnj*KY__0{)1Ei6 zaWKeaEHxA*&T{hOOafCnJzxQO;rDyz{*SS>;DyUjWbTo?aYHCss_e_7O8%tRT&i4e zqa{SawM@jWk9BUdfRj!mVZbH(SsV*CfJJmPYMagU?4)bDSvrkIj(Y%hi zE|x5RU3$~U_Hx4Kt}~!cpBU-bZ!V(zEXGmFC?2zTP|qWB(lIG&kBTT-TBSL10l6p^vdr76e#v3Na@c*q`Hp+q znjnE=8)Q7=5~o;cwb)Et_0m->34W0l?lRk8J`iF+ldy*a)g_( zLmN70;WAM-4q6g4t;e|5a|Tw6Bi7*Fi|s2*zVLlvTIRXUzUgFT5%i%I7WQ!aJEfia z_x6sVQVF2KdWk8{j01MjJZjVksll@HG#t;_M>=UpJ=qUa9QK>2*}8C3QshH{ ziN!jnr-LK3n1{$G#<}ja7{x;w=Tj$#DZ0G5nlrO1SJ0jb)x4K#C1ZM(??CJWtpU66}jaKpwWHpmO7j|4Q~EV%6U zCh`N+0~|>SO`4PI9;x$o*VNRzaPI6j9BYDw8;~dZoVFkLph!qD031g{M)^w3BQ9~# z{8vZ4t(Am`B+1DD2v}o9%c>Lv54^W2B2eDGWJyrTD&8kzt0A-FLD*w_g2~8f7zSvE z6<4d)VoFVv55jCcOCGf3OE_j6%FWIrzB)kLB%^REOcX=~i8e6Xm`Zwj1~xeZZnXn@ zd?)eN;v4THmp`;yn{1zmy45Q#aKlKNx zPms%xrz~*_U5sHS84`LcnqF9Z+kCg^yX&c2cM!L?clPzv zWCz^4vDQO)+B!-O>&3r$Z7YHnr-==RH%#Hy)Gao;hQ3lrgtDB;Ct`n1R@4p-yvu)U zIK&DbkBgh1-QOeFFC7~IKWzsW^G_8F{Jci%nz!Mc6~Y9Ba)PFtnzP z2@relxlDnLw2p*?_@^?WdW!EJCYib(Q;i~RKJe$No%D+sLeHZvR6xomlK1*!IyIHD z*Z?Jx=HUi814m|biRavlaW(yoVOZ^@6^`rnvW5tbz&|;xj@4d_;xaq4u>=FGkIvC+akR#I$!N zlBCbAgVLX+2L*fbZtWp~zLG5gN?1Ecqo1fVww1k=BRsZn$nc~a zuV#ApD_YXN56YJaaf$bBQ$lWaj@$%ob zO&pk*9g}F(RwZet!y%HM@f~KF`7)IP(0NZE)Jxk?=uI zuUVDoL<8XZMF!c}tUEAM<FLu07w`gh zJ6ZCicpnU1E{#}XJ}}YLifDhx3iZGK(C6Z26;0_$f@7AEDAD=rE$x9O5e{rWYku|E z%z*3bURZiMaUskgEQ%gdOK=6#!epnU30#+8dK4z2d59F73^J07fK`1uITdjW4@n*TV zpb$UeFZC%j`v(eSl@E7egq)FRrW2k*X|*vS zbgy-LJHSaWZ2nc$8Tu{TkU|2vl18gSH=8NcK^q;)h0`+Hks{xBMXh!bIVVD`g(Gsm z*|ug>zZN}`tbBbNy?UdRNAepn>yt>x`ME#0efP`D19bGTO7P2Ih%xk$KoZI$}dujp6L4CcT@p%tEbq+J?Bi zOY-)wjye$X##m1C*wO5+Pb%7(?Xw4Sb?t8o_2C`yN3qx1gSXyUZJxn0 z1RJ@vEc2`&-1=3N`$O4&fKt(eUKgz&it5ewI z;4FfZsSTSq=UGAKrp_I$>6rnY+d*fJEQUodc`3>U=@Ji+E2kgK8k@H<&c({w~ssp$g?>7eBSk{n~p%O@;}YR#NMJOs}R=PvmK|BLYdMu4Hds*OZqKI8&kHXRo17b)L{^N#XVAmp zPZZ5{1kC~=b$ImH_m^ib?iP{hGuIR+q6eQ^UxQy^CN4EKxP+LNu#*M{c`QGCh>xdy zv}U%{LskelNliD{hUd;F<*6U5aJPbBI@HWeo7)*fUnke+H*}yTJMxr;r(|u- zUuOV$Pii4cH?8375*OnQaA0QnLtKDwN#f_lq@40WUB3$)wbgRlnZkOKFR6J%K-|_u z!d^uI4KaZE9C8yave!pBNt$k>hR^Xwj)n-T&yB*hA11hHO4%wTCZ1}enQU42jpj{- z;GSj(e*DU@aNF1!BIpBc>fTdNEnOdD0MU`TQGOK-VJNAoFjH4fGX#iWFc&vybo7;b zM{8wC?IJ!{$vae2M!L=Dw3kQURsuG6e&OgTswZV|3M8W?r9)!m#(EJ>N=Oc87*{zo zb|y2snigD^MWE|Z7-9SF565R5lWzHzL%$@WVZKDTAX!Gi za+8CSs{+9PRS_j&SQAN0lP!#v4!_h=vzJ%0+$&UI=k451JDQYir%5qJ_B(CX^RGMh z?D#t`#Z=JG??T8q3a+0;HH^y9_>RbnCg=7ymKCR) zq?n>pVvhd~*s8aQCgv@vpeE~JoYFT}TB>ZD(n(wuy|ZcQ8Wv}uuBXf4P4ai8B2M@NwOeaPj`PRkAxd`ugQFqnmR*r<3jNv*R zH6q$uKr^$4GuifU>-ib~m#KJrQ%q-P-|qNpm7_=1-8%bwFEwZU`7r+5!`aH&#Eo~J zaPLRQNh7|7-Uc8Tql8?6UiD^#Ou8S}xCQdCetrZIxWV5iU2`-q1%*?ZKYo|PP)@zD zQ=%m{^PMj59X(wX%fmIybJmMhD+%6E&d}7nvt+MtUeH)49pd{*y5@i1n_6W;x8Xrd z*N;Q4bhMD+WCBs4HsSrG5qAJ$sv+{7Onu|pier*~c)cljIMrRbT0Fsu&7Pc;qXjtt z$@>EY3e9d}lN$KGV$!3%raRd0i&q9O<5tr#s)3*pcyZ4pdo}9t^c+lixvztYe~@8u zL2bFQ&l{AIh)C+Ns6Zf!%CXkeYLm=t{Ud%cdbNanQpN$c57p=1%xK-eGJUsKBAdbJ z?sBq9&@ulK8q=6Lt0JW$X_}r18@ z71ubto$48=BliE0_wMmfb^rhORf%yPA?MSOC?bZG9ENes`5Z}8Dr1~;ikM;?O5~KJ zh#bagP&pJa849T`HO4T-BSf-!TYIDo2gg6X_ zyGHg$rSabv_i_?lV`10U+BX-f2GC8Z=5tV^O4Mb<;xv}9OwqJA?1=$aWk+ICgv2H2 z<4N@abk;!CBwqq5MBJ4qq!W%_1UBaHtMyKppZU>-@J_$0`@qwFBlIut+z-Xfa`RWc zqz?85*#f4*sh^+3_gP3QqtTNaAFi#}TFsTY(u9xZ@^1u7B@yS4ZnD>k++4m~{&)oh zBLNQABkm~qR?`xb*{W&fIHW%)ZW{g`5R*vta6X`o(oK7S`Bpp4DLbDd;Ua`%S%_KL+Px^ z&$a635E6R4Hm%sYZGLHzo zI>&oX^P{StLwKiPoZaMJR&E6;4o_|+5$evl1%%zrG)3rRM5d?27p9~dTeS=-# z=I>NRh3IAEd2vF$emWsNNdTKRWeY<{t0Ek)NS}N@l*46tjbTS%72s#+|dF zSBCzWpYMmi^8x*mcUPF0GCfz9x`?v|$vxs{f>S~p$b*$Nxh@2FkRY&uM-ymsnP&OK zi^o4dIL+B^=Ny|nM{3*fI0LSj1bi$AkA zgTg&l*WscXe9nxRM!kcp(hk>Dt}S}j3!fKvyU3zb_Xr}0Z_{({eD@8 zyu2k3`RmBR*p_#6l<^t1586gZc@7%M=B7lvyj&p+>6{l9bV1-08~t?wuYRkOS84tR z^No5gmQX0l(0~;3brexct6)1qGKt{SxEjtN&&J^v4{X7i2V6He4b!nb+-n2L*qbM!p?cgD}e|3na=Zk z70^*-CjW|bLwdInSER!^AC-!_zOZL+e02%0LfWJz&v0k*y;e3t7i|7E(>29+$seGS zmgG_d6CE_q9_M*;Kkic(xB75~eNo-?(Y?*bTC(}>d)=ei=isQ#c+s6c=~5Ow75jn3 z!Y`uyQH@d?SS;G~xLX#I5I&CqejvQjw7H~JB4_Fyn@HUVh%4Fe?p0-2QhbXaC(7aG zTY3f=uC7j3pyAL{_ZE8IEsbMnNj3HRxy-McS&l{x8hrGV_c-_Nydl`0yDBn5O5we9 zuyblfW5X^#{_J7LmL5j*ba#blbsv95C#Wf^Jf{YBh2tM`MK@p~8?4Y~aGV8^DK_rw z4l@v(E)Mke#gWm(*xT~z`C`y{32kL6Ej}PK+eGm8R*jOmfm(1;ZG){D1M0~Dg4=>8$1n@ykDL+4vAH6l5d8 z?N0r)ICXDnna($BH}(DCE!o|tbStnOot@x91D$Tr?{Hkmf=>1aSCo{zaXL=p4nWXC8<+xQ_gYNhHdM|9tHaM0rHzI}F!6R+Od)0qJ+ns^kubSJh6L5p0rJ-B0 zfznC7_fqKDJC#hSWFTqqL5n@p;Xu9=PO@L&LEKJlhy`Gx(ItURFjbTz2n~%^n8#Vk8;w!JIXEE|1SC_p zLOpjx7b(6Y-AS4wY8TT<6muP!HlVZe_*SJ=pfes7IBm~R;_^t4o+WOVlx>B!a9quJ zKxXFKW4;w+0g_lql7@v!n&Xb03ii8dBP*nXQzR{)r-2^!^43TSQs$IOV4&mQYo^-U zd84%_mt;jdep+cuJ{>Vq{#;n){&8AJt<)GKLh}XR6UiK~y`Hc)K~-_+B#2U5U!6SS z>r^nZ=Evojn8XCo+2Fb!cDBojOCYc({rJa^fssC0S!W*D6EcG5`<5CHq^4g<6H><^ zPn!WiQHG2VmfRN}xB0Nd-U$ju5ORq3+ZE` z9eliC2zLU3KqyQR&y1G>$tuocCMJjGxeU(Oy@VLV`>w|^DZoa}bYAd7SJA~E>&4C^*oZOB1LlJ{D#huiaMHRF$dMplOiil{ zG-XC>SmJB`Cg{JjulKv2;jwz|Qb~JBsv3M3u@53|s%G2k2~gJ?Wgth86%U<-iUKS5 zUd7uUebnfDTFKZ;-`o-*ye+lYLfDv@ZIYLB^_7h7&?N3i&01vDA(l38EOqu%88k<; z1^?`FDL1vAj`AIeTdW-?aLalKQ`RYsVatG{ud)Rgk?H0f$S~SNiRlOcm~UR5LYhEu zV(@xV&z|L4a1Fx(mH19dQUPFLC$2hpuPPpUu6$}l<)cdUG@r4-D}$0;*pv>h0uXq%hXneiGfS8k?~%^r5|H!p7ikVSwHuu>T; zdQq3u&_3&Pm_u_WU-zyp0o_<9n}};HXCUCKZVTnc49;rYYn?s{Ul^P@HMr`;iELV1 zoe%c|V#?`0-4>i}W_p$SP{trhvog|YVtEIb`}4EmfqhQg`-AV?<|WWxoQ)IIwZ z+_<%zurF+|h0e=wShtbf<{99bEyi~->!KF05hN$6cupFvTM}dEk^rKxnmP9m-S>_y zn`{Q97raB`ekM_w=>n+`nQ}Fsz0@|gC-_U@fgRRprI=XAUJUaaclHkh7Qb-3k81&q zNxGv4%~SbnexRZ(S+w#~>5lbfsR4{=fXk`}xcBxXQ>nG^@48NAT@+A%z61wqx1+x zl^3UU&j~gjaV{Sl&3-bKw!x+Pqxb-#muz|TC51K-N~nROk-pp>;`v2?PlK@~X&*A; z!E>a)-x6t2=&mvfuKM*&8!@RfS>vE5y4!G!oepM4jL{&pA9Ne-HzU*PgQ21G zSStJ5x1Yf`pP+A21?a~7c`sbNU2t&W?qEeJCq;>C2$lE47LWF44fEtCi~H6(_Ppu6 z7r@ytxSlJ;YD!ggn9Wdwpv_ zHIFkrcPth`r49TM$(X)Wm`Jv0ep{zJNLwINsjF-Ab!#WIZkBICyUNorwE>emfv&t4 zl%vWNr{+Do%>W{?8+#~jkV)=w0c98CD(IN0&SpX$Y4&@wpJ(Xu>dduc%T#~wM-n;o zq*ZPU2VA>(JigxA%?p4E8-DW~I%>aPjuDEVAK}C$AM;lLR=nOjvfp#38>E#ZesrXh z8N9m?1kLYQdV2eA&1)71jyTSjlSG7|=UZWLqw}+}Ae#~97}=FD16S7Jj@IIY8( z04m3%@=x>D>bXEqUAcpL{#pG1+$ak{_W&o&wf|Iem!mrJfpj3q&|m>A2tHlVDy<^# z-WpqrLt43~ryaW12D|p+sDX^c-=WQU$m6>nwnRD(R^k*pxFkW5{nVSbxzaDq`yW<4 zOyLoddaQzDX@rt+K=^c@U|^+3-w=d6%hZv+D5Sbtx|g&D>d9k)4bEmjavhI&Ib9S@No2^6w4M|EW@Zz^nH*9PBa zo9Jdv{^hDOw1VOjaS<8q&|Yh6gTR5YTL6Fsy~l-~1KiCE4UfApl*tN)p|l24^D?pm7|8K1sS>bKNE^N~7R$5p6R6SkbtpBTS*=y>Z1pCM*wA zb^c6AKFp=D5Q?Y{?)zLXxwksVko*oG-*;bjj{>!`n>P&%2EWkeann88{IyD$Zwe&0 z@#drSTP=fk#gCyMH8yYTav3u8#3S%0>7R6lZp<}`76t7ejOjzPaJ2D1d@D*t;WAfd zFJCb(ia04V-oURD{C*ztmsfjL;fZ(dGS8kVuWIYWJIq~mn(%{3lY|enC9%5pUHk&c zK&ESVhy_al3zB-dgU+58?C-)CmgY^x1ZN|TK?-)4-COON9<1Z8l7$!NEu;kA_t?tp z+BG!4izdY<3Y3%bZVa9|^hBCobX`X1yalL}`<^*MZ1T_F?v|Veyvu;$)2|6{$5aGt z(ELq&l9>CWlnZ7d|^O89t$?jGpTj;=^U<&|Gg z>g1%F@^pSMG5dZkPaZ?QL;>QK->Yrk+t?}#MxQrh<4@(uwSaNFXaPSC68oMwk)eKs z6ej?3Wm{#NK-@>mg;OPQ1d|w->5mPd2DGHH6C31dqD2mE%s=-*G&HKwxdE7v8)W0O{$8iD^@Kju&k)XI22Hwt0_{C|6zqC)2fgDyN&CWZ3eqtIN;3 z7iyQ~b#J){Bm!lvAvdI5$|~Bx9*!HjBb>#ec@?DaMOPkcaAa1!evo~jA%Q5x?egE4 z)4%?4b8ZEpo+=2P$sxr>k1dgf)0z%Q-1FMq(-l6pCg<1I)}NKn!?H~r|Tb}c4WqQNpkXt z_VyBQ#KuCr=9fz{xlBJtUd8VXBR^3XJ-#Rs*t4A8?3PwuIca4Ov z!8X!Bl0PlkO2K6uPdJh#0P32|yNLyb~&C-F9cdqO!HH)or! zez|Iex0|2;M)fykbJ@%QPtP=iw9C@&~dSn&2hq( zh;ovcbmm~yaob2G0Mxb524i%T*jy%dgk)lTpYlM5beV)*ts z6igUFq+PcHCjT{z;QDUQIlfy-eG!)X!cvmYuiNR>p)^PMw{nURCO=NyxFA8zY$Q50 zS`IgdLr4wk;L5XRjUdOST3b`|j?TS?JlT#;JXv;!`7l@6{1d~NI@Z}akB??%IPLFF zs&%5pA{DyOz(#d`y3Bs_A$*G?Uwt!+w&$97TNjmsZK{oH2B?Cpjb;EyRC6<0tbec&l-=g z@k$9_r`tq|y2V{coYC;?R1a$dV4V0`&-043YkLV#Q491{0Rj6xq}(DGI{r$mMOnQB zuZ^g}qm=IzltD7Q5bCDH8VYL1=27K!#J8 z-Ka5he%OQVASP-dk)mnL0_iMG=a6x17KHcK@V6Y!DO+hc;7h-C?J96ik*fCkR+}Wkff%J|( zrqgs^GLQk>`tWA~GjSPlMj=~>)K1} z4)XXU-i&We6FtVkZqhfVrE8fS26d!dEYe`F-cP%;s;d=Y8tpLZDV6mWv@<9hi->7jivNNTc^j5oG6d`)QmiEZ1o)C7GQ1ei}z}BvV2Gsxz>1Xfe5T zc{vsFJVm6=0AC~S=P{ge5~}|wT5>Hv?Z9+?rd~q6bHSn$!;48J5`FY@7JnXXPYyEc zba0D(0X>Jxj3u8Wt441PjzMO}T_JfP`JHcelnGfP&%Bl6sDo?ROe%JbI{KUzsM3L% zYy@2jbB?OtvExqH2O8I9K#(yTnDW%}I|uUqsKKSivfKe(#oLL zcD7h&KwLsXa2*ZH;+Rs|o=aovY%ek-%_x=vCt)H;XdKc)6-Q>c2e76}Xd4^F$+spu z0wVE|FL0KKb|%=Rfld{+zJX`%VVfEV_)3sc%i+{OBm1Mp9qSX&<-I$=QAFl7dK|5$ zJvG43QP>bp=8-m^_q~CxxvgbR5?k57Hvj1R7%L!1CkSffRT3<_fQ;A8oZxj2)xmX- zJIO|n>P2*~u9Qstk<$7uxL z4G~g}I6uxhH#0}rubn2G=t0(<*0TiBeR7glk>P63;ccyS(> zY7p`atnhaO0#5c^R)xK^5)0Im;+f&pbhio$i?*plx@KpsQX*A2T_e#srvY(b2Wdb*7CoU{{Ml^0@V;d;_{y9Y&>AVS!}FsJR&sscxjzIebd zeb+a^m>!26l4{5hw}{hA$30STN`;OVIN2n;Uu><3MW9g4v*saddxl_)_Hc4p*{j~H zuGKXv1@umBUTANp(CMJPyR_c1aVZ`o#|T~7Ir7v`MqPv$+Q94zpn${M2YC*9j2%3x zu3}2l)>axT6VNxWoqRvLeYoZ_nkN?f0sB7B(D$mykohZtlfpc*0!0EU;I^s2zplu zuwCHML-&gJu{ zY)k!v^eBg6;NJqQB$pAAqAip&K_l0A#=}LyZ{=<;(20gn_Al@=3{oJK)t7na(_jM^8H1DEpyhhSKCQ<ElqY{cd3W9HzM;VNqLJ z{v*nrpUNoaJ<#vsT*Xu(E-?e;zU;@U0L{Vu`hR4z zgSljq1P+N*((n`HFmYi$!K;dQU4q2vv)H#uR(U2p85vlb+ z2P?U>e!adEO`D%wFT3lDrv*QDm_zZFQrf0zap{d-{2SvL0a!XKSYG!*ko6Er;q<(P}o-6It zt6OYN5{7g&NDBLYyQnURBQHt&IZzFSUc^<(hA7~xRueaxwS4r!hknUNvL{^cpcoZt`!c*%o0g1hrs7KXO z$E2MW75pCUwv`w;2YF>~Av-yFcjsEsQf`2# zbtTMVS4giS%!rl9XlOjVJIY%~nZ7m+-$$sP_E32~K>?zS{z?)1iVy7~gZ8d9W%KTJ zVG9;|DG2g@I6mIC&_`vX`GOv`P&S}s`W4rp>m zU8HG#1eOejN&w^%DbJH^PE$$6UB1(DBTi&uQwahS3{nT1onL!d8v86G$lhe1uoAqm zP+M9zhu*!JyhKXCN2|CImPv`Cv6W+BN6T*gke;G~_79UJxCDMx$5~zrXz9Qwlo~im zdpc++pYQGE6H-J#D1F-FvX8s<#w-%By{oLriEm-XOS8M1(YhkT(5R)CRF{d4aH1=L0Q| z(<^Ks>Llql%j+0&ALI;du)Q$nX#4iT{F+rugwwNi`L-OCaw+~jAUy2g{g79`7Ws53 z-n%IHCI4*=$2Cv8X7kbV!MZf8t&Lv~vz^I~(ik>>GNE<-#jVoP{b5Lh{jQQX^l$w5 zj8eGT0MRW0fAE5dv!BFT(tJ*3Z`{C@#R&FV~M)F<4eqIML`76*~rBwyD zjPkcqA!U|(!#C#P`zI(73p6M1ME#W_$1NulxQM~-6R@APHFPB#iP7U1< zb#v*1Buuj4W>vNZJ+FGVTIBcV{>UQZnwKGR+4CzU3RqQT^AZ`H7#0B4@;zzPLG!@9|xdT^iVrh$~n#DM07J#)i z+;S?X{dKCMmX2^zxKj{z<7tjr$Ip4IXDl_?*WcZO8%V-3m32oz6LW0RU~iy^a=Y z#Usp^=avwTyBWS#$rQk>arUMfx zQ)B^PINaQ3Ol&6_Z&8;>b{an?zo(6363%Vrw2&suO{kM-eGzfE-hldIc^t@5kACjB^Ai4*xLG}mXqFzPA-** zwvq>$!C6Xw$OviN)skUotRa*T+lFf|dEg&6@bO9tF9YD9AzAg++1?&gK+;@XrR6aM znLmZiPy8lha5*CzCs`qv4$V-kFA>s;AZ1QfgjhdF&)=&{P$!A*u0$I`2P@?xv$b)u z>Cge~%fZkn%FfQv(fhD(@h5BX}w5)0~Uu>8T`P5#pm$L~dG_ z=aGl%I?x|zng~l|@RN*u_(pY*=@sL|#Na}M)C>%c&WUQjSbpk<<+HhBj==@@Hph8O z*nkMT^{Y-f#VHkrfRotdo^zsI-L{jhrfWYdHd~d=k&3v1=~#-fT{!RRETL&NoeHcq zN_xHP=o>+)t-9Y~xC4t=kdN*Dap`4aA)?5dg?^4t;xx0`R_oG>R_^xAB;(8|NoRmJ z^Qrq1)zfPm1&MQAn<_ojK|4XykKjxi;i&W(knYrez82*W=sHnjC9h4%UREZ@Om zJojXYg?Lv7gYjQ#+oNw9&=+8;&d7~*qh%-3R4dsrU2uA*u$#PcD#b5$y}&_5#LWEu zm}vK(AP_r{so({0+m}IM-ZrWqNlZ>=bLs=gN-|puFLF#ux+oDy)Jwo)q{A;K%XZCjXGeKf-pl+wLwomtrnqQ7n* z9l3NsoaubhtQizN3BZDUEc(Xr{Tu?J85_+o6pk1ppB~RpxV|^BrK$aW8|vhevTmebe>YuU*lT6=LZU z$4=PiAYWacBZ%ecD<9d9ymU=($Ng5DJR2GDtuNMAQ9JIxR2{6`I(G5bE}P$(`L)YC z^Y@WJZ{;J}?u-3_4uc}s-pWW0ie!1t14LEZz5Uj|uFhWjq^Aj0*xf<>oudEOecIx$ zU%kEUt*`1oE@^SeCeIoy?WPR?yS|mLUw24W1qO4$YkNJuG3%PEAbJ0=EHW}zLE`?V z4J^<++HKS3r#NiK{ac^RV3x{9G%ZiqsM_X$1t<*21l4EMk$hGfH-29Zm~{cK_vAcXq2OOF7H-?E5QK(jg_IocJ&Zp(HD1y%w$ zKOOgb9jl(PpfW*KEU<0<%jys4w*QK2p!aVuim=Xauz?He{8}Rt9{4E=zw)NcyNn8;OM4oc=$I^ zMaR)j`H=2!T#JsQ1-Sn=qCv+|5B&Zc=c3~do^SN8{q9@m|EA0c>$rmnjQ&1pD}ny6 z8|%3LO7X8dxc^G>A4j(C@f$V+o~8$0?006j;08KA&ZmRVp81_gyHK#aAS?zB|9yik zK7vbB_!;-J(O}VaT#(kvI={}bP}cD{8y^kUz^`jqf~5p&;R2ZO_dSLG$4r}F3Ad;c zTTC1H7G7wJY4f`{!v0&2YwI8!gf{%9*Bpc&R{r@7Z@^9V#R&3Yf$9 zimJ>nREAc%uVB^u{kXhmP%8^!cD@Wqp0{r=nwlj=tb>Hp((Q zG$K4~>j(E6i#~JKCJJ@&9|VsrG}Hev24w3Z|E#oJsbksc<_2K+ z_y5NB^N?5I72CiV)iw{`^q|auHpGnvM|au!xL!DgH`ZxwuZ+=9w{J~BbRWWWtge&w z0(5Z8Rl%z-OkybILoY66e!^M40(E#uKDM(Z<<aDU?<;33o8W#Amj2g10(h2df0*hN4JhPjzm3l6`B8>k0An<&dxvLg6%(f<%M|_ ztT%Jq0qUGjCNSU0?Z9rf4Y{fsi?h&%%@gb(G}6@} zbeT#7CiZ8Ng-r*9-F-j+aVzB@!Wg}yt*cYp+ZzQZ#oqs}`^=GV_Y2?5AL%6#SNjj*mW#xuCn{2&fJgdWafknPsQyH5#d8sChIntdaiBkR$Wm3 z0rd6xNnG5#7lU1BG+-Doj9`*GZaA9ZT{6a>u*NGzYovy&Sl=YA+rtUYxeifpCM(&0@k;s0wPCp z{+VEwXHVqsb7pz9e|_6*w_17P3kxc+IURIu096al)c<`E@bhKJu7A+%xaRgo|2PN$ z%BoJ{-G6(qfJbI|gx(bXhpn|j)q3Sxd-JtNyXI|7-3jl^8`@EiUwFVmv?D7di=O!3 z3>w0~*1ct2#gdwQKZ)sZ4~mHu(&7mk|8YyM?@K1IDwwwt)@&^2x-0BNW~cP^wwwJQ zi1J_ac2!y3mK!$QU7#e*W+^}~QuanFs&$?sN*cRg$K~yF6_eSf^1EvPk>`~=b_!YF zlxBHMG&|qQ{`k4iHAWqixmD+zm$O`Fd3Lj(V!?lg`Hg^KUVY`a69M27Z?4!v$5x)W z=4i`}U&n!2Ug54hg(?}Z$~fhN+Cp1ter;Uy;DYsk-IZ%@aVcg0bu4&b5CXV@A6&oS zHXZGJ*ISNgV9mq>MFEpWKrp+11xhkrwtbh14Z< zQw3BCCmsMR+po?6KWW}d|BL&6-2TU}zVSkI)LB&MzwLu9L+W2$)&H+eJ40o-!Ef8@ ze{R|t{0lJnKQ`@tCETk0Ez{26x9JHt*fQk)Z@5B(Eem(+w1aww;s3U9ekJ(Z%=m9D zoL?9C&$eBow_kXrkwkLyDDX^m-dxu5a$r@D!+9@X#yQpMiH^p7vUiJihZGHa=+goo z5u>xSnYpnxmesYV*e8hJOJ|(f!-5~R29?;8w{A&M@Gu_+$G!M69e6oT<%|A zL^mAweXsiwk&D3fI}B3(OccuQrG490zT2R)`t8T8#C|Jp*cZCn#-ZZah-0D`Ygg(= zhkcvvluCAT)=ECj3?$AOXlse;54%DmpO3!XQ_ya(t}Sl{5z4kXr`QoVK>U-P(X^BF zD&V=w2`~TQqk`T=QvCz%$mAT~A3k{PS932skK#UlEDJuNH*vN4@pDQ4?U-W+Ods5= zj+x_LmDv$;#{O<^il&@eC))2*O+t!6tEEi8n*C)f^cmz;!N*gO=V}IzlP??i2c(}s zTs0nDu$$7bThdP`z8GS8RC5%Y_Hzb=7YEwa2am)3g<}}V9`p&d1zt#VQXRktG$7pe8f6$2m7FHm)ZTUmZ4(zDcWLJ-6>;^!nXz$RnEB~QmPDRwPYkR7SdFi)~=P2HOw@2!hs>ufZpuOPhs6)e;_^-Y7_tc_INXl8& ze~g|xw3Kps^oB9HLjTS9*#Od!KclAoBziu}$$oQ;HEQtTQT}t|T%uauYxH5I61UU* zTJOT;^(z{Y9@(w^8n@d=dDSFCayNNi+jn~gFZ!q2t%(0na8-9~{V^7ncQ&Wp|!XlF>n#IfO%Pc_@ru%3U;1)#pY4qjJ2?tH^oKApMTIZ$URcKprJlS;$;rKLM~ zP+vgYPV`B;&!Zdt%G#SHUgNW`Sg(+LET4_4NAl+!hY##_-K^2vSE?APyXXB&9T7tB zk<9+;W9Kw<8enE$2-df*ox){cDq(1u>&wuy@>3`q*_~YuU#9fGU+Rs62z)!Kb@}oS z>`Cz$X^jg3uzg5X?}HZyjcXDTl`rioPU=cWN4C9tk{=z=akug!o%7f6hNmq(?-I?F z(p&12$ft+6IEVz7cR2u$&HK^2s8y+(HKOR;7zREwVO{+TcdXCH=^^8A_`Tr2s9ux2N;a;_$#lh#-S6l<@Ht%6v1Euop%xg>YVH{!|$ zj&cZy0Vq0-#sNS;_%v@b#UOw~ZK2*j8vVn033$(;bBJe^-w2I~sdoV}>r{b0uH8;G z9z%(by75RAoT%g)k-OnPo~S%HlfjHFqjrbg>X>~~_tidS@RKr0NIVXIQT`CXZWdka zL5SxTeUkT0Ooe3#;nH(soY{VTK#7F^sG}Sk6heF67f5p z9n-a@(7_HwEYLv?C7sEBQLjXf=$xbl6O)Ne`#BnM2}ytl`Nvlr(T}yfnja2GvM?J7 z^9w!Qi;i3X8@?i)hNjiWF*!kU;3J!LD>aFxtpWTB*FpGxJ#pMGprxlSW1bHHE=>X5 ze8;>AoHb_vXu~q9W2*XiQbKuzmXj--&Y$Z7-59vG}eBo!eb6Ta>VPvZJ}p`BSQcmJFQgR#n0ZZXxyY zzbHnO_oagpgH8gD`!t;p!ix=deL)(1f}KJzFO5tFJXg1c6p0ftO2D8h0N!1v=fUM* zP)$dDyWkI>hBS~LQ7*l!yT}NUr@-sIT}){?)tsbnHIiNPKuoL)kxzQ&Q238|@WKfX z%z2-&H+ap5z~ajwJK4$;;Q#mn&VoBqxg&|N7>rW-dc*!ylfjpo82t*Ih!RlaFEepz z+2Uxt0_1bMWZ}0lfqPw^KP?^}O>q163>UwQg0vbt`CWLKWI*IZ;chFL9al7g?dp$| zQd%8tPoHu30I=U7VgtAS>{1=Hs*n$0cOPvR);|GWz0^sTwpfQdUt{y9z0LV6Z+M|u z76#nXS_F>lHm>Enw8}2rulm>5o{JNTN0l8RkF$U{oGdt9f&JXHv*dQukycskMzMA9 z;J10(uPRbv!jO?x3K+17PhKTE`O+#+1fQ$qUj)90l~sRV%bU484f$k7Lzj=Lr}~{N z34%*I$wpB$tsn0do(DEbX0{H{5%Bip`S}`2-mTO}8;4~S+ptv! zsw}4YdW8i&SmRD)$MAY^l~$I99epr#qo|}rbEbix+Z|JEGiH-AkC#s-I~pVK!tN)< z(^DPP8&+Q(K1e>gd%jE%;o^UeBGmfqV-E{B`+Zn-pfqo$7YF;KExK4!LTe&Bw-KkR za~v-96{Pv(z$%-ywJ(4rso724BO(+jlKO<$>Jre61z$h}EB?>HZ_h|#k@H{-f}j6h&1BPU8{kd*)1AGo3=adYA%c7gWWC1^+F)DoSB2MC(LyKY+044}&eS9=e zrev1IxRf^mKJDGZ@>fYJIM^Bow@T)ee^oD~H9LT{QXCZlJ&TAzR%AZT;)Gg6%A7x< zIV+2y{eYF`{p*p;SS|{?^QW}}Abku?OZbXY1Pk)&^8)UK4G^1}nK^8odHr>iu*u~7 zcL*o&BBWK7nGo;DE8YsA2^{yWY&njcj|vl0DfP*Qu*t0>nb#lUUx$o>B9y_M^~Kf+ zxBeWnIlt}A_BrdaHfKaRr(PH&?W8&E-Ta-u+b*~h))~OYi{pY{+A%3;;3qC&_^;ky z?;?B=-3Pi}pm-ZV{~zh5vq)P#8 zCx!trHkF@-UM0gsQgvqs9F~J16(!RZ&`vI@L4oue&Vu8 zVg+$BW`Xg`rxnF5v<0cL6$VaJd^uU5WbGjoeD5yb{!r>FZ?ln9AqG0vCx~Gf?j8)Y z1QAjkVlLB;pXGJNpra zC`I)LplQOoxacyX_Rx*n!uk^>-glnsydDmt2c1SA+UcteX1Pir|_n*<%n*}A$@g#{WWQZwO;^^aP zUYrrxIiO*xAW$c89|U=iW5_XUD7>-_3JPuil>Tm+pXIFeyy}d=y1lD%6u+KQ0m`_Q z6mnF(z!x_=pl*Ep{84BIKLYv@QO-#4O9&+B9Y5-J=z+6>H+i(_?hzcL4an=tf2!o| z8V3NCZ9Fy-%ZI(BO%=SI+4*S^sZ-C5DZCr?^<8h>VMa4fjF^jZPe6TN&j(W*ad(!M zex9|}oD9w((F%E?#BM}hws@QN2jwM7h&LPCnq7KWE1;Sr`VcQys}mQu2RawIo)IT( z@HoiC%SPDPG3=9ecn(@ozxOguX?RYSU7vpw`6USw2jWdg6Ve;%4cfeW2^SAF)Tc*eQ?bh`sDZxQ0Pu?*J)|QqH`DQ#w2bPSp3-yw~>3LpBC&&Uw)S^X;f=#*a6b) z>?efWd4hCPJy$8bOA396p9hDrT!3402$f*Jl#8G}hr2KJr`NVlzffdQ^LPZM_67W;1je$0fsM4V*m#HfTR# zp=bCj9>h5MyYu7E9?#U)7TU*Mmp9V0`+9S+!W#fXS-7L`THBmRF|A8ve_rdK88%j# z(>BCYgSpi+Aa*CGAr7D=0BYD65u^0GmP>?v=)QeIN5sS=Y4T3hJ(|>M*j@M>ZwUx8S#^?c{r+WZv16@<>69eM3((h(~F6g=ia&l|H zBxgO@F~&*WH>m>3;Jqh`udz}}Ke=5#i7%N&;AYc@&aqgIf=-jzgvA1l%xX*KD#e=- zYBr4*l7yDQv<+D_8tRx1HLWixni;@m)P}07C<&qaepqHM+POS3c(GlZMoWmG^1py& zw2VX!EXhVbkLj%VE1UA}y}fLh_zCz3CimIwnIdzG>3!pN>FKFXq{w2v9Bnlit5L6A zzX}?v@#+4&Z^UTI5;7X3bwU$@pBp>-pbQXsQpX`)ZLQNF5-@@qDOQoWH6ObYW`y;f zC7^_p2)Ez+H<=0hxSai?!l!7YQ**}MK)<1I^2-xA`|~xJzQLf0*-r-o*hW8UK$KGh zhWL+FzEhFuwGTY!K4%QDHI856+yZS65L@yRWudC?=V->gA^~=qZa=|JGsvpnf93tr z;B1G{5tJ!=wDRH6c==@`3zZ5fz*D6#VElU3B{q0W7n;K))KtJ_iw3V# zWx-CS?c|Du+uWZIk47j!K-p%h1MTN(E*{7JwknKHr7DQ_k}k0yqKFxz3kMS7n0^W4x}#FHlU|H+m&^&4C^K zN0K7jgA8)Xg5a`v@Cz;OQXAs_J%e6esWqa;*BkO%9gUWXA`$G&dqAFMIRjf?RDJ-1 z;!Sl<+{~*}GO@jjShfM2`D?@-!!~M)oygP$u=%~6p+2Wq{%RquMlCzCuGGgFShg|> zyaeRUfQ{UzB{Hk#9%vu%gQf`q?2hWnJGN|ueS%}EnJZ*fM=bF>1StOVxFW==LTMGu zl`wA!rW;N%AkG&@h28$}7!nDFPAg%G@}u3q)ERJAV*W3h-aVe_KK}pzRALymoaL-g z!qP~D#w2nK5jm_>HaT9RoOWe%=s=;mL{5b*@jjq zUnywop4rQSJj-72ps>JG!~m}{BHY}gx)yx?#ToLA!VA%Ke0A9v*wz<8brXx2u@gqZZnbv#&<`x$(oENhA$_@FZ#rKjg9hq5PzRJV zx{|=no62|9l*lzoC)$1ysGn7B#So85je+r}CL4f=(as2mj4_^ChNaa6agm z;~Z-am}R`sN8riet}t0RZx4Qfdf|GOfn-MZj9v1I8d8nn&I7d?cvXnA+8``B{!RM4 zy@_6sb)dZ-wq9I*1ANmy4AK3w1sVrr-57gyEpG|NbPp5V>^AV5RU2-w172f#V&2~J zmaqFz_781_t4SI6!)!ktJaYWc*ixlM@N!*fjzvEZnry-ePZ|{qBa7en`$i z8S$BbnQzHgB5NGyW!{G0_9UAfYgj#o`qQR(f1fh{IpK3LWV&6WcTm#%fthTKE<8OvN_uXS(8P43- z>-1BXn{R}^?gIyofX%CgW8FUXWtitC%}K!CcAHPvao9bJ5|>-lpQ8!}b6r!dHHgf& zhss@GHY?emw8Xc{*jzq+TezcRcQLyGZ1LU9E`@CmRIio`EpZmv$U(MDmrbfEvr~9D zm#NngB+$*T3dc{8o*RaJ7xWvyO|`Kh`u-W>HZ~@64=LvAkx)+QrD8fabruNI z8D$1ELQo-XRGYXa+PHVsB0(Hq^iD@cx&^Rp>=&xIDH5FsL1Ua9w8RwPBY}&w>_Jcz zT0gwZt1Z;Vs&i7Sg6+$1NXoZu_?@IdqV~Zv3-i24L-fO|)-few4YTDR;JFw?x5;!x zBIWy|a6G8?>?mxaB~2uZ;sSC>cjnPjN%SiEKxT}x{mRO$vPS5@z%H)4V0bkI5-HC< z)grJWhcHi4TYX#9VtRIadsb=xg$Y74+Aq7L+wRGAo38(12e!^ec6(pbm<0;MFsVZd7Sj_*RN==*Ff7$3gpdF&VJ zLiQ&yH5qTggxD@0tLQAAR}zS*=i>udern;CRT03yE%Savz&!`;>U8z3TM?s&^=oV< zfo2f;8WOSwaes3n&mPutv*?KFvBbf04gTQzgW{LIlKf|8hSLE@Rw3xA81Lso`D|iqt3U3HNog&Mq(U&Pa;sr5o}q-?D7;$9i_Cg@kDd-kx3rF1b|_u$~fC)=*Wmn21XbM?Zo z&JY$GZWIcVKHWTVFp75%spke46pvDN-K$(?XJ^Z(xn~J^)biQaZ0i>&fZ&`+hWQ~z zNV&MTK^}Rxm>a;>qzfn*=Be$I*E>MMX>L)1u=-RF3^*k>)o2SCK&=if{BmsMr!L@Z za@8hWwK+{>Y;5IW?F*+uAb#O}qj7g&cd=)Sd^-VbUzOzsJ7;vMT^mqx`?znWWCb!D zZ8BH6G{DXzpEjswFC;;unUB4e5_H$$R@DepWy~wABV)a!3gmSvs(Vw?MqzYW+jk@8 zq4Wx+3`dUj>3!Gj?M@qrKLP8x8t5DuoO7wm$+{S+|3aSxir=GSEKoWS5aDV_6`YaQ z35VH9*pmQjAF`9O@fOfn>2+wj_l4d=Mnslm?(;nBzUm^Zi>@R^6B@6D`+s=-x?t(P zzV+j)$V0%gM2lU3b%;WQI|R+1pLdXoLB*)RwB)3X&BDU8i{d{ISX{ZY11!C~Z zUjvfkT&}~)_mq2|Db%(fitjFK->u@-M2aQqZTYxmi+J6dydZV9zd7Z$M{xI>luQj9 zbH5c~o^phU-}WjAI&+V0 zF2zje#p)hR+&M{vTsWP&*&VimNNYMlUDJ8lD{Psorox|U_2|M!m*mEQg$|i?*_Rg< z^GWTX+${)H0}_poTef_6$tA5nE7v*laf=FOHPvkY_l(`D)^ypC*brvo>hhJe-`c6x zVTS%qz(>0wM&8>#KgFQZ*kI%2gs3e3`Mw6~V^s4S$A!De<-Bgr(8bbSN0(Mc?U*5L z6RUbR9ts3hFMMxy%vB-Mwd3}GsjNDdp62-j5z#rR(Z0O3fwQ8r-+1krXPNbLLxgxK z1SwO#bHzo)Y_DXHNk)bu%_ETZ=a%-3!Ph%|-5D*$aHLq30Xynk?Dxw9Go^4G4jOp$ z++Zl7cIJm!Z&F|V_hG6?B$}I0m~b;XzG#U5@L^9ODjbEW&Vnwz(7r6Hu<>l|vcWg| zm$e2?KlZ_rs~38mw;fb`jaQn&!k5Ug_Lnhy;^*tu`M1XAf{p8u>NgV;`Mw5M_Agn?|9K>cJ_Gda^W*WP$)A8(92j3^&B|DFcf)t}iOCk7+P}E>ngdxyN74OpA@{h3xkq5?-o^#d8TvublP_#MV`VK@DL>FE zuGDLPoP?M9b~8mFvqCW6E9t}?(U%_zC5bt`!r~c(Yr!_1ll*m~KwwfNh#9?cE99|x zrjMAeU5roNnpOkNnOaW;y9h^ixU&7ch6WsaRIS=d@v|LsFp|gDAe3LIiejxP<{-$gq8ahe9KDGX*Qr}S+>0_YlVYIGpr~96q z1SO6*Nle`_Ba(1edu&lZcqR8B+yJz}?tC{nIc8A=3;}~A|7Y|h85_{@K*eMagPHlr znDDL==Dq_#OsXa57=K18pZ~{7S-Y|l-aAQMMoSlq-3zxLP5FU(@$}kY=7U`h(Y+fH z;i@C=djE$cCPzzsM#?@K4L$8VB7NHGumaCdlS#jKI?}vfV(!R=; zVv-)ln&{T+UmLCvZsYuSb!B zH)3ZHmoU+}v9VUo{W{^>DH-eQM@uEknJnI&<#?y~T@vw(xR1*Sfr7^dip$Ygy(K3) zN!tqwtuhxfhXoNE5iIgVYpXr*H+l5szil#?80{A=rpau4@{@QWG{_D@tN4GV%P`vW zwS2J^$NQU8DOBoO8@s2Sn*Tx2G?Q|hP<;f?Rj_Va~oR%&Bj_2t#J-#BZ` zlVrCbl#l9!qjW9{$ytbC&zICwfu*&CIu^|_rowOkz{aIiM7@n;`*ua{tgHVwH8MfX z)$_=-?GT6!!Cr2t<0pN(CjTZPvXQL-Q&YnP@plcx3utp`Wx)840^jZ2R20**&5F?Q zPDm8+T7WD2Z#2WcXrtGG%Q3u>sVv#AR9;N}D%bo#p-p`G5}{Y>iB~-5qCuVnCOzz$ zwN$?%sHY`2yT{>YjG8)~D>eDA^ux6+H&&ge-m zqvv8~k9EGBMl2?0m9P5GjA<;#dUof#bK5hI9dnaPIe_rCQ~@Kylb#maomGHk({Vtl0VwJ;3KNd5Ft`!dK2pN zUzAKF&1W|1!RIdp5M=n#c$0*XE zttgD+{EdR2dZ5L`8^z_OGbzp##pKo=!&UU|x|2LNqTIp>%lN2KiC#(l{GS1gj?s+4 zZxm_-h4QC{RzT~hBV-(v4?gAMI6RR>VaWxyjE!-;gOYi{9DC)^t4x_IVQAGOe@!pd zMyaZYaiVuilR4<{Qfh6jkw*thP)#~h%g>NP;Jkf(8~pk4WfC<+N{oQ!UhmyKW}++G zwuZoY9t&e{D`%_*TeWr#r-_)nZu(kZe-ty>-iR3lZ7fYj2&u`TZBG!4tY9??GJ?8W z$@zDrDfQ2fx}@QW;PGl>K6x?sZ4BAr;@*b`8D3vD8i_dZ(mI^yMNbT+ceDnRuOWW2 z?<@8!uaR8^MZ2gih871j6@_^Xfi2@`x|~v5@1XMIyTVqEe^s*ZF^Xh%>2+;AuQ71Z zAa)c?J3)+2_CjZ8>+crEnF*YDI);kWaK1FBJe;#yS=gD-+fpEA*Xh1QdL|M!4dKo{ z#jak`ifJnF4?Fu)B~bEpe;}@2dvLk}*e8wqwY0HcISO{Vk6P%aBf)VkUjx<^yECC8 zBfIzXNz%%qAvhHkq)CSa=%pbd975L8I=;{o_Kr^105z!gUZZ=Z8<#!+8_7NIev@O} zx39B4AJap{kn9<)=X|_T+F$CsPQeEFJpNciVz4C&^!!!%vk}M$KkXfKRrd zalWH4&Kkmqckw47D8I9_IW<+_QE8g#6(V{u(~A8?_Zh{_JvJAUwS@~B+UiotocI;a z*|TRJ7BpBh>Y&C6<()pmmxvonCWV5IA&wgX3jze&|aZiWzBAbK-a#Y>|sdzi{8?kqqp{PtOuGpYhgyQ1M*vp7MW_ z5HC)^4@LY4j2qq8@|;j-REZ##l%_r>D2WNHzEz&+eo{x)nwy=@Jw@ZH$C;`j)#Hob z?)RZzxu=@!#Q?6zMx8R0>uO_JCh+7o?uNzE=R+6)ID+OZB_AskDPIjer zkp&@9dR*+w^vBvB7+zhbld8dq%Ow;Q-!9^x8_9MFZMAIt@jZ`mAe-$UkD#T2{)Y$i zWuLh@rqLEytS;7Tge6_ZVq{-4V9a z2Qk5o=NPn_C}30s(dTW zef;U))8dRE^UPueDwn61kp1YB%8t}qsiHcfx!fwpyG^GMj_0635031RdP?DP;$;kz zP}Tu)SATtcL=LsoS^&$?4; z3@m$3>z!>Cacpd!m19vH5L0Gw4P=C&Gr`b{Yv5U({QX~hPckN#5-ypi(4N2Z`v-%4it2| z(RxQ>G8#IvBr@hgAn3b*#$8?aIk3M_FZ6k#w!7NOhTdf}s}(Iau~Bd!AdSZN9KNlC zh)C#G#I!ldtV|y^<%^)a@6+sFA5K$|Ok~N(U=JNngTAaRpKY=68yodr?dqn#MoOpO z##uWA+aH)gf-}}=>M{v_cXry@E@HMnFc1nHoZ+N4JsHwx;@Ys9>GvFTQE?huDp+&R z5}XuVrdde@o3)|^;$%oAmkvkDi6Lf+mc~Y#NahN~<+<-Mq^&C2_KU`3)-0#9b&Qsr zG)GCO!$qwE34xdcNl6|Y@-AYHKbv=r-tHxhz{58 zF|*0SIlt(gn`2$fh*$pV$Af+Y?+4r*SshahKU(On;`Rrv8tCtEve#WL|K`ohp_!yq zXk)6K9Aej^cM~aA0S^jTD+()BtvtS%%jIE)HkNuJe*JtmqpSQ`3aTA`xBBRWXLi4< z@l-e(XU%MZpz0#Fs<aEW5A0JN91NPArUlj z+|ByT2XT|>(Mab*^{~zNWnDAXMCR-b7+Pc6ykqW_6F+rwJjjM5g|M8<2^6uAT4OYp z+uCdSa%SeSm_mEA^;-rWG`8HCo7-A9r5_+uW18Fpen-mMSp7i18P{U@z0jtItL)L~ zf#s~B8A$}PV@u=8N7zwoFp@WPLgYBu>l$NGkG@g2BOX!WJKB$-AmiPzjO=tdnC)%AHvXV}gA|UwTSxZC4PCH&K0dxgMw^o1wU6)DY1 z)B0o@%x>U-?VeayAT=AZ!z?r#a`Jjtx*8aML8zxQ%J(fd<0<*y_I;3Y(sy`(Heo!& z0aCdlq_JD=*wu2Z9U@5V_ROfAOFQ0}{HlU3Dv6v%>M!cIv9ctvjnR)o5Io+xmlh(| z%+&!!Pc0uCMGZV7O*baZL1WKbq?O9jo|*ZDfxS9BNh7+RHuXFVseWKKG=N7tcEh#szpNF@Bp*p>;}|C)`89w9+KIUMK2bO}MzKl&@uX>Fy~ zdeH|rkE7h7Kz?-t0^hg2L9p!kF_%Q+a&TGD!UbLz_>N*HDad7^67Qs%+sSo<`^MMfBEhctz)f2X4{@O%5J96MpVg~iqB4E$|#th8}z_(_drD9 zrIUtBdQDAqDmX(}s~9i-YGJtR4%PG^{@R&%J9Y>Mdbtb99%mQ{ZAybPpo(Ce)DYuZ z$@qgw(9gcUl@Xntby8TesyH{?UiY!`n)BP}ccEbXG=0aaCL8)zl%1h&FxSD3+7T@| zKUI2a%eB>qN0WESbl&rrtJ`>PPYre(67)SNh>S>JHQJo-N|trTn)# z*^B4F!jP0Iq9b0yiRn>RZ5nfnlW?tN3DXgndcwRQS=+)$AHP zXt=5nIy+nSCTKJp^yy`zn#a|_xuhe3eA^`uF5(iJ0*7M^4yqs^p= zj;CHcs^l`-PpwL#F6j39bb0&Ys6hInwdwG06%gSM?T_L`ND3q?UZJo%&Nh)9=1DMY z&{9VIOO%PL1h--J1Os^0Oj- ze!^YG8KrnWVssqu02-~5pA_O%T=OH(Oiz-hP)FwK%16avXuT%N`HJkUmf}%+B=U7J zBWRnL*~`%JaI~r+um=^!4CBY`^-g0HY$RY26o$0J%qce?ZNBmT?Vr=Jk1tvt(;hik zf3TrAZg`)M=IMj?E*&Ldth(MFX@=QEm8H{W|1y-SU(uw-!@~Ckj6qoK9a4xGCim1< zv6$~CKdLsp)L!ij5&U;S>N4!GE}k72XSn7J@tU>Y^_kd_Ji1457Fmg`IFvm`^(s6= z+p=?s`~BPr%PxtChExAj@(;duy1I6rt7_Q##3S(1*oUPH@VXs38IqILoEP263}NHs z!lT+d@MrH{VaU@{V19XR%SE6L3|Zi`E=^nt6jMuhfak-_5SMmGx$M&+rm>+&WXNT` zRAxb{gs1QzH}7y$W^pbU*!)T*JAXEzQxX(INi7>5&y9$e0u~@>?uGVP+Z|Ma0=N<> zg*zTOa~nir2oDm9E9t!MJ284FHqDApYg{*i#yVo#cgENIBD<;&*4Hmh@d$%K3&Pe` z4}2SN>aD_9;d@&>>mnKj^;ESdUO=r>Rpp~>Kk8$U;9+%)Jw0SCly0PzQCK z)7JU&s-QgvXD`8F(L$gNryhE$I6JXR$PD?@r}yE;e~gvx(PSS^w0~mUDc;zE0da1s zgi_y_=XCn6fR}Sq7xA?ct-9NT-S}Or+;5E>S?{U6U~kPiZ^~XNs%OkRunP&Y>G1*4z6TI1Prd-OMhZR@%CKdus&v zUN+xBwIuT3C-+Q$xDPdEq;xKm1aop9`r~UQWA&{ZCUCqr$x=+VK61#|Lj8mXxlN=Q z@CIG_ty&*vCC5l=`&L;3-I;k&`PQNjW@Bz8hTehESL>VnR|>b?!|(TBPiHSbP&QEb z@;=~@%+DHwU1n_NKkHXo6OHtd&cD5XgyhVBoBuwOW^*xRKCLS z5k~%rJm5Ll+nZU-zkmJgJ$@i9x-*ay9p-u{7B=%h3PviSCRNKEo67Ew$;iE6ED)w? zI%@qARsHjhgG<-W)^+Qvt}y3Tt(alOG_8UrQ!l;eq#JB056X~Sh^u*;|C?bTvd=yT0FvM#2J5zGxyM?^%#W^i{!)qB_{gYMxt z2XcycvWYew8%x%#6)tRGV}+woPMgj_*S!U?FkWxLjro!yv2}MT7fp@6+^@%JIB4uo$v~mSIBOWRx6v;BAK(2?b6~rC2g8_k`B3vG{jGU0j$+G(0-MS3d0=U>{`RMd# z6->#&h6@%YRM~wxKvg^HkS8(l)!up>=l@Y$Zx(e3wlsvQY|z!U#GNUEfNs|l)49{_ zVrJnS8GAb?QAS)5mfaPAC!@yb$d-x>^#IcLxHq?FPH8>U7p;8W1tRmv%M39!@Fb&~ z-q`=RruV5rMK|^*WR(rWkoW0NE}K1SshNJD02X)8y2<0H|5&)E?Yc+2QD15+@N<)7 zkW9;JQTv=9ZXPID>-D2wW@De{y-qpe5i*HK-U{;%9YjK8``eDz_G$<^p>v@{Ewn87 z)Wx88q?@i8d?J`3OT>hE=Q*ViL;Pg&>`{(K5aDmc#7su?>tBEoX|AB@5slcO71*VkXs1(q){SeW0Rmb=t$lMAgsvG%^r#Z}yHXDug znhvB6{UBcd)0;O1+SHz3vq{Mfq~l_O&*qsfi%*uWPM9)%AjpH0(02Frs5PdoLL3(H zqu_^iGdLYFo{T;r@|n7F9j&=)Ph^1;>h5Xs_*3KUJ}y7>dC;nW2Yo5y{@yq#PluCo z5gqFWLp&}Q5)fI4{>WNuMZJ6YHCCh)%sp@80;Q9ZMY|D+TiQ0J;&Ax?I*-AhZN zHe`RL!Vfk^5U%oiM=9{z>$~UWf`!SQt1LfP)NQP>c;8kzT*5SvxhpAe8Y;S5j`u{I z+Rq8UzKHb}-2WKVNc|k*OBa{7*WEW#Cw+gd806yG>#9YLig#r+kTj}$fD+^K4ZjGS z+5Qu@{D#{-aMYT$$m~+`>wS7eS%(g;cR@4;HCDGkW2V^^*U|Lt7aSlHKMz5n*BU2sHJxSi*m^J(*d5GJ&KO?2Gq zXRj3b(!gzeVA>Pu@|#vvvT1tFuJY_ zoaHr~VF)}wHPb#9bkrX?^h#y1AZo%HuE4LG zk*jO(ndoNzxH$Vjw-h2(xRwp9=ivyt+#*Oykg_8Rg@-gcJDZx8vR!~-D8QEn$13Ui zZ*Zel>@csz!gbpgwYr5{NRbg3J4bi@&b2Hr?rbW)5JNutaF`O^iTTR4p|y(Yprt2X z&Wz)r#iIWzfIQ~Tu}pBd6|q38g7P9+0sT9bTS~+qfYBY|T=Z#UXM0Q#&6pm{OJG7& zLOqusRaOm_%1p$+JAa_tXtV%UyCCIW^i71dB&9Wq9%h}PU#Lj_p_51?LiB?{rp{f7 zlD(Zcv>F_dy^_Udvk4)=?a|X!D!Q=kgy~T<9Fao|2?;XyQSp&Ea~0ttQ^|v z?Bp>Qx_-)9*qB%0$1(X8CfStfvewnFfeFCL6r>!%vKblQFJ<7Uu}B1?rA_I>4<|0G zU*Yop>Qzj&^BWBqYfP;(F!O5hZ6GPAgwLgCT9kg0**~JAv>(_XhQ%PVTV;T;c|eO! zdN#CKKt49crMV~}hM}T;XpPo>!kU7)dRui>v+C`pvOjG~`d4cs)H=g=-m57bx-9(j z;JlQpF2h)>I$rnh)9>7*bJke}DD2hzt?Al#WO;c`0kYpb50px!Aaugb-Fyt5T{%A= zcFZp^%+JlX(|wpHMH*yqD%kjX>s|9Mn$S?xNo4OX2`uUa9cMi<)WfRbyPOh6&-&w} zokdskx{$fEKfSwYZw>RsWO{2qg`aUKlrcZ1hCTb-Xei2Dt7FX)Qxg$q@{z1}J>^); zP(r=<(dGMxXv8yg-$g z^^;Girc-Ej2h{Hn12)!<>nIn8MCXVvdLChY(?8{Qv?}cVHdp|N@XPMMUpx|bwm_?` zeXW*-U)zy;`1e`74foXld|m9>jutb7AyPZD@^5PMhJ}#m)9_T|*>Ln2!?)?-DY0W{ zTNO83#wVll5>pYi1Ka36sq4@}mry_978$RC$s5Z=5J+9#lM=- zv)T!UsB*1Y>LHt3362P5`8_#8B2QDrorkhBz3oq-nvF0eMf(hDfZS+Upci+x{0$+0 zdeJ~eTpl!#iSeq2_PV=kObR5~XH3>=RP-xZm4CDQ(-^R$H;&=i2}Mf`qq9*TUcZve zD(IR;{ZRcDJkR66vR$7l7CgSYyj>2yBOWv(-4o|;M`-9Xf|@s{OvbrW$xsN~B>*2G){n$CerbH<9?f=0g97{_8 zab09JWxwi?!bMfXWA}m)&7a$wlQuRIExH?OTjTFq7^8P4pLnNJ>AXv0+idaSFck#J z)nJ|l7@e{@%EC{mdsL!+o<#DetA{idp7^*SdpBV)ChjWPw5^S_Te3h?)o5@cG}DR* zHSYKI)%ySi;8W8vX96Jcq#!>PnS3}&NrTGQ~%-70{5Rv=Yc zO3(RW_bchWruOReWBz#)IB&B+*$5e(rU)r&$dpU|5#cKKwxm0c%Ws)oy{+xKx0(vy zVGu*#IWB4q5xGDSZBLZ?=IYHmVFzRr@?A3{?*9Em#=MG!$5bUe3JhYlG8;L8x7vrR zE0Bk=@yll))2*&eqw3n|m#C4Hxq0+)J7NU>iL8dPJppmE?Y`%aFqlqx-foN1()``Z zE42E*QgUrh%%O(ebvbKI15;{6(R7?= zb{Es*l4odFj{eu6i>452cG|4GiM~G&w+p*h$?KgLBW2P|AY1BeqIO$_P*p~N0>Ph#q{-TFvN68bWLb_Wm(`O8gT%**+nt$|0k=_W4+ri+CLS@eI4pNM+)vu!!|fX zH}Rb@FD?doXDY+6M`<2wUHdWHxNSvP;n(g_>l`^r#-jGQC_K9?LEitumieNNu&8Qv zy($Ww^~%9#zR(9mp_t}mJ>gE5zYVg)8L4ObZ@~2`VEyF-ySBo=e*iNj)D1VlNS!8J z@RJe0;q0acNZu6eQ|Gg%3F)#BFhF})YE?uLQE{r-A(kq41|9%#%78H@g7Hk%5&Bt! zH`~UL4dw^DD2b`{1#|y=eB%VZL~%r}$?toU$C&z!A!HJ-@uI3NcWc zN9`t9^74lxS(o84H&vAE<{3A>=X#1ZJz2PJO9D{&EgdCt5a3#e@YV9PwdQe6^Ujdg zkw*Zg>UkNjJ9J|M06S_)925!klRWM{w`3BNXBP}NDKByev4w*cf+O%45F?*Bdv89V z_ez7gwfooz(!;d$&Mhqod;8EEV18F!wxR|&#KvWXOQ@gf=cvX-U%e$of;;2?QNhKxFg7+hs0VTGh#AX9 z0cIxP=m|N9jk>CSMawQxO%MoBCOkOPf{Ek*L0J!+5i>d!NlCFtRlKBbsrgCT+&?ZM zcDnLnC_vv(M9j5XGQ-U#;XVjs`(L8?kd3Y-CvAv+k1*!lBSBefb2=KA_X+4?e)5`% zaNA%glH189E_0Ldz5k`%QQY!IHp4Aa0*SmwNMRa4-=s}7o2@NWvb#4ZiQsmCuY>j! zAl;kPcx)0o0(mdgb>zL9cu8aE^(*AGJWJAeuC6eG5|IoBxS2&9b7SyxKR?jL0stp^ z6Y$D-bh?cBOt&<|uG;DL4Tp_s@gjV6(Wv)E!hPfj*Ztu<>}Xc~8Y27cktuJ0+TpAP zFFFn^A5Ma0JW(P?P?2->GOlwOcOnO zQx2MrR6V%weH49#%f+d#r+m|~bgWP!2MBG|1e@faIrF>v1F=mM32hBPX+257+A-&U zKFnWYSt-<$U{|m9#7*skzHTHVYJ3TwS9?xgD*x*gTWYBQpg>L3S z|3^iQ05-ma8jjYr9aw+ZyuJ?hBuje}G?PjpbfFo(Q?ALV+0WYGKQ;BygQj1FeO7t5 zpx6JvAK*|6_!>9yGH{RF#Ff`!Rs;|KTU1Eg%xd7_J~`8ZRp^IZ0u>vpTO{ zT=7H^`t0OPS$V7BCI%?|Q`<2%(p13c!)|%}Kd?{LDjoT{LkG8(ZhyaZxrH7c#8@5l6AdfDs1ay=}15Tj;X;P*$b52b*$YrZMulqJ=`?TisIk^OEA;{hn7Xp#g@R7ZN9ifx-35BAXEj15MC9 zZ?Y|XyO@fbO|=sY1zvmzsuRa%ClqfGMRU{_Mvbi^uKLhynE}CNAL8v__8WNi`ni!$ zhLJi%wIv>Sbw1TzIC?EtV-BkS?Yr9T*+d$Zbm$VbH-aQbvIcN2@2a7Qu1UYq>N|DB zjt#vZMkEfNi_$1(WWn`GOEf0rZ_+w+!wo3ZQ%pNwr7m$rD6CahM6^i7&6ju`?j2Ri zJH59+T}j6mx6MuBhXsxDDm=;XxF?3JF&Ze9g`969ovcYdLT{qO^WS?15%+YV9Oat3PoF1@hkjizC64^Idxj@-IX2c+OrOCZ`ru!T`7-_jzMh&;VVxCG z5i_Daggbn1FQI}c_|BhwxL8VP|Gd9^Jfi|%_!sXuPtZMEc8+B19*!>bc)I52FJ=wpvK0$=gUCb0U!(e+QBXBc=ES=CT~ z8kS4%U1e1u`=#;Z!P!`ZR3x(0wnOEyJX?#8Hw#e5bg{?l}$hdsD6?UwfuOntD$7NnzTD{Qw&ok zq8+rGT^MA2COn8-8H#49JHBpfPl_o9on)>+I^3}wc*EdFZDMLOaQ{e9twx&XbyAVE z>dI-JfVaX9;j!?O4flq^qV7*4hMwg<`;vLEWtbSq^yT?lS*W<%xif!bOh`s&jgHx^ zlt`=+`MZdC-zV|CQ0l^~AToWmQPk`Qp+OH!9@Dosf#3b7S91PN_(^Efm?XHB#%HHB zEb9Mpbjq+FjkI1`qQ~IQOjjra0>6b(*>=d!EO%d}R;9m;XrEQTG)Dkm-QZZl7w5Q+~p=>7lZy#t!3u2-qOXs$XJ&d?_u z&6oLgN^7g^R{0|iJ*2DI>$}XZ9-G-Ib=m#_IG(B1!oZ3HLJz1{#0}NLZS09c@e`_X zFtjbbr7@V{d%~v&5jXRNBQdED2I$U5+lo}r8HZ*YAkuc@>Y*Cc2`?PnfT1{!}^05`3+g_`HR{U`;vpXyv{z~ z&#Jnx8I7q@JE31-wYv_e)K8C_8btPXi7yE8#9u^m)X0*JFi;o-O?3ziU&NBR6NXnQ1xFg1Jvd zCelx5kgS$T^r+{#=_ZPym}2iqF!Z>3N6b~+;4Hp6Plt}=h=UTe#irNa-J+?C^%Xcz zZ?5rodc4*ngL}#EuChIQ@4ZrU5gdDC%b|ug8hce$@x)Z~t~9$$?-lhXcD`tNIeTwa zC-mD9lZ&Y4vgyjOLm6q;h{;cgcuT(%rD#MhAzYgE>1BT!P1gZPVr1kz5+zsljy)Ae z-gfQ?Y64H3Ak6P#?lwVgMN95m*W8eXVg?x37=&9(Hzwx6$=l!j{nGxI*TP9bYb&G7 z% zuksXTyT@_oW;Ei9N$3#_Sxz8J1Ga13qShtPqEzGQ%VWhc17COF;)ifWV@#oWZUxm^ z?EHHHj~3RzXqj$kpQ93}rQO4;Kdets)XiK`h|I^7d2Tm@`RP7i#x;nNm>9PF>5=

Q{)BK^vI!H)#j=RQenWk@(R?e2PAMnJQ(^oZ5?>W8^MY>)uj4%=0 z$cjFE35X^2p4K+fJ{IfgHOoRM%IR+b+GvssiV{qM`4lxa8z+~hDYKkV!zO)`17Jv2Vfcsa8elrtBX zCH34!#U+06>9Fgc&nqe9Qg+xyH>LB^y;i(g?ql0VLmi#2le+1DD1Eq@9h_yG*-b&` zg4&unG}Mkmje`Ef^y?Qf&Ng?35s}nGtJ8U7@RJ(FS&nLeSA1Yc?b3+5cT(%o9U5vz zAe>sK<3}|~XYkkS9HpkStf>V+qB9yaBBcbX_D`G?? z=N@6y+YQ{;N?*TxkiJ=%1k%IgWoYG-cikq;`cG@%Cu@zKp@ytMc7AMG7*R@N{kCkSUcY)@|Y@*o^k^jj2<*ZH6m~|)X zv{m9Rf=X}4@(#f$V~!jIAT9UE=1vXeDPb1wIHp{g$&hq2Ra5)KUXP55F4s#TQvd~e zu`;z}whsE9)F0IN!%*xDiOBeY_}w)M`Rr|HpmlcQq-d=kM9z2GIM=6VJT%QvHR#of zQC3c?o>d9kp9;3&sGw8Z<_x1cTn~~7tF?0qW)>icUGeCBW}Ga?dzR5gptTn;zt~Gw z5hQ5*;U1#qi8Pt`Qt#oVl4x$kX9iwc`OIQxq>1>Sro(?d#{;v@oZwd`1J zbC}mfScX9pB~mgMo?B=cPmv?k{;s^bjft;QMZ|>Jy90$Aj{qc2{}~I6C7=~J@Zi&@ zvZb>JFEXB?TU}mhWm4g&^N#>mzaESix2CLKp}zkxiY>lW>Qe?pB`O(CmwZkm<^R0? zFIX?zy%z=ug%+Tc(1-7dlaBYk;@87#%6aLfZm)B@KL8^g*DjJD%5=JV;8-3ZE3~@+ zTfEf?Rg^$ut<7hh@<<$i^?L|W7TWrEZdFdVtaND2*&oSZNOs`_7BQXwZENnd)f&t7 zeZ^r48fz&_L&S?k zgsYr3yjc3N@14T=-8s&`3~MO;Ij&^Vu9&Jfg_-a>dBORAF3cNlk1aniTOaVq=%*n? zZ}enH6Su>zcHZoXXx&+<)iynMS@$hc6EB@kr>=jmCbV|=?mVKtTbB0@{NLq&_%Xus|z0tG~_IS+Nvou z!1EaRx=))gFLUAhqP!Qm>tNRM6LDm6S83O5*Mj(x$4toky-n$R?Re@eXpOU{Spu!M z*Ecf8u7cga(3}a)78bm>Nb2f8ciUQ}=}J0w)D^X|l>q=k2@pP&74|9gUqD26tuUzh zUN;zX$DCGx2Q(ZioV+YP75 z+v%*9^M}hbSLPa_wSNw{EV`fR|9fp5irl|9$07rk<`K#DZpfsyL8+Z0a$*4s5+-&@ zl88k4v(@*Nz;Gwc)$#^aXaYa5eR+lD&3$Ihn=_m=Tp!^ECV4kKuz2twvsvsi{v;uG z0B>x62eu1Zfo4vus*YP=K&2~YlSuGAc+)4VhyPloxF-?rJJ<6@-R#fm>9OWWYd)fY-q z2IvoQ1{eY+kO!9AxiN?BddKB>k#)rQ2S=$32lni)(KhXn%|$N_Nh8ojJ9qi%#cud> zEOONSM(?4I=~l~Mti4aWL!doyIClDz-V+8phBk?(b3hW8WB3AaFY@4pAO%5bAOcbD zcasj9g4kNsOY_h6yz4=2+=V+6K%Is`9hz`BN_)bQLtek~@85^!({9bN`9Ztp)*Pd0squ+9_A)_x zxOKW-vi^55XIBlycq_re%PIczT1yQD9kef7-%uHHn#FtIo^DcoeI0obreQl{5ix6$ zw!Lj%5rMY|1wK}&l)@U=WBzTl9KHb#IeZxuZw`26PIY;ewR>rz(W*VF80qHszbZ6go3 z-nY^$W{g6UF)iyNuJ2lO-!#QQ19SHT+(3;j&0B49=1-R2lj^?`Y6bIBO0dsR;d1%w z>(8|71)o0$-LM!6%M}<)8(X})R-EmK_;E7Vwg@|lv%#({w!*jHB{`Inh!S8w75{kY z;E_XxrS09GVoLW-OnHFWmk@i#jFRCt5ZwCU2x`QO%Z26wIwa1l>uDMA=XUNTUu|N! zNkb|b$)2i(CP#PlRR!F(3S_Zx7e_j6f_{Ap7>XK3kg5Dmu|suu9!?=#)7GTyy0NKVYf7W`R!Xj$t>fnfFt_9G`Kp!fKquXyd3FENNm zb|(sJ+7_56YivLEHPuv8w){)_8v84$nJZ2Ogu}9+MQE;(oLU0k)7(nC!ail>wF3c^ z^1kb$Up5=3?ouPqyS3JkgrxOq*@L;$N)#Zrt?y;BxN8zQvy^GOKhK#6f>A6u1@Z$(g5ff6}c9k%EW1_oYlJny_xsw8ex-Xg;7m)ghN%I zKqf?vo^ZUiF}7r~estr+VXj}%Y>%%6LKyg-Xm*covu)NNH@Xq*=A`XYgGsUmF#Fw? z>LcE*PYp9WL0f-wR*FfvX^Xn+l>}FVQQL04Q_>za4##-J3DfM+jA-QpMM1K>c6`K* zK8sbAUD7QY_SFjd*cWO;(jG8aW|e5DwS?ovh8wxo!NBMXJZzZPQPXrBhPE)=f9!&z z9pdF*c6y>HqKGhNltD54P5BU5i%ObK_;ewn=l}1-ehV7*#pV84H=Ib?umrM~K71;l)q7t>eEGNtzSqNGbESD!TRUyehcig{$NR4yo& zvlCd}wA1NH^y)-S>A|$p2l8$4GKw(EM_5V!Ud4dMR&T2HR_bVQMd`?Rr}_|p$r z_`oQ!UkV+6#C%2Pq`^D6;PYn-r9e0KJZuzk{vfT`o=$2l4_{=4es5^pvZq_$b!Gea!!Qit1I2qO`lx~#A%60!hXnNCA*g<3nAzIUuh2Q= z%yR?1#FUJpkflli#Dstg?!-vwcixIeXdE_A+u1?mP@V5&bqbwFJ#fJO-5i;>&Ke_q z+uMOVfSgNtwrJfcJVUzrjgXy zQrVVU)sgWa{3Jm3>Djt<7{ncfQkZT)Ad#~>E4R=CnEb;I>h2f@;?(RGJ@et$l34AY zC3f_5S}%}QrAdQGkR^5}gH{W!LX-Hx%H0g#Jr_1)A zv$kSPy z*Mp}?>yHd7P7NvDmIK;`%qXX;auSdtYeN^&kYMqbJYu90O+JuD+Tilv8FNFu14_azsGem;om z>obg0&QP~|0nFzjaziD5Z4MeS2evk-|9lPqISk`9P3J{jY}D7bx*Oe{-X&yRUBXXXEdMV{}=Y1m79^zx$La5pl{ReJC)+#&MnbJICdKoB%Bxjr%i zN&a<3mw~x#e2>sO3|aHu=;ly0IdMC$I{r>0A6jiAP1e)eqK7;)N_Z25s?VR66-qBo zf;^ZL(le7zy#w*>3;{j7GLavo2t7)f5!$#9S&@0Th?5R*CFxRHDGuWo&btFc=XxQC z;YHrs)4EJ8nf5b6YhZeEn}6Vu-mHY=CgM_uhpa^rm5FI7 zbHl^K?5a;iY+dgxj(eopbltQRC>{R)h+67U^zPywBJ`gl2MN{(CoRD9P=z?D#UYxu z^ftD@jm)JHBt1Y zHnnn&H!dUuG^NW9ln$XcZjAd3aIZe-MjR_oe>cE)#`u`<+(Y(s4-4*-iHUsBu?ASt ztZUvmAY234{EZB;L|Wq`Tqn#Vv^7XE0u&WwCvw{-lM9kbue zu6dut?A3dE@?LGzr;2!gM}l-5EI-Ou?@jWqshhp$pMDtkCD9d~mDHxqv~StJPGni8+FpM=q+y#L925{!C2s%a*`@NZNXUXL)6Eo|v|rht64iv8Vr7Kgh%frs ztu?a;S`ksGh|>Jx(SbUqXfgEGCf%=g8BXOgin0#^x(@zSDIGCA_F$qe-Z|^Mx?8sl zr_)kM&fN>&H-Dlg{-NEUnXoa1|~Xt^0~-(teUJSZ#y#w|1Ecny5k z@lVSCuzwXJx0#^W#D?KgH|9v*y{T#ff4lDsNa8I6zpf{J*fyFH*oYO=Snae2aj%E5Rw^K4nEeh2iGn8{B zRZ*gR2DP-0lEjkX6?gBlpnra*FvpItI6f!a?x@%SUq2}?XR7=Gt8tQFpTTEA0Yf(YMIMW=7awmy+l>#s zYkz54&+P-I^GFmf&RsOi5{mjL+|C`K~4r!qs}2PlhH?2TBv~}st$q4&7jB?!xbn}qt`1Z+UX+17!9}Ae>pcjsfLC5ledjJLZ>`KF#0_xC z5rq@$?(e5!ddOI}>`Bi~X9gHY(yn#BkM0gAzqtaU)gIxQ0Wd z>hHK}AMY3ye|xZ9p&%@X5fr4j&Kf>$wjG#x-2jE4>4PEO=ixQDhT4Zh3{~E9Bi}bY z>TB#W$m8J&*V|T8S#emcmpi(6O~ZT8S9*3iG_XPAdhmwzVkRlIq+Y;psC(0k?JR~2 zU%iZ-?6mxGX1~d3tC7iI#Lim9!5h9%Lpy;#)%ood-}6TjGtwx&sar-XCQbL3zx=gK zp!SXhf^ujMXm}F)7Ft^`^Ld;BQshIEQdv~Dbve|@0q7Y5Swe<7((~u)HQu=zRFtzK zQ!VOp%+OeRMv?1&I=oONx(HherUL3gKeZy>`$G+Nk!u`3qBIaBz^MOLO5KpA2sl{A zNSFz74xC91VNAh1fSGgZd@w%hKI(ozb{R~O(sXXA3{WVMzc>oQ29G-8F+-i1JSRt0 z0e72Pua`^p8fBnOe`R$MYJ^ib@ z>GWtYaPF<2QoBB_DI5fjX8b~BJGFyNO zOJ`az7;YzRGuztQT0*PoMNe;bEuh-JXzcn3l)}r$AV~5Rvmr8da4b&S0oU5{db8#u zUx!5lO!yP51PJ7);5u=2GLgWSule`i1`Rv8M{oULd+0%Hbjuf^p6Vuzx1|C%9+_-1c;IAJl#GHJj1) z<&<>YrM`bG?@Lk;Pi(L2CQxP2zX-G8u0(m!n-$gGMJcN!b* zUh1xjrkdcMFyDey`18H^j%~|NKdl))1eEK06t<1KG)>(rJ%PX#4 zd)8vRSdA?$)}T8}UMp&Gf#&W{*aSiIx1hOYmWV|9nOTM8lFmaN>|GwQYHO-s| ziTF`b7tyw(E!^Yh$&%G_PSsA$-ps2Vp8z9-K^;Ty^2{m-6L=f2*0sJjAPDDUc>H%bV;2fkT^g4nb>YBm#B;#WF+ z1vYn8(~Ls@a_anBO2xb2GBw$dJ~9wn8Suf_SaTTv>lt&G+N1a z?RzZnru$#A8~d3Q5CF_+NK*5O7f)&?1&xiaC@x2K0$olW+92vt^?~wVef`+CaiwBp znaAbPdzk&Q0kWbf?5n6_1)<&sErS^JIBqxQ64z*D(&|j*)>PNnMbD-*CEfPM>U`Lb z^cT)qv2kM0M;yg~u)~KBgce!#aHKSS_hnr5^#9(XuBX#?z@f^>_7f6s<%zs)FNL@e zceuIQIk%;<7LiQDsV1mC$Crf!Fvsw7RHnYIe<*UFwR2N`mlXcK_|L$Ju{Y3dQoNalHDW0x6^19;1^i(`x$dxg}F8#A2GwgzU<{Zs&P z5uzwe*r|{Lo#qsuhyLpY>tFY8NrmNS!nDVq?v$tRpGRG6 zMKp7{f++hy-&Qenrq21y%jX{IyEkd1=Q?MUGZNf+Ref1Ik7y`y4YU202ue4pHrsi) zxj+)g0!-~}JWryw&&XN7-CP0#^MXvYUF`n3xcgr7d*tL%l#Fyi&b=u{=ZXjl_)h-y z@SjEg;-FK{B%4ScZzSS{%CUvztL5RP={if5tCfxGl4X~vHWE#-{{9ND&FfJVx>lx3 z64x*j@>F-ejiQg$Y)_Fg25)Yqac;eKwJVDvW+roiMPa!>h!+4!&n7MW)&?C?oBY0x z&;_^owkFDeiFm6&A+cV%Bxo1}6n=3YDR{@52MjiDjuufX#`a1}DK75J_?T*fnTE0K zk)8a=qcsy@;hFN@QC!zu(9bTHU;f7l9B(F;9!z=iX@6FN9daeWhwJSuB8*~rON-CE zFX|B1D_DvA*`U}tf!JkssboH&sgusYC*VE8&?Wtj5V7+{Trl@Xc-=PW@zZGfrHhE; z%;jN=lz$cWpdAoJ*KpJA%hd)IYWrRf_+c9%V9i(jaanURpLMG8$CI4hnhS&OXLr1S zWg^e8ISbl!X%|G8@mFO#W8QHW8|Vifx^&`$k|=Gs-33V^wWL!u)%9QnktdS|h@=F3 z`oXj0pv4tOr4Lbljumnhg;pt|)@MmBh{(MLRy=u6*BmrOj(YStK6MeGFI-XYaG*ap zBwZrigva1EpDp#P+2=SHxY|gVnLy;Oa*j{c(dnegSz!P!JNqo^N9@Q)pf3ccq`sXl zb@z97W(zwW5mWslLD_=2TEGz+MbB9UZV)yYS~1m*-LQKw#)_ zk!mV$kIaxeq$syH-~^)Ez86}zeO*e|lT*Vii{fXhIRG8{`S zn?!YoS(yyaXJZ^f-eZ0qnywmznPNGk?d_2f=7PDU73R9cGw8kWYc^(Kco}(as}!_w zJ72MW9B+mk^&WLKcz8PIjGmB3WJQ3zYa{W3s&0Sh%L7E#bqDfKd$0(%An|4#@*Hj!L@hY@LK7Oq7+0I5jo5(8Pw znRQTLW*1)sIW>GWbJu~o+=jYFK8L*SUcDj{Le zqyfppBYHqgw8K%m`S;N|d*Z}7!$yc0FPK?nd3UqsstEcmGKjO6(;_uvW17zXf3k;|x^A=WC%3jrgEkw6)=W82v zrl*d|l)P}#uX@cv2A3oN)1Kzef)8l6;(j)V+Y*j?0_4(1a)*(T387I1oi5U&2EMN% z9qQ3kw8MVbNmwmx7tA>~7MN44(3R~Be44XhP$0GV+;qmZFJd6;^I@1hV&L~p!L@Cv zi_5K5ecT!0@t3<0>_9rbrZmra@w5Tu+9C`IvV*I~1V?FLyQ#bo&_F1wB)RbK;T=K~ojxREYUIWs#w+i)i^q5p{2PK=yr zW(EjTQXc@*)rf?C4v0E?^s~WTy+ymBS|+vfuK8V$v2A}VxENb-<9?CXCTC0NYa$P< zM56HV3IJRn*T*xL{s|?TxTqE_0_W#A%=`rhnZhH_E%7@sKkxoLFfA3Myq|nZ`D#;> z|5g$ngPm$sN5#5*Egv&#Sw`M;BJfCKa*ZM&IBFX!pQ!XTrEwzVqGa-WSp~U3(D$=bg`7;sQ>)n2?#)j|N7>SC+uMA>#MGc>p&MlO zv~KqfBty_Qi`-uE0%%Sz3)jZAB0Nxdkgj@QKHDK|T`0w&+A)i&9; zXpqyTrm|I9Z9gogLh9_jNE(ZSO%H0(xLA@V-9*_cBT8kI5E|-c0=WMiG&w15dgoKy z7~VNN65(aINF4`@b^pT+tuOE~9lJ+KAVN*8_vGWhZ`^^-i@;ESF^jvPT1k3=oP zdq$c}--5-cGH0P*6=0G*Ctxj3J~R<#D4)H11>qLp>)Z1G3TL>!_gOvt#;(Vt{DG0p_qFqbK`2%TcX^iS<(FC(P~zfeznC;O-op{OyUFg@I`mjc_uD{WHr~1IuMbTV4!vo7s=wv zZ{CU3{dNN6Y+W701mJ}4tqM#_?LKzH5)ohZ>cUyeT{B;HV)D}uYG4@C<^m2ePiC;q z*Fi7M=Xl@c+zJ#Mu?Vx`k7p9@o;doC%V=!7Kv31&_M*3EIBh zA&S%u`MkA`E_i;d#@-Kw7TEe$%Ga3VDRfcOD)jYtso#~bTb8g?z_UXFbZ=@$vTE+K zQ|cl!y5Y0aNoL0r@?d~CAjp?tF(BDNG{wnGqE6waV5f(WZ+ z-{@oWk8T&gFUfkXwI6__0Sp*i7*J*tg(=g%z;C#CTml+OMPav|?Po_9Mg25KUB8wo zrH-@f4A+!)*fGt~Pkz?VbBLnKXVN35D#Ppi8zI1yIj*bON#5GdZ+Fv?+EL_w9P{|x zq;f`oD4L34%g~la?l1PTz!N)4y_fs{ezSctGG18E!#y-9$i9xSnB$#4E3T7Rk%^CV zdm;X5Q-D16#!t1amc~&Vbcm`ji%(i7K61Ru4k&4zNSLY4*ar3T=ukxF>{JCm`Eth? z7&7se1{d=jV_qa{=Nv)BrHbPGTz4fbk?C_JF$8%L$y~x(%A{Zdzxn#oPA|_nFC;I# zRYjKSarsD%$+`|`&VS9_cWbI`NhAzBzeUo9c4;U;~9n0Bz^qv64tkfDoNeM~0bM!mKL^>A-j)t(=u5;Zl4o*b#Aa z8QVOYfL$NVmIjQU>Fof*-oBvna$iQc+Oy)IGxPI# zQg)~tQdY3)yyOf6`<7=ds`qx@U0QH>+kQz}*Mk21(2n!)pK0KgOwQp*#y>vbXWz~m z+v}z`l>p&p0M5o;P^?xL1L?h&;M{76}o6*?=LAa1Ifo!;qURB;A@u6+tfP4u;psY-tK*y{`j`0l?> z59nIh+kONkK_=91>vQ#p2D)4NV`gJ}iY}cYV2w!PwOzjVqn(;4XSk9MGIwp}Zkjwk zYN?Re(8*t~6LUh!3*kizL-ayc535?XDLFmo)PBM1|BGalU1%FVvbv}3A8*XUE`lk@_ zDvQg=hPF8oU-ZW{$ri(LK~pPhg}&NaN06HCvGVg#*x`Z#N3~(w!M%w-MYuetuQ4Oy zSqRd~L4ziGW9_?fxi*e7<_RAE&=c|LdiQ7zlI+nh?WTFj=c}pI?qtmqtX|zO9cLDq zL!MoZsjH>z`0}-I70On`s>MLg9^JKZe<+sH8K(O=-ns-7tQ8E_`@LT)Q_{u0xP<}& zp}N@(AZR8T(Zg&W9{r$zpU5W$1h_5ir~q+~O~Amau<+w^j?qV53(F3oJHZTeUmlon zOYEsuQ9-ksDGkS!RLsNO=ULv~i~b9(S?;O{+MTr8Mgn!v7My$Mh66lQ_pGvh-S~p- z4?1MHYKH+Gaj;HgUrEM*sITydxN`}5RRZ&_s?u*S# zlP-xc&~2}qHv=?uSJb&kr#%g4=fpNql6h;BVR?^%&mq^OrWvdjb;D*rv?9x29LfOB zOJp>=mqrNzY~c~wv9HDnh;uorIc%kbBTtokWQHxe z5l-<#%t#ZimpTr+Sqjd01JVOiyBE}*8wQ&I_Z&;Lx6?o1qVHqjwb;>N_=i0lag#~A zLRGf~ljE!$742HO0Uxm)nwd{$jedg;9 z?=Kuaf0TkTv0i7x>8Hs$j~=O(+5a_-aM=8JVRK$aJc`gs%D=Xz1PqkWPD0Hg_YNuH&sx6S>7CJKRF%hb;0(Fw4*BUZhvf5aW%p=j{AjGz1Qr{ z_k@|dAVVf2x1JrDdst>-yz_kCKTc|PSEL`rZ?sox>7%ablNUz~2|Pxk4#Zk?m%X?1 zvyqI!CMwqr2^`Fer%P)|!0Z}ke7T?xf8bY^MbL8B2$pa0`06T92%j0rXuPPQ9_s{b zuTEwK1e@W4VF(}ySr2qLaT5w_7GiUnEw#j`-1BA%y;tT%nLI?DJ_+=I$9CuP^kmI!>6s6 z0m3DXlv=@xZ>^xPps&A{p>aO&p}pwkN&=@d8mTsmL};ajXCIhA&-m98Hv%)xu z*86>4{a+wfKxCxfbeitGFRx`t2zpXrSU`30xB;<#Vg$`6#b@eM7u#?jtXC}m55ffc3K&+(c}Z!U-062YKic-n2eW#swNcj_f(*pDOW<|%!VRAg31hn4 z47XRH^>s4!x#LJv3ET+v@!ek=1C}y$_1BF_i{p!dYsrTnDX>puccx3 zUU!4p+(i2ow_oC>;hq%i19Z*By`R)?La6her;v{-Ob>g7AAT5aQTP`Fq=pc0;5--C z1BeDN$a!k}O(xI+d^%ngE3+EKw7dHj+dlv_Z(m z>7&)#A2RK}pCR6esih%O=GLY>9^TaX@L!oCCz=%R6jB69Cbe0w~bb7-S4T(A3=(%;wU<{g37`{v$|_4OM|CROqEzh|S;M zR~>JjG%SjF9_9!*&;ZvfGywoCA?BO(xiSOK7Y{zXITi~b(5_#@0n(RMtGk>De96#hUU$0^h#vuS-4UFrcZ<-t^JXg(li9CPjyoK0p3<(S z{ufgMc+tJfAms%(B*M_;Ad;g)Xu4t2`TgA1qt--#oIVd28|V@`DP^t51+U{1WV3sR zl~WmhCO$z6yy=+jNQmpT3`qFy>%ih64@?B$^=i`}KGIeyt}pq#Aws3|SwG|QKARvy zlR-*LH|5VSn`N%Bm15K~l~PtZO@W$?Kwswqj53&j*=%5fX?e* zL0<=-42V6kK_ml)uN`18+X%jz{(sCyn5nx+-UIkq0zHG~Lb3Clg8xv^8|2}cNo9=& zq>_T(K#tzX!tgx%ut(p&0>l&SFUqvcC&e_~YPEDe0A6`xy4ra02ryj50w)324FX_d zL3#hp3zt6b_5i(p zJshg;{~x|9ISyu0&N4<0B^g2@G!BJ~^Pz}oiZag0p@bc`}2H%&vku&*Y)hnA7l1fd)8We?f2U2{eHb)ukcK0#1op!M_D6Byliv)~@t(M#8nRW;3f2^ivU=Vey`iPS4Z=~W84rhn z{>S-<3H0Y)HyJlOFnvm-D`_($fPZ)M;mvmhlY_j>)`ticjU|AV+!gmL`SsyLu7|^K z!1{%OJj=7eMXooCiBK%4$OXDQBb&V3@&N`|eaBb6-}e$5&xM2P(SE<)WN&6G3rP3ihB{58z|5c@OP0O-8|#~_6hnW#XuM* zPuv9hjM;d567V~p1N!vC9}6D=8KUFL&{|+ETllsGcnPj(W1v5e=^??LXx2RI^zsGJ zEg{C!dDP8KHmBk@<@GZ_klhPNtgT@mUcM+vndY+10r`~>pimhEbr1fj`}5C3S+bk5 zD_nNSWkSWK{mMg;&^O?q%k}yo0XvipVtTs^BpHyS105nMTOHXzrps-7EoP0c_~l*_8wtb|kln`wY0_qUAKZJI6lFO2Be=M8adEzTACN-0j^_8Yk7@ zIQl#$z@P)vy#{eA3UX;tjtq!D%w;XiImq+5 zxWStZXYY0>nWR!S$!uQ5Nr{Y;94cSF+zK%F+2xI`mHq}WofvO`7IKi)VJ;CmL`Fc5 z=aZG)+Ql>l_odvb-O<3M;x0qlXKtnHWiwAo zUpesDE#xwoM3_;_RPOkF1-TtkpIs%gZ3_PWWdG&f4blM&+$uek`BA2$fN8pua$JrH zXrhIV9NTW80H0oaMCP@1=N^DRtDj;El6*h4{t)R=*%A{!Y4S`@_ms5pu-*A{h7q#= z2_cM)hS<=pO6oj1MEIwUqplqVOlOuEL~*h1cgkapcCvVVF0=wtOGI~0( zf_bsgMI(?cB$h~xi795AxHq`tfKlsE5n_6Y?TZTaZ+O(CzUP9u6q{YRn(8s&LLVxc3kH-y3=J(yT+-BYcfR{V) zr_9+2C2O@zaRZXYWHAdvCC~_KAZyTQwtiqb4UiShg7`Eqf1JTN|mx<%RMf@S|oH)pj#RLAy-^c#v ze}D1(HTBzT+O9I`Utmv~m5Q^MW#YG~8>z_q8=J`*iREwas5=yVb776F z09cjNEq+Nb-zW>sl4|qLkXl#{E8rf!KjI0sO>l#7(8)tM{xSsNptoA>I~M`aBruN$ z`5-!fY0Y&1m@L#;<9y}$(c6iOgbpBX;JY|}C!s0kv1@D$`)X|^jS7LkJY#o^1r)Qh3ZR>3-c%X853s=B-rq5A(GMlWN*(uDymzj`eM@YUnwU zbZ!f7*{-~lcc%Or6GTSjuA0dYZvW0AE1L3aDdzu-@sHQLtcugV9S(>~%~Zn+7VWRV zY!wG9E`3?Kam`*+`$+xaoLPst;cAu7PJ6GNeytcVM9)X4H9 z#1HobHI$_-gQ^(&DPYHKiT=~*to-zNeV!V;+tTVBJEjHR*ygamaIX=IDe23MW~h?$ zRcn_?VI|DiNE0dmYs_mTJRIc9$?Uvow&q}-Py}%;*~UFzS2%PY|DmHp5yP|XxKdQs z0%HwG&XJl&7!Z%^_O^jK49wyO+trN)MWqPymM)X=p>omW?>QXwShc>i`AUXCZxrm1 zwingb`))yib{UN+sV5}Zr}s>&2VGiQ?Uy-|G-=7yyY18K*lM3+um4yph}UEMaGTs9+ z^b8~Z&*G{9y?Hbmp%M2j%m&$%HdQ$LH4lN+=HV z$O&oy)x|lM>(fhYy0A^@3_wAdt|hs#4Y@Aw#f>H3BheOHKi|KndW}CB=GZ!R=rh~E z5s<%aG--3Ae*I+4`DDJ%KzIuKe5J0=J@c#S_Q_uS{>{e|a_2I97xyvc1yb-)3-1KY z{Z3M>qV_CiJRF(j2CV_7$O`|I_#dQ6$E3ROmyfU}YvBtFHEAGdV)08CA~wdgCPNdT z5SNyo95kvL-EE!KL<~U}R>#CvMOV_i-|DPEZOg61t5~hBho6gDFf%jFG3g-LpH37W zV|K?tKhnGBPDY&=6&c$oSVxWtZE9`RG+)wl$Ip3I(PLtHVWUtJC%TsP>?1{SznnBP zGd(tlByKhz9|N%i75D{X5N^=;fk7Hf9mtQIMw2KdCM9#iPTcpGhXxpr+_`Oh>*GX? z33ts!&9*-F0pqhRE2D#bYcpkRdea)QDros=F^9dj?#OD>5|F2Qv-xdH^$jPeE%B3$ zixBkFJswF}?*KXfx3G#aip8^OEaxyb2 znc{y2Z!u_&jD8TN?SA9!%Tq{#|6cTD2s*FzdHqXA69@Ec0ikLCi-v+66sD>Jt6%hq z^z?~tqG0x&Kl`%cjlC}xj9VT82kLL zpGvO2W%i!KdozyCKGJ7;2ggJYvYhHCN*dlD&Qx|yMh-=>OWzbNke&ND{Z&6$u?|&(7{lF|(b&Go)pM&U&_#&?v*;dBt9O ze*F+r9&ZvlVaGZs?;xj10a#3?1gpW#WSz+2L3f>6(f1SNa}syL5F)RYF`ZZYyG^B% z)nEoRZ`^Ei&|DKhN#@_R8us&$d$-+8MpFoEFbIo|ZC&HA+&6+*mzVB2fN%rEFW|S* zl_@h%XhZnRekCMGxmaX6*!L^!Zz-M_6FxQ9)tyKjklg|kMj4P7w-DE#cAF~AZ5Qkx2?~PxCYJjoc|=|n|B>m_ zh5n7b$29nc*ki=*>z>r%yu$p}; z;Aa~1@q)quKu&=c)E~N{RxrB!wskH`{$o6#yMddoc*cVKc~{CNU8$nA3%%>%s%v)A zuc8DFX9%blMdwM}G0YS99baMDYgFXgYNnSN`~5ocB_+T&AKM26F8^wPIsBXJ5~#hd{bIs_tZ1f$ym%PQ z>Nr3mRH_7^DMjo}{D11~zG)C;wK8_flTCHd+Y_m){Lh;K^h4{ei=gL+QV4ko=b(J_ z?UP~zOXbYhM0wHUJ3qPpg((qe-^PIr1c^)bnmDTX0f&f;k)*2MDUr-4x!Yg2!(Ir> zA{Q2x3Ja~a6~aPE=?-gbb{J_7Q2)D4Z&2rKXQLk(h>RsuzGXLMr3wSTS_^|>jgr%x zzm=BUi8T>EM*aDHsr|3^zkJ3reM+6Pl}IiQ-$15$&(*<{+fIz|<#v!!_Go6DG5AYf zF=r377;-?zcMu0n3wr@*YEX0$$jE=w=Q;cOaDm>rEri)B86$=jW+R8_M-SqYt&Ru9 ze5QX)Tg_=(;Y>U>O(>KexXT3Sm$h%ft_t!hCr^SsP;*#As&G;<1>Tk?GJ3Ft3R8nm zO`m;uc4~x>G)b%8sSr|80%&%Dw$r)P6Rk6u$LpLhicOf}cHxou4pbURBuPL6kq@vR zYJt6h!g@f*L=G)0C@*)_wFA6}Rn#vOoDK(2)Bnq%YN@SetorXszPI|`;5<@xGC%WB ztj(b$$6SAqW=Ch_1{=RH)C$WyF4^;Le0ToIW{t2iWukVryW8%fh83y?Vl`+-aK0O%Yxh8lC?xcll}GS_V-u@&H-`B zYn`mW2{^)IqOrEVVl4hD7ssn0{Y^N1KGCm@B!&n$=~(~aTRkg{BpUgz%(=MEKVsuf_zV6>aUHC`9|3O>b{XjnilC8(x@hE~!+J;`aLNfE z;U5}_G&Ir!CtSc6F8-Ioq9V@uUqT)^g48({22O5%z`7s}4&~+KgBj%zFF)r+UWnNyjgzp+uuV@2#)lR07D-Pe#XlGT$rCf zQpesu^g?6+Xy5j(eSpbub}IyhRi1dMyuCP0JLxKjQy0V z4BpaiAL%CB0*aThO}RH;fjxg@|HxRF@gV?|$|CO0*Cib(|(y}d9s z_A~D5DQ;cn?wBS1FmsOfWoo73O2RtFFN9p@qn@MPBo+kWue8;YS%a&~E`3Mp95vIW zEy{l`gr>s|g3=uAASd+i{2|LjymBdT!_N_SMDKhkQsvtfUDT1!~^q(&$)ea%9Oq5=qW+p1^ z*Qd-C1}L>}tI9p$abk(sqTcGT!OFk-`iu0gi!_g!lGi8Q(9TKb^PqqW!$o zHc`Kv_8os5_|Jq-9JSq|p?izlm)%Gyi>w)xNS^hSt>lrMlW}(j7fkgG^0wa8dK686 zF8jxkH*58xCDwbjzLksoJZ4;XZ?EJPYLEEjGxQJE&2FV{j)ou;HQ)b=MgQBS3RN+! z^3U5J-g}%e%^23~u>bqnig?E*GhC0Z68^7kZ)_Zrz14E2yly0;Y@cYJi;j|eTov%- zR`Bx(R|)RXB4b%h!-p$>cV5fLE4;r>zidCXH|yK{PQy987&e*UGe6l@rvmS49u7lg zbzD%rzGcUKwT{=jIQy!RJcVmx+D7x-Zws!lC5@wf?XotCQJ3+ueN!GmTuV#}g_dR+H zME6YhKVb`B9NZT(awHUS_x1!K^$@f^dGYBw1+&5U`;hWMk^1*WscqwCx=P01A`HW` zKNe(}Io>GjeV?;zh6sHtwy=PrDRv%{eyp*5zH`Q}f{j@gFllN^o_HI~D0{t=R4V4C zmziIxW`p)AvrJrhy3P0YxgkNe+6Tw5kMtJtpJrp|McknL{Psgbv$D~8lrx9=xOGC4 z>3?kd;L;~>mU3-9{5ee@c-|D->mNP+f4n>1HbR{7rle}PJdu7olr#= zJm~2uU%a26TNrr0@>ABko?Tr%+u>*a$m)wbsX>^|NRG8Rh?u1S|&?NTQ|33_{;wqCvhE5f*&wWdItLXNF5u0!i9iHi6vo@lEliJ;llYq*5BYrLAjsy*BF*uAF;@vOl)QvQ) z*$J@Im=v;l3IYWDFxCRJQY{|!vXf?JH|Pj0Ssm__Canx&fb$QWR6rm?n+ezK!r+rIOO zCbcuea3aX(?hG&%okiW5OJg!+fxrFt!9OL@bFnMe&wr%e8hax)NWEh#^Z_0cZ=sSX zVxPE#i9~!CKCGM>aNMuLt?rnTlV^5v5^S9`A^{OiFr`&!N*Q(ZXJd1oEfJRRBOGRudf=!C7&+Y{c>S z$^$Tk?QcMu+a>(%`(shK<%Xar2(TU%bRS=tNB^13gXUVz2X~KGvCSEfA9sc4$*;z3 zTxCb3HC2huO09@j;XWe^R(DMGvjBJX;lAXI8+)yPg_@tK8f5y^lju5u(u*&jp;` zPu`h^y0hiMCyQdmZ|^m1qy0|1R2{ddwYcGvy?e5l85=-6F^_DQz|Qs)vUNs+gMeg6 zpQQa6ng*dFTvla^+FuwR%S0>oHjt5|C3@WRF>$(I+wLKIKmd+UC8Ad0{sBHNecfNG z@Oxl4m9iTe3(T*6Jv%wJP+-0)Mdf&jFWj*73-6~v&-`-FT0TO4hTnjlh;cfdvuEQD zZ;iKqx4x01+Kw~BN37bLR!J=l!bv|gKO+tKH6%u|_3HhP`Be}`f9z^!tE*Z>#?l0* z=|l42o#MGXAJ~bTUn(NecpUJFc28|T|^dx6% z6ajD{n0+(6%+V~$$i&!E@0A@A;TmgAsfH5r=NwpA)hpHnIx3x)P*gQDjgOqnZqkU; z73H4Jj6U`vV`evR;bk$VNQ_V>&H53|5>~de1KtDvM-8fN(gBqu)mym>qqJbH0Mffv zsZmctqF_>mNQVGDIS0pBW$+oxv-_h&7+J|`aKEU5{v($uKwYtt9>x}Y>HF#d`cCEH zWg7;-TJi5xMH@MaG}a%R^IlI$IdfkYnrm9EF*NWo`S1ps(!b&W3$^eB&+CL*(ki*3pVf5ZgUH1X&Vn+J>R!}bSQMLf8kG}*D;jY<48Cm=4| z((ofWD$t2`$;@tTu4Qr1f(7ChswuTKdB0RRt0cGSRIJ1YB-`7*bXn=g6?dO__fY2K zo`){}#(1+O#-!!Q%@*5a`sZYPP)O7znG^2ro@Mu(5gn#UjtSR_@e|TP_Eav0I7(AYw5n2`anCI~I#_a8WY3aF|>ix_< z-WoQLb@R49&`jEeCPnoc64q?P+w9#ll%XcrcjOT9U22xy^HB#&tpJo|?uDF1bHsNy0)PSu0 zP4mk>7dv+9$@{WEJoin&O}7I26eFDF(j_mF(xU-L$OSNOEqY16WV%S17Km#@ExtASa>WPi z{oh-(Hdho@Cc>F2k1q-mpR`>zN+D{$A`Vx4%ART20hW?)!;4 z`(fF&Fa}P>XIZ;m@p}FmhyO6i$3!i>Yg|qNTABO4Jg-589@uuSaRXN%mLJX2eWigl z*cwy0AL7Jw8eHM`VXIKBrQ08D|UTLAhOLMLp^L$0n?ch1v zx{DCMdJ{YGY|!=Kw^smjVt|8uD+|s6h)RMK03pB;~;Quhl&-y2xOT3ql5JXme~)XlZDsH|-f0Aq_cbrDCn zDFBVokm@KJ+w~n%?c88?i&js}u?5S`SpYhV4M_m{Y0Tn&Q_sghYS{}BV093GjeLWm zlsVm(`|ejH0~!L|v;Xk+i9;*31Hj41@)b?308$WQ0C4~wghDb@QGDldJk9Q$*;C;+ zK~Pl%{DS3XpHq^)q!qa>)&tN73r7I(TXB$t53NrF74zOyVF2ja|2($mubaD_nxN$+ zl1PF5oc!>>-htPX_eAapblNWkJO!YL9wlOIAZQ_=TrUJj7jeP7pdh|#O7E=$$MHe{ zq*MNL_LdIBS*e$+%zNk?DF67ir~|D+fTJ}Eh)#ns{Q4;Mao9SLf$vSdfw^bDaQalT`sxL3 zfQ(SyAH`b*UdxfIY~Ui4!i+>SEdG_5-@GI9&oA|S4MH=ZF+S@}@Lop_k^5Z+0Ys`h zM3U53FaN%Ry16e1O@qWImVi8PHO>P74Sf+z4t*380b4p;+dgA6{~yq~3Phf(h`T2a zEURSHe)Yme#wIA@^fB+s2TdaPf6J$TNe_Y?u|jxLb3oa#c|Y|BaWmhnOO(mIti%4( z131(3G7J{41R*Wus?D8|Ad1V#l2e5Xtn|4p(0n%%Pj2RG3ue75Umhh*I# zDv*c=x)fFMYYi#jPFr_asbz0Yr+aCqF0bS|0~Xon0{-(&m2*XtBl4gzO7>scPR`;N zIdNzJLt)`YqI0q6yd)Ms=>lN4U7K?oSxf4t!;sj7_2Q36(V)vPE=scLZ zlv5Fagi;v%@0|!TYD&&20HApye+$dco}7cQt^lxv*Jq9lf+?JYK;ZTJ-4lS)x`keB z_EnSY$hSba9*iDYnYa1~s2Tx;4g(7e(+H0b)Z?v;@^m$CsmG`TO?c@G+8>%WFI&%V z+>CY`r7`)<^i6qq#NElOt`gXvpmjCPo2Vv5D=SM(MNvHeH-c@)CF8nve;^D0)_Ze= zqwxa}kaL}bCJfwUQ zgu{(#l)aoo3yZHxImV0pMeU7UUbm992GK(Z$Dd1(AMEfxO`Hh&+OUcoqFG2T3>*b~ z!(%j4{rLx$V%%pb5Kgg#BK<_p?;ze&DOx&NRMwgAbxw1mZi}ef>r@(%8M7YFTu)rN zYgN>PJZf<0yjIPb~-v}~w=^C|GZiwST4>-49=X;b@!b|UU2Gl}lVrAQY+jI|mL5#UK6h)w(s@u0^Pz{K0g;NaXBR|j!i zG(-lR4izBknN4WA;JpHowe_b;=cOFI2f3^AR|POvYDt(^&G8kLRHDOd?(w7F5wPCV zNT%Ppp{s4ZHlYA|H4Ja8B;ULE!dktiUbm{ZL)08}863X?^yG%`?XS6T#YNKgeV>}> z+rE2Xu4jt_LajTVw!z3Z7N;hTWMtp9RM{=%?xBFy^us004wBg}Zhs$-=yGYYv1X5H zTlgu3r+iFh9X01tt-rqWE#67aJ*H#n*PwEY+ozWj`(~WluXI??>l^40n6LX*q z`8EYPcAYgHNeQR5Clxqfgy@q=!&^nqA2^OW+DgZt)${c0>>BHqjERd*ES_pN*du)G z#oDi89m!PkZqjFbrfc6*-Td|F2C7Qh8auuECf{PPIElyKm|pan34=t!veHrMxbHFJ z^X5Y_JlEydX2OQu<0-GK?b@C_l=Sh2MEs5`UhQ1mzEnuP>3E173YC?P3_wn8dBpL1 z6EndETm~NwBv~Kfjqpyyg56ObJIZlki@fTWFOQ9ghd;<=t4iM<)*8PZJpnn2a3ZcT zH}jaOyei5{bzhxRb?hSokBsc?OOub@;TZSrCzXiUp(f~i>Z5u-fp4W;^TKGVUTLN~ zZ3S4JKViqI{OT%vHbrW(CU11tbG>8%X22e%q&xAE1q^Q7Jc~kQ$|z_=7qqTr3ROAv z@7SdVBD$l{!joc>nA`Na-t&ESvd&nsno?C~k6nA5tI7k8WqU|@!0{?>y7CG`&iqrD zQ$u-4!iW70^mEwSJ*bm7&1{nsGsRhT2mU@bY1${|CgtUNQo~cvnP~?u8jKIaamm$s1p!W8r2A%pSW zAvR+#BNIEAfj00PR#&+t%F!$J^zxZG_-EairAgnJGwplLe7Fhs7KgWq2BU)y7D?CA znok6huV_*1{_|2-qiy<`&vMFHMw|3(xa?&AA&Zo;uTT4SquHz`|kGguk~eQffaS zXU7M#dJ@L(@iLo7tC}f!2}vb1TFu1QhKX_>=X4>gXRauX`9rNkYq2%y4@b%{%H(6p5M4UR%IVJc7rsys%a~k-)Sq!4A4t$$CnYk*{uy zl)K*w!XIOa7BXMuA!OHI?MhPa*-I$6xi1km-+cmgvOrrfD@$J)v**5y9(H)-eZhV0 z${krgddLEcoH-4N=BQe1a*kEGCFafr03QmXjCjEP?vHWiY%Cpib*tLOk-dSH1ystH zt|vJH8^{6Z?a)E#9hl1Ay`Lg5@}f9gD2MvNaQs*`Chh>qLgL2OOxxCp5*hYPh#FtY zN8e(PN-Bq7q}6y&P)vRzHoilwYv?+B^8R*#Hr{qtTtR!b_(W{_8L)!m;l5c%$u_Yq zfz5(%1x+e46>$dn434;|Q-oxGf9N-p^i+@wI2Ums-1cy>aWfE{KHl{g?-1lvy+*$K z;7)s%DyuDk=$Y`h%w#ehDq}?Usix<><3_dUNA_N^P|Y5{NQ_xLNl3p9uEOhj(w>mx z$v`jFcnJ4fc5KU>>@(iwMQ`$5)J0WHf0Cv>sNOktOJSyhkJgTKrp)vYxnLefjt#lEr{> zbqtg@NG$)35dRybtS}c7pp#Rj8L1%_S5S`SWxSM>x=<{O0WB{M8=+z)Y!aI37ZJg@ z7>Pd7UHX7S>LeOdWmnMQ&}@O)abY)0WP#JM~d0Pv&tgHZLm4&{uw)LF zm74!vLpJK}Dx0`hs$+!b=d&y2Qd_BRe~%i&?fCa>%d9oRm{AVd!R4MAe^XuE`bIta zd?)>1C1R^L>O{8)z0`-PRXLP|)5>^)MR~X89<(-p)PmY-F^MuYWh6u52xk6vA3xV6 z`pzVpG>SaRn8OQZYM%31Sai;AjqcNw2=}{)-7V|AXtlVkkK@HNeM7xYnO05U5e_iMyW58*6NMBi@_0HQ?nZpL*3KdWvWKY4ZW$>llS#Yto>(xirVKeT?_Liz|MB<9$h3a@ zMB`%tX+ak*=s8wN-wQCdy;Bh>ZxzzC?pOmi*-PLQcvU2dH0Fz=Qe!@yZTz;(61B!3-_^Q6noY!u^~Gwc`eRKaSNnN_<&tgk z;&gRbd-OfOC#8o-`$TJ76PjZEru-lMNF*Lz~xPy^U>7fwXTp-|E4p94`&M(pLK9_ad1C02t zi5aKG*=*)C#G^NR_Cc%#zN~F+Q*^^b#SRFhwJV0uXj-(2tPu{xiF=@QvwqaJ-yY}V zO6L&jM}pxOhmd&jU~Oom`vQjCF@hO86n`ww*3x0{^!+k@S=(MhOJ6aDrW@=QXLPH` zvLT9G?cSU)W0ZOW*4*c`+#g>%R9rSEvM&nnsxbS=4j3bKX4%!E&5A4g@u6nD4W*k3qYOBza!8MCof(I8~Jt zCh}g<8aS(H#f2&_&#EK|pUUNxZ<2R4P{gv51_DHuCk5B14aNF{gAWwiDQG0fyA>9( zk~v&?Wga?H(>_Os9p%OO?ki*4{9bnPhwkLvPi+k1%L93HJSU^{j|C7vBkEQ1_`>1| z>@TH_Jw?z^b=xw#qNxw;+vWg+b?RAW%y__zg~cSz>=--Z+>j>>8S|cPQ&YBOIBT11J+m-yi3`?KcKH zDk)XvX9k`&;H+k!M~g@j0=#odAFO-HlxWo|PJ6}b7wi~VPHfswI{N3)#)McrLH-0l; z0Zu2&h;tQUG@VG*H|<7tB~_=7J(3+c;qK5piSC1i-MqM-@GmNae`@<{npGF)%5dg} z8t;I7gyy69uSYv-rK45MlM+?B#%QZ~ zY-7!>;!3V-YmD}7i(fKM4{JIyyd>T@hAvMz4J%?L{mwo9q@l8JW9QVKtB$9UeS4O! zuk!bb&8-nM0A}oaC*Wz_=>5|K5`v8AfJo?SI)~_Jxk6tVKVf#1U!GyF?8f!r@k|My zg_ZObV``Z*1@b|w-Yl$ff?;AzQnfe#gXv4b$1cubD;@o%m0Z*J0&HsmCTym>5v9L; z=Y{ol!dYg6GSqXlqzC!uoqGlMcW0kqYtNx7RiD-gDoype?WpLuU3tp)W8KY~#GvPO z;z?$*M+6jv&s+CAR#R79tlz&5`1l6fNTrFYnZ2`3lu2Gy37B~sbz-^UtVSOBr|Y79 zp;ZakHg&BupWmjKG&u8i>s5-hoK}Q$^5P6rXmELA0+3nKYm6tM6&CNqYqf6k)e1aN zx{az3HeXSG{E-7Wv<>n?SMB(%Cy==o=JGMbnXnnUaHPvNGAnJerY(>$re46h=sZKk zyEOPf^~mdwgXEI>L(ntTBfcoqM`XW=XiJYbR{stT0l#y|tGKgg2HAQ7l2d*5y)H&&a?q8X@i@t;_uDs;w?3~EeV`6+X(hsLD~-`L z438`BwpKa>-CDu}1>6PJr%AHB-^I*yBiWdBERnuKm=t1gTNuzT+#m#2I;xPFPm3f2AU0&l$qfpx5!NwZ=!d}-pTZ&}%DcGSBZzt>`>mqeO z5I5>Y_xb@GlZj@t6X&=cd*6l2W_@1b&zJ=Cn6*jy9`=_Em`d&iRZ8Vjfe>;0yx!Dj zUE48}u?o!f{;IwRu{&3jGt(Xz<||WiLIHsb(+oG#qO5^dE?X+-H1mwfZ29Zw<~{^KKt zpdMtYiJdWQ@r0gSl*{gdE}FV`aLCjL;Z87_5xEf z^Ol}g?a-w^pf$AE;22?E!>?3MWDy$k^c{2*>A*n{!;#A2@CTvRwe__XG#3Q% z=J+{vTga3h4&1eB96#mUcB@m%QVt7jtTL4jG}>)EVH&Upy7Ghyco2u!Gz$bCk$tzG zScFQoV3%ixutKM;tk72Rl$D7`zN)ugegafZwhQ+pAEl&xP-phpk#^2L!_*tUGEay0 zC#JA9-~R1}?BCW3UnJAmY6Y(+UsaBBS_Srftdj*aghvDr?W8F@jyHUN_npwSH5ecy zQYn!!U*PdhTaMnvsKRcVXd>3>b<**Zf-mP~?N%4(j+Ccie~h;umhDhYUkgTwjjfMe z#zH>kt8GQx7F^9TwBm{}A7B#~GWa)Ep%ogPPxo5cf9>cumnzWsG2p~?$VffgE;th2 z=Scr(QWyS$Kpo#@Iw9IFnB(_SjAQ{TNJ6DaapyK;1(e+~^ow^DHFaiaL~ecBN02vipDP) zxkvJ;y%zMR*Zu@rYVbI3V!Ll+vp@2jfu6kkXdABvjz?%>-fO}i$oQW6<4qQMA%CW$ zuYRJ{sQaYdW%K~4?fGtgHWuaiM$&3}fNiq=ZtM3B-%8|dSqIfow{ z;H7h-Af9kKix$cSD11iS;pFYSlFy!Vb9_}=3|Tp$?8n#tK*hXp@Zqk+09&9HR!?`>;Ne*=FiCTU)Mwl`AP05~8TTG&1#K?nq_ z4J$Z%S|bUefDm`Go6-_@JLwGZPo=%>>FYAwJFMQuge@Jdoh{5nwd&a3p;!H>R_*a4 zbk`20vOdbBShn)=-j7m-vPb0ormO=?G&Zhp`*B9O6*m#idYhP?BAlqQQ#io7=ZfD} zMC%|6Yu4K~U)yadZ5@68)3N%=Rw7U)khozj7!VsD=0|`o{m~h-(mj1XMbE2)@^;(W z%tE2zu1NlXM7J*o;+vl)vWP^msuQU}^gu%f2bzvqnRR6R(A*e-ssKI0kheG6NuxIg z>IE`TfdwP8RlJ%z#y|+>pwP|w>4y5Y{t)$=7lsd{D2-3@wvw4_@=5^dQ@h}Ef09TQ z&`6`&_Fvo~F9`P^Tdh7Z1srIV-D#Ek2+8sYFY$!dbg_#34Ru{q!z;S-?>Pg~pflmO z*p6hYnj-$MJGaUsLhD|30YC6U=rW0WcLx8RipuT>R2QHAJX(<`cWZiIf58o<{!7pd z5Vx_ie9-#A^1YS~={xMAzz<+rDIkG~5DDt^0{P9sGNTO)2j;3&_g49> z@_q>!4TE1yV0S(j44JeQO-S^T_6Qis?t5_%1}Ee5{N^mQ^#`5m8@-2R?_|D^Lyl5d zi#$`|GbtoWz+NNQqsg~^PN_l)iW+zmn>+29XS=3ubZ~m32fkP2MN6UO-ray$V!YK_ ziWI?I-9-PObEz(OYzXTfZ(3-+2GtlAG$$BK3LE*=9L@E+7;JWzyTpE)Ob=2P+znG6KO4 zC`ZBlPvQkhX$F)=nE^h;hobqx$ZfO9lzWZ}^g~LL8yYGOVj#{;PrdM5HOw!Y@jk&Ep~P6Z%EJRG=^q#5Cv{iiabEP4mV@2l-%_NauP0UA}Z*-HB?Xk~@tk)HF}!Zzn0rn|Ui z221za(F$%LB%SV`w&C@GoZ=$bmG?3hCIvtors~uwD>rU9+llbFV~H%6d%#8Dpz4(< z4#wqeUDZj<7s4UGCw1epc6p(uM1Yp{8xd0<1GM~B^>gt*I0pw+s>tbETIt_Do~ zD~l6r(_qefcZmHBw(^r8J)PB|nUGS5>EIVdWp{xGf8AgZhdY11i}ZZ`z%xhqT*nVV z_&TDg^plSJaNbPz+chW^hb6EL?BT>L@{RHKwH1RyKQa_25k0-%!Usi076BU>zmUWt zw)I8kXGP2HtNMHQa4qiR^?F6iHv+2nueD!$`H0dn>doWD(4pqtMVey5@#0C(lKq}u zHdPdwxXfh*2VYDSznYu}L}wX1%l#bS^XaH_cD%~pU6>aMgBx~lnOBP*h+;gRBSP#o z{v>^7)lnt8r}nn6@_xWAHz_F7fqAL!AW@Y!HbNVIAKk!-2@H!iXd z>N`W`FL2ST2Hkx#l8Tj>D<|=%N9Q>{9V~JLq zJdv%^+*_gYihL0Ph(-EV;Q5m(&MH*9s$A;Ho5KDL$6V&tC?Gh>oO)A�zT|sHx&I!in?FZZ4I#S$Ty(sWEI$K(VFufo zD0f}Fz%Ow%s^P?*3TuhU%nrYEBTgiTZb?8GMs#C@iPXb`{fa6Ey?=QN9T9=ljU4Ah zx~jNp+jz#p#u{mMawYr;+v53NrQjq|VVaK30ZjwEVPXCcxQsK^_xY{hnSk*C+8I)2mEDIFllbrJ32>689P<1bs5}T*OkV2}Q(P}*{Qpo5g5av#w%YCJx`foh=X>IwS0TW05FPX^_fTMTr;K?;bs&@y&#Md6nMw8pPq zTw-RueE^hlCI%&qnm?gJ{!`+ulRfzhs9MJ>y%ZOp<9g&o*EWZ4{0G8{c)lEg8ZvP!u^6 z?Bd`fhYwE3GldV(SqV18>Mu>$EZ?0~44=+-M$%hi{x7kQB@{iavlmNCfTE(R& zi<=B2G8|8w!&fIT=mkWetK9;q%=9%7Q}{g-o+m#5=4G-1K6npDvQ(M>6jMaUmfL8i zJPOwDx3JM?mNBCpWX}~lE-UkmINzJAp6pOh?F$nz!SFYn2-&2y*ywxlULp*U5_x%$ z3nsvg73D5HvTR-jDq#Cn!~tz^*ycF-0J#kvS(o6iq zeDx!TJ9h8Horty{)hF%;KHF!n(`RgzavMKG^Z{LU>>Tzva#>zZv(yQi;5`6@)bO8< z2U?|)mPHeH>|JcMPHN~aW0Jq!d3yY0%trK@g-(}~%IZb){gKUQ9;39Y<3muIFsJ?@ z&*w&dB^d|(N)!amxGn`9!kAwlEUc1iN^?DNJT3663X+cVH`ii`jVr=>a`M}tnZq<~ zVBP40Lk`_ILWF?in5G+3us#!J`H3^rNUBN*AmQjl#!f!_Dz6ARR$5#{) z()PBRHuPyW0t_hh1Ji#IVy&C#Y)x)l^x0I^0@SQRj}34?y`W(y>>xjz3&k697dO?& z7wZG8S$%+MMgL>5?#}y1)mP!Ms~OXvyU_i6oj%0n{Wljio*c~+zZ&z=ECuh5C-W+P zmXF}h2LUJ8kBFHW-VkyE0fPr6GZXADj}`Y)3OovERh;O$_*LK#2ibvBsQG5G^rFMBqI(4lM4R*N`T8fVcTqugI|oX?|7NL|eh5 z;)`Cpq+fZRK4^j0=W|2?Cxt+K)F_sqF--!G%p>MhzO7s1qua)0@X0}|Wanh>MYbIt z^-rMxm){<_2|b&YjijPG-z^vK8#$3ortf~WjFnEgKiCshOvU3R4|GOoTp7K!kYuk8 zKS(*R@;>R!`JgqARiz+gAUe0)K-LbY=+!W+KVxSVljwF63mdTOS z$P(yKy;9=c96#IS;Uc2))zfZ!&F z-Z^lGvxu#`vKOZ3yojBohOWpD8 z6J(xPs++#o3{?)4znO9|*wRDRq2C*~^8b+c=3z}`UE61sB7`}}JWn#IC_)fqGz~nJVKKEXGt>2xu$Y$M#AX@Bx$d(97$gL#X8oUwag7Zzg z_V&KGrefT&#v8)qy?p@6*}EsSIvx=@>+$JPBjypl*}qO9l%fH2wjgjGvvO3~7W5p{ z>eq`+{r!e19{%aD~`{^{%8d7Cw!uo`BnX!Om`E`@VTJDL&C}>5LlP zNZ__H%6EQGqB|2iflRe8BHA9|BZ*f?}f(_?ivTPrUY904bTqo(}Q*+ zi2H6&b=~$5#w*bQ+tw+f#m(}~n8bTykCMwdW=48DKR++!VWdRwD-3bl>1WQQTJ_{+2i6PMMXh|Ij< z!E)01t|$f+y5_M%^985{h&je-2yoc#=pX)~gGG;<&%LRc5O5ePMU7NF*R9HqpS{S? z$m(46?p~=Iw9qaLJpb~TF|;__Rj{{>ce2U1vef0CG=>cPA&a<^1#Q3h)-xSRwGeoMA#pcD&iaUKY_@%)j3QRkC+A5Roblj0o z>vB_R*#>=3+<0m| z?VBeQ^9ukiVK|j1k*iu_g~-!giFrMKtw36o>Ua$je zZfSX0)T>vTmp^E~posH{6Gs)+@vVf$&ehN!!_xu9)+}&qnbgqeu7zU66%{9N9GXZK zV#hU*;yAauUO7wh3neAj<;h(@c04=46g~0muy2>;ZlyR`*@{3SqmLq5wGl6IK|wT% zOt_Dd5+8yZZ|uaZHK=i*jyfi?vb2Ng;RS+P(!C3N z8c9iSo2KsaXZiCRRQH@j5&a68wW+4`7*wCaoK&2IR5r@j*I&f&*Cse7egi#qMgvU7 zQ-l_g(=f&3lnjc5LSX`%$&%_hi|3~b7pVA!ADiCg;Z+!jD_aMh=9nJYQ_kbX`d_zz z&HKqIW;tVlmB`69@;%d((Bd~;FVZXGKOo3oCxZ7`*@rPd{fyc+dp+;wIpB$cecN;6 z8nJE-AL0|H&|{E&`G}d7*cGJ>ZE9uGIXMe4+s$A0n+bx9$tZ&;*#)XIkD`GV-JVT> ztrp9>s_-qX`2jv2C({RIma7xoPgO2NWf9A*Y$^>##U!@!F)yPTh zJ~lEDSh-=h_YqiS$vG;_@(e0#I;Nf{CPoLQ8)L}4n^$B_<$%=-E*d4htW2L7bGC`g zO_kRWoGHL};Z!5I0;2AjBCnOEl+N>?cAt*)T!jXwY+@qMwtri<(Xm$9w}i=P}@aFjb$P74WEp;>O-> z0%%`Bop2Ha6_$Gg#t|eV4XE|B%VN8YK7R2FZ7P74u+Z02v##GeS?TFmn0);^UNsug z^k>&tDUcF0;W|=9YnNpuNOctHE`f&t(620cvXy|u;-+4_sG&D?bZ*|=3f33~;pBWZ zGRx2;#Pq~q#?4z2;>V)taT_)o8VX`v=vuqm##BO&Nd}+o;59otpLl|7eO*;^Rr-w@ zkru?+OgI4fq1`1UTqPgNU%|&#S=iZKf3$&)lTfK2ME06b{VUM(smTAhmMzS@`klP| zzF=*=(xrQ+46s^+Sg$&qh!z_s#-gk-d3a}cQI`k7$d!tjGEp-@!}^1p$tTjYuM5Hk z95e4OM`(?kOXaG6ingZ?1}B>pswd?r7>V3mXdTl&r&0R$w~yFnaVKp_p~Yf;io{dT z!^A(xp%uBdfk{;c*9jD|lZKpu&DCuOJ$=?FVR)gAud(kB%=$ZuuS=D5?m=REj%w39 zN_^>S{VgphxpHOMy9iBTZ!ifAJv-aUlzfq$bIQ+T{bhYXimzSmbiR9&jTobSdjDCA z6n;_c1ZPw#p|-lhTh{T)=>~pu!F3a!wRk^T2=+PnV-~xqfCkZ+jBYI%d*#(xk+bh& z=9$1JPzMEYQSxcuiGlr(=rqzk<_0kqW}GTBY>(A=*La?eqjt|>ZB(-lh^Jm^deeN$ z#P_6*Z2XGkC=?jatP0KXC*V>#?%(A8@n{KW6nuIT(1rep8;A>pASylXbjd8~_=|gG z`xfAljmxp9Pv3t1^VYNJhf2oeO)XI9Qoqvwtd=oYF>pls?4btTFJlK5qgFKLVew4| zznLW`QSed~)q zs9f&`D5ayJDOb~6c~aB<}n+9fvE z706OOQtA&cxrpp)uk&VwbLNeCojpfhoQ`_SB*=EuKDgeyYuMniTp;Dh{vjHT(K!Xg z!=$|m(-v|K+QN^wwVK2JM8V2{##v=wr2<*5n-^~#OQ-D(*lep}1*U#=w zbr3EOiKBQnenxI@h1t1rrfSQBEvOo_ zjr8sG%1{B-jaOQ>>bC|$cpb0F!D+dgn!D%uDExQt=A|AN`BLpaf{?X88_K6Vff%jF zk~@bqm1!pNaXuVuypKc#2VcUzruZz?Ves1IbTt4n)ivm(?-2OZa94;m&qT=jF> zv^2b43>#FX3H^D>)AvL=+1*@$yK$lrSrcFjpkyE@n#A2!Q+z>fD)Shf2Sx}ZUfgfudaz8rhJD_&d3Gqm{wy=qK4ozU`|zsW z!;pYAcF>EIKhRm~r%PVVi)Dx0oP**oiO4y)MSj-Gxt)W4e$&iUZoacLs`BT};a9|k zJGumEGQ?PBec7WHfnzQ}?Uh$-Ucyq3pl?GX5ac=U-KZMdEK>Y_&-~Tx@=ElGRgi4N zaFZhhAKlL}_8c8a;T0aI&4ky~(3et0Zf$Oy-W@u#4&S^DJ7;Lx8J3|+UT)*=VSG&+ zF=wqQ1e4Zxtva(7jjgP~F&N?e7(U&{hJNqNTPUboT&pSFG^T=Vpl`W14%L4DEs*Lo zJlLrIM{dFGR1t~f-Xq;!6z?g`P%efY3iZ{nr8&5K_xk<`-n-uto3CU{uR2|bqERqm zCprUY9PV&xs8?ED6n4^HG!M)txNH&_W)DP+UzVivI_`aZyH$498cUzVFAYrOv@x@> zxQSxGij+Lo&9Z2It-6^UZ27y54uX!5Lz9Hp~elrUU{rGlIW7faqT1Dq!7h43@3Jh zrTR5$ufW-#IEV3}M2K~mUD<0V2UZn2@~OSs!Njg~D5~kXkHi%0hD#y33iZ5@Mf1P` zv|R1(!IpuHJDSb{m{pcg?`Jm&iCB2((41a9*;S$}FRaSRCZ@tGFFcHNlA@TAn%Agq z$`g?~Tc(@&$}9iWHVyyc%-u&lu!Poi=4Z8+?<@^a$GzV6$%_O(PQsR#oy3gz-5ucT zOoCzG<^9~xu5HWFTjA&p+g>`9D_rYzd2Yc*Yi3zQ?OblbbA77?8B$}jN@^!xX@0L8ACLLIO&HbO zMib6#xC-)=n4N1*;tTL=S9oMuRR(62b1yA*C-0j_V<)RFrPqEGKkr?a>Y<cHM9bry_;!?S5rs*Jme)p(TV$aoL zgVrz=czTX)Xw_i)-zD4m(MBto>HP!8ZGIypS2>YB8^X??O|%I;iKJJKfVg+~Wh(us z$NT)E1{my|x`7B>4>%+UBUj|LWGFFYSUS;p#8Nm!YurttGVzYY@a>=JUrpo;cayX} ze7WF0&6j*WDCEoQnu}%pl1^cnSet%$DpvFMQ&Ni8n{c0o<9wTUBB;&+$wU!tyexBf zlca}o(h5FLMbD>EcCDdF?8*U1+iZ2vNoy>)VoK!FRr^(mHiX$k+WNCcuRV{WhKr1M z?$I|zZdUQ{RDqsX8uULJ4-Q(G)cjMi`$3L{nXQ#-}h(pgWiZ1dg-ByGl#<{|4 z8#eODVn8*qfdIuCokTDpZ%?B(7i4T6~n|q-C{!#xj@EE=3E-M<}8NjJw zt+EvuF$xj-HT~TpnR0e=7S>J6D#bOoZ{LpCvs9t%4Ka8QyN_pya!|9L4Y8o0Dzu51 zB@om&MHKsL+eto;wOQc$kTzAPthxM0*6b4-sZmtT%hYztrC+ZMXY0iCOc{aD${H^u z5G;{eB2IK`$)$ruMm~j!#<_PQ0aS|E(D>V|`s&yaGIf^@jhR@7`D|ea%;yE0Q+Rlp z;w%28WWOEhj`0#DV!?r7MNwR}|&SbO4{EH=^snK2-@zCftQ?gR?u)8>LbQdw+2P#%Sib8Sa~hiI z!9~E@+E{4!o^p-dhOx3Oj-I0BioU{`>SY_1l;}-E{G%Ws{r~;O^O;5_N0l(AG*Ck@ z6I}B>GbpJ9;`w#TayIkQ!f{Y#$39k*6_nq?$Td1IINi>wX0`iARi`j2(749OHfN+K z<+P=aeh+_~P@#XRqR0CGf{(=eNp0J|BUEfbfc{0O5dB{mWCVat2-CkvLR+MZ{}5#K z7h*|t|9=cJ+Ir*G+1~;gnf^t2Li|mK`Ul8pi|w@aG9v&x`Y*iEkJtYV7x^0(^6x=L zf3czd3FvURaly?wE7?HmdESz0{Os|9re9y7_tz#M+FUc8o$ls(K2dmFV~yb;JrBch z>*v_#US9TT5#xLE{7su_%iHlw&wheme|SlG;{G!+e)~s6$9){5pYr5xsW}Zdm!pt` z_mk)5v1fG9?IKrHTVIcd{Sqv#J-H?oQHNHJcG*n75@kVj=@DP7!Yy1m!Tl^DuA_;o zK!n|u^*U9W`Soe_13`sr#|ES|I~FQic2M?3D0|R45FYfeuG_x#5#AJeT}f(2con?J zj#)i<`OsYtgWG2iCwC`_;-*J4O@(~!kG4e^-zgFIRo7+6#pa6zk2?9u&m8GnAf3ZJ zwz{vP60*p;n0lvxfKFKtf!{C_gNYgDh@CBcm${*hU9mUod1PXQ84}z^Y1;Lm%JzD) zV$+RNyFTwCEPZsm1PUu0^QxMCU%dJ{R;fJ~#VXs6-k63Xoct6fgN|u@fdWQ(Z*{!( zT@AgZf54>YOIsgjckuH5-+ropGxG7@^gq)r2G-V>_)lWZk1OE6_09fx`+t{MbFuWF z#F}dYEB~%N|DM6?U)^8%~GWRT`Ucn|w)iO(sfViyiL zyKH#zQVjeZQ&0cC{g3Mz?SG;oTfZXImozV{k8he@EcnH9V3NG4!YjpUi06kr8FMs_ zO!3J+7_rcbNmNi2oLByy>otK%QB}W*vrzv05&d4tR_hu<1xvZ3+LXP!>7GmfIa?_( zGa}%V`X?pn@hb}JDIEM=k8CF0EL{>Mm{7#8bW_n8LnExdGT1xN6R1(>3$rv7k~=6) z4?(O(#d2q$RoWC{s9VrDaerEs$EZ!(iC7e#=i(pP0qF~hx|dRv9iCd)_u)^e@V;#9 zAFy(W4T*rroWR)W}?PFk8M7k;LG=ErwdftlG*CWBGow+iz?#DYIb=Qw>Y4W2|)6A#00A zwu#k}_BjZ~SFV%mMn3j8vS(8wAv|f-V=xteGe%6vGNCa__Pz8}ZU-mTHD+YHuLn)6 zb8^J8^zgz6g7|Fm;T<6dSXt6{xurHi`pT-};>!0u@q~$PK{Vp!cDdTLnt{fi25mmR z`OD3h5D^00xqJwE{Rg+Em2%-SJc84vF^0q?E956{bI`a6v=U7qICjzmYC~~6KT=br zu}<*l6J78gby{AEu!K}?F}XG*K$*bS(dQCLJYr#3uRWilOUDuxX0OAF&_LxirS~;5 zXyYtq4Z!&ytaLmmcYM0IE@I4S!82MJSA4ZM+n{>-v+6nvT8^IQhan6eju@vFMree` zOFuLj2skEKW0O}4)qN*n>P|nv#)txvCc>2I7SAtj0%xvwGm^NaE7aB+C~P$ z^yL|+q60Ut#XHyI!ggZ%80`^$+2VnV8WzSbrW|XZZWjgMJh&M}9e*ELBSN9IGC~iy zp2$O+P)LN-R7t|9oQoylZe`dL2`@PAMK9n~iXuc08lFMu1E{syOC@!grMs3@zz9ac zM?@W%wVYNLy?8)E>O~1zb+ZxoK1cZc>0Um2Cw-YS_r~kY&3U;Z2U+grq}g`2!Cgo# zU(F+Hjm)@B$%B0Eb#a%zJZiA$bdcWDpY4E!9eLg;z$ZWEzN$A){8a4O>@W4_t{{f<-XHj~KV`!j@(v$Pw_C8eH_%oC%zv=1yp%C zBr;R*dKMX()i`liU<|EIJR@{alGa9vbT+oJM#>dl^KDV%IS<)r4)0eoJ;61joE)sD zrYDy6V~;_TN{MKk{2sv`v`^_-`4*q(kTd@p;`Fj{$XmlZWuHal_a0$iqI*cG(WrGT zS5039JL#lg1UPl;6SNE6wTE-Ug>Dp=&Dp%}x+7qtxcrMI|6)!VoZOfH5Fc`9BBuz; z6$o2}nfra#TT)x{E49SNviRETT6y?c?@O-b&xVZ6U;5}8{=sCC{0iqwS5_K^L?ZNC z>_F1EjUHbBoU{0`h0Yo(eKBW~YQHpZP(0T^q3;+-XssM{d#&PzNX*tWu=_RjjIHx! z>PSHC7k!^ZK>L6B!QRQd%1*EUxpA8_Gxn%#PF8Gt7Q{K`v&|=|V!t}hR76Eef^Q8= zcA=sj{SimzD+ilB7onK?oDRWatp6by3*t`x;%-!%$ArXD?Ed3!uC%1)$0qSQC1ks_ zF;s9@cY>eVxgdk1JsIms43A?UE~Y8Sk|t%AN+3p88JqDzEyPFEdk$ps+L10ZI!0Gf z{qw)XF317QMtVqi;pP}RrZIqRVv)OdC2-8_vGt-(t$g**`)O)> zqw4x4*Qhu)3o*mVu!;nZBhIiD^v~^(*H?ex!?{s_$cMtk#ZaMey|WEHdOd6mcfctI!#-0n*CZ zV_uYKG1FQqFlWXM7)ayw4=Ola9PzF%GQdSq#MH~WTSM2dHU~$T1S~L=J<@x5D)*N9 zqRvk^y9??sR8u`V6)T0O{z}i!A3c9Ds$^i-hbDbJjkZ#j*C$dy;jyI;YU9VS-fw?P ziR_)njceRdzZ!ZoCnvh;er%^X46Zi*VZ?K%Yrv^rQ{7(VNY0yRT+3dV=SRN4g~+)b zKHf2eG}O{*s>h;AU-wI*FrSJZHs-G8WlZ?u`G4k5DV@jQUcMYnzf>F{arCUrMD;e! z?NXhMn}?*Wk+z{)b@kWRst2t1>v|^AFBqCUb79PyjX!GjD2p&|+n1Gd{U%-F#m>)$ z2K`OA4g$f{m5*Hs&JtN>K!4#Q$?nfs@)` zqDh3;n+o5yr{y*AvPS%SLXCv3=Y&s{HY3|DzYAIAU9}joy1z1<4Zod2rVd1%=|-`y zL|lHO<#pv2Vsu16Y~ZJYivErhZ>{i2Me?vZGTA|^?rf$LX2F2i89-erP1lwX&{!5v zRt;Sp5B$@+;=N^!PzpjJWx5OQm|lOsj%3=ov|*USsSjwsPithWOxKVmnpYavR>bUo zm%OK{S@&=kmuqvRGSPFJC{e*XG*!OOGN6{Dbxq~z$G(nbVQ)S6hHvND*EWPO-|L>O}xsVjTc5=Rw6?02WUVQXQ&xzCNeMv%ZV zz6{l8be>;wR8bL))1atMJ|NxM&PJ)V5qhF=N^)FpK^4c_IEAk_7*?-`gxA-?O5=7n0VSgo%H(EKk$we8U4gKAQ4 z2MwfEQd1>UW#shR&Cg6LO5ajj7_ae31H`&GwC%|d`Dd^(&}n-x&}QRyd6DN{GA?cCw9c5N*CZY=>AlW#6T8zvDj2Y4;axc<@faUwe-L2LnZ2K7utk zL|s{qH_yj#7dW>1wChn1R0`S%pKm1rME?|jO&fKv)0gZr;!cAI#kswUzKt7bbF@Bx zk3|TAb3CoH!S>^;p9w*l$E^Q8g#Z8i{Cd#7K{Ne7JRXgE7e;SH3vILWTC2zFT)c5K zG1SD7MfDtxWrq$`{;}Aj(zcmy&VZS)F^gr}UmNd8k6!NUF1hrNxaUVjl#b+x-&C0%+$7w6znse&)fjA?0YLIL z7el;Pp4O1)nZf!8?#I5_Nop-&{e^Ah{4Rfc2mm?jFGB-D^87wO)Wy!hipW-2PYW<==+?e(d1?7$kb` zJ#cB}AiTZpB~+?8|1kLH4?Q(~hsxbLP7-G+!dhKBHTMb0hQA0b(MD$TDP+$F?|k-h zry!y=aDSa**8OosLtlz2)H!f5Qe~7?AYb_65Nd+yKJq$bo_j?5R% z`$_4m9MA4Y{@qyrf@qbAYF+Q23_VtOCUCG!AUxIm?Wfb;!G99|*eH_jJMTY@zdNyK zck-%*+`3FjMpCqvOxldkEzkVnn4(2?6o*^p>lG;XO3OJf$bId_(9Jrt_I|zj2RAZS zdcHr{kLI`x?^>acTP|CP+C&MtX7+Cg9=}XkzxXrjwbsuyyYbgbW(CChMAq>oVzrLc zX^pFxOWQa#)2&r$yEI=#KQi}qNq0pw_^IwkmA7lv3hvy{@6$bcqtJco9GuW@Ag$;A z{N+1U&qQ+>Q3gw6kE_}3Gc4_W@6FdmWNz)F%ty=48h6qkG&2={j1bNU8ib1-ISZ zrg}XRdAMm0<-zlsgXfJ-Y_|~Xd~6mJb;R)W3e4?cY3~=wQ}|IkWV8Bjzk6@L(4+sv z!bbaXZXw9Pvj4NFDzKY$6gD!y5MhV+h*9=*M#a0GRg-2jL}HeDvSv+ z#`Esnj7~li*E>$s{oS_I;^>TqRlsM5Jh?}!PkJS#$JQM8{QT~DsG*jzs`XDlo%la@5!<4)Y z);qT#oCdaXDCa&@(*N;B!cKW~g&RYzO+n?g3S7n1Uh+YvZ-HtwYbL!t(_O2&Hbr74 zV=wo12K?)x7t7o9XEtY;Z+$DG7WFo#rH0)iPCVSO*rAWo>%KV#0uU;%v?_iv@;{+cjiHVg6 zSkgVnairo4k}c{7rK@H1XCJg!IsH<7PT;_W8&6Em=a4B;Mb~wA=}hG&S^8_dYMz2| zqRz~tj?O4y9ByD}zlP`k%P$=Q;fOSJaGLtiQ9E`*YnLk%kB)J$gNJtbn7`S-_mGnPDqly)u5XEMBWD{T_+`ZMO{<)(?yVmvadE>6t2KT=4JNJC>h9Hc#>A4lmo!jF|p( z-Q+^vfO6o6xC^^SmaS8p^d7KmDG>i_mryRHNL z-v!G5Ub^|;1@8Y|sQI6IOZ>}~9Pf+t0tNt0dPZ3!CH|_ax`}%v$;6Di5 z1J3*3Ye)a@qUH?|Mg|A}A4l&0+RHyrn;sdFU}YC|5DQ4bYWsG}|KzRuU&89Y|0Mqe z+T{&j-dVob5STwV`+a@o_leWUU;UO2DH-LZ9ORQvR@%;A|MrAsj*YE2lRI~vAhAty z*X8uD@94SA%J2!g9US96vVg5;~X3 z;#c%g$z7~!TH&fStzc)rR0Xo=^eLUhec6r8D~qiGBo51;WL-nzTlbyNN;PZ3`%LM# z2RiPRm(yFG)%JLYlO18DaIS?)s;YI|KC}&Pr<8t4d7J!i*Wp3w59}JWai%psoq~}B zm&Ob4N3WQU|dkIQ~I_7s;t0DV06a9PpryQ{`v9 zm@17)45zy^Gp|#JC)VJ7lR{+DmiDXXz@QOz~?K@0% zYMltpCpC9QF0F>(Q6z|K-Cq`elK_c+_0j-f?u&tp+K~&z*G3~uxCzkW%81pX2kEjZ zguzU9CUnqii=iQ!{~V1mK@5*z%@ONElM2{uZXSnA^k2Uc6?#x+Xbiodvffl2(}rt1 zeo}2Fwf--B7!H8ZKmWGM%cWg)Nvq~U@yOga8o()Vzear@G<1H*P(n*)7+>X9jvXixvJrFgfJs_vwI`>nQHvK>f%$i#zyYOeO_CDWvS&+ zy_o>}f;tQr)8;Zt^%cSjNt($WetT>9jVplndW7G;T5CLeMsN7O+GMKRi&_w{&vCUrK&nz-_`XdhbZ-2^pKW7vD@kS~z^!|S3 z&w}3FNO%~4h1AuRQvlrnR1pFG za%KE_Qd3hq0|RBu3xfuN)|sZGVbkgWfU91naXKCFr*}E2ZGzmJU%FtxJ-g{7_yjxs ze86k2(0n?QGm~48#mt%E=FGg>cWb2ZXu)UC*b*k8&_fQ8p+&T@NSx9ZTNe&K43MIW zNww{4Xmy2SGcN{Q3;-y3i$+b6D4iapl!CA9K)Esjj<%xuw)sNDbvlWJn>R(9J86T4 zhB8^0a30idX`W#-t)EDcbl!4R2QlU<1AK@jfcW}b^YFEWE+AzP>!E<=#{;}H8lj8> zPpgcb-F=;tAm03CaGeQOIqeojD2S*5n6E-*W#|OxR4XgMKOHd&tl9xLm>&-a)%92> z?dNZ|$jV6IQC*#;ZMpR$h;VYYZ_5tb5yaQYfxuCiznCC-0>ob%l?jDNBJd#xz~Ye@ z;v_z{IHhs^!sZqrSp7v2f|7sO7ci^?2GNdL_g-ZH+_Kw;!tY?W_XaYXs&fPeGM@#l zLmo6#yCtB=7rFp)^VY7Mvs(c~c8Zd$VfwMP2Xpd3|^;CdX4yDJM z07DPrX7qFym%-y4dLXN| zh6f-D>9-LolD?iaZVbnR=8K})+JJKntiFFd+=fwY0hk$hk9ViKcRTHl0;>^K`=qwM z&_clN{`%Lxz?bO;Oh_BIhPth7uePKhX&smhgV9W-xeT;*>vWVUIgZ_iO`8IA4A{(_ z-93PnG<5_6ik-L0v3_h|u@gxYHFu$sQRKf~XAjJptJ1Te&8Npb;FtOx-oAADQk8DI z%S?RgHuUcJXIr}w)DNQNr@g*x*+`vU0#i;~4W_R@;4u&b= zlnS!17D$@5n&qgzISx&_FxoLONgV%-!NJs&cOs5rPRSqp_rWuT??pLucdXSfc5WU4@m`v2YiT%Vh0DYXW7JUXj!`xtK}; zYYzzHlgE0nd1^e{H|KD$WVLkUFIs#zvg6cCV18;{Vgnz{-L6_0-9*Vn{gLWkXz1#k z)8bU5tA$Bgk65O9dnlJKtbzWft2X1?*)5uAV(Y?bx464i3|s!y;Zj_GcWxUp=eeOt zT5Vn%)cT}+HSO}~dRAxMD$6#@$9sx47>QeYaE!h~OEh@?;ejzj$@JQHaw{%!!9k7P zYRh3O^!nm;44Su!T7=qTmKVPU<*6*T3lJ|?a|x0mYD{zFyFI{3Gl<_QIqsOt#{soF zdgfTIo!Mu%Nqop&>VGt;2%t+)XYDw7aS@uUcDrm=SvJ|iiX*wjI}XK92MO{c#oCUouV~2#Lu;E`M8%@Vbk-a)n zb4}fz^|>!vYr?R%v0wHz$1v!x)LzKzIMr;0b)9VpLVlq+y|t2;DT&oE%ZUMyhKf=EPjh zv}t5}UA~0c~DZG;}PAwlRwEdd%{?CFei!7C=5=lj)!kj`L0+!!hil?8#@BN2GVZU@En_wD|OF#yef0uF*`{Gw$f=U$y2JH)=n zXNx{B3QPSVl?G#vX2FgcMQZk81s-RVc^z00&d9!{Nw|C z90bkyi~n`A*90~T;H>;5AmJ1VwBXMEAQ&3&>d3??0M`RH)YhmFikrd#-S9)(5%4K4 zqcmTCOY5zZv!Z}@ZJUSr5o2fL#xFWRtqBsOe|$6$1g(?A zP7HGrUkNm4>F5YzWJ`|#afKH}tk8J)b?_2kzybUaLgavw0!9r0O+yK--SRas%4cq= z8Xywx0l~zD7>n(QdGoDzryy}#step23Gi4vp}Mwnoe8x$pNJ1XKNYRyQ?{jE1iPK| zqVRdjMqL*PO7{upwXM#B8@E#o0$3Y3ZJ9T`{?rb%7->t79RONPWps3vyB;4(AcEF_ z9b=tzwwl9V1sZHjZd~mQpV^WG2+b{*4{%*gZ~e$rGAtdG(#OfUFY~Z=!w=jpdb-N5z&h*yn+UDtT4f80W=?+9u0Be-e8??z4a~*P!cDj;iFXN zM04Ki>SE`JcRFZbdP}C}jYH{Ykr(09t|CQhFR^eB$tbMemeEBE%&@3M@a_)ES!C>% zD2vlJ1G((y!PzKn-qK*|N5SK@?oXigU*Sm*@cP)=&O5-TUcM{^zK?&g$w2c*|c~tgJBjhI|)$e*Du%984O& zho;DbqKUaikpT^y{Fst=+{bk1Wth|vk#VG)4Py38Z{q-_|6Gj4-F*-hW<8bSiDT2K zYxtW}^WzbT{0$c#>wOSFz?a~DvImW}^ND=!mqC`^qf02+Cd;P^iLXB*ABn|==ti+< zs7-CSfgOypGgxVMFMLqVpMbT}d#cv;mj4&@+iib#iDCtk<#B@RZD{{l63Kc!POvq; z-8LbklQXN@zpMX&t(3Zp-3fW+Vwi-up_fx~69z(gBv;liQm1&l5*{GT$379!F0}a_ zrvv{OWOnPdo9VzSbzF8*_JO>od=70N_8l9(`)&`qTQfcMjgZ5&Oc{}#7s{x+%$lgo zc`m(X#2m>EorH&+L^8)sSLAGAm*mLF=aL_Yu%!w;zJ6$?M2eq`Aly4JhIX{D)!d$1 z-q&Cna>r=8@aB`$T7bqIF%P6BMm>;~MRxnephiS7R9;%nYEb#U)-}mN;1DRU_UcOT zH!Z=Ja)vQ7NT8Bj?V`%lChn!n>k#9{kFTuP*5041h7#G+#_S}^R#p|O85jaGlBC^_ zsi1W41a~8GH;#Zh}QO)VL%=vH>q{KvbHmevB4?Jz%7q388i-= zH`*}ca^nv{2g$q^usREPq#bYSpr~phgS`QmZmiXrOzXjB4=b}VmN%~bV3*kM?@Q_y z$&E$%I(cs|=1_R{m!a>ST%e^uH{rE2*;Dbt$Ja=e7-ovIJE~o)k=cO|TBXtKqF1g# ze{4>sV?mGrT4+z3!mPA!8q|lQ6MZWKBP-dRgbosBDoM(k_n_!OwQaN=51=VR;Dq|ws*l|0nrOQ$F%=BM^> z*LFhn#kG=+w96l_Kligaa~(co%V$&MQ>h^FIC{)ufdUeMR8<(^oTSAXx1i=qZg5{| zdxEp^0@clymw%s*oHE6toW{-&HRdyS>t&6hb;E#N3zt7~WoSyY*=D~@?Y3p~kI~_5 zKm4;`@tdD*L?pHN`ckpT6obzOC>H=&st1%v&-r->T>}U!e{G;#4GgeCGE`x-MK|H7 zLa^&7G#~RMz?ee4+Dl9sO}|-ZvEm2UVKef;Z~DV3-qbv{oS0ggI;HZ;jiZ< z-b*#^&X@wh9OI{kPV@U9=3I$LvU%Il%ahfWkG0`(GI@z~jk|~R))O+P##N~yU*J6F zyD8eIyH2Ppx%n9!rtB0pta5kQY`geSRTglBB%Qt&8Ks^c*zo|qvCjo|O%HCg-3S;h zxFK^UA+EV+=LvjhnW%W1aBOuM8W!AQrry1a5BXDNuX;Mn(BGdC!-2>X@x0M-WVfTc zohq#MXpb8#KnGW!d=(}y3)?5sU2slh*3c~JhJ81xa-lAS)3%UP8#v-JTwMS0OQxZ#4yd_e+NL&(KGyNEU@^uMS36Y0T2-3LtV^2- z#e9RY@Ts8)WMrkT1Ra`%+(h1+XoIS!>%2*Rvzphc=GYqbnoN7+*1VjoCG zn7hUCOFeMiGcXPDz@!FRoM28imGtV*@JhIepPmH`vYA6`=P{gcUMu$nBetoYLJa5D zga<-Y+B$@qAoEm{O#)eQJfc(Fpb7QGANmlf8PrNbJnnu#m5r>JY~>Cf#!eJv6|f<# zl6H$;(1XETW_`IbRvIyXGO4+#naiHQ2trBYB*k`a9TVajYh9awM#?oP{E{ux59K_R zPAyF#HqaM#i+a(rd`}(drX;rW=&bOjPDUDSwJnuQiE*-Z0g<1D-Rixn0)mzCp}jkr z_QFkP+FVFM03SykU7h!Ld`VkGa#yFQ%VJ8F0;1*WP4Gk|K7`0o_|=bBC}`7+pxX#V zr9jC>&2+=Ws1bgcAF@<*R`_9WhI*EjYe4>tB zVqTRtz9N(uW~XdTUYU>N_|GS*jRE!j&>y@C{(4GEQ3!u;l#0aB>hbJ&E|_I(ZK>|b zB6HhBv?UFuw)4q9;qPqu@#{fpsPeCPxh!@#$*wlml1`cMX{6lNbd}C)zH2t52Md=v-Cd+(P+cd)TV) zK>cCc7NHRJk7_Ljr`=}3OfvUp{0?=%o5%zu*JO`l`|h;9N}bF@&B=L)3gCt}E&&RS z_j%WnZ9?^_r~kyR*5*>3*(loj1eF!jC{BrI+cX3%4#!j^4A{FT^5~a&$t&&UEsi@@ zZgleMDjs^3&$k3eb*CBWsec4eX5}VQV2EW*mv^F8HoLK`cEi>t`RajzEZpQ5?I!qT zcta=JhFGP&~CSk-c@TQah>88kY);Y!ZwE4yzAeR8>4H&X1%@s@kw#m;m~lAA#{=6=6kf{mgpbamEYZY>eWTonCypH47_G%1PwI{V2wFM-)6h~1$aTH2KRj$bFVQk;!nh^G^mwz% z6L0}1z~N^pq6WyoBSjf&Fn}%Q5c!M=;=Bt4k5qqLo zT4g$sHFLSdD;HNilsk^8cN34{!{aL_X8Rm5I(Xq-mJ(Usd1rri`Jnf)%QP|ct9J5I z$yyDPe@eic$V`ltQ0lEy@7I`;?kB=fyJpk1t=}5G2(g<@8YOp<=%Eg7n`+z|uQnTs ziY|h}k2C5LPhOp;4rE0#+QL{fXzR9<)*Y*7tvSfVoo(6{^5!AMobM**l4%KE69yCW z)MZS3AVsE@9OJYv`+~tU^M|n?Oj3`mIF9pkS%IPv-Yiw>S6w!%Ee+oOk?_L#@Aysf30gZ?0Q_d{9?m%m}%Hdzq;}G!X~cJ>_N> zd^KTj45o2JFH)yc+B^?vt&5M+I%_#~_FrdPlTGih+}P%2T3`G`^!cuuZpVW|9ST0I zq~`bu22tECHm9g8+1C|qGB!AJYiSp7or}JJq(6zGcr{6SDGV{fYOW5?TYWj$SnbnD zZ)sGFcIEGJu)U=|rZ)XZkkk#VVVx4%F6gUuMO+C_SZ|)N$_|Z|u)_JtX(xj@UnQFV zo>Zb`q^}sW!YAVl7!GfEVXf~TKKv5dZdj@|@EbC(A*hrR+A5;!ayI~^4*%FP($mWo z$S7NhE3RO6wRxXUoRzD50?8DI?s3ien=E}&!H@{;y<4)D`S!@M*NtKiHz2?Jd_u8a z@Qu?;W|)Py5)FLFZSbCc7xjnzj@kZvRkm|}1L%;wzYw})JLb*Px}Ct91hR}Dh8$ix zy>xoa;I!NZ#=m3Tk?E=wajno`zRfvcJsdX?RR|IY2kdj((sa-{-Fa6_->ehPd8y9$ zTLV@#uS+1j>})%52KufPc1%4Nx#zRp(K={j&U$8WPK?;m3X%4+HvJhB00~vY=uWWS zPpJ80-W9aHnoOO?#9({})i#Scv#p;G?fqOEtAGh5);7rsS1_7Eg0SM)qlWs!STDU) zcr@JwSWI%ngA&bG;9=O4t+wgecO)cUJOMVkO2#bVDpZ6);qenA5f^DIRBu-a`7^@5 z7P@^<8<+~}*1RmD6IPR+`J;1N*Nwsvs)FkcK{!f!7VlJ-Lvjfd&dGQG*#YU&hsZ-D z73u3bKMR(!t}j4$C{JQh*GSD`50#2r@^Z7X34^;%!&qvipmYMO8s#U$qbS8$&tA7abqFE3J z^zhCQQW=`97us#T1#LVW&&jl*dGuT8V+G(j3<)T{bG{77w}~|7PYml(iS1FARCHz% ziSw;VN5d-1|lR+ot(Z~b%{9v>b zzwVdj;mK^#=O)4`H}S%~e^qX{AXdIdW7KGK*$L%f&8xq3ZO;!kI_U~X%g?YP^56ot zRTh^}({NB&WG^?eEE4lsd$IxXk3%C+In^s`(iuiuBSK81` z*wN6r|JA94JA1hW!i$B`Lv*JU)3HTpD89$Re33ek@QChJ9-8joM^A7ujH#IKJ5-?h z(@hTz2xv379=16 zal#{|^$fYKmN>p$&f>UnUyfrO&jsQquK<)P-?Af)BA-m}`syKOAWY$H%a+>BEZ$$X>NrZCbNn8C-n!-*ER+ z*sDALzOokw(Ll{w1RfjfMzF3>L?nfnp@vt+s0*!9JdfEuEEX@4um}Mgupi8_yAC57 zQr3!HK?pM^%d65t>bA(NlggnpbuBIJVJ)8-ywC(_h)~jzK$A#;#mwA3w;>w=e58uD zDLQY1_X}&h-?&XEJ4bIoE5z7CV_19!YaJArmt&s{LslCzUZhRd0AzVJzhciAnur=W zI38j8PqQBQz{_MPMTrI7qk4xRI}fQft7q}HSm%`D!ig0I%GguLYvSuU+WK(~xW<#k zb>w>)je9v6c+mxN?gQfB%I^jF@|5Qs(pNOSRqJa`{_neDrPDK7M*wH;uyVr#=;wQ3 z_qxtyRuF(WEmHa=ypOMEwk8NNP-|jZaUFD4snoR;(0z6fbXQREyHQ zCguFP7L}uGt`lW`gu#m11*QRB>s7Ggj!lju){4g*-3<+pwkl~SZOn7u2kBI2b-Cud zqVah#S^E^S@TeISr-SE=ELFcmt$9^0GBkxOH*Y8ovzI(?^Qg#3$Tf@2onefZEpC_R zJWIkQkQl(jK@4Wo3qMCz-f}V+ubu^P06P%s4S~8EW^CQuzLRF5Q_;47>V}`nEE1}0 zP8s?RpfH4F(b)lhP>QL*p}X;E;L)Hq-|XTIgg7%a3h47 z7t0wwabt`jt2fECVLqsYlv5w4ERsj}_T}U!q)(3{#w`j3N2W6D1EC*{*-0;Lu_C{-MdMT2qIqaS-@a&JQ3BXMb}2gQ z2f0yQ)GsZ5-2ISQk6AxUW-lz`_#$%QJyRGahmsJ+gJygJo&5W;^~Yo78ir;@99VLi z=L5>q)mDSIDsA5Xv)8T_@HVT{589AmH=&BVq-o0`er8-2)m)vrx_6lFrSlghzae1c zO?H4nZrg2ZZ|@Jba+3hDAJZiah++o^Uaa#I2O1R*q2zMxvT_cP#>*x}tI8J8%mW5{ zs-sF47q|JO3@%68*7cn0aZ7w}xKF-k@=@vIxL zjoC{$f(lDnZnbTee?%{MoSV-{R9O9kW zwM^2!wNHM3G@V7_Kp0<7sOm$Cfc6By2c#2j7?1CX4(0K99z-E()^LQsm+~9uU0B*)=?P;2{j!(^}#xx=G zg&XJVPS~tz6-M3dFu!>DUIFP`qf~19@XrYGePUZ8u5JmiHY3D}UG2B&`qS3z)78b2 z&eE5M%7#R8$@ex&2`$>dh7xn%Sw#yt$u;xyCETQBfs5SDvV=={ST(sC{lL&EfcfLGC?wUA<0R7E!)B+ zl-Ae*sOSWJTJ2JgoQ==f2D$e|0M z$Kkkt@Sm_eYhq_oCh%{AZdI3;+)-(KY$&9D;!JE|Z*N^Wjw~VO-avqd;@Ezg{aMnP zyY7323#yHyO6yif9t=_!wcI{16g!9ZW7~k;A%5bv*4%oalb&@RrkVD2<2`Yi%~rbQ zUY{4$mgxzywtHW057K}Yy}JZEcou!7f$C>7>+J()j0lTam?> z>B?UBD_YWp{nCw^S62|$N(249IlK4a&YIk?!2-%RaXE#ep5j)Pxc|B~!w3X?baSye4%R-}VF`8;osIm6xhb>c~xY^3Kd# zMg|u5Gy*=D-^ucS8{GR~m~ERGz#Io9g^^r52^NS&f$pGeC7%p=e1gxDCGMLwGPI+P zEK2qc92qf;pPCoH5$3?s;sg+(Wv8JYNNqcb)7>M=96G6=6nC#vwnnt+@T?*_kAmUR zI&gJ@@p!0R)yj)U{mgM$>@tUj`Cj}4;N5_U=0l`4M7vFR{3!RRDL<+Y^D9x~`WPf& z`H?^*LrZ}e)6+gI606K5ZO=W9-@2w}Jcj)isIFmnJYNqG3@?Y%KR@DwV%{f%g)7V9 zKGVyXm7{)^$6vjI$2x{RMiI@HsLzrb2Kfnt9nGD?T%aJxs&sioAEJv=(Pps(uF<%C*l4rMQGhoPyn6i8x==~3+y9kO-HME6ZcM?%+eue#L2kok;bQIdTtM8;! z?wQ~-3q@x_Bj)s>aUsd!uQ#GXX++(snV@jQcExb{AnVrJMWsn2FF;oIk;ijwEqbK^rD+(h8} zCBXZW3ELd#A5ExuA@}EjtL8T{E{_?>y~rAO0PzG~+cVFulLNrSW)v=X#He3E z6UX_4fhZDVnN`=p0q80SS{Cv1nt?*MjE5v0zXuvO5U2Oavg!9Mt7wP;v1U3F?s6GG ze0w>ywewyBnSrUfC||DdzL|~b$1ui$+&?Kb5WI?Df&97Tp#W;*kX&eI=1J`kY1Lv} zC@Pw}+&K^NQ#^B!#j%xllgcKYcOeEsD=A_zWQu3|dR{P;%)@Y;l8u^IcZKumz#UQc zS%q@kMdWA$MGm%2E=I;=2WnDC5kO_=A%{ksmAzVI+Wn$f;~Dk-^Ci>XPRVYO>O=I3 zwho;VFr1)2Y&P-0OjIQ};A&_YbHp3#?rrQ$evDE)iTHRKhU&d8;ok0hoGi7?+sT(v zd28$D3hJ|wiUHt5(H$#}c(ZUUuu^mhSiWm-PXzct;lg7eTBf`(XsgB1sV(*1Srflg z{PhwZFfF@YDf?6sW@h+B$Kg$yvo{b`ER1^{x2_%^@Q4DsOZt?PS_s`!_zsjvX z8Kapfl={QjwC|dCgb-HeGi^(n`<}#9G^za9ZkwhXJUY<(z5hBE#fB2g#yCw{E6VWxu8r~+58A3_ z1@`)@<8zxd^wfJb?}+>q8@NZ%&OIrbYw;iLo=VVEqiAu3#WaHR!ivGBHk1;E7q=^jy|WZiQ0;{G%ZL}df-KD`%|S2s>Hcj0 z(XHRJEc^PmZ=Gq48%*G~#ZOFE`>IAeS;xUcnPR({gjv}}0Ni8VcEc8IUuQ@kQMnP6 zd8hbht=CY#Duzb#OG--G{$O6B9=cX*?^Q<6`21WC6cpY%*u;=+AM|}zh{&FkxvF(@ zky6E-DV*tSt(mO4eoaD*FTwMlk$;mcI?ePb`LtgfemcXM!@dz>5}blaY)&&D2XesP_cHJdh-p9)P`r7~?D=^pC2FXXyj<%`T4ulwxT#qckXWHs zKTZE;{rI*)aR77@Qbl{Vit8s(yu(9Hp3E9&GFpd-3>_feI_$krxfMcl_~G)!$E30F zmut4Dk%yP|CoI)Hv;DtrY$lx_0=xep>nbWUNbPE|PjaZu>>Fg*Q`kEU7RY)HMw3nMfS?zC3YtQOW3KAXEsm%cz$Q2`d``mrZ9{SD=~2d)-dKzf|7yI zwk_usP_P(vl?w=9yJuz{;H!BDaqN=R2BDaMFX{*1H6EpYUP;0w#!C4*fqGh^3NROY zFKig|GP4x5^Kth6mV%^qukm?ieP;sPUk1EbkG^FxXNi4}B5%m&A z8GANP4K3Ehw$IrHvk|R4>5cdfj|n<2AC3hE0~ZTd_4>wTpZ^f+%4-)s(x$mxNpTI? zf$33G#i(N9tX$aC`8u+4^m%9ILSKgSv_m%zdN^M%_|fCC)y1`hh*;#!=c8MPNnS@G ze`tOjLt4gg{dhDp5)I;Tmbp;9pqY4Kx$m3vQTc8M41fW)K)?i%y{NDf&aYz7Lc^iH zV3+-b)I{$01JEyphy0GYxVxU5<|GKib3k(az;y}{2aoT}itXO0{_01}&{dtH6kz`1 zJLW&w+(KSnW@_TN^G#}!`XIOh4yQq_N|T~* zhcUO-iCifYH*h>{e7Z7Ic?-xPv_&gx@B>)fHZfvd4gCtXE%BN6`qhLLZ_F>26$|nf z5=ZnM1Y4Xd@In)X=ypqW5fb= zOS!Nn`>|oB&<|oOQD2G_(M(D8rh_j*FIKWw#|Pn`Y-Llooq?2~&)-yl231>CRi30)MW;0V3>-mx zzolgd7DgK*6X);Oemaltd~r2dYsMbu+A;Ldi%K2-7~OsJ?BwDrzGOp5669a%Ko8Yf z-Pv_EI;dXvyuNL8qGRn=nM5wX1IV;XonNV*#N|v&VLPJkIv21+$EWUhX+g9Ru(Lz- zZ~^PbniqA@!K#PKHrkwBnT+Gq7IgD8udim8 zL@)b{arxt$F%YvVeCdU$r|gcP9^f*;e z{34r2QmXoLX#7s^#j8=B)a7vIPB=}pjGu*?tghTS2}FJjBzqj)7M?sdZ>UYE4J#oM z>yI~3{o*-WOp0p4L(A|@5Ntop#tin-24!-Ja24zER?=}X@lePqQ?8px}sH;Fl3`?%dcX9jg>k_h zq4Jja4nGmB={$94Qxgqpk|bj{S(D|f2_Rxq)YTKxg4r7xAyXZGn)><=eP*>#+nwUM zL`EgQS|`0jNVSZrGyCDb>6z}mjR0(xVJ9J*5iC`kQJSzc)=o`cXk(fsUW|{QW{Oeg zM9O|1v?Xd>95v5?RblhnpP7Z{t7%Ifkt=BkvP0+D-N~ya=83fXBo5~6w_yYlQ!_hQ z^*p-sy?b?VvP9F*9}UiBeYrYO`1YsrFeoO*%mmyUhAe)LT?H-CIj z`Xz<&^K^H?3?-X%;5wmMtKlWybi^Lt5Yu|_DvvBy4h!lyRnTHo5`R}b_Eb5Kk&N9L z9q&IB-%Mi9>7~@rS<}h%zf&OkGyKSdfVGnzXEtcu&kZqqpXr^@BAfLL#E_BRp?;6U zD4x!o4B3X;;TP1YLy>;_d($AMBk70pc&--RMC zky2Qp2Xfmvd+12mij_Xg)CBbRcUe_wZRHC?R_s{`1} zoN&O~(_~?Pon%<99@5ELTwh!+Yl$v_tgtUzuZ*o9SMT+CBf(xSG-m*uROD*gx4@J6 z!kV-nlh7NK<2$m-(+Oa1oF=4pHrl7RXfO&M1mv#1Inoe0mq~f2MjU2jahc`K#10|` zl+BQ48sO@Jcf*5T_I+&wz9&aHT0W$+`SQAp#var3@ z@F^R(trc7oa7jABq@(gTv8Wy#7Z)~@P&aPO<}J}fYZiF-FNhZg&Ed7S_l|BF)40A| z#;b1zv*E6UksYCzg7QXB%?Sg(&kaMRl9P8wclP<%M!&0!lk3*9Fm#&^4Ofd-qd?qK z%MOF2a%?ih@GoLr$8p2UuUET)J(izBN^R!yX}I8UB>ye{jKVwxbb@g78K%{cyY172 zdza6+USsg~2CFSE1$w$H(_2WGDq1SUT`R>IO||h~-1C{~QSksN&8ufl=aXvc8s@A+ zXOX3!i)t!s!yZ-c`U~I)7Zu7Ttx=L@mC8vm$>O_vrlIM2I{HcIP?|7DI`oO7*WoV3 zjG}O1c!;qJEhXGH(Ru86H{A^Y$IJQveo&+B!gv&@*Dc%)n_s6)Al_brWo4b-r27XT z;q@`2WJL*}g^B3fr~Xk(?w=40_*(t#d~3p3Y8`j9c2{qoiK5zY7K5N%%@TyP$hMBm zokuejWTyhieV-WU^g$r-VMEK@wfN>HU!FXi34qKYfcc^_Aa3R*1Y9!31IwKwVyvAfHv^v+wAr2jjMt;-#EzYwa80yzhK;k zLl$JCNyP2y6HXJ(?CB2G(ckpLMa|>5`&SnPB{P|b}9h)i-e9iQ=5iRJSwdtzS)J_G-U3m z=VS~h2v}k87T|Frky}sobuxEx0hCYzRdk&g0gBuJvjlh+2r9@s0G9!4%yDt1&g!x% zA5|7Q>Rd_-0SN%u;v5m+q654(&<&Lp1wP`w>^U5U&mSMBkCp;<1K>PT0XwnITJljn zFjwTv;o3bv>a>)A59JPC7%NRH~n6N+sYO4CHJ2%4CEgU*iwjnqUpf zo;~d<2e;^wH!lW4)=~CGw^oY_XVy81S|>7f_TT!4QmJDFI%!lYuf4gUWu0)b{s!y3 z12ka3nmaR~MYI2+Jg#45_JmkPKy)y;Kj5L@79*{m;eLAqco+A5F|zt%1f@@aXxVY+ zO|sFg{bv9P_0x`Z28F7{6AlmJy8~Ctx<^&n;1Uu*(2pNI|L_@J#%`6q#gx?CElP2J zZsz1bK65tu%-N_ru8#3Ww?#|(t{0w-xl>%YTHFe_l&i&0{zaX*_@wVT7$+VWrz!L- z_yO=W04D*wc&xNMJflU{*D2E7e|T|`M-nXV0kZ^#NI-&AMD0Uc9MPmC`H614IKB*490r-Ke$6Gwps z5gh9D1bLc^C);^`cySmsI@kV{i`pKRwboFtk#G&I1Y;ap^?Tm~H{gs$;nR-RC3!$W zjK?XlN_Kep_{r8*-Yti$U?GLgKNa5wq7VmP+gf8@=;`1c@teCgSt#m>LJh59CG`oc zr4n=J6R3vX$)a}-Q+Qzq^{wA;AR&MbJ|LSgZA=xN9yPyjno7bE3;+>?#hn4Ag@JV# zy9)%d*60BGz!jX~N^zj7#G$#$HdgpgKLV7IpD2+mpgA?)a>&pyd(egdGJB>=(|McR zy&iIE31S*qB1EmD`WZL0N`y9#>hAtt$UGlbN&(&f`x<6hmz}d#Zsg)&Mi-4=+S=L; zmzd9hdJ@b?>*~Pk$rC#;PZ2GJ=oeYBlGD`PeQ+Iz$9D9v7Z^Ah{KLXA8+x&5n6PzaI@FQ6EV!p+ z^9fntn>s!ZU1{_Zm(fq1(4 zc)p+ENwE~aOnRa{Y7ctVro9|u}TDW6&%w;yFvyNMy~OBJUHL%r2A3(sA7h!s4zJpcMdk8F_ivM(Y4S` z8rpp`tFEzWFZd{6!ks|5;&*qhFziBt9h5d~3OiuR>TCF`>NHv^?eDHQWm>z*;a3qz zblNvcvG})*N@-J*0G~@}R9Z;WA>W4hbJke*_TAR2!4r?Zoa@2|Ja52`xAQu;3KG!NN%_LNh%HUHjnK3N?QoHr~TZr)IJk^~=1J`ggA{$sU}z zKbd_M0kl93n2#eY%`T$wPRVuZFAw#+3fQhsj%V>=hKxTRU<2tw1Qqbgt3g=$&INAx zVhz9N>eQD3uvjZPzsCJTb^>w~K8d0PC{?K?9yBX|AG^AQgY<)~6PxL?3j^qiV$G6TzqV+Xgl}wK{2SlbkNYe=Hb_e;8fm z;=$|l)4mY&=fFkvLJT*B8*N)Uez8pTMXh9r`de4IA9 z#CVoDEoo(YFHM<_3nk102voB3z$5v0EG)WX|o5~9AZ;2o)ERqjtiz91lB>^!%iAl zrCe6G2mJz+e3pPj0z=HE}EIK`*MCIyUnmHm#ZFF>=w^e<(wq z1Gs=u%u(~7S7x>B9UuZRsI7zu(Wl2*LJ~Q<5Rt-)e%{zU*oWgF8)J%Kcg;Yio&0I5 zspT6kt+p(#L^XDkVs&*H9=1*u&VXNW1U(yqvZV3V-BnoYm@YkJIkvW^p8i=5F^6kw zQl1RmAGbJ6^`Y0ID>J(H5+rw80|yjk3DgAfTBI;Anv+GRYaCE;T882ywWsIy&l)$; z&{cEV((3RGc!@jg1AHK;+|kS_!~X0Soub6hnuL6ARr(M_B9Az%Zyp|iXRLDg#Q8cG zrB`XfFh$3!7j=VxtOK1pIBuY#@8b$ODblyfv%oggcQt#tqBH-KR@=~CUis0aqfFNb zowT^YK=SwV*;$q3xDkJW#!MTeL`7U7PmFb`npk?LBXdtDg>DTL`_h-&OmKtwJ}Ut1xSZu z;VZk~p*OZ@i*<LKFp_~Ch_Pt`)=@8Ah|3{$aSyItMGsi^v(}5xCIBI;a@JnA$z>7a$>ynumv&d^G za;_NB>g};FWI9-j-_U^vR6KCZwlD*Im+IdwG)<(|r8AoFfI@Uy=ndAydfZ?cTID1{ zS`q^b-|ypVaZ}Fgt8)?WUW?D^nQbI9hufc@H-8SQPu&kg*3(w}mkr3!5aY zB^vTZ4mQki!;c;rl?jcKd49UQXjLy^y8~SmLyfrHCKWf}(t7Z7J-Ky=#1~ZGh#D+t zPdV8baOMEK-@t80a$n3*O_J^f+e0^WWcf*XHhOjq1)NTev3d1|26TnA@P^!g;)n`R zig67NvfCb_s5Oe0h2Tj+=gQMGdBXV0F;jp6{3wLGlQx;w^pdv|5})R*VNhF>WR z&gas|m)izopoRj5= z(`V1~58o9yo(*K0MJK?U*^Pm8=qSB4Ri++V_OIpDtf|fHUvam>u^|83?M>_B%)=3_ z*nWWcapCW?J(yrM;?kpf_6ZVj2~EL)GUUqSLn3oG?zKX`d}qm>Wghg%EA0!9>%2X#mwrJV>?d(&9RP-mm`UIJW*E34#(gd||ivQf9S-sSf z&!msW9UwC@F@Euvg^g(0oH@++Xa+p!LB^H}J6{*}tUf*TA>;gtLv)1AxTQO|oD>lO zMIb{Ud@8st7FLXsi7cbKGzgY`)0c7bGGOCu(J;%lz6m?6-4bOH)B8nNTuXjP*a7qg zTb@e~`W?Tqu4{0FU~B8EVkA!SbiGMN@Af;iS^h~#SfR(XaiyG2kxIxZjbU=we>r%( z(NnsKAC&spi|TFupv-Nr`VmiT1>wcF)Au*3_wF*u|F~6HTGUX=P^ZHB+{8x2qQ)P8 zT}hJaI<8t}{~H`{5TW4DqjreochvXx*iKT=4{Hfuy#qiL0la8U#N`{iE1Np;4aJ6` zp8&_T?>cJVUOJSMQB-w3Wx)FOX9z3?#_amVA1>PfCHoa;hU6*hv1=&3g#!(Jv`t7o z+*4Q)+wTX2ENV#c)2loW7n1fxW0&jR^VG;>&xcQX+$7T?kPW~>B8S&Ju9Trzx%9toLa9DBZ+DSxD9@0)St;9q&W}^la}qxCuNud{)R$MoH$4!XAWI)VUHni< zZqF&hUUUUtBMtj=M+N)sj@|x18w_*rmKpVo*-3A$ul_I9FGa!W< zV&e!mI@q<4LD{D$Rs?G!by!;AtK*lcp3#2U7lII@TfcPq%$al~VgY8;FhNE$A=nNc z^h+}lvplf$pq!Wr0XJsVzA=bjkNLjSMGzUwfjV#lXHQId0})+*s+_LiXdUEdJ~o|6 zpA*#XDi9GZn|RP-6mYq0@;nkStNbce^(A~Vy1lMd=022SeOYn?7OyTYgvI<*O0-j@gWo?=I`e+ zJ(-@iG3<)D_9_=0D+igYx-pBF_vc^VbxY}eR*1ryI^U`@-^p{_HT;H<=5R&zUc?eQ zNh|ZGR{vS4peQ>_l=5f(k4Pdt6>CBS4rS^q*HWTKYWOfSV&I7_J1ztj63#gTxXR&~ z!pN{*^Uq{If}v?+;8LS}jI$bFPv?jXg|GgEtHllLq!l!8DQ$iR4-9>(biC zIysy_%_gOZsCXlyC|hK012d=;QJY8)#Iy*dp)xb9UBc!d{ZyK813%k&hkHZT15#kS zx5u(usOwPXoOZ*6T6}i`UPuiak!^Wfe#F8(iPfSw6X=GZw6lyYznm+Ce5ih~7|cg!v$XR>;~LggmPQ|3KIS z*MPxK5+;;-5O(m+gICq*&)ktuEX}DjD*NMwrITkU1+Ve*p9Pa0Ay?zzO-c;`e<25# zI({NpsfXg3BFlY7w)a)QuKzQ{NLI(9-yM!DbS(UZKKk?$jFVB5{pWiApkN|)ck{GF z{Es(k&cuOboA7ZlSWr)ggB>)XPEhomeX_{<=&>iKC~zfe$kGc4q12J;9z{KfSscIt zrGvVeX5ZRV8k+rU;~HQ=pSbNYad*UdSQZLjyc~S*sCnPl4^OdNZVkPqwJK$Ijem>J zpQ&b(S*9H2%H}o zsTlwZqvI?V4?`9kCivC_1?H=o1qIH4#o_dF&Se>1EU=X1cVrt{wch zp2pTlXE? zD7*4}Xh}cS+{XOq3^o4*Z}zq?+h5j0@!;#&u(3Ltx7S+s9%vvbB<5R^VhC!vxh*ot z|DpNZuXY}h7kPy_7VBs;Ha&l@G1A+!&(aiHW~eDNOn;nxtdRS1lg385jaxSm(C|a9 zHXHhYdV}z#Dd`i6Q|<+5RgjTO3Fab~3wj`2q)4)#jg1pBD_MO_>EP>)jgq;!zsRaW z7O?YYlnSTz+%|ekTkdcXmI4OW!W;0|>zt3e7cDQsL(}L4<*>}O(3dDCfWZm}!*kUe z0&a_M(+rA0y28Jxmt~?$MRtffZn1-}9D~EZ|6I!r)U7NiT1!AS32SViqZ8wzX z^dJ2dKir>d{mS?!tx)0m`ua`)zrA!K?rdYl4N zm3^a|pO=BpIP(35lXz7~$*A60H_7i;6U6g`%KHxI=?Zv}UJ&MoV1~pAD-G;qL5!KD zCcM~3Qx_Lfv(xaS18-$X$JsQN3)sS_0|JJhDQB2X^OK0DxeRWf{9%We zmd9tqY)0PWDWYYQIR^GIBjki9thy(}bPwu~dFO5uGM&y^W_;I7y*&kf|k2oy0w7aOoLs~uW-7a(gsp{R4lz8;-4 z9SbX*Q!2wL(WPu0M1n7EM7!MzPazvdGUdA?Kv+5gqC_oE7=C}>{>wR+?q0(pFFlf% zb?$O?ZYgw`i!@$nX^~5wA0CuSra$bw5BB@@qi@mHHtP^bZu_i9on^N?8n3}6g)YhM zreqYNCyzG~|2b>@*05JdrM#gUiKpty7w$sdk(Wgi=hxF5aA<|%Me|j3wwi)U3So9n z;2MgY1$sblbk~77Hs(i+nlciE-dKyzD)B`+N(iUTAZP$IbF?*%7z%BZ9Ja3z8>gRp z;sB-QN$&R;)QtU@h4nuHk4&IW<*(^>mTNwSsUREX_gvK>j>nJ3HErP2y4TPy^arJ;ZKVTDuLPkO; zcn07C+rwgP4kA`EH*NMVx8(2sEX#D$>-&5n(SHu5T8-{5qYfmc-n&y6AT3fZLpV_I zXvemoFPtgqFdFqCZn+8aXS5%swy>QS@VDWYYF=cb6<`hG)sp9tA=^KVDk?2x5)5_# zWMceuTgr=)Dq}@Mw|upTtBG0%#wk85Xw57sylOJEQ!r8=%TI&`RhKCdg)8VbsXdB@ zy9vE>8P09GF}=(W`x;F}eI>^Pk3#tbz6dseZ<(a2*4lf7%N>}kQ`P#U9@=)%ggiAT zB5@2j$bV8XbkkAOyqQ-#KKQ36wv5uVCs2SL?z9%(&PDY5Y72;`jSa5{pdJ*bd^8#M8mxEddhK{DG^c&O{(V&Qw0pD z{$VEParpS?^OaB{>(d?wG#5vOY9{kZ+|iEYVbXhspq|I&df|}^Z&Jb|ce1002Rn!2 zhzSDzW2?@U6BgqUrS=~fppevhQMKyUyh!1s6p6*$RKj_-hHs)V-4xKyYS zS@ktZL{4}@si5&Zgjp0_I*N*p*3vdQQnXaiq}p)rL0QQeiZnqv!CC4FVOClyXA)b9 z7mYA(_sjIB9PKzh7nwX1zooS7BVyW8FWkGOzRHD2G&4?g0==iI?pNoxBk|c5+fmA~ zZm}WeSs}&%##V{H;@TG0B178`giAy70stc}dp{O5#tF(Jz5+6BxYVhF-csOPx7+tr z;YbEB%s#wMgwC!5lLx4#0-;VZiMY~cQoA#mPC3Gg;zoapZy~y)cY=at*U=R)`|?%a z!OI7*n@mms$N6-0T7s-M7CX+2Qub{NeOM1*O}`Igab&~mm`i1E-sqn0#2d%~-1|CH zx>B@~js;i}&g?%iP zGoU>haOoZ@JNM{L)5N3>?mI4xwA|qx=Jjp-lZW3S_jq&C4llvhW36P#PM%=D#LzfB zWx)4aKyqJW4B(a;Db+M%3RF|oViPzYhi|sJ)JUqQiKr6_CUVJXh&4N*7ujhFear*u zu68GKT^nj0A`=rS1I`X(IUHtHO?Ze;%p8z3fExvL87P|A0m^C{jl^eRkCV6Ci#RmG)Din&idxcT z>aIItT|{)@d2zBQb@Q*L-_5_Q-e+43%CydBO{4MJex`}Z$D7zL$u7|i9jug!vJN7F z$`^)Di?O$Py09D4nZlpUU3709`Kp;Ho@3}D3>yY8{X^Rw^0mcPkVJ1UQewEL|5naG z$}tv~dpf7wY8%bPw{y;_T?{S!Xi!RY#AEhqgxrmwsICI>5}@F;YqRbJm7vT@D0^EiAiXyaYsP#0(QtA_Z@EhlwGTJY57Eia6}9xG_qyjb#9+&rul z@_;fST89;l>d9gacZ8%^QF)FA_nr|k&yvxDNeOo>?wh`O+rQR5dlO>p#R*~)K{ck` zWu8rgFm3#lq###*mM42H>r%x^h!ua12J3`aD^BtJ6ytuMn()uHAZ{i>GYkrsG%Cet zc~ZrS0V-`P;kYFd)RIbNL;n4Kt5^6q8m5Ef2g1tku;P%biP$J*x2l9&ve%nE*d9F3 zIT{ax3Hk-ixAlD+Ph7H=(qdC^t0W4Jg)SS%zEt}2<#`R*S*f)9zmSJ_mbR@3A;W(M+6 znuuJ43`+S)PZ&G_aK*Hx=9Q~rcmqk_yvi8uz8G|7y*JjH2<~#+6aLs(t=1{huX5A#$unZl)oabP)O z`{`CHGY?U#k{I%L6W}2>KU&g8k1Jl=B--N^5)m8wui1|nxD3l$RYUyBQw11Wau-3- zgN$`QriJ*ZOQcY#Bn_#8?fxG7_`tQ1&Tt>akV9ISP`Df8Cth}?_NF2TOVV!`s(8*wr z)jyoGK3`^w9JQi|HQX6Pbd~?B%KhKJ#UJnu|DF2(ziov7UpMkG1V%ppIOzb7fd8S9 z&pyN77CirR8}Hvw{I`+MzI9I}VC1uJ-L~f#;y;Xh_Wj#id9RVlfB1O+e!{<<8~*LZ z@ZTEw{CbY3$hDwu63peskC!3Ax7IrrD9e>_w{- zw+i2JK&#s+5Yg!P?#_q)JCqMJ4qvr+gTM`Ia)pfZchv$xJ%&4{5{O@RXN-ioiB2XZ|UK?v$w7CEs#YdmdVg)RUe;E^`WBePW*Bry;v}Ly#k3uut#QE-{#UY!^~p zU$MGT^NpzN+IRFW8I&(#m+Y^gpN$3W_C2?CZ5ki0oKsZf@9%u1hH6i`aX(N?GKT)` zlXiG?+`iLa=bxQ_bLH>nZ2@xeD z#NvYw&UmbblK+?v8WTEp*;@I#$BpN-vXso=vC5h~I>qr` zSP6G;@?JR{YPu}*hrIZueTQa_oND;O*eV&cNv6>}dONuS$QYGc=uH=Uilo-+y2d|O+paK&MC>4y1TqJ80n{>Sn)-)8>{5l4cF+ivxpm-)ksbD(}4-qG{o z+UyI9E1d_92fMv?`7^F4aD!L@ zsz+p8wcQ(Eoa<4uGi~RiI#iwlA!@)USHGmvvDY`TC*G-V+tH{?aF)tOy?E`*$1ZAY z$lFgmC@zw2D0t!ObGYR2!TY1*&r~O5_vqJui|jE~!S%PkFxXZlvYSEES#EP#zSa5u z>G)H+bb{|lyU%_~)hEwyZ<<-A{Tr)WA9H+q8&lpIc&b)Q%nk*6TuSsDmH)~)<9p_` zyL{vumjZ*ke~X&l3JVxFjQfQg*!@X!OJzob-;3=18~M5OYsuL_r*T=Y`|gvK-1Ev0 z>MCgmr|dB2H|v391O(s$~w}_ts!WVz0VX!5<&7K{DQwI?b(} z>33^Cc+3bb`C6$UODHHM_4+#pnBP4@ujO9~-dnBBlF~oZ{qAeUq9m-|iG1f{zd&GL zl%rr&VxU8%PMkS(`bEsGqxFOornP~@&4r9u}8_&GX7)0f^19x7i2&Jinju zYWFI^H}D1BVr}x)ovY6{qSnx>-KO%_qnWW&APD;}RB9fuCjNF_07Yk%W52>)@uQMvlR z+g{f#-qx4s|1|sgy}A>iq)2`UFk>?QWmPkhtyTQFS(Gl^HQRfhb#wZkGeVhL0G=wi0c99MDN%wZz9ikw%KD_rhC+M7J#=!{#K>Vzg~%L22c@E12@T0n=v zu`6bwlS4_9+pO& zACLQ^u>e56;qB5XlpC-6npOa}>~ue}e1DzKW$yD- z0j1N&)8(dH46NwmsD-XmcMUAJnfMT;V65S^%FXCLuB=Onq8?w08yPhOYC0?@RXTsJuMte<;?^aZjswvYI}n zhazvDESdiGe1y>}>l(pAHfLo))>Qg9P#P@=T*%0P*(&C%vku9l8K;_wi~w%N7)Sh1 z+T#E|x9O%!TZ8ThA8GB-x{?xw=s{-kP}+-g63;BZ zCm*%-H))=J=wF-Wt(V=yNr;q5aCMbHM|ZDjr@+2S=-=b)7~+0_-P%!2GYsc~xeriU z7oIXfN41*-j}RUPbSWT3Y#XB==J(ucH%GJ=%!3rMt+Evm-)(K}Y=eog8sNqKY?KaC zJ%YdDGp~DKUzmeBo!^_!15cy5BR#5w3}D~!z@#WtZk(OTePdQ z=03N9?)-U4xc$~ZP?7ma9L0>X5tnFvqd*_w1F%C^^?l2O>|aK0O?%|Cmu!L-CCa`L z^bK9F|NYy4d^UeE>eI420R)LlW?6QX_KS@y{0EmQ8Z}iktRDQKJCv7pRNc=E(Pe@d zTS0{*xOw5TBD(@T>dG}*1Jwv#bp9|L=SrfB86S#PO12hEocqKj)M`Y24=p>>IMfVS zFMw5_)H*wu=c73C#e2?4@garJPGaKcIr#bVUERYy1|7AWo>9G%yHZM8dst;Bgil@2 z!G5WA$)L*w0-3mM`DL$Cg7C{(_Sh_f^62GH5}aLQIWW>zcED37YL5qsh2j+@7o*k8 zz`ff|9iBs5h3fKnH}Qv91m+tzig82H-yXH0*zRsrR$cN&Z0p2Exp?w!*XMpCcWDn1 zgGM!kk0uG_16j6Mh5Bd|YlSn$$BCG<=6k~IHIR}S$(T1h1(6;f9FWOgzD|)|d|`Pj zM6iL4>Fx22+*!+E9vp>P>bfrL(fcbN_t{4=xpuZ`K#4$4d6}P4+g6MI_iBHXF(E zxgP2x6po-{_6#50)1Q=1pfZ@O47AK|iLJmflAptSJf_+zVmODWKzpC!7dTp8+vG-R z>M&?KiQpB^_lSwShIxOeI5#z;IW!%wX3=4+Q-~^zaAly0aZXLG1_0H9_H2D?-Cm&M znGklS1)l8BUt^2L1X31Pe1To>R~l{>Q!}11^~_O`(c%OaNLQRQ&&!6}QJ*J721TK| z(3)0J=)y-A(F7qsk5Wye_G|71;qK9X&Wk%tko`BKlZ<^23YOvLt( zIR}BoI1$+7jIrHzTS7>uBV7Kjta>iDa1x~^pIEDa*uFNlauwuwGtq&N9H{9 z$*OI{!SZjlQ9s=c>7(k#A1L?Mrvp{g%e|+ET72?sHIdBa-UpAy!}%_)egOsDrRi*B zp8uSu&u1d4;a4|;XD{@oMjHLW>4{dF9<+6<;`_E#h&zrWL7do@yKU8w4sR;6L1St~ zL9*8Eo?y)`{ySV4(Xe6H!vu0Wudoo>Lf*>ztEhw4YUM8c9>0gy%f&Nv)HefxoBr0? zflRF%l9e-&CSz z<85=ML`}`aE|({hg#Fc6Wvy>$y>p#5f=gdn%|$u$Vt&To{o}Zr8D5!@PNNcS-8K$C zbqws>^|phs|A?2Vel2pnW(^JdnveKg1m))>IC_Rdx4c!4ao2y+y-^r z0e?z#D7dt>v0Mf+z??mcU(dZsMVj}0#3olGGmLKYK4Y%Eae+bpw zK zwHlCOAvzjSYBkq8@46&aBxTUh2e(zrN+7|?OH1K0w35zf*>YWDOxE4pyP}yWTcJ`! z;huv2*wJ)l&8nqxDh(Vv)oZJj{>G6F6G=#U&l;X1oa_utpESUR{@PxkYZlSbBvx6~ zoha?vJcsxw;05!RWHRpqqqdIL>3G{Sp-X(%B`1{nfW3g1e!5z0ZB>cR2pSE&T1C{} zel(9#B_wZ2O*HTt8E@c^;0}pvq$CwT{PiBlkK0nU->nm(ueY%oJ8dAWVKFbEN!jPzg=dX#HzV4`QegPkED3e)k-ev~>K*db(m zjp#P2gbv7eu1|d;s3sv2S3Kwuz7R5Ka2`$*Mn1N+JD;fze_tC03!*=ZHlR^#pqFuT z^rJtQzzXyYOc9|+hS$BsIqF9lwlDG6Pl)9FCX1jspHBceLE9Y5E~AFJ1^8U>Gvcf1 z1@qA1BVf-7o`w%-s{5?BE}($v{yTfdd>2Dl=lukKx2#Hv7PIhRlkE+j>wY;1JN!qe z#(rJzeMjo!LjaD0W{5=x^Aijy1^rqD&x1c8KJ1Ka{;@)WcHlge30c4Hh3rZGJ>DUl z2r)Y&NlK%N={V%MPsWCn96e?ziYMDi%;peZI;tD8mS(5@`_D}l3`A6hCSWl-F`lb2 zI|&PHiVA0^9Z`!fIji_Gs`t4E4{h&-9xJ0?xh(`S}vMX zs95ca+OxC@bpyX;%;pRMUl6kw)6?g#p$r?l2a)D0h0MugxSgs)sBT^`yU0f4RC||z zv%&@jE8x|i9b}$iY+ttmsTkeR)5^)JDzI#Ngc~)p?HO4S09MB*rlu36!^ z5JXIxtgM-)NK#`&F^*UnYo(tJAwyxFXdi$>gGkCu9xp|F&iYf8wB!43ql3Z;c_-Re zC5WA%%@t4O^}Z`wmd~DjYNw|R$*u$^kk$Qntknhf)4KMev{IdT+vin^(l%fMk4hR1 zxtBq^kX8xUdvOW%!5NFmey*#ov_t50Zbr8hi8s2OkyiCbXkvjOahV%27=OGxBWo3y zUWP=_7*D*r>HQ&Y$u?x(Mx2IOGFcm*yuxnhw{=kQt=zN)-ir)4lehF&9ooe6fc*S(5p{4iT+rP%>h3Yv zxiS$x-t5i8Pe)QZ({DLF z<*iJz7^KLU5l>&uF$dli7BR-T0^82htOftBCV1i-&Lad6q_b$HZ%m_FxC9|^utt_Q zIIs9l6q6Y3xOfNXuXZx=R(*=;debdN54P(R4LV+>5DL~6KO_sF`oEaYF>vl3eFJMp zyCz!mkEj}M+|PLCV5+GB;H(0F8Olq=;GArK@fsLdhpcb1S7NfoSq57RJc6yxPezCT z5^8f6=B7!bs)LLjNmvv<2N!PbAlKog2=OQX&*-bw6nqjxwm9y9?a|S3QH1Z5&1!!#eM{z~N=a*sdiet7ZVx*)U@*Xoz^I0@ zTcLiTC`~XsIMTolHzKt~5!3rs01+2#nSIeoc^ z@aVue-fMb{(cFcSK-;cZvcS30`k1*GDuyD;YJW9Zw3KIYVwDN#NYW4_m&moQ3jR6X zr#>lw*sC}}C)$5ZY_JOntyWH7OxS~T+o-c5rN(}(N}@*k6e`oq=oH=;$+H8&kff%f zzWVnCB{UIwTY+sWiO1xrnWwi4{M*-L&9Pc>z|dgdQGc7w3-eCNNh?QuDm~llfS6YZ zy2DlQ06(^jHUF-%i!SsZ5BSsq|D~VC?;RoJo(eEaXDRTzAN%!&OlTUI6~E~NQjRdM zJCsfPr^nZLs~t@YA($C{r=<7#l^p0vSrtSVo-v9r__}iz*;<)R7Kc?&tLkek+ z#xzTv1L~0^E1<c4USe{rteWkGcc(}JxqJ0C?;)o*HBuGnN{AiNq(BatYlcX2t5;sRDKo@nO5qy)IxQe zKX_0teQJE*9K568*a%YGE-2mFA@d+fWLAH%*(g3FK zNE6t|BLT5>;mQY<%=abT_8_JUN3PiTFv?C#&=*n#lJ8yJ42%3qm<+i^WHGG+Wg4tshAnr7w5NbzCU$IA@}lXP0f-y@dLZc(C)1 zf2w1JR4Y)K$WQ; z$%<}FiN&r55y6Yy@BWC;f0twR+dl8iUO_AtzdI-c3v(`*2;kN$8g{)sY}ZvosN!Vx zzuiH#lc;^T6JZ?2%Y3}DiyNv*Gvvj%yJ^o;iRS5!D!j~3y z3$t7WsWSPz?tou7HJk;pq4ZRZMwI>AvxD`WY00XxkEH-=EP^Jfs;5;>3A@TN1zOE# z>el##F;VCmG&BPzLFm@XOU`&gDWntG|5lNFugtnxij_+WjrL8 zVoWiz|B#8)2*0^`{^u=h!)RZQGKAyd zzYd(mba&>Kq7J8o_z#Iy;+((xdg5G!F2OYug!zrnijY z`9=~@zI*Ao`7gN_YPRK~K_iQ<;~EFp++aE{82{D#`;HcnW|<6*;>0mChHhU37u-uA zS?fqLI(7PxC=Z3p$-$F%O^jLp{&lg&6{WxnbUgSjkDdJUnejU@nHV-Y$RWy!Y>KrC z-)UsFfODgOtc1p!UR!uzai4efs%z)haKZhm_N+Rb=WXty4Ilj9e()Ey>+x}K=JvCT zQ8*jq)HpgAtNu`E`d;))Vuo&X|M5}H>aB*t^pY!V z5T<CFIW|`L;vUl4+f=5lVGyshDB};8`t|(}znGJyV3ZW5}Q2!PZYK^>uB( z05F^eX&TQ%w^w__p2Op6YnuTYmIRC#iNTrgkzwS0`lg zndRJs6=Euh*PvJnRDvjL_Fv%_YLRgNqB&~^_;MwAN;sjj!^TqW!QH;uq_jLf2mHRI z5cCR-_S;hynrD@d_>U78-RUm3{fCobZ6Sk~(Lso5Mq(Qigyj6*AG)|B|uM%j_G$! zB`LtcKp!h&naQzA((*rgJc;v2dOD$sO6U&;-9BgYlip`V>Ky_QTLbI?f3AO^9S%RY zh)4_Og@5LC^V(-(K{A~*W(!9eb4b!48V_DN3=rGu%x+#RlA(I~U%=v>xbhsc&-1_kjl+ zZ?4jI_2PGfp@D$%z=`bRL)fEP{_iKj@Y|>eOO}$fUs>|!#-&PZuwVKn*tI^Cnz_d~ zHa2__#9!usHqr>-LFb{R2fK%61oqV_ORVnpnOlyqc&G5D415a!;{6xg**EMPPy~$kd+SfSs zu=ByM`2M$Kk|@50`7b|x+HK+E8MRuDa{V7l!9mT{W4oHwyz9-9{Cmxcj|Dx>RWtK3 zF-P>loV;vsqGml5W0^|^m(*~;v@QLbKa&f~W=k;YS?jdn`3-3uN3V2G-*NRqywGw? zXV;5rcreqD@G4hR2WLmh`qN9w>n0O??Q4E(NAbT(KOA#m!PF)EYy zuI3gv($GLdi^iaw6=h9vLuc*IYyb@~T`sK&+~h8vESH@7Tz7Hw2|;V4Boxo|Mmc{= z1Cq8GyQ-oT^g3aU?8|GGTWuvZ-*7E2{gU^rXjm@*y)P-FMi?20nh^%q|90)Cbh2E< zcYeEfxe~Elbt)aHJ~&x1JGjP{)2hY1i<0o(moJbHac=cOZ?rN+9vz(TrCP~8QhYAZ zH29bE&%QLLO{6umI@ru+p%BUZ6_)qiQpT~2Ta0mw*c#v%7A{9?E@b?w6^r(|*B|)L zZxR7!8y=)utdT9rJAb~8LgYXBHN$h_iUaL?ZiN*tal%C$|HlkZ$M3rCfY7f zzdt;DAt=+n9Ko|MY?xVi^~`^djG3C+ueBzY$N#B%@`I9C6I!$jnS)a&JIgFOK5|R0 zly(YbtrfQg*V|j6t!z=2SL9uTl8piH3=Rt4IWI}heW+nW4cfW-#FDK;zYiH|-|^mn z?oNgTJjIyOvtB0GoG*%w>}hDNsBh!eS|Bx6sp%6PrWPrN2^w9T6sJTbT`A}W!v2tZ z3^LO(C}gg7p4p7EJ+R$w$JpbGt6vTd`<`+d8VR(bhb-=HUJ!B6E3pzzQrBpPEwbws zS~ZOuP}^c`#AY`vr-8B!+3wVdB}H_SRI94aItRtd(V3MofoAa=C#s3p40qFjqn#v? zNsOiSc2Ki>=BpT-FLiIbp%yragr68EOz*gzc9)e-1j)zhm-O;Z+ipU;jd7-Uy&T}T znf*hd;PY6(i^!cY8rXYkG@Bm=GEGg6^Z~Tb%}~p==!-&mYmyY(9lHvAd05o?jpp8f zEJ+cCDS}PH1?)d=k&gk=%5*25&LU+j@I52uT|0Kvjg3d}!uihAH7|d=O15^r?(NS4 z`p#M!ZDxRxE^fxBiw5cDp%L9%ntxoi0mh@y8xTI)OWDX}t`K(?`5d0+wQim6axRjM z;rpG}ORIgiW8=h>5KOSDGbRGAs*7n=%uJ+EXTL7|{1L>3PaQZ|VaSs;dZv1#x3~9= z@xvK9D;!z}92f8(uwnX&m)}_%|BDxV5H#YLIimk*JA$3m*~I&-W)3bPkBv$JDac3q z)WH`g_5iJ}wp}d@+;o&ge9844@0y*aVRc^rMHQ&S_Uq=lgE^bEwT*Y2&#{|4rmNHM zcixxW8IDg=+h^rtVkqA3fk^b{IqX*&ECPx56DE5!%$F_9V?fw3!?8#Rx1*V%VXZ(9}Y zz)K6j`s*wHifOCzm^l^q1Fr^>i&0@<^euVoaDk$IU+tf5=I*ko&spDNFY;^;M=Z_< zW@PcwM)2Pb-Y+~=l4pC^)QFqKoH=8Nj#|2l!Szam)8>TRX1x%Fm&~21-E^9u-Ne>c zc64h|BD|*karg?S4N`ij6tY=|aNAw|t{d;-(3GFlbGu=OFu^&w8|<%`?nTrBMera- zuB3G`Ax4VfjIw*OQV{g;d*y5002eH;d$5Njm0Wg1W8YP!%kbjary;LQ5j#r%b&shK z2?=C;tVJXQVWDq59s#p9uKvu{t_2-eqTOG1X-4p`XS_#Dyi9_O0m5S~e&2S}opU!= z>^v&66~k*R{^Bo$BsWj#ES+uT82NS~+LE#OzcRSYva&IwtPlN4uqpL`eQ9u}Wnwne!B{Zl|HJ{u^UPB=4? z4xcYYi4Wou;vI!F-$Un5f>l)zja3pQ)2ywXD#PMqLXk%pC&6J{s43~CwyPGfptXPA z`2|kLZHdDlJOx3T5=Ujy?F`;HDv_&g2yD$Drr?@e_#R04y;@rvZx9 z(jrJ628+yv9dmpqL`Nmc#r@Iw$q%&MSv}4Q5Mc$T>7Wl&39vQ{owLBN12frhtp}(t z43P}0TK%oRK&dKWyt84BPGjseemdkd70kQyZ?=%~Zv3eQ;Y`}f&6CofNJ ztFOZG=7`!n+%f2{JO0Lh??Ncp6YcMkUhXKbFK>7rx8LdXEAQX>%Ds*>{B-^<;x}-D z>No>SA{_Vg!R=sCGMehDFx3-dxK4 zG>X|c@_~9|oKqnz_?-g|c7yc46<3+4Zmv+@z@}z+z11zO^+TimwFVntNKxyfvGAck ztk2r&H(t2<(|Ukf2kmUGj)vpu8pbL|M5CrXWozXZm>OCix#kO4cbgXX(5Qq0y|N|L z+=HJl{M*gp7VnY6(SK3Stiv-{v~oZ!D5i#0c8x1iP zTHrk3yNLz7K>Tp;DY6t$*hlryvX$x28FYF}a-fRC>S%Nd4mQ|k6d<(E&|#pKm`rGi zb7@l!M@dqtmS$l}gRL#Qb5j%z?O&OAT+0K{RhD4ZL(*_gYvp|J)>;iekaF+eD`jIp ze@$)Yb+e(EZOX~!bdo=IAyzs4b&niOD#73g$_P|uDq|KKQ={Au7-guuP|#R+D#}?l z{P!u6aFk95T}3k3CY`-MYabzWY}sfw`P3EaZk2-MgPm+PT5EGm(%AfoBiw2j%$b)( z62>Y>%H6>#RgVPftSJIOxzdz*zgpa!6DPJI6|((K$(EJ%9b_s=LZR5!h-=mOtMxUZ z5XDHHpVusDV=#Jlh^E#1DRNmaD@y?62K*p@yUqS775=w&?kt<^%bC5_pcIYTr*Mw< z-L>dl;ik9V@$5nAj@r9Ln2}xE$0fHsgW{^r4N~A2EWwQ$&sy+jbHWzP+*LAotPfda zU@zCH7h#Pb9*>@ogaz4&lL^;^19=MZXvT6?7JjnWx{YxLI2d%DX9^1oCxt`+(KEvX zJBN%P#?LljC$co_sXmJbI^--1N|zp+pFjfdrM4AFe;7>b6h_wL;A^2r@eWu`SIo^b zMSp5EGa2+wVOBG!mW&1eHCV&er^JF3YYWEnfn!FM*i(XO+EtJ+0Lqd45pri;BzO2! zX$D(!a@=1hsyUrj$sqoiV`k{Ahb2d}wsGY0go{;!A{@=wrJX0;09@f*qNpX~O40O! zQ8}6@oX-VE^JB_Dv$}*FSwwWeux<6D~ z>}BnJNFNMF|7v?^Au#&xUF=&)r~5dm156P#WZ>xHo3^X)%KR@#zmcJ$H!U?geh>^l zf+0U32ZBx%04&*cDjPERyfP|w- zT<6{P=yTxU9;e)zT<)kI!talNJ=)>3Hvn*4U@mAL$|ZQY@#YsvASEZkJG^uawT5Co zLqL%N9xBn-eY0tL06fi5E0_1_9Nw@1h_jPG9q^f()s?6)-q^4}=%i0l zKRlW%1>*(HUEQGrfj2!Ay``vf%yoLV; zacV4DxI&1Vt~Uh7ZzGSTXQIi-Mg7e>6f4#li-*xGbOq`;c zA__svyp)^LMNX1UV37|`Vn*9XDTeJ}BB^bNQiu8Ygd#B%qoNsLS-xR!cK#>jGOwM- zrc?^`k4KY#@93>+CX@&BU9@te@^7O;_hg2bMwp-}ZQOqFt&wqYQABY+80phNPoaK$ zm{!XUAa{wocE);V2&E3tj?^jQvqW{HxU+}=&+R3>mFJx>cUJri9E*ItO>0gU`DmYu z4>>aO%ZalbRrAY}71rcbncJWs4U+US@6G+6hF)d*L2h1G=#f9L4K zhB+Zs0x;U2r`oxdX5@U~%~-#ESFp}(16l%3!O&)u!Edvl8t;VaaFa&M;_3KGkEwW4d8x&)UepeM{`b)6L{6D!Q)dh(X(f&^6^n3`Ux;EK~)@5wtO1Dabo4J*6awJI6- zkB_7=2a#-uw)!?Hn`03Q4)aD77||ApLKEznJ6Dydf?@}+azH?nv%m~s_<8VL`jp^K;TqLMco$2p&HrIHJUb% z;KGOr;{g2el`nE0bZD%;kgr~j)iNxM*sh0N!@FTsT~m0{=$uQEZ3YpK?`RsZ8#s!M zA+dR=NS%c&W#-rv;fXsQF>*Oz|Mb$%l=&`UOd3ERnVru6y5F}(dP?kmpuX^3t%zJs z)ZUT&v0}@{1!A1@G$>qiKmEARcC3zeCB$q?*gaEtrZnq7bw@`>ITk=C-2)vrr-URh z^KLoM1Ql7(sN<)&+Kx4#IY>TcY=SO)JkB5pvugNmpc^$j_Uz~mkq1{toqCbWz>~Fi zfl}7DWAg?=H6CbIbab~z7UJUV41)lc1;F7FKv8>iM_hsyO525E6m7bW;t4+P|NqaI z_v>!G_8Z<_S-(BrpsjM^Wo-TTa#b|1I_&#u*%e8*%F5BOs9E~j zzGRO7UP4yWwu;NhVw1S(VNSosZ8>%s&q#{f_YD!|bm_O6{GW$@Lutf$a!JU;`+}Lp z{r6s%TtFbkx*xTiTkO-XMXfVf=a-VByWBM|k@`OhX)(3d^!X}$e|8)xP)^d2XqXe( zd77>}66c9zc3bOR{5TBvm1oT`9iXl!w&511-?WU}0M6T2+hM*N_QQ)Dyz!7CRom8o z?v5?mO>^q^;x$*T5>#1d`9NE-*-O51YT-Tm8i^m}q@L^>zSfo>o{u3Qt7PHn&T zW~HG2U(MsOnl)V0 z?CT4(5J*Ob-s(L;AOJ@^=_%=c82anjLVwY$KBnloK^qr7-3s%Bd5YRWy=!ToG=`j_Hd3n7e#!3Yu6_31(UL1%D_#m?=xG9SrAU*TX|I6zF?}h z!tc@XV42|Zs;6850cl&%z_!#S?&&o;fYmR7@Q*lW3m?}^G^M8ow;n7=n-MR5Jc64p z>Rel3FhH6SolZ(uDcv;pKD_%cF^$KTnF0QCj{12oB2zY0u~!M5QUFb`oicJG;o)ZU zxI`g-0vkK@J4pGyFqA*75vsq3`M2ee6e8gd_TR9EYbTd$oDw%HX-6&8sXrP@hdyK< z+k6Z}PRQ4UV3dp7iDZ#MydHJG6hE-CJ%70w zMlnK+I6c6*okh7`XM_mQ{~gfRHPlIxfG|5U_tYj9%nT?*L0S8}Kin*_df=K|yOCmO zeG8sXG-3!)ensFTGW}lv9*b>j961iYZc7kiELz$&AFeOgZRff zh{O^1ulibVyFUn^h1R!5(we~Vl83=wqbsZmFPNyA1lc7&*ud4;oGn}7JSNO0DgL_q zi^GLiaF?DGNrVJg`}J>?_S@HfQrPZ1~Plf@tDWZLW1ulss#8aPnamNLo;pl!B)4 zYuMO(3z3M0+xz`Wxm>inHf%+)ZS%ZgNg)#O{1Zq&USlN|QYwYNQt}5g6v8I{Y^|-C ze~*eIg<_RRF%o`=_V5a5zlbj=kVu(m&8TYsIZXyqj3nysc@X)rsc5x&Lo34BuJZ94e4}h(5 zaDM0AYfe|_ScK$XkMx+pYBfFdz3QdoN_iH8)m;EAnc)*P2(EszNfdDlC}v=8=qb`d z8tmwYi~KyrMqxTGcJ(rwsboE4Lmg^@8vlh>?of~1P(C8L{d*k?xHr>TAdD@^&6jsdR9NImctuyE4PaR!yR23R!yK zj@)Px?5O9D(d|dld_8q^cNj+kC`UdYgK^5;Fkg-YL-d;wHaf8Xo1XvAxv#jE)#M6y|F9=hzAexVF%c>J^+LmuO0uc2 zVru6u$|mp4s|~1j=^Y@SLE!W#>t=?`Pvl;gZNb|3o-PIvmJuUnm=-t_%a9hQ_ zeHW5PUU}xp+@_{CznFXE>iwL*bIjCWNU<=HJz?D&;1n3N*gD{)Ex2RazhBd8#OLF? zP2cVPzi)1<+q}1C{q}Q< zx%&M-0T_NG0;s8F@AkP~xf2Z)GD*w#e3%m@vq!i&aX42gl0MNu05m9x-(a1?Y7bB> z0cgW?A6y1*_Sx0htp$2Imm-UA31zzvNxPUFWoBUNITMgA|FuAv;5JR3?K}LyIvut} zy9CCfd(S}3g?{jCYGX7xY>rdeS1aGl%~XTF$a=fU#=8KueOak$!RW$ zbk0`ot=i_=TQ$`Eazcs^<5SsyUa-_t&b)YYB2teaSsq(Ne5&kQ z-@sn2k7VsW>1RTf~uq27UkJFqgi+{Q%@?7o2({OLz9oj~at^uXk+P6&y zS&>;1W)1G_87O5B5r=W=$lV`q0B^fmtIwb#Qz1WAYQmu@1=ucN=HU)OJMekdx*bLc zkng6izttv-W}N+!Q}P_1RWq^lPG9fS7EAI%M(JfdU3Ulx^dH}P0F#lktwN<(M9iq^ zZjTW+|A<={2Z!Qn#eE^thS0il(|Nq{&-G+s^dvmaiTaBLX!R;_Egsy9+&EX6WPWvX zu<2#+H2VDqj)OGV4(lzW1pW?A2-z3hV#z!lnYV}-iQD&Ym~V8PPqtY0&K@*+ZVLf< z0sv}6;4)xyky|qo=i?Lc$=Wb?!yx5%8^X`1KI8Q+1=}068%x7y365<@-R}rwt5~=; z6?|}hBm+=dECOi{3X* zPAtw0nb63`tbdcVJ)Ytqzu&1l9P;akpUe!-oq6f}x_NPr+~t1F?h5jke{&dR|Nie~ zr23K3a~0Ot8b$B-+*xO-uD8KiD}L{3kY;f?wqvY}+H3LQ`j&5#*KLZ9$g}6g0OIMm zcz58`3r{LkX#2BvDGsTc%sK1TfF3(I{)9yK20%ZoK4w)$mUiu5_#xzN75+q)fPIb!7}BVX&lsinSL z^-hi+x*tY4`{+1Qy}lZ4;d?Dy!I5T6t=<*Ac-s5}Qx^<01L|@5sS@BXn=T$GC7ah$ zjQ8u&Yj0J{A$iM|)mWlJbIW{M$5rqHd1s_GdYDZgU`8Q^Iv0@8XStFE%@11Neqoc_ z6NZYnE6`oEM^b+RF;W|b_iFtFM$~BH#+1h{+q6v)ijX|vcvH>W^sz4Jbt^Rc2UlGt zav77{#MN>U_aTYL#G+YvfDi2i+S(+eHuJwL#khiBr?=ztt!1k54 z`&QWJyC7%lWIS#<@KUb5v8(^59h|d7B3)0_YLI@08soi@n0Cy3Us@c@so?FbwNpj- z-mK56Ym+L@H}-rIhKm=A$riPn9>m3&>6%21&)h1bdaVL-)Z_g8+l;kzpbLE!NsM!g z`FZCu#9Q1(_ToLqX~%mMEjNG^?$w)4;w!y~T;{QkncuO?+Tx-y+ALbm~l2bn}H6K{$Pt| z&6t_CRau1_3Rm)5Q>pnw@PBRvoiNixFiFnLFH8>h9Zi-1X74w%Asv%C&;L1ohcpd- z@J=1s`>bGec%d#f?A*4rsJ!%KWC_txWsR$n=FV-Kr!}wvQe@{7 z{QR9ebT?#&anhyJR)4sjU$2Io^Kvc-bbeCVq&2OcR-eQ|d~IV;^`v***V3I%tOu)n zzuLpG<#xm3_7h&80)9z!LNb!x8y+)7{8QuOxFo<#&VQ=(;M{4cb2>2+_VGXHjiue$ zO$J*n-kEH7yY#}(>FQrN+#!*=uYS#M`DIq(X$=;n_Sg+1@r6{kZkD}xbL^7QzA*JG zo5Lqdq0?2^e)~IUr!qtN=H{2%kJik8u--fGebWnIEsxE@`gGLcX-!P=qrIb7N*Aun zdThb@Xs-`8ZRRikTnJrHg&Bvf^5~dzNV)ZGJUM@AdSPJ->AAuYVXcx|THpD>ujScL zLh+MTjEc|@<^jXc->+aYyH9b}D(8D9ulNl{dvn%oAWLhRDuV0GyKyyt!k${u^u)%V+(-{V8Mz`5)@nVC(MIo=hnfK zT!(o_EH$;Jwd@r7-Pu<(n}U)#ufAB zpFjTlKhx@QvtQaOKe%8p_J2ZB*J|!g(U%izNybK7!PoE1hFYqUz-ko}%yYa6m)3Pe}{hnsLCC4&>b^y&9o zpUOcKs*;3hH+6I5;_u}H`PpH+pnvPaZ)Rv!YrE}bGQYUt$76%JgGN^eQl*iZ;U+Q8 zCe~&)Tu{@3QgY?H>2apG0!0TEPQD_rSS$o8b=@FP`Io{%sx3rKk0Nw2$8jJumaw zAblN|c162IoyqX~9JQlPlCTuZ{-=3$!+!=@;hZfNx_$Qfd@?mZC&GAJtXH7FS&ciJ z8eMh@E@cltMqs(wqMl)2ctUXvV&c?_0Q1_%)Zs(#itph{GRO$n4xN!NTw(*k|bQ}yap=d{kDjp>By@0JW@rtI|&AqYhx*0~BRZg1)& zrgd!knq9d;!5flpR7|gF?>e2IZ4xXHf|MIY#E$^*BjXHI!$~#`RF!xlaSMC|WcGQK z5+knta?_bx{KnY?LC9s%fxXQ&!_mtpbf+HHyRO9?!Rto>r)*7b2;kinwmO?-Mk+Aj zX6LSj25o15CC*dT6HCA)i*dz?dj2EwF2d!9^2R4=V?KKFfA`4m9elrB(-tp>pA#&1 zjLsciGVgG=cy%Nfb`UD-YxIFq`oHiu#g5J0Id}q0l+!opiqx0$|6O#`8r3Jtnk$FJ zzcF>a>Jg2*IqdBg<|M6r;IHv)I+3^Jdp~aHt;H83;X@~&ew*6}99mtwZ&w(Gckuzn zWm!@DblR}YZ{sFm8aqIK8g!*rphae#_kn*J`!*sMa?vYw$1i?yP-d3IvY(Rs;3_0Q zG!*1)g~R75bH(u9PO@&)2EBYll8<~a@( z!H&}Uen5ELIW!2ax_-%msnvcd#9heTmMy{G^VzHU?6AoWH8r#TAlnDI`gw7seI z_eRq$n(ZE*sxDzt(-zg(=w9K%XH*Nkt*YxQGB1R8-s%uio{+Z{aB`EydEI#|qMci~ z$lX)&R88x}Dx_Y+nYAoQ0Q zdC7wP)MO|2CN4+U@nEq=YA^s$Y8f5|l+%kK2&nwr5X>bq_ycL0Gxc4>B*%1P7wrLW zziIr)%%|Jy=LoXprhbawWgKi?02z}+Yf~%V|73F_+bg2JHu8et2k{L}@a*q}?jM{% zbiCciz-`w_txdu;Xvb#e_op3(d`dIXJX?xqCZuAKm53jg8S*Z~5P4H4T~+bMu6OJ3 zDY?Wo)jXVB4pdMH>YIbj;+%4is)Gptm@t1Ivol1Obb*$$*A^UAlFj&-H--5gl1R11x4C9cK8*o%V!DX5y`2qCPFAv-mVBmFk{Nb;AMVXs;nYrD%iWBF0JX9M`c^%y)nYBxX zBBdLDl53^t_}T4>xSir0n;&x-8oyua#@oTlqhYamg@0)5PVf+#0bz>zRoVD|TqjUT z8=!H02t$z7-RELuWE1YnWb%ZJ@Zt^-n4C9#4qrRFm1TIi%l$I-n$@U%A*E_r5@NHy zzIIu0-vqcA^+p*VnaLj7*3E5bBZmf{Hykd!*UJL)q@_*NmNzf;TTM>+0)qEeSkYzy zcdGy5ZI9{n{tsQiPb+84oU|CmyGxwakR)@L%cbj*&t8|;mUy6bZ)&juAhsN7 zkyoo@^RyM(sxYS+L>+>|WIs6xS8m(-HFxPaa<_1pZbI~eJnASh(hzCv-E0c1zPWoc^QhDw_toA^f(n6_HuCXmaY+Hi zal!hmKdS&?_>U}K$WmNX-qOLI&K}r){1{&35PbD)MMFeUOK;r1#wBm8sOcQ^iPn6< z$v?vFsVP&-y@=cAnmrD$9a+=4>3Bi^#acJEXV&e>BXD#w2F((0U@urb_1CcqBZ{*P zlBi!A9PXtIt~wka34}hkSCoP$LUGuE);ou5t5GI&Cy9@kXYmO_>b z!C2qThvPiq?2S|LcHtKa>=1{Oj1+mjmD@#wWvF|btASvAlRC3JC`RA zUS5{VhpC=D8=I4^*_ntE4oQbwU(=zNsq~Sot&N9uY#WGefJGTt<}z2;)uw&a9!tmc zMLbUWfqA^jQv0M+qWFtIa&nTCzPW@2#^lv5#a6ey`0?!UII#AqMZcxDD(LcWvG^&{9!Xh=}BQ(j1iCcrPBvEIP3tbN1 zd&qq9ve#D34s8X^`oLeGgblwuiFdmv774DwX;$FE4)${}E|ws&ZTo?zO=R?t-403e{1*2dsI z;e`XekB5~}GpfE;LGGy_l(4~fms4THT&bc+bWnLiyr zQ_@SW*fY`=jLRsw$91lWXof7O1bfJ$(8A(77dzrkr@ERLk@QCMqd;kMwiEBV9qAW`En<&pPh|j+AE7KZjzRz`u zMqXFb?(YpD_ZXfx@Z1O%``VZTAA4yu9=g)s^&DY|IC)K3Uqn|nV8al8ajV`jumFSK zCHE3yZ8~p|_68|4MsKye^YnVI=h07tv1g~>O38_#6u*4&@NM~d2{}@AgH0|u5nGnZ zCn$%42Pfp@=ht^k4$$ilyEtt@&mxmm-`ZEve7R}KC)O?xfue`Mw6;9<2CfO;KzsO)qH zV?$X1;Z6LsjM~npO7P#$L=ig=za04(G5Yq|E_gA*GwYCPA6f=hzdG$cDjOD4+^d@h z0zj8^gw$S~zc5nZl4aG>Tm0K^yX|0{jo!u5FgWNvk}A6fpMhA~d-U~jIp7$0^WnWn zG6FUFLTl)u6l@nrykdT|S@WDH8dVbvt=MMW_nMn$$p9`$TRnB${CyLx16-`)p21J} z%#Qmot3dK|l59UU8b7&MDdaGPoF6xZ34Oe*y1mUPU+<+%>irqqM{Cn(&_pTdarmrY z^fo7-oW|n`Sv<;U!c-E#3reO=Wx)SNC`&;xF?~T{ry1Icu8Pkw8M5d};f5i=1X4K6 z`)vuq@d8{whEQ|Zg4W%3)!a+G0h|3JC@iih^-wZKw9(YA7@R-zS5(?Ti-Hgf_LXF_ zJ3w%&22|e+PnwaaHVw8$j*MstyDKDb_mgp8f1^v9#n{=H0fi9T$dcA5pEFPyh;`r! zM}m$b+^{Oj){U-JNa6$FgbM)EGRzMcEuW|1ebHw6U>1J1M>>p=?2gwvEghhTTCf(w zGWZ+yy}%FL2C&Wz*+`kNs9mln@@3JKunWa%yCFH}Rl%Wj5PeD*(+lu-DtVlwdIeNQ zRjMMG9CW7C%DH_CH3Z`93KmQdPIj70hjjMtF!)Rkk=bzR+thOUk|9Gb>a35S_)7UK z%~!mbFbJxWVv-uyg;reOfzeG5+cutS96{OLB3mw%<}0yRRJ=iJ8ku$Wx}RnP9*b z_6Y@&vS-1zCN%a-4vER=icG?YqTqct@AS8Ytzdq8`y+Sc^{T`+n}22XqBho%>Zdd4`*{S|(Ox`Yz#LR-LV`$xw_?Kn zyioPy&yx>G64~NEkF67B=H8sU=x)C0qWoTY9jz68+ual0_U#;b7Eev$Z|so4ob0JD z+&=PH`xM4XvH{zW#(`J`85YUnUaO?7Rmt#_L6cumy?@uB%g zy0LL`^KgD}2wHM&n4glC#zGVS^>*fp{s<-de^=#1f+G8;H#-C_6qzZE#V9hi4EtG4 zciX~ba<2HwM)7!AELaR!te z^P?%3GlW53FPfcrX}TwvbrmaRs)f9-SbDk1TYNC+?zvtLd4&*~3}0GOeuq)2WqFWE z_F=&sY_yh&Y1NwFLaRdpoNeUmrHdTn$CkN6g3U8))#PVkEehskyy6! zyD=y}t7~}LHP_(5TistCTlaLIz%(8I!26@A?iiXIaTqkE&U8^%P_$@Qb zKw(*!sSUd~=Aw}aQ3E48+M3{YTABcRMRr@)_X{U9y(cV@uBeu5%55#+>c0~T4K~YI zQvvWe=~e~eDn-=II4J-HtX9_Tke7dkJGi7Inq6lxZ_>v7cRB>V11l@*VJ=m&lP2$&1^ks$7jz_~q$M$-Q-$;hRsWE)LN^)t1WF7?3AxR| z@!R_OU48rReL+WmqZ6JW>a4vr(h6dmn1AP>(z%77X%>Y zdhX?`u9gTS<$!{_Wwvn6Ku*=54t1n@iY5+(?>Etqb=+%W9mpJPkuq|N`_jI*p&B|Z zM2X7Zw3k!Yb1BG^9*3k#96E$7^)i>yRQ7u`@-fKSQR(jJo4b$gYFsPcwnHPFFrq#Z z(5Pb(hghV|1La{+xp7`(aVA35Wj{j^)9Q4oE8Q`KAz*pk;hG4B~VtP0wAY4E@e;z#gHc z6_}xa7d@Br6=e%+x`afY7++WK)s{Aj`Dfa(>R&o9dlz5;8reG__3SK?a!Y^{vCf&Q>7Oq8pQDXe)jY=wW9HbE~GtN7|*0 zlY#+p102}bsPKX?oJOPf|MoQ)y)lEReL8WtX|@s&$Kk%UX!L;*P%lnW7SEn-Kypej zw<*3e3x*HH^ZP{>M>o=G!Qk{>+PSk=O7V`beFQ%cSI19wJ_+TQt`Jc};%8wvM83dl zHliP^#a++_g1Fu_-tu!+kh93g1l7x)vN$2Un%Yd~B{wjm|;34OcHF#g?=wI1JZ=zxhCr`gb<-7^AVQ**^?izKPDLmA*OS7}n%K>zJ zO1})&VxgF#etQdRObHsFRV z2RvUAWCE@F-~H#VGKxWp^m9vH*~ruaawe9?BG!&a^lY0I1}L|qmu?4OX-tmnp0&Tc zRvs6pE-!~28Dc_~e0^sIM_NGB?Toud)ux=J-M)yoFR2mYp%HlTj`rErp%vIY2F_qG zwjztfNymG6K1;r@ix=6SR<(iRC-#&S=63hz={~ibp@VvCqo6Ks;L6tnP7r7$H{~k& zvdUtGPFZ~gZ%wTKml=Qk({*CT@@_4ZUhR$0Bw2!bZBHbhAGxADC&qnx5oMR#K?1Vt zHuymL*gZj4@ZiP`Ih}z@L8xbMgS2Uv<)jn%)s@o5SUX$Q9Ld5z^;lO*nt!o%5p_gR z)nCYPXRmYmFtK4nx+w(p)tHb6+CbX{`{t86Fn11^uHw3EJ=MPV^2$u887Pt&E6EH5 znWVSisaO`yIS{*87SY_)WeBayg>%5@l>`!w2WZ!w(xZWhe_) zTi-qL%*krfj^^zRiOO00fGNo^uk(+1LAdq-nxykHXnc2b$y=WV-Gc zkjmdBHS{3X4)Nx+T(e77ON1hs`GLBw8tEEOi57N@gF%sVh^rAqVG!2Bqph}VDw61g zIS(V1VJ?uU-3H1C;&9RD(x+@IzjAIY*3kJ~#3CIG zb5YStXry*LYDHF8g~Q|?2ZC3POu`Yl6uo7Ka7=TSJjMqr5w5J)nAak4Jnv;kz^!Jz zZTLv|Qi-|Y`OGs)#;qCB&ms(KT~5T}*THnfx=G?lcnQMj%nDL46%d`flm7B4 zwSVeSzkk=!lTp7P&oW4}dSfx+ns>0HqJF_7GqnG&T!^xr))5zsmG7KrnQuTMe)R8< zH*4zjP{i%FIsZ4-t`L)67VmYuf+1}U>F9Bd8{tOFTFWhi zBTW?2EJ!?lcU6CK)CAmTWS3E7H^?L^w&VW30|0cAt6L`b5g|!PoWv73($02GX@$3? zbi{c$&Pt(_h6>qYQ8et7QCWW}Bp8Zb?&E0$B~#_ttxBY&n_I-3Jv#A+j|dA8PaB&L?@F$+U{ zYnm_B4V(h?T^=J`#y~<^jXjBKip`YLS6;9CI>;1D2EW{lC4);>;#Nyqf|-^x^#m)4 zyU0Pi6c@o~bzB{H-e)2_#_6TBUNYKBPt1cPJhien8W;GE7{ndB9c*g%<$Q)rIr%Cy zl^xQ{1URTIm#MLaMh|Jj#)#g2Vf{XsD?d1<(71YF+3DMyE`(t3Lygc2MG1Si9ZwFh z)1T2J4?KQ64dk;BhqfkP?zS09MedX(ql|}Qh$#nIKK2X zfI-h?Ar9AWKC*{(6pLqKG&=ASCYq^xD$L*)yS1rTwC@g{j(enM_O-{QWD3N>Yr|+fZYaLIr2?v&s-)KKE@kZBekexd->yiv1@mA_nN z+^-!_Ylm)7hO9)94i-f_Gwv}lMf;VE&sjvL%sTy(ZHm4TG^#hR7R*We8;n~bAu~zB z(GS#1uTDWuAuJ{e;HZy;Db16C`!e;1eV6;ZJP1~Tr)c$;lT$HjqWfmcXYsh=4+jd+ zff&!5f|g}niBd01A-xHm(@2(!&eM&;%Wx14d#*j92TI%9T@UHtiMjGCxB5vMgn1vdZf+ zovHmHll-ZyGFfp0@_NbOs3VC6v82)5ZFYzh(VVM4P|ZmQ|G7}zy|RgA5lv};kVCx; zi|0kCWI>G`rLh9M){Wfgec)E$@oR!}K{ByYofBy6eC8(~M{F(9d_V~`b;DXt`h9;DK!!TJg zd2?@4{Jx#9h*b)AlD%5_QV$ahmXjUiO}wOHZ!;%lXd+=kUv-YqDkqWD;G)kY?F<2O z<9+CRtS(H~ytzVN%eQ<7b|re`#mer3|2cDm{=9Sk;XcJ^eN zFTBKJ8-{Y3F&G=V378HLkq4t=7EA3fbT~k{3>PI54AXI!MuX+mKW=N)4Q?;ORt*|o zj7o8V=uz_vuq#6z9#{v5U>A8R3y?OO`rDxZTa~?Jm`-8zpUmo3^29(_$DY78vj`^< zhvoI|X5+yv34V|ID`fWc={J{rE}nKO6Hyt~YFzp%!b4# zdNoil$Q|=jQ~Su?=z=2|(!n$6ueHJS1+&>X2o0A5dG1WtZ7)3Hg+uN}Fr_=9O=qI$rhJ4^L&87F*DU3V)GWKQ;c>@G_m7U8=V}~$ zV?on?)k2tInl#$Zyss9KmK3oUYmO8HEmIXOF;|a|+lTSPQc%ahQMnx_k+@*eoxu?N z?dRyYj#x@{FE|$~kjWT0vshs%=TL1kbLQA5ygQUnuAPL2p?)e4b<{rEaXe7pcvJl= z9FCBkKfVP99rM@GW>Pu|z)Jt8@@mn>v(U&31R*y9&DKk6PGwc?2p1Ogy8wo2VQMtCwILl;rx>1C}*_*1zTcpzO0)0f`YJ~;n^2kMks?~+L z%+`t?P3ieK8ZHnJR*XKZD$E2u_3f1lw~{)FvLrkXdI)V=<_?DZsOhREQlh{-nEcTp z^=iIfOLH1O?ISBtocG9ou)C4U}LN|_8WX&-+q$}xf9;;A#9uSCU& zvBFKj|2^F|J9)GktEQzAkgjUG<5XAmuK0#}4N0J$j1`2QWJM}Lr@zwAAtm{ zt!lJa8Ptk_?$U>WiX#iBx#>?mE1skA8ZO0L}$mp(X4$Ltp z>j##NIT8Jju#s<4P}pvs=|0#&3fz*4$SZd-?Qf&M;7@dHZW^)qMEHs+_j{ zdkz}-B#gcIMv-}FAAn-j7VAdO6p{;d&e&f(w#V7WtTY<=Jvf5awZn1sTPT=gZ1~7S z?A@tJ4q79zBdZ|b^i@gP;zxyO(am1}k%GG4*aFg)5XP2l>GDtMO7THGY8g2nQYOqI zeNcIJQNs9y4O&@5HXxd?v8i|`MOFmX9BzrDZzG#F`_?(U8W6$@1l9o$l5qQaS^mTpy@s@$Ux8zXqtCEPYd!{S>Xb8qnAe2 zgwe0c5;o@jf%n8s7(qp`y-a%9mPJVfvG;aSam)S@%0d1>OuWk8paHhs<^Uc|JMpFC z#JD7Y3QbhhQG`>ZY5p-nf?5>?EJwk~igb3WKdB&GS;x;Ia(PnOor2Lq96wAev(tDC zdj-=iKhTbtt46~P=rh1>;{Wz`cO)Q7?$3<_`!*HY=<@I6hSO~6?OQwh)zToitf|LB z?;ymCt49bW5XVk4s#`7m8bhe83yLT;a+Ym7-?vJUDwwl}oSeXoC_nz!^Au=6B(*I% zYMuWxG2y>FJIJUE>lm3or;ON*dJ+EiQohk1b3_3&9OK|%g|^)+WB+tNcx#*}msnZf z;FyTNRiEhZf52t|MS8BzW;v*M)dE; z|DPdp5AMFZ{0Iph<`%BWsA@=>bYCy9KkUwXdhbuUrp0bTk!NT5$;E+@0WM7C!cjBz zGmg3ckR|WG{kQGg3%zIIk?y!{TVcTA14Z-aG@|N;zh+pc1|H5S2`TS;ch?42)AC}? z6KXysYb)dT;@0v^*FgW5n-}VIT?bS!iI@+4Z*3luja8m~{p;-+)B5|ty}C*lWs)zs zf6t+*?-8mz`EaH5bIFk-VdwMM(cFxEsk`pa+m;@G{*RgrxjW)eyA#Q}@Qgq7{u%#5 zhjjc_*M+pE4_5b|c(?n1`%-@@8*_4vzbwtTicxBh+izM89SBML_O)<-fu~jT+xCCL zR*u~`TFG|h!MlTNg7orQo{YweXr@t?%h-8Dn%Xoyu4mycfaf! z=}t@SUwz)Y_nk58I@LWUI^o&G&&trHSujE=Jxfkr7kS7@c0=*Z;OEBpL$KC(lAmOB zzI@?CQpP*vOUa?Jy_&dV`{k3>El=I$y;_ub{7t_6qvqs!r`CgKASuJ^W`)!@qsN0KyZY2V^ly*ZaFHBtsq)8rhxK&4(O*Vd9baMwgP>)$GHyv#Pfw>%wf|TMsqA|< zcW&(4blcX-{!>yWYL)9_f6FMV-){baK5uCJB^FWa_V*iS)*fz#%Rt(s$c)`lpR%JT z_%ob#Yg0~ipmcJig@8<2lF1Yvl`riDKj0^RoHypOvgo#=#MOn&1 z?l(V{cghcsKYshi@n_GD{a+U=Q{*pNlj|t_|05>X5ff8W3;6$ACfC3J%YXgY=EV{mVvoyf{+A2Z zfB)B?(YxM%B`M+5!JXCX0OMvH;vTVgh!ZC{5~TU!=Zk%3TqJ*mF+tz$Qus}FH`tI8 zo9d36lWa~mig(ew6WrG8;a=En5q6p%UzzN&^W#(R4w=RVd;u;wQrNZy#Fl6N@NK(! zzR3hgD}cMAs#YjO^s*>9$u^fdQ9AllKCTN)x zhg<{A-5f6P#^ln@09mcQ9|wE~x)m-zr{nU$uBh!B6T1$E{_cO^eKb`DDwtIi-qHh| zeY_VAC+}OB806fzN&8G6QAhoE%-^jyUP!8Jb<(BOb4`OpuyHFroowTH4uMLtk%1`IYx4?7yY$ z{}bOE-?1(MOQfbq?}?~bh9Gk;;Y5k!u?eX{p(--q{H?Y)el z6x?H)h?dsZ-)@Lej*L8UCC7N!X*Ewxt$8oLYLx2HF*Z&kLWrZ-LE?+)){T6*_Q!T|v-qy5X_x z*MYyL-?%qnapf!fw(Fe`zx zoTjOO1LQ;@`|YdfeuHKYLeD+)lo|FtP_|j}w|~JhST5-L9I{SA)0_@|!jmjobspj; zt=#ez%cpVUb`(l#cewI4Gy$BZ8)jiBiDe8H7NEJzB5E{@A|upsk>S>Ma`Lc!vjasp zgY3R+VSFMg5)@lCWXmEaPRb`hqBXi;Dt?N%yJh2q{U5Gaxzshhb7}q=1_}H4C#5#r zKS}R7{O7Ipz$xV>&-ws7)7y8$WOtJKHI>b{y~Tq_g9A+`#2NOh;8iX>PoK zD3gY=x!$w!^Z5DYipb>1IrHps4t8S}y{?fN&G0&R1PtAMF65T8)J%lM_FPxD!}#=f<)Pm$M%{EfI2>b z-*GRp`<^tII0di|a-HKQx3$yzRYOCBbvtf}G^~n4ZdZMh4#%VF9;c2WV!xx_=x#Ds zmv2@!r|Y_Y*MMM6Iy^cg=j@Xd0gl^SD50AIwoapNcoec2TeW8IwQK}pqZ4q8hJn|7 z%XYKEukE*g4MmpKGtx`itOaaqJf{jafG!P3vRFaBb{0GA zlTA~nQD^OIyIut9rnnhukd9Q>MJS&J42`|44sRbNwV&Cw-yC_AP^cB4ljynLd-D1& zskfC{H*9+S>xVQh=)ZgouRMg`TlhIjDNRR^?5?#rCkAVb?_bkmdIlF9QF*n#ariTL zlUUDk$F#3}ct2BvR`bxn^q8%k1M}@xpC5ns z;eZHA$A0ZfVuQme_KIS;;`QH}7mQNm8e#|sARyw&6wsFuFG|>9eXbT`=CT&|imjPk z(OY?7iraEt8gom=_I+=XAkY=--I`ZhFRWvRyP{j`| zo02H5EhncWT8Yu(&>MJ)cZcO5U`|QiTmyi`jK6TO7a76|Ij)eiDY55@@DS!~D;!vDzIYPlQaRcD8 zA=mtQrZ(N_w<5?2}=2%iK>>N1Xjq5#2W~mdt*|+*TN!RO~Y4;7imF#vi*d6FcL$I zO@M)Rny|Sj9Sjv^x*W)=?~!wIh?kaE~t9s`M@qj!%)&0>x0a? zG40#fyVo9rY5W4FBL2h{$xT~19qk%ugO9yd>{K$oe9jyH7rwyQ#(#)h+xx*M!pWf~ zd-SnRujD30Y65|>`C9bMb##R^se(wvyG&fq{;tIJawrcB+>oAfZH^x6Rx>F}>kGU* z!1?&lBzuK20tGF^(DRXqAz|pXi#fBrP_+Hx+a(Hk-q-=5g#Bg)dw??#6K+mc#Xz`^ zlM=gXNH3l^GzUm$5)Ryl$ptM-8rjK*eYa8P4fie!kV1ApCcALBDw2Y$QS#q+R>VEy zuf~SLQ!(Ptk@vwB&MWDiW6yWsQ)L5<=dAlN_krzXWk;n@Y_eY<%;bW-pc30P`vIHE z`u>e?fOr}iqRs)sK-X^5e^)K#c#M;STh>qFTh&2VD&28ds3{qgmXaGD8rK9r?*Hmx zqm}anoy`Fx5&+@-Vn8wwb8Ar9(V*4z zWbMlaFG6qJ3dSgBbrMV7INh<24i-&3U6^}Dvdqck#%@r@S?<*W#-QvJ;V!xttvTH0 z6kiM)4~>EkLNjidFrS4rYN#!4Bt#e5dQ9Z1&000o?W-^+fdZ2B!Xq@Sh>J#_rHh)$ zUJEy~%}!BSsUeG-?Paq<`GG^)-OGV-1TBTF;$1U9)~XCA0Sno}QNF`x zUT2h#6mCQ#Z^7|n(3$%ecNJ>XPOdK%t68V@q~+sl=Neg?iiGNGO6Pd)-tiTY_bQjK zT|=&&?#`2zJJskB{rSM!$l1}(>Wwx3IkDzBOE144XO7!)g;U%X5=VS9=LxvG>;q(j zjkx44o(FlclI@Sv#@(J-AukQJzL>l#Oa*+LaE#(N7(c~wqKC`mPUX+tA_3NY68Pn~ zxGB%VE+Vga*nT3Q4x5vd`SX%=#o&~cYqR~R z7isLBhcjVj<&3kG_6!E$;9^v_QiScfWd-}&(2+`IFW(3=Ye^&>SjVKb^B7OzD_ zy)h`z_%s%!|0!5!+woo6<)>*srR;PLheNKnHE_YGxXp*xGo(J%L$>OpKG1g9Vze1t zZ(?Q@^?8+@j#23eeCXvf&SxgPHahjTO$0u?1nh?@ixYoIoKk#x?9)}r?MJJbcde@y zr3)`G8oB`*^=VSHCtP?+5>WUibyLDA6>%GkQ5hIUf!-ezsc5OQx-}0*9xv|}S)sFq zX`Cqn&4W8fkh+O6_6NmgNB9#jcY4@-VhjKYO-9Q*dlK zf(1hrZ~}TVu=&Hk)@aRN5Xu+E-rbgyh{LiP_^afd``O>Lh3hSI7Fh~eXqieU?2u&3 zRr*%vP{Ypo;Fykq^<{rES-B(zJ00K>_H}n`#V~bBNFS>XY&6!=W1C4B#3vK$NbD9aU@@TC`+W5{)h-fMen&USvzXHr*A@R9 zJn-wK=&6v2D>pF~t}h(+kGSc$P|uMvC4GN+eDY*GCrktFvM8{QyBe97RP}EBe)6JM z&VSStcdsKfZh}~e@-K9FS92gj=ZiNZEC$InQ#Z1}8s4ryQ28$IcwCZmL+qBF?r z>+1kWlHve`VDsC9$7v%k8Md{<+L+yKllr^ebK>F{zKM*iKJZ7JK)v{~NDWzoKp>2F zyPXDruT|HbE(o`h=72+w><&ozVm?%9tlFa@>zrv_;tdX`K?lB<2YO2P{=pjmVKmXh zW2ZL-jFck-!009Jlz`RN);`reIdv8z`ZzAJgA?5`4T^4OI@+QyPuPpVM9;$Cb^`ahwK*JaM32#rg?UT(-EKi`Pde*su+mKWY=W6}PVl~{CGX2;_IU(04`I7e zj$fR$V5uK(gchp@WGBR24O3Lo+65Ci3V}}c?1@hH2zonsje7G|Rzy5^+uGcB;}$$# zPEN$8HIJYxLlmsg}&Z%T$w|~IDJ-KNDixc zit|w0q@>$e@Y(aRt5*-M9a*@A<0l1^`P7~ADU@yTuIBU(7WnB7dn_qF46E6%w*$lo z!NZmRaFhoDiv9vZ0T00dNas@Fa@VX_Kzna95oD%Jk(sP67Z=`69B%8;pWi`V+sf4P zAvy+F9RRSF{~Y|o0V;(=)emEbd_97^QeAuJ1)KfEb#`a$i^#{1>nqiG+sI}G$r*Y} zZ%a}Kiq@Ri5+|oL1BSpXX826i%h$rB^LC>V(>WNkA2LPt3SGoy?9y3>I4SssGq`b< zKCXd~as+$o78tA3DGOkjvu4+00`MFMzViQhJ5*zDQ16H%aLJQ%gdS+<8~s1NO5KpE zP*wufdC&r(j?|!C{qrH}V&(0tdNrOy*&y-{pPR+Dwz^+<<%1q)TSJf+!j z;En!4g9h>W&@B&gva5{7VW%+vGZ($Op{w>sA#Nf^MU6%EUk0sUrtQ?czi;14U-qV= z-X9N>dY3R;p?ig38VHD-z=L^z#vgmYcay$;-EAgbthkTYN92^3}K0Tdqh$KoW;{N?%Y(FX1?EH(M{+7gse)jwb?r54_YQ3|a z?@Kg=<6Yy2YVC8LeX|d{2*Rj?eAaZ$T}jmuUp>c#S+%+9)zG%_kb&CZlJiCP(tP<+ z;95fddGV-}BE(74So5})_-sLLHY&YswG>Vzb!zFB?V1zI`0&1k+e7OU%y?ce645eF zJjdbhQ|giS>c1*)>y8qIKF`uuP>K$>&+q`Z`2G%Uod;LBI|`^FAKDM(l{gm>q~sk) za=-Zm91QMQLukt;NhhwaIF!$sMn^qWaw^b}mt$|%^zhPKCm{Qc#qAtEtIP;ZXe8A@ zMvby3H#lKqfMDr7ar{o~6@&EgmbQKy5K1x?l2uNaqzSx|in~W1Eg37T@#Y~rF-bxW zjt>CzOf*GS8ya?|C_geRfI-B5;BRp0H~_bkd2rpbfp?-0EKGs*1jpfWKmee7h{+y( zU0XALRvvB(SI57r9si3A&~1Tb^3=v&=c*a4T_I)kHo~$Id6Nw6@X79$saXEG>#b4N z6y|0^r&_K3QHj48JH5e4zA`jPF5ptyNWn4)Taiy^8QXVpI9x}WbSiGKifRgbgMuJx|12RA$`X;)gWix8dT(Sls7`46^LY8t zNDTOGqo*E1x>XPn*)d(b5QiBsJ^pfHr_?ngUhx=A_n0pB@G|eMZ%A~CFY7zd)8zwu zfBbT!u>p(6suCU)0Q_}6C5Q+nvxJIAhVlfBXfU#x^F1jNhgD9j0RSRvDx!yP0V#`f zZr<#jAq(T>{lrJqEsh}_D_$%4Gg!b=LtfguIqAPa+TsWDK4(8wOa z&ohI8JdMm56Dd%Y-uA)+Ujn->b!7V^Ws$wxS(b_}f0g1T!!EXEyW zBtF{O)Y-AN(ed%Nn%=}A?aw9E(pu<_5{E!kW_ZfpVX4E&!NA);u^H5cb0f=_Tj~>i z>Iy~O|I9QyjMkUe{F;msQeA&~?{9R-!HqsX+>5d{gVk3X8=mb1JRG0M zlVC!~DMg8t)D591GrqU#^GZU=vIwo7xf&|K#e1khT80AL3sN;zZ<=~=`g%ua(n6|b zTZ`rG7Y7x8Kvog=aC3e2?l*r++m7c#985lMzI{~)_tHWzGl8aE_;Rdzsz3LR} zRzd{6)7qzlgV~`Id8&DW6N72o+lfg!3*~$ArcVcoFPL|L@P;x6ZrNMwxR-4Sz6~Tm zg80;u-_COxC>9#TFpUI!e=skP#~G$E_iU`hrTFgLn`)8pCi>K?me+|-mH<`#@b?-+ z8%IRcBX8c`a%D|ck0@J0x56VpN#1bEy+rxv6CL-|cLt#^^Fn=KDhJABHAuHy=TU3+ zGaI#;wJ>a7*e5o-zDwG!zM_A&XsW&(um{iHZYxxYxQ+r?dJQaJuF(ur4PEp~PKNhlgJPd8!%J=>z8zR5_^kz4B6@D$EdES=t6d5$$&)&2g|J)`xS5@1V zIy;phd(DWEa=xwOs@{6Iwf78VZ6qs1XYk?_zF&-ysT*H-@Y@ry9Yb6eKP@z&q16^l z>s>r>&zHp`_FQq?Y2p%kwhuhwg$(q4Gjat)cNz--53R$T(kqvh_<<}|)%8_DM-?7T zX?)6`(~K03<~}7*`@0W{s74OAD|E$JzK*Anx+@b1>h4&^zF~H+%y_Wzk%@9<`<#|# zxM_o~m`6bSRth!?Hjv?dHrn1}85H>5JiqjK%);A_Qz+(c-reUK589kGv@ir!<)F!B zZ7k>{%^F@EKi!Zp5kXzY8v2~-;)u&+8Hy^Y>RmMR6Wb=efh>UmQg^=A2I@cdvfM9! zbe?hP{K^@q5KfjxoJwEs{n!NdDqI|yZ**JB0YF_)9EXTw^<5q4zn=l<5&%Kt`K{}ua1>K5YH3p3nyZn}ShQ;a4 zp{(|$1V!!tnZ+-aZcZ>*^CvyK1nU_h*Eg(QVlVOUC<- z2HcQG81;;HzUaR^&|81vi_F*JL$8|IzF?06RmXtNya+`tIuc+tcLaF`5$%^0<+Bm14$^1TW)40kKSU0f(lvG?hK2i+n{Hpa8|Y2KYsMF zCsZ&&*v*&2zOWqJ4Q`}V6jH7_89F^`SHIk!j~DE$R#lr$UzF`LcI*Jv3ly zoeZJ^(>H;sYoI`S(3V!LHu=n&0d9RHJqGvi7CGTiB*A(v!*d0;#aJvHpaWa=l~G<{ zpT0XEPl{-(!&b;@SwsSufr^6xy5VONA=OM?Gow(flNnoCo23{UU}s1Bm>^F8#~Dg) zhfEPRcodoMVwjsl*c%;f4`B9mfezum9lE`<$(OCVeb8Qx#21IPZL9>rtfa9cds+`{ zl!LNe{w1uh(XXTPs^O%=hx-=Zommk_Nxf(EB5R>Zv9D{q?D}!zlPZw>8Yn1#q)&Ty z;_tel-ERa2y8cx3t!*kaj$X4{aI!zwo9(0neiRrn@g<#)rl`UQK5fmuTIO3_KhgPV zw4t$nPvm+5irMiHR@@K423^sjhLk6E{(H#5wi5^!e0xlB1G8PU?{GV(*bkNWz+6YE zd^TPFHg?_c;8OYC>$2-P@O?}O>9cy7%#B@g8p}bO1(}y0O66J-CRvve3@_S6KB>-pvP;jzB?(Kx`AaiDa5FT3Wm}dEWeVFxxUp;g9b5u zI2^FCS{dk?&Rc>{Jk+;}%0Je~TE?-s06S*81gOmdfeoSqrZYiP?D!bA5x-#qEXp}MV6&=qpfIQlPUVR5Jv{sy#se5D6&gbWQFct-&bIW zk6^4TZ9Y-KBo>pV1rrhl34vd7#fNCw1*+#5QJ$$My)!m-*+xx6 zu3AfT3Ct~FG3f?X;|*A0MgrZzAqpp@RU|Ej!_kqC8_~^G()e_u97=&9-bf{7QF-mk8r8S|vn*R1`<5h{cyDKn z>80_aF2EC?;as)z_0HoR6)y)D-Hqku7FkccN0` zS`Y`q>IvZL#e)dt^FyfskNB(#BO2>1a_(l~r;~Q>)`U^fvu6&zR}KsKh`inq-2;#` zUVgNEC$?z0%se7h8io=O$-$fI5L+Oq%T43=o4WT*I}fF1;X`wYb?w5VpH7|Tb35?5 z)%&1fm;bukGiC&EHX@U7iD2?hEw?6l%flf~0Bmf~?WA!Wmwv_+j(CO~ngEjWTAV`@ zfS$4*r}#w|aEHrdC*6X_Vfj@+=v0#MtuI|QE@3p2va!#X7Kox@x5aK?%b`D^M06}$$ zy3?;3gLt*%he3I+w1Sf%b>Q@toeKq$G#p#ZFDHYSngJ_T17l-R7Ex$ zVllO;LOMzUsDGNz08PScSKq$+4S;XJE5oPhjr=K7Xuyy>`EvK|szdWBBPfOoLu@Wf z?RIPo4Ji-r?&Y~Nb${ZjnSJEW0$FSn0CC&E$ezho5ZaHKb{`dG(6Q(xTe`5oCW$ia z;GX0N@8{>$-ZP7iS=5-(zfBa>SaNzzrp!gj0fjgG3Y|XA`YsCtG0XBV2n)T1j^U-)Qg$;3s2(%2qlX)Gome8P$cq`=)anCILeZa+v0#7+fb#l zn5Q5YHBh@{aHuNA>{Oqp;5G-J=z6iOa)>igLSsu~^5a1K6!h=_G7gop6N58*_2Y~g zFTyPn9fDyxhapc!@~Bvfifc6NjrRE;5uGM(}#j9Wm!yNJ=A;#a*iUDxXiG_Bt((t z#tcs`H-AUVB%K;QY?wnPEyOYR298-4RM|@xtUc(SFL9YPYzQOmuI%8+GK@)(h#IuO zL9-qFVay%*vp>W@woXvYDM3DkLcS)|1HC4a$R}Y6Fw2^gz&l5yIO5S?Fap>0)2if) z7UD52wE2-R(8=iBz#_1K*WIaULS2hLLeWB!AtzWnNL@N^3@ZL;6+X(|(mwyNsHA-%BSYtA)0vVT;;?E=5}x?_m8L$K z&(KzWv7Dmh_B3M8DTYUNVxyUp8!1l-hi~hfP?hup4Xx=x5HnNGF zQTZ-~APoI>rZ@0-Q+|27+roa$qXer%m5uK43KoLov$MHQC>{1AktxI69>FR_IBFi$ zp$yHX%G+VJ&P4F!8y33$awWX#i!r}P*dV&92c-?qbxguv<8jjPVnH(|Te+{R^w9B` zV%4P*c0tYxEk2D3jt@;F+*F?LQtCV>h^@Wuf8|j{0vtzX4v@a z86NG5F=OgSEDOe^1M#r+C4)%x7FG+GkpVAXaDO{q=lqC<-ECkT?@K!TUb2PnUdL%(ejXC10>x`-hdc%D2s7G ztJiDW>~s+P`s(!Rqg#LB{MF-ym^(O-tZg8W(Ffsto<;PuXc5XjkKs~6#w2$$hq>^B{^WnGr=gHlCWNM=T3$d zZu6mO%yPFmr*Srm4%6Dyu;$-k;H9wY zLlmNg?Ur>*v((*JyzR0Twm&L63O;34JPlbwIb%_fFMM56$&j=5W@!5@ zP!}k9AMiY3?~|Wa*yHXdyo-?5)k`DPfw2#=n*|`>^wIkO=}UeiksS6N%X^RuG(H2P zE{!?3)bc!Q5aMyW_yo{&q<%21MPPQtir%|smb6|uGbl2!+@A5ptyt^vRVx=Qvp@vj z;W|$2Nw8j4B)?8gl}+P!G~_+|*5In4=Dffq_@`VUaH`}^wiZ@2jRGBgJSL_ZeN{zdoaT5(E2%TDiN_`JQP+4E3VuuPHy>lSd>Q^E;H;6(iBD zyxOC6^R-i^BDaKnh)}s${|v=AMH$j`A{mcX5ta=8@b>G0oSE3!R;3kCOQ}31_~Dgf zxqgfw`(5q|QDMl<0}^Mz%9#fFYIYpDTuZAu0+90NVAl7Ok~?vtBTz|@=%nvL$y9R( zY5F^l`sqq{p1W7iacmZxptLd$g8=@tAD>_6P)6HKniWAmI;DB4+w0p3bI-V$5(VsV zR;2_N%%)%H^NC+C8hOXm3ftJ3?_5*!HRWPPS4DL9JuUCrMUy(Vts>=oX`hTsLn*H* z5aVTXlFVaW(20Tna!G}?yXy*iDOvaTg3;wmy0WIxVw7J;+S|V>1HdSdl2}qj34U;l z{z^HLN@acn--zSSPr3u{E4!P*$g>HX^s`cuF;sqquBWem_1r7eYX%~pP`E<@bWEU1 z>D>dW_zNTyYNQn(bghn}F8N*1Kl*+{bRpqUh~cujO7U3Tq;u!`n)zjO%u~_cACKVd zAkpCNa!%(V_^ShahHCu$>DU#okw*xS?4`=GWx2z8AfDRhmg22zp|3kb7`&@&WoC9h zp&JWgJE!ZcN7oIbGU4n*GT1=!vU3tph(N*Se$cbU43AXqd+Sfj) zmt8M^-q1=c9oeAy!H+jLLhF?$?D>_&5oGr+CVk!t(PxyKWnSjKf*U;)dd_Wp$XQD9 zW<_L~6;+JnzW}>&n$~5wg`f^4y!S*<&CtK$@fmf z#z8oHBRK&`+KE(hd~x@X!X>*=;*wr=)Pz3RYgT*8lkFL-dUkGChFD@)!}~giBAP4L z5r9YCkf0coLRw#0m!X0okehr(1QC4MJ-iu-tzn7*<*x?14Q z3>0Kr9f*V&BBoOpVitZRF=-2R!|R*+QBe%ro_b?4Cj&@lrsC?2Z}Lxkz!G#&qo9yZ zBcXJ&rNhIR%s&`A>MWZ7o7X((;Em&v?>@=P-&mT=F{}dOD%aQ2zYC%!m+*wF6uWte za)Y=FDcnoB9hYu77Q z;y{p2a6HxeWSS5;Bub<{88MKSXQj~#39MiSdh@06D3p_l1Fu0CnigD{O#*!KuB-RP zIyG|wa$L~9{B+?A^CJouOUO!={nlN`p^+RUj8-KgzkTvJ4;!tsN!bAHV+)yLz*R_i zW-E}_a`?S#XVtL$L}LdbDn##^VR>p5(?9rhntY1zD5*FhtfWZGkZ?gD`AEA7G zIB2@u-(N6$q_lVSsmfQlf%Qq7)gje$hMzZ!#CRIDeTwSc@>-uC)+O~ORMU5>?YlZt zT{fx#dXoM3cKgWoADM%@t3^*}obiVFQP>U6Bup}pSp9BbJza{a$hFDvyn~hPF>Qp` zTeQ@iR{qVRDnki%RE}0YyiPIo3$MfF*uA)AY#R@lTH!mB<=5i^Jt^Vq6#ms0@tkR; z9Siwe8JU;OiOD?bf?GjJUBoHejxkv&Ez_#{&aG?XoY{n7R%f9r$<( zOCV~Uy)AAEPi}mg$@OlW-Q;Tx``OSBgQK>fQ&ZhPMKd|YinU{Y5c+2KNsc@@8u3am zLrBfvo2H$ArH9qyk3?6`@_6N6g}vgiW~Ad<(XE~B`LW8Ehz;R{{4k#a4tLJw5+u6w z@vY+`8K-cL2^iMewU_>W6C(mM;!y4nM>ZcWHeQfMk;ngiRHb4QEP&P-a2T&En4fBe8-v!D8;rDUDH>hpn4zz|#ZbOWzAx>&}f z^IrFV-);HM?NMXWe5s}!2RqPMuicX<%+yFqYVO_LVHNm(-izycBN^Sg(sQSSMDym^(J>?=) zD+_ZPRx+6iinS_F4uKCOGbBDOnY+%)`C?1e#YI@okP6{x>YWPAEj>cp9fdC_-MeZi zKG+*+l}b%D;H?AChh9Y@NGG)KDtOn#b?1l+D|evp3DrywK%P#$6$Gi!(G2N-Uefpd zq^6Pb1T@pG6?!%t>y=i4k%D&>;S;=E550+M=RMjui63<%*Yz8xPi+f9PxTq)CA&1x z%2O~3p(6rI+|{2dPy)|L*6U>6_}Shrfn51hY`bM(RHLvMJwL+1Z$7W@eiAs)XB)AN zA9fRlW)JS}%9s#IFY;^DkU_i6Rb}*$9z!rlOV5$Hd!|3f+Ca&$e0ucD&6AqOq>Q94 zx`VNE(@|g)&7@&>$UbG$#*|lKJH90Q9f2(-7@mVA?J|7>P6d6_0y#7jZ}L&E=j_b` zgCoo*c&b zGtD){9V^gKY%Stxx+FwzYM>cJl|sUYU^N$qle5=`4k)%>zGOp~2mP#k=VS`u7da)( zBD`E#X=b=S58P9cO3*q-AIyz*I&dB&08o7Ssc~JnCivzs+Bf7&&-`H`SbPg>K}GAm zn~ZMh=E`KkZojV}c6G#}TS*pj%=k&|`lOX=6nS#@TVBBDGqa~RT-N*B+E8(|TqhhD z8Pl{fVbD#=xxu-yslDMxppj;$;W`ck1^{RFdHW!;<1k{3rGtuRJ$Eq@4%qtzH>-O? zK%RBeeII~4BVz0bP*g;r4`R2%<2QPl#W|HC3aagLmKJKXTk3`8 z51*jfAqRWdz-J<~lxsq4hMM&>!x7ui9yStQu3Z48a$lxiK!y%2iuVnXd)g zuyPq!r<^YV{A5914zb@}S04~GI~#AGPz62Qj^dzf9tHf$7a-pJIm%eN@7(Q3vVTQ5 zfLX1ZOXe8JJs?1aV1@5-Krwn@t0k$x>W$Q4Qb&8Ntvto)4B~`pj|O*midxjDT;h!M@!1}UgR5^>Z6SYD} zYzG$jTez9Qiam_qt$igfWgG2m<^D!8rY&GY}&~j)m`GgSbw}? zHXTEFlN{RdD=6<#4c{x?9P_TyVp|GQ<>-=*%7X27fPjEueRNBiXC^fiz!W~ZFf!V* zIQIj;eKaG0tH;Yq&t(Z99`>x6N#-@=#N(RrqOZ(VgrVeUF1cMRgcz?LdQ3hs1tRX7 z4%Qy?H)7M(oNj~5rCXjf7jncN3Wep7rx0n(2FF*!u4)K{R5o;rWCHz&3`b@B6RgFn z>jrKDch1^sEjU^aEJ29XoK7{c8uRiLPt@fouF3}&wfK(JpgbJ6(cFU6s+b@vEYFfQ zp-p|nts3$kebSW{@9BM1Y9RiK8y!1VnwJGUQf{tQUyqC=89k0wW_ z`_AqZow+dufbJ#_ZTz-fuvS|Jx-ZG?dQFbH7$_2)Xk2!OO>$gFxP9+-c$HFLFVoPQ zzSA+e1u~6;_#p|AsCt%J84q3+a{oZlhAg3;JhQy{^K_u^C}U&Vv;6*=W_0JW z+)j1RPQxU9dNd2Lv45=0YIz#p(5d_*XplBl_Tp$6r!$m~D7QmeSb;MxTU5oA@`Si` zYXdWzr5>(64-MyDO!@?QSEG9D!&8vlo|MMa*Ym>tV!OE<36nLJXjn3;DP z&X?|va6f5pS0@StC1L{#%wx3_2B?z!?1yKECCnJP7cKPd$U0+mM&zdLZ1Ef%9%n-I9cf?GpxJh*81ZN zHg-%YwM! zA;X|n)60jB$R%Hca*B06q0Q^@I#7cj2(7O#1ZU}lg{_zPF0nr>5fxMYC_ok+@3kAW zV~uvvTpmOm7AbbwLcxIH#0}6V6Rb_OnH~|&p1qXZ<5*6qt~%lu=xO=Lr4FH`>LTt& zJSmRiHf6swPdE*8%#l@j1ezEB{j%3`kSkE`lgh(oPkM;kT&9H7a$)^ch3*i#-dG{k z1`}h7Hqr2UytISm0G5f4P;GLaot>Iwbj*AssAg z@0Z42x&Ncc&j)_`9btVn@=5?IDLia$$m{yoV* zf7vhN#Gm;(>wua43ni=VVSf=5;P=N#T7`hu3*yi9j{Q;Ee+`q@gZ)tq?|%!E|0Cf( z&h~eh{2$k+2ZHPWCrp0-0{0Ko)zkSKO#W{S2mgfKS_Fe=e6s+*F#iB~ZQFp*%aMT~ z@cxe*^mm}E<;}Y;PeW5+0+YF09NBhUY*H{-q}AY4o7F&dLP-@b@+P*Xef>+2)S|dw zrCYAU>SSj;WBH!mh7sFE)LfZL0&$|ke}w*?`N=QDs+ z)X#yu*7rC+PxLZWZo<4YJ7TU+J~$}x{)fVO4oo2?DzdEa%Q}f zg9lfVc3V(y=9~1!alG~MBK6zmQxRe*x7Y z-VpHPZVmD+>4xy-^D;#+M&%f4cI69gyXHETE+XOf^4ljN>xJ+16wMFI-tR#P**9l> zfcZ8!CK{iMkQQG4f>#v9g62Q`@5t)F4#|Ke!Ikf z2i*RPcR}}WK=R)!)L&?B3v_T~z!mTv{kIk6k9Y5XuP7R`Uv-Y_I{XB`YNH4%eem{e z^~$~b#Sbx|m4644mve0WoAdeomHMmb{{l#^`~M0^enLn0*#9+-{P#@$e$zB(wio{) zd&ob$>I%sJlOOQYZ1`Kn*JN=;!6*>ZAZyVb`+v00|KB?b-;BTYGi}ckRMTNQ@wMI+ zUmo(-WsR?4N=yUmjOC0A86uouH4eA-zlOl3N^BMKNh*Tq$B-Q4!6v0>;ogbN@_ct( zRs8@eu|U^c1|-~Cr3*P8@|gsQSYzl5{RdD-Jug~pOl=l}B8VnGj=7IgT*%Qc9`>!p zPM>5l@7^?zCqgA-aL+{zeXO5zH12@H+18fvB@-zm#S5ElN0%h--qpiO`SLztBq+5I z4r_RIkQ!?-#jd{X6Tnwoju;N2v#QG9Iqc-SZ55>XOLL_|p_VC1*>0I^0|fcj6T(-! z2(^s&K?);v3z!!M6e!>0S7X+L9S|dq!{_g(7T~u(M&{OLGSzP`*s%)FahV=IoG9#I zNnO{{4~*#1pBKh@$}M4VbcUGESh8xCO_pGOxO{5UP5kde^lg2T<$_ z*HNC6kofR+w?v{Q;*?R_tnhp$oXK|Mj zo?=t~l@M?EaUr^=F2MH2L7S?F)eaMFfvS##?>&Ss%6y|_*HN7n$y9xk(z>p=a|y*akhf3u;RJ;S@TH_-=FVf6x?bqLm zsNPv&96znnBzB(o^8Ij)9N@k(Zlj}XrHYeUF2b#i*k!%TS}uL^rN9|# zu~d%rUt1foS2xE>g_OP<4f#qqi`H(O*onbXG%l7TSI64(nak#S9Nzuv6y}M$YqV*; zcJ=5vdFaJX#YYgCT>G>qI;Jb#0%n2`zN4*AJa3Iz%7e44AgnrjY15%`Sqel~b_W!b zhqnY-QU0WEh{^}R}Jlb)2^hzp8PsMjVx+l9+^Z)#$*Ra(knG% zra4A{WdYwDTlp88#t#Y4A3rpg0XCTPxi4SbNj9}NJ9RctLL@oD+TQTIK$6$7$@-;l z%{lMXkZ~&xqrB`wcC{yI^PMW+u5N50M+_ERCqafT7E8jxBi|zktr{u_`DJ7{0LL!= zxvDd{WlDadrUnXgUaoW5TsV zKQ!Mp3t|d39k?`9)-198S{9=a`A6N?hV>NHjXA2qE~TZ51~Tvcq!AezZE zqZ%yD&RRZl755TP(po0JPC+UVbs2H!r*l5VuC}1COh}+h*wF|~YMo(zc){yp$5)%_ zmas=-HJzy-t-;r(LZ>nDHh8C%%BN<_tj|r+0{+%%(Jo+Ya|Cv=mJ7otgse_DY)YdB zs)c&`@!A!`8~aM}NQl>OencUhT)bssg&w8jn&II3lVtSs+J^ShiyB8-tq4~6Z3$Bk z2G(u}2bfezS*mW9XI#qxKp}UruT^e!bJxKxb%x&DwVJYK@8yM1sIRZf^#h#5lhu}R zF7gGstegB-&#}%S1=ZGbmHA)79-%_-i6q-|CG$2=H(scY?t&tMBfBic4S=-EsYUH7 zq9^;Ws^S59J#9z9$v?fCFs^1~GPnQ~o_VD5kMdrKE=6h@SZ}yKT&sZh*&Vf4wBC4U z!Wl#0w-rDom>|QjI|iKzwr)a1gdDY6GqupSy0Mi>VANx^ZUqZO0|S{V-4@>`x-djS zWxn0RQJPJX)n>7so@83*Nm8k#CvM&{@pB5@JB&wV%;%BYlO>3;Wb`1YHH4Vy)WdY- zX7BX4kOf5tRjqR<%aXD^pLB&pOVaYac#ZlRiclOPX=yoQuA-7@puR{&#nRjR0wY@I z(p45Fs|fn(-%$tE8(mg-%|f_QYP~4WG?6Rgx(+FYuP$HDt5lgNYEBg+-901a0dHu)PxeMa z_o7zg_H-7vv`1PuTT{|)W-T*6@*LGycImbgX~FL|FmN7RnQ7m2aK*hsdsj_QW55E52x)Zk-%74Q}E%9qI|c=qmPZ5)d{$p zoKJyfWW`F$AQE=Z#?>Wldb%&=`N>uy&kh!?#^ za?J&#owvbF6~{z%ZD=4);_`1PM$>c!PeRLTh$~v=epZGdpi;+2FJuy2e&__Iah><0 zl7Ra{zv1p)X}|#ws}-jRFzPqjdkd;AMgBy5gEqU zPwV0S5rM9%RQh@RP1CShTP06P?2Wj(bB4TO9Lt=v)Xh75*6PkISwd;j#xMbBU()c8 zm!x%{$Vf0{xCF<9XcIzUBfA)?RYjO8DiD1u%(e}g!j&eFR?9^wUr22uWT5QNUL9z+dGTT9U zxEN-_ld~~oxi7rO95F-UYHQ=Vjb9s&t&JSbSAshDTYZwB(_)(_tO*??@lrsCL5&6w zr*Tb|ceuRWy(%)$w2#nXRpDM(aiSL6gC;&y--;}qOq;C$9l6otBi^c&QqW4PY^G)@ zZS%p$K*?$*h6FjqZwCVSJFgR8-8NDgEjgsveK6g_z7f=eceMJ_A!F3{w82M$=a`cp znZ!AmpKgBYJO6C35PX`B(&iCTmQf|8ueNUBLHn&u(gM@<=&rq8fiW}O%;1HvazaQa z#}2DQ?+N6TKG)&v=R^#=>kn;i5$`r>DC56$ge0yOwwJufSwe9%Fo9wW0UYXM*U3TM zxj)q=nV$zOjwt4^p*u+JS#0*H@yk>n+0}8q-l640fA`9Ibxxxg>qX9@#t^!Er+Igf z>4jt*hOaM~a&|HfHxCt0FAF29QX2ww7jG>L)^%dFiE>s5bSj%xMs+pUuxC7f_+WZb zE5<%{sV3&Aksm_K38jHM32n1SW{8M2@Eefx_-JdblPHCg0!=!4DRO?Tv2`K#FsrAU?cSq(?6#Hr80*4Lj^Xz^jV&bwR@QHFvM3B)rTkgtbLh;* z1S~mx3o7e>dPJBdx8dledqug;4?hvJYqPEuWp}SPh1Q1)&3P%{w`pzGxncI`;&Ok_ zmO|W`h?PSiIEApNZQrtcada3)L$R0e6&MdA63d*_m|^JzY!Pu;a)|gcMOv7%zDdnZ zj0TKOpVD`2&=!yDTo-Gdz3E?Gc6$9B2V3Igkn zuDr)c1RmIku5Q}Mkgm9bm~2VKT+uNZvmgZyBnK~IvF6qcMP*D>X2@a))>2uyO4gj| z4N74<=l14Ho`pqfr@+#QuS87WcvWXQ9;JSlYRQT}R{o8Sv*7Wx@kzc4F8jA0 za-JyIL>$C3`fJ_e6c^ctQbYCcl&1|f5G7>g`6;tsKV*=h$y~G;VoN?BE$?<|v8Dq5 zp>CP_*U{4QzAB+?h%qyf)DTuukTWH;ljJZO z9v9^WMEM>&w=h0RVUtoTq9LNo>WDwF*m^@Q1ZZs4nBwX+r)dV9Q9=<5Ei-s}Wp8+m{kzYR?z=G#f@O>fq| z(%@&c$M4ZT7fnT7*ROtETR+`S9la!dyLWl7uCuhiow9Sx$Rr`HRz(2CE>hBBeD|nA zoee%APEyL(3*^cct3SlaE|AgXkXKQ7=8SI^Yp62qa4Z>AYp0SX2^DDh6mC{)hr`1H zJ-4zJ5>dzzWg&iKCqBYm+_8F<9MbT**fdMb$uxZ_1T_ijX+K>rNp&L(bWwY(VCDB_ z6bUt%+^e&Gvr{s7c1|`ZR94XJu|oN4NjX~>>f$3udwc)z6iBdJx>V))m*#V@I&j{E z2w&F|lM^>x;g1$q(sy*6uDS51TVanlc$aunKE?2m$h_!1rR68plF`w+%{fZvHZF%+ zsfOg9;t165sGjcV>Hj7&cN5<8gcKB4&taVce;-}iSz-(d8|Mi|4V*yipgG`?a?9NU zduRR2(=>IZtOX)lL-drYFa1J)HT4DWmbRnBCA<_hY8Fgz~-~=oxrk2FkfAf9ovVl^mTqxy%pJ)bkp4G^`a4n{=$a zzXXi3ipUC=Y`E`Yk#-u2t-(2NARgMCHS@{Jdu8am(+2E1)m)~94K%x^__Z(%Mk$x`H z=fhDjgiNYe$BL8MeCr-&)FT$DTQ&&Pc-y)qcPxL%_Bnnb16Jz!Si6BW!$bgHgS@W2 zEJ-F~vwadvL3RsR8#)H%a-<2v%iml*@#grguKVw8taZmSk;JK5LLk^DE0Wh@SOa07 zGn8d|e8DLRjY*BJ4chgt&H_oqCjx%j9ELT5N?Byy>?bz_)&UO-wj?#XBNWaMNGA4{UZ7{@V5GKaWy&GxD3rySyGei83AZmd z8SvG`tne`st5UUoj*wR`4>xlV$9Nuq#KH(EQ-o5(VU*!Hwf>2IGl|%$ACS}XTe~){ z$OKm-L-+!1r+%}Jv495^XvU8)>o8Qtu9p{Qh;z$Pg{Pp*@=b*kG--5IgD7DGI$O1kXay$EOlUy%)L0ImxF35*kX=bQBWD1)}M z>m51}pTaF|hW$)QR`_6$gjf4bKbIf8k*oO7@3O*PtB2 zKOD63yezFC{uf=&pSSbh{M(j#1jt{OTVr!%Sv*MEKBy1mK(qJm=mXma4SKgFBmR{H zJnCN?|8tFX#x~33fA0J*w{u(N{+VLdM)9kT)=QhQljg{r~`XKP8&%Z*B{L zk){7(*}L=ddJ7UEnWeZvua8rVCJHxHFU85$Jl)HRA4uVh#{;4|3&<#1xakIK7) z&46sz@)ws8XX}k0m6<^F158P&*mqW>?=JC+%g|i4Zhg|?N7X%ZT-h&>pMLpwu9kiG z=AW*X|6hA@^*~SVAFkB@-jjRmPm1#Y+LQZx!u`9y@5w#3?^Fi~&yW4#cjfi|r@Q^w zU&PACj>Gi-<;wj%!C!8&|LCFnJ%j(rcusVGd!AN2HGd{j12NZ57g+K6DspW!O)*IJT@LndPqwfE>GOi7Dd}wG0b+7Xk z{beLBDPj1|q_3|+5OShb{^A#go45z}XNx6L>ybe7$@7LDGg3iJe}#eii)D$o?CUPs zyv5mZ559-AdB5%2U`PA&{3a` zC~}iBjN!uTpE{dsgPFL}bJga1Hy1u~z#u1P%_9Z|EM0gbli{z0Hb{ zPs^S7>uaSa-X4BYn$3>){6wCeUY~yX^QCj!WahFFu|I5CNY_5XPqE>02PD~hdAkK_ z8ndjL|CP7!rP&Uj5|>rCCibj_xOK}C>!&UPak%U)y~v+ZXD~l zn`f3cCEQ~>X8UtWDeS=eU&F{hKK!GnsM|E{`vaI%t=SR(cw)ciGUs%fxMhja`7_Vb zB}$BJ2Y4hN>fyc5=a*_s{4o2$yvDg#er0u!-`H2*tT3rA9OASr>3X|&s!-#s#ZTrD zBJHAKb$JhGZ)o7tn_ceC78PJxV5fU^weDN<9`d_rN^}SuH}K%X%ScBF`IGGP?~0rc z2$!!N+Y}NG=7DxwEIl~)0+UMQWQv)AN;M`;&u8GWt^mtt-9< z;&5lh>uaea8jjUB;MvXFzX{GboENbu#AiE88c65gVNNR~(nUB9DQwqP9ZPV=eCz8i z9^676ew}Ui?9r3Z%R+U;9}jI2>&6EoHh(%NJ&e)KE3(!)Z}C(=z}7Q6Q!Gzb_Rz$^ z)A!=2vV*Nx#d5pz6P%Uut3UKS<1KlyH;1hF+3)Qw#*F#-691s8qDW(Hg^;kq^Uw3=VR{+Mp<9j+{+#OVehBQWk}kzw7mh>aKz@HJgeUGHV#X*3XaoB{%kc&!x)eU%NfoimCdfd`2*OtmkUV z=8evp1o=;0&*ia82N9$9UQCB8IxL+ZOa2GL@Cdv^`j^ILIuvVoKaufmW^TmcpnUUu zlZxk&C(V{xfj&ow>oO99$1f23R*Z|Uy|Mo7Q(nS@p#Wb>4y3G`+O&%=$| zf+e&65X&Ifz3Js|4kcEPNAevID|vdN!-4kVXFgAq=U7+mlU$k+r)}w{G4YVlcNuNd zX3uE_SNCG6mu*agZWt<a-G78kDIi;IPFQA+U*$`P0HG;|h&aJ+JHAz(n*$iSJ4257fGc>rVOmo>GCP$_O z8l69BEytCYV6JNYQPvY4(#}bD132kj>#dAR7cyzoYH7tywkXxXm(aC4$i|x3xgYm* zq%`cs(W(0z(*^vVtg=+*aMg2;$H&Rz(oVk&1VZctKL3)TJ?kU?$VnPhc^*?H-FA8> zEdP%X{hS}PxR56-$p+VR9JZR@`J_lVV46K=bC4d^#G`T;GZwn03Y*JX{@jN(y>g`W z`vx=J+A=0|BRUz?G16yA<_B=QlY!zW*8N`zq z#O*SV?3qZh1K)i|H$ZY=Ltp;KD`&v@5+JwQxbk^28~`USth+~iH4a=k5w;JB_g5ZV z*-9+Qw*o*SJJaW;xZQ!Xot-he69B6YfZiQm&&L6(%T)nW;7~Y})iC%3a82X{i2;0p ziK=xWdaKoPC*9L?p^KT+fd;L~9iG6FRs+=wQy0g)d&J9HcVf_MVS!gGMB9qt+d>IZ znLc7iH>yrZ;e=Q9aQ1LL)_tt?q=V-OyATh|p_Ym*l-pD=H-9A`?BXR-!h1sPm@T6F zAUwH@>qa-WURPWtkn_0$*{wK4rL-+juY5qi^33I1L<*NcppGHiSzCE>_=OZG=$AV~ z<`K9+f?x5g0a*$DSPGQP){Ofc$tYN{Dv$g=G3URiIe)K|Dw~%c8QiNaxmWW6hdEwn zaF6i&*3f%Lg5EP{gJGir{F1ukawGB&taS3{J9dC9~eNB_(yUzpw0L=QN%~A%AP>U1h93L+K@ObEb z1VQh0&1lINALp;9F>hiQMCOqJbi%) zB$9R)8Y*aW=5rR<2yw(wMT8b)AOi&fOBBVLBEWJ7G7-Aa0dj?CO5duh;=K;V-p4Pl zzU_V7mH76z$6ZNpf7>IQeEl)v&;YwVns*qWt?x3!NTY5gj0PIW%K#t^5tRKr??8x( zV0NNdPw+Z)6>nz+p3au#k)O4Ntr;TBdiWLZ_2z#0(Dxnu9yyzB?fszXbeyxqa^H8l z?d8R6>Exp9aoJPqw*mj_O#j%;dveFmnN|N-(7v~gO-K;JQsB4>UCB5+nqI$Ix=>G` z6F_XWoi22kJA*g_o<3MQbOwe!Z(boL7-;^|QxN>{LIyIyI|&s>Xz|Do1ycZtw(1swv``Bg5<^XaWZO1NZYf#6`EG@wk$DDz2p#O98E0xROAS z@^Tk++}aI0HzSjFK!XW*B>2IlfS?P`R0adYa59aYJG_v(11JYHH5yEm!j*#LD5oG{ zDPVNSeh&NTDK5h%CBZ%UQOEOT*ke=-N_ZvGRp=my5Qpl|4#={--jgqJ4_sczac2-NlOcf)k|6) zVXcFg6*USh>$hboX3T)E#QsNVasIt6_!)Xxn&u+r7%r^Aoe^*f{KuJn`N}kikAC-+ zd`bF#?Soe5Q^yuRczwGv_3mpIs=xix6&hIb{ksPycPN(8yViFin z+Np5~0Py`gc=BNF-2X^}_wCP12{eBVQd#}A5OpQdgy@!*hhtI=ffV`fD*|FL@tmt{E<)AsA=~02&&70d1m?`L9tdxAPMfgS zdq;gcIykX3h_0@}n2Mk%_}Vr}d`>5Gr!920$Hv9GBBMq~&73%mvN)Uxkk@ADhC_>v}R-OWbb^rwg<(JpW?}?+X^r{%)V=knG=O97Dd1JBs z*fllFf_{uN_tivp+UWGa}ApDD(;pyzB1f2o8>@z)rs^Y#o7X{Y9y8sM4|9gFX?+w2t`Us#6h428 zLFEP31QOTOm^jiBuEZz5*?Pa~DikfT5La=U*kZq&gX%ak})LWlVLiq!-a>! zwkpCt8`PJ-_xctuEwF(W=VEW|^H5|2>ZG%Yt2C0s`#$B+t3*tum6|~@OOVd*h;^M6 z`nrd$5*3a1Oe=vmmYziMoE2;&H)K$2n&p7CuuGUrkMt~BFvr0`1K90Hf!)95++}d6 zP+Mv{f7vbSxU+#oZRt7i*Wr>!&U)bH>;3V-d5jrC{iFTeIsAv$qX2WhpZmIh&b_pV~yI9%7+H8PDfpOfqx%EPa0(=H2`r91OV{za&?i!gZ$R0 zRB#0J`)H#EJig|`)A~|Bulx%R_=mp7&&2}%v8->$H+_$xFK9;P$jlER+ zPH_QX#4s5<3p;UfN%aImTpYvI%WEm@yTHJ01lheRlqQ_W9iR zeO>o;y|3%qcam!SICn{%08)2?=D8t$UzU5QO zUUr@+TOT(*&A^4!1!?%5byiDH#{K$ zEu#IuHyrTm)O{?k4n`R~hD%<&cX|w0_jU(SH&6y6b1qe89~(r z0-hAFF*`sO(}`pfX-PXkm@bKZ0#F-FkrAo#`I%ijHXe_&_vAK!r%DxpCgX+k25(7j zY~l;#5R1k3@^n%o$wVUVJmiJ*3yz(ipIJJ3gegUd3VNNbWj;6oVCO(70?H3i7d+7K zz+OJSKJIeJ(-R5ez?KA_DvopV>}d`AyjUG?e8tI)97N^D?>kOYKs5E%j`YVsyl%}i z+;OcVcg@Xi;lG`F^zccoz-!L)$<3Bvm zFH;ok$KXClnlLcnj$$sYNo!ILG*$|>Amuk$e9%>DhT?{@6XmL}b1J|2$l0Ie`aD*m zECTvdY^a)_5E0Ck$e{B(_=s&Qhhq2WGt$b3G%bcxt&wxc!+JmNqFr`TpI)gfnRWWj z@Hy29O$iQNXvTiA9Z1%nr0Tfpsjnitz&RS1@1)x*-?@rWdTJ0Bgmgj5ojg*O=k%l< zp&ji}w^|2(Y+mE;2ep=+E~uhUE_!*y`Olm(UEOD`TTw??4*C;3?SCdL(=SmvG_zMb z>!Xj}xtg_S*~FGabjNc<-wF8b-{8B^S6B32niwzEY_3>79J?^e_2&s?kc2gPS~|o1 z+kkRqKOv%|k1buaimo_XfXLdq``nQ`=4IQ_QWDuApYK zicL2sURFhps7S5)VhvKj#UETiMs>csVZC3o*ca^q0O1iG^ZIXpBEGz)o9?s%-&B6= zcXMCc_jl^OS!&Z)<67i=k(+E+q1OYMudeRGK?%9d@wEHz?Lp-X4-@yDHyPE-O9%~MvjsAuEGASsJC~kG zzn+=3sZH&3XpLPg^1Rzlv#?8_I;<|_W}4lO?)~6W<7(NvXH}fpk~+b|5BN&sRt;5a2#tMMSLBTqgZ zk;wIzC3c;9{n#;7#KZQ6yp(eOno$q^^0}4$>V1ZKNSjQ4R05Gl2YK_ip++_n$^6ZC*+!C?q~NfGv|dl`yhV1C?GTql0swEiGhOy zap^%ZjgNNeK0KFBB=Qpy5|Xu9GiRD=o2F#YN3+QNcAJ|@yu21xiGsiv^Sm@Z9 zHJV*U+L}-8GBY!sGnKk3Y6+V_)vs%QX^(8u8uN&TYJ{3rvgAp=koV!x7C!uAG zM8&U_6WDmyvOqklV$EyCSr0_i4Yqnj+4yrqrZj>-emZKgTw#rR__hsZurw#dOa-hG ztrk1kwS`ZexzakN%SWIGoB*AI_wPA=T~^UpP!(C;-S93%cS2w18!AD&+48)%%c`?G z!Y-@mJht2CY)<>}Z2z6c6Z_Pw?J`|m3P4CBlUTzZUG(BkqX)VEMiOKPGS4X5#oCB! z@`PHbfJJ95%l}P{x~{W8ai;-D9!4pESvbz#PPnTO90bW=l7#|MtK@^EN?stVN_OA$ zOj(&yvkd?i!kIVhF(X$s%OzfTY{BraCmLHX! zYc==UK|sJR^4K9zTij#pJuTkk&ZN^&=jT#_gIaSEV@yrxVJ0uuP?nPUBWx)M3E)3<1FR*}SDFivmyx5`A!D+|I^!*~iV|&haGDGp3 zJ%0XLv7z)whMY~_k|Y5IX@rcVc#zpPlo&-O3qq^&^aYW_Oo0S~>XUfTC?}cSyLYb) zSS~0p9p#YRfswj8t%!OTdujgY89Vc3@ z%-oy!KFZ2Mf8L40(qoYcn#i=SdkUFXkyfblm4GnOjillU$8ZNN8#NZ^d4oJpF22n{ zkv}7AiDl2nGU6&~`J5;WdX_VfwAMeZjyP`bxnAjmmi9da$Xd2PO>KFV>NXT^`Kh(h z11#P^TJ2=|NOi&igc;+splLxu3=u@w^CLH(nFMfFl*?hC+P$`wl^O6DpYGMC^cHP# zwh^74g98VXN;n^_oI%mD)q@-vA6%|(IaOeREuuvRPv#1#a~d-TQm={dwmt{eciT88jv_V zG@o@f8)S0T*}kFdRA!6NpEp%o)+SEwOjU^+8wl;^2Fus&z4|4<#QuXgj;iGs2$_s| zN32tAD)ULm%}jME?X~{^)?MlGdM}+Xmt?7)G(2*ds)L~E6lVPPn|6HM*4^kl9W+KV zi7uAJ1;uJGL-=XHcBoUb`*O-jEI7p;ciWb8B0kUVec89=hu-V76DM^nUA`8GYl;gc zRbrV$Env4Kgts!|dM%}Y9EGzbAQ#cEmQNc~qpz>nsq=<*aSQY%e_`rjxJTlTXe)Ire^=5?cu%qFKh|)eBNb61# zwXN{iO|1t~yaOhV^oU2OdyXk0io|##GSK-`c?R-)Q#1f4+8r1CqKuDeN@6V_(}DRe!7#^UNJs2R~ok zC~soMLsRS_(V43AlDYHg+&JE7-C$nh mklBh|Q_L2U*$_$4nE**3*^V{(Hk@mf zA-b_fBB&L2=GB9?1D&dDh{+E9?zkW$cP_MBB(;gH13g)SIGOdHWo&(-8Ioj{8$Yh$Of@iM&=1k{7( zfwWZ(ANCWdh5jEJn1ocNA^gnxQ0WXA-{urGS*2onV}KZ8N0=EyhMJ?CK`qCvmwx}_ z>BUn?btx)GQ(#>R++(yDg7sKxRtKoxc1&5IrF;Hh1eGUZu{ivNCTVJfFG)M_sr68L z*VELpYxS2zyD9E7z(*1Z7Gqpx#HKy^r#7p&T_^1NFr^I3gZma(VH1&NI^fj{oj$j31jTMP-+)YryWW0*!vLV-aVlYsHz{^6qJJ`W>=gA zvX|4=(}4`<&ZVrz8&VZRRrK$^%qVWTF1>{f+oSX3p0(@NC;LsiN?$)uDPF-rhNE_O zEJt^ov!pNI@dy19W&Ahv-FR5y`E$t44he_uZLKOL8j3>|AG^Z9D?1L0R= zZ^nCQVAK$qVpSbv;VGNRhQdK)(rCQKQWY-B+6!l3u2#pIa?gVr%`~fx6HM2jsTR_i zMK8lOUng_}b2TU-(*u=1G`vxR>T z^M^ut2Sd&7P5hVwRnVRc5oJtSDsLdJeNcMfS$v?DUlz(tFD7CrINo+F_29G#0zI4G zRAI7K!3BT#2+f4&w5g_Q_F?5klt-E#ZK_erb}4Jux>N+?VMWOU+NQopT*vb5x;^(R zJYS?lhu1ExyXijay6Px!F@812s%VN=1hf#t88?RhtTzw4vmcXBKU${$^~S{Rm%UF- zuJ**ZRzBAm`Y?)@Ov)J0m&`MetJ##4F8urCe17z#a+WG*xG$D5;t@Nd=kerY3{$jU zp4VF!?t22Yb8pY5%|?ArhY)`$^&R?6(KziKK}q3(k>=KDmrZo6^X)%9o^1FNUgVLL zK@DD|)36sf5l)L(r!-iLzhK`EbxRjZClp4*)d*n(L*`VXyK^p5`l$W8JByJoPxRc) zN-0*b)_iy3YR8|5>+Ca9uXIp8twe|w%ojumx~M47;ZaVyR1*u;R$=^Pe>;=Z+9;Pq zjkHzVqm$pRueWbbb_a>Rt&Gb(O;b(mU{0zTuhjQZ>NkM2!iZFZp6;MZ`~D=sB*Ts^ zS>5&?EQv~_(N3jJC0uxjMl%s%v8I-@I^Xwm?_qnhJKK9dgvA`cK2he~k)3tR9o-v{ zt6y&}Nxn%Ah~*o4iInM+^L7K*uS>9gwZ#q!vmJZFLEo7jsKvH*kKg5E>Q*2dvg(+|1yWr!^cduoEVv&1C zDxOoSO(dQVcrZg=kcoJqO2N!22GklUVB>|0rwp+7kv=cz!2Z{Qf?$T?4Q$+*#1F+&RHcG8j{hf9Vx{0pVLuscB zj0zFj3dgQ_QR=9D@u`n2iz+I2ab%%W1!6u##N*nwJuIK%HcY+Sn3LstcFT)6YlRN) z$h=X;7t1ziq+nRQ05Z24HKqQm;`d6Iq&l(#=39Hs)v9{kaa9dt1BCeot9T7i@VNnn z^8?yMT~uXI%)ioqX>&YAym$Rq?bJ2_!h|z@)DED`K2Wx<*^4t*^Dxa%>tDlcD>m;uKlRh?oMejZ6r0P z!aGx)>$@%Q`)8YHIi1o2DKO*}91NL`>{t%Rrob**!d-O!pkDg(U>bqak#ZT>NG&d* zKY3*9QQ;T0jh0ccYKRU)%`aLo5C-x}F^9Poqpt3;+W5&W39(PWR6Z%uersO8zO%J# z3!hMuq1utNyDuqZ$X!U9{j#0sh2;-Z2V(Wb{YZ|QCveX#AnlCLhh6Hkjr26iA@&}= zoNwi09iF*UM;jUTNn_*B8*Y@am`HbYPi@9)w~2`i=dc59NBW4J%ALZ=M96JiCW_P! zRUYRX9vhqG_V|pfPIt8jDai=xU9~-RF2`y!4x@|@l_i9gj^$ow%7#T%2_QPekv&*l z2btRS@dc!KEeG%T0@NIb?$(lA2*v|%p}pXCa0dTRHGCnA54}H&U z<*^}wfG(?&2q3xa-ffWZV3m;AMUpokGLmZ2DBv6LGf9460}Vq^Bp7Z?sJLC3WA+A` zc;hP=QsE?7C_Lji6Ubw?hEff51YT@5E6u`s zsQF6f(aVauBt&`%Fxh&J=Ue8+>4F>-)#RiZkd2~-pD;RH#SewJo}2EX`3icLyZf@| zjIs$-?$Aq^0pgFN=2T!VbuxMePti*`^7xM&tYQoTY5SOi9vZT&`#^}ov+ygoRW)j> z&P`5nrHpm)jCD~Jy4+KyUnm`lWk)MtT0YZgRpNL08V~2kqVPdd$h!@arIMo}CmYkf z-21gbW_XMV2rO9Fv3&h**V|i;&tY%FEo=M2Q6B5U%BD?$rx!<d<0TT+avYr+n?CH(LE)a!H?N&L2hrE8{8 z-mh(!$~>5MU6v7DN}~sn&_eQPZKHi)DNwuRK`S)t-(iddB&Y0NZqybkCQ@`{e2~>4t%mmY! z+?^;(#F`baC^JEw<%5HLBogVZx%8V8KM5(pl}fEUyyjc9*~oB5g8 zVyM3-`~Vb6m*0jK44}}%<026cTKI8S1g#|nxink|T&(j~=%6_kp@lKdwGxE#Of?1aMJCb$h@Z|qp?yJK!TaqQN@YE*!I z4F+RL{nw5{Bv&9~b>+O1H&+^}8$uh(A3d+Pa66=ayG?==JG6T zlf_1mV_55u#VF+EH8C9i@e4;qnA{ezt7g}fa8_LOxyfELDd{`Q*&ds|Vtx(jOj-+b z;(?_3!p^iRuQi{+rNbf<(fg3i*oI@LM1UVX@DwI2B~%oIBKn? zJFU53xe^4oS&PE{ZXUH{%7_X3Uba0=%guSB6noaWbFGefhkssY8^sty>+b1}NT`fx zL=uxW?qO>A?UiK}r`biRW!bhZ%G9zNHx(D(G!?s?=DU0?p_F*lkAlj=zF#ROSaXVk z3eZ8A^eWQn_BJ9DI2=OS+pFp2TCk$eM3QcF%JtI*Oin_7+qo+PEtLU?7q{G4zuS4tjb$_IH2DVZsHAoWUQK%**E-wsVY zej)VzJ|hVd7#kAor{4@%tZA4JCkGw60(Bl7LbH&xV%|nfw*5y}NWZ5=Xj%TgN+G<(nMkl~l|1_JV^Hux;OzaS*+T1j4<@wGUCa8hJ z36#X@hwGc(b*$g+`Pwcg%Oj43&ApNaGFd29G*WzxzgRw$?=fVHTce^I+pAh4LV%m( zS1Ur&avmc91BAk+An1VM3I9@n(AW^2RS3843!83g;QDhLK!?Rr2dvB`;izE0G)>y# zzaRc*a~!@-)nDoExlg+}5h*G#joly|F`#UXdY;y9u19C(f8KiyPRnY7+d+|zKRk4d zS&@e*kBxm)2M(<`8NM&#RF4K`5zSFOv?A3W<%q3->z+7x(icnB-!AhD4ehu8MtC>- zX4G{1>#j|Mwb{ER!h`;z7VlP<+~+Fz#TctjM#mTHR-9>Gg<(kiEgIGP>RZ28_u)m_ zUV*}+&DWK4)6bqds5xDU%@wQB$shMPU1 z?nVRF2xo`va^$T&DZ9{@dep;g&pB;#8P7{Kg`GgHTQ;$ZYL{XVwxh>MsV}SdeY88c zE7t)LLrUHbzqMHJ?&jo$cp2uz&O>&fyXZ0uPV@~49wjgr#2i1P>d>pgP$9|)($y}KE zf(tr({{0%U8ar*T-A}vz+Ja=E7aMp#q2OIjT&;Os0-8cdK}J$~gDaG7P3xHaIRDYW zeWPWOGpH@HR?~ChFHqWQme$>?I&pg9zS*foYP^o-c`Lihyru`<;r6pNgZ*@`QmG`C z^E3G-n}u(MLPi6s&u~r`R8uV}1nRt=Rf0=R#^;R}`e)0z(mpN|V#*FcLs3;w69lzt3r3;- z12S$m^k8f=#1o33G)d?Jz%mKK&>E4994ck=YF_eW`D6^ce2*bC^^6TFaVI6qp*AwG zgD|BfZJo31MeOGkGLN&Fwf5dbi+Zb!%FF#LBh>#uTU+Z6ulx`-rEVMN; znF&E4GfmTnMmAZ*r+#3~HbCO7HRX@xCkFTLY7(3j48)|UWCE^ZpuLoyh*(RV3B}nf zBR1HitvbkU)Eypnt`KlKYj|T70;rZJ5+x2tIqlul4;xz^UDS2Tg?3i0^Ga5J+L0}* zyVs!5u@qe9(a%}t>S|b@JLy-^V|877^RXXo4lc%gt(68_mp*v#$aEkm%2CGhii&6( z>_6kWEzh&4W4Qw24CLNRulf%8Ii}P_LiFd8Aeb9!=XBIp{9VS zjC^T}K0#%SvJ-V zShmq4Dju5uXN3NDTYv0k>6Tc88E}9qpge&^6d(dc)DHj;ToItYG-{R_UR{0vWHi_R zX@qpj@ka!(PQLi|8Xo!W#h7)e4E^nNLzwrswL9Jx;V}A1J$37qNI1Dc_k$16{=qq% zVy8XYZ(O@~Tv8(XecOhWG&?2lG;@~$B>LPX>?iuNXdK)&4b)Hw8^3cW=Ee$ZrQI~M z-1?9`rQ6q5v?!L$#IabdyZcxnoYfS#bIVvFeFl;P|J_K26JkAL6JIW_YQj&7=f_fR zU$r8w{;A^t|NTUoj(sox>^azeUqYk%Hy@W{Pjt{d*o7YEydAF9ur^ILQ*m&jyA{6y z6vefCC?+8C7c}PC@+!OYkbF}^s>-5|5K2mv;YVdl+(|%3`&D_T(@g5GSuFs9r{r;AzO1($&$HKlhZx)On?# zzpJaj8YysVP@75?#Kq0{MQy59Ib|Ly95`kA#FBzzvAv%U<-(9fNK0CH*6vrS92mUh zy{%0}5fxEX6|cojb63{40}AwiTMV$1gEEwrKpp;BxO&AeJG3fWx@$(NoW)6FfcQbk zbWF1_i*ur4i51%FXQT5D(7sD#@O`_jK7bZ}wKsMvz=f8uA)R+wkETxg8QodJhX76l zp1RZb&lV6xh$W&3qf-E0T_TDGZ5}`JdsYz#zWAEQfbJc@C_f^e3?x!M7ypQsn-A1oa@_(8|N3x7TP>zzXIo-I6CvJk*0gFG(Ji`H)JGy`vLFsA+cw-Md| zIOSioGa#10-xXTJCd@Ce=oecAj#6*WM47IN69HD7@3D?iHH04on2i^!ofjg7gtLQ# zV42h+NLmLNOoC-W#L`3o03C{lDP?5=b--G8iShw%6ix*7of*BRxC!uCBvL{WJ%R}* zGe(C6Bt8f@pJV{?7x+BwJ^R7|iUT-eKp>ZJ{<#mn@Ym;;z8RoB!Il(HE|`b_q=Q?& zgqN9W`2Rx*71gx2Ox+_x5Fik}yjU}_gD5O@5b(Zuf37EZOA%e=*H@{)kYHW|S^j5i zyu5HuYD?@>$uE+*r~<$_TyQl7NwTG$C8*HwFhgvxylXv1R~@invC@i$hXC!IT3fj* z{0@MI@4Q+9D};_AhD- z7~sjJ|NKPD$q93D_WcPg7rgZCm^eqV9r}kH0-tz)OsWzjPiyP?N%|P07o)Ac#OVC` z{{<>7u}Vwq5@4PW|MTaLYQD1BcWP6)$@IIYr5X0x>bHI3v>&;>r+UAxAgnTeSdia* zwWZ8zYGXmJBYBufglgIt@?!SruQ3FG;3jC)3DXy`P*BAu660F{Ue2gtixWmk0&q1z zS7WD9f61Qza}%WE4KjvkG;j!@1HtWamZ?i|7T-t2oeRLOSLT1?qle3 zro6FI;Ea9h@KlfdVv`P~ce&CFG|KM}C*&|J7Ws0wi{9@mUb}D*-qdCPBj+hGE5z}@ zV;XGVob+y+@N|98y3@U(HhRTwFlRz;TE^!v=32vzFOpzlpDH?oj)!=n;l!kF;Ok{B zU3Ul%k%iJHAV_q8JaADuD-%q#LJjSP{L#oJy8rB0%_GYvzSW4e)hZTYx(Fj}oj*E0 zb!uMRLY)N&Qny!Xyuc@F?|?+Y?^KR_xkFzy+BZ&DDN6&6!sf?v5KZeqrNw*ibANQy8)u%smXA?Iq}3>GgGD+CAb=SY(d40w<3bWz2CZC5hiOOeYf@IjavY z9Gs_|S*xR~GzyIm_ys#`7vj3R>qiaOc*hRdhpMYXWU&B}9D@ZMSM_q*(y>()RFDe= zCq0z+%U*350R7%2*bhlBzG=mWdbeksm|zNwvySFwUA1pXmW0U4dERW0gl8_vt61d# zK6vNGRR3AtBC)1ADN{kk=Gv94ZJWmXu3b~LR#Bs(JXM*M*?HQYpDwdh90xh{(+_JH zXZ%I@w0vypyF;4McbqFU>tGWo-(z>9FBiT6F7m)|vlT4}v&cK%WuVLcr_*ALzb%jP z^C{_z3zeIl^!ewsLmN1p^?eQBoSg`GMj8o|$;2spp(wOF{#uVg55o zc)EMZQ?pk({MM{2;jkrcR!1`tqt;9ua>j3ntIcz@W|Y&$C`x&M_g<$?n;~wtx9u|w zzhS2vd!H!IGxQWHO`PtZe>i3r`^1FJm$PKH`ysm0NK5j)gaqP(jvBL9 zimXDCsA>n#d%k;{YPpC}!gduZRt{Bu&ct?YqsAAI5;X7n#tdvL+5#xrFX#oKrvU{! zz#=U$BlvvjJR~4`-vsG|uK~%8*x;xngC>VTwl)j~7&yH-1ik0z*CEeqDJu_-5mIZj zeRNO7Jl&@kv%h6AV6p$Oxrf%a0;K^Jm~JJZq6$;Ct@*L4=91dD)Hal6CSb{D6?bHJ zwzP!|L(E`B(=M#%bJ&p+%P715ehSvVdt7cK3{|7I-i4n~&bz9vxIw5))8(CQm z=QlC{tN!`w?%u1n<@0j|;*x1I$y?MMwJ1BJXN!WiVnRq>pfJJ1F1>mBC3!#Trw`u8-S_FlhW4wkChj{wU)6Z(=6G5p2BnirDS@WG#> zI{}i?jqYe@xQ6eBsBg(Y1x5Jhs{B`(0z(yjmO`=!{feFga8N6pXpTA;NmR zTbf40XBGjJZ-wyfgNACJgWbrOuDZk}V{1;wILgTgtR69-em6Is+vIbKP!&ON4z`}L zETEIBLO{_e`6ZmNV`DIPrK~$^I^os`GlI)r&%++D-=N7yrWAn`_n({~f8Ien ze{7G(ga?rRym`>q)QDdfsOvRHah-ap^FZK1nq|#_wY|8Bwwu zFx-hx9o{HG2Qm@!yP>*m8ayv$!btsv_~Jf;ht~yR7sURX^!vk|TT`3(4{)3N(m)#J zg}E^F6rd@7I%uZRy33r|@xo4wU%RjqPG*7Z*I%~fHueZrq6y25yG-p7Hxk0`PpV{+ zTuR$i?7U2OoX!u)YjvLgnLp9pOb!}TRBF$Sn_}m-?0*+03MPw!$N;)5nIr-of(1ct zkQkKcg(M%dzDYq{WAa~{K}J%Jd&NvLB$}~X>|-t@M>*ldWD=ganGI@2$I8-LKnTrg zVejY-d%wLozZ(ZgmV5{}}U)f&~xYhbHtZ_>jNw8idlmh@WVwg7dQR z=JD(q4@BhbYsFa>RE&}m z=8JD;>5ftvx}Q2=m6io6FfGgXMlYgUE?TzNa_hIF=L(Zqzn1IGw7x9c2cY!FHTb|l z;LXJYRqnau>o{d+X8h)`RPwLmzZxEo*j7i#P7g=w(AwRZRsK&$1 zfmbzbxm_8?yI{_{k~;VDsRE*0^&%Rh=45J%j4Q+%#Cl=XhoOm? z^*rPAR#w2rJlK)){L*0{*Op#KRYTm`J7s+r?0bXr3{a+cNTy2_k*BHBRvKvOW#vW}VInO|PkHW4sp=mANSk zs|`Ab%RHK!Fugg|#4&v#HTaJ7FbG^i6Z?~lVgzQ(ME*N(_y#9au#S)? zo7dJV5@VBZi?g6uwsE&vF<3CLnAQiz4zT1#-BTZMGrm=wc)0z{##Q>AN*_|qBTz&I ztm?WAL%X_&Dw&PeeN#nt$GpcU0US&3xlORz&RuaT%V;QSSKSi)mQVYfsf-<7 zw-_hBrjoYm5h1lS4U~5Lr~L?9W5rJ`ou3#gx5dD*hS^3vo6edcjp2ulO3vykAfGsg z^n@A}_r&t|;1mV3JoIjP3#bV@4)E@OUVbS#^PCGAZ zTOv@v)1|XM^iQL*?bBJ`yx(LV%{vcDXg|_fh3=s+Ce_=G7>=bC52rSHoIS=rtx=oG zC?z54KERKp-g1~iCNYV74s#H7BBqG@E>^VW@EMOJ8_804juSmvC!89`7)t;Hbu4)8 zv9>$!TlQREVE2rMwqVqR$&Bq#V^vDx!<|gCBJJT+7F+7hi-m&Yn03#(Tn@*$+SV5G z86#gTn-~!#yT_f<%1kzAyU}*7198WRfx^g{fC@^0QWc0q+kociM5}|$%C}S5h@x9# z*1ZS)<3Nz2`jQDOrlR`wvlRVX89`OCtso5LojK68|7pLbSF>P+vDrg=uMW6ow{@JAc1xDJAGYVo4M&wD9GCmy$>5is+F(<@ z&B4e13_OkjY~TSFhgV*{YL~t8#0gHOtFtCy6em~Zn;{H3Ey`*4BksLdR&j8;*2po zdaKtvBq+9R&4JNRuK!`O6m6*_&l7*ca2IGr?(UBE&r3d2iqbqeJTWl=Cnb*PKXqs^ zI|ZB`7k#^l`JwVPg&*49TFBb^ooQv4k{IP<1Sn$QT}_>O&EdguK_ni+PnM?j{`|DIG@1 z8Q0pl$AC7f1kZWDrhL9Uono>lV3+zI9Ipmptf>0b#-;&-8Ac(tlKvT0jmmQVV4loDg`3n`ohXc*8i-?E z1Z!XNaC@5sDg`ErDHdPuI4P71$jRv>62p1_T<1b{QZhS{E|v_hxRxXmdWmq3ERmEu z>lnISEQ3ZLk%z|4=J1$Ke`w9cD)QF>tt`SLPKo%-EDtskpl_^ z6>ReNd(fFwQ+w{r3|StG>tD5)R%(gJ92rl z^BQIR6KBZHdT@vks9Q>p<^nVl?hn|CuO8dh zt+S-sKECv|0e}gVPnF+4P5Ta^V9B}lpAyrruiPGZUdfnh>aBlFn@rnzmkHU-4_kQ%_+(%;k$sR8w+af z{(lVycX2k4b{18s>&q4iCc?UsF)AZw$p4+?o!ccoNRT}f7%7T6Rt3gS=RRKd{mGt~ z!!rT;*PiV$L|!CwkPW{csA;Ov4du&VyqoyN zp#;@U!Uo-l?W9?0Yb9;gWruxl9l=cUmz7Rl`|Cj;dyCIO>&YMMglA98q=8a%<)1KE5E$nZRuNF zmXT)yM};#jLLu;c;kQCBLyg-W-Q=;L>%csc2yJ7{JIb16L{PPQ;hu!Vk!u56gpl9j zdqI5oO>UP&bzj0n{UB7dQlrgnf&G1zar)0|pq%9BfhJN=(om>mAkklfJFPnjN;C>& z@$E6~brSLvpoOtNecm5IV;>RhvuwG|jW=z^DvE{zIo?nkB@hMTcL!yWW6Vy$*vLc1 zC{dNs`s!q?F5RtSz{Ps#LJ7fIbzE0v8+yD91Mmdb(=S02)_;6%Q-uU$iXf z^lBzJA+F6%7eY8O{o_vamdJ(d$o}Eb0H~Ht1Pd=6w`J;K2&7dlUEvK}$FH`C%5?*d zjM#TKPUxX~v0H?gED*`LhdKswMrbvly!?xS$6#u6zcdXO5^EybQWkGa75`&^-H=1Qzjk7_RYIrZj4_r>6(ZB%R@MqPb z6$;p*%Q<}+usw(#Z(3kd9;2oI@#lSe10`iRh$O)Qpgc2o{xPc%t zcZMO#tgI~(#qmj|b`#zHo5m(epJdOC&)f6!uCPPlj=goR=jyXNum&nC4*Fr$maXVG zcWm1c8cE$eIHxZ~!N_z2viBuDD{U|4lGCO1RAZX^GL@@;2rXV_UmfJJ$+eU?2KhrIp`%q4Zz8xjlH?-Xx1B6DpUY~`j<{a{(g{$V>s~s2AoXoNh zPpq}!NXP;}7^DgV_ZZ6f$t#sr>{qT9f3C;_{$Vs@(|i$w>W->u z=L=dQOnEKD(parpXW$mM-}u6SlR!F;{bHT5r=qw(%{ZRZhow(2?0Y{S+F9RSADFYg zclbkCcm099_Kcvg?xnT+85gG6ncQCIuo~K^SyJMpnp7-hA0~73RWZXN?XqSUlo z4;N~s$~Dyj@l>t!!~R(w{->$uEE1@_VX25+GT)&xuibGvR;Y@sz8lQZvgOYbv&DJfW?|giff-M#m{mBxwts`z&qU% zPD$U9@{+fy9viGSoU)$nvq=NNHuwgS*S!8{d_J}WFe2K@M1teeVAM&}-E?Znq`$XL zU0uUtBzE_6J!IHdScvX#i0(~qEj!+yKMZ7ub?=U{=TuvCD?}Lms~DF z0izfa%m^?L-PEJo@7XHmvY0IVB%cXMROZ@?Otn23k!&w6+@=A-ok_>9eAplPP~2aY zG+;JW05ZmSLcU|Ed1)DYJ^Twf-_G2=f%{Y+_ZBs?%3vjcGtzKkQ~Q+}A98^$B*E;o zyLq;}#m%n4pg1=wu&Bzd{TA{xGU}k0H^nam8Qn}eA7rL`x)^!-5Udjf5bI5(uKXN> zK$pG>z(dLRT)NAL2JB=>%<ah5SCJ-n%P-TJn{-LF}3jJruC><>KumeIf#aT2p-R3-R8w_OI&$RlAtBhkRg zPcosB(t~qY@Y>=mJUHGuk^cV9q|+3e#pX%mhMiC)2qpmTTGyS0BZtF;N*b@ob$}xm zKB#MjLYe!a{fnO6bpyW6!yun98)|bn(41UNBFb~CAc#RKLwEYdLsuknH$D>Tn7EH; z9llE-m*mjS8uO*K`&W8((v4)2WKzyEYtrqX{!)! z3o-?TRtrO^T8v2rjT%E@DvMitkKm?NMb)h+|N9|kvf*)Xr0Y$aXo~M1)eNnYL7v47 zW=~bbke|9kq-$WQafHVK7n@^OvNq@H*UlIEb2&b^s@efRPdlZ?Yj9yv zv9-MA3>G$Nj%BK#DVM~A=zZ*14$c)0C&!{>t?ur8wy zT6I39b;IoQ#KFNr)`6gSUL0M?F=<l&l3UivG~NV2XdV5Z#0yGnC|Wi7B7*&L<1 zxLib;1CeQwlK1VUrm^MW?32Ejy?e?~^p0~|axj=WrctJ=&Kit)*p^&aID9WHL&x*l z31=${^@H!i#?~EDMb>PxX+U|HRs)~j!y({UZd-B@gTc2PTM{NJO1UIvDqn#-uk52J5Kp8&76sl7{jZ#XEOq90O}T0(IP*jA$#R5H1% zVU7|_iTvP&ojO(ay(}T`No(JEY)gt-Xy9bsgGh>-qx-F4yLk~$sf{m+iaRij51bOU z58i6>w=G|k2C)Ih(_AT$CaJ{EPmL_xAP=uM?#+?+=#*yA`P3{)LB~%apeBLVJRe*+1=NWLat=v|soWWIAXj4YJ*ZVmET@ zb>7Gt=qn^u$zqYeZSUzOkFY1%vSA2dRb-`P7WRwd1Ywd~c7Z&1?qTm}=tK=9=%Wt5Ii`I%E zGZuU^Z*uZ`aUvoMIYlW~Y8fzIuRt1v4OscR=)$fYI z!Um$Eb_U)i0;Pyi!vJL&asi~@- zs;acCEvQMu7^OrSZ_KZ*Ofjlwh4sMqAz5T3dGqw%7fs{U@p>&12fi2u9Ri z3>k=W@IKpP5;2j>^?f+;;LQG(k*Se^o#;`hJp-@L8y!^!{-Rh4Jb!90^^Aq98;_p(x#g zC`u3l1OuoEC>Sz^L9k9t2w)HxL>)p5AW{?vd6siO`#tut-{;-Ovp>Il$d|N5jl z`d`<1o(;FUp<- zf+N;j15ryi;kCy6lNIDTZzm8&@J6RM$FI6L!LiXkb>#9n)1bPOj{yy1ryOnfNY%lk z$v1aVqayasor$QJKH;6$TZtnC?$td#_Efl+VWJn~h&)?dTskUbiu2N_nOw-4B(O8O zc~&Ce`$?L+Bomz|!)t@(ZqEkE#Z>&hk_l|H%`!*9E|8J9-i zqzj2mw3R)byegb#u4jTw`unNrRRMQT-}6tvJRy`hp$VC2g1ll4onA(djt<|e2j2_@ z_Lnuf2S*pUHF|BoftD z5WnE2o1H|aQ@A;qO%oV?04dZ2!*ilG6wDzT-UAw$B_N__jEw~ZIpTpZdB9Pd+ePP- zHDkY>gJ2Is(BK<*Z4+a;It6K*Y*huGYa~mC*!i0kAq%r^!cl2N)xeQrNAe-f9DeJM zmP&E)i`1^e$m-{D?mtN#@bJiURO}zYE>HXhZLz%Lzp%U7_F-szbSDc8Q~k}Lx?9z0 zA0}=DDn?v-q9C>66H;H=5+ewUo;yITQ@X$F@R%Ka21A@JYR=#_t`^!_Z-y! z?(CyDz0Qys%cviCd_#SglPUOb))lnRlb;}8PreISZePIurDtRT`EQ2thXj3751*AkAEa4p|0Gr0 zgfkeKo#u`a>+p)~9Lz>1;8w8%A>fo-J&@BffCX?*TP7xMWioeVFuN!2TQ*sfm6YEH z3!A&_zRS?j;1E$B)sBv9VP-FIH>fGm?}{BqE0Z#6kre4$amd1&mzR+>;K#?F%|(h; z=q4EjH6s`0<4;##tf{q)QgH{D+XgmjS|WCc0_=&`=CGe%lf4lyZ$0n z$f|nmGbcxNffz6}3FG3@utG}bW+y}Jn6Jvf4q&$>W6fitO>t*l6jK~7h?tO_etYXy z!d(N!ubOMe$84ooBSf7ZgT_J87&p!n%BKsx6c3h*!q0ESm!pg zrNs!F{K_Zx;fK@W*h5(Eotn`xG?hAo*xc+L3!{mQY_M@Hz~pXQbz*&5l${&wM*Egj z?@#~rZV>cz;pxLsrw8Gz!{aeTDk13JJ3vF(Ou3sK-uBsp=o!o8%gk-ir&x9AP&{_G0uvlN}n?cM`LCK2d8sD^Tr{Ec$y zB8M<76y;%B&}cWK2YCN9*^;-F0)54~(ccpHA_+^3O*G=MyCbB;aUV`f+eKOy z$gZls04UZpv{2GM+y~`qr9jMMfEKd)Y&sf{s$+?=lij!m%0E4c|NLNj)dqrgQ`{Y- zF3Zz`vyyka{bZVi{KMmr?oqFzhenUB@m=f*xwdjME+YodYQ^x20mbHzzwIMlcypqs z6DMa=n9hzajyiw8RxW6`^3~4WJ4kNQbxIz((%KZv2hl-ln7v0@O_tZC#;L*#NXoqr zot<+pZTi;3MNXY@>)R6HHUoY0w`+@eW6G=J0b{Q_Hg(i1;U$z@s6SYvd{ zU0ynb(1j!b0x+!APKEQK=I%3v_b*^1Flf`ALB3ndE?DZdrjQKi~2tu6bkC_FG<~d7qz)VQ$p9iMPUJ``Pxd zMwhHt;8xpVRXyg?d4C%@x~e_n#1kkp!cY6to;{x>|6(a!mKP(c!AuSq{%$C5tZ;09 zU(23TRY$d9I~oi2?Ax^q@aKw1m)>CzGr?Vd8eBNlu;j5<7Q$()$Pmox)qK21to)b0 zOZFY;j-6ln^bTnh54ZineYM<11pNz^&bYn@zr*PAF1KIwb9_xNbg6IrM2`xcN)ZY6 zTR*h-dEj0b@kyy&*E-OCA}@<*A%}kZE!FF<`1=mm-~HY7*1>*|os8d*g2WdMktKBkH{>dZ00MwtW=PCU6 z^FQJ5KUTC`J7#`C%k-}G=go!w*SCKTIXo4#`n7%`)G%S++qv=0Q+^LtbFlAoU)dL( zyjybgRCTLD-nZMQDu2J>b@G?jVzrM2m9HExCh9dq7bEV<#O(n8OX+~@oBuc= z%YO~||L1)CzdO(Vje+^kY4!h2$Upf%hy34{+4w&l&yOqeKfd~Z5c0ntYW*KL7Y*S&x$^(&A47Yg_~-J|h8YYllEUt-ViTP9dB#00B|RbkTQ$IdD2z@5y zH|P%(f*;iC-*3)LN&W5L-}Pfv`QOJ74g6C!(3t=FDgXIrvwYU*5HCG)=mqrCA+_aS z{`e26)PH*$`F}lmd6@6CuhHdsylLe1kiU<;FNL{$ysTngWLfx9b#A|e*l(}2oZxZB zRO-N<@4F1GqbrL^wXh2xUEu}eL677vu$k>!2yHZ`=fmNV8@mWJoy26#f&2E20i^RH zSED{yzps-?`pOI42Lt{N}bkw1bN%6NWicE?~+lLSt8=OdI;deW@!3<2C+x~+7TC)lAi1~|i?B4Ot zR(Qkfol-^r{2o`w&Aum_kI7!~%EEh+SG`sN*1Hz6bo`QvC@Me8OsX?%ar5KNBm1+YRV50~yh@-S;8ffC zbe!!+Of#pwu2<=hcSUrivHeJu3J#Wzx^G^CXA^d@^1aJIzrU!`4Fh4;rx{tStVYJC z`-XZB&=E`Q*z%vq=F!e)Q;b(;5Yf&g4ChMcQgowo!*yz3Rx{bXMA19KI^Klg%KFR&cEI9xPA_c z*aftK6KvKo;wHZxgiIY^@3pnRAIKn!9Y_+(1ynO7*_|7X;1ax|XPjWV?xo%~;H;K> zjo{hZ)bADiB>};`OC4*v=|W1raJnboy{n$O6Hp`(gxmTA5Ta1Hz9M#u%IZ&C*6|nu ztP5EnJHQ`N(YKxCwXZ1IC^ydEYD(2)I!;zVQVI;{MLS2shQ2qP==9^Ro^*iC|M`p{ zcbp!;8Zecjj|Hss@{a^y1ski9S@+zGb_F*@GuGlTZi6q2tcG4`bIJs?iTKXpBuBf+ za>PEfgA1e6eA1$OfO;nu^D*1Ucsis;?O3Jp zK*cj(1Ig;4gE@rHy!icfU{kz3kiZan7m)9V`r5s^Y*# z3%CzW!#|Qyqon)BJSiCIEGhy$SH|zmS81<5)gTdvT2q}>4ikfxO{ex0wy$}PwLx8R zdlx9wHaw^hiYIAY+{hNET_>uU`sWPvZaO@B$`q3O;=?3XjxrZPj%F`QnVHpluGIax zNf^Wa0N=()>BKR8dnGiULS{_bH}5iupf`rPPWAH`G$=lA_B$*xu(U{PT)xiofjW&mkGzEI}m zPa}C;CgZYgziO01X-YnTsRXW;(>dPZ47!3n@%9hYVB2AzX zTX0-5?F+f}CQIa&Jv;@oDrG+oLM!ZdfKIT>;RW=fL`rWfZ47KY;|rFvBXUd2 z;vdcU)`bZN$<>Bl%NpmJ%&_t^N{KH~;)XAA;=;~hn%A;j zOIMZyMrUk&%ZH;f*hNTb*1HG()zxqu^tka~MHzS7tC`7_8NEC|Eq4FX}l=XqCPRX^#iam9}rOn~QfR*h}`15GxLy#41 z;ZpVXcrHZwi7I_vp;i6aXKB)9Li|kCe>e$kPU_n^;Ayg%LW#)rv=U=#Wl)DI{ zUa*-1>>vB56qS7P9FU}%hY|hDt|i2-q_L(ah4J?mIdN9n+89OtxQA(cuxzlTLgeGD zSyz1)Z8t5zR+lb*y70Tdsj=h6WG~7B9mI&1$eM4YSp?jshl)(jSSE#z=&$r*H(SKg ztwbo4KfHUpZC-KpEK-me*DWUOFV$}LzZCzo=se~fyrMjSW0KL6!N})GHuXon6IE$@ zLA#+IT1lO88r8b{uL0&=S)bUI`hf2G7QI3Rb0GJKy4LSUX`*KfI@~H=sb=&gIOI{3 zfEiX>=6vaIMk=wtf|CUKDsw`43nu%gT|&FO8~%)cjXyAA0t8$PpQ$ZV`bKu{xY5#*0I$xnQQLl;q6*R}Zp z04LXH0>-XXW}lj;kco!L^g(k9-CzavAhof5z{x}B>DRnhUUdG3eq53H-iou zPV-)PjT&`(nho@f9WPrYgrLuEOZdZo)UZ*JsFX-x$`QKBQ&5mU%)YKpS{NMwx8b|% zQWRm?!CiPy(q3N(ON(Czr_(jmf`H}fu9scguUdDOM^&9)cxS{Td(`zC_r-(a<5G{b zoJ!5ORnRi#q+?jqK9J9n?yt4TG=W(Fdi@5Dk@`|)q7EztflsjSvHTq;r`q>Hv?%eB z?nvBnRwoFjnu_rC*boxT6cXTdSe$=^fZ3ZBK&twy7`79n6O$(4 zbh4CNgYImOeV6$~ZR2eqlbwmf;rov~jkkSW@Y$r?rT3YVUv}J8ymG;Hf&*Af3uYpN zpTzQ|{cX?Tbz(L)G=Rw;M~FfQ{{Pnk$_Y72I$zcMZ}$K&wULs^2!lLO{W z8}F<(1d)cmklPv%bmEvhp)YpT?<)mlaL(WxIyGccNhrwtB;lkv0!R{|WxogtBx*Mv zolfjsJ8L!i=sR6jXSL{ER$Yu+_FVQ^zabqIZQ-u*45THm1v?$SSq(nK#+ahx%w5y+ADV{|Gy`x<@u- zK6Z6YHHRC6FM>QKGEHkxcIX#Tcljl9JwXso{U&mpp83AJ^>Iwk9-MeJB#yA>r zFK_HBrp5nC>go&)8Of&}o!f0_}JG^Xlo}Y(EV2Hn4aL zxayH}A9utQ25eOhKdOY14wN?3AxR$f1nyU03{cGnKurn_D};v4j6}7DI&Re=Sh?_Q z+zW^JYaLs+vaY=x_*X5m{AP9$tVM1cq#ZGCqL9ULyl-mSdQu6Cq-1<^!3hO;+tV%U zPY^6Ov9ln~~lopBME<@;__pb*=-sKaD0T$SY421>fCz);r_z4@zSb~lJ)NFlyo zGQ~0UX$Jiq^lX=;aE%RAV+RBH+Y0@(F@gB)*l>z;K)9MQ$gWTyN5rA?IWZu#n|99h zs>s>QqN5)tQptY0#t2dCf&DQV4`&!PZ*Btl@SjSS3S0Vo=rJKhDJG+|t(N__zPg_1 zl#Q!V?{EOl$F`!xo97&y*Y{`zHYb=HDdZ2g^)s1k6bvRkNgGHE$i-|9-M?MA>b;Y@Z6?@hxdz$4#Z;b?Qj%)5i9gkjb(^?Po@eOVZQ_)F)}zm?+K zS5}#$F1Z+^c^qvvs1E2m2Aj_Kw3cDQlsf&EQB*=1QMF7y`KHYRSFjU_fAN4Y5jQ=J zzwxzkIhR_BiJsvj$>wdIrEb|OpIlf%bDBNG-m$2&bHr=d*}Gb3}BVSSVKM*27=@G zlWUUnQT@EKUY_lVi54`T>ZpMW>dXEjR64-L$*w_g7mL(L@Ti8-@s3L0ww{J@K7%~D zk@CXWIMi29I~KqH1UCndQYlCVD`l9i`GR*xF+Awn)5e@N6Y81OGw zblm;h2`(sc1`l&0wniS_Lug=Kz6`Iu6z!*;E2s5OX(##EP0sq*)qMlMJG5BU$iqX} zb_fjRPF%fz&QQo(dcA@%nOA>=smscCEwMvVqVX^9&;*04=P=sMhVi5-*nmKR{202j zDci-)e6eToK^MF&?|l8^>c$nK`do?q)icacjd}Ig-5;vVpg{yd^wRZ6j~L~1j98WS z?0|%ySyh7uI6bk;NG1DNK`Xk-S;o!0vu?OD_NG_$R6D?EswvA)_*}6AZO=LbR-7Cr z-B*TTucrSYo3Flt%VUtVfnB0vgQy9=mrLbEGri|*4PnMhSox;fW7pNE#5pVlV}cu_ z?k(Vc1p<`4v!6L7s$zx9Z;q^3e7Nve0UiuZ!FE1O4B&wD4ENV%3#PZOjNGmG3_v@M zUz-;CC^e5QX6;mB>nIuY&b9=wZUYpW zVzS08UNN6BSs453nWb?kRXZsWM`Hu?@Kt#h+4&eRKR_ugwx2sw|Lje}#vP0xx&8%wNqrR?lvo?q+9Jpj1}eu`K?xcC5_BZ$rI2Ieh~JBL-g!9j zvK{v~*Vr}-`5b=uW{lDRiWfpt`j$o0R&bK7`K!70xPC^jUP{t;Rcjvo_?-u?LqdUc znYYKGvz~Hoc-B;J#NViAikxyYo}{}Q;(Z8gjwE16Zw7nts%^X(cpbRGoF3LCAtfYf zx}z1@S@}X6=K(S|GrXXIh3R@h*kB{e6gaslMvs-H$Xq(@77ldu&{hgX6KsiAAZkc* zygg!kRl@wj8*lgb5XzjT9LYsUa<^p2J2EoCOB+}(0}i$!5RO0uV@^}$h=-jA0VR!- zbFE~%lZkf4LtU{4qXy+5Ss&YuO#dkEP*q;<9%Q`!ixU`_s`}s_sp(eV7IcieE48WW zM`_3Eyn0NdsZh4tW0GB(l#Xm*2voA#(m2t{qa6j`Z8oR6d{`2%$E9-J9=Dg;*5kDu z1KYqJ!tbY|2Uvo~HzAc!sBoRKk+XhkKn`Hg1IY!S@sDgo;j6rzRl$B6^=`u_27(Gf z$0oN+6vq@f5Uka%WVR;U_Wf$0|;ul`{V<9s;2Kj}Fs$l_K3R1x_ zZX=Q_NJIOuaxmoE0wEteztZwkhLDLLSr@X1v0cXv!)F_r6dK|5oJvuJd9m`9hMxH zfB>wfS7emj-3LrA;14~mMR}Y@fFUA}G5k9XlLen)5W=bx#QSFIF)SK7e3kj?%kVY43B42~Y3BFg$Z&)0u&{6afT6t7DizM1=3S+;RH{8bcjx0`9j?g#shK;ykVmgizW-lTTd zI|T;>O>y~BfbN6c8+aBse;rwM-0Y{}iTh^c8h23GNa-uI)5WpYym?C38tvfs^FRbR zJz}`C<*f1ck$LS&e)s*zjj!*AG81Z*=R-CVrN z0GXxAmS75kSykiku|)a!c>Sk$(4em+8=a1?Z(vN3&3)0d&2m!<2 z*ZQ8Mw&!Cj?4dug#KZH5+EkS5M!<8|T!k0=sXyQIXcwl}7s3)d==lRE>xR3I*NY6Y zJcAXCiT>d$Dk8jgtHg3(M@MbS2kO|yU87TREsb3VY>OB(KBbcfZ##nb#mFzezSd3a z2Ngj}3xDCcWkd3~WA8Y@2UL;xLBTg5K(M%olJp^{^SkV@GpOjTS?Z4tDq2!$c*IBf ztI6)AV-K6si&$o06|S$FTvkCX~|XAnLE9( z`)tsW-_RpbYy_-NmaOLa1+6%DnomPrIeZdC!W)3qus>G556*rV3iS_KK>%|5huU>^JknKgRHSo0BDrL&LwJJsy>wv#AfJNMGDL0!Y_0w-7<*tB`_?MQIJ=&#D4EJj1b@@tr{ zB;^jlAWmQcV7dj)xcS`z4?u;!~4$8JV@vIh-Z1*jW zGO{HA1HoPFBoPju4h+4Y<`Y-VY>B;Mf+c(BHO%@qm0>S;ECpMWEgNitdqVT(7ikC$iowh)m#4pP8^JHLu=O<|8 zOy*48DzBJmo-}-amu)i*Q<`pIgxtM!zSL=jJLbEvY2x<|eh&|nfPs=QqJ|wBW;0UH zihCln(MjukrpUr;xBKUFxY(IOX$^~@W0kHW#$$l{BD(2XeT)Sr(seE>DQN=Seqh(A z0WX%2!xZcH|2b(^x+*H=MS-pG!*|-?$sW0!r%b}4IK7MY6!PvSyuPKS9R9@3|9U17#<#zDMb(nk6a(4~qdaTMKXX#}?zmK)K z@$i&wbC`PjK=k{!aEfaoR5?~8|^F;8&%&b#&t*x!+OXqd!6TnqKGj|aTsM^4(pP6zG;%(pY? zMFci3uOYq|Q2YotdcRmw0QR0Zb0dwP2;s8CEdaVPNfx{4dqW<(cGV^Gfc#RGg@Dp2 z#$qRrKr*z=~vmj?9o1VyoS3BbLq}2(V;($x}JbF+E#90J5557dySwEBSa6m`S zb_J|sR+#H+;{oG|svxIt0(48qC|G67c3-DUrm<5|pE{<2fY8=yHZe&OBhLp;(He`Lq0^Q9wM+GdB3#_SF$2BKDrXZ#TN zz}Sy<01!Gdkx`{kl$j|DZDSY`< z%U$G*HGWD+UvyAZ-|zbuE1(TK{TJ>rfO|Xq$TB!^n%^0>eccT)%mf{vLu%*U zH5nj6(9+6V9{EFb6sTC-)}XIUr@;o1_z|EB`_Jv^!;?x#`0!odIl8;@RsPhGT{jE7 zZ7R?&j=i}qe>=DxV(hzwQy3uuZYMbIQIe^npfj(Y$cnprgZPea3jip@Dd=D&t_5iE z8LKlm= zcz>Ni*4xn*^AevOCOPlI;3(Qm5TRjXA?Ow8i5572^vW5}s{N32YMts+pXbe7g&=Lb zUT5>x10150n-ag!7hQK`k1W}7F#1F240;~~lQW(M6iCsr_$c%NDF5+D%IGy@GqSm+ zXKKY=DYnk1^&amkFwcvv5 z6F6>9_fmC=g-?`sT43K)q2IGlrN8$Dc4EGzW7g-g{eT=i|9zWH?&=4!ADbuPh`cbz zRf+gP<1189QpD!)+s@GYsbgvE7$AV7zlm5<4mift6%uT3IripdFW2uhL|S-5S4RaA zv6suo+7mO+1C-=|jY8=FHHb}EHfL}ySFVRb2|tyn(jK7ASKQmuGGm?8huf@^Ht!}m zhcs8d-fXt9e-~CKZ7<31ZgocXuzYXFG-oGfA`Oye2xtQ6v}?hl5SWe+qN^ajYV{n9 z*qV`k?Sox|z!6h!fk~8%qmFlx@HJr=lf{_BeL22gsetGcZ)IFh?Z9E*JBQ5$X9`9P z@0|a6jdGlEkfqeD0nAQqP3Qg3;BCZ~SV6WRwVTQzqA@4-};$Hxt5Jtliff`tL}O@N@2-fjQf_USN)TV*j);yPouPEY3z4srY&+;ik=%v zIz%ZFoKxXb2uF>LM(nRsBJ#1yv8^5%KkTcKP3^#qh>VZPA+;9gn4Sk>9T5bFOYqhc z<3T6?RjOold<=J$gjhmWhi1EdhkL_d+6R^43~v)H6=Z}ATHVJqz2?a)$C_?Ihm=@zpOXT1ABlb-d;L$@c+qhnF&*91yvi|uO3 z-vv2^9%-xV6zrDKGzMQhw46$TBnbmIkS+opvFS;$93&4qVzgJ*9Gj({JaS*>0SRwu zsbv^gNvz(x!7xv<|8%kGR$(4~tlih-NzQN~UBbKkVTC+^91p#;U*znj$V&-c;p(jy zMlz`F+Ip9zt(ojNN&ADT7M z!K)1`0ZAw~h31TPu<@X$e(L}zf2Pf%xHu;v!4I_!*4IK#5ml$qoNl|TS1`w6D=cMQ z_?=Ql;~3&lnmfqL!xT)*iz9~B`8X7#Ic+&$ z;PdAh^BxZoJKyUKrnIVZm0X$NE)u;v<7Oo7`iGQGo)T^Ih2NjZ88-#m=)90oUjQnM zpl1Z`@sZKLa8Y{;aXY{}eZp~~$zAJc(z#Q?zzX*=h0lIAf!AAq4*PAt?Oz+&t0Tl3 z=y9nD*qIEw#kPR>pWi{z@K(oIS?J?}-3eh3Lr9`3vZpaXnD_a0u#?miX;u)f;$5kl zQLMAm)Vixcty6gRqU`uQ_uSn9&Y0||pfPKDtI|wW%C@otxjrBI{^TFF@4@_45 zDmg10say%zFv#MfBn{PVI-XY&xTJy2s$yluAN>IO>QQ(llG+7;&bQl6w>fpLpZfhm zElS!&80S{gNn2l2v70f-5sy@tM53`iCZUR+<<;yYL5}2akHTMCsA;Li$4``HEW5wa zTAgGet$-J!jSmQR{whP z(@xon*fs~A!hR-atj^lE9>K}%XTcO#R|Vv2RVTt;{j}QAnV}-@$nUQ7p3+LZp>wQQ zU$VgMA|+dOgxuh?B3EaugUB?sKOO^drWY?kF;Ur@lgF=6RrES%44I2QTSWvLDXpOP zd-urfSjm$@L?q=&4fvKJ#5r}PkgSoGN_#v%DNRbX1DNS&QC&=BU!1(RKGkaVXvWur z+DHS{?7X2BZFCUYHbAYec(gjy<+D)|9^ywQs;1w|3eaMT0bK1Es3K`BVuQL;nrEPL z_})FLWLrg9*Usa!5fQ=#ngoyDw3SE~@$7mev+p@t*~_=a?k< zTc+5BVQCJnU3U^Z9;mg`MkjNcuTX7!m8wL_t$_+XBM+$MWQrzT{;WGZZXr(4#6xXyVp8p_vG`hB| zH9Q_QbnaKT`G85MHBW9#bj8Y4+xlac6cPjry67obxz-c6{xjG#^l96GPXqw_T$TN< zb&TKq!r^cm`vCC(;r3ziC~LYk>?*R=0Q_{HnApop`!1U&@+_fiJ;+p!kB-oHcTJ%O z)$*n}iH)=thi^JIR27p5vP)$?@L)cUNsX8FLXm7hv(o&kWa(VE}fV>)^`*z=I9G4mG zvR|#w#7?e%&>Bh z$Wk^@7H=>P%t%$t_7z`bm(Dp9kM2!02(UEP&@L7whqVXA|L$s2Mc)gohab|+?kgXq zYQOVHboGqp=6kXS9lq;aOujz!uKVHVM@AgRh3u=dd43oQN=lpH;4OVS|URQX`=1Sa5Yk=cy1oSau>m`s1SQ* zXjdgM*sm>?Ss*81+pR1IxbQ>gRlC~nzk6L!1HIB3-Y3FeaXM;blp#ueT?DwTl*+l0 z{>G|%vzW@7q!z+v^Ju~icBr^{eyi*o8Zaog+HKMvxW+XD^&D$VzaB68O;NjHHu>h> z*u})9E8F*f9F3o3R4m=5#UXEc>)$I>taq8e3BMODt6TxP?2@a{49p|81I=^q9j3;( zx4$bYx03^R0bzZP@{{z4ml3VLpM^&NwOfcgDV;SS*Ve`T)*9YfhR(~lx9M#E=3?ml zI3b4{ux$F>hIKkDwutBK^vDOjYjcU?_D)&KX?+D4DFL=>rNE%tm^5Ergz3m1fB>nB zyWLT(%tWA*fWGazeqRvI-Dk47f8hzCG?G=0KljH*^QZOzizqTqwgqj6l9#)ikfr)y zl~S8kmp|6Q4H&1O-MR`hFA{G^x29Z{w#r$mL~DQ17^A3DrOisGr=@SgTRkbJlzI{` zctDiSI_!;67)Ql4a8dV9sLs+@BxQCw&w;XSr>v|L=QieDWh4i&t&ww^`>{Z7?%KW6 z;p1J6+^Wa4(M!*{LyoY0!&-Q-!I}LRZB9A;7Ib?e9f|*X57votDhIMEdywRn((8^G zgyq9$E6zTHASc+bIPZw)N59GgCU}4QXH#|AoxnD}Y4bfbX40ajh)i4YfEfaEiKc0! z$PTs}D)vTOYJC6os1PY$aj(<{+pUJlc8GHyHS1duWGg1J)E%?D6!gOxN&#bbRT^2H zukQ{*SI&Az%ovs^tv?Z*YzTcecmS-mTUYnHw6NviLC#*fxh@Cb!b zCP#K-t}1v0?tO*gokWSwVA^D(Q&3@*lZALTok)@o^{Wr*7bFkVWUl1{!+GI^+D24J ztId{ESaQ{Pn5JGzv|Q1#Vxyg0ZWw*>aoDH)y31$-l`r=OE!u(3Qx_?%d83<~Uzo#< z?&oKVj;q~}_wrpVRs3^0eRP&)t%)IYkIiyCdK)Qik8XG0ZgeL;{S5RR6A)_$+w4GI zFE3E}**f8b5tjy11N&k##|>tOZiUXFMGokcpyG^DMDVaSWHqHi2R6vO z44o#OXJ(F(+!v0lC(?!4Z%iMJVxD(26}Tk{S>WL_Xu)yXMD~$iu3viiQrcip)OWd2MURfCYUI)%B(a?(zo!NKIa-M}}c5md= z?9pB^0J?RIPY>pyWBizenx4S(L|~8~xj~@&!~M&r83{&IP&3Fr%kxG+Wq`0@rp+`Y zOYI67f&Lx7jcA( zeK4Ymy*T>$@F*k9<&}pLUN1_)h?gdLeak&jHFi5g`^*$#ffGE_aMMNOiUpUIx4x`f zmvfruJ)nOh3NOkWcYQ|mHIwG$v;6XA3=d_jo}b^W)^!5yX+uJOBNkL_#9d^mb0i&Z zialYN1#SKmE*h0*O_=*d!^IB)&WvKReakN;zZMu|QpWvEWqR`_C-Dq~P$olUl{uyP zA&B!Wk&kEHL+&gs%A1#zC0N$br`~G|*9pw$3jTJpr4<3Ux9rSVgF(S;=`)dP#;iEL z?{~(k->W43X+2QVKv<9b7iB-JTa83;qUG0Yf=x`Jl5C*@oRk3X)+m4vg@qQ4&Ka*2 zTz_H|m&o_k0I)slSR}dWkQD4?$2D1UXY4hym08&dqIzi=YkGm>(FQ7CIm`>%TwQd$ zOJv~%6ASm?m`L+9R+?u8cC``MNKOA8Y=G9( z6H(6QrDg8oWPZH<4U?4HRZuS-6bQtCH!mWZ`~m8djSw4`?OnU3Zm;QkyIZlYIUo7j zgM3fS3mzUmfCNg)>z9>)-E?mRL)r^z+88ce^=)n#I1vB-7I2UM*DcLBUJNC%-g?pq zZ{@^AIb$+z-6Gz!&S%QUrfasEISG@du4U%4ebQ)JX8OEmPgUIia151jwo0yZ?`VQm z48KTMLRbCGJ2;Z1n(rKT0tT2kwC~+sX@B*$k>mHeQ??=Tc9QB}{Y}WItR5c=fO5bi z;)oP?-Q2qH+Mj%F?wQY_2QXm zkvyMVpSF$;8av%{aHCs^g_+UEvpywQSL8({XoZ|L9<<77QE*cz zo59-`Z37_PPIuHL6L&?=JzRjAvI7Z9Ecr;mD~PD?;5SdJ5$`mNQ50*B;iG*Tc%UU# ze538(nk4NRlHLH%{UFb*T+6h_%>kVpK~#I7^6${q<^3;`pFCZ(y8W_LQE(+ZSXos@ zN(((wwK?$du94wwN*Y~^FY#p5vz^l#j|WW*H(J@&I3b)u>mXw1AwyWuNhnOApD?){ zg{*7Xl+wZ6EqncouT{$D&&id(;vSPSn75_p?DFewKn1|_8TgI*DC`I{?2+6)Aej%e zaJRhpt$iXl_;~i%v*GWWkcZADBX+CRt+g^B_*+$YJ!oaIj$mrsRhNT(0-VE1Ety7& z%m?t_{h@sJ>8TH4EaBDPcDPOZyC69hySV*V%1MO^pSrgmV=}ZNX8gJ*x4qS6DmX2{ z?gO$l3)`&p>QLcs8;AVoSsC{E-xaOC1F`8oDIGx4c-4XX&2>#q-(8{5V>sC^<|+_( zW#&j?VmQ;7rCKhn&4{M^>BEYHuKBlmHMoWeb&}Gqn5=yCfW} znWf>KvRi;3>cvBNtt-3TM5eE=TN7#F*YrjU$RR80&;TfQk4a`1v$VTL_nSi3Hpoqp zvVd5KVmL!UF{Jo@V^MLHLOHdwlc&b4+!-&9~BFUa1u&>ld%(=}mszrjapKq2m$kx%(<}VT%`apZ970TkeuQxFr!&`NuHp791 z4C4v(h0gUY)qHA4aX3C?^$?}4oTo+YU@=uIt2XfAVmJ<<$PL9{c2cPXVBczWKYdU@ z2d4cmuf&+ECq8{TXtzoO(l6btJ(g*#grvxT&Cfq8s+79RIckvbTCOZGbUZ#)c0*Y} zQ67svZb6{|SD`tfdS#MOqk*A-_*8iw00U%>w! z{;|mEa~a8gD)fz4Po3!`c9`+jL9(^0iC_m<^k#f+WmzXs|QdJ2_t?DyLM4#I7gM z0&;7VWF{uB_U@l)vN|Zi+JN8uipi7gMg`$EN8ZsnCdE7ugm=w3O(vzqJ1@Bnw?Nn(-Cw^oALp0!Z8lDA@?g_YvQ~7( zNR%Qsz@>@R0$#ak_gP<|jL$Fzrk=ag!_btb%By)tM)9JcIn_{q`@i!u*2u`(R-?w{t4n zt{z3y_3c(WrM`+DC($o>($0H1^>jtaRd5EzKUW_QMxY8TkF%VkNpfm72}bfk!ZhlW zrW)IA%0yKQfn5bEG4cxtL!Z_g3GNY=f2uD1bJjvF2A}-eTd?HFgk}1b^IoNuuCliF zT}3l)O8!D1u`)^DD<|z2?2RH?T$6AfpYbHW-fCvm3-?*YM`ZC8iGr`mN1&7@b+7%E zC~9c0w74~LSOZ`3;mV#G%Qb&-A+j-g*lgI(W7bY(|H-F`6!+r6xEonSkyz*aTDZP4 zmsdy-pxfGhriLJoRF_HLr_J0Su!KnoC`H#qv`Ym(Ksn`F`X}x?(_!6q24RBj zn%VfmKWrFZ6O9rTK))G0OJBQFMIR1ro#fcdmflP>tRQ92gzRo>0DoWX7ED^<>L2T{ ze^f^jgNIE!*&z%{$`hk&=fh#b2;J&ANJu9p(W|cRt2yRa&!|%c97Xf(TI;$_uSi(v z&=N6w+m*RlSr1P#XO6AZY!_tpKO8?+vVWCL7_${03mbAv-YzITssXVoMOQiG8l{{L zyLrOtO_!sZ(aX;fEudV3Tl37iq`!anPg7d-W%N)Dgg$Um{K6eie8~un1%rAcL249D z%B_KFex|+Jbk3nZs>46Cv^*9=u6YnS(skc)8)1BF`aGqky<}yUp`IUxGjR8$&N~AQ zok=0B9pbFSqu#m6GKK7NA{=8AH{@DPS!*c{JXW2KPxEbAU!sj2<7Cz-tt3vGL{*`* zwa2_5QK^i5IOpsG-c?>MbtHx36uRrmdKwF+8Toc1r=5=8JW+vlY1vz2anB=G%u6`= zQ|ck5<{>o6rBr6fuJ%FH_UuS*rTF!9+im*`OXdHSF4 z+l}$gQMs<1ad2n4?ttQBN~P$5ZrDG*RueVLEKuhf@y#0|FcMF&P)OhEWm|U}P;6zA%?qJN;XOuDYF^wpqXN-xkNDix>fpj7%{<>ph zxq4c8{kE?z*RW-lU!<6at6gknk4^t9F~O4!o2(p%c=nwtm8;D!E{V-PncZe7C8jCt z%&owr#H^~t%)rmx(k@U1gr)*vZ~XToE;}XPfy?O&`J%U!FGh^orv-h>xQsQ7tbJfQ z$no*2aAgEl3?=PeZ-(Y|sP-F9zBiY2uSq0fHSjn=Mi7KnjrUkX=pH}jDR$g)z&m!6 z=KdH+O*_(sfSQI{z-3D>Hzy&Mw*UTWfrY@PQM`tdsMaOSDOEc;5fkv%B%b=c^X_zT z2OFlb`YN;tzD#V~wDWM;^m+rWW)vx8^Fe4VDF{ki2f~gznVD%8sdvB`zU;0QG3y-TfebRyX2#{cg&-jY9uzrLPtFDS6XDX${oap z=Lsx1_Y1;l&O*`bMtc5H&pGYCW{DG+WPkB;y^yxH5k!O;X=-oIr|8N}p%}*i*{zlx z6xJ4Dr|myV0MbOt$#H4MbuG`%aF1M~8RC^*WhZJr*+wBF^aBG?EJ6UK66l<>`(k}K z@n{&y6zkGi^g_|aQVE)jsSQlKgj|#~E-EVGQ4Qt~H6DmsFNT@;te-4s6P`ErYf@DP zlJJE1_;^UcCA7nV!1>t>ir;^@*RWuHF%&|{8y|_>x2*w(0EJ(BLQ9R&_K* zYF2@qsk*Vs!}{d1(i+Jf!cC|XUgun2cp`6N4oQ2^;TYdx7x>-My>Lp-1Ttwj#F0Jr zz_T=5k|vo9O8iLHIVwlXw9%IkWW=*lxt)=cz)^C5T!;rpP!4SJEjm?8oGyoq>q(7181 zz@_`|_Q9x93yHZhXO^Km?2H(^IJkT; zPyg>yT=y0WhDC&8O(mAGEu*l#(f!@th?Sqxv8UxLEBmk(Lx5xr+#fe~eI|TiMAl3A zM+Ftb)hbYR&7*jQi~M@&!c)@UvXaRU(I z;!Si(zwyi&Ln{~p2cNOA&;wW9S96w1ebSg@cwI$Ad9?Csm}QO~PsKaH^fb_}{<$Z_ zQ0QxX1?aHqIq12KQb=T7kK<$z;w3u5i=Br_#wq4nhpR2yewg+}8rEW$WrHeR0&XJP zhLDeo&i&FYg}IdO++HD@nw^cjo_hQI$Cf{xkp+9)^tW2@M<0T;&(s|DvOfAP=jc7{ zi;N5mA?FlXJZt3VPUHvs-U=1dEoH`i-^V=e^N;0!e*V=zt*l&u;fL;i{w1RHeNR8! zAbi)6z+z>U5N|zxE~FoE)GWbD4zGFaij4Dg (l>h0!pFI;C4nfN3v;X>me&6emtQVIAVEPf*7<>o^=j;Mlx6%cH6m%_`}(6wrhE>y-Y}EOcGD%X|iIM)ua51rpx+2R``->S6bl?!v6);lfKdaL8kKmYpSOM%7zC2;#&HD zK=pJ03?d+B`roH|;-AQ;vhh+DGt}p^ZXE~R;1fIjpQ)aV|9zOAKI*`K<9hmUG+qBi zZDSpbi#YdhPMQA@(irOV8~C5Oo*ta|aADdA5ifC_FbD|buwKIq3VZ)xnMYG9w?P6X z{DK^E;ep6*tvdF zJ2n%Xl!w|VY3=vTbV}hxTTkC=D;My-eDTIpyEhL5QTA!+Qe}BM7OXGZ89fO(D$jc%F%Qxh?dejF)QH z>Is|MmgmikD*o7HIjimsDfiRp-a%JckTp1kL`2A0jq#`UHp6%VNJI_89%K^<%uV^z>H$kyMQO6_b3FuK%{P z?5DC7f8F=iIxy%ddnNp9Y@SU@dz}<|dr$Vsz-RRd+ z+A9#yL3y9~$=atUfMC@70UcOjLH7S!`LXJ)Z&fn7sO=S1I(|-7``PCVm%NrG(KbJ* z!b7&bnxBt~9~6ia)cN~~$Io;7NLL^InR<5oqp^F%!)srtcTE_hGFE?-+cxXV9u6?7 zfZcz&kDgtsbDElW=SS_C*C%gfN@V==z1vFbYf(|c1B$7~p=+M40Ypbdz3P%A?$s;2 zu!d_}cJ1sfjs3fA+Tm8HXWE|kI}h4O%VC#|8jLUHjCZ>?pDc<>@ZTb0(C0VPpX1Bs zey%%UX!Fawf3kqQS#b9l?@odDt@c3YAEnXZ!>F(K3)6;Pr!LFdEEvDD`)Bd|4#s=# zKM6HX7Yok~8L#UlpqeU_A058`PpLWOfyf`(v@XK8y>Vvxntm5AOdKme>GiT0n=O9V z{06yVZQu5cN5hYbR0FoeoK!e!zw<`)Hp|(shThe$E?T^n821Zk(ocRHORl)LzE|YD z!p=_VtV<}XpIcjF)>E6r_b$j>T(LW8$nNU6;T$g;exnyg)$uoIGduZu#dE35RFl}K zjh3+|>is?WZ0z{6`|_k9M4v)O-u^G#`>zDxH>7nEAD8WqH;#w&q2u@v7JNHvmvL5CQY!Jncoe&~3Il=zy z?k`2Nem}IUBQjSmIZW#AkMzBrSMcTv12J85lTC^g$<)>fRKLM+&Ga~t-LYU`mt-v! z{(h?T&e=dUyS)yp&;4$GUCqtV8Sr)cph+jXW~~Hu>4EYxpO$YdpFd%LU@n&>{x5jL z4ETh6|1*!-@5S~%WMcoJ2m4>Hp}$Z6pVv^Wna}zLDCa-Wm+Vz_3kzPptXRBzFRv)@ zLj8Z|G3yZA{9pBlZ*Kl`>HiHLvjhKM@tEoB>+1f$=P~WSImnpN#7oxVK=A&a^@D!rD3=3_h3=stst}8nha`6JU2%|^( zONnsO(;kK{P04<86dQOI)`OJXBRt@0ap_c(R{XCMmVz4zT*O*Pj zm0MMzHRCP0u^|86n8dZWOl=~@}``uCQG-LFxhfvQT`>MsK~yK6R<%RBswQG zZu65m7eo2+p`Eu{Dk4x>m z@LgRu!scp*y_xpJQhXT#v33um^Lgt%5#eCEI&f{{n_Uh0IWo;9)hVf)Cv#eJm5@1cjsWrh#S&yP^3?+-1v+^L8j%ns|u zs4Gt;iX{tqhON#wFV(lxBR`iJ;{XZ!lifhz=b7@nZjT800ZOLyG^<=s5-4k6GTKDM zyvS0Hduq3KBYYm{+Unkz1nOj##z4!hzk%qJyuDtQ6amZa9>f_Ng7`zSt2Db3wu4m% zyP7Dt9Z;ojE0kOde{;|nPLiSKD(nG=KIAV$o!jIF1tR>bnDX~e2fZLX02=3|GNf?C z8v)fvPyZ>*nI5sp{u#G=r(605{B=U@B(J(g3?(=GCOPuFi^(GwllT5Y6bS6jWk{Zq z0pL_(qZz;XJ8w_ML3!Rlo&Y-C`o6~S`4fAsCX_9UT{!^)k?E;T$iZ}reXRbx{^i;J zWk|2+Tee(dzat7e;Y&odtn433V}lnM&(DtFuV z-Ip_cBQN_(1mTscAyCy`t0p7Py9XNFH+@W!N1?>bRYF+Q8*+q!i=lN@YOeWNMALBs&9~D7<^Mnm=A&F zffHeQSQlPCp2Vl`0gU@Nz$SuXLZAnvQ&zp6k|dh%zhYv>B@9T7!zT;xm!<_DNM(ib@~lHtD}6b}9f2mkiT!Yt;vSppb-9R=`k zf#Tt~UVd9+380v8#L^9Nm2_t&UIF4}<~qIxU*(`BsxAf4A9I@^(pZBh=hxL!H`;zb zM--B_OPWN7w)F0vkb%? zB3{k(IYN___%Sh9epFHZ2;G$q3M&C;dJJWbx}pkZ$9~ixt*FuTkl*Fioar^2D6OK} zb;;fUYf`v^bxpv>;^#_@Z<*Zm5WYT zQ%8oW7qtErgYm$k=uJ#lo^d9;Efe0jYT^7!-Bl{=?#DKv!htOE#c_LuJoarcTy9?L zfY$|3Dg@?F0>%g` zKE;R41_k$^;schCudLqyTDDl!Fb3l(&WKz*y*l-;LDi;#+kSk&p(j@n3}<9Bb-fNe z6e<41u@H--@KYJ4SFp@4P@xsWpX zJOw-z{{4tnsbp60KM;xzVHOdt|DNIwO_ zGvE8AZG2}=zzOOk%r*#avRm%%kM=K3Oh-k}c^!SX^Enr8P3~~rjwe|?AdTf56i!*k z)YbaflI@Z-pFQ?FV);C5M&tV1nbWF?2dOcLcq;vZlp~=3?Sc8q%U#^P!^x|u$f-R( zVUstQe6?TW2f7gc${&WiXC5`fVz2FFZAPqbiU8fUF-iZcuF3mS+^vZAtLW|rCcEdK z+!~)LB_bs-r72+x>zA>{$%PuFF#E(AW!+P<%FbR3JYw|RWheOY=pJ?b0V~OD25JVr zi<+>2m@!+pZ1G^nVNXJrd1VbyVt%~0LgT{G%lbQbOT5(G|GW>uf3~ z!q}5u8?3qSqI+Y(OlZ`^$g|z^TZ9WziUC8N%T!L!)&W*m7Zrl+FOOGdvkuGcX*?#H zW{NqsPUftc1Q@5cbAh}U$8Dhn!Z!A)AKuX+uuE#dy1cYCa404y6g~m$@9PET>DyfM z*!c^P)A%7{566Mk+doZ@42Vf)+oBeGc(k?l!2HUAvnzG6YY>$U)J^R-GrjNv9JMPN zM3pO>c7SDn9U{f-)0W;iUQQa5-gI+0 z6odjNt859LRGM2Kozp(nlF{=gjCdBHn0D+8EUa5=DPR9A%v@y-Z9>fT$oHt7lr){TL zU!FZOV!yYd7feqlKCk0;3o@sptxJ2a?_kjOKE!;}w9xD}Jp?}j^ zqMxuIcXI=Q>s;9cR&H#w8y41fRLhrE!`71QweEGyJ3|z1uEd@=eZvB&Kj$VHpv=Ll zxz-z@?zuJxCVAq{?&@{EILwet-^ku&{?ll$|9unSLENo+?ZA|u_C)T07$};kW_5m9 zks$@@Jh4^^3j|gaSl^pJodz2IPWh~(^!+EKbN4~}D{VqE9xb~n}?36N#2#b#nd*iXiur|&F;R3{f_&hY_jca z&hJ(2tI#X{&UVlyK=oW*qEMkIL-Az2;g|Mnr*vIG893Gug5)JZ&%pP*8r)#SCd9u71Pv-%3YT%1^xkWW5NS)j=)X>%j$11o-@tE zDfv(#a+M+6pt?|W)*sxFYoLEsWo8hWy2>~3{L`DExg9%z{{yaAilE8-?q{Op^o=`j zf5yE&lLkyHH>#!7E{-8RXFC>vk{?T0;kySg;EeOTV2V9KjSJtQfH6*oAI~)rWuWLBHaHV7&w{o{ zbSEnGZy!Mn{^%<4w$1qmPcHT^=f8a8OpWJ2?>Xm_r2xqrFdzKs_Uu1*g1ewh_OkC3m?ov(!>pha$YIVIO={kHU7TLJ_;O;qG1|v+6bF{ z{2>S97QW}VAv}MPW$;*Ucrf4*Fi&|uQ`F6w^aVQBuxYge*hHdm9u`)LqKySX)2Y)y z{2jUIxO8_;Sn6fpK5&oAuU~!%((wR-#=ODOy9 z%gB8f&(?cD1Ugtb3ixh9G(;Z+wy*?H#tMx^6+=_ng6z43YVPj|uVAw+ik2Hj)Di=3 z0&sx-%a-0YIS0&MGe7|32TB3C6ho$C5pekAak}{=exprDq$+T&sgQydhVLpoOH%*4 z;oE{2IT|=C16k!@sm2XtLn|wE^q8nRAB^EhcjFcDmA)(iE(K$igmr0}H>FR5SBUQc zAgAOU9f7m-Q5~F3PUn-OLF;%nIX?g;i#2TKjscsBJQT5t4dv|zhpQSr+->8c^XfAV z^trlZkZ=AW$PF7}9E7g~xhF}Pd@&cFkxmGVbXw}X!Q-(1%nRU=09R=4I&qzQ2n-Kd z3a*>y$XEH;r%Z2drZ;V*r-J5F2XClWClj?q(av5aFMz-Bxy@n8>pi$i?ylcXC)8_I zR|ip`-e6Z7$z!{=`3ckQ?*qut-qdRyG zU83%i8zJZHHHAcK!&<=p=(oow%Xf>SWWa=Krbx_QQ>IX_4j%E!!itxLRDQ+p0ph{XZq(ggVhmXgUMjq z1y9K-P}CV#o~?#TUcindDu~X6bt|90dhx2$*2&3)+Z_awd_v&^xur|!qgP@vDPDVG zPmVUmsBK5DZQ3s44l9n~;8%_uM<|qJJP#hW%#zx`OTAEw_Vc(LhBvH=P3ocmf3y)H zYpjxYroi%VG(un};+2v_@IIC2QjH%$;ZI7Ghu{6(KhRrLGw!u^-Rle^Hlx|UOn2*( zymt{S%UgNH8!;2~5@O>OOqrYlRB zte<;t_+2v<%&~EwV^)sjIg|^jd_jv_ecv;K9yl2x!8oxA&4(;d6bVWZ!^+>T4`OX4 zU=GHn$gH|1=rVqyAUuHh>RR=F`x9wsLKhc6jTB-J3`;1VZGkF$s&&4fQS5E~qj7#v-H6 ze8hJ>w6ZRSQW+Dqqk%YJb^GVu0c)Vas=V~U@!sgDVThZ%Jj>MU1igVWr&a`ED3j27 zSN#(YrBXMa-|)bYOAPB6FhkPVtSm@<<5?S{+}XFhM6dhpohbO9$-#HC z$HsLwe{}`6f;Lllkk2zfoscMA3slvxflPMG89iw@Xmi)7qY)#asG0I}-|=JX2~=nb zx$pT^SP@ZV)U$bfh;>*eLsA^}KtpU#U@@g7aaB*r@HF$lIu~Q@QH3tSg^C2$jCG9< z##vgX8NsERTbT19Ezk-yIS7RB>$W3MFJi$ur@e@cZIW-mDD|7c?nwjmQSwdH9U;%P z+s(jru@rcbiIUR*)J0>ATCB+F{aVJ|2s?4qC@!?*8(2ax81%hd0a>@TbpSHGa*HxIQJX zb#9>HY2{hcVNHcpMESR=`TlpzbO#lf^U3Aw?}|H^T{L-76z80Z-gs+Kh zOATB9l{ULt!Cb53;sw_?#Vmvs2~;=NMehsHKz4$iN>0HoAOQtZxAE5W=0~Q?g~b$J zI}|kR28@3F-n!M*n6+I@=!4rP^9FT!b`7=Y)p=<1gr^UNGn}=*@P4bPz~H$f##p0$ zOWp^B=H}+;H99TZD#q8v**Kbf0y|Du-7h2EfKA z-_HZhTbHO?xVp~Y{G5BLo-dkP=~uR}DG~_Qu6-rSwSJ-GcCgGD-xRy`r(vn2od2J2 z7k|6!T+e2?;7i%iPa{W#=HdN@^>*6@Y_-8|+jNtYzIImZ!wuOO(h1%`8k5q)p$aGAMe;3MHUvZ0HCmn!u8 zlGG8ZsZnI<*L!o@WhA$LOI$-oMok6*$uSG@?l+HAtChGjT@6~3TjaM#7-;7c+-3yGU zSnz(Cp%I7~AD{#uZ@7MaI+>WI(x+hAvDMN8Uo%z{XTH=`X5oPGlI|1L!CQ)OMqTGe zo}W<^M}|wTN#}hxR*&6Ni{e`HeGb$@>voOn6;I-K2>+nLi5Tkih@}1Tf?-#Mr>fMGtDMu}z+;f*s z`b&1}i>)SQ>;vObv+ZX{vPcQiQMF#XMj;Cg#HpEa7pj+o_OtGKVv||2sa}Nb${4uc zA@TiRmA{_=s%Mr>wx0$h+dD!Mc&5(xoY{h5{mb}?Iqyz&QT)``z~rBMgWvg4)Z!{N zWf#9C70;2|(9?L<=_MjJg|kx3nT4EwV3g)os6LdDO`N`$(%u@AbviK;!8wU1Dnd`W)~)IpiuyQOB@tn(3X%bqm|< zM72srMn)aW28~oc|MB&BZ%x_3fvmhE^wTSotzsjpsX#^X>K*);-?0(Ju38HuQspM7 z<5Z^k&3ilB1KXT_{^)VCLQI^Nul#i2;gf%-ncr^cjZ*9N6S#S^@kpib^Jr`Li%hkk z!6=t}-*Kkni-nZc>fBVJT;HSR3zR0z=SwQDDsU*d^DZY!qbTK~=?EZHUU*iWk)(E& zNDB7vj+astl;@h;wpYgVhYdK~mJ;R^Udvkx3#<@P2Qha3{5)IF;@LPNZ~D)`rVv=GXh zr+crQ*|Ly2k$S)T`h7;l1qNz~xJko_92U8Crkf=J6Z;DgewO0ra)JAdxF92|k~?s4 z!1zc%`dw+6-h$#$D-|smyfS9m86#0SP zq?qL8fRsvAgXiDf+MNt4$h$Zc4)EkK7rJlsD(Kz=)w&{dD%a(SG7gTq)=l7oa5BTq z+}kGmG(AQ1rr)^jM}6a!dN!qm#s0-zhoHG2?|5?>VXDo^HMhC5?7$7tU29F8=y3?D zP%EA=hkRC{wHx)tRp_Mw<;<_Qx^wHVJ);5>N2Nlmkk{(z4nmp;0g6dKiXS%iD-E5- z8skt?gSfqJA!-#JKBszeY(CU{GY3Jbu6E9ad%Pihugy-mzmGCUMi#r^hpcS>fsb=_ zR=Icrr{3Y>B-^x|)rN#)iv&@EzVh6q1qfP^e9N;^0zIAd=_Xg1qLUihf-YEWA<;9_ z1U7}pM96hML1?}5y@uO84hI<2mpy0=mo{{b7@|3&63cfCBXW+I5z7u{72G=Eu1Y+Xn(j+C% zUtASXB)?Z-2VgL#tV=8HWYK)pyW2ff$c2Z;Zw~r71V$MVs2vx-M3#>q zj@liTkB5fZCr^1OpC_rN+2)j-$rDt)Dk$J4t{rk>WEDyVrZjf9;O=KA1DK>l>3aDo z^!S^vm(jZ4orwz@PUxD6>QbEU)gsZ)Pl;CzsC&5^ff9dF59nwiF9nN-y~qudlUGRv~Zm(EIasDmWPL<3|$?crDLl>EY9<3)-k5ktB zcvNo9^4#~cZ7ff(+K!j;0~iI9coTxe7&JMlRsr>&gQkf*{dpMVhZ(7jB zQybN$U%^`dK7_0!PE_$^v-tFw09sTOVWv!P;u084x|t_Hpz%{?b3XG4AhZ>W)i@!F zlr0tYNVX6V`sf0y<#6VHDT9rbsuHxwq%M9mM6)Y#`wn>{PDK?x`%8JoS9BC9oj*Q4 z2B>K{0=rhBSMKe+C%_j>ETILBa}PvTV#^SE0f&tYKX^BD;}h%;7H=+Y4r8!K+c71^ zUaCr7&UvS~I75pi%r26WfWhB6Bzm$GHo28s$-6^cmPQz-rW#~9`hy6!)VDNq$X%we zWXy3i`HY@S95TFtDKb$TQxOebNl64v<*pd3WI>)x^z!gYM(7*krZYB7rK?OkgDk*{ zBDy{J`nst0q{O_T?GRuFEE(w$20x<)&;1iLhJRpop>VBR1;p~o{ecko5gMK>g6m3r z4vs(`^&e>2t_E^lxI~F#myap^YCQ7h1u|!c!EVW|CQ0dBW!~afjdqs0;*cPPH6%9B zjJ7><=F=ww;?! zjw|9TQ%scTF66-jH`@HlSd&;fwCLKTvSBGS2^N2_Yr)8E+jCR5Kk;520R$*kcDjB_ zE|8z;BRXtT-4&;@i~S*nx#}I>Y0j+?!3nGF^b3109nF9I(;ICL5hL9&@aIY{k9`85 zzzwKS7j-q8yg;1?b9-PN@MTliPszG6oi>F|w{%@wouPb)C!B?wrgyY`aBAk7OO$P{ z*SI%LAva1eh`f^g21c!Sw9jeUIypD&>dmXEDGw6`mEuq}O3~yNnJ(6rTDWPNM`}*6 zekn|-WV4IeuvDl99+GI@r&OMtsRu5E@Bo9cPO5g6iXA$IvGmoSJwDjDcU8!QsSp7- zJrR_C{Pi=XU-veSzu7A3ioL)0yXjwX)+EE;5ZlKvKZk*av!)7`$8JxNqr`3%{k*XM zmZ|Cfm@9tvodWCSZ$|Q`2UlbaWCEiW5V<+$EX^m@WH>WLw6VIMAku+ zhw0F1>S>(~kP(v8o7BiKZ9IlTqEJT(*hAy%2vDRmm_y!M?TD^`jF**R4B%>yAT94|$| z`NK{Wwc;BWQ@*UVxqxdX_i~FB)gI$fEZGC+ zvuw6|`9Rzga}Yzkt!C6Mp>8k~tZwp{vrK8UWe>VT46tKvvi};_dAE-Tb-bhUsLYU* z&QK>uT0N0o0pA&W)M$U%Rm72fr(E!-=hkZNxs)3AI(QQx?p*u|Z<|l@ooJ_&V|jv8 zgSxjU`0=$)?$}r*p?|7t67oKA!rR<)ENn&gRNgwiwkrIgb@voaGTeRp1x?@+7de@b zg6Ft-9U!c{BMwsuWPz|St6i*`XmVY8ATZOPQm>>5h`G~4M;Mlqb6~H5+h3yzPfd0K zyY)T$+k>Jy%g4|+|Nf_&7S)G43z!FLi1uzF?hCSB%#kv%h6LH%yhjq%it2n|I9@tz zSw%MZBf}Lxc4DFnVZFx54SOgME~$AL2SW>XIL)@uV?fH`uq?=6Oza;S4C~gJLLzs& zz=R6v*rV5pPC}zz*bscj4l%JzZC}1yoS0%UU~%_bDJ`(Nj*>iHn>56C7gBG)u4U!- zh(t{kCb3~)Aw4H9loVXBKVQgmSyCK{)V;sZ?w+3}YLh_A234>a>6ytyW+dl?`d2Nn zadq(TnBWlM#$R$7-Et%&uuvgH?jhO+o;ynqYW5hXE>BIg2YB{{gLH4H7{bT$&q{88 zHkRsUf7#!6X2u42^};oaZ-%EA5P?8L?x-c)T&U(;CkuJt{4>2quAq>&TB|Y z6bG_gmbp)ES|(>a)6-~8sAWskR(P#-lwvL{^-m3CLA4aG;b7Nzi)_+|)y}hXK#g;e zmlF4Oh63>>A*T^qv=6YHInToq*$#Uho?;anDHC%HXDix4BfJ|S11(oCl}A|b zNQ(*C{Uw(PC*>ud^7jQ%!M20UnfaGB1MM~LAXK~NsPgI5=>7nePs&Tlf2WA9V!wxt z)kw6S-ZjUblyIDf1zQ-W^s03eyCo98JP*!1RHx3Ne2<=A880cONNmv8S1f8Lok(|1 zl#jf;j8EGAL(l%{faC`!h)#{$>$7}vcn?y1XVtf8`>^El(w2T!*`6O$dG}y8rWYvV z8{fBGTNUo=95J~(147ACw5a5OCdCrJ%iECImn@=Jav^Wt4j(t@@~lZh3OK^dRO2>r zVB#JphybmOFkHBVWdgKb$0c7oC8ttY{CLkpj{it;Py&_V79aaepu8CJ@@A4&HO9*o zvQ~k#9t6!V-5Xgc{$@Txp}QAzHTQijx&&<5CQg7B3qi8z9+3v_rdJ09`OG|mILSjk zUy`A^GPrE&g=aejvQVl=Xh7_vc@ctsyqj{}^nvuEx~lODMh1W6h#TWB2TgL zb=1=vLE?)|GeF%OM!Vqy7vg1BnB(6%oI!WO^g;7 z)lgEv=pLcnP`FpEHyD^7gbQ2Yv<5Evvb9oEv-mFkjf)qEB1s)XH2T80<^f?TzIOsU zE|R1r1=0zwtcI2LUJNF!52He&2VZB`%pz5Nk+-iOu=fajpe31p3=k)c>Ov#etgi=I zQr6DTn~DXy&Ht`p`o6{Wct89c{_gJ0p>q%JWH0BQ>7o2+urN@~kd*k$iqL(^DFLa+ zeVR0Q;tu5}{XWRYN;v`O9(C)=t8a5sQ>_CuIAW$=ZB2a80#Y2UgY4FlBtMhf>rOH_ z^Aw|dzteP+5L1P}zSzjAj2>n;QI@wA z=Wlc3p58>awAfo(f&8_)oa~aHGGw6&@rrKs9UI8<;tqw7^nXwx!lX}!W zwNFwm3S<-5hx1M^v~m~$034=%N;&-6Lxp_91$=p#ng=GZUmVh4@I2L|6ZvZ35d zX(y7cGw$vCoNwa|4$j!lM+GqMo6S4+jzpgHbFO{sz10-yn^^)f)1}0)Sb~u$FDKs zjmu?DK();{zUhOzlO~08(U^CEDMp_UqSif#WYz{n&^Nv87wv{P1m>NO89P>?)tI@J z?cvQ%(`m`o4MQREROnY}3TNga(ip4)q}H+eI@ehssOf75O*IWkIu@7ylY z?A6gp4ITP%rr}H-`+;_q zNYto(UDF^^)`gsBnJl9;_B)l2m6VMIdIOv5AJCQ0^Z-zg9|f0l5fD|EY7)(TpnJ-^ z$F)%Hn4}~U$lAdQx#V`cyuox||Lo7t!TZOdtAA>5OHIufpnY{=dmh^uIvb$;ZNGUo zH1pmh*Y~fH#~Op!fFS7oKe)PVXGRqmjhRs_AI^8T-tf_>p#E3sWx{%+CzY82=?}t_;MR!ic}TfFzspN!Rw||$AhGRZa55IaE_rlx z6=2gKnmjsIC|7Uj!Q4m(ximiBtw7N1yXiqq#iCr*zD z0Fh~Lq0n1CkPkpafp0V2V&CUG*(Z0I&s_dDVvxYBBXB`>d3Nx;#|Xc>?;M{LSqdfc zK~3hIAW3}hDL&rN5^hD>?V$Y21HkG4Fb{lPgF16M$oe|cy$S1zrSg(EfK?#v=4ZK$E^5eLiR0dR z>wzr7?E+D=#nqsoI5WVWijoJ(Uer9Sr89z`BNtT$(WHEwi}xXdWFH?tsRA_j04l;J z+x_%GfLJ&;J>qk?F$scBLq54mu9E;f7NDEYM>P^1>5fbexq+dZA3wLUX))Nu&+*Fh z;Ro9^goFh8kl`sg?^*C=w*5cfXooaOfIapEH2G-h^+~_&TR~EH+~ME>kY$gcFRp>4 zF~~eK4jC?1R^mqiAOc+jm^e{P<{SWn24GOgX*gKA6s{#Jkfy-^Rp=;uU!K#=en6d% z16yc*?p{hus2zaVzEuJ2*S}KS`M_$dHUm~&Syx$*V8X#l4Y3I=;F&EIggKW7!=;Uum9Y|I?HG8d(m$1kHX0XDD zX0uSBY0zpOy2_DGUxeZ_N3kc|m|eetWBRie#`v2vEQ9XQyD#}j!+!KINeSYvRg*xv z4j=+Of+${Clstd-l+c}=ngP5IknBLw+<$}ee4Tqs^Q>TU&H-@!f>xJu$>e!jl!-|#!H#rpgh zJkUVV%?G;!BodtH272&2zh7mi60VUMtY7kuKS&3ELkabje*-$!H^J^?J`#*8&xjAD zxG5VbBYzGYlFI+zcMDqi8G02#@Zb4xNl6(1IgE$qCMCmnY{T#&6m7W=cSuM$!bNh&od0X8Gf;k~qy0q*g({ z8ol)OVhwb@*dN?;0(pmw@VmS1w&PMRh2UsRSUjyV$E#PR4?NDZ)O`w^Iq8{gBnPC{ zN6U$&{0CS6=qDkn;VqG?5W{d`FxeF*+|d2B`zRuf+tX^xo+Kn#_g;_mI}SHFcU1Al zwNHE69u1mZ?gb1xmCi5VFgjnV-{iF}+oja~FluO)@?&t$3GP4f%^lWpMDp+>J+cP$~afJ z!O{;#J-8>fe@az-SUAc<^X?ASFBf?EG9-iEPPbq06+{sk-O{3i+4e35`~3s53nms% zso=I)h>l)*+6^-4m#*KoG)K&fXava(U{rAMWS{^b@$pa>Z&;ae$T~4-rC&1Hj+GKjp(A-_3sp}CvcI@SCyKKhT?A8flXt2udHHWyHy62LuzsbQ5 zryc=2$6#4qk$ZrROaVin)EAkYt=8krB_js@Vb4+_E99$TAa(v19ok%E6L@*= z^#GB4dz@}D^fR3a@j$!|V<28v7f@8Q<$6ACd{wdkIzF5?EwApsPU1$=eK4Lq-vteu_)#0HF~u@OtPA(dgo zs??Y72ePi_rUM~Y=UR#dGO}lHW|D=d`c=~EGFUGqm1trnBrZ?;H$Nh%(bkPf@JxqA zxycEsK72PG@#tF4`+GH#pL6!A4p-s_kl#`*KDIqTPQ9YNCVbFw|1A1XtnAqK)u zk+!~p>9`gR{>tOlZF`bA$D3cvU;imDenu}hS-9nbx>QVNcKJGqZQs}C7dGBHKfV~r zfFY74MRBq-O>7ruB4(b>DW6maYwg7oes!!I@79h`37>^2z&q`b5b3d0x&`?;66zc%?pN`k%ql@<>G%;xw&5Ot1L z-#*8N{1yNzcwbN}qiT>_$=X^=0I5KTM=7BK)3eIl8ZE@7jLpr0dUoy!2yD<7qbCX{ z6O~sKPCm6uuB(Z$Z5Zl!Quf`3Gtzhk6!m})A^Dzz2U&$Qh%&CV&_;bzrhi&BQRKAF zIzjF9pVuJH>ZVAGwCBn?PLN$PRSm>7BUI57j`2OG7-Q>TbpcfmYQjV()(0OUcBOrI zFF>ffbq(1H25$23S5$l`{M>-(y&DmmLam)p$sI2|%Q#AioTT-vbW9!yWIr&m1BBH8y@S?)r4B-2(GOkI$fIR8QM$` zx(*IM+&~N5=J-vW4UN<&s!dcK)>74ROU1XY$A49mskUkLWUD;vy%?VtsZF!{ALPAx zIGbzR@Bg;72!g0t4KdResYa`YYDmqAc_=lc)mF^9Or_+h#8BFzv{f~BsSqV=XTxqbzkRop5OEHRrS!H zGp6$aTO#SB@u8A92k*LZSJR{*3_LMUDUn*x)aQC7_$jF>cuz6zUw8VC4n?(K>RDIw z>1<4+3cvaW>8O)^J-3VG1@N;>)g zNt<-yH+trVfSOtj3|4(U9aVu?vRAx@@{#bl=^3q>8VGW~sg8&=%P@$0|E2@Z9h_!l z38W8;LCcNES)6`Oj+~il! z)JNGYfD6JR&s%?A1v~qbN^TMKQR=7;;5*PPg zdlqW=a4N-n_wF3Jd~A{jepXq5PR{<6eF;dC^wq^1h9yaKlIE1Z>x2`@38Rw=i(DE5 zaSeE|=)xHB!+b8_RujbIDInG?HT9`1y}r_xL~w(*ybMN?DUIpZN^DWy;~)NTn8 zV_xeC=*Ibc*`4?Ke3~(5cQM1$L5J;~4TSbOgD!KBxhqvF`utRWqM-1B7ZGdY>Y$S= zc0de)lM_c@xsu6Eo8Opi7t$5mf&{svp(ckjCHt3_9KUj%h6NcAYXhh%eAGGZVLmGq z8E!{+PwRqgUxvjRM+1E6FgI{E50HEfKlSrhyL(OlGMch`*R>h>_ z`EvbaJX!OBJ9v^q6}+lRP!$i$wKZxG2>K2;AD}bmz*gFs|2{kU2}c zz2)nZ!sc(}Qck<3NWtRli)A3F_MRr8PLl|Jz*+mpKj<%Ba&qNIp!y)l0MwAK+rd4k z=kODvu6*AV*YYcR_MjAVk^3cLEy-DhE!3T`FldJe8v}7NP1x9)vz~ zwr~i?Pwd5$9R4wQ#JCamT3lA#8pXPA(+jbj??@AOu{hlx*-2%74W8zb*9)Fq4&8mF zVsUJ-399kai=BV&lGydreUoqUXSGMdV`Hds%=~v>5{<=&TO4n4|(&s{QS$tWh7lxL+R9<^hzhJm~Ey3_}y~}5;#U+BM zuK^Y}t?y)$psav;s?S7@_x?JSx(x`qup$YzO+Geb%Yv7|`AN-WMl(S~mLjMps z(<4xDVELnZH&y2cQJa+qP_XAuFLTA=l44k>YK3E;HHABJ(WRPC4?~^*2b#!1Y%Z$>3vhNGE)QG!qdWPR@%Ud99jP{PWeB^aOY!7>8 z+}l{&BKXNPz9e=&Q^0Dc2V2^u(X7{L3v7n+Zt*I+se72Bn8cgJ$=cvKGMkk;y{|9s z>b}D7`2FaE=Rt=Va-wGlx9_2$b@#3HDM~>B@}RYNP5XFwXlK8xT;3R%%LTD9>N4U( zl0Sh&os9pu%kc;9pkXXlpX%PGYg*`y^TLy8>hdHl#bEj3?Ry4%ti<0W-0Yxk9%`S1 z^(x%nE%R)LL6spaDJo}GH)*F8=_Bm?z7k?7sx->&`O5dF$1Mx5y)x@f6AW`mIwbgO z$XS!5T8O2ss@31W=xKFJB2NaE{`p(R7oB8wTs-sS(V1RH-bDG~$Om@=#nD;Bt^igF zRs6Vh%so)4uxqO(S91(#YyBZ@zwjq>>u;$v z+W^IdD1-BTUSZE9IPnGQ`~o%OG&^QJ`{nG$ELAmJ`g@)q5Fu#GP6{G_72fPMnk|)B z8+r#GdF}KW5pPzwa$(i&Ti#;QASEpdaU=Jnsc7wwq?Imj?>#`_n{Sl|In?TJ!yaIu z8piPwuJrxt^k@dpPM%j3&!=R_$0BZ454{7}{`VHPcfD_EDYNQB68nM>K4}w4 zBL6fNM&%`i+C~gtqODG+T(EbkO+9A{T>QFgdOk(hPHN-Hf(?LNG$}YcI1N^e+TMwv zx=X;MhJc#0I;$~6ijH{x3aSwD1oT9GVMsYGZ142{z9as}UpF0odQZ>!}`_S)v z{B7maKkNRydE@rPSfqFLjdM46F&Im4;;QDWr=ej>3O2BFDdTZFu)hz_%&7Y(lgV#b0B4yvmHId@y}wpi7p%3Gz9`;SlX>^GMk2Z_JsMLHjJ zYvy52sacUAuCh5Wi|6HERIl{A_O7zuU+*=DGO8N`k@oq|-diMrcr|E{{s8ZZSdRGa zpqe*${{9hwee~$P>V066Ef6!Gug}TBiMMn5TS4?oZ6qFq?t!WS(CbAVs4qsMt6z@I z#vmPKP`!yxyoTmcbLZ-i3wq3O#!X2AAc-R`+C3z$}`j&K9oR3UsK~$2* zxt+u6iQ|~iIK#C`Z8|rZ4kY}CftK^4W4;V>WExS+neWs*8}ZGx?o(l5NT@GOIGeF5 zbhj_v`Q{Z^YLTb)5On;IBpXQcjqx_ARq|pL2(-d8$RV4cIZEn4cWumPE3L`x49<-c z0YGcUV1$G*x+rpxJt&)|!Cj{=NvJPcGZVlo^!A?+R{*(ALzP8yEdMb)8J74-3<^t= zISmB)1to8iHA(72Vv``Df(!Q0Rn3t+u(cgI!J{jDs=aV2@4g3v=P!T&s2YK`CFz;U zIxvmUmqD0*B;TXJx+0kg{)bdWuonnIfSu3D(q_w)`_!&)h%PqxA z?x_Q2Y2vBk89C7SrXa_oI&foM$!#gJHfT*HHFBnJ)l!< z4WyVG-L@5~p0^T5X7%l+@rV0uT3Dky)k-xYFO}&0EI+RIeC<14U=IrRbWUz>9_Opg z&E&1bb5Wo6%q zvIRlo8{>$@5&=tKm0B;MoLl$eiB3WKfn?T6y-yxb!R84h#RS>;ES5+YxVJ?nm35!h z(d3cVCe1s4Xu7Ax6u_?*mP?2WPXn7-a9d5I$ugWgG`DInDajk*cc z@JK#O_{Tqjf-`&rdUVNb2Ew>(OQOfg!BwvBkZqz;^|cCmD_xa9UgLX8C>o ztKWPpOte147uavFn$SDzAT7vpZG^?5ks7|WP^Ze+M0zZut$nhqi+0WPFrVMnk|(5P z5WsDp2T}F-M0&kLA~#QEi5gP3q;WDTHeg6{cp-S&VON)x_M2 zdC*Rzj1Lv09~-4VzpzWq2JtfV>d{E4R%8Fn$A-;ONS(6$RtMn-OIpidM^6F1wD42tSE)dFnb%`xBSYCKGB;}E2Am`~;kt?|z3A$26_aTOIZTwNnZAEdB<@4v;!zl41Fx znRTnY;V|LcTjO$73-s=+-t{FD{k|-MAjX}_nWkJw5O>M(dSi@nNV)g+&kL`dweKGi z0@OkHQ|ATAZRLq&xc->32*?90p-={%Xbr1yuXI){u3{{lKko3QAnW>_9(MChntD4%a@Rz@605W~+`SoId z|FvZ%BUz!rL;|G$PVuE<_%RDv62Bf@`eVCBc3@8IflnN#ofYDDKk?o8T3=vLCN+lq z{iB(Q|M6~EB-f%IN1B{ncoKYW7bGeX@ZLW~jEg3obj5-@^?0M(=(Q$GSDP7zH!S`c zDWp>=5Ud83cU%*=zU|EiROjcO_`pUVrL{G)<$hRgFBF$s5tZY84!VBBu1_x5XV=(w zO}RY{qyNiuRrI5CuU5nKe&3EunZegj?G}R{%Ztc!py~PhuahHR6#mfx$y4yp4`3n% z$jMRNbxmJvzX2UeQB#LtVO2VQYEokG*kAOXB)Okv%{MGvcJlPW?glhZ(u9$GrM#P? z;ew7UuoiEjDESL4vCN}`5+1q+5Ie|a$ot}gQ=@Nn8hDe(3 zmRV-x61}d)NX;UGWOLpj-F4M<272WmQ&ew}S!>pD z?6rq!gm(>Y@2k=IWR&>5KK#w)h`QT0Qhh;X_0sK^N6LPcx+L+jQ`8ldLE1x2`o^^3 zIH!ffnBu?;Jw_O1-Pbk_h{Rpqe$-SN-elQ*P-hAU{MG7MVOXExo9J8XHx~ReyTX9X zksNm4=k#=H8wAn4hKY;eh^=gPtmJNZ_0imYe_PXWI}a1i=a1`M-P6hQDmmESrjWR4 z`;D2la)8r%-?GbA)s4GMD|^|;lx7sKr4$qI8Lsy4Yr!`gt(`P#ZEL=Jy5FH>ype3a zu{A_0LG`dtC<34B#v2Q%W;(;_8{?3VlFd3sjrZJjzwm`K4+}jM?is{!LFLq#E~4Hd|rWV!7%tZ~P}sTTK9xj3U)db<1CYCd6U=W>^sjYyCtqN)n{zMTbU@kZX0p-?h!C~=3i_NOhI>~hy>pp(O5s8IC6IyD z-;L_efc)Vdy?dkCth8hMk#`kIPshaYA0r1PhBacNm27-|c6n0Co~>4q2L*S9eq3XP zDNiQOT64IL+umIkL((Fh_XdSaFT#3vB|qq6#Z=v;_s9}(q*YZ6jznKXRO65f!%xtY zL@{;#MvOp=gieC}ejZCie5e$c6!?Hlovv-zP0Ij^rMB?I(_Lb}HGKG7x~c_>RCGYX zzM^yV8!*3>-zn-1qk{E=f_8~KXgOl<%EzzQJIIK`EGWla%=7w7gA{6dvdX6wuW_I&XP2Y&iUQB;kLv}vm^FC6F|x<) z3t^I`T<_G@cakixQlb@r;iOE%DSg+LfOb^B-=*2L80n_)Aoj-_vR3p|WmXuc-x67! zc;o)Hqcyv?LVLTWeSrH_q1YZJs3|2nr39>A8!^J+VPx341u@7Evoodtx!q`X} zV><5yd@cD=zwhtifyPMxlRn}+?Z$h!D3uM5S*?EXS5SBv3uEd39p zv}&PnI_$NWn4^Y6iGx>uzzAUS?6MfLeqF>h4r{tWWjMSm?VV1*&hhR8p^|vI3Q`T~ z81YD4RSIh|Vet8$*6&bq_3@1JZteNPw?OHQ|2z|QFheiZwKR8*k59+9*0F%sc8#-* zIi!I9aSXMN8_UR8AU5*%u+?m$uB2PQfqebzSWF`y7sA8pJh8asc}bkEAr2iJIdJ|+ z`9{$876W%NX(9z<+Mef;d2A)E>~WzD=Ck)0b}KXNx^>*(*Oe z8`|yG(4`cJ_(Iwz(zB(UxS>Ib>jf4=5K99!BOEA46%Pq`vk5bl3ix?d7c{)4;T0lJ z@8T=ow#NHoUomT(GlhDyrz7vO_4O-Pzm~O+#cc%#<}Z*2fv0H&{I!@hs}KHTQ=frQ>{Ktx5_mt*&2~FEL<1Cj(G7(+PiLT>?Grd(Yq;6@mii3%i!Yl zELAk$($*ppSWo*dSNNPBgTJqSV@uTSg%;Xc_#*{~JNzE(bgchuI4@@6mYL^~qUD6? z+0<%4TBdUNr?Y3;V1p7-mPS`BE}&a=)2?5xuNF@>ZQ!qx!b$3hliaw@Nh-^?^kWw~ z$ybh2RTgVgIZ(L$An6$olRen+N&BoITY8%9`f zV{j&P@Iys~R|_SF)xp+5Cd8fa{`I4MLIud%?Zu~nXnf3&C>^DWG5i6iXLGwLITD=^ z4WCqYxALS=J$pltzx}GaUYu5H6QO?+7Uw8AyhrUf$GOo#)z_pvr2tFMV;{Ho<;x?} z4kXpRxgg?GkZeVCUV1>5D`XTJe3Q4VqhB~M28?*)B=EWG%+AV`5Y7`P5*ob<)Ozad zsH5~O@Z*06ZJ>XL|E*DD&=6;Ai$u^yw^y1Ic#wmuwkK!BLLW(r8gHZTi zfDrPK(CRCxJTGl%Kf4lSGU52^?YAKp4rv@;>3aa0Oi&r;qU<=;<$01%ZFMw!U}vFk z_Vss`G6+~lEe*2=NjQ096b$`QOa<;FZ-^Q)J@uUeLf5g3p-ur1G}S5&oas)W<~=k?4*Mj z77C9jIHy5;k>gd=oNV@dSJ?c@qFHBIr=`zyyN|c{@q)u*>!7(G{qA85Gz= zU>z2KGB0LemeYI9`WlSUF*6#fFk)ev3z|rr+h*fuNj$$ja$?7A%CwHn8<0sX1QYBbv7eB%Z}Ec?7lZ%6pjT{x}w>Z z)jMPnN_^F6)0mp?zszdC$xRsDI90lTi%A&YB7lmcHlMrqS0}fX3vExu_NZsHwl0i= z20T8O8X^>p_g#!llF+mcp1HIu5v@T#r4btwj*nSe2}M&W`|R0&fW^Q+eq$jxzk9bR z2Tn}ynL?B!c@MFDUKMHKt@h!6T@GAd3tz}nW*OS`Mr#dyytbX@pubngv@+i#Z-u4` z-*sx#q^x>v1d4*%i4dE7Kd(5bZ?$H{*819_Aq`X!*qy?c z#}HoK$F(5{S|~6)(v?K{ot0FqOjE+MLpl9{8{=RiIst)R*p}o#rDww)SMtS^5d|l@ z+HY{E)ap10m_uU8Lk5x+iS^*e)z&K$#Zs_khCihd|CBR)9}UaN|_vBO4BGlA5*1oC2EJ>Cq5_%V{? z74ybVOU+Ltb!me!`un5&tyL>izs0Og*Iw|idiKA+^q>E3#$5MdNlTrD#xK0FS-YT^ zat|$XowKY@`6Si2)`V&^-ETb|nHA1YS-(kJ6A5S{PJDmY`mMrDchi(Z6aUM@f+XU9 zz<2(4_}hd3iNF1Snmlg>knjIQzyF_;=MN&mApYNw=l}l3f0O4AZkqsXljr}5iI)l8 zzFga1v^;3}uZwixz@bC`NuK}v8~%+h{{N>YZy(@)rY7GHbT9tJ3O4X?LUc)wvm;05 zP~ynF%ymTm8yA}+x>w;zhd%FkONz}93Dkf5$H}u9PVD4;(^Fq4=b3@wO4NlvjXslp zIA5f`e(m|3H!A|T(aF9)$=Te${__2NpE~V({oC4W*}~>edgaNYpT7m>ua7TvM-}D% zdeq8lNzS_8?9qkn)sTX(ruVyVPW%!!-<*KH)&DhOmVEisr~O(r-86*_O8x|}ft`+9f1$vJv z#r3r!m2#3wy#E+RXt*A7C`xrg=S5VfbERd+QKbR3V*00qa<7Yb=G^vtn!5M-^W!_X z7k54w#4UdJjxByjAmWk?Gggt{KgPbLDA8#qDz=&#cHnzG|l0 zmy)=wH=1o%epUU;a3pD?2gg(KHbw+hu1CCh|&c|N%&qti9N^W6} z+7Ora$V{_-%d)&{3Glk zBS6;LlvnTcKuM-tWr8%xw%^q6 zr@-pat0$gKuk6iip%c?ysF**>G@04!X?sz6AU8ZKfp6jxDKzG>X zIegsj)w>w)*;oGWl-Hb$>k4b2jd{x0r?kA>QLBt6LKXKQpFIa+|Cos7{ZSs>F4vUv zt-vNk&bCgfPMFa7&oGVbMlj9NPug2zDuChKwfaxnfq= zxj~-iCgUP6DD3!QgRJ@_l{w)Pzk6`#OH1gh+0rN6ok#J$N=7^BgYvs{Yk#~jub_XL zM{dwh7X?ESH{)b{-u-vT(#AX-+k^<=oVqs`(0k=1s?n*HBVZjx9qQj%!H4( zY5mqmN3VRm+pM!bTxtKq=(qnk(#O63->pplcI7}G{4bBZ?Pufv-XrgyZXo}ac>Cd8kKPlg|Wn>!}NCY<+8#GO6^H%FgI#h*Uo zd>(fJ_?>v1i9ZJpbKtNg0=(>>2lv9AkNX*JYYR7bhnxQMn^WTAfBxrtZLe_uI)@N2 zo(JHe|MOA)>#*&ADNl+RnJbZXwy=62FRyh%`L|`(!6faGvDkkL7ydJT`QQ4?G`N-Z z{KzjB`y*q0^mWvARh#`5pB%p`UNioKBEL&YL8>xZ>4FZQO=Y6Q75aETp=*N~{wHjr zs?t55??w5URe0!nyGtS|I`K|7_Ua$??C@%)TnuX=srz_BOyet`sq=MKr&krmx?E-K zT)f>=QvCAUI}``ST&!$7H>Gz%cPMVj7-vd1E|eet57Ni%0xt^)=iaT_)R=DNb%|oX!tX_D#~iTb!p({mU-El z$n9x}QeHcK$WIlko~}csq=#T2wAL1K_8pw@rzzYaGpkO1)_vfH4c&dMt7u?Tha;}6 ziiIj$F}k*VcsP6zQc%o9G?T1!4p76dP%^u%?mQ&rj+*T6!#*era1Y=a8@egp@!+-Cg4`_WH&5 z3-nG^=%KFTe&4ArJ^lSGmYz0n6Lz+^NOB>gvHaJcrb${#R4<~XS_L9P1qq4O(eS%g&?JBsT%p08Phd_d@R>xA9T@lq3$KxZ&%rs?=T_+ z$ZG(md#iIo*NQBpx@XGeqx7Ag9EIh<237S2iHPPpen2gLu=K9_L1ovKKoUJmFn?lL z&1`R2H9z8ZMe~AIk7x9I3*#SZ%FMiOw!^1kJ~z8mE_>+RjrPVIg#yr(0+Ivq(A|1K zaDDf1VlHRCnL|hyxjs^jtzJgkj(CmyHcw=QadWSqGl!2#8b1QLC33NFer{pCYv!Ts zqv4$IX(0?t-J|;=e@iyq)o&^J z9u^sjlYipa+VyQq*gQSca#pxBsP?<&TYi6BH19<7BMmmhk+Rk@>87ryS&2wowN2*H zSb~%lV?oB}j=P$jppW2-LHVv63E1jj{IsLb0nXi^79dKN5pH(r<%&kn<*cr5%`Ja# zFE~+>8D(>mi0sg2FY_eteHiIhEE~L42VXg`iXaZN!UZCX5#V@7i#CGiI`39A(q$QQ z&-Xrn{+4s{$cNu_hWg{T2EKarC)=fnL@(Uu0k$+1^jNh=-%bHM*2^dXzjZ8gmMQ*7 zRp`33#G-*#W`iPu3NyZEDnvQ${luQKY%Rvw|~8I@tT$(Gh4_E+`Jq2)>bs#zJ=Y3 zI5t0piG}0qKyMgI0wm4Nek?~!AtF={0io{OeE<<|Lzk2Mv?U_&5JLBEm5^0t-fpp} zx@zHgoFzl*whaWGO`A2e!8ckb*Cq_mM$oI5!>{v14-?06bGyW#V~A%Et=#@NU!r6M zF7Bynuz}|6)F+_27UmGb*IQy$gFY3CY4YM+yeIb7orB-Wkyk249??Np zFPj897z1jj}lt%Ldh*V{{;nO3m(DR6vnoV_VTbkn^K+b8=hKPjlPf`R&0sDyuo>D3Z_? zmG`_D1s9M1=;@|IA3Nw;4JocT4#7{Ey|BWnKakJiA{TE|E|bv5pUstZf@8v#agc&x z(dN1R1>U|Hfj*A`+sltOj~^!3@*hvo3c5g6I{E z8w-C)6HfVomg%}{rasm;Y1g^UdR>xiDvkHpC@P8iQe_cwKlA?Hb=bKx5p&|O*uaN* z*Q1B-amiE3gJOBlau?xqWcd~k;%{E0D+e+b;e)bVM?h6B97Pff)BYt76NVtqPa0cv zM|xb|A@!4(L$`QQa1{Bx>QDIA_g#LKIEm=W=nlrg$b)-xNa|EP8~@yDe`Gh>#kWPW zF14omWC?I9_b&U>w`1xSiyz|u=5XR2a*HtSw9XY>m4IeGzENqnwz-KlhK3QrJu&{` z_5Mc=Kkprj!uft*<)%ndsZ=AyJAvb}6n5|TmEZMmh!ZiEWtw-f^jx=fCex{9Q7Ic@ z9ezDk8Q7tM8mX-j4p+Vr&d=^XR*X@JQ^`^8Wm~zgiF)~iLMjE*y7l=_A?QEI+Q?(MZ5kA8S|R#aSW6y1oVR6E zDN0@KgybJlggS}c72AjsrqPfpU`Tl$9N zT~B&8zUscer}MeC24R*G?s)>6fi2Y~#OgC2grLX*8*Oc>;H&9E+nu|b$qL&VBK&xl zfA}P8k~zQ(m?(9`AgXXyf0A;6sTzDe^; z<0p6oD!Fs*lGUG}eYO`_D@0Wom9f1t%hq><)NdmTyv zMNM4Vhv}oMN|#CI+MF;_uDNY>(}sO&1f%^xlWJJ4{WZ({X+8_v zyV2O9N4Y$NvOA1v>uzPO_j$k>3;?ZiD~smX*{q3DJ0Q;F7^5BTkNbEGCVvJ%>*#4l zif(&?F)h)wR^Fn|ELC$7t8Q*Xe?TQIjhi94{+WFuUY2)MmkgtV>EPpyY~ zIHCKNxYVUJAy2q(2l9Zwq4R(bt_KOU#WWKlQPdtL9{3n~hmTniE5>_yyrOQpKKalSz@ zp&|)>HcP9Y!)m#ExvP7xRntAzcLFoculn7Pl-Hu^J(<|OvPgd8^*rT)r9P(bs^dAo zwTJDT!c)D|VCCO%X3h>cVknJD2;%9Wsc9}{yJ?oxDOeTg7iOrVB%)!l$dc4adLvPC zNV0AWL5h)OxmxBgf0}C0z^?%gT0sG@=XQ*X)qk40A=HZPAwp^qE(VaK9Wb)Mi`K<@?=Rt)YE*ES~Ufav)d z9rcmxvcU^Dh;frD=FI&7*jJP|G5qFT-SUEuB@cGW@xn>wEI<1FPR3_HE3~Ru%yPrr z=#1-+Uvqxdi8zMVxRYgl!VbMqf<9rbYJ*;CzG7A@T=rFS#DoNZuIni4x_NG?v;W%H zi&eNo^aO#OZAt76uIp>;$GZxOwfskWrr;uhS39vFDI;rEU!N&lb6m*!TJ~sZMwF8PpJtt2Pd8`?3<|pWLdm zX>Bo{+*Zm1=@`=F7@h)!HC@>|-)N$kwH5%2MLg6o`8Fc1Q?fl5;S#Knr^odHQ}rlr6lL0T-h^`7aakIiD* zD>&skAH7mP#RjN01ft#IF3;-sKY~;2T#GzuVs+02(VHvP8wv{z@x-?J@6P79yU6f4 z<55>K8pcE2Jbpz)#_B-5YU}1dcN$$&ST(L#tn-`PxAo)tpcNC3=sO92E7@2{9i4YW zG6w!AR`%MIJKnsUJg?wk`0FW=QsCgOlKD((fMBK{mz#A$TT?u$tS?l)Z>aZED=dP^zi!3;+53$*iY9r6ydX5v(HUsyXhl8cdcsPJq+C|Cq8HWQBTxG ziK+kC3VPIfvETA;+Z3e2GDItCqvt5|%b$PQ7=0)HjkMHEqWu~eGYeHRIr9&?=$j1w zA-hA8J??Yj;+rPSRqM4#*llMF_l65<#r8e0at!7d&yE**IJ z9REgd9MDJOD{|Y^Irlnuhmbk?^PBtGWSsA{Lr3}dRZ%%jIDgBDa+lIKu-3Q`H#%9V z{YIlgPZX$N(ELUi}10gPlesx-LROmH#l{LDN8Dh{;AE_+@lFy zCg?ZcM#hNxv$?L)W>?nCf#sD}`L$OzdL!r~vDfb&Q2*p>Iqd7FRm94?3`q zrV#LZGuGhD(P#t_#KnYAi(FtTp=D>HW$)qv|85EyD`K#|v|C#~>#nz3AX8uH*#mQh zez~9`2U8gW8~7V2cKzdxYGFE49en<9A*&pJ>ve#0vAFE6DyYu3_X4$xYl&*CZjQcx z_K`#uqjPK1dE329pqp6aU`_+x5KUle)d5rBs*2-eAH9PoW6lLlob$n0O0vOLfB!(X z&nAF_G)v|n^&Ei(6`9ZpBpj-!x=sA9E1#sCS1Vj)BG)$XY*_|ty7|CgvKRnfh;K}fsxRod3R!v8s`#z7 zv4+Mkzo2C&=CE3A4Bp1}ON-ViinAC&C_RIBN<$ zbbsIec3{7T6R%y^B%QrKK=84#0@oa>qoS@Nk6fE>E?D4*0@0?%{oviMRZd zlg|8wHiHs#6L7|!qKadM7cOpJcs>X{;lMefG8?=eU`6N^>17W9 z90cGp$U|U1Y!PpE5c?c(NVFi%#Y7VDl3;PRaV|_t4mrA7xHksBm-b{km`*!y(`;4i`@20J-3IQKm{*C$84E zZzP%P0O%+^0>Yw>d{Z45jcqGCaGPbh7N0wx001LN+M+Cy20B>*W6x;>4=>On0L<0y zq3li}^{xr*a7_-n_MWsz)L*hL$@C{xPm)x!DC`V*`H70p!@nMhSFpLYL)^FQAD87l z)u)Oa!2I$DW^o0JZxECg`3D+tfdY!G?jgqZkdtLVq4^q1@HI9Ise4#n(@_dqr}%B< zwx8O5E&fV{!N$$epyoN=z3Qvy%Da{eQL=OzdhP_#%0wd)W~`%kmS`xCZ@n#Tp%_rz zOWNP0x2qs3_*;Ln`lIUMT5#oGC>=?1E0EYjz7JGG~v(N?3 z2dwMZ`#(WYB%K`bdRw@#!F%iRuTJ@W`H5f~4C^d?QKBpCo`jZ^m`ENYVwvs;2+sZ~ zf8>r4tOP+U!r(R<2X#|t9-C`)8n81T`G)Ov*o{MKM-Oy3e!dIUzmw6#m=kv^RSC^c zQ#r6(JW3X;8R%7uANhs*xt17C>k>`u8Y(`R-vHXcJSX$y{;q{^V?ddYD z+-Lbz5eN^wq4$Hcb23Nn9NE3=Hi?{`+R1NZCOsu^g@Re5i}}N|)3cE#BQ@~l+G$!( zDt6*ZCWE)Mm7Nqrex%En+#;kZdq6I}EYC-%%So@-s2Sf4?EB;>0BlVjshE1qXmQ$^;qu#&Do_QIm2_EwLMN;1jdAx%V6V&r zmZ!F`yY`GTn-qK3W+Q99TM07NGeyN@_d&}ID^6xav)@G_d=7jCBCQYxlQ22UTV?tX zmVQK6B|QoC^@AD`4R(mbaDd{ZH`>$g4zeblgV%RU!IG1(YA}4^~n?KGTX9!TME6+1AfvR!&gy`P+X7*P^?+l2|y=AT17%_?TbDF!vRCN?v zx-SojOSzc_42$v!oK54cue0Qt>XcJc?oW`3937{tptMn5*u1WSr z9XwQIPdJ=GSg)qMR}E^g$`8B4j1%`0)77=!TD$&|n(_2FI8HS=7h-W3W0430b8;gi z;d=wOXr7U(bo97tLBU^OsT}*%sfyK%0Z`HRI+|>NOY-WjLaL`;A|3ZC7?ROf&t_0M zjMs^hRbnw(cO-LBB(P0Gr{obO>*ZC!xes}-R3a|xmeXGm(RwbAJd9A{(MkbG#^bUg zT(Gs8f*Mk#Lz$g^Z7uZj3A;8^U+y~h48`~y{^{~}T`dyErN$w@acL>F`(WMAC{J;P zLEkTpeyM3H1E>>qu(R@(SkXXmMhWU(-y?U(Ss2VF)OR8DOQm^~`nwf*F;DoPz|iG- z2Yeamgr>_hS6-lYN>Cq(6^fbcx}%p5&)WserRrwk#|_kU-buc`zBH>JcP2G8QhJ zF@O_o6xY^&f9CA;Hb;MO^r@}b-YBH-orlhOuXTkeBhIy7L}7x!UL1#Ww_yI@fgI&r zO18kr0D@!~6_YcVQ><_ff5weB`-NWeYtXT=v@~*8?)58I2()lXezfu|RwRsD&!$=m z)(54H6qnE0Di2GNmEv>{{Bi2ealKn_jTtO)=Z$xoEJ4@Wq`N(#jiQjByaF%2GFNuR zC~KxNPQpYMa%fDnM_u_TM+hn-Ac^~$7n9oDK1n~f!~D+()MYWNBmmY5O)fP)?>Lxq zeVFPm!tg}8#j|vCZPAdlI{v8|aabiQa{mbIR_9vsT3JtUvRQL~Lf3%i3@t-UxIk-( z_Rl}XK~4vE&Y!sGh!{NPlEUE-^-;zVBTaf)Sx2>7DU^)C&w)OD{D58%Ie?t5Y*HP! zWhw-$7txsCorqrH(1M)9cMsPpyXk=5ZifYw@0uw4=gs{&_B~jIOkP*Ay38RnlcE?| z_10xNlnX!Bw*iPSQVPQ^VYh_0ShE6Z=8S-!NcZ+uiCdZ+l_iSNp=1c!Nuf_#Pm_)p z;j)F@-OXfyps}BF(ej$v-aGtMrR~{>2fK!?`r}dCkqdn(7 zQq7U1hQWVJVf-Kn2qU~H7k1u5Fj&68R7c_%gWtFiS$C%qX3?%AKgv$+&6*VnGR~9w z#kisSK<^?R4{BNy@KITLT_7%2cc6uD7Jc3t-AH&xmtEC*>IAU^dx<&H@0s8{Z;3=1 zvqN2ZyRnuaOj70shq!@q0IXnkOSHxHFNA1B6zDML%Ooi{D}*yTL00$1Gg-20b9n9Lq(%#p%a`q`37Po*D2lo)wN59ntv#+LylBfSUE0)fmw$U(h8 zwBPvmiy(S#0>-*WJnrk(S~_({Sf( za^x#Kz?S%^?;qW;bG{5v{X<-t3{_iqz9yzOT%!c(G&ATZRpgU}BB58uH;#wihd+00 z8~iDg!k?eLKMC+1f;O-6zr#>q+^2E*iPn=O*d&jQZ+5-;;HK}h#uVUcryfI~{n1+Ar)F{s%0oHPhQxVHn4yKU2Uf@%TsBRS?KL*E~XtT5lU1*~;$$MSVv)6l0 z8oQ>qfnNs@H;@Ta$BR5YAK_mrerv9*1PQ)qoEoR})2oqhzy18%S2O~cF*fs=ND-&8 z0^UBKxrCe%g}c*ipQ!)ltRXIFpx3Vq`V44NyK zc!Kh6$3ned|Hcyj1|l+T%(9$>}nO=4Px z`umz)0h~s5bW?8$ za8SEyiJfpa*R5e?WRV3P=N1QmH}JeeVo^c9wkUtwU`{neSV?Z9E&+?4O$dn0x8Dy$ zqSGXcGQ;^REcLfdbO}J>{X>2&GJUn-XDiu61laH;wGFJQgFT!l8N}V7;=3w%3&3{1 zWzCZH1+3L2t~klLEQyR45Sksp#^YIbDI(7*$ieEGXr>b1Si8DSNR&ZT;sqA4%x(L+ zbkoIGC&kpf!tPCkx*Xq_ss4&~va=VuoVd7gtJp_jSE<$U`i!(Kj02uD*V@WOPV#!$ zGq_Ru83&RXfZ5rzfY~0}dF{)XZcX_12FcCYDk;iYIe(JjVF+sW8LQhTJ1OkG4dT03 z;Qjm*#(Ik=dc|viLWWND0{b{{tGg_Ix84RmBJDG_Ns?B0Az(?;7k)edQ1!nJc@N&& z;g*w8ui*q*x~oasTNc=N5Z?fAMkJ5VPHka|1LM6pHhFdg#ORgpEo#O-S`}~cKq`v5 zoh|!2Ny`G%6`T#gCjRSG{y*~GJRZva@B2S1X)qW|C6TeGg^3}NWsrT#9$BVTmaM0x zh>00YiYz6`9%E}z8AMD*Sz2WwH|-_qrbUeLsHpU-$HQ zWVU0DV~*o9pU-=JzK|~yXVskK_E3N}GH`jp((S(r2!=HOk=O>%{Lrw<-Hc;APPd>7 zh&+#HFpK+$X-Wt`;J%M=KZ<@5nP-=#T2ExD5>;5F* z?PLITBtJBR3lM>LP$>NNOU5oa@Jj(tr5&k(3F`& z_a-wE2qYqI9g#BIT@e`dPz3xSz;hG4PLj>niOuOOJ2xV6{w+{rjKc+%>K85MUsW5+eTjhnl;Bdemdbxc=d_<|$auWX@HEvPmSyZj0n@9?dHS zo$C-kB18b5uIZq4w*KiY-)~>`tTJ4GE{Q}>fJBB@VG+=k%j|GpYhe;U4B6-g)>e%z zTvP?o62dnjebz!fb$p_3t#$}4@4F!U+)44!hy!BL{T@hW%5T zvK!Y}Ga(RX8*Z)+8`(T=fqC6|_ZmTRy{6}W4e;=y;i)@-oX7^Qj!XSCGrlAy)NEoTrel> z>`V6PO}3Ph{m$lcA!-|7wx7LzuM7zXOv@)lD$62%)U}kXA)A8dXrr~-fpU269;ix>Jt)?8ImDFjV=DY zOC7>(ZZ6f*(S6kQkvXUjxgJ-&-h~KDL=rmr#as%jD(x|eB72S=5MbifjDE;zw;9O< z6nRgYgbnqta{D8OX0&!sQ~*wrq4g4i_$q+6+*09Bl=-Qx;nBEsO;4TGH{7LGmq9Gy zv+4o4zDt-E+yp^FR%F %X29q=R%`q0k$yw#FQxO#NA*SQMn~Z|t;JB*=Y}HGEDj zrV!4v;8^#0wKcgUVj)h~W#xM_31xz^CMx~-t?1dLdb zTvY*DUDAd(u1I*2EMJCV?q;gEivYLJ4C+ljMS>@aJJqyLtk}PYTWi~!sOjcJVzRdu z-)53Mk8Wg1_tJt-L8}HBC5=10aQKJ4a2~iCX~Wx-)W#s}vt8{!eJ>}?NT@G5CIBubD}6}Up2{q3d$ce*!IC0ar2) zKRYTyo{y*rmW=B(lJ|Eb;g|4Ww4ARul9NK!g0zHh@w@CT6ma+=`})33fu21eKPvNU z(#v_Ph_&XDRzpaaYVC>YS!4BCd0m_1pK3<-V* zg!--n{izVeEp=mJ_)^u>nOZ6*7CS;%arv>s7!5y6kZB8nRy*xj1-vE%>f)R*58Zol zTFuv6Pds7%NxPq=SX+DTa(=>$F5B6jD(BPwf=-Z*^$_rNyO_(0U8OQ>L9JStuZV|} zM0LFMb~XqU6}HT5_v9R8WZt;m?8N3{#>}yq7#Ho}%Cy<*-5mGm8SfYXrj87Jpu>M= zRqiId#KEwEF2 z`$7dN-t~AsS&<}<2~u^^i&KVrGcW4e8GUI&Tvb-A-S~-piGsbiA6B~;FK8X!(J*EJ z^zb5PM0XqWNZ9Z)>+j*7JIvOnus*vNl2H;zQcc1M8F3@9uTT_3%3uG*=P+K`~KqG#lP{y5zmQ+*jw+vFDUm z@5ed9iYXI+H>1nDevN( zgON0ye!uL*i}99fLEY`E_O}H>lA)eHdlLjf1YyC#xd`IRS9V*{7jI{d=2@EEcA41_ zl#51d0ez%?{uAdsS|7vuZtOA^mHoDB_gI5Ki^Z6(vvZF7n3{8L5fQDLGdj4O-}4w7 z2`#SviF8dmovePf%Uo2J8NdEr-5r=Ok}mDlZ875|6`m8ixOVY^k@bL@nCSS`I`?UV z)^~~PiUKNc?KX8A*IL$d$>AqrXm@uGncY%Psc?1TKDx||YsFMU)$>H1w&=Hw`56lb zszok6*#?hQl)9m1C#|O|Ltm$|L(CkdPpgsE>iezgDjo~h^~WYMAuGnwrax>nUC&Hj zEZ#T7aH^Gr()GCM=~N(P>Rs`*#@0M4tG;&+nKgt&Ojd;CMF%IK z$-W#Nur_#r@(~#Zu%-<~V=DwRPo)$R6bSORcW%}j&d7$&A9emfCr_8U?*snb9OOdY zA(=v^l-=DAJMA8jl*EHhG6)n7h}3Jwe?%NDsXFSiQbN#nqAf}|9rp{C;bS(;_>-HB zjrOG;@H4@E*d~1A=rB;zIJealF&!~zY!@4%D)vbH`4!YdpTg_foYmZ7l)foaT^OQJ!b|X*}DV%u05mLX3vlFxD0NCR@M~& z_$6jCOV*y#H=9lhbKDk4tql zwkg8^Op#MDYOTRF{eNM_hgKDW#KV%2tDinzRvkS-EuoM%+3xW~`CzHbWcJIF%^Z9DPM{ z_ZT~c*UH{Hcg=DdNvkbvf}jD#^@n5IZ1o~IHJ5dt$i<{pbm`#g22-=z*D@*PbWD}% zIi%_(q&1Q|LHg9wDL0ZWoovf?IGZg)!G>M$B6VYtHbb}1a!p}6;R7@fEu*U*xdMOZx_TJfaKwzGUq^^G5Ot>4zb zBWPhR%SWd8dcTOaIlFqZR?qiu_}m)Rpk}NWWTZ>0fN%e z?C~}=?yNja#@e%?4|`Eb%&-HN21`z^crO3d2Y^HIe7zqJDKV@;7Sje2ltFOCo}zYTGRXnq<;b^7R-%ygJpKg5yQC&n3b(GGZO zOu9WdE}j7j8Zz$*gLuM95uH+>dnx84%I3_zE*L(|s|G0K`ig@Jd68Y!jiN(VDkB?R zd4j1?Gj&(cpXKCTV=SQsqp-o6-kVXmr;!)>8a<8X0?s67OBjA8qF(sVA42!sCnY4p z$}0V%&_gJX z807UYWn1e1$%FJgxL?xIBDb;_ZvRic9>ZTBjxq3O`nURYNWK+|>=2&=%fLoRcvSf$uPNqu!_dO< zN2xnjJ}R*T!=nZn{z`0*A6wOfLnmTqG&T1sMx4OezHp>N-d%0w09X|DQP*xay~&Q{ z%or588M;A=z z*5td#jpQeiQh>6rpM=rDv(X^i#$)nLWFOsTn@aO=6v1?&{JMiy@-Bm4v+h*Tt|u2U z@YyiC8BtwqZ$eJhn~Qy;pEEx=mRoD>&E9rcG0Oqwhc0TmSyA5l@v(o4K;-VIPj}tS z{O(z7u-*&vWu2MV>p8Bc+vYgePhXapQY~z9PpRlh%!oy{A>5)qK7JySfUF56PX*C`6x()LNhpakxiJG= z)37)_{zt<;p`{_Ed&(T71Lo=LLsCM3OZ)YizvPpgMgPLo5jHuJfAM}~77d&ijW(bnb z5u*Z8c3WV?6bbwG>h^ltY!Oylm#=2+Q58#h1of}e+Lz^@3084RsbF4 zg<^aUyI_gm^)we^`;5^0axvXb1*r8lCOng|xRzIGLm7nieP?t6BwMOZHlNH40TCU5 z@H2@T8a#n5I&-b^grt4mWIAHJ<>CPmK_htBysCt~-&v&{GQY+T#5KL^r!JnXO=Y)r zGOM$WU6_iIO+xb{j`=Bw%kq{O3E}OlDY)!tn+D7MxBCUBN*-OVNMab*im|95Gy-m1 z0Pd=_G6)RlT!4gzKR*O%cVg)5;NrwWY(t0p1NBb`jjMzbc(H_&0Zge&6er7LKrpTJ+E>e!F;z-T%$0~$1~gY&1iloP zy?m;c;feDf38g1fmu6?5AC$m+JZ&6X5!C8Z6Aj;wJ&t_S0ecRFp8k0vPp$aQ-{L>9 zJ?CmTp%3dDM3C|S7#$ZeMC|svfkP}M^w}75`dFy6%T#to$@BE>lpd3j_kIH^7^Uw^ zvj|X-JQ_i>Xu+Z`$y!<-Q+9}sQGP4v5QFK*!93C5?QGhx+qqC1&Y8Q1aBw}k`i$t& zTY52`;b&JCZu&R2cN#Y~*3)iXC8}#PlFsav3}lZbvE5KEoa%EtX_?Jn(IY-E33T}@ z@OoG=J13|nL*vk=WW><}Cq(4C^B zc7a+R!*G zb?@$HP^ha6VBD*ClB&vb?eQ=PSxGoDir^h+)i9c3PZQbWCl22#NX1!n!nAM5u3l-j zdDdxO%EU=p0UE%kK#{3)8nkS2B+T*y0Wg$aZX751w#j`eH`qIxB5>dTtLZV-2!f zVL1Qg%cSZ2BMcyI?+Q>Gv(!3JPe*~8SJs*Ax3xozz<_J%^agtB$jAagx+3y=Dkif_ zjP*e4&c>{iriX{|VJ**L8{QPjo-tm6EAfWH3clgtPY{4#M!!0CD$`lCZ`TsOn7Ptc z+_baZ@NPp#6M-J?5Icx`mYz9KuDuRhcbVcR** zVH{KkS}wwXK4^h=T*wgJL%5+nVI;c#;e@m9bFH>nGNoNYHU)b&-Eu3hXt~I~^1B;@ zyzTqrOA>EFJ>#cd-?(0xbLA3-78f+sm(((*?j!Mq*OY+XK4QhZSh4(83nq3tJ}bl{ zf^`nhF!^kH7XO@WAJ&@&>W?8F$0qr z{dtndm}k6^ImQ+U+?$N&QR!6M0xK@nzyAfrQ?l)8W2C9;t@2PzmWWDk^4+`J1!pC! zl{v56iu<|sB|p?H4l-+E<&8CYTmg-dwtO@v^Wee#i#PhNc`+kl9+AzJ)@AXzAvUrL z|9jXr?gBBx7DMSbWhr=Ta-tgxL8Km3X5!KrW3n4!fqUwlYJ`D#Q#f zz?y@i$X=gTxlKd)8w$^R_SQ+-Xd!%EFWZhk#XY_KblTTm4#8%%iKQsQfy&r8b)oIp zcC(&QloJ9MaZzR@yV(M{LE(cSOYYSCEQ&Z*61TXNJ>C{;yvAlhna8_)ru23p(9$zQ zOD2|yxRw}FV@nHnBPY@{^e(@(iB`9@^4{3Yvo&*095o2{xcbSFVLO6^?Y=7Ii^!h) z%c$`h>AL+**yuPN=qJ zX7w__*_g*y58LfsLtvdz!`{SswRz<}*WPtXq@9fqT^Y_ZQEjzI%Y0I4Ersj;UMos@ zikw&Uy*jhj29<%dCW4rDwDu0rSI-W}4-w)X<@Ae4p(+b4#rW|awzOT{5}38Rr`M%B zVJM^KerZ8Hd;bMgv$erDDHA`$StGD0`xmbaR?K`5^DfghwlVN82H;Wk0Ez0dHfP~z zkukYg%Vzr?;0Am$k_Rln&4o-#mPq_OU=PZf54h}fml3#udv!YVl|B6R^{iN3*ny9a zUF7%QV-b1}IQ$;szha!>o4ar{bV_Pajnkw!x0uzMi~!9lubxP%zuhA~;ruh0wf_Py z@p5kXE?Dh}heCQostX0_=euRUVtYK`hqNc#D`kbh7^1`k!n)X0s@#2Fk$qZFafgMz z=?xv_eDX0K7y9~4qDhFKChWNP#l@^F9v;cK2soicH(3OE5jjEH&FY=Bujm9R(EL=T z8XQgdXG#%FGS2h;HuNrwEI~3&sLg;afT=)sHu+r_<5|GMa1{`@t4>hg6vI&kaQF2j zSgI~o-HkoRU@RP0&u`o2v}~VahpMOfQ#l(<1&`0%A+kcP4#c8}OMb^BVLl~*u$Yb$ zo5ffkFDw`ygFK)`?)xJ%TS0ghKnSbFxQTV1-aRq!;z8_e(GW;0czaCM#r&x53lCm0 z5!(}9%lUCo*Po-j-b$KRt^}oO^NN5UO9Cn939D8aN|ld-$PG@T(3$L!ED#uHzJXh-Rq=^ zx?e)-Pdie5@t|1@8IFT88&AF3t{@;8z!@K%Sr30L`(E1^qnK|k`zbVe*Lq+@E3JZm z#4lY^@k-kK?W!v!yj2^KfpH6cGu73A-wibku{n-*?ygf$Ksj`jD3#Snu9X~l@mxz+ zJTIt~e?54?KN_B~L`xR4$7{nxML36%AhN}UPNzbY`g#UTZ-Kma$5V?= zycmVTH#d&7EK1i1fKGxs-$nQ*BuGvJljuwS1L7Gdt~h|ZNW#9^acHuX_#ta+d3c|% z2n_28(;49$&DwWO=fq^Mu@Uu!M&!=IerQ2XTkjglw) zQjfRfT4y|%hnqq!(^@^uK}WQbbR%B)(3fCQzIE4ecmC@tJqn=O@GOjq2hG91p(yKF8eTkWKHSrUkZ=<#;Mt)x+ zb&gTtRMaqkn?y{t)7g~~;jOtoGJRa>9yZa2*-8R9cTKyRM^R;;&C?%S_xTMvhpg7D zof+|c#Gtr(H$c~0S6QnZ13NbFKs2<@F~`?MR(Onh8a!OJjS*747>{Jvh+Yn zdlN8$&i%I1`W?GJ8pJj>q8m$4n30fxL2Vy=GNMdQi;=F;LD=hGYCJlvK!b~@cJ0zg zNW}#e_kp4JWlM=neOuDJmaX6xSp9RCF3DlT4qo$WIaLW&38kPMVa?g7RDDIi6CWz{)+f)FUg}l2=>w{cz_xE&I2Qt7m@L7gm?)W9IQPtvPtZ z;)Ib~o`ZVpaH4)yy>YVLAw-OSIdoaqVdH)69I1M)%nyzm7Xvj=-Yd|8Ui>6$h{e`v z7^1CGPNWa&0kT20XbKz=11f*BB7A%PdcO%6PKJ#NO&I*Y&LOO>Xb=PL` zbG{)zM9(bYY4Vp$$W2^4{f`dZDx-p1SQHq@fJkj2-I{F36ID(XoUAj@71%u`_KK> z@-vfE_J_k;RTzwTHf|8;JlPC;o1C5cY&!Ab$SdGLiCr!}0$DMsY&&lcZ_juNhfGcn zaE%TqtieFGYzzr+q>I&pE5Ia>%!gqZT@NNpkvA!nApl3D71Kmc63YVyd@qLmX?w(mWgTHq1GneO|oDZ(`)_=NKFZ~eLt~C41 ziK^JZUYiwXP`(jlM}%bHZw@C(T(6DrtdObgyF$8MU29OV+rOLC8RKogeIvQ zVKa4qmO^99)f>MV^86dn3L5nvjFGk-u&HH=5kPs5hn;!EXMEoB4}Xqxoz5|4byyzoi#~M~aVcy+8L_jaHGUD2qnu8aMck1r+^m!3CEsRa5TVKpMRql9< z;y4tX{b6s;>kAgQK9mNjM}OOOT28@5s^yG^lld6zW;E(<+^tm~im}GAQb&2&qNg%H zQ9^~@>D@J_dxJ6&4*OCjAKp=Nm;UMDj*LCyBO;FJPNRR`BqW?;e`)_edRe#4Rz1hL}cgM3i zvj5uk{{~L!*nb@8|6QCCT1#8~FHF+^F-_^$hx{F;G_{>2pKQMSng;ypn}5!#f6cT1 zD}R^YSlMH4Pn#OqwcLJhWmsPkukzr430|(u`Npk1xxF?4_yvE*x`hl46`C*c`W_c` zhq#sg8SW^CbentST0qE11dGu+qqZg%ETyR&krI`Ec&3a2tu2kg!Xof_>sfI@x?X#8 z5`;O?d?Ue$f@N}_rFKs6nu%g|X2@cM=g@olZgib?n3T^khndohkCP+W+(JEuaB&2J~K9GU&}7A6s%e$2L~m9XM-#FpM4)q~RI zK22z%Oy%lf6$;nHmDWZR<;=E6_siWJ)DnxOe(m703DWT+dp&S0=LMAQtwP^Ypbh9n z>^fl!yC#(c3KKCdY=~hu+iamU856u-0nh@Xs|@OfOfri*Xs|kn`?j&p#I>(_TLL_9 z_Y9Qi^5|5X7j*;31VR`bn*-5e{C}kOFX3%lbv_8cEfRJgIemCpy8^eq(E+M$b&ZB6 z-LOIEeVfIjHdjtZ@=1(Z7DRH{KhcBe!H)2(0@4HMa>~ZeI25iAZNTVUn09j$2TD5|rYLoV*zOP_MOh zt~EI?CIkW74$D5^GAx)2sWvY>;2|~>vP@uh{WdssVluL z5#|%apnwtjQtV{hkeG#GuC6f~Ska1qFhdUWb@`MXFxuq!T9wZ2=M+!;G|`y23I<1L zqEf#Z?us{uTkF1skacaZDH3ETTGy(c8{6aSQ+cx5pH^-kc3u@|3xzNs(&$2E%|VRr zcSTgLx8vHyfJ#}(HzvpHK_NR$;-?`6z z(wS|fQaRwT0J%hiWniWBhn>^z7zyEZ(+TT%N)0yk#o&TzOvu<DNIc2QC(>37&cs~xr4j#@^^s5-z?eu_BOxmakZ*o@)vI8z?z?wy*#R@K)7xb8Dtwgx8@JwY8SUR<8-d za2z>J_sqO9_Mka>^vou2-*Y6nvFzmHfQcpI@e(HKmn-gvQbBri>7&B9fk#Q(Q5wAF z$KQX@op%>U&}4t}Y3byzqQ_mi5i6ex{>3P4*fcCPWBM>pBk6U_)j2Du%@GKC_pmmi z{l9y+>FK$}trZZ)!YuFY-MurSFLX54f;E830}?oRqdh$;$D;83zed}a(zCKRq1Nbt zg$?p671Y-)c*C#Q-tIBy9iEN?P3|r7$-Q1cgX#ToP6c6FwN9p-)dX?kaEu>PIMz?) zbywFKAvT3h>B^GMAM|>@Z0y-=vwI$Nh z8T{l3$>d#c^}s2U`R6LdJ!MMFxpA9GWkjZgHic48om0YEh~p>V@yRghitH`;t8I?U zsnUZ6>{8e4^8v5C z-9Xr4!h@LJ%jE07@_P3S)V_Q3yD{r(o7Yz<14Bxo(--^p;>CX8o7n|nbp@iB z9Buz3*3wIj^gVCySKhRA=U03XNO=8$#*cuHXoo1Q;fnP7RWYlKh4Q zH1DBo_?J8ze}i*Ifb;Y;wsilBsV>rY=(|mEK^GHK9gRj%H|t1PLH79eHs_#7Zx+bu zvAx+Ip!hv7@DJDM;l@ph!DrP`!vw+#+oiB6pl0F@!l!D@JUqBmPM(++msAOS^%`E+ zV|V#pgsYKul_j6}a745M#CZ;AP{oIKD$@Lm_8hn;f3b2PQ{=2d&#g?(qajIecYt2? z)3Eni?Nj$?)SFlIhN=bP$(N#STSl%N9r501iq7sfl6}$PNp~q|EE48$D35C{ACCZr z!LBu<_5x)FGbV5}hcM+6E_E+s zB(ihGt{-J((XvpU2;8w#RV6f1Hr147eoXxU%%@-h96`lyXo~OYi7_8M=A&_6TqhT< zvY%2`-J>QPU7HS1$4!nbBUu$c6Pjq>OzK{B%Y$@sX1B_R-J!(yeMVfevvyL=>K|M5 z2b2$V?kyu%1Q~^Vw-Z>RWxuidO8k7qu-Eft)TS*Uj<98KM3#S}+j%eLaU1TCs|CNu zT=I;8hT6(mbKUfn)--4%CJ-_#qa zhl4EyDh!G@RW7`r*oZrF;^)eLv04)(>QefCR1%!#i0_zy+Ed43hPXB3IZB z^|hLy*cftFgA5R-;Uh@;o*fZvVE5D(d_crg>+|~CI0!r^))LGXa&r4AaGc2Vceg$f zM~;-yqJW%@c&fHjXW&?pU2Ffkl`|-NHUe*Z#kczkfS)@|EGG>fm{2r799AaD77)Ir zR!tDfsI*V+=1clk`B_qcU)#Q2CDrICT#O=8O+2R+Aj5UvZW`rtO(mA<{oQ|jI9y10 z<%gfGDSyv=0zNYmXPDAIh>@}I&EEbZHsCjscx)-YSzT+Rw=6xW?W_MwLZ7Ka8mg`hg1|;*TGwm zD5&d)q}%2JD>D~lOV%r5#&^2~GRMK!*>j8_1ZqSZl0XRThu_XUpsn>jR0jz@f#E;u z2y&k`D9dk`wa9pj#7pgw{wnfWYq3PPhIl^0JyFP*^lXya_nGBk7Z=`l+G4+NfGVEf zJQh>4N=)9l1N3f3Q%>0n45$SZ4r)?ns9d0B&<+4GIe#IUWmss@;mXd5YCY1pM@7f_yMI;aLd@Y_aunc`QX*X z4-|+Tuz6)#n)jSW*yCaXN>UH5yzct&Azfv!a=MZFl>g?3gAhm~2JP_LL!he|goXQsZpTSNjL~Z_=zD z^`EMLVI(x^+-f`C7l@zj>v;%`mCl~ z^Vjo5_G%wQY!;eGcr~;_m+`AJG>t z?e7da%;n@qO0QR6vi3){YX`{!1xqP2O7?h(2@X2^TVlqmjfrvAxVy$cMlt@lgtE|i z>1_n*YJ!w!xWF|n755qA6Z24^6~Y2^wggFOe$^+tot$y#FzYoTEQOHST3 zNV%vqcSEc>1@XBgX*5O9eTG~~JO@j*|D)Nb^w$D^n5WBF1`1tYTz>!ly{fsxOLy^M zRmAJgM7iH+la8 zsCn@)ISu`JxKY+0J;4;b6dgcY%SVB|NbHAzf|^gy877O}#$0~+!1(Hu5|xs3LPe4i zwk?$ydXRIpoUqBsW#g%o%lnfNmy|I(2zyHyb~Xyo49IDMDbN$ASmeFh$_|(tVk~%! zp2q6d=c69FCySktGOom`F7D$l((uP#e@a8X`jk)v%5cDL|HFRyac-NOvC69$TpfAD z1FZH)H%DyZ)jtSmxC;#miodrg*?S`UbwR0AWTahx$T#|6q_+p#Ya#xGOl{F8JgzQk zh0W>|7=<73A1><)gAe;4^xWI?(XBs0E%{w-kAIp?r_EplutGT(H{4QV(f zv8CoDcAL$mjke>-2^^h}njBm47m8xWf;;q8u4Q)7cD9U__^Ay_PzkRj;_Ab}ZaOa*apRVBk?K_sYn*X~nH`fCr z{$Dou5lH@W5)mMG?BcFcve;SYe_E(t8jp&co$-5RNQ8ZK5}Ow>&@Fg=I_|zGy2j_YgLt9 zRG@4`6zPwBoL5u3@(S<0f%87?^&q-+$1C9noSEe_SJqaSx1M63|Gq0^;)ko->H}v9 zVHrm2vyt@Jh2gZi2OMF6ACoF>Em*5oz~zlIdwJ!fh+}IG=L`2;2o9p`m3iAlKEv}h z?)+KfpoT|jFdMD@>et?LYd+cc9kt6HhirM@>7=Mi)jG{x3n6bcd6ym-PqWz>$vnyS zdu4wdCHzb>_mFPlyM^Wp^2ma<{Oa?k`JaB!TYAE}{_O~l4JGwv(BOb{m1XL|zKfzQ zpHs3e9L`TA`ReJ@#j`2#`0U9ful>=Y?Jv@H9&?kIx|^_gUBYUc>HhuO&wk%!s_5BpX1dU? zy&EYxYIicS!OFPnV~FFGw;CS`aG@2!u^pO@h@9U~JH=T9^4q+RaXqg!|3FTah?mmr zNAxLdEsmh$tR%ltZ*6I~XR+-}@FA;CCHp^LF8{6@f3D;1=Vz{&%^M;ML&kR}SFY(} z~oEo;fh9VPT=HlJDu__)5$=Wy`x4_6av{Ouuex zJr&tiJ8k5u@K$*JgRB9?-k5KD`{&gB30>plQ=vRB?1rO)&zmpJn0yu2;60$^Ne&bo zk*bug>izaZC-b_W!lN=aUP>qR(=k%%n%+&%<*;Xox^V@V?H8>6Or!;?M)F741U!w- zc$NL`x2XJ>4584<(q~6M#oqT_XzY}>D6awfCemKBp{Cj=Uw0kOye;P+Idc5V4&CBV>VrwfY4=C1%3nIzV&3jw>@`)k zbhz6e9E&Nv94==w>c90S!IpGOH{{s6ni~zC#_4+N>Rd57 z+1*86iFU0?Lu#k+GWxvqypYVhCm(H&rW`Eqx)8srcsCq%)K{_djMVkHIUi1?fK87; zm@3kx+t8tEn;^?6yKS|fF!7|&OjGC~lJBM)0Y5BQaY45A&CQR`-+SEdW-n--lM;BF zbMMp9j(c8H=JdPIbV7}zFOt8!u`1r0nVEb()BVAVD&4nrX5^oqH3nhoz9+HSvNiF@ z!1pgBoV`1zN99yx6l?jt=5FnNTG*?W_IUO=VtQ+5z|`)i@Y~Hu&y-gYiGDsWJI1LU zmom47J-4!u=7ImV!XW?1IG)7!NUg$D`$+ry1LTNl(c7mFSWSA4%DCc<$?5!rlOYu` zBI>)smfvVzVtv%@`O$f-Q|5}xllhd%9;wF%8&}+})XiTnd0y&vttVRN?Z%-a>`{*| z!%ccuejI-G+xMr^=l{)OrMa1*{LcxgU(@CP(k%FE^Zz^x{&xu}Z1LX{Qpr13|K0KY zJ$L!Po{$1-&A&2d|92Bo>ZoJ?KV+o-@hN{#Nge8N3YSkdRF^V|IYr#oVV?f{jJ`+C z9w~L}^f%xB74Z9?%#r{6T28KEa(zld@e<;q)Y5rL{PD;9A2PQRB%Il9n1X9O20Sb- zgCNuwKT+JXDr=zl()~Bu1RS9&)N>ZphBe%4C%QU#y}@+cGuj_jiC&S+F`Rt#DQP@v z=LFB*?buEm&o*srNY{Gl{s5TPg6>nL!o2LTdK&WnS!QT9){E81Sa^yLO%wUDR#hF0 z9g8amh@(}>pg8J6{9dn0gR((=nRm8(liCd|Rz2LVXmT}A?Fhq<$N02zsd1jDQl#+9mzp=emms<`b!!jCeIw-_6o$D6 zK2$pXtZX7bUqsXHy4}yC6OAg=YWs8A#)&6Jq9aqh$&keg75OZF-@Rs^f{Z#7j~J%V zlv$@w!U8haTuCB2BctQJj20f`D)6+Jn6U#wkM=)KrV^OdQaYl7}K zd;wGh&@8l>x8 z@D`ME>$kN8ZTG6Vq6zNf*2j_}?P%l**@;Ldv<{J9iur3Lc9KK|coEu35Tka^Gj@X1 z$%mquALY?_Mg-vc@Pf5F+!1%?OtUqr1Nj_j2VuAISL$;j$drcRvPFqAxdh2h=f?oH z>K5qVku;1|Qo|&<8Pc~u#gk0eFZpYU5iz_kbl34F^(RI4)$H7DL6J2}-bIJ)p~nOd zG{MvrP8BN=6X8#8O-qW1Q0ZQ>r3D~Dyh(^8cJdL9$oy+?{=AwfPP*OI7?5T?@Wy)f zf}@TE=B4iqfcznkkgA~N(L<)qgMcM#g9BQ_bvf?|j$iZxu)4M~Z5!2907H6nA7EuH zZsLtPu3el?y#lzfHku58^PNK_h%f(`lYcz$3l@|<v^5d>&jXYY}KyqwY@ z$F9c6^CU4FO*Zu>?bUrN22ibCLr&AANB^YLyIqbyq5S28#S}Kpo<}i zfk-z1V~&KsQG62~1+W-*Ov7`{0HwCfC~OB!q5})-YtZC20s@aD5H}9U!=mukO1Vx$ zr>=ee1;)~}(WFwZw8y{tBhmPCU%DDJHZvj!Xj0X6YokeNU~`|ODCzuS zkb00Dvk9tlpV9J0XgwT`+WxZyoWOH`axy2MO`Ab(q(#p_a zOf7&O0jTO2Z}i~-rPFfw-6CO9W-_&fdHw_tuu}S5dbj7AhLFi;37Wu%?MrTe`PHCC zt&1TQEdW|A$d=OlPz3}wYm?I1g9m3#M&k}FY?D?5ahVk&61Inh{p(@?oTZo!7+}#W z3~$$sk=f1j+^wJuxWR3=dB%hk<^jsJ7SQKPK)8dH7ZdHNYlCJv0}L3Mlo!ylvdL}& z*JTqmY_fTPk|JGgGi&)Krr9=*AVLj#IQ^?v8)$yofMp9k7TUx(?fFHe4HgkBaJvpz zPLr*kAnBEyxc~4C{Tkt*PdOyyg<5hjjw=2LiE_9j6f0{ty0RZI^reLTcf5GbbyT`mR(B(k! zXlre@t&uZ)0+WCl!;A-zEQSk)#oj4<9ho3GR!tg?GX{CkD7cc9%$50I9StM-RDgHw znSf2;Q5%bk!}gDYJLNB_8~TzhCdooI3%(XIW)4UULYuM3Ztqmwb>hnHDKZjIixQW$ z0NkgxiwjF8$9f(keDKco`8c~+`Sbw}Osm7}NTIa<*!8TlS0izy0A zbROwD*JcRPcV9(t(4c{7;wajCz9?v;V!dKPtEbzaU=|bK*S;WN%dlerG;3S@vShLt z#dd;}Cppvk=*S;0?qp1KWZULqYLg3++ya39G=plR<9%VV>Zj89h}VckeNAgIK9af4 z{QrnL_jsoJ|Nnok5+jER#d1~-oro!s7<0@_Ifc-QGK+a)3pF?Y@x ztX|td%9X?D^XG8<1C&y>nAcJYiJ?glnX&Zb_?3Q9pGu`WfIN%Dj42ivoMHk2dupn< zQ})l5S*I56(Z-R|X;t$lHuc(D$%{}~^wM#rM7^2KXsZlDI-wZg(ul~R0B$8biF3Ki zR|GNVrD6I>mG=IlLUo53O@&t?CNGhVv$Dk!bn^N@2SH72f=RJup@Jz95aJ22$UnA?)E+54$KrfuA|0 zRRsM2`>2si?2jR|weA_MH8c|&4{*0AmK2}~@OAhs)0KF7$D4ydONdMl4ftQSc;Pw2 zz2km1V=!>voLr!QbAx8d+wGN+QWAc0S!8p?;=jKU-wXc?gmiasSTeATAwVP;z-`w+ zzaM#MVy}Lys|vfv1{p^HrtW8kya|%+4JwuP>h99b%Yo;CGGiKQ;iU+cKyrByA`Yql zD4A9-#zH^;7v5KR0A%pli|`Ea!2ezJ=(nWY)-KjpnveFkdizJicdAMG-J zcCmQu^S>Ymu9+G~$^e7|A;^+nDhInPy>7BzwjVtfp*$&Ci82(34W2riBAFC2=cEU7mp1T3pJn7(jhsQC0nM~fjy@i`u^W-@x`M~D&H(`tX|q}KP+rqe*F(&rMmfW ztk}VQmo9)o;h9n(EdeQZ8tlU;hMIjO@dKyPogC*muBoQTMq;N3qEa#6ND3 zOgBd3&gltB~8tGKnGu0TcEDN2mOU~{mW@q{p?M;9R(WG({rX~ zxae7=!0tMTli$hRtEF#Bv9}9EXsVj%6NVe>0lBgh0-vCqAT2|XpzjX#EVh^;fdsAx zKO4JeH>~LR9evN-dJ<6>4?n%}#FszU{b{dz$zA5corM8J+ekak<^f1_FBGJLfcle1 zP0iv5?Txu+ITw1HsW$XCqlU^8F4(Z+C3>r2!3ws9 z#D3E~22^d1ex+lRj(zU(lw1~`W|HTw{dq@_!oIaafvp z%xQd=v@4_kikkgqc<v5m>k2Oo~{V><`_Rig-lI5ZZ&nfSdjkNi&Es?%E4E@N@ zB}PVZ`8p>Kl&`Kf_A@_OK>1^JLg4IhMCwbuhYq(xH|;7Xsn0=OGH0*A$2Z@Xs}_3o zaxsaE{%o8};~x0ARVNFb!b96SqwZzs*#A7ksTrPVQ2h)nE8Ej2nO$7Dvt?z^d z0YAwimaEFEIzf>ERxW8oq*K@02VewA=e6m*?A3b}bX5)QazLyN1A$9xC->Wxc5On! zIf+#g1~i<`ihe7bhNRr?whC|zrn*s#f19*$!pA=yzP69+&%rsj47=xeG@QR`L7&W+ zO`J^#4UX2v$HaM5Bq--l;i4hn{X2F=wG62Ke$MRZS<5BXVw1Sw&^)#fqzq_Q5JT$qWBj8PI*DJSOWK{`uK;HmH^=o9=pC zK%A}en#ZZ2^Z_7&t`@#vZpN6a(g#`*5&oI0b2GSX0(kUDhxH9EqYPvfwh&_$ZQdBN!t}QpG^|kN-KMtXZPz*dmqo$tq zJlwf^W5=|y5AsWQdd?BJFXsi2=|4U2>8K$`qkkOWw=a>}H4L)P;=->0@9Ld+ccv02MX-J1rI|Nwd;1GVJe|_1JA^P^T zddg;@&HYg(tqJ;CN-5#jakOf>I?el>+84+yyq@o%VOcTYh>`H zshf8a!~gKBwR`Y9i<7`sb55V`c495i5?*hi&n;LdFD;U~+ z|UC*HGnk6>`#Z##;B+6%FUyakJ!}7w(c6&87=yB~^|J z>qIHa*)Mt)^c}{JT7AjE)qYpFgbE_s+N(L&5dFygy%}5Ei#^0uZ!+ONMby-8*@(8T#`x=a06aW-wsu+T5{8vyPjDUR(ALKNnHiETxEIF?=CcD zle(|v4Fv>=lo287NyS+On3RDF1?JH0oW?ns?}Swmc}KalH`O%Bwcys9rHOsELJ|Q)&ZygO8g<-C zzjn|13f^KG-X_KiRhr$^vM{D{i`giDL>91E=3hpYkL*awQZ)f!4sv^uxt=9ujaeEj zs$xuLy$FpT`f!UOl+iXU%eiR;MRcCy=G4ibvd~lKH_Mo0_H06`0JA_#oSPe7mlGFP zO3$8@OgAvoNrLe^LlHx1Y7X4X#?pa?7K8?HROfgqz%$_S8?Z9wv`|u30WD(!kCxTj zDd7`ZqxvJ;WB?G+x)?pVw8wG+A}c2i_lpKfF_t;2{d~<()eCshum142PhK z+S605D53E5X?mp%sv9J!B8p8E`y8@q1TiFA+ENA05=P_$ChJVLGn$ziEDEZIO^4a7 z-|2e;g81#i>1BQAvyU$1fq76K&xI6ofC~fEf^4uQ=X5gF0{wsX!q4oYFoifLzpLh8 zCGP-($|ZkG!__Wr`GXTbn+QNeNWHyap*4HEPSn@c+*bEIlMc($*GD2Jo2uwR#z#Oa zg&~3PI|C9FJ}wtM4PU9(RcqfLwkcQtqU*L}?_apPxoO=_Zl=4eoC_%t;aoqEMQ%2K zE4aBz^P{F_Yi^8wvfi)(PLpZ~ngl!k&O>E`Y%cHvzv1o{N+>Fu%N6dng`-xtvOl%0 zAA9hq?+ic4D_KuxlVRx@zL%PFqr&`6f8Ugn_8S`B*xeH!ZQ*?-{v zn-^JKJ#(F`{=-hNP?{taxSmjO^d5!tXnnm4CQ8gv=keUqa*I@7g9VuhcTt)=owD^n z**lu=g$sGd%KV*OmO&bzHUcG5lxOXH9=0#beDoQ1h-lGN^| z>Qh*`ya}!P^X{`P{Qu;9l&0WhW+3x=?s1p342yBf)?>#lp{$4}h+%r?$D zU4zd`%T|AR2avy2^F5eXAYO1NwmXsk%kZRZQrIZ0;bWe$6-WD8g;?hpyD{Tx5;)%YD(1e7}pNUM&D=I;Mb{(BD_u9SJayHdM4b&xAQu z2TkY862%b$F6ucdM{Axv&sPO_4gh=yvGZl&thrgTK#-8qF@`pdHz`vMDW6T7F9$)s znu}nNoqh{!7_i)CS+Am4@DqpZ-}NjFlEn~btoYfY)Av$SKEwkYL=jc7oI;Hbo`H@nr4}>uQ@YI5rkoR;oLOxt`G>_jFof(MBh?l zqYWodC*MloW7IcUtvo z*w(L=g;kRboDw54ryPB(x!*)-Qh1&)CpTDkj&^D=`Gvs0m6-8f`)thN+Kp+$fl_En z&$7$^^~`oEQXDCBhXk8ds^ZxpDA!VMH2S3$D7 z8PAM+o$yT+MRy=I+&tH9$1c17%xOh8)(jn?s6?W0*(#M@kvwsZR?(}cqz8<&ob|dv z`lmHDx|wHD*?#c2VD3gtKuoTMLd}4!!$e>X*y7y~&zMn}Rb{nNulgSamFsjgkQ^({ zl=<4!RV@wQ3qQ4;ddJDvkjZ-Y^fhBnI+=Eczwz1xo^4{!KJMODy=e024hVSP%}8)8 zS!DqGxr5>QPv#%1G3Vk-rrl$%78GZhUDj0ki5j6fvFL3n=u~gdH*YKLs3+f26ihVv zUbYvgnN){X@m+QzTZUV!u+6;s7W@lW`MHF($$4G2MN&Wd{gX$R;aAmvJkoU91){GQ z)5Cp1<91y&-`(3hjA|&{+6BqnyWu8pyPf+l*TS^i5M=Rkd|9meP3=_G5)#Zwd7&kj zBoA9deogc&29a)-IOKMlOnSFid}jAck;UnlIM^=!HL;injHaB5u;TZqje0Op0>oL3 zQoU9g)=f3>^_@D1*MFjxO3nsBi^C~=@%-$#|K1o75b8d90qwUQ$Y^3z=f`r*#)ri8 z5%Bg8O%6?Vil*gKaj=cxrq!-yRDBa`MC@Vw(7m_Vz$e^e!S;vpFc5dsKw`a2Bv~G4 z|FFg@z)jC%ew3N0mC>7}W?T^$mlh4C-lWhEB0<79QEAg2cmAPDb-bJrR; zmP;<}NE$7D9aNNB7sZ0)i&9o=>qz&<5S}2kq5S>(O4~DbdYRY$L!BtJL)lP*vF+*O zvlLT@kVzK-6b#0h7H@}jddhD!wZ~WW9UU5CCrwyes=y8zmDD;D>Qhy$X<;Z0-5FsuL0f#XN!+d3jpR5M;`gb-)C zyE$hITq0l+5T;jTB(az~2LR9tC{?^YA#%xcvRYI1c&+VHJ7P1T;AbarP`}%Pzh}{T zYL0X1UjPDEfL`ABTcMQ*IO3Q5iTl zRpYmt3)eHHr0-#q_qNXq2JMgD&V;)qP^CaS0R6Ch@|SL%Pw##HUEsx3p~f7q`PPPKtJ1ifm_&Dn@8{9zbYUowsD{hV(Sl` zq!)JOZ_ywCS?218UFc(R{YP(P`m}&7q?1w46gD5 zV85WcYLp7YQ@u8T7CuPCpnd^u!5YpN6Nk8vFUrC0;Rb1k4uDLX-P^}M)odqBT*WJ{ z&z1dn*B4>PjMoL<`C4vCDy|Ll4GY_PCG7r{yu(*=e_ef}seXaey5w=wA(yh}uN)ke zJG{Ln7PSgL&%vz@sQUCU`^C+9_g)J1WTuiq&lIoqU}6Z^ITS`^vf+^mx@z9kXMilk zE%81JUcR81d&1&xhLsZ2h^p|Ir1^fuVGRfk+cWR}S^AikXwqS z$hrdSXADp=GVAE5;dP`*diTntLG-^H?i|ljOGmbK3mfU3(05Czzn8)8FS=$yW)X}2 z(z1{5bw(~m&5f>}ga`+Wev1ea5<7#rgn0g3b1iBLYMCWRL?*P39g8nrT7(D;{gduH zlr=X*FhcjHu3y2`v5yJC_)S3b(iW4&X)(`0=@>D-(xyD-z~}xC>Y%L*%1b;WzM8fg zrsrxLRTgpZ81?0_iuvm8Pd%v~_Xz%0HRJg3r`B?T?(3MiT9xfF56^ZbH@CZz87~DQU2WD>T|Dy`^vP{3q1eRTn{`t-RWG6 z)w?%qY`2laLEa1wAAOHyIEd$hC6i~KCHv&5m`O*4Ah z@mcZJjcem?WmCuDZ&Z%tjah=WgFk#|M|sjBC-Ih<(Po2E!-a;mFQ9aOV+<^4(1g$^ zA>}kr*WAk3eNR+Rim&gf^*(;Yb>R8(+?@O%!lLNqU(4=5NS7@W77(Bx0|f9Ii4x#t zTx;vz9_+B#0!TC3sa5s;kG)-A8Fe0tb26WgxwC1nZK$H((VvoO*+>K7PnY_$sJpF8 zJG6K5LS z6x`=o3hD-@QwD&+g*(e)Nh2R$LNjmw=m`4!v&{<0O)c|j8_hO#Q&i42cL??-_d$!_ z!{n0gw0yAss0;nM=aC>^{|LqLAOafq4ciLV-f7_{d(?B-#s;h`S$E4xGzl7zQ*zqY z^S2`rdh=%={gEGX?Y?~w$L?}o`>`edZ2HMf&#PJ+d>-)GNk?2i<@Daxk8?({hj5H%2WT`h%6c%(*#ecc> z+8zcgMBd_k`<$u?BwG=l$JQXkQ(&H99j3Z?nqo*lZj`3|+-k0^)d=*k@LHrb`TWNw z0;QVV=$UUHzexjl_iPS8+t$SHT@n6H1QuD+eQpCh+2MG*I~XLCYn7$xpMRc_MIeiy z*QY|_PXxkjD5z{!^lxCAsU8Hv+}!4t;Bv8Kq`KSB%)WSR$?FQtE6(F-xaRAaJN94q zrW}8)*e(1d`2D8myc0x^nhEK%wGJ3zs4b8-gQU)^2m zRChOP4EgN!7E=@LU-dv-l0$Nw-Y+9y79qX-_BnZzIjjRnKoC$-sDqhb?=>LC8ti)& zwJpeE*$vv~SV;PP0ziQ!=rIkm7ym^&o5Xo6gHWUyV*vQ=4#WU8Maj(j zQCz`kECPt7m#v}J4=FePrkcIDU-&l16nI&-2S!h)mXq-EISv2-)9dcbt`U(w z2fhAxLC?t9yV9gm$vqF~GXQr&hsObNZo0K)(7cWr+=bcics1}v2q8OQF{TFj06ehxL6szD!aLku>#@(7~d7{6|k#twu+Fi!puzyu$wtL#v|rm&dz#oIhYV-=?7^#av3WO{EAYDK6a)!(vxIGN~z5*T50{-gE6rhwr>k>DY zf2hk=W{`=pEUP}Ve;;dQS1Y+Wbb&W3eONlT0Mu4UQbeKSfQ$urT$rzlIPIMPW30JM z0;(9j9csF1U^H{(R;t$(@9c*f?Coo3$t0XJc)?R9>E)^A%oP_&iYf4U9Q$zKbSdAg z&^pp7Qn6gqP%i&380{c%_P~Gws}Bfye&#yJS(o8@HMi8Z2KgJuGGIR$(F=&b?f>*N z!mv|B07s$`?~q8nUxs!H`(W_G9m`8?z(T~x;I4qeMGIWOw4rI;KYH(H}W2Gl&<5{&A?NEoLm-xWqnvdd#@;k!-|0` zFYb$}&eZZav}fK3TS!;{PcR}<5)V8;4t`^$NjC#9Y|G0TuQo>b*&shhqE*cLaP41MEKtnx+VF8zze=|L9i& zXdQo3&JKI5xMiM-K3Bd%`LpWht#e<&^-ae){lWmhF#g)V*Th`wFS5tx)7*@3Ge#uBiY+ zy;SsH>WLF8Iz|J)k=`H%HiG z3A(kwtGPF6u0H}>!)471`WEE38=%x4ATo33*hI-By=l&17?R7JrX|dbqw*eKnSA+& z6V$pSuWzdd{t){%-H0zNi71}J!9SpK(j6{chTGYk{aX>qt2G>iBPYx&X3uW{Vd-q4 z>JBY`Rbx(^ZjcO|EWsyksyxoq%tmd!nUBL03#{}2wB6QpTkN6!{l$0Fzd_fJZy%wp z-n$(+w(a&*!v?C+6=5Q35Pr}2BK4QnQG`=)q21^4zo;ko^AR)omkVPLIk+LzoP}ef zYonPd#dl+Z_LMO$WWjyZvBXnsGt9at`>m+3T-CA^>FlRH>ytXq#UfOWtJ78=BKDnh zGRuoOr8FH)rv>kmm0ZH2x};5W%f71F2HLrsGgu5LV~Opzr8&EsMItRrKhInPnAa|A z?R@9#Adp7h(|t-RUz`XhY!DHc&@VyYoesjXPy!$YvPFw9waLDK%m>hHKE%s-wKXDu z(g79*w2K>&|L_7f2yMXPx!8<1-enC1x?gJHVie&STFcTts8txhz&RZ{ z6fF@AQ@N;{Ueg=nD|Ag^MTX^s4K#ry@7{vJu;)hxm;17)syM;t@#2;Gc~>s>UP4;L zXy2hiM`mcyYz_Vp#?IA^^Tq1md(YPWEK<&bsaDif(FC%JstYot`+s|C?-;@y-HRrV zDtu!IFe;agdrzsF2=$TKwCAdtMmf|Njrf&NjsM-Y-JStsHlJqxl^x|3?ezXqt>HKK zr1E0#pC}DQWwuGYo1$9QzpE8{|2*>eucyYbVVW;%z-JNd33$Rr{3w`16>J zr7>6&{G zZx)nWZ{Bc;I>U*1zop3h@ZXeb)!h%bwkKr6b}i~>8|KQ*0{{A)Q}0?9y97TaBsWE5 zLzrGoR?E_2w=(D~chhF#(BS_rC#!NkIZ|2VbnXMNl6LXufQMAi|G4%T7knI6FxyAqYK;3iRZGxvqaFa^UaFDiJY|Wj=3801~3NbGtky=vn z+^zUjti#{M`a~uBfsm1j8@BKb3OlTGN6&411)3uYXbx0P}GPHJZ~GVT%1+dSUOiD&%+RH_{G<{%I%bk4v);W>8{Mtw)l*o`3 zkoYYWLxc$7!0{dJ|FeJXE9=A(2_(BIlr_+BO7XxYoWnw&e(T3x;^j0-PD^kOsal=U zW>0o}N;uVg-=-vWR$^qZxqU&5qu$m(?L(bxB^R3<44@Ql8*YhHhe#< z&oNbGso79kjW6V`RsvrJs~sQJ0B=+{i9{;8Fq-o9TC9E^4x6V;)r}f4pe|}Km@kFq z5|z}0b}=Vy)~j>kq1F@cJm+JQHWZ4p&wY|Ua&KUlICZfpU({b2w*vDLS_2>Q~K(^Ar8W{;C?QeSjfTgy4KQyXT zYV;z)e>O#hg`d*mV%ix|yQdfVbH7Cs{E6!s}g)MBvQqwry50FwsFH6sZR;{UQt zpLPD2E_&((Mep=xp8Dm~Z7+Y|XYcxD#f1IaLS`M||7GlK4N8(RDNAZ^W}kj`Lm}@H zA*J3_-Q$CYQv^s!I{o0;U_@&$kBUgD4BWV3b`H2C9dmM7U+T#pt&u*~Z z6y%fA>f>+jbpXn0;Xaj-xD{ak~J6wO-DQ;*N3x=1N8PpjVtx`@pLS6G_)#rxo ztLOxplIwrt#0d4X<{~OF@79^4kMt`a%cc-U^NI5u+z75c% z{ckbwBeG@ED{E4ha&TZUUm6^?b+~cjIJF#SkD`6Tonl5GPg|CxmeN*GIXN{s~C54qet52))f>W^>L0}5b?gQPwLMcO%;#AI(xOW6yVA_a`#3- zz{wEhODKAGHd|e<`DeK%ZNn7IP=ry`aljWB*5x$n`mre);v)+mx`dJj!!6M-cJzxMOq?zHc+kCbL2(zh>4g zHS_AKb(MhXSOLhA?}fKDb!~E7{`X4AJ-@usjScg#_!raRT@zvi+ZX2hR)N-CTk+}Q zKCHn|c*HmPt(ZGIwJy)YJy(s7rk{#&Q`qiwiVp6l=&ycWzs9vZqngXbs?{)tJc6uvklluKFB{9F!2JNxEEf~nmH+#!ulysA!2h^IHQJtiXvUTQs_yln0oTQ*@Lq$u zVacU~yn}Xi62_$XyU$sdGh9nxbe>$U+jCX(ksS<{Wq+V)v~kl+PrPlBjWTt+J-?{1 zmbOX>9_J#se)N%38RO`!0o5s6xQ)N(5sx8@5hgYVao6!1s?V8OB#pV@-uamF zPVS-F+A+tA^3L>gtLzTs_$Yj{-&S|@W=bL>{^XS1C?)d(?W9G#7W-VtnFDB=-~e;D z)&9{v#vfUJ#>QM3{;>19*v+axB^-H0y7{j|CocDHFh(0DB-K%&fF(W4BmFg3!>RN2 zw?r8mM?g*syyi&mhRL4tG+53-tl~ILe4qz{mMcPCX9`ca8z1!mLK1Ou+Cl?qSC>tGIy65xxCC9@^ zf{;Sd(8xn4;xKiI+cI|9I1!$l-73Yt%l&k) z5qW=mor)eGzLFwP3bM|KRfernJD57DL)7 zDnKVYa}Js+od$u8@+-s3^&;>x`H3#z|v0(u#rU%fOx$Qvw zlv?%eH0?ReF(r9dIsOycD=@?d2UYDc;i*~&H@Ty3WWqUle0%hPSscv~c-`iD5UQm#?FBtc zRF>US4+qd*Xxp%%`Hodf(D;G%AJD1StvB9z5LrJ7`6U|ECDgZ7+3t9&_xf1OVc;xF zIt;jCS|L=Um;ZPxPgPM7uQ6Mk9NztK+PL>_@k1NC|Da%-+*K-1HE_jS^NrEYuu|jS zzAn_+z#@)Q)5u&)?6*C-dfxELzzdz}4bt`{RdbIOozD7xb!=t7LD9R3Eew3s=mxz} z%pYvU?E2L1Nf2sjk?QdpBN4s4y)YoNOP*XC zNCm?j(Dzr~DDp(g7FX0?HJMpzu#~o@w$J^cF{g>@QnvcDKt9yHcfYmu_k*mLgRm^) z0`mp=@UCLZ*RMAdQ*W^VBzkd9%9O}q_AhTQZ1f2ey3${MxNWst?JhUf(*>ZUQ+td3 zOnj%Al8go!3)-F9);+9f@~tK>TywSQw>5*wZ1vKSb*5Jo(FP7UTM=m2W=D`A;98M` zRL`Xw!TSo#W_qjEsMJkQQ$JYt7xrdlpEOCn(`W%fB9=@unzY*~iq9XVUQ_y%I+OoQ zGi%H0KUOQ#RJ9_NGA1dTP?jmr2Mov}0d(9YI-;v1G8>yyqQ1oj?V_ewC4FOR3e&5( zhqM+C4?3EqvJw%{i?LrEZJMHZnY(XGhrVnh-rVD zUh}_ZF)CYmjb;Dr5OiS@a_*fz9Nq#y#XSUir@&Bzb|Yoq{RXv9*x?TM06?BDVHl1%tqB+ps6t3Tr<;wD#>>9zC@!<3)(9nQOZJTkoq=b?y=fQrG!A06<#(Vs^IH)IVsB;ztNu^ zwy6y7icrx}^gf#u=lQ%{lHkSA*>FoKsT|)e$hoBoN19g6HaBx{N$4%GqsxuyPOboW z2W%D}{?WSRpkbh3$QJe~*T?aS-=IT;w=HL9={?nLWdJC?;l+9pCdKZ~9kVhUiq)=z z>|(E0uujQgdiTNNVT7U|LELx9>sw>=i(ulWF%^FI_O?fsMfiXdgvbRp{{BUetF{TR z{&~<;lKbq=)`a)`C@r41Rh1jnXgTe@TJgL3sf|Xj8Od1&)|i%8LZn`1xr%F6#hSmf z3{~BNl?P1Z>$&zSKG~PBE#HE}eID;PsY5;JLM!B=Dm4_J~qz=!<^~DUYeOTpM33ZK$)u;qttP3E2X)uEHb0K_CbGVO}cbxcsYI8UH~blWax}kiJ^9Xao3~A zJKvk!2%qn;!Ss6tM?=YrkCy5kz9?@<0jZrvANG=nEOdigIR&03;Tnpef9(O71Jt!_yk#AS8F+P-65NhTbUXPAjTTCm>udX~L=7&?8 zQ9}CqV#_mcEb}GB>vT~KQCG{#H6AsG1;UVsMuzwxLlc#ySoNK#%76Tb*OaL=ncdwv zxHWyqH|%No5Q=fey~W?YAVb6CKQFe`mtkdE1xk#O;+>19RPA8~_x#^GB+oZhW!IK6 zh37NH2b10t8zVy4fY(lDee}K7(2z2l5{wm_7QS~Hj;JRkYB5D5Dp!`3Od)n}Nr76U z_vdBYw}y=W-DClYhGkns=@3=5$jaN+;X2$t8UPKUwZGho(P8J|KQob>MToT+y+4gV zc)QhgtXHVk=t!(zW)N$2)|H&Eo(;rNo4QY0Mv^6xk%o{g6jeX|d25?a4$Zu-aj8A^ zMz(dV6Y9Z`e_KVrm!j6Tw194CnJTUIzUF*tNvpX*S?!+sn2Q=YhMz7

x(Ep1wf5zIEN(-X8FX3 z32EaOTS~46B5o6tqAqJx^Wv4;+?yr z8o~wRdn%1OZ~AAqm{~X6ZOG_uL0@EH^V^g7rhBapm#iK21dqq6o3*!)I zA@Bt2h&A~IK(ea8OO+|+-uoiReV`c*hP^?*9C%by;hzrPtF>7II>7(GeIL@mHUzVzbR#E$B`A|mi#q$&KiM82 z9;sq5u1F^FP~pF^@h@j4?7nC|hZ#{JV7?ru8B@{~MNK`evMa5u;cEeZ{sV@JG=ZAX zOj$6TGGNg5gQ`ji_ZbfXJBi}$$2rDz_DF{K&{f4{049t!SSOC-Z5 zYi^|+uDGwnB>}pv#qFJ=H}aew0#l}&hG1baxT{6{WJd$z&@56e2~`Wg*#|y6S(sSc zI~xc=AaVOcLE;>H$5eT0Gk?d}rN1eR=Ci33ta3@Vx%qKgN$H(p&_e0`{FjMZu@_TH z<1I(a2$K&(p%H08{-xPk!}2rkOXW{JbG>>6kyIlxb6O$+sLin)?FI$RZhl)sd>;%6 zc3t%OtAW^QasmV~`CjSMg$Szp4p8&5)sm_y0cBv39#C^muv2gC{y~t-#jR-_Y^CRL zLb!oVH9V#YmUsJ4>O9qM#>bghBlk*{9d$ayRvbuB+`xZXlxJvW(Y(3Q6Y}_nKie}0 z;sC~yDC}ebn0y36|Ga#${{-es_vG0^?QJ$yHEinN#tj6i81;h6EkJ(k3*uTPo0?Vz z;7&?8Cu3cYaoT!-#7OnnmD3l5IK_>adwJ3U?clNdMMDI}cH4>z+oJ}Myw}D$YHH%M zR)$+&{c%?f20Dmen=B9V>N^5{U%xyBFDb|k>@6&vv=|EcTFYQV8mPvOly1#EL?txy z$K8}2%2!5m#sjziC$Y7us(4G4htJrFBXlcigjbfg3A{2_P(L$x>5fgW!=IxE^#d2% zuV?Xp2^(O!^T)HISaHsZl*ob-*VlGqxrT|u}0<~r)mQ9xl=tEGsc*OrG|T{$`JBXWdNs_(W^F_G0E7RYOT&A+UoYelyc ziHgd_#q>Mi;+SSaEV;)eQkD9a^?ekxdcCc4bBoGSfO=ehzg0M!x=uV%H0Pz($A_4W z&NBH??2K<+|1Yq1q0AY!+yuP=Z^<{;%~bWGScQuURE5V!JRQJAWUHe=UZ#X)8ej zk(o^sKOrbGw9rZU87J~?1_BI>L6FU_twOqyw9ui215|-gD%)p1r@mW$i%DdONAGIJ z89j*S?QY=~eWNkSb-9pm>cRbR{EMvQZ!HL1M+{ASr*>mlxnMR?tSqD%YHFZ}zE8|u z`}$DXd3mjEoCLv1Jma)lUZ?-u699>QvWxfP#B>Of3;JB?_w6yZ?qCq~((JKXZq2R4 z*+7eI`kZb^hp>Q%r)}Jb$~GOYdAS)F>%cLXuBBiGOvJc*(08lr_ttwTV%FrLMB8nO zg|1b5^G)CC=0{*Zo~5Hh87$MACql2@w%o*4|8ChR%GV$WVD{%P-s~vSt~|qOD5fn- zb98(>9&5O1J++7JiQV3-s0?8XT8lUN=l%NE#LodwUyuGw$*6iZ^1^Brb-Poy;IcjT z#mjY@>=a>o#__j^$TE+S?qtAlf7UZ?PFUNvD%jC|&=@EAh(t1r-1ir=7d5>imw&|k=B#@7Pde@ag zMbueb)r}cm9Y9$y8ma07t;I!)i_1aLrf#JvHO-?!x>~;mgPh!L&F8=Lh;#DS4HC3= z9ZH3#{DPB)(X;_9)WhvrI7RX=KHDHm;U4|c`H)y@sEZnx%s#t216&+TA!(#SD15dP zKitTRI66H~YEQrJ$i%atZkt12zI3!EWQRF%p+jj2q3+#Cue7z3FSMTprbNktY#O2& zsT5W#h@holoJAy@qUU7I>*kA`39|H64_6^7A>F~I@^p+Y4k^Ji=)ptakg*KatEGMP zGyk0VAYu1UoMIW;yUfkh<^5J!Q^||r!3X19E9TRTanAQ~Z(ir#|qOUq(7eN^m zWXuf?xLWCeny$y++mbvS{@TiNptU3~dVfTeX9>ex4t*Tyz@kTMhX^vVcmOr|y!nhd zSq7Y0+65I-N$6YjK}F?f*;s$pROi80-d1J6;j9*553Ksjzhc)aps2F~$uJ}%X>_$p zKSs;WhV(@=k||wcZ18+c-@|jzBroj{>HSt|3jKyu-0q=sH(Y%Y5{6$R*74spvAuU$ zSvNK=++dwEIT1=PKS^xrZfsnV-u3{j31si;W|XK^7PzxsX!`N6mHW}6({z|q#5|vu zzK(U~+~ibQ3K&aZC$Sr|e|EKuJ}=d-n6VJysbg1Kd2}|tF*xB=2Kzx!{ZohBr%o8& z@O_(mK?iFo!<_(imR(qKw_unKPM?-zOpN^p?Xxx%Yj|EuNigP^>Vr{mmc_@HYvx@E z;ygu~8U6Pa|KDHV|1!1u5#ji#uF7xf>*cpenDptZ@89c{kBeFIK;_d7R%3@LCelf48AMaCnE>Kz+B^5{m+h| zJ^5t+kw+j_C?$&wMVEOJEC!!vfB*xw5rhfK_h?#EJ{D+?6oV*X+X*Pt5Vr&ZU3Bs|HzFV&%WWA>XixiM`%*bE=2=xR}BZ`6{NN|mlJT#`@)ZeHTgsQ znNF9N)p~||VIWPx9p(YD0mN8;fusgZyGBF{zm{M9pK%Ou?pbF1Xy=%-^EfrNedS=> z7lvfx8yC1JI=Dz~VX>x;s(q#U=ENPVERVNud;gwk|I#S}`d*0sqTIJv*Ug$G8?MK% zG>8RA;(V`x}qS%^m5y@ps%sTji%luw!fJw;}^U`5nY< zt;Y-T4ACO6H=Tcn0h9ckLbE7fp~(Ypv!8`Xo>%JdeeW5x#acH6fzNaD=ebPYTZ#M- zEY(^r5zSY^bZ&mCrq`Rf%NJW;)`qEkueN`5pvoVSBxXIia;sSRsTRd;hqb(|3i$K@ zdNS&cQQxOfbG$Fauwp?or$I* zOV0881m_54x6REwx2vnvIsGuLGv;cNecHESP#rnQkmkxLUC;txhSkmdNPU`Ft|Gsu zyacl7^w7&7yRJ?WsM9$u>LRyInIZzp6b$4iHkSb4V;d-)r(DA-XXNzz$w zas?g^D!9x+?H(XnD7CgTBIK8r#BQ+ zj8v(>6Mx@K`dgdyUqAAERnNXyUTqI)`FeY@bmF+#6ryG`0CU36%TlnuZKSJ&)IQ0s ztnWfGwr~&#wr_HdKRNR>0a3@l=asGgUx%L!I`vr2kgD_~+~YzueSj zua3w^2&qN$8C)qr25VtzP3+RuBJ$Q0`QK~THHc3I>+bK)oE zFHULapO63WYmen-re*8iFHv!{8|0qPF*fVPZF{SF#-9qYuR?OZu?4%1A$YMa_IfJs z;@->pTpzjN>Q<0=)bH1J&3F%;kUM33x*W3xwZUts`X9#|JWLzHKAxC@D@Vd^wf%7S z+${RG#TcsL?a$Zrk>}u^vW*AD4DoOBUJma=R9(t?d3E!-%JaV6_@pmhGj}CyM|SOx zy*LqZw1nOf|Fum%%AHhvkxdHW)RaAoQ5ySguV1@w^#p^~!;3T`ALDH>LWtcm8qjRm1+< z_$+_91GY3he>cSb!|yqshJ72b-Q9UJanl!JA3jyy>NcFJ@p`hLaf;oDDSBktv(j>oi_EJ`SU$erFX)PJK7GS>Gs=2(_T7t3e&kH6K2XXX;3 ztCUTz>74znjvsX_zLs)zXh1R`$2?jjX_mcvrY8UxB}cy25dK|r@fYv>??%Z#Z`l7i zfbTyz>whQFI^6vK1^8C|9pHOMVEx~m&!1n}zux*k0Qlxks0OQ4%6t&+Pj~NKhhvdZDb2=L-4eeWLCox_L1((c}P_Dhd7>0$R0muAg< zuMk*9Tbz(ieyZ-%t#&8Q)fM$k!9_CF$#N5BGhaH%ql2AAh#k<);cLM@L%R4&0j?Yykd&J-d+jsdv7^_ z929LfQ=>o+Qje7Q$0bQwEj z36UlUpi#Y&ADe%SyN$^4v~)grL<*F=<$0*>yVabx=W>P(6E~4JEt8Vxbz?T;6JEty zGI?tsHs!UITA9VK;_HivE-P+*61#s?WSR;9Q*K0nLbZW1voW%8fqB zIyIbUt4Ub27(sdTOaJiXgWJ4P@V-@{iH9x8rA z$)Wd-WUGhOF<;u8up)R<$VdoeiD8Gk$C!*hxMd^CN=?jVl^Yu7RvX%0UsB)J>d7DZ z*rwa!-mq%$Xx#ePHSH7nqfz7STgn`DqP>W&G~EG7Hl3Q{uWqXtQm_jTptW#|4`DGpCihj07J@e=efw_FNFp^ns@5<>I zJkx@$WoISF1*SPEwwvzQSITm%*RXjz+qW@|ILfE878_58C=js^AdKXs5({eD0=8_+ zy7^Gn8p5h;vA~@OEmZNVgZc2hrkqZ{nHar|Ie{Mt=lq@yLAcHJ8n)vg7Mvu%>*>ec zOKWwwF=Xc<&BEqXr&r;NtNypONpx+oJ}<+56m z$U44B+*~d}O!sMrZvg#WtHYwd8LRUuk=RcSTHA! z@0~!x`thNLvS4~O(pr)trAoV)L|hvk6vr~UiQw~0ltg!+Ely$2kzw?#B%j=M|UJe}%7r#_#S%O$%P~Hi*G~%-?1{a1Ac?%!#iK~fP^we%U^EFcy z6oP=pXeLv}Rd6tD)8E{36I5T+03K%_YpK3r+`FZVE+30IB70KSX$VmWpH}dyY-?|6 zp6Y(H&xhZA;h~m8c)kv3Nx^{qjqSx?w|vxDV+$?^&pVBx7K-fNk^90?xv>1vHvCYuG#B42Pweu{k&&%83oZo}w-2kwZ!gF8le# zW?ViZ-?B6$>zo0z7;?CZEu?9~ssDV(eWQe=<5uLyVctv1&zpw&C#n1ryM8kia{Fo~ zB&9MxhbQgzav?SZHfYMpt~!3_@_hw`6(u~XMlN0_ebl%^CY~xgoHZ$Y`Nt>dxAIn+~26VSLaN={^_;I+hmcJ z+ZK|?C)e*kP^hol=StWsk|Nk!LyMDl6dnt7?5bvO1Zu)u1Xm)STcRCzIGmOzjVG3b zzs~YNARCs3W7?lN2&%5?CLzX-PgFX%C?=~Oz>8cpj55}JXJ>A7e9_|yqs%*#P#fKK&LY^ssc!ImoA87I!k59u7UszgCNUd{Bza@ z#7QEoH`NTU11U13K*6v-4#*7*r9TKUo%*=oRzUk!n^x!Xb>YCJa|`wSmoQR=J9c$^ z3m68No`slLtXp`#nxKKW!5*YI7*To|`N9lNDvUa3S7+}Vj2=om3X_XcpGn%3NZ?jE z`eOKF#J(hfXhx&os3mrsKox*r=oU!&l}|POs*Khyjl+Jm5V@k_Zk>jrL{CEMRf&dG zy36n}EjWT$;uuS+&!LK@##r?u(t&)ac0o%dn=cL9omM){HS_W^k+o1&Ir^zWAAM^Y z?RSLH<`Y(f(Fg zbqY{tmXkcssjRsScD-$e*QDxA4Kul?sIRfu4 z92Z{HqaU-oi+-hKvi>*kzNs*Xv&ugw+xxdyR@U!X^z`*s@N{o< z7y#8zu1g~gXMVG=#r-aiTZHa3jEtI_cOLz!a$z~Q>3lcnxY(2ieo0~MRH*;aPu)uR z^No$GtCLffn}^K6DpLywL)nZ{8$88ijs^C9KI$lzl=AHwJW6>z*QqrN+uWlMJfrgA zA&f0^%f?n%5jgu;XpPtW@K}7sUS%RN)rE$bvfi#!3_ZB$=B)CzTjbIU*@_X%j!hih z(+Ohcu-Tl_md)&{Fl>sPmC05-(8*G{BDXSF=amqaB;^nFq~;v5coK9ADw}a+!dksuHMs3xz_- zmG0{n?Cx_Pj-fN$-9@x7`x#MB<`pqz2XlX$tWmpz`y=BFpfZW93gHDGhF90OlT^nd zdiP%V;oFo2t995y5OVOC12|%0hKCqDrkaQM9B-F*#_+dFwv4Q=^74r{Z4Z;21jY6U zkZOi$r<$kt?tw3cHMTgTZ1}WW@p=On#3Vh(IvitGm)vB}rwfC{L= zt+k$xK5y$BrU@TLu(9VhL4?i>IqGQR*gPGj@1#o%9URy8Qb5$_GfmbjZx|_^zR_2m zId!<%iz<>Q6utX2{g-5a|g-B)hZbBYWme@rlZ$u!9D0NlVw zHzM~|mg=;6_P`&FV`JQ8k;S8V^I}zIXko!*pmQ^@O53qCi(#E|UMTG=`-0IsQ$%Kx zRc~hNAmetAxG%9jcx-7sFf=$zE&ZDLJtY1N{V8TARV~wY|J}oO3EyL*R@{bHWmTeV zo~vHC!*3t#5F_uOTD$oz7;Y%*Vv}Y{^h!A<{%k@?Ibhgpt~Xsa(AOc|!p=O~9$S^z zP$|rA2%PFqa*=rDz(La{6ZY@-G!K7jvnr1fKt<#P^UlOPkGI zZwFh3D7HDSJ89B}m1JokkuXCkzKGr0h_I+x>LyRmgCMc=B-eBn`|DeBy9C zlX-T>;Tc*Vt% zUCXWTjwbIRIW@E923BlLHJ?06Uo1(S-(tu|^tJ_O5wo)uPnmUqAlCdEY1{RsnR2sA@lyYfB-HR*Htq2l!D~%)=YO& zVW}&!+bfrzl`Yd6>x`!#-5#)@lC#D{Lvb65T-=#q90ZYSzv0ySd9C%!Jk(MDbM?v+I&@+9!8;TeMAjP0E4NH zyUvK?vr#CQMUF{#FD5i|Lp^f3@DKtTsQqUVWd zYHj`f&W7^SYh0YaH@AJ0HCL{t?%P=0mce;?QxGY3_(t}t5};x%-vG^W77p5+_kvUR z?KKCHKD>%w6svPwYe^E!D{DpfQ>N-tPz`MIht0Lk1(gRmNGb58y?61IyvWnESg|$C z6viT%zej;DJyo*t9xHJwIy&L`@S(k@z_-`#mP=i3vJJV0FytFm{M^se(*}L&Db@z+ zt)ra+W9p$K!ioyB6x73e$cRnnvoI+wt6UiIa3(y+AcC1f!%4F~n4CkP_1x+~v!tfs z&hHTQ`bKruYejQIPU-h%pe`X^uu{25{kSg(s5Oid4(OcSZk~vkBdo{X3NEQ~y(UvC z4PnIeH=g}&@l|Q?#`1j5M&SO#8qAu~^CP=8%ZpI^wWB&*f>AY3u?q90I@Q)@Th*K|Znrzi>BzU`4( zUs%c1#0$2?j=DVe6;bK8PD#!80?fQiS22dW>!%O5s<)j{T1>qVdf zYh$hYWSzr~p9`$2|7zGfh?Cp@xl#J_-5Vv^qE#9$C=r|LyO&nxiXQ@m7%b(5H0^d2 zkc!j|PM0>@OF52S-tY9(6=q_jDFM}WeMuTzel_>9X>Nl*PrZqfK5dPEKu|%t2-83Cn>x!i)vdoTraF}u zzK}$(D1Vo_-Yz|js>FOhqaaKQSp2vnRsBH5`zp?NJ|=Hkx>gUaP?p{7FTn#i8{2}N zat?gbIn*lu>%k?tB{|o#7R47{Rp=}i=!Q@xF$)7c>wCi1-OM{p27r+e24wU$OwLOUVI- zO36z2tQuR_SexQn6E}|iY-Mc~yASrOTSrP9=k;LNSWF+njJGx|cT!;hxN=R>Qq+?O z53O5K%@o>|oBq2q)YH#W#XC0J=SeBENwCrt4fxkR{sJKGcZ4aTvT)GpfTU)a?%NDS z)1_M0RG=bCbJO~uyf=MwFOBm;LR%f@1i%f6YYP>pT^gtNfFgcqB>8%}?%vsA#nZcH zydgkyRE0YQA|kcnDv@G#BV61Xi|%^whjzi5(42HN5HJXIpHN;?cLgyNv`HFDA2!+q zGj!MMd{FDd0rmJ_Ph54~>#Q;%X8RBxZ6Z5~Ha8nK2~@GR!cAFjDAE_>=SQlcngnvW z#%y`l;K{i@gaw7ZxIDt93qunP&?0WF0&3Bea@wob)y=neob48~5J6ZniMjX1*EA*y zdQnSX<4~BB6L>+s1??On#^B`2!@lYfa?)h8Jo-qIz}}o4rOS9X{Nf1(E~F;bFhO}7 zEm&dst;MyY4|(9O2ah_^5W16sI*+G@rYwzyEF)QG09dT84#z8|fb>rI)_zK}*@>!ohH_tkv{mEx3_}l0!m+^ON<9&6KsZ z&E9D>HG{K@IJL~q!C17P-VqnsiTA4G6YaN}4VAYtnOulfSvtyvEebf{{VCo&f|(8< zrY4%v#(}!n^PK22gt(aBB%} z=vmkncYy*l0CzGb ztbE8?jZSypT!%eNJXWfcJUlVt zYlre&b1OIRJXx6HxuUb~wBnv~E4N)SN|EoY7B^~*2G!xfLJuckD-)`xge{G5{4fF$ zqN#gQcXw7@Ik=BX8x0E?XJmjWcb$P7So{Ffd{FK4p1ND09-5j=+iI#6x-6@G>^+An zYhx(g+AiKz{a$v#z__OFOp)ZA=3S@nOeidDbIlWC&I4uEhEfQHMOkW<@k6wN0%9zH zQk#sX_F@G>I~d&7GQzOHsJny_GB--recP^gpypi8E{NqVy511^X7=Jmk*uMTDgKl) zs}!j{W?p=AjK`)|YM$+#ZP0$8QyyEkl$RA97R}o3MCkN@*=ro%E*3ODB0s?htqnQv zIg^pPyBUvcUBE52mL=D15{Z{S;kCYkw~~PV`S^VImwtYa;^haIYXjUnV?|^43_YRd zS(T>2GIf!szqi|bJY{1oS9-3*JGx~PuO8O{MzVhQn((T{2MZiQ-~!jc1iZKXPzal= zy*xq-HS(3!j<}Ru%1Vh6fyc;%PKsj4^=ewr>eawG{`ugY4uw8vJ-uY1y38B6M0}wj z*Mtzxd*-8VMw*WZR;Nv7o)*McCCnbqTtP`Zm&0^FNIx%f_d1TMxCYTTH_3F|$u6hW zD?CaknagRRKzUYYvwLN5&gS}R@vbc=@o86GdqD!n0LIK#1T#(iwmx~~%`_yAJ8&by z4*9W3QV5p3s|QFPfDt;S855&BqF9E{><_V z{yhdZ)7$sKzkh68&bjc+USi|NR6pFmdB)a_n%|WF_4jYi2ERXI`PT=r;av0nU!U`D zev<`{Rx^sroGhhOxskp+>z-mSC|Yq!$4t0H}WNB>>( zlEVR}@Fx<&MlM>}wFe}Q$5PImF`iUjVp+kTSn?pZ$;nVQhy24YpTfH+g(DUdlRYnz z&XlYu`a-flWbw^cJmq~{!Za4Xt6xEXgDZ6H($By0q>ddKVp$wyCRXu+cJtvI(UZzN zLWu>`QX<{bYD7HSm};i0F=IW!Ex1#8tNJuvaJa^}&bjR6Hx0CoFEOCKxZByt`ALG` z@Km$FxgQ&+elyz`y_paZ>!pA5y5Q^min}lEzIL(kV8s4R@z$}kcMT3$F&>6L;yuZ< zUAPtcofWa@<#7xf=ULz+c7a?vG;R`(>rHuesrX#b7{BpOq|6e>IrVqG1| z#_n4w@>FkMe!An!%C63Hj4;16>DQ-^@JVWYO8sdg^SdZ#Sw&lECV%Jmi)98k%H_r1 zs*RNzwnbHIU|($#o(W99)GswJBvaf@=F%0t~L(@b4x4cjdU&#Jw8h1ZXue(wJIdxqk{;^I8} zi;rnn`_A6it9-3-yTkc@+3ASGzHZ~0zcxPRygqAL?f==VC&BW>yB&_@ehgLb@NYXC zFY567#pahIgB=eGIH3!k7?1CueHHJ@+4pGQocylAQ-AQ?eaU&zEjgfeCRcx5=~b3) z6{}HNQ&)Wieg39_0fHr{C9Ivfa4QUzi9EPVSUQ>*o8rDP{MbQnGB>`rCy`&PeTJOq znpRL?*?9WV(!mOikKKY%2*WyA_(f9F`N;IAIqzgnk3E~|Greqmggpp zy5T^;Nim@Xp5-r_TdbY?4NmeO7B-j4$Npw+aShK*svKV5Der*YkQMC{+6c9x@0hOd zRP4n5E;DxMx6cth%LIq(B`;&?#IV;g&u?(~?tdg!&9e5}wn@GBe)RJ@l&aJFkgyNj z-xoUN1|BE_?%|cZk}!=c!m>YAeei3M8r*ySh4Z`RJ%x|cT@sF)8C|QmqIy^F;vVna zuLhIL{pDjxfeHS>55*Bb9DGNqi7ydctow2Ontyg;>8#sIdM(4w&x_y&7aP(qhl(%86&GbmeX|nIr{y~ujwkjw4iSoA*%nw!RgQ>9@Hpk2_Bzd68 zZ+cD*>k<54f}+4P6WV!mYm7B$O`!PvA}ygDOKGG04) z9u*e1cx;g-xWDkmo4V815mKS$SsdiidwM@!8gv=9TFCbG#TPsEEe;Z-Lk9;|FE{I+ z&~DIbIqnZsH$RwT--!^deoPU)va4xPCn?i>v-6kvpqrmTu;k89@xN%j{$`4) zl(N0LsKPI3^HBRlw~L!lb7q2RV;XLk><_FtKf!<3VQp7yZ8v&- z_4jg&|4t1{#oudK@&(xc?tK1U$Mql7uo(QGs$nre7#ueI-!5YL$5H-%+4OcHvqS?U zU|$ZDBeR5hrsM(za&B8BzQ2`>!b0Bq`g-Ebr@6nLF9U=I^RI3%F260I_xZ< zNXa563PcBjPlrftzN3yv2(Q{cI*D)d#rnZlSK-m25>JE2=`5|)0~SEwEIJT77C^Zu z5pza8+}lUc^kf~U@_UGcv=_eLb#$pAF@7=e6|;8j42S(BK&;KR#>YQ#@p`J{p09bP z2}T?oBSFW^L4~=A79cmcH=JcAa*HzeaZ@{l)^nL>wvx(CDn6wqIrD)vRO@T7qr#;| zdwO&x1rc8#EOYj%-%8c)oRoEip0d0``0Zff4)~1D`3_ziLAg>Kzob-{2G-0~r-|Pv zm8!~-a@45Ycon308!RJqy{^`qi!qH<>1gk<3187ZBZ*t9rrtXogQ8R zYrltkiJxp(=Z0PZ_NwcLR?c^>j)pNA!9{b`-#=ElIvg56&lU}~#ctuaiL{nSBm3$& zbpBz$PXZf5^K&H>!nyFtm)Qwj+qmPyhj_$Cjg0!*Si;hoxCdjIzj zj2^s3VSTyr-Rkh5j4;6FnZP_RaF))V-dv&ea6D8`xZA=?mB`6z;#> zvMU9^Gz|=sbAL)KodWk6**#Sm_QKtLp{6_I1&9T2E|*DtCEs>)b%h}9releHTdmeJ zKznHyecKKW^u#gkjBD1;?T7z>K|ntIC23mqrC+OS0gpw2y52kj&dO}TSxG*dZL{z2 zNuOy6IS^t1`3aIF9a_O{8>Fvpi>46-Kc9p(mfjWAIo+9BWGQ`;)$sbj9i^3H*LMTc zFjPm%M<4ejg#3D0OVW4P!;_^$4ZQkAEkYzhph=c0`$U@HgC%oA4S~Bda;Vnm6$sP_ zOmZm6y6*`Wn~p{Htw@Z|Lu<{Ta@>;!>8W_yf|F>LU*+O*r2UodcEOS{0#nlP+ptb? zE|Ubz=QKf*%(hc9FSthc4^O;li)#a?>FaO6cYVUl1VCeMNkqVDXj}pbxE{gZ*wSGE zz{@2^{)!4tCWr7!F1#;jIu?K8*tOZKAlUKJM>)Z4(Fo9DJGYg?KswAi@h&j^I$a)A zj5C<`tul`arYfYo2(lyiNW@TvqXs|}p&{O@1?|zbO^5yb2m~FrGbcmTAj8Fk>t!Gy zaTEZt2nWqvnQRazXjq~-s|;Y=Kt=-BvaNS~dsG|b7>2R}=WaF8bZ2~pN}w|vz#E=< zYoRL+{428Z)H|S>kQhmHC`bmx)0n9SS*Wf=V@rR+Uj?#8f{vY9yfI z^6jt=-?rm20(h8hSr4f_zGeGn2>`}$qh_eShNSRNEg6I*HrERP=OQzH-S$_3r1PGnGSUo&@7*p43rmb>X>=)zx9kc?^FU zKVFc*raKdW7!$}iKjyD{N)8o2QLtrExGzySG=C8ggzy)U$xFkbVZ5$?$VtCuoin)& zTU~2j*!B$3Nks(OJisLnU_4v{fIDiN<_q|?_ub9aOnCIJ0pk0;-RNircm@saWd>yn zI1>PX_mh?I#@hB+K7buFc$m9=58N~ZD(twJB9MS2 zeghca5I}KN75F*R0i13jDOUTjqlj&pA_NSS_Qzu=T*J3Vjh)Fr!@14Zov0}yfm4J? z&(gF7^CPdoFB~<^7;3*cFA*_U!Y)(RvOq=k-MJJQwyh%1RA+O6_Z8T@5=C^QQKcXX z6H@^4J_N8q?Tn+aUtTt>#gfWEK(2?NrXCb(BV?I3d?8-U*8=^Mt$Fx9wb}iq8wfac4C*|o@G2S zwKg`i-xpP+2WaVz6Daj{AQ2HSePX3TNJVIij1 z8pLI+ym@)?H-#W9xbN{^LdAPM*Nf^);%c|FH`0H5L#Q|v65RB9ii#Z@bD?#5=C)Rp zUsTr~agsa%a^;8yPQxnLAmUUcn-pM;r#!lpissuz4GV=8W94xn5R*-4a4vV&mUaR4 zv2H0n1W_TEItwKi)zaTnJz8B2Oq|r>#uHybpZZB)+_t^~ zt?F5K3sJ&Zi)OCP{lkwD#bpk^2RR^~1ev4-nXIl33WDvWuSW*E)*#S-4@0D;JF8hS zg&`uE%6np4fSR!Q`N`EaZ>VFfcG95;YPx1__Ovo1{k;EVj3iil4nkCv($oj`$3dIW zM)`A1%_wL|9c>1pC<*n02@~C^g7@D`q@0AHNqwAVJaS82hRiR`?f@yE^^b`B03mxB z2?ta_EemqpwwPh{x@qU6uCzha@ovFvqZ8I!5s$1x=qZkjD!=LgB_n0~2!821Nk)A>#b{Em{qF)=uJaW&M^ zyry^M_0?f*+(^M>;B}y}20(Zlg#)V6DK&9W^L7BRvg+r%zy{q<#!ZG~{{ckWRfnk( zA3lW>d}JCH&Cq}s&%oAfVDCNh1F-jkU<&)Qe7^nG9i=9-W8xAK5g`y|JG7TTDu^6( zNWVJtD_Q_x{3o_q=jOV=DLtz;kf{cd88O=?X$Eg`JHvROCx7H!YP5PaK@42gE)f2M zC#rl`1;*t@f>JP^KPc%rLeKk2!|r0odUXTmwKSl$6Q;!p`pMIamW=H| z0#y_g5lMQH3P7t)D&WzbpY-2(@a9HksjmEtuaTj=s38D_({w;?6kN2UlEiZ_BVu`g zF5=py)@D~9u?w>8XhG~9eT$#KCuXFaJHyBA6$;YxdEgRRl*)ywtD3d$T1irCA zWFICBykkt;WEbG90|2@{^}(B=_Kd2|b9%52&tbD>d3kXNdMzDbsjFBF?g$g01_uuF z;Nq@jkezQ{RU`)&#B^{kzjMA0=<;%I+vf>E<5RFZEuIU-$m~C+CAOvC0zmuStVZ+N zWW?Z`Xw0d<|oeX(cvJQ!n|OGMy6;II)q z7ksKTw1=zfL;)BznC6G$&2mA%#FW^UG?43yMx9kb1aZj2a(gIHVf~4C3G5j&Nfdv> zVY7hx0?|-QUIEA=g1jfv<;)Z5GqpfP4Wiq(bgU2EnFoU*CaJaLxfU3ZEk^%2v>`=; z{#G)|LH}h?TmmB|9~@pD2c*=%%8liL|I!0C!QnRkbPlW@tjZwHKwLNC?L=@<3K-kc zal!z&FeQI%kFP8+{iX``5|iLUhYt{Meh?z|rh@z275IM%Qv?ntjs)%wCE&5n9qM$; zuyI`s2YFI^&~syXiZ4>{DG3kI9UFoV*k zwjv|%9{YhY0TX;WfZ4y1)}-?1@Xoylj0u#v^TB1XKP)PM`zH5BB?>_Jp><%dPRPv% z?MDZVh6aRXyKX_qKNOa!XygLokGf?_h#|xyNbg)whJk)onIIx(7}58P4-{*0=0mOp zd(Lwlf|JR}Z|X)i~qo6RhD*vxWVknsQ9F6j3l&xRq{h*-%Z>R^O3@v4&G?7;JG? z#fxlZO}U_!M5N6Rc$>{Odg7LOsECCm>IxN9WhHApE;YsQmjsV|59h|C!^_*ySsMP5 z*%6MI!pw^63UF-qaAj;`S*x8XC^DmTEhcn&l!XL_zpx@Ald;Ungl7(z>{m{oXwKRI zLrC|JkJk;Fzlwb6v&_PkI|toG1fI)lj}M#ga9N%4KYGFIPBOeNiNLoPT;>kfXie!d z^Jv;86yR^R^2Y(ZUDRPKzh4es_Ef^7_3N#Y=Dr)a8v@<+9T0BevZ3R%4JW*5uXT-w z+^hz$6V-%aa}#vG)#Xf8i@BMn^eYr#C`3hUqFKIP$)boNh*VuKqGf-jwS>%>nui#x zt!=}=s_^{<+%X+F-&!a(l{{PKI0p8$No4{JHHobd)H2ES_uvz~J;AFfUiw5uoo_B6 z3&x$KK=Yi22J9w(PtVK4Ki(|h?`#$e`0*z1iLgV1o#g0coEpn)pv zNkhjI*g?Q5T{_So?(i#~AfFNkS~VvrmHtuHm*J_DHQukaon8{>3KttD>+$Da>`d%3 zo(wE9FmAL~(~X;`P1rnXFKl@xyLmXy+i~iacIXZPj46Wwl%f9MyYmsiA0*7Q^ul~Q zz2aR8J3>9RdP-+*1I(b}9M^3dt*55e_1h$83c*<7kwFD5Ziix zdAMbiR9jyVh+NPCb8_MojCdPEm`X|A1Dh@vs|IA6uZUJWvfEmX+M2821;)h-x>Dg4 zy?o%fBgWVhptg@HB2fps4Pyc+mLzCS_B5|)95r#|zYe>ifI^)Px!+@*U@BS@8u8~) zp#Ld`8&ad537_X-r^ulZjF#Xb94H_v+<$M(%&w>cA~{W4t4|CV$o|GBSR$;DpD71$ z3F_%rRX?2_Pyy4L)Q3%j8W%-=C0G-rAI1jP&<`{M_Z&Ph@|fK#K?ak_od2F$vdmpT z{5)NF!mVPWWr^$G*^cKcv{5KbRT^uHc>s_3)b|88(w_5Y#rQ!mR~-LUG+As>To~MEvA|bMOQ*}SM4|R^K3R9`r{|{mR}jSh-!Q!^NuBT99%Ve3z|=Nio|eq9sXwY?g|Lq3jiK&$XNce^Gh6W6v36 zYzqvLdP>9t)Qt(s{JgsF$x;$w9=BX4cu6DhL60vRjA))b5;R6LKR=dAtb2pjle4la zjy*1D+>VR;TyasyWj$B^%IOTgQ53pKz0X2`DuCPUiK?muUx!jheDmMLfW zelFd&b@Tgd=#CPp0olV6VD2X${Tz-X#b{i#%CKp1*7IuHYI-)d)@t2jsCHE9#)F+as@l4U_k-ws_?+H z01bBSAZuxjH^g9Zz5V2(Y=9?Xr{MgQ|BGa|zSe5On}i^8GtD}gM45*U`-pP`Rx2jm z1%nP=J~4fNhnl>AytvS2)?tymHoMdnn=O?kCPOA0aD6NiW9j}!drzg2aWb~W3g}ag z_S@GEtPh7$2B82>bm~Kl2@Tm=z?p2R96MgNBv zj46*>Dm3E7ogxUlVCPA?^HCi`jV8D1$*h^VO;$_8S zQhQ>B{*Q)oX{MNvmKGO1i(!-P+Qeix*-(@9Hj&$_ZfD;;(D<3nUaXYo@7W(SJ8hijI61iq?B`_5{qZFs}zyocrdK zpyFE`EppiN!cjh|*dOi2j+DjF^D8tXH3z4f;`KJ4*dUV#VbrX>cHX(yg1k>lw(nKm zl@t1R8vTsug>PIkAQDy92_{|clIeb6u|hxu9_zF+P?1c4Jf0uO7rTx!92pjfzuvq< zh@EX>@=X3PA{~IZhGK01hYUE0fo)j(+x(YkC9WO}|5EWoEnxhO|rgAdrZ*-<> zr)ndmB!F&tjhZm`X)x$6GMU~`m#EtNF8K<3K6X=cw~feczVm}3`^1qlce z!i9+2CuILoXvP__*{iFQ(SEmI$He_E>hf zwt0&Yd-3scGV^ROM|R0w<&dgOrvLb~fPsaQfNg`zi0cEqn)H}tu{A(SgrN1dIC5N1 zvPzyPsbM~oF2r=mOdnYFYIh$Z24W4p?fid6iM~z_!2OaO2jlIpb zimC95$u(e>t(VYW?|NH8RBmL(#6T#GC@!)ri!<|5H zG{1|ap=@%6PFhAlM@y$+0~B2J*l-Ept@yyvFpL-g(FMp!53K(oAaZ6f>JnyETm zPr<>>s%NN3^F@0u;SUNqr+nB*FghdO?FkC}rjoI(1l&Tp`OCw%`OJ9GbbcvO4J8>y zdLWRjP5`!KYMG2n3wbI>sqbdXNgb_+QG=;_Y((G}#GLtdb+Vkb`SFM; z$1POY;$boP*-RoTq?wA%p+0_iuS;YJti4T2H0GILd>U`1R^3_oRnnj+3qQSf<^E{o zJAW1Y8!MgHH)!!2%WU%b+7JHp# zZ76~fke_!MKd$D3SMRm9&`lygKMFH9W(OkK2Ogp#9?Ct*-!+;Fk02Q}_+w%TP1I4`aBov@CuYi?YwjI3RTX&LL1oM@tOsI$ zuALM~Uml1JWT`93%QFIwlN6yDR2aq*^lBE8WrLJj`K8IZdwc+`?oFZi*C|sbzmdt~ zyjq?uPV)|$vYf+&xX}C*j*YGnGh)`&)YMGYP1GTR@pq79UUAX**zDETLBQm?T57e< z+bw*FxRfM_=uU|0-V}`D4zuIVCG!uD4TRJYM08DCm4Jqt_>`19@0u!U zJ$gszRY52n&qqVv_mL2duCT;J$x8(6ZBkk8yO>D|w^q}RQ6WriuYWRMhK%^|tNXma zPd$c7KJY?w_Z#Q)D}zsS?*42W&O)Xztu+saldZudLg`6YUSZ^bkM6xSl9C`PxBTSN zX)Vo(C1rBlqjK*j7=l2ua-&J_m3T)y+J&MwkF8dFvMf|g+Wbt#p6R- zYkcb{MKj*mi3qW&oD5-dS?L-bSuYta*ifN3QPLi_+P+SGEC&zI-rs*_yQS&kQCQ14 zJm;%%IWbgu`SAN(OQ4YOw6lzjv#BH>hoC?9Fh6V#?MCD!i}ym_!IbT0qP0CSZ8Vx2 zqzjMcHn3AVfZfx->ghFB^TBN z+ilTO3)Yu|bMnreCWtS$IT(|e7R4t5KR!0~mcGYBy; z;D~NSzQ~tkX6e$G>-Ms0vM)pvyOF1{((&NdH0pdOL2;A$-8FT7{d+I1&O4^e5%s++x6c3-h+G{RBm4&qBO{6hEFUv zjx3_}iE!cx3XWKkXO3zW1fIViWb(*Z5v^14)HUqgTMrc;-g*(0eEBHW!*%>X zS(JPnSX_n~Gnp;u&{bw&kq2wGtbYhSR>O!r@NyXwR-v3yv@=;{>T~ukks$Mvy^dj8 zaFusMcMRaSrjsndkag+c$jJw8B1*99GJK+ld`#kU^}fV{3o5BF6&$nbaT<3$-@wMw zO!qc`BX*m(VmyqPdj*hhNxOr}$Y-Qg7(6C$4D4|Cv zt^$D(;(Zfsv}jMrRJtHW3LYY&-OUoevbNNtsePZb=uJ?bSZ87Wun96TFgy*GU%+x7 z3{mpAbMvP?j$Ne%Vuox#1Dy@ksqD0|d5F?F9PQQ7;RQwNtcj#4^4p~@p8WF6Z6W)yPY*`!OoIsMzE;p1q7%E}D#rM@reYquA;sVO%plmjWePl!ZoMD+ zWX)%$C1cU7i|cJX-^Xg03@#uXG@(5W9q?0yYDhJdZ0c+SnZv7TQwTxhT6~7@EcA>+ zXefmAFv#|y0EkmuRvB4LwKEmv>nciomj72!;!&>nnDTrt$X#yl@q=# zQ=Kt8(|SF5ilsC@wL`v#H(Tp-)6ZMaR7^ZXbdnzEz)B<{7{QDV;FdGOVk^eUq6Q0Z z542V(oM8@|^H*m-M?BEh_$=mgImf_9cyg*Vq!gsyJyP&2vjypRz=)Lha8(757veklrc+?b)WCW^8-i*&{GnMR-s}G%@6F?(-s8XT z--#FuW>U7uAVkR|TcnJA-?ywO%8;#Ni*T5+q$nhkWppqMgEW?iIgJXfGPXucq)tPF z<5+5@neY8^&h@*m-*rE($Mv|b`~LHuM@bKS=Ht74me=e3d=23AjtgA{3M-4%8+D{( z)M5~gHXF^UAQ5=u=riSutpiBq?V2c>Kte5R%ySXDl32l(!WYwO5RZw)h z3d-My*?%V$pm8dN2s-=JCbaIuE$%0B(jUpB^*K4KdHx*qDlRO}m>rU}JTmk&y@{R% zrL?8+C{2XUW`|8mXJ?Ky9rP6+km}%noE>G<6B1>#a33|zXkF$o#yx}mDGIVqx&&$Z z`RlC=CS1z+k_b+8VuS4(S}WutN{cr)(8SBb4>_vuZI^XoFv=co$eO)U^9{F3{(1s^ z3p>Q(Wrx5oPibDBIOHR!xWz)WlgGRjC@+L(UfRCO58&3>Xr`vxYipgb_JPsjIue4*l~K_z)uD*~cAi4hu) zu^SYhAc~K~TZx(YAm6oIR*1k|cjoE4(%`pK7M9|z1khF}GkmGQz#?WWy)pk(Nr(r3 zT~+HBusF+@`KI+YKk9Na0axGYGLDoq*AzruHUo(kG;#e-rgN@ssz^H1vO4kV(uLm^ zGo9g&v{yQNdq-@NS_djfktCWpvi2^((F6*WJ8OFhH8+gspDy{>#7yD$`43F)H5V5X zVGYi0YCT6D&ao0uY~-|LU>SG{TdgE6Qz=wdaVC}eJu<45RK;2TRe#Lggxn^YhmzXZ z7{sXsZuO?{Cp`GyP;B#}H{W9?(!Qatm~@<3Y^6i|Cg{G&y2;8MY#V5TO5po&GC zRc3I^1B}4=uChU}r@SADln?PSZ-t&v7ME=Noj^{I}I zHJR9sr8_E1bz}<7_rg7VI-#7ZA{)w!-^^b1ygtvz`D3yo%H36Cn;C>Dk!)wUYAYO3 zAPGl3(Y@+9axW`e2$5GPkMlmpqNU4PwOU6MTw1#5^U~|6{*Z@0*pl2c5%2N5p_7v@)geLKdg z1E<`ECH4M*k;D#+(p=x=+9jwv9q8z6K6 zy(x1+TTeTIUzM$$@%qw~q94;`^B?+U@JaB-!Y~^ocgHdSV1!N%zIjvf6)Di1tzDT- zoq3!vO_nB^rTo;wTyJ9vjBMDI(aYn_Qjv!T1 zXzzAVo(<)}tAE3Ip~)M0j;NntNgxAlY>aC}t^r`Bv;0-cnCnD(&CjaPGz}St z-QIKotW2>Er=6O0ghk zgS(SI{IJlDb|)mrP-}-kLki9&(?N%rL``I|n?*e8D;J&Hx1Ots|1#<%k41nu+@N4C3$8q2fX|3)J zE3yY*O}s1y45;O1`B#)qEjmi)LOc&AkKh!bT(vq7Sv994m zJ6()V$%|dskvVv6K-j@DctEeLB2qnpSoZBx$!~XEU2F?rQ(QU*s48hb#Xu$lS=`3R zxLRn_NvKkvx|8$_b*e}Lt%y|x4n2Hn2pOluuWB?`?el=W29#DH8J>sfWC6jnB4d-X z!LJ5)EugrHY_n}K|D4*#Hpn<;N>T$Z@5a3{IbzYLQA-^$z$4w>F^G(wt-wMQZcz7o z1WQqdlvuoq0E; zU_qn-h>B%RJC8=x{QT!6I5&sKDW*l#gj>eTgDPT}tl5rnCz1kOKrY^0JA&1YX~k2< zEu|JQS|HZfnS%hLRP`ncP($T`wCBtLUBUqU0ys!+6{>Q03FapbJDp|#rxSlC`Z^W8 z6f%E5OTl`TnFuT*qvqvKLgh{#n_ECI19IRWfd1;?gDjcU_HZr7G@7dzPEpfUBXrs z9WZ(@pt#6PMO?st@mNK+3wh;CxN5rM5pM{3A(Ch{T zNd|hEdcWdBQAejklKB0DB1GwOXRyur%#YVgzjR2oP@<%(P10HA(@EIXV|x*~wt?E? z9hFLTTa9|dg*cIh%scnQTzgm3LI^bEPmMv?afxJbjFLl5SVd;x<#{iEY4QntV)8xg zgqi*kYsa{sN5!sQm%iywk}a2fEDst43wA4%gnQ;W#}Hg0I!1! zq9EFvCvXT0tqW$`kG{=>S(vYOFCZo4mmXtv(-{oWcb^eAj1$9^aGR7vAH{^e!B)8-H8)PdwV?k4cJ zK>UbxIU@9F8RB}_(Q3O@;AfLtVQMCDDRCh6VSX$Swuc}r3`*7K+C>%Ih+zDBPkAK1GbkVvmK zHo8St3*KHNjZe9s!QYT~YH*CTylS33Wzn1yR-A!E)|Eu;alLQC*08Wp*C9Ik6*R+A zx^DG+I@^k-wYz~;z|QMVNX4B%N7N6-X}l6w|Ng0P8`xU%quU=rJix+u)~@}#UuS)J zl5$J^+(Fn?4}p`2?`W8OxW0Rc42t^FDqKYYg>w=&6(%mqp5HEkckIKT603wO$f9UT zQOqTNf86S7Un=F*izh|S_R@gH2FM)hDwphK=D9&~uz5R4EOMZ0ZwUUakdwCPcJzFM zRnBw>P>~jg;+DHqPJTW9+oSfge;nNp&pWAW)D!zes0O0*my(bD5V)ifBAgN-HLgvJ zs3H8&;JPGiGZMjILHq*2`r;93TT~|4Hn1wJEaddt;8h|1Im+Za1)njB!GzHUD23b9 zsEEvvbdfb%hOp^fGXCwguum*u=-W{cqpWLm(y9|vPreKG+YRwU;AX*z&L8h+x0ILA zGX4Ny?y|}X!27l|*JUqKXfG~;S3P$ZegbAp7!9%ejRwSt@q2hxpV0GwD53uhjawFB zwjTTESpT?`uNj$-5xCQV@WD$C)IN%E{ZLx`fl{hHAVv2+fIax(;ofG*r#VD$Kj#tp z5`~w-cP`*%6V$>;XfE4@SCf@Ivi)u8*eNLybKJ|AAjQK<#kdVo_Gg zub2?t<^>F!1vG-tT8^|-aP+2-4SAbPYzjxcNYE%Fto_bgVM@sDO%9E_awJE3q|l$m zY3mjD4`QXp^!bEF&zl-gWu*6WHrHD;jj{!n+ESCE=4u!j8Gs^JEWOc$mxa=rRlC2H zb5c^$sa&Y@^PP~&?;hxUJpM_xXvK=$zWL&w(1*0{AICVnwjcS>diGXlnjvE|IAR&# z%y`gPCq3h}4$S16)@DxM{bNA*J;|jzvrlpQeOkL7HDQ@?@)BInh31A8+PpAc(chs& ziP5&qV^Wt1>~oZj(UjP)N96YGE&1FZ?C_j2;Ll-h+q-B_go(XSV%j~Bj50M@B~cCq zq=Y|CZL5cT$V&s=$PfVvz}Ct7r%?IL4i2p56n-gq=vD0(kD=4BUrp+|rxPw6I-?A) z&ZjqTLi307I?~sFU70vI+L()F&HmIGbRNkwH=0_0pX=}P=ze-N*!ZIJqP0q!V;I0A zgV9s@^qq&aA=?emS7e=O*+(~2bEKT~WL^AyqTA@!0w>gRdt@mXVTAt@&wXL7~Th z?ewMI`Sll_rQO4OYli45$Z|yT>4)tnb9BGB9-q&OExVP8%f$Wm=(n?f99!RAv`cB1 z#BM=tP!~YuXL8!WL=8|m|=!Bbw~L9#nP8E6l{*bQQx3H13TS&(hqq_Iko&j;4- z^w}H{gKWu0M?9uP4L_*xQv0UqX|xMm_5_UknT<+F$Vv{i7_6(#7p4$`>%j$x1#$Lg|Z41<;EP?e(A|&|Kr}$-xuyL-CqMI!1+Z2?NVHZ zr2ke0$PKn0Wb^`$1RNE*wiOE2M*H`>c&^;KFbHNR3@l+>Sq?1=_8a9=8)PlEN{txt zob(EcL9G0de^1ByZs~dn?H?D)U)?C^aU50_+%HjUo_6q?p`DvXjJBA7Nqf1IMUuK) zn3gCaT(7PcJ)lEYY<}&ySmNJJOT1;NBzQ6y(kN3~AjtIH$~L?Mrj_@-w^fR^&eAFb zq-%uw>BNSSSFb{l3Kngty_}@tb5hqDG0$tFW)jPe)E^tIBq({(6*QiMbS9Jsm*1u!x=DH+6i7LlWxqH#m}+tF2s_w!)4 zKjW+X+%0AXl(B7381CA88~rlDJ&l>*3e5l+jxC16s%|JniOY8;RJ8>zcy@iGVLmXu!N1#4EyF* z`yY)j+j6Q&=Q^DYMz7QRPgR;w%8J=(;vis3Q|typua>vHnInC;C!O@oGn%Z!^8z*5 zXOh2ZJ$P0rjAf7_LkyMY&lwdqgR*SJ!0X_01;doJk^A^DC6+RgvGP5ymDGgpgXyAJ zK%L2(XW{QzgfHjiHFnw_%bT&FAGoJpAsrrNZ3Z@@{&{^S_>LUv9l@=vzi_=~xjKr? zOXm>%P0D{=s1T?S=?TrOvh-9O)coa*ka!kwwEc1=?5J7ZuSM#zj_TbF)b*FXW)&G^ zz{9Kq_eF^L)zd+*-flAr_@l(}@f6yu70mschdagBt8#gU-j%)<#Lp(-wi(>xo}a$qzY?MVU}WjE6+4ND?E{ zn6j^y(RBAi90`yIU{G%^E^tVQ1g5(}zyEs(UY<3uqh1yquJg;W_T2NqlJa6t@9q7U z$KT<(wul&Qwfy;}T7yOdg-ol84%e|!vwN|n3ukc7of`YG7V&lGyYHNx85ov3C>7)V z-E7sFW}Ved67R)yH7612G1)QhX)OMkCw>(o;wW77n2*D{ql|%|yh!HAS z{yC3MQrX`F(#<}aZOv=6+z#xV=@5Kb^pV!d?+l2oZpvjb+uE~(f z)MS)(bQYW8ex4Y-HLfIgMRmDFGhCd+!^(jqGXL#YAhon-Y|Vx-=u^vlrtm+bYT#gn3Y$G0C1zGZjv} z6>v8Yb!U_#8O&&?jIOZj^RbH(k~-IkVYDQ{kDx2Ap2bd+~6Hm7PE zDPOfzWe6`={|l#56e700#BemO5jGOL2UplVqFYqBI5Zk{REEK?keP^NSS$|F*}T&e z9+v34ha6Uc9>6{vn4yt${GymScNmuqb_iR-OQ)LaQylT{3o_Clm-4C992tuXU^2%i zM;R??ZFFSt$D-6GzqeaT4XX*H?+D>5ld`^X@E(%~SYE)Jg7yarab~#lB*LVev$Xs- z_xQ2C918)4kn8YGzg8UZv$a^-JZHz#2(*1BNA}2v2nZhO&*#FdoS)NTdFBNZ-W3g_ zoKH&sJ`DJN@Nr7`-fMzm8;UF96?OJ&ywg;*;Xhu{z81Y#np9jDmNs*Jb3xO{3D%_q zo-}-|GQ#Rty*y^ZRwdd~KDRhm-6VFbAFit_ERP+rSQ^`?R9~Vp>Svc3v(QpCsq*;b z-NP^0@?SPP8B0|Rag4yt_APllE5CisQWJzR0IA+ z62(~E7?yok0)uSzm=L|yZjQN|X9MPdFO5q~2ydR1uoMf-^5T)Z^b~?yD0|y+G>JW8 z%Fk;ZpBlqoA@$a3X4f5J@-IGl^-N@505k34H0|zItT?Q2COI(pO;(ld_p>Du7Z3!G z`D|y1ob{wgSzvdsLg2P!*cdNFn8WGDlp~4w+9L7WHS=m zBGZ_G+OuR5r?r3G7h+H3>=UZhQxcSDviLZX<8mn9bY3{0h-Ef3F}E4tHs>BE)(Ygq z_H#vv7gf>LB-<;yE*o|R1p7-S@S$(KmOJ_`olg0b@3g4HVuRyrN5S+^?A~s=(B6YM z|9zXStNz?_5;U;HAH8(($*dkoaVEiKNIVkW6bkN++yqz8pvW-UOdu_2F@sZqzGAU}&Gy+$&J;dnsuID(I zVdPXKsLn7~(W| zUr@&)XMa6kd^`KeAmZ9<5I6ZD{|oP3kh zEeDgB?8A`4Bmlv>=OTgzZ$Kcw~?2zinVo4P}Y7n#~)q)iJA?Hc}Sq{dFAjzrfL%dJrU4A=A}f&%bM{l z`b#MhF%yK964ITsNy~*!zlaE0X9-G3H**qR8oLqCXfeNjGO}D?HT=#FxREqs{U~hr z#k0>`*g`ZrfrFvRldpdnL7P=e(ZtOYaJ%F8Q?#ScxbGWSbQU)iN5&_hGJydJdpfqI9;)BtehV!Gcb|l zGP~&ZaU78%pRhSMK;p9Ai&vv9_ni0Pbzj7K%KWERmWIPJ^u2i=@zd(^DHTHQ zA9R=8$(6j{U&D#9PVH3|P-I4Z;yD-pqPb$@(ioM`cW>nEJ%VKpRJB*0%>VA?6PUo{ z2G?zL_;k*Cr3nr%VMYqjqI2H>c)DT$}NV8YS zax?ttz9jYsSq;%mW*Zse_m`!-|5Mz&=!4P1CnL#y^`oQVzD}3pLz+K65l}I*%mqpC z)m3C7BPFpLnzQFKy1Mq5&o<+0Np{)l3+J6zQ%=fSx-H_0@v@G}EGTFSBtq(=>7Crb zbfd;kATx>fSe@R9Qx(`vz@@}iBW)GN4*I-kJvV;|aqp;i@oCqij z+!NM5CI#u*ghNXS}- zvs;c|C%= zT1p9?vd|CsrU%Q4gCj*qu{6&8!?Kp)R{f@*T8XZ?zu@IT(R)YGK~P%y<=j#eBbo`; zxvgJyWott1XbEq28R;JXv7eL`ZFZw$cTuLJKuJCf?VIcp9REHBuI_kw$a5O|;bcs1 z5|%aBSh{(gqOzh4soLHv+*8FNo}Gh^~Z1%arH#;5CWZ$cO$I9lIKB@SBOK*O>{NNji}Do z06uF2Y`+(!53VN{8(xs=%k~Qa9?&q)N=qwzwc%Em{p;Uwf?5l>+>~%oMq<^_Cvx}l z*Hm+KZIsOXxP=kIxj02;3GFl0 zTdU&e$@eCVSCd>c9gKIo;sUXI60bckI@Ad{={q~x2~GBjE4tR*?kL|k=5!{ZSkcQ= z@|szu_oDb|wY|0}gqltI(GsyhVX~=El}*wuqOv+_e9d@!u4~*!Uohvegd#B`DTPR+ z-^vzcFP`7FpVw`$7Roypib{M0%i4oC)p#;b-j=cPSh|1)PRDBkkG0GjK^1=_HsD6$ zHGj7#%`jI*V2+$k=~}T;Vz{35}V3>L337)926FA*L2DGGr|TW5<{{p%GjC z{GR>aFMl9eoBl#B4x+{K4K7CzDU#-2)hSTO=}G&elRQ^D^&zg-XR(M1uv>-O9e`Th zTq^nV^rBCYOVf=i2Fv={F%j*^)r~SH*#PG`+LwPmBxWj5k3O!J62a(pF8vNfh&}=)`AZYBM{|Yf#6LmA|&&*xor|CeVw{&Bj(lnsp_fL(Oe5gLKq3Mmzq*?*yMK@LFv@&rK+O0#syb3w!W1<*=8(5G5pEb(zRMpLMQ!ZvWkeg z^0Rp%(OLidZkB(|G1JJ*ZRUr()87t@d-ju%&nzvdMRJM?@GrkigbdQxg=|61(pg({ zGsq2Is%fog?QM;lyErmOz(td{ie->7*;k~jZX4Y?e*UEL$DHG}S*ScEFCx|Hqy|Y5 z^z+jzpOL`hLy>{)V^Ic1q{PaThwfN;plz>x%0-;Tc|t%~HjSC&udW{Rpdu(`0Cj)yTUp9{r;l*P_PewqL)Xh#s7`Aq~|*1RO$`S z>zX5OsK@>@JAIA&MQFHPk#g*zsU&w3QdV4!j2l9R$0cKyqf#A-FmNd+tZ+r<`YTTL zMSXz+i+dC7pY2k9g-s*P8i1irRv9^B(^@eb3H>zS+)qn`M9yZ8QGSA16WT&84k-`w zlNfGC0P4Z!J*HsvR&@pZAi}_i=DkIOOC3CMjIM5kDWk#+8!Q>t&28&ODVKd#Kjlc} z3o7dMiQ;k)d3CBk)9sBlm@IZiLH|uB!k8yLZ#!_ZCL=fMujjDb>Uo1nd2!dgt^QLJ zV8`bs*0`J0fT)lA_BI56AMBZ0(?aw|FQGHb@^0a=1}*4{eKJvc6CUSO^!ByrgTz%( zI-)3kJ?DWVYWM@{BD_t@(@F6VluhIZ-#!O-+-< zYlth4!ugrPF(P${#6gyZ%h)63i9s)oM5)JDjp)OOmxn4#BcIwu@bBGmy%76)R}Ji{ z>?zs7;0gVVA%~L7&66_|ktK0veV~$&&$hT!@byMY-D7pd#TZE!5j-m`a5W`mtvJY@ zwsm@y-^Yc-O4bc`psyg*0Kc6N#()a=>|REx3h((H*7$?HpR>Od;Qp( zURfQL9Pz;4-!}!AfKq)m21+0L!}6(~ z@B+>$!fg0qf!zCYv#QP^6IYBdS&jBpPhKUD+Z0!__{8fV%b)Fi#xlRv1uM0&*=f1z zwVZ*nrZD>yvfpI{lUr*!%|!-Crg%)~5%eXPU2nOuBDpc;*vI>IK}qPl31lE z-Z^n>B7t)o7_54E8SG#ud-cQTnmN2kmapwCwt3XyPQRZFcG5(_x!y!XM0YFBk~|%l z(bYZZxM#WKZ6^~MPs27Nk9|y ze8W*ij+$9oovPs3G6ZEYWc+AiqyA^*_=?2FTWq%@leI(!cEp6ZG z=7f#aV7~Kg{00w2o%mX~2l{$gB$&L??EPAN4gqEKx&*Nl;RmCBF!jnE zwPDY$P8-EM+a+EQMJ8^}T?_WrnI}E)Cpu8Z)e)g%I+M%IA-*impi4X6(yvR3^6C0@ za*MvB`hy6@gR~htG!B!6lvl9mjT&4~DNC#bYaW_?ZG-h!P(HefM23gDNn27Pt)5#U z@yC!zr5_Q6884jS!!I9^^J9Fonk|L_{=rW$zxc0=lYxDA;N>6a)q!)t= zml|f%9XP&)C9A`2PCjaK$3D`MowJmn*epsLVV3ObJj7dGUJUor-|i|2IoBNA24$#% z4HTNS{3Xvz9&JAM44&b6Ca?6wymF*$5#a`h zBe%h}jM)>NGbf>_ItFWXEPWI#4^q=BQ{vq0tGpG7@Y=VBM2BP?gEsm+pNQra?(YK- zrEqj6Ue%kEh=@cUpm(Z8cw0q`m}~w8GQqQv3jZq*?Y}FHMHlTX*R$V~SKDhW-I&=a zgjuO2PGoxb^XApD)>{zC&%rLe*vp}QY+lEPRKFPn!fv3cY{Hu<2e@*P<-bOQe_Q$= zKMo%_r&(&dt|#}3c6|5l_fH&tf3<+uy(=gwn|JXyJlgMueVF^jjUz`a{L=r*>p$60 zI<)EJoUg(*f_Bn*?;gDs5$`6QjfXn9n4tz4V%5HBmlxQ84AF|eWI#ei97K_?lCJpS zboj;?gp_pF@B9t+AHV(2sDS^OwE6#ctnP7?zTv-I+y56>-TxM)`+ttr-TA>C9OOE+l)X4>dr~r`TXDS-}wxjy8m@B?>|5P|D@`+csu-h z-wZL}|2gAhp3vysUvA^d%1sw~zyI)BF+HrZF+U1_7P zuvl-oVN~IkWBmGzGGclR#rLHDfB3zOqS|a7;FyMLH($`dw#FAYwfm0P+3~9fv{%Tt zWM}T3JFC4dy>_iEOzFZOBMu#)q7<39dokdF(tHmbds<-Q(4tKgLc`~mkUZqjo^yYE zsP=oR_~o*@sYUpsQQ|MXFwJA15Z4P!r+(hDn0A-`kniy$ab);J#n-vAnhm&R@9GJs z!uL77D&GB+-#U06k=2#?-9J_CUJsuk5t_^kOL^xW4_#92nm>48)O2{O%SvrGWy)?K zE@O3l>Y?}gAKf4F#_CXRVpr4s`wBD?M2(E?7r*==eOd4JbAh+X7Pi<-s-@gu*^ ze0=e2>&<(U++_3(wl3D^_YV8>`=1J2MIUil{9S&}@eATwl((u6L@n4_X#Tst>umhO z9GL~pf62n7q^_EsvpdYjd>j(2b#?4d&3+@MC;DfglNkDQcVL-S_2;s{%XP_8>9rY+ z%4553XP0^XeZY5eF2>mpvAe7HaC#! zm)5l|QElGRr=D9GuhU}sBuRI0+WldEjC$9svEpQ|XA0FIQo7(&K73<2e)7U-Kv&X6 zg*W<}X7c&1a`_`QVY)TsFFMVS&b@yXSm$y;nt;75Z0ywPq}yb@zog;!?LdNkq_ktf zvoF6{JiEI7;F0wEnssIEgO7AIPDDTb>=$_pjCFp6pSHBI-Ip7t%mRCtXNFX~f`fk^y zXhd`%IXjsYEjAtO7W>P!@GJRN%FXe|B#obW4D816Up0SA@EL6jIy6eDE{r^-_l|-7 z>#wUUhArpL^No8`c_W5i4o8{sR-gALu8WJWi!(y;NRhp~bOV-QC`X)1WQKE!Za=7% zY~oXN2giC&)rz0nC4TO{kC|-nTj=LFN;!zAbK%${U1>t5mY#>#pE4o6=r=kW*AD(6 z`DLoKLPfwW6eYT=WxEG=#!GeUnULm%(|3~p^7-wT{|Km&`SpMDlr`MpZtvWx|CI&% z&wc*CcmMv2?f$P&)Bgnvw&lOFU~7fH|Ihlf^Q8OFxBfq1!5;tb4;l*#J5NvRkYvlS z^D&`eC~+MhY-oHqN>^VGFkEfJuouJQQOA#?(I_2rZ2YgTVV5mpqGDsB!=mF+AQjmn z=2FaMkJym&VLQOrMC|!6o68|rKr4=6(HB88#|%#xp7{UFg8jFZ|9aT|$1(VS?|(n< z?U5S?cJ6ie!Rz* z0SMaI+}!GIXkzUkqed?@F1?PM)coY9vgDNW^!V+8^p}4EMqxer#uNw);I0Ct9?*(+M9b(sdjsD^}O|Uv21*FEja9c;^8_I>sH;Uf3KUr3NSX%UHto-f! ztDB)$e>NZi#cPb*22!e~wz|6Z3GGGEKz$I321mVV8GqBVbfF>sI6!*c(j*z*#oJ!= zj>scBuR!0wgNCnLIKc*#iP^9-2TVf~;}(-QL8}K$oA4Ju|IH|W+cE$nmfMtl%+JW+ z#d9faQx8vQ`MdE#cSUuCF=Zly-~H@ExYcvOy9B2GaLa!>dqi1AP7%0Ih0QHl3a=mE zJaGH*4y*FzpFan#B!RdL&`+LsSN|S7E!y8dr|u<2*; z;bcd42K3Vd;37E;5{t0Y<_?YwU}w4psH-~*S>Rz@&;~t(EhyIlR4Edils!_gbFlNk zw0{cm9C1~-u!s!^rdR@w#qLn$(JFACi^ zTyMSsmm}q~Kg=K`d4S0Gc*|uaK6G?pWjV7IYJ2+!Cb5M-dk{DLPPEU`@S~xq00Bo867lnIx zfWz_tP*2dOe;Uj?<(TS^X5BeusTc!ob9l8oqyQvd{uu*1A3r%oScv z@?MVK-Hl0*24uLm;zFKMfY|v#{a;3^aaf@f9gtQ*(V^`Q2u{)Q#IYS@XC3AnUNOo7 zcw2T}%H#$Tutq~k+e!*?^2nWEwN~Sto*LX5A7G8wtv<4fcyalormGWJ&>)fG=HRMn z?P_lAWn@4@3ULbOcG{rHU>VHxZXUm8C+=pDb-3HX{%h=r zRdF|w_`BJ8{8|lnnZNT;CHHM_2R{g^8T5_()1N~76m`%xiOCFkrVOu>D8~@@b(OHA zYnk7dMvO2ZfUNu0%>|VgV!LyEzoP4V-1Z?AuqkXog_!TqPl|@F=F3CJG@}4zO?o4ygQ~AgtRA{)x$LEf_HevG9VG_`W@=8+|_uY|~to_H{?@jOQ)#Tw1Q2%_A&r9Wj zkU?%*>l812X#JI*H$6)0P20}^0Ls+TF25+sA#Yh-wa!IuY70kD zG~2`q@ct?$79f8t)8|P2`QeAqW=~{K*5(~|JksJ#W9IJTyT2>T5h||OicLh8Uo|H7 zQ0d~-#osk9Wj>h8im%ZSX1WC7K0i7S^|!4;L}-~z<#omkL20c-AJT$?o2{bW=*@Vr z0}g_qgJ&7r3$hsEqT9Hor*$ta_vX$)1h3E4yG`6-R?icSa?I}D(nOf^%P~JY>hF5R zELB*+2^S5ZzV{^@j8HbP7Hgg>IVM_^#%!;sL!?G*Onp#%cR0hR7gGNt+qf(RL?TRsmmR@?^b;EM#2)QIl3BJ z4sov?OL3u_(`q9lzxqWc?kPA4YL)Oxi~<%UktrN@bMgG6!y|qr{iiizSLF7;2J-I= zlf+w_XKXBkyM`2#l)>d2{dInH-WcYdFdMjqND=Z44X_<}T=Gt1(-&(o$EX(O`9Mqk z5PxH!j7@lSY~*G$lN#>5IHYdsZ@0NF6b_h%F=}$k-)@Iix7t+mr!vGyT{xOwKb&sE{%EO^ejf)tv$L4&d7G z?AElUJ(lFz?d3TfH<&+z(Sl}45EL<|Spder-}4Lg`~0UPN$p&3Zv8PIUOfyjiQCZB_jv@U3`|Q zjsXU*Ur;5rU)bz$&H!F`{l5kT<=7H-IPYYMt&6g#)~bfk24@qT5#$t7LG@Ea-Q8Ir@-pyd?FCqnPfGvX16&a3LDoW7MV-d}g^c%?#m z5bQk_H`Py%dk|%il}coOJN+RkxD}n=OBA+^V^bl>KZeN61^HVXsGZr`&ws!Ddjc<^ z@v!oi^W7XX$sOW-lRFvW5*b=qVP4eo%$e(Q@Kkg4sH@A0nwF7iRd(+lFkIg<% zW2kRDIA??_)Y3N1i(|A;($d;#({`Qy?XA6yl<9^03YO?fi$YVQ*g;};Z+k`J7OPGM zKBM-qH!?)`*edD|R@(=?vA-@^TIMSo*Xpa_;Ha<#cxj2E$w6ary%N`joiPo(es6RG zY>%DCB$zp$$-j{3Y1uw<*hDkmzLzNO{N}|&bJ!a5TzBkTwdY{d8Ftu)LC?HjqZUp3X1!wU^ys;x{!w)`@%9IlXCHc( z>Tlccn{f!4!_^&KV_61ryl2%UkB|tMwR$tOS?5Zh7csu^aCAaJbQaU|#cvj7_=Ubj zG(P+Y?!I#eKiq0~^ooQkudbNQw1*O$3`%`+!>wBUgl#QU&2=SGs#O+~FTAQ8;5kJG z+!L8i^N?SvS|OXpq#xB5>iYtw_>;kCbY`{C;W(UNd#T6PT<;2tzeE?@isJ#4D^dbv zDy#Tr?|G(i*9048qOu|u88ag};s3pltDMQa&2IKo^VRWgIasALALSalGE%q}e*J_< zv$vIEuI2e%fsw?BrSAGj7dy$7DHtGz zLrc_+0cJlr2q;8tn@)aUfLp$hsvH=ZUY1@4Wq>N_9%p%oGn!alK&~dcr?l-9x%Mr( zLCjz;9=2}<@=BlT8b25vqkm?sS0VMx73xyWDwLK%#Y-4y=Sb7+vin?|_9${0%tVVT z$|O?ARc_i5T|&3$#iP4=dHj3c&#bfG8yP2sz#=AwK$N2fQQSRuMyRW|P_?j^ymaQk ziXvl!XN1+8wV+rW;0gbQF=CQhWxaSl^UV!i{2I3&Zw8-4f#s;zRtUTH)!JH3qY~WT z!Q?FPa>)ol;tnyO|IBBpuhCNv_u)Pp82-Cs&XgGVVRphE@&d(4;L4?+9VXg zY|d-Pc)fq`82RSOP?-H06VKx4st~-ar(Dy7YF)8+SDikqp~~IMUGbK#N5gw9th&`* zTk_YU;@hi!tb@}L#mO$t?+)~Y5-6i#sv#e=?5*PWh~j!hEUp-15^@F;%LrTZ4k?RS z4J5IP{(+CxOH)%S?9yk_*ZL!tHpD6joSd32rX4eiPo3mW&hcP)pb(G*Uy1 z(?mr0w>k_C;)+Io4qN~gbLIyHRWV56)4WjlF~%q-vF9`?q9zpt4De^VnY46j&2Dzu zX2u*hn8<7v0|o2FoxI^s8W{}N$t|#s+;*Au{hBdvP@Byabx|(!B6f@=66my>ym(mDs^sWwRRMhl`SSLyvufrWOtR)1}&Yq;x5I-xQPA>AeZDqN)4| zVF;Q4@*VUw&-9`GCd35eEf{yh{rN5@PxCJQoCB50X+Lt9k!?So@gJjj&TW0ZAu&Od z&{HD@v_%0+g{gVd)Uhmy_RN_N0s8H@AX$4^XZBT%$SY&_71d8Y7z&QjC;QA#hv?5K zL`xC#&$URA3r#2oaPy=9bo*+-5LWc;_AqYDn*}XmSl&;qpIQwe zpP@#K;pz-%%#INPeYcBd6RLr4uf;;^n!5cixH@yI|4=w6o62cwTbcXLziQ8o)_Xle2vfzc^APl0xh(5k{_T!GF7`|Wb zGXL9ATrMMRD0|fv=RD?mx4c;4#CV2f3{()br$g-dY*NJ1B8E*QHoBbuZj_8^PR2mZ z#gD{qJuSK^WLbM?WF|CbP&H52&!jIxYW8Rs*eOUDPfBVuW|%X@30+e64+CrC^O2iP zhjN;V221)hut*@jKU0ghm%E$llU`Pf7%8*NIu8+N=8V%n&7U5Pmu8z!o3qUmAIqUf zZWi^ulU*55G3@LNhIr{)r9mI!#=SWjlArKO(6`gvP6!I>21=b0D3IOI-%7VuBC6c% zCGx3;&{dxd?i3rMPEDQkqe*m8*U#`yIYZRo73Ss!b$L1^9T(#~IkrmWI`sKbgB*-h z{?6c)U-p^WXo;&4t;+7R%PDTrcQTrwcCL}>oMy%rd0C8alhJ7_i+Ny%D+GXte3x*9 z(Zdkc(8|UgNcK#hZ<;yd z$~uH8@^;)G$#gn88rq=pP+YYmr)-kcl!mIXaq3b;-{F%do4V%g6@{{C*%Eh(yEu}0 zv9(dE6x3RG%tpN2{yh^hFhf_LD`CDcTf>pz(d##!$m(S!rEfB4=kXHl7?Om}5BQ-U zA5m)_A-8SRP@!ipoV(jHdPBlOSlud^be@5X7;uyglg!8i#nk^7d2b%oRMxF~S1Ceh z0-+IUHH02TdPJf?0Fj>1BM2BlC3J$)C&vJA_fo& z5SuCj(r5)xFxlUttoqLTefQjP&l%(1zix&@GLpS_n!PjETF;#G_t@G7#4Te+V>kzo z2&;B)I8GzTR}5 z%VWl}1I;TE2tT5jj9^`^0z22f{=G7|7IC`IE1*n5PWQmlI;h>8hF<+F-46MnS)OYU ziAezJp%P`D9=aY1Qu)y7T7G)Bb>!9S-V6aGwKfk;Z%kkdnTxEc$a^*EcQjuM7GFK@ zD^}G`isxOPEiu$Z9Eb6Ot^4DJ$C$ZB=5+I3%Tc01QM)Ee$75_$zcYAtPG= z+`^F2QJFSX>9@nbU9IF`t7;Q@i)3$ZDONfoEJLks`M#Hkb6|Jn;Jn52Q3_5uSE_qh?-X4w zdG7jgseF0vZG!R(*Y;x@Yd!!*-Fi=)Hv-PQbhY&57KTqEzIa|hGFj(;>!aeFjEe5( zHUeW`#_lxll*G0trcWZ}^9b%%CJcE1kC# z=tN-(Y@T1NgnQ@Y+zzNWFH%pEK!nFXJ&URnVmvGW=p&(BsRCZXEr~GqMz-kcE#O*J z_4<}qQ4YSS^Xl)1j*?{gRLrpZ)zi#0y}5$LmeuY17MauY^VH<#3ZAOp)zhI1)}fFn zuwtMxYak|_{Q_~KH+x(9^(1ipuxmE>5WDS>!z;IXXP1UK&=CUI0;>(_G|;jQG(HNh zbCppM&8FO-&Qh4{L^7g)sv@8#B#D@N+~&P&J@fR1o|Y5*QNM3$?l&B!dus<%Cv z^R95U2y{#YvZSSGlPRAVg{TJakNDNQC~0HunXV2tXZD`a7U9Ek z`Qi;oH6>WiG3`I!VpL3SiV+45xgz^9)jI^NjTKv48pTpx8qVup)y3|&hOTnhJj+t^!H<>e8fph?*srR=tEN%Vr9qc%>MLW>&a5;zx@ z4V-n`?ba}^MPUP|<_SqU}B7#bMk$+usU%iM; zjiMUXLb9@;?tKU(gF9y;B-b4LYiz;f%UyTb$J0$%FzE zS|!ksit-FamR&`}qdbM}Z|wQFztFqj_Oo&Oun!fqmdfPO3wu0-b^HUyBiH6v!5o9@ zWUrv*%yTf-iwj+E>vW;m;@d}BqVdH5)|I0Giid71_3~7 zUfXzq`28ZU8{#qe!}RF|ef)T|>CS51JyV^lC09XOqv;h#SH+vjH>mA%AK|J?vAZtJ zeNojytF;u~AO0La@>)}LH1rd)ktC^SZfe2m6U9$Ub-UrFTkxGu3ULc)r-yT2RBlLm zpFbSsS5_03@#KvS?x3M9+=8tmR_y8N*)r^|#I39PkX=ia9cgAS=$kVKh%0QzK>Tsg z{bFL%KQ9uI1hc%4uj-B7OHbpkai*h4Yw65c)0%5I6;MfEZ|qKV&E>f!OoX;=EMW0j z*<9w*(#l`z*8Tee^?Y40IWjgHI!1}5^mnj%GxJ=%E-IA*CPx-yHSa9mT~D~IuTc~w zMPH`w*)3{V7Ljz%#W#eA7fYc$ku$^DlF%yleg#xKZ#c|WJ#vR9f-MFn_j}$R{&>w1 zW&(?Y?bTJWO$hdcCw@l|tv+1=ziPzSkoGxJC{3ViJ))o~?C=pQqpoWDIBr<`S41Qt zZphH_+Jeq42`@X2aJv(zY0cgkX3h&3Z*I$d`qdZ+s3PoWty^*tr%f8B%HanCqJ#id z`CYx%I2(TyYe5fk9)-u?-l33#z5PNGRS2(5<8**xxv^)*`G~F3C@>)F!t$=MNZqc8 zaBuFY`;1}VxSLs>M{%buyOuWmI>cGQA6-2;%uhe!w54e0??e;D`0|tDYB>&>14K;P zcSK^j-DBYKVMqQ_&B}D0Jq?w7 zL~U%7`M8{%wSl3OHD?Z|1OYUAw(v}7&apxr@PV)HMdNe;a;0{|3PY99j;!>h(300| z)*OklK6)Ifb!feBlt&!>>O>KMbV`{$Bt@=7xwerBvmU964p`WB$j{zW}JIBlMW3?7zy&~I-enzA_-MH?vCxg&?vK}y&cT3%_ImX|11=i zAI213fji!*!ln8?@`(qDt(}}GTD)V$GL>5H=xa+d1S2WIRz0bSHgZfl^Y6&?%uwff ziNt`@4Vh^-5id+(1jQJOZa(r_XvJ0Q(4J354JgzT-$EVjT7>Uvlc5itC2Zd~9y+D! z1@%eZVs|x0ScZ&#IX8P~nL$y&WcgKZum^wJUDkje$~mt#6Esr7PEF39B4&NOy2s>} zSTxK^?xz1)%#Fef7vdin5RXJ;zu9`j3hc9wpfyEfdw5-S;xJRxa?kZ@c|?R|9MQ`7 z-E|2KJH+KYWM*a8`tgQV3CYz)q^|<bOYiVVUVeh^rO!{jzD-$WD1O^q(8|5R3 z*m5W7ho*|?^9lnE1DL&Qj%skdgo5#vo}341LyK1vMWM#g&=6+OX!Z&fj077Wj;>8l zM;HhM{DU#xp^T)JuY4hjCj^CyudfaHKuev=X?}==g^(WTq)K_Cb%+d`!8jwr zk5vM)D(R9rZ(;Yn#+R4fFCX}oD``D4xNJ}fNXbcRM6byu3v;GDzZNSUS8 z{Kh~03%EvaB->3(8rs;-LpJYQ?2Y!#=2|2@KJoKv>DUl3Ovq&=_c<>PyIIFX>o-?~ zws$XiCXc&UXR2Lf7?MoiH6cuCrV4H`aiyoBAn_qL!%i+ku+YeQWPju#l2zR2dUH!m ziRBs&O|En_BnE9;5PU)MY3FishVEaf&&{>HjZ!ys6nK(F`$YR3^}DD}`Y}}Scy2IN zyM$W3d(`JzG+y$dx7@|4BA?f?QGfvK)RtxDb0ES#h6>zCIbk`M3^AEwp3)~(f$QnV z3bk)1j1T=+*NmZ++^s$)`DkEt#kM}YiOa;W=Wv$k&0r~pGREJ?vJ z_h8krLIu9JtInn^sE|@yLFKlo>_{?4i=(vyQB(<|OLb*oNvG~fx(&a%T{|9?wD%xs z4USFflKhH%FQlw0q`ciND^^XIUxSN@TQDQb+1rCIfRaR8GV4hT$ zX5eP5z0YlL+v?o4#K!aJ1eB^R6V9GLb=G>7`n{E!tqqol&ria7cUW4&95PRG!=Rb1 zxMQHfT#fo!xaW^v;+Dck7IFXu3Fdy!1M9)0qNcD@aCb+&whuQTi@;m_9@YQrZm%Ss z!!qc@$OhAMcTvKLe_=Am;d{%PG_JL=H&{*=>vacXjEv3 z_~+YxyBH12$!#MWQ1i%k{?`ydTi<|aPDv|-j?|E~0nGfT?{lJ{D|J;ZtG@Y^38V3a z{D`XO17`c{xi8AaszrMW6UxsG)sDFXdz>dQm1O*yQY7H@k!44AC3O_nKK)t1Lgh=c zM2=;=CFa6~;Q8!ET43`0e2U*tEr--=s-RuVg%-YRwlBYgWn?N|HTn)tFMg6*co@^5 zFl%^Qo%v4BR2P<$vpl1(k;!qm_|Yk{p)CvTW2yjZJa8$}yTlYb>;Ge^CT4>2GFCQ0 z9rj-;Qj`zBQPhuD-LYq8OAQq+Y(J8e;pLiV?0PYXQPsdJj@D}UiYe6Xidw3ViCV`_ zIiTzCyhSB9|1}$80%}g?tiLu~O^V9kwfnnQBEI^U5PeP}-XbpOqNYbz657RnYt0fS zV2Kx=dmHc7jeFt<&Y`2FZP-F<;)yRAMau3GC&_Uy9j2e{S`+>14x&*oeKMVdGbAnp zLs}N%i;b#FMCpz&HYcx+c+5v9cDl9$#czStrx88D}Y{bbLjUthf@(nwxQ zZVFxr6rJ7YczMhaQr6y&pOiaB0;jd#6OVGC#i zh*?*rw&2ya#J6P7S-#NPyjz>6jU>5Z!f9XnzuyaM2_HK2mAA5fZVNs{C1<3;_=h}v(n`WF*2m<%}Xn|4y z$_i60&JI#f03OOXtf3ngbO0PmUCP4Q282v6p{}HD&WOlj;U9Wio{9w5c5#t!SrJO- z{M{g^M!NR#g+qry)dcoqMAyuorvNr9uL7$Od=%sg)= zwfk@!z{uygFBf08%T_lxr-gCunIT|VD(K`~fxew`Bs|l>p0bh~LmV}!M7(_VhwxEv z!%lH-HDYnprL9t_PYgJ$h83$Ido@^iTo&fhA=1S_5Q295)qC7C zk+2c!>mj#m4?vT3#Z*R}JS)EQ)fC4fa&N^l@v=pf)A&#VB06S^aKB%1M9f!E65|(% zWEK7kLxpcHOMws6DPI#!Vhykf_Pt6(W$X=<*+%6l$`DgU327spD=Bz0#_sb65>Pt> z829e+A@MqWp%71L%JrpZdi8N`O^B0Wdv)v$FG{E>i6Z9?-XOyZGs>hi7m2DObxchp~g+beunYICg2a@<8e zb&$j=Qbh}ODY#KOUA4K?@Ah`0LMnzC6z9?4FlzcDC5&kzl8{YR1$i@Q3^`2#MgW1l zO%bZ9e1k&>{TjlA?yZsJfc!Mxh!H4;#7zSJPRhoF?>_!mkSphp5Z9!hf-99|#AIcM zypog9m|3hc&y8b0Fv7c$#-jBsjZDh4~GP?zORyV$3?Yn4VW(_EWdZb)DCU7pAJ{ zQ)#fAwcDg3Q7>v3NomCn({cx2_uh8Tj_QSf%(y?6iaFSm!?m7YjCCAzj@FYr!V;yfH-`LSl|?qAt!N*A?i+1CSVvU&Uo}uUYso7+z-||?dDZ4{To#!M)X0FS zTEsaFU`>E2dWg~(wy=kD@U-Q_d0n=f)5eU5vWl0oT*l-568ft-{mH76F|?5i?s#Cc zylWDXBhoyc)ahPbMQE~W{e}1WZuMP~q;BgksSB{k$GS)qr?#@D5#l$q@?156ajU+tf^cXO3`cNxNWJcR+bS(R1}j$4+Lx4|RjJ>5GJW z4z~@jkFDdAGJ7-aX)r@CPx#htnqn-HX(rs;M`^eML#~glKOI^-96B9JV}&x|&p%^+ zzp=m6=|P=4>w@8}-Ea%{ow6~3-2s@pn60@W6|fOxTP{v+8BuE8_c~wJ?EnZwf6a#M zi~}sEHdP7=%Ij#GhO{2XSgXAD`Z}&Fa&g9V@unUwviL)DLEhW)Q>WUdW-GWOfzs?E zV~40wC;G>0t_Vc>NhC5nev2B(>F3R9zUNM`Jd1aHw^J;|8}?a2v5JQXt5d@JM_DX| z2IPP$NE+o9^hL!D9r~H{#lt?EdJN3av4YZ?Nj*0tF-jA`3a5QUqx!d{k+HuxUJbAr z@X+|KHgzYmGMWCE0+6@cg&X~fHVEySSMI!JV4Dk8SfTuR=ESV>XgYI(P7i4mL_E}l zrjw`r2@^0hC11-!=O6*9_AvSV%v;SD@@r1EQ=J}QOmk5!_+xOX<8^$;P?7~p1t+o{ zXS!3?7CS>4J67Q4qYXa*G`GqKB)2uLfBr%eObH|W*c1`pCni6##$Ss`seM=OFWk{4 zy9TvX)|T~&0d}jzqHBVL^xiXZvXX~(1p&VIR~HHWcOdJLm$PoGXF)-!Pp>;ul^k!0 zZyXKG#!|^dig~qd{ZP(iqnO-}4pr!Thmf?;UZ>_j335^`BJa|tc!@k043o#I$`!-> zKIo!FNl|j>Klz@zx3Ak|3fi&fk0_D8_4b&9EXlI&Z2LcX7ttri zQ>4B`SLu#ny)lwoizyp?UQyLVNOAW1C!##&Q;F<5$xJgLqYoD0i)SREL~V4VtW4ElnJbWgymf82_GBT0~s{6=;#2 zS=h4U8~$sbQ#q$814A26Tcgfc zWrxC)k|o)oKnycucH6JGj_3R(Ic_j0S=deJw6LqOXW`*ND13m9a*h>!GLOmBQnJALnuwZTvz6TL0Mv?MZ5KT^1O&lY-V`Zvig8Nvf2?i0~Mr6TlN76oQ~* z+yvA1I%Qs6B1kSU+eR|;(S~$JI5_7hO1UP6C zn$>ifV*u{*^2p+-Z+j245j@JKN5vf781~u0ub~stnS;Ntg+lGculVzC@;-UPV>CBt zr^$C+=2PM5kX=#mAfHS70Ii^%-prWrI!x;7fI?R{tesZY-&pa1KgnLbz2+c=WHD4< zPmY$(-)jN*Z+T>S1vhLwsAF!y9bZ%eNE?^RRT+1s`kXe@7Ds(aCh4>O}Dgoa9p> z^_-KsHfsOMwl$IP?HOIUEPRXTp_Xmo@YJppc@=eDV&`tP#DtY#t81w-XrF3crHemj zW64qe`_*8XUBp4jsm@Q!n$yj^dSgA=Gf5dkm=5QC>ghWjc)zObHyR6%`&B3Ht1Zhd zvTOEWj5SPo%zcrC*Lq+DUExo69Gs7ewc@r42SZDvq0G-K%`Gc}ZqanXv|t`erJEkj z{|v3}0`&{fuUJM})q2XLf1JY~w7J&vd~DhZu6a5b!ZTKjYu3i2R>~fpI{r?26|E!o zSWk*9zC%J!Sbl^Zb3ha41w(sEwPXy#&EHk`Z%6bV%sYPjdP_(348JP{e@RR5(9EVc z*f2DeRhO3K`{Nd z{HU(bb*Y8ZbJrPr460a>&`b&+A~6z!Rs=ley06bJ0yp*U8b=$5Wu@G8dkiSs398{h z{F)`}s8dVMYh98v^nkq^E6n8*;6P_tD8eArV9Vj=>=C6b!v%MmW2|e^ohwm6=SK%3 z=h{DQw3Uzp7dsgU1?8U>{y6N6rJ54yWZBZixS%ukqot6{!Qz(1vf}X z1ZZStsrhOTkUM$37Wh3Uw;aZkMtQoh4pvrRcN=TMoi8ndhqGeZpuE7h<1tc>X2Tbv z!aZkzzg!1*Z6zgj{evfW&u%;ed3!Hy`8G3h2k zIX9jb1()GbucM$Qt@X+7ce*||w@B0**+phLA_pJDHkYU-RIE8)y8t$6Fdi{e(n!G) zgML*@VBxSSwE0?@h(ll^xmP{aEz#4q)T!lmsZ&mF&S%d@TEun;hZY)@M)XRr=Un-I zPaL)&>?hG^()PRWjq$T+9h724&Z!edfRDRg_e`ykQq=a4+yPN!ES)sm%?G44uxL#O znaw=;-~!4H^?8e{`MMuf7Ct8nuPxeuw_;spwocIS8pLi4a^i*Md<@56;=cZtLT5RR z-{$f99c6A-3lHvK{K*p^8E2dVL3&;3!^{JkSpsSix=)buSy`!CN`AXo{x#_n$LhA) z1e3P1Fiq*HpsuA(s!HTaZJ?i>*>feaLBg(nn7W~ULn1Khv|5+V>?Qvm25j;3P~L6h zIR)f0XBxpu4T(TpQ6ni8JW@YCpti#_v-DNAh3Hiwb)1IE29#XeX14zRbJSeRQcio< zM)E>}O)nw%=vRZZGy{)OPzW);^2X>(Qu~Ork_KP@LpD*fNoAk=N_)0cr~qn*M=?Z5 zN~3ro)#bO#AqtLHF~wBx*1aFJn00RlY>lwlF4RQT^ji$Be;s`~y|VD|bk$X|fVQm; ztbDo9eCYHzK<1O$Ho74;olgMuW(g}_j0D&GgQ1Zyh%SKW`3D!OFrU7UVbVKJ&1^gD z7ehEb(uk7!KFO!D694dDpPW1H(#{%p_}K3e^pY`o%E4TI1e!y{j%ih(CA9iPEvLs@ zQmM^-;*HbmRHwKYMsN>;k6tSJ$hCs%?s=`?%qfCcE?d;^*P{QOTSN_PF$IjuJV}QuBkGg zYVPa-ZRdLXNJLJyTpKA;&W>Dt(30y1vB2Ed6g!GDtkfCiX5l4C4wn-g78 z0%EjAgOF+`hBfUo;ervGIISsH>Sp0HRS}I&Nt8}3?*1cTA7z0jxSvW*DSooFhnnFm ze&&pcVunlM*}*N+RrC=q!6VHU*MwZalCKZ!xB9k>Tn56licx{Fp^1?MX!R35dInfr ziLY|29((6Qy^l|Od~Jt0G>k`X@DsT6g!RDe8T1v=_X79V51X!<%qYt5^uDoOCvYJE zXN6S&ommN$l;MtRpR{CCAL_>!<=}*!mBtLcl883Fj?OY!P_^^09bvkz=_^h=QkFOD z(LNOA0y(8wGjMy?>yl)BcKc+i8qo2C>Gi;+9)sG^Ip*^9Y5qzm=s%b>cyN<i!qwSRI^CKQhLHQHC#T-)GyM(Y5#Vbt**wQVKw`RD6*CQN7vG+-33*XK(v z=5|R%YmXna~7-0EZgLc%5A_hELqLNh9a%`McYkt+jR%HmjsB3@yn=?&j@uGzxO z`*GZi#%*x=_4DuNTTs-E$%@`!0M%Ci1$0IqNt^;pZ`$JE*`c+RyaIzPs3XwSd=!ktgrI)ppUMOI;9h9=M!*GP(5_H>jTgVo$1JT9TpRVxc;JMq2SUHIrhv}cr0U!D8tSQ@D4 z&bt2Mp1-D&w4_*h+FHohb1~XS4qRx>%n)IfOZ-8+dayO8P{riZ#GPvCgu@HT?R5*u zJ?$9t7MosSL_|nNfnlqp$G3ympKjCEem*dCNusyZOao@0HxJb!jM$e&LR)W*%pS^& zFmHp4+ww)!vXUp}h6A0J7LLE`oH1gpg%+4w@1f!}Zb?u++{)>v;z&~qqrnD#YyyEn zK}2}LF~TFxYMJ5p3dx6#?pQ#1+E-`UhxKNL`=2`@g{s+BGwx}nK-&EpM`g~tL=weh zY36L0mD&`OR|%HK(2TxmR&2o>a|WN@4)E`5D|L%9fLY0M;R|}GQx7$+jZ&CEntA^D z1)3EaMOzOhcn}EO#I^;iqVV;~>94^RgI(m5*E06W9{wOXVH<6RYsA@>(!ARq&W97p zcK4bJbF+7JQjM%SdLr-LemLKd#X>%j)YBEeY%!s+4YMk(uwYmg--yNGvP37>qLOYQ z&V;qvv7JPGqtdEuxI&=YgERvMaN^R3UH>M zWKmZppyctX+ot-tzP7qzn@xJgETiv-RlF87vwUexj@MX!8V!vW^l*OhiDSvh6SVYzK1=x&LW%QGjRrmR2S@N1I;&8?~ z!0|vS2Y602C|9vS844)kef@m!SmQGr8OMTfpQm=H_va)0wi{ro1{9VOdDX(owZ%TO zrW1qcYPfYWM#S?0`b^Sqi`mJbMK%41@0P2UPZiMzay}0drsojpFd)#Ar6o`x|0-0F zC^{eg6>)fr)V2d(zOg_^)GM7=9bVlfwbFFxF&#rqTm1T7&?A4**8W|qT}!yZa&k>b zMdU;6Dqca7T#2RRp>m<3fEyPz@m1kYMT|p1&idSLUe^m_ZkC(rtbuP$8^^y5;e--8agOZu!96QV+$Yv-JuxqLn;Gbq$)+KN|F*+m$3`j6zgA4eUYO;!9q-5PR{|1_9CtdRV38A}>9Y``V%Da_6#<1ERzunGzeWC4tazN} zr_>cgV6OX-=RgRfHco%=he#drJ5i`TErtBjo-RjYcSNKEH_H!F`75!ms;?Pv)Jr=G z3p@*bebj1)TPi^L*J}0Etuj(Sf)ZFv05N|vm*pSA{&3)Gvc2h-mq+!ghE4A>a&AzC|hvW`6HSg1uqL)>H<=p?^tp z`MBk({O`c$1lFr?9_h84zzp|X+bsIY-a(JSW&L)D#E!z$V;-3{AiDx(?Ux#zaOlXQM>p^nRb_wXaVdfko{ z6nDLgXix;Ca^_~=fai(HSr4)fet4}G8g{9{Bgb9XqKrP4lYx(XL))E5M)S4QY97$= zrk%9tq4UhNby1-P4xRu}>C?O&lZk;&UV@U13BE0NY??%At~{L_*)6y}2az&ef~-%? z*VF~kn=~@-cpEnHXLPOV(ga03)ke5EixQh%m(_0Bt@a?SRoU^8JFE1%@`BG}?wG&# zW(IxCag=nKN>Wyqds6CW5$^}9!*fY$pjEj#%GI#Ruqf*oCngcI=4Tg)1DaMj+j9uH z%94?}@<1**BKh5uC*;RMl4|BysWj3|ol<;F$E_9)n=qd~cRi#sdG&@0plSh_9`O7V z2TsXL?i_TG6G(I6vN#YlsR@(-OWh~3!u<~qn+2RYTR?Qx#usG)3LtZ}EG11RAC$b_ z)&tTYENIuG_-dDI=OQPa5NeUj(KF{G>*F}GG>xLja>p3c;V@C*VmB;XB`^Xx318!> zUxr=5otBswlG73cB{qU19On5G+qOuFm@5vvD|}=s_sSdgty~eb1zFRDhH@gJE=NH@ zqQSYrUk$yI5yuLF6|2xihhb31Xa~e^jNwByD{+Qc!kws)g0vLE^dx`&WZGHR3$HXB zws$4W)MGks>CU^gH1q|Vs{$WOnE7s)N-8_vuUkASRr6=zGN9grPrB>xXw>ejp}5_+ zVBr2lNhWSfNSQ=N{tSU5{53+4X4}H0D8Ua{oGyNe`r=tke)9&RtWeg^{OU5OsHWJz z6qTHQ#D_(K*8#yt=Pe8QLA{C;p+UTe|I-keud8C$>jA^<1ob}h4f&#vLKuw;HA>Zy z+pQ|kNJy%tZLww2<>eci6)$NY20}Z`_0mN;Zq9B*2J)7*j zuWIW1ZWkODPbDdFEM0;(e$_F(_qLlQH||Mqh6o*9bLGASOd4SVG$bzo{K4%FRxM6+pTyeksZvBNDUF?lg-g-48c*8^?E@VL?h z!N3geyJkx#Syu0M<`yK^LKJkWboomT-02eo#bF)RIqxsSa`G!QikxuKriIoVf7d{= zJQcyli{Yp45mv;z`cC-$s6kxBuL^r#kvqrEP|auSgm}6+61qIx4IaHXf?MgKb5QRMmlm*ITYC z=o!*baZC3&DQ#1;4TPtY1HB3fb~{G}hjzA=NyJq=I(R{6RKZnC7H;8Y`cA1&-PY0K z+SKPDF85LH()_k=J2zoH;wXK17g<#1obf|Yw}y%rkE@JZ8JVX(4xJLCOK1>b4u}f} zQJyB!Mg3QQhxg)RoW>7L7oD%lDC`4O(^=d2vmTjTF}E6dj@42ZkERo&(Ol}bxZKw5 z!@zrouGm)%r;^O7K#cmX?6NXS2OegcqWrATwdL_(bn0?u5a2J<=Q?^uKk0pcsq%`U z<*}R1II^X!13&_pFnw#nfKucR_nq8v=dek1&KY^{XyZ2`HE^YPU8+roaO?@$+SNIm-jY{euiHUiz<9Y2?c<1vG+nMNm$8S zWir|LCuQ>8%1X)#L83T|s3RWR4hH`T9)%v5Ps~_uU`}zh3`3(Dpm`03Hv*EUsqT212`P5>$ zi_i7F+-$=@mwNeQ^!;_|yN~R|mLEpn9m08oYu5Vj%kh8w^S#3mc3>CZ+F++gQ7371 znBGQze7LG;-bpVraDG;KhOsa7J6S*v@&MG3(XQZ};043m|MR159{*oLKiT|e7#*|! z!05mYesFZKxKo=n9JdqUc%1F&bI2gDi6PS5$Pl@2zcDfxJcY%b*`(l@Tl}EHN5F3m*SL90L_b;Ql7U4Q%5L zwzv5EaqrFTfAGZM2Hs!?i+?uS+`;7U9sb(m?^p2tYnT7`na$TQ|7SB}aIpVC5E%q` z9FIH^_Tx=D#emOiVTv@f`0;B0eR$fwA1?#{Z^P66+Hn(N^cOts$LBM%`0*vdgEvpt z=96aoHb3CzJ>&g`{{~O{H}2j40-pBc3;K78kmJP*MbBc1hKNIJj^Fz}IU{r~8PS~` zeRt;V?fTiE)$!Ukry4|iLzgZ8W;&jq6CY`}&Gz~8l?sy%|L1E689}{4>Kfz3g!wN* zW93VOzdc#=Iu?r3)4MhOlNU*$*!jD`#CEK%WYYY$mYs&hjpu5Nt}XkS-ZJuv%^X+v zf4b=G-uH)R^S6|F{PyP)}@&DP6pS+*HF4%uw`oF=z0(dJ2e00KzGk{|Cf0Th`vL9f> z039m~@U=k9i1`s7T#))d_*scDv1fnawl;rre`B~dqm9vDQRZ)u)?Wwt_b+WvNnXZG zNoesg)8HLqhX=krd^<2xpe!8JBy3}PxX|$2{}@jH3y*xP(6^O(w%-l31f0xt!I10} zmyeDOyxXF7ppVF^(^ty)siGQ(ZQG;mGwRNxd1JC%k;f=^*!7N=7g^(A5*2~Tf+ds8 zi(YLJ-0G-LYQ#6!qkY&O?jsB68yjOzZ*D$4WL#{Yc?ZeSQV@-9K`Fa|6 zaxcU1k5l_2oM9#FwbPiInQvC#|CHsChg z?D(t{r@`^MY^o52sh02V)vU=xj5~S@?l=z^NJ$=Ymys`#jqIRyP+6x%QpjEFgd-M| zoI5Qz<0FKxK~U1k)_?-HrbG{jbdB=oL7<$tu~K$I^zRBT`Qu@BeY5&QK}=>i_9DXZ zVZ8;gI_UqdNn88FeIV&>0x=A(HM+83mhduvD2@fz5^lB$*7wlZtNHtAYk`t%?jAET zjmA+ZPnZzTL|#qHBKUNMS8o*u_;t0r7!kQ~(3rpJ653At0HF)|GxmDfKfgJ>j zs=nr1u-Z7F3$KJ@yIShD6&C*5p+Te6PFgx{&V%OfUqxOp>`& zpObgP4-|w->`Tn!DbL9Y7UB~pKUU~$thoKEgFpGwH5DZ6#qqoe%ZFBWiZU_={pZ}Y zn8ou`A3hCT5<9vxGm6wkk3`K2B2mgwF!a(Sb#yXn)g1;iv>9hfqLkK~d)#>g`z@l_ z*gH)`slIUR+irS~o!sS%XTthd+FL*=+Ya4{*LE)7_A6exU;8r$&0ULhyimX^R9M|^ z-pM6Bh){S@Xi=9zG$d!JSxPR5gu2uuWQqWdO`p4-R7R;5CW3nW84G?N%V(J8&^5l+ z?jio3;qAj^^v2vzMk|_=g zSuiU;P7?~`Kb-$y0yy7qS@y9coQU7Zz9<2&{2B41H)?AwWIz}pMg8yS~PjRBF4LIXPGT$w|{5nC#}1lSzpu?Vo!~~F7bC^F93_~ zgK;BD^=_A~Q0>0=mM_=Udo7UbEk1#MPxKn7t^pJ}#2}GMOJ4|x>~jKckRGQW<{lIj z;b8eYb7eTTN|F|1-?dvfgeJ4&1xq9)-fP*UGO#veZ&=LidhPWo(j1Ym+#ckU`9^2k z9LmfUS^9n)z7-@F3mi~Il(yaCsC-}=aTt%vZ>USECMoS=DYxx4Qn3@4R=`{VOPBYX zE6L%fukV!@C&;S*k#oN`)5RudMmG1H!d{@fA@Uf^yWolFl$2a|cevIhJtPqr=djD4!!2#SYxtasfH0xWm{r z+|ke#&PeTwVbxKqCQ6cL67RdceEG3z0JTvw-PZ9y4dpj&nE$g#CJS$v&7H6kFISAe zk&|w_Yms!dj+)M6#m^VzJK2Y;sKW`nxZI~ty%ZYHsDws=V0^W03+CkAbmXv0OP$D4T*MScZCgi$T_1nRIb#ETrQVQQWk}352<2tXh$_^ zq<^*G8~Jm59B1S+P$W>x`ty_P?}0OEz*JQ*0)vDOH*;;Z1?2`0Wo&u)ozamr<_H_ zdP-gdYNjK(btzG8Uyj?;x?=Y4F@Za6k-obh<{4^h!0tK3cmaEU;<2qN0UlBo$|!DB zfAmgCJODY=E$I3Z$7Rrlz$ij%PybCPY8c+&QD`)PJ4AQYy48NZsdpwY^l3-*2RbVe^V$i*vhqb2l|1{#WN#Blak(H&Y^aO&xj8^?nVF zAed;M^7ysuF6omVSOCtk+mD(ff(0^*quzn81v5o(;q6;t_%SbRmh^Zr!yEkmqmoJM zoEy!w%LIsI%q`V2xOK*KXJ9>hS;KX6?|7JVQD67P*O&0l)ZwI zO0Rr*vvlF0rX7}@U3))t1Cy1n9yI26s-8Ov#|E+NO{)k`1ivh6_sK5 z4(j2US&(Mfl15s5sKJ8cYF#o*q_0pZtc3+yQ;-}YjkNULtjh+hT}Ns!M#|dV#~r_Y zt%lAo3}wZg8qrgtsCv6$M3mcst(w(4i+a{woWsy%bI?U>(`)8-Infs*Y_Tx?ZTDdQ z_S(i}rrV~2)ll|r!d&*T+v?GJ7#bEA=1I{pB-x3{svK_V3>4n1-rMv0sX@DvGpxaZ z`?WaDs)upm@2w;hEAEJTC`9u1C)_59S|Z z6&??Km}IWw9J}r6?CTH}H0)40pA3B~%iYJE7HE zOhIKLG{wY+CvSiO8B8@FKMsQ_#Y@hOlqOA$c4M-lqQGoW3>YNmTp~b%z@Hv#h;J}c z8PGGEh*`w*{rg??s_KY8RohBdG~d*2t~{?cTl`^3bYKZHELnVBF4a9V1=_U)O|Q?- z&!>UVs(F1SF=ltyL|WZWC2D+hke{AXG;-`cV+E*=-?M~Y zbV(=yk6v5hkXuF>3w1b)CY(roJiL(_tJ>(<&B#I>dSd}I#15UaMH&4a^*6DX zmzmrl6BBa>P&B=x#Lf|ThcTa_3Qh?rO|GT!r*XpUYzg3wm!!Le z{xT^o@$@{sls0!H;))`2PwSo>nBBHoJ~}WqXZp?Vp%nJ0pi;nGf~F2vMCaE-yncJDUZU;nq>zL>ro{w?sI%jv&*X!UqS`*3{!Uz-a80^a{u_xrDHS6Kbm zkq2P9Ojcp*-M2pU|EK8N+jZx5fhNi!VSkZiZL$*&5Lz9!{?d!AR zfo+^gGkc90*@ZhJvB61Qfnd9!h!_w|f84$)|C9Ou=Me}JIFP-O8P76ABv=RF&(%!~ zq`z3a^VTacX21$qdA3N_eBI|ApMh&)W!}{J;_dulFoEcOJI|ICzuH>nuSglZpj{z%s9HjMXIX{ZPc}mTnHupAAsh%H|5rRpy>^~*6qC#P z`s%FPi{YTeS04}}ut$px3!KK9)4S;Ou}l`B585R)>OY^Iy|L|mUO#`um$3S6-FeT> zSCaghSqo&#kGSU#4U)X5PzY$0uHhm27-JPd$JNlXfF)Ce#jZtEX)2 ztI|6h_2Tmi-*{WX@-pq02k&>-{ale;zIx|{VnRQ$RUY-HA)jrP77%PcDEeKX%-@SO zHQHAw!S~46F%1-)x@W$bZX}xGJ^;W`x&7ZVk5Wh zzoER`(DX~$tBuveG8-Pj&Z`UZyACc@Zp{_6ocw=yd;55%_y6(#oRZ67E)pV)47o~_ zNE%bFHpD1GE0vL}j*B98vSE>nPziGt#>7-ZhuATxbaiBA&I*yvF*8%gRh#YgeVxze z_W9l3zuWD5`~7ae-|u$&x%F3edtrNCJ}&O}$FF?#n*%f62d<>vmezGl{=a_rlD3&r`)^Phx@0r=si9*VgU6|!jEUaUCsrM^1K}r^H;KFZl?rTDI6KR(c%`| zP8-Q$4PfZz5v~2zA!)xnbF%;Akl?SeGt;$s>y&Fh&wUineirN7lrwE74+%QX*0k-n zdC}^Y$4~z`>=9=BkA%9xE@Rrnypq-HJ%3f?k(F7`_rc2ThK3D|-V8uC&e#!z31t~Z zdiyNx%&sL|F^hel?PaR{cv3%fq`mA8&l?u*9(*zHQ?P&T!@FOT@6;u~ zPch%V=jh$0ze>_BW7N+7jgqf^^>2rN5 z=vMUL%@=!bd+tL$zr6Z}X7*RbsU64zWp581S6hC-F*bQ|*e&+H=Fatm4|aM956g)4 zb@z$}&;N9Q?RA`Pt~?ecY=5hbA^t;OTBoJkHf`M3F8uLkd> zlU5#i<@I1E6$?{U^nB0rx$)eJ!&U>>9ZwX~^gDj5^2ynfpIAh{Q?H!d zp-}(woi~mhi<~#Q_8Ka1QJxr|w%Pm6|pdDS_pY-9&}$3OJTplpEEanOo#QBwmVv*R-fgO%iT`;yEdC3{;D_3Ha2hdxM!*yMIIiCHN8l+E!p5 z<6}OXeR%Ti<@Z*h9>b;=phmyr{)jPwd|kcs``pAsEMk}ke;gHRvE6|Ry;QNFy+151 z-#z3-R~=~|{7Px&&qIG$Xhtkezg2e`{H-C}%q%2F&tEqeGyJo@-e@QD$2J85IX^TE z)oA%^G|u`${ju>goeCl3U?i0t6{>$Z?2eb=&_Ak*&K+Ve*Iy<5+4s<*pBA=h0>+qz`sXJ4{@0?YhIjHaYwOx78^2}9@ zg)6xgKU9>{e;djq=OO*pxbZNU`LPGzk9#)RFZszn_?dO~{ZQ1?U$z(i%ntvaxWD=F zZ>!<=zPv?nwGD=fX2w37e{!y0>Gxe$-uL``SUqwifB9R$wts$;KeVoOwfZqHR<>_+ z^7MyW+D5r+(=Dw}$2Lldm$4pdKkZQU4P_lTxO-YqUpA(dYIUP2fg1ZghiQE49L6?> z2wFvXFFt6fOx?x)9zFJ%Y?B}LOTpNRsI<%W$0@yIle#{oi;r2|JB|pR--@M1xm{_m z|NL&XD+#HE+z+k1i`8}p(8w9dy1c7&=h>e^+Jj&J?+zdTrr`eF!2VCEng7X~{okf$ z9RE9m_n%pY{|h|{^*>WHPvk`ZyWi(OlXL$MQZo+!f2C&Z4%zPqvoQZ3b2I<_l>dC& z3@uOT7$zB7Q+0l#89M!SV*8Nw|BLhf{N&)g*S#*7h9bAsy+U^0-QwqMP$o3fVZ`td zZ{h|IO6Vj>_w1=7u=-MhS2pe7dAEP}gnMln$e=U98x%w2GcBEJiBzV|-J1j=OMYjn zT+zIuA@8R0)kKn|?AQn5>C}s|rCr!{4boM_>h+6n*_>IBdFhx6b@9(d>n-Xk-;llW zdYd+Mr83T4@L20r7`EhIBhr8s?I2XtDvOzkvtOy2m190dImMO(7quW115$IaqbvD_Lbt99FDXSyWcl$ zWo#11$9b92B+UdR5XnT4cN|UK_0h+=2Oxnq5vBT9@G)VCKpj_qRPGHkb+fAp= z_KaTc#j`muV*l
k9X$t+HT9Ioc&Igg0ET?PdwZ@wK35ZxG$Jk$Shj zj{E*{*~EsM#>L9jN7RG8Y@jm4IY`tY5@~^vd^^XS7uTca?jf@p8`U7rNi)&Wk|s_v#H+b>@UK^%3TUv9G^l} zg-`KP{uF_5IDpQgvrx7KR56}t?yy(OBUjn9eTu3g0yY4l3`?QoTN3a^pv?g^5CtEKrTyzX zfxgb3LeEcu46UPB3BZvAO240PZvE5H`ccDq#?s!!%4o;VV}EQ{U7Z0^Q$THzFK8yh zB!N><3i?>wEJ0n$tW5Z78vu6HJgX3f(E#bbHD)5qPnaST2yF1|#cnW5L$-5})ZStb z5Ox4;!;91p;ea(WKwCsrc`@zoN^XQ})Kvid#}P+@{!x%u8;gz0KoLdj{WIXpq?`sv z&{_>ot)1fLfPI?s$B9Iy>f8Sk0loTB8+G*^94yv%Mzl;WnN~rpRyYYAU?1sU316pO zzfBWBkcPNXMi1N3*x$w$19Z$B`%?Eh1sSHWy=FPP1g@hklSge{tgs?5k0cF?{ri*!8lnE zcg9|D*{I|Oi*69kU3*w0b&m{{_AO;u3xak2bZlHMOXcA zud5qXlU&;Q0%t^>bPfg^3>k54^P4KFXlW7C`(IaS1(p$YKJ|c_8Z^LLsU=m8f(&P0 zn^?+PA`<$0bo9xqPeJp8|2s5xt z@_)zi`}vtuU|Wv7Em#d7%VRaS0pFfSXOKvh9}FO-Wa0!&zqwViLDzPJnfOlnqvXK{ zbw35ws7NICe>x#8bKX)F10P#WIUoS3Waa@4no9p#@>|Kx=T{59kNCTPM*Mnx;jU0s z{${;`o%t(6JEiLKS6CT;sLj-75PRPyXyjm~Rv(>d>%whh`Rs|YKfaPU=rZeSdU(HB zDDRvL26RV2K19}o)djc9YpPL>fA+V3_|U-54&* zJ8D#6>y!Q0V74#ZGUr|CQ#(YdflvRC60LQ&^|HV$9=)yf<~LuIv$$vBAcAE=zMese zQ-19D*lZO@-~cpzuOi=!Gw`zK{_)Ejz(xe4eacEuT40>(s{#Czc_JK>neiP|3m43^_3~NJ-K&y}nn-09Tp)T zQrhg7t-7>b-lMrv#X_I>U1tOoaTGzUen3;ii#*EwXWl?h**ffx7dgTSY2}_4mq52Y zkJJM64iw4T)tRETmR}KOT_wVY;LtijX$MKfrH#g>cJ|A!X3tfQu|w2YGJ_$QhxRbu z1kNfHT7@x?)iUmUFv`u*(!}3Qv}4C$^yr2q$8L}}bIx9n_0qZRZn+riWy%=RKZ)Bk zyoe?2N58ozaSffu#1Dg%#`FI7_tErNInF&NAqR|B6wqD?Dp-5H6tU5gb*4LTA z;%r?VO`g|Ld*QFS*|+$q+I)WzQ@PI=((|m`uV`>1>)U8&YmKb(4dqN{#a3Ya-_HIe zljBQv&SAYF?KHd;ajWQr?1=*i`M-{eQetU^U+TXTOQMn>Cbe7FpuD*`-CdDuoc65W z&`u1P*&V%G~e8U>?$pFtY(>5N^vo znK4k;<`uRhOhtCIv$DCS8J5cc^1Xn_0bRVp?cUU0G^?PK(3wMtnZ&TcuGIBzYP%Wc zO#ip)vStks*T#z=i3FSH(Syf5PpGdc)b4l> zDaLOSj+}s~$#Apn6o1Lb9{Ba|!C!v*?f1c6xzRe6OPS%qPlJ>Hu31MUXP zYb;h5(iUM}_D}QM6^^8=DlZMUEcBDN*8zvmN=`E))z9)y=Q5=9xRl2mZZ|S9hQ{L8 zfvChK9r?x8sW|Y0>fC=6WX7LbVQTqifQ?MIO9rXa44_B<1h`Iq%T+hN8uiHQ#3kXs z_JUO>?R8K%1cb*hcq<(78Xe#O;+K3PBRuM#kxRg#wZt*lMLqj=*IqU*W1dDa{)6i* zvx5nN>zzpo04t59(t^L0lQzzHo+e@CpMJ^R>00pE5Ns<7(-Lcgbgegr_6eZHkA0Nw ze{8M+W_RIi<4buve?n&uzX%rCurOYH{Lf#Et2zk^d~gc`+hW=rXZ3f0=Umpw33Uvj z_!Mp~&B^uOB^+#sA}d0#ys>TcJ*jCiWk2S;{cUv-Yf7#$^%#rQ%d>g-c;O-={kk9| z{?<+3C3jv!@T-6cUbnh)y{3B3U2pI-tt*p38B223_5M@cB~?thW^`dZhU+e1?|gdp;ZdlfA< z&VcnHmf4)xm+1MyDm;Fb$KU{7KlZQGfLhqw^#Xq8I#Fl#fbE%Gq&5UmcQS}PMby3Qeo))ZS~uDen~AFqAaix@3Wx*$OVcu zb*DU@MRd>F1NIDzSj^5$5z;pc&ViH`Q!nNWKQfowOh620*Xt@L>j$)b*vAkv2K4zc zeU0F-Tq;_jgBHat><78LIzgd-3NXLH7tv@T{tb3+^?T_Xj8t+9YVUy2v*R_@4yY6} zDLYzw&3(?N`A@hd9;T{{-xb+C#ZBdIMZ0pGI+z{V1*9UF<-~nQKbQ)6hcLFe`tZ`!_dMiF`Mo2m8OsOt>_?xD!@*Vk1r#iszivzLB~OCS%-jt6K8jML z+uu_HRX>jQ`lX4Cx;rnm+M4J@d*Zz8|AD%i^ygS6D!!n zgUlk=H)hXm32Sy?#*cOy(;;;$l#AZk>*Izg>w8kMSK{vm37k$uV}CJx&&#-tG9-6D z>ovZ-&^k;XTYt~Yy?q<(NqKeFkO`B6>%7Tm`v|KDD*DTg@PyvhTtl?0gVsHnE6bkO zKKpIDB!(=9pS^l2i{Oq*My$qmTdigF?jO zA-g^;U)}4C$iOBlBrgL;VJxLpv&e9aP%+U;Gjn_t9&p=RVkUffq>!+A^Ch zdXs(jDz9J<3dKDl==<#-b}L3}P?MgHZq=l47((%y6r2vytqQ498uC2A4x|eLUt#|_ zcJ>}bqeeOwBnesL1CqRq{*e(aQt0VO4^kDU_!^pE`LOJ$o_E9b3hPL~iEd&dF2 za_fv$mp;(mRIVkYbyQNZ@^(47t%oW<^dgMt_<>;4E3P zCG^WypA6AEy7tasG7><5a=5iMaE`^fX&>V#Y(PL^7#b}A;qv8SX&c3?vCWTe&h#l~ z(SwldHIYwT8GP{d57V>UirOfuj~#P844!-BCLb3Ng+?U6haIYHi=KNg<7Q<@aOZ?6 z%z(cNAh}*4?x-yTEu2sNzU@?VsJjNYOj#}s!w9t|k=lFuo;wHc>83U=iz7KgfU($b zLz}LeT|gp}be!(85P9O^cGh#p2RHIabWUg64;LW#A_F|+_wqLRO{8uP%$8xjQZ>|qo5XfDsrAkW!Xns< zEhYU7D!>nVXa)AGcv!l_Qwd?JqaVW*rYw?PBwB_=dw?22KtdgE942aeVdP2WLP!a? zo#U^k3+!+7Wc6fD%?kzAwhJ-k?&lnH!r>vSd(K@F^OaKk98 zg;b>HqyUdTDr8_s`w(?smK}l`>{9kB+mf4iOQm^UKDNoDyc80t8&XH6WtEcH$#)$| zMXzX$4eUZW#Rj|dCBrITGp``CW*9pzd}=@4(y;o(RLdKi9N0O1)`U`L-3>0{;cjy_ zMMVp}VOcJJLUS`WJGE@&W4#35&&n&8J<_Pdq3~up#|_`fWa;DcgI?x(pCimpw_M_zw1X64}6FQCL_!j}OrW4ji3~FMlRR z=Ys8(|8<5Mz2HP470N<0V`mEfyAT7caUH3C{Q0Dbk-G6*(;CWq?s%$AvMx`*?xt*~ zKt|{-F~4xQobNUEPnXwYj1{Zwy=Mx&o%jdo_MZow?aiYo?MEsk;SU}$;v63IDxJPt zt){H!=9}}OJQW)O6{#HTsKTWY4bZEwwY@_+j&F+1))c3l{7%HgJwAD{DWtDMS4x&a zq(pu0%`fU`lBLb|nQ7))oVch~_S6oVKDCrqzfL@G%zf_u4VkBBXKO=0Rq!dwaGZ$z z7As56*7UYZsADO#^ZUWZ>L0cWo8%k)Q@?mwzaJNhX~DinY`fR+36Ofxwee8+p6mHL zvrz+E*4=A*nM4o$3GE0SJ^SM>)2m1o?p4zk!cVWxt`Ou2J6^rc=*?qu{bx8zGJsN< zzC#^>@YF8g^5lL&NH}$g@XguM^}BofNfr3{lhX`z?bNmXQ^~^hkuQ-kOaZt5le^g1 zKk(-qgsAPu?hiY~tTn&zkVug0X4;eX>ce<>T1u?2IxFYm4Foh@P2NNH#ED%wc*NI@ zOIOZ=H>Lpw2p$r9(V{v?)5;q)-qy1z{xw8*Bl+Jnat`P?9|-LMzST2EGXXrX`d2ZP zx(7TKwa?1ohW2U=DyZORQ@rdgEx@hdjBO(6>(=9|CP}z;2A&fNV%yr+*x|9@h28)? z@{dFfY~1bZk<{apr{58}v=Pl(fLUJ`xI{8KYGZmt5{Zo7hlUVY-|VEB$l1So)-`Yi z2q@aT^@o zMGp8{2IvG@R|;RP&A$d(P_a((j%kqc(>rILA&3xi^T4_;h4}HHQavs^Z4ZdM!%^@6 zxL5-K7lig3gvmSM)zoB@>MC(Pc)Yk7YI;{=5*shHPY2i7_LRu5y!4Kzk&kEmf;rET z;bjEZA<46=T(0cZT}7h>XtBb~U&VkpV(rk-zmNQ*p#72BbL0ZS?3cm%D<)=OaNckzRQNG6~|b`GGloV)9zYY8h!>e zUTWSY`k(HI)<%Ig1quqmdqh+&a>W05AdUnWVy}n>@jX_JFeO zWpk!VLuc;Y97}iKGSDra3vfRU&uN678w)ohk(Ns4U#<#);O?BpS(DvrdPsLOc}qJ- z|5kHc7;ZnMey3X5E@Hz$U1f_PhXAdvoEQzoA^!`zF##k>U%(sND|f>bkQp^hsvFm_pdCMs=tris9SMI9M#D4v>(kh z?p0+>d!EKi9zFJC?`Q^j{zTYptH0i;+l~3}ti`?_W%$H!tg5`ujSqFULEAq{l2=|K zBs1O>egy)rK^6InN_S)v;(`eUsn8MksF$--fs77apJ+t&j_(I8($VWBUnYIv_sy;( zu7GrL4gS*~IZ8Bapd0KXXQGT910F6!W2z&?kUM|sxytU07XkBW$bbzYu*Q*Oj18A@>O_R;`22@IW z2je-C6#vl#+<+KVz5-VbM~P>wfi`p(*|6qa5*d1{Gn$$D{J_tof>Uu|04oPQc^=f2_1PVQ)cnTSok7JIW=zynJm61+_`O?DEL zP^$k^glE|ay-8%S_?A!X$na#n8t29DBiQOqcU!8b&jxyR&xwTFH|mOHvNj8H)nf^i ztl`Ytb%jekOK{xUbjJh)iVZDt4JPcsU=$jz^4cag`jg3-R+5o*KMOE-BB2Slk`_hE zx!qL33JX-CASxh1w*K`;S#!fO5W~#&(4ennpjTk8!jKXeMqqu@0IkD#a54Dz>y7D- zeWt0D>r_agO(>*IzXT4j?z&gRik}K2olOqy`m1k-r~^6td)~1;X2ME^wbry-bwO*V zgePq7WXZdi9McxX<_xU$dwsbVT{r)LLF>&V@?`Jt->UXf&blX2GGM^ZHvS`V;5qmJ zz#~xv7<2{$E2}d~Pe8@qH_$kGlG_Aeo;^N$&N)~+%x{7pF@C@{;-KZEQ;bHVRQH(+ zH}PGr4PsqgwcTEbtz(hEk_Y7VURkJ}e`PEy5)EEIt=vWvwvbU$V}Q$=#3non?$*RK zgY7H@iV#iw*IM%^!@x(mZpb+E+Z=@!P-;aQTjlgBOM=DdAKNkPM?5(x*~&a><*#$u zvYz`gPg0|G<%|}PPx|(ZAgjj~ds*#CeeI6d98adbx=lb!(pFu&Vw1Z)NO2#u*Esx0X$RB5i@_I9 zbkVkAyUGU6go1_DOrLjXE$W zM)}9=Ojv3N>+4M=V4De;^9b$`Mqp>Q>6gaMyb4oADCdWg2#C6oNmMXF#ND7bfJh5C z>s2qr(m^S;a&?l_Xf!n$8V;t9@SNO+2@AUIxC6ut^rfquhMIG)7``o}O)K5kIC_lJ z+~_R`cUrLXwNa+v5iVJJ?oC}Muo>2ncson$P1#azgP`_DtPE(b2a;uuhpFwXnME(62razwxD` z3*d5v51)Z=l~}cHcQcPGm1JHqlk_f`S{uEDSj6-%BGY$F9$zZb4X#Qrkat!PwfNDd ztLyiw3a|RA?U>D0(Le2YsteKHf_UiOry!o435~0gE6g7_ZGotI8dV>c#-E~K{_Vy` z>V&H6QF3<%D%M6jJjBXh_VB11af_*>E`w7ERIfzV@0_+dSD(}c(R48QuNeiN)MYOm z*1Vm3vTf2$+4YAv{yKcut2<<;rx~~-9i4XWaCKCd{O3)fjN5`mMRvY=zc&qA z%j}X>cyT@OGGU=mUq&j-Q=!}t1AYqZKyH$76o-R$V~auURYa3fZy`ybt;0G%f7KH{YMN({{JrLPl$w*r!H#jTL4IrEY>*E=3jz*d3uRI&`f{f(21YcrawPDE(6G z=}|X{6HQqG?T*G9U=;!YTupwLtNpmnnPSk=eIS$7lD8(I3=bx%5JIckl&A7B9tp!cIX8YbC_+A&nJ?XtlO7h+K;to>z^Z$1rOBb6AsDlQmlw* zcK{(PFwN?1b(}to9ukS}Jlm|Fq-KED*tmNq8UJ5{VC!+Knc?d}^4->`x&de=OosE@ zc2C1&V@`i#-+O6%NAGBVq_4nIMMICTv{Cc=&pZ&Z@%F7|*~M&y1wXiW5R16q!AeH#wmyy;(g$=&2WI=^*7 z+>$5keY$U*+LPK!^e`-TL#n;a(_7Q0DWxkXoX(qv_!yri_VQrvbQCwWl0xMY=lO_Bkb1Ld~el~YHY~0RJxW?%A z-^?Yt((jDLlQn*2ca`RLS7K#r>#*C+po_1!X%Njco<+P^(vZ&5p1WQjTJx5e@@5a- zJYMUik#BNTa5A!yg{BYCftEvru9;$XvXq9-&SW25I9SjNzZ>4_qTu2zaPUwNnQ8LLCcS&7i(Hw0i-oa42MDJZa=s^u6($Y261-4+?W#k^ z&0aX zUFHZ<)+C*L4j))>Xx}I0V5!aBcUTe@dlDO_)Fg}rrFa9^XClGqtySzshtWP*AciFf z*(fL|vgrzY($2$HC%4f+I5Yqn)(?vI@xZ)q4WSNJ*gy$gm3`&}}D zcInLvW_d)(%w`B=FYtw*RiiIstqs5MGfQENO1{7j9t-j2ta0K@<_xIQwU_at_I0n( zs00u{Ce_;b;fM`1lR+K*7$Rac^CdjEWbwDY$B8q5*ZF^w)EfBMji$uczpg{mc6!r~ z9|}8}Aqcl-N~lx(WM&#LQDgMm4Q<>8TfAgicI*cAqvoWyPT(OgaYu>AVSTx_Mk$w7 z@&;(^Uw51xjg)>F3*YbcjT_vt(--|gIb$QTLm--!QCEdnIyIX6=k_;hsq-lKa}_O3 zk%&q%_!&*qTnh=|AA6mnIT-{x#!dHmrO~kV%enH}hNHMg{>9s)50=*H6g$0-veoh@{lZOIA@otix0gw~ zvGQOeT7e7`>}u}lP*;n#tw2yRJH8;0NOuSF1ap?ilP48xY544U5L!IaTd)82q>kpo z=q|HMXP%w*2$+jdASFiQMV(07 zcj!RhIt|6j#Y!rz(A@b-g5sOP#R|VOOHUhbl**VvOFW#WLKP+|!H{mhb60qr1ETKz z$dicU_q9SPA75zn%avWPSoYSXQ9xSX*&AeUcMYSfw|+SotkC-)EQ}K;Qm(71RkG$$ zo7-lHbI1P-+MraYuUg!#=dIy#OqYGrrg;4IR8^RojXvb9yP6wU>Y_~LhAceVq@o)4 zpg~$tgHlY-XA*I{Q9j`o?BHXHlxL#UALk?qWOoTsR1=q@ZEOdYbFjH#)D1-$dpWo( zz=@n|jXHqgJ$gwae(JmaY-9ngt|CaRP2=%^)ego+3MB+1oPv84D`RXc%hF?>>2fJ` z>jS+_05wu+OH=(vUZbSLA)obzglxE}davC3pcae80v2OjSMOvoLcb+<)Q-)XaC^oL zXQ>qA)JSm{Eq!K8{*biXeT=a>OBL~A(|InkrS(3^Ri5Bdg0@>THdyUtTLWIMz$UQT zRnlwC8xJ}eOKAhSQijvD>1$>iVQgSa@1PI}kM#S2x5;Q?ZDO;;CLOvc>Zl16-&5C* zAM8v6IBgg)$&nBcKCw8Q{@Wo%rPMn)qC+tODUIspFDH7J4K~Y$xPT;|@lt2w{28ZkikdC6KY%(SIX(b~wslcAVIzOPxMeL1qxF2N7?s8oExYi#M zOykU-@AJaXWK*uJOoWo!0AR+s*hf-4IcLZuP6#p->4S0+ zYdBmiE^7ZBdzirB_iFOiL=vW5QuITwiF00TYDE3G+h=0 zj76-*U|*UY2e0OV5K|4%3$b}@eV-t=<4#)>v2Z>omRkK};%F&IIhOVROi=2lY=(b( zxl^~r*YHAcLhpgn+_sv#Oi+PW$5giM2XIte%j(oVb_&Nc?`43RvORMKG@Vp#Xbzu< z#hJEF2EiPWV@c!oPYZjzCbITIxc(xLv2?zft z_Dpmz)7zGYJyDieuk!mRQ|N*E(rx-WhUSweO-G`O@14+jezD+z{l$wPj)(8|_^^J$ z1MOsNpA7OJ)#4ZE3q8H7u>bgS#)PBacsSiRbg$P`x%s853x#t)Y#?WejWt@rf4>En zzo>l_TJ7H1gyT(ADZ!K3E>8THJXcKL8`5cbJCT`=Bj1ITn753`BVw%xw7`Ki=%(`_WF=q_2OwVx5i6fe{Hm*i zIlhL8Z--6f(dK`WX=BO#cXsjH_faI%z92b)1;S3r*}8^LFO849#!>eIv|`P>2Fr}e zQ29ghPH;u^rz#dp-kvoMwM7P3`1^>LdvQsaM9wBHtD`JgU&8>t1G>zNZyln|V=o-W z(>A|DXR|}mF0y2aJ5JGBkNm+|b#)?JvH`SPjO7k*3-36(Pk}qcOjEh3^7Xj|78lvm zKh=Pq(~TGyh&IV<;B@))Uq!LxE$_^enZ2h^2-$9`xbzv}T#1!)o4EJs7%Q>nHfcFV z;%cAOA5I%DKYS>6t&P9j7r^68R}I%q;ick8@0D`XQA8(@7W!R1BR{A;l|fAk!S3yB zQl5BL=bz0soaiq79rAShLTlow`>5khZ#Wd zSdyo6p-Xb%^S?)Zw!Vr*epF+95!S}XtE()faWwOx11M0RtgFlkWW?Xm9#~uLO|Dv( zKlJ@OgRcjIVIAla(=innN30t+c3rc2#wF{vn{?MIH=_5O8uYb(_|dWUZ}pFSF*#2d z^|ST@H{u@d3@-kj$PXOq5U|KXC`cYpzlv}QZZXD}XVs?jA{Pun5;=?o&cO+0f022i zEjgR0Gc$2-K!h$0E&ociVB(sgX9*F)fXkSnxV?(Am(4tf?Dt7z*2|G-k}binv%=RR zHrPBrKacwNFKZ7?+)L?mu(F`hOv-d6DPR)OIkvVRUh2pU&wDE*CsR&p6tcVf<|G;$HO#&36nv>K;u9dDdi0*$TNL{Amax0@ZGCY z_Rw%DM_QjcO-E~EQ1e#QnJzYor8YtB6L+)Ill^pK`-2X3 z^lW-dXbJtj$zIbMXdzg)8SmOS<*@qc*~mxqUDTjPe}c4!+O(|u(F>kcgZh5nUU#OM z@!U1?+bO<5vc?z(pC#2@1=eOW!OC$Yp^K)r_cN25EI4Q}ZfScj1{%4U8CC5_Ak9)Y zvK*HeO2&s<-M;%hso&B_3xKlYGQu<~H;5{1*MwcG#>|Hf1G&$w=r@&}j&Md?+f5*b zoXE9D-m{lY(CE@@j(5Sc&m<;~cdn$Z%Oo^cjaA^S<6g&1RmyDcwikdi7+i|EspLg) zyGru;w_s9>?U05;B2#-dnf_S&!H^gtGQw$guXac$I07sKJD(VyU|vxw@s<6WTI=UK z@~4LJv54-`NNRM|Z>e|OQlnzk>L}=&MWyMjMxyk(K{){&G=nLn@W}Uxu*-{AG3e6# zH_xU*=}T~>jfk@I#~z0cJX{(jHHEDqj}*q%-PL?bX$BKkUL~oIYbA*LDk-tNBh_xy zA0@(Fd@)Th8W;6N`G~29aezNQM5^PyIxta%BvV4$B~eLI=rdBL02e2Rq*(_6QUZR< zfU(h^o=q`b%wwlS+}oVT3H=7B_u{gIk&N)nn6U)#!9_RZ=<^p?9UK6Ds$ zNn=K|g0-Yc%JxfEaxbamxa86quhy%;Ce}r^W_=fri)uyK@V477*?&`=eU41$E-gKD zdASFAd@h4$)WjO?MagP_CH9K_*pE1MWvlQFFiI%yioRxOi6a(1U#ep}(3qaizEB*1 z8@EUgtyJUQzF2SF0AorHKHZ#bH*U&RQ$7`B?tq@?53bxqyeL&O1OXf|bX~A8eA&X7 z4pwmQqVII|h8Z<~6gU$UWcK-?j)c~$IT)nxEZnQxpR)(`dPwd9Rs^Yl=0?(2=>Nbi zYuM_|&?w*cP4hYWl)tgp(EYG$9z%XCc{@|{y1ba^TcPXh`Fbj6x(1*SKT~(H6tW?O ziYb@QcDpTUjQNRj6k9h|-UZJa?pB(as89B`sQe6`eQ(~%bs2($a6eT5XAbTR3}VJm zE)Zt60(M7RrBH&rzQ;4U=~&t1D2QHORQr%bkoekQq^LHi)pQKK%9+rHm*(C)+P!lx z>6d_}&H+LYAI$DI_HguxD}*#ky5#(m;(DKr8Dzbes?x)%J0H>aKtp$sBt;+kYuW|X z4)Vzu!r8|xDFd(2L(00-xROFjrG41H>JV<_5T4;p4qRntY$fquO8K!YzVMq|qy%@x zAO`;}xbg3_7*7V^bGt}?irW6?q+uh05fFwo)%EF!wR*UhsfzKk2`+neM{x3y@5#7U z=kB65Uzdz2zE9f9b=yjATOr8S*~%~RktAmasCc`6gTNv1$x|SVwgQDNR?xn=tAC=@ zpEo%0p8->GyaCxFEKwwpK#VV zCI|%U1Zdz9%kxyM^ox707C6AX2RhwN><*Wy-1NW%Vpa%lDu~h0sENu5Z!TN~6utQxCg<^Z zZ1r4f%@nyYYJcet!?SsFjsw2wmRY=mH@VGUhmd)=O+T=p@l|G-Qb_Dt3^}asQ+d>; z1;a0}D{1tSJC}E!H7fE8Rp`}8y=|6*%0$>AN(>w4^zYoKU(E2KNkr)hpqh#^>%jk$ z>uor1JHC&xI^cdw#Q1{ALC!Y#&#%EB^(s3nKC^Ssmn(Zg-5DaJ%`9?)M^UT0=)zEr zA2ca;{T_ZNOeta3dF>&2{sCO)5S}(Y%b7|MxO)|0*QATWh}GRY%0^3g{`i$_5Daf4 zUC&$VJA-MLOw`NmK#S2mqbY#EB6GUY?dN-bMJ}$lti#tSI9YdXpU5_edM1xHNc=pS ztC9lUnG%kPR5sP{w4umbr66SIg`VYyHrsm|Zy2TVDZ}tmWnWaIXL~RpAZ{4~{WNOp zxdzV7Dx}Sep8!p5za`C&r-mSD{-j!Wmnt0XN`e9RUYbsi>ufbr}AvC4` zDSA*=+_#w`$&qfI+;urF2c&wfZ7s$fu`z}$p5*iA~_C6B%+5YD4TE+1YJ$y&tz<5c+XiI@26l?28pBVc)RbAT$lU$Ns zuV#Sb<#3hrm+Fq-UIsWB4$2b1UWBlSawKx0c;D5?xHI5gzd+sr<>0$!4cyOB@cI!sBo_*M9>G{__Ga`-y#G3~!8I`nJZ& zo0FxlD#+pp4$?q`P^4JAw08r|98-`%TaY`b-A=C_`1Ok7A2m_AJSdAJ>YAIiQH7r6 z;{rMUlKfZ+|1+Vp3>3n&w<6UOjP6zUn^X;rmpdp}mzyO{Yj0qid_FJj^;x@E%T^(htRWDP7&C)@3WLAuD??#3Kl zPml7iPPn=?K_I3+$@Anuy&TvM;4y=Zb6tLR9fuwoLV*I1aNAZ9ddv+5)0NP$N1~I| zAZCc1H8tfV;?dILmLG>K<m#Kzwb*S#&o1WRO7>jGP45XoFFsA)nS z9l3$Nwe)0U{rFKK$_3m4y0$fFqYS#C*N%+5@H>fSg*&51)HICi@f#l(j@(Kgi`nI0 zfgrc&D2w(~r&EZ0>+$Nq{*)aukOd^fsNyiU>%8+fT|Oo4MGsPF;#`)~Oh9u!zl&ZB zE)S{;OWDa5Y5E$rUHhrA5HoRpnX& zhEDDgcC9z)7$WHmk-)>KTOG}$5)H_EG(Li<_GJkw=<$143%kQOc4VfgY%{mG!m zHC^KZ7fz;Q;(E5qn_k>ZW(t4Hwvr!vs*cdOWNCj>wz5Ogk>U~$jW=2#|E6aK=<(85EZY;{eux6etg&xM7dTX}_a2sdWS|dw!Fah5`k9*`lAq#Px+CM+S#r7XD)i|>Ro(5zOC*eD#0^2yz1JuS@yq?X=xrCD z<~1HWz;M%r$JYqQPAfdL5h0{w6E)C$xC*NIG3xag`=|so8q5nmPIq!j%Kg3wg?=n% z-Iz0i%UxWZtudNCL+(;$M=DB@2n7r^E@X`nqvqZoDLQk-?A%KG;L4pXR{~-9R0oIh zjcC=?*_`)5N55p|;YNYb%gbHPM-rRr;l3j;GG@0PCi|*imy7v+YD`*qs~g)4t^EDl zmUC~Ta(+qk5h9N27O$anOpKlwGqE3AD7nYXD(M$*l^@n~@^X&Z=u^V2tq}5yM%(;v z@I{TO>VH_B3UBjM=u^Bo%@G&M#V}CR#eMWXMf6HDtT@PklEq9*r>cw$tLK?Gi%BHx z0R#rlZRgJ2V!o)M68s{{+WZ-lUhx`r*Bqj4zi02y=l#2UF2CRB^85Zim+zn7{wZDBi0yH>-wxNb5hAfAs5c_elOt>1 z+|V$pF=M6$!2=FPTy{cG>9cylG;~S6>ovbsoPK56>!{XlH)TLbdw?II-_P~w&g>dx zUdCNTooNovsRxxbd*UnuPx)d~!;cPb#c-c_VJX74J_G3C)iFAo+J_#uL#~cmGJ!~= zC=<(%d9caIcaBv;GE~nm2J~&VG~4;S$ImGI+UJtr122~h?2IW>1JU)5L0|K>ype~h?{lPmEDba_4B=}13hXJcdKwtDBwUzfm1d&Id?a|O_PUT zV^89-u0z6}p0$*wIjFpl?Mop}!^+Q*n)Gw6wzx4`R|8?Dhx1}oab>5EB%xu6-0#|pyF+A^0qMYmj<>kJGG2j$YlR*;o zpX(%2YQMY0JNoWQqbOkI^B9c7-lR{15@mKq%KIBnN0mJxG@E`Ox-Rau^=Ksg*R~R41Dnm{jnK+K@wSs6U2s4u z9kv56RoQCDC*pjK8Qx|`ec5UCx|<**&GVRs=xqQ17X73wu-Y2wRLE?uZYc3W_-;s<4*B zWL(pDtr}BfgS=7zQY;8{xYJAX<3Jp zQsEG&$LLL)zlN&2;3Xa!fXxY+{_zKkO%OamS~g=wBKb5|a74ElcsEqSXGjn)_%G%9 z7ROOe`6z)hxZG4DGn<%Ieldl7F2F0V!H?d3lDtoCuCI)N41a;DoR>|>J!G=2fHqXa zAC+IK?h`UyS)7cNRz6DxG+h*gx0DU^Kndu-I* zzOrw6Ix>gg9ohXE%~1o;$LebA(I)A#-qMR6q3J3zH&wi(Hrgyn-IiN3i$5D}*pGGX z%m1w@wW96J`RqjfPNWrQ_ML_efyV)$?QM7OHZhPh2S(;I63q3yYNf5|D2opdcOI)? zKqA#9mg^xtlNZ3*O`ltC!WEGVa|jEz z&9QByhD{i;YT;z^(|}hc<*BNHWtFIYY>cV=%{@BnZlTwb*t+c)u#6{0v%kUtSWeq@ zM>?g7$pCw5&jS8hac(3q<$?>hg^1>81({~)M!x3Vr?*W}fE|Dh9Kb$y@FI61-5LSk z!O47uQScm4Cv2Q>_A5?Zockj!Pt4_y16OcBDoL4zanJLvTIy4)7TN(7k<=c>^%Wdx z4)_-53#mcWyr8F9qud>V>w#Idfo><;kG0L^q3S8uR;5_g$6)q&spbzG2VbMssR!_O zo(U@~{SZ_BRE-;mUZRc4qkt(Vf4PihqT8csWtcbfcVomQH&A$)00!fs32 z-GV2UjJx+5kA2zN40yr6Mn5lscPHxhV9_k4idK#1VOqkgfD;-ILa|F8|Z|<(NL4foDki4@(hAoeM%=)^g^&e6n?o*dGx_F8ODc*0mMlgpwwjE04DnX5V7C8X6># zbd4Oq=g;RYfs=S2*AmmgNpg>a4mx3k8ABr5crhfqVJL#`);-6+77%bePuWbwhlw9J zRv?%M@4C&8GNETKW_m25XPvrmVg7>PjC0h@-J@RvD11#yEnRQAV93KRR3_UVMm@kj=judvKaV%T>iCol z6S(8qV%H)OT4JGOjE^8xfHNmZx)xI&d;{Ggw3&K>op%3Y_m;e1@vxslDb=<3Bi@NU zDmdYPc$kQ@{{fS0+UiJt=6+yA008k6b!Kjw=?zONvxUOhOVym}24t2VoYa-P7M_1a z-4RX^x6=D;il}-*jd&j?w!3+brc$Q#@gjj%*6DTS>f1t@%qFuSJ?}S&*>maAj1awi zvdYo^!(6-w=hhr*2+Rhs(CYcu?Hs1F&m}hq=%ab+3g%+CXPCnVofAp@-`I;8aa+Lr+l4YS@zw9(YF)7tx3F%$<0od)s{B~vyTF*M({X#$jVOB* zPpqwbd{^N$^RKzO262(d?l9A@;GbS?6j+2pm^?fkD0|nM#;JN!Os~E;9@wjv1I;s& ztc22pQOehXsvqn&a_i1mHjDPR69Q}WFL#hFx9m}_oS%j{Am>_IB}^H4*wuViwTY1-yf(&py3#WHwLY5{pt$|6q5MVg zv2=4+Ot@6Ida0mtZlVkb@;wB#Z=PAnO(W*v)XMUfl+hyQ+g(&&cZZpQn7-MNi8WM_ zo5J^7Z*qie-a{)%wgbCt+iFcL?vcAYMsbBTpI2T@E@3iLl~Lo9Ypb9B3iqr40(hU7 z0dvf}|4pD|HqCm3HONCtxg$J%E-{_ zNOxDoO~q0uNk8#P1OEqLeM41M6CGPkw^DMGLAwI+nW$fD$OI6>O}CC*7FRv zg=Whyib9EqkP#@il4(ZW%rTFgD9g?7I<*=Y`-3=j(DDhyc^4w4mKHfn^Ql-ZjI_-k z=GFq8_{Kn?(JEWAzpY+d08Z`7C)@Tc^fKWaVk#b(x6}1PxM!bUKQQis&lS$U#}CF^ zngRE3OIqY+vW-V)X700~THS3v363bhL5l;nAdch|O*Mw=d&rn-kZt+-!58(yOY`^C zVXw~WZOi$vCm=|Wp}723l+u83+UsoEDQ0%2C%E9<#*LAxO%0SSZvc#S%ymu6&v{t>R9I%**PQSMW%JjL zvtOpVg>ox2dMw!2M8Y6I&ctje`TdTK{=TND+(8qo?6rmy2k*o!mrIzT1X9flCU$bn z&*fX5Xnmc(NO~Gz+7Fk^bO9R#WUuqS+DHpo-ewb?`5{q%WFm9Jxlpgz-eft9tKB2P zUfgc{79kqQToWIJq@w#Z35?zqP)77@Z2nnZNACnDMQW7|Naw>@y(u@>R(I!)9pQ+U zyVo96w{$zb)nsunu=ciKf+fed!o1(FrRxjxi^eY z@5co9rsT+O^G4k8PAr+NJ;)+Lu}e1YNVo8>;H)A8Ro}P)E5v4T2zTz0PIylkRB~yC zxBv6Oo5H!AM2bj|7$W2jZdU2zO&|a8fea{p5Zun}Ny?^H^o?Avnu8XiXyy6XrJ7Yy z8fYRd{Vz{Hb+i2|_4T0s7VtQuewmrQ6oK&A27$fX_{63lSY!^ptIy*#s0IhV^E8Iw zNrM4I{J0Vmb6HJF(}#D@1gNl{q_)l1le^CXxyS}3-VLDw*8XCFvw&|~xOtD~Cr_Cx zc$Ys+9MA33#}*c;)~4;z?-?x{`m&d)=9i8Xdm&u@N})J5%ilW<@FLDhLUEfN0)=^&~# z0hX=WORiikXhzL<8w8J4py3kWYBrM&u-s4tHof}!rQL))0{Mp`MEr}tu8W6`h% zT-_GH;)Gt0P zyy$k91I7k-G8beIXRHh(VaidVa^5OocjY5EV}|Ue3XvL9y%vAjd4-5q68%Ly%Wu~G zkwL7{k6Xr`mgYCT5gi|_n=D?F><7KE#>K_vpqvD$2ljj==nC)rD#+Tv@L6&-gTFs8=W}iQ=Y6humbwk^O_#7xD{7mV(X7 z_&7W_$3G`}YvM+3@~7GQiRM~uUTz}e*Q)zL_J*p3xJlO&3?nO3DgcLP zGbUweZkUKr*=lenh(HEy?LkgM%T^?|l<#nw^lSEc6oJfaWI8tEd`%cP_w5BG&*T7C z(>j0SuX?8Hr?esXNg{nSKzV33ZuNGE7?o$7M}G&#Lj6E1k$4u{QqmmJF>-ftA1J#E zJD%ZbhM+i-Rp#5eW&6Z2B>?avXFs1%3W>MBCs8j7;Zr;3+Q_p(Jwb>?M3it1I3YQ$ zv7{m+=*P_u980e)damMPcCv;E96n(hnstu=$x6Hb!+B7Zoso_3*yN5qXsc_&Y>jT? z`X7F(Hn`X4I-qpaC|UAxiZwtI=?5u`0R4Fm$0Y*!l!G`sMo}0rSG70zQc2tEETw4Y^|z zGgbAe-nT}I1zoc3Wd2aBmzZ8fYGP(+jlM#+&IvKVECVnX=wO4lcjFvy>21-fwQOyl zL`nb^frZ|FkJ0db-@_?uZGW+MUP$i>vE}xsuS3rh7?U$qTDsaW?=6di6Oc#`3V$wH+@FU1p3=Lv-si+1GZ~caRX9g@4cDyFGzSEGHq>Qm z-f~lHk&%`@5Gv`tU@9k0o<~bjxw77@c0p>y%8_eWxT{4H#?#*z51jk*;3}7uk&{yY zaI>Pw){F{wOG7m}`Q?*4apIw3y|kgOZXS}gxtX}eOrzazDJT{WF7cA|@%yiqfBM+g z&97&uZF1b08Cum^q`LU|H%i>#1%YfR8Fk#|)E^@=#{R)b_DxrlLI7 zca%#zYkn4BJ+=y3Y7`VB>?kjyNn_tSOIeSKxo&A-Ph0d}_o3#f*DbC1ICFfPTXTD} z4LK)LskJytIX@`}ylaAOuBW-o%Xi7!cHKiV-de)Scu}t7>1ufqAlrs|5?hTZ6|wAXVJ6=lOIddxKftHY<&;0?gom0yKaLu=X5EX)QKRX% zvAiSHXUd#ZR5yz)HW&SyafyH$r(@x+5=c9YRk#BnIYaFIk)~ z2&r_?<}UHGffU^Npv@(JEmAZLLj)<;EywX6UH&z8I)uswPPA17v46@FXm^I+>xOwB zucKoTD?lR+#Dz98K%krD5oBc<5lUUKV|O-(G~5HSyesnOmKphoP?&IqUVi@ElAmT6 z4fgRqx+DWhDbQx(7y+tSQ9Afylu0w9*v4aIxDJ@RdSws^m1t(Rp*X~B%b$R0aJ{W+ zfjb4bEUuv(n=kUh${e|17=M7LtGnGO_&TwOV0>-pu}=emYvQwNkELpuxw`E>;{0ey zQ_^o@*>_9S?g{NWZD8Z?!Z zu4vGo6=?J8BUIMS5Y}5nN5dzowi|ltSS3ZuMz=SO9exp0rS6^UYUYlV!nI5p-K5&x z<&Uje8N~5g9p4=S?8*-KK`XD?p(nP4DhZvWg{T=CF!Kr;xr2qQ)z1qEd?m zAw#e_Q~u|saXdIPh+pRqTs$(u*TjS+j9*0TOds@n_SuLPdM7;m9O=_ctB&u|8aBOK zkiKU6CqF_HgHTlL@Tz+#Iu-Z6jSE_81?@(pq?T#4$#JW@jEEsXL3;QotCt|b;`+ho zIXrQ0NN$|Vvsu53!2+#HMWxSVI$v@@-_Cy9-Lz({5Mfre%LHeba2tQhZLUz=;`+xo zOEsL#QQvnseuVG#=0MXI0X038sX_&h=iCT8{KSgUw?=82Hqr06@qoA>ZZ$QI=^nj1 zm<#`=joLNz;fBG-tgdy=(7h)>3Ozzk-vL zMXF899CZ&DCbZ9ov}wAQaxbtvS(pkrPqa$%o$1t#N3iAVqD{4KDPg!>K9fySP;0#y z36HluAF5}s->JL38=r%7hmkvMiUrQbA*H5Ejqqe(!fBeh8u|=j`!gW3wsP=HZI|zM zO^6_Uf<~gj4HGa@`85M5rkhPeWdgn^!cDxnzBTjQHVCqnl>rP+&lo`*tCpKZC~cUX z3lmnf%>0CG#hdDGCxaUBly!|K5K@yAuirgV>wVoT92fz6C`04V4gzE<=)C97*+fSU z1!#P2F0wAr73X58RWvE9B)yu4t1P2j`j=6u}lu<)xxzSk^2p8SjO+($b# zR2?83nzfJg^2RJl5At)%Qf{Ij0F0CuF(rGzQIH|GC5$AN#pjcAwxTPGpl41y!nZAg*X+M&wg4O>Z+z4l5EU( zp@OAfXX2r@txd&A8uU?@^ZigXhWg<**x6(fclTF*i?}h_f z`ipVJ4T9~UY5W4vwm`Bu2IH~K!^{mv9T@8FVdvpo_&Y&pqg%kBpJF;mL*!fK{qdZS zW6`n7tiBJwWz)35f`;HZF|lRGSg65(r8>+(1J{yzBhl>QiRg?(i8?_K<-%nw?ogBw z+U}hlZTZ#)Ia&~+f&R!q>vjBSlR;{x$4nVq z(iwcit=J5xxK&aB=qo9wsb0qgY*#||>pP_-)6-bDyB zfO;Ey?+Q$B`qRL?uFpLE&&QC5|LK5^xOCZ*bQG}xR((;Tcn2tqkt`txfH~_H#Pyx)s36g^c;qXFmcHgyXr0;4ek|aB3TFdG(2Z_B zr#rA_8;(jST6YjZUYkFvZ%`40D2?e=Q6z}s-iOQ8$Dy9POf(7x^r;0$()tAZ+Hh!U zszHISpqds;4s%!KKAc5<83>KK5lnEOYilm2);e*1{44DT!`qt8TsTUDZg9>JLZblK z5wL*!t>n1QLx7a6TuW)R{8U%QkV>j=8VL2tH+~{JcE#Mk?z$qCHfR*+U@!m}?IOJT z=Dx@4t;ka6+Dwmf{xo#@x<%P}Uxsk<;U0sZRS@cS^Z*Hgysc(lt9E^s=}Et#vQ^X4 z5^b88xWOPod0%u#TZr1uk)5yK=vfP;j)tGN@~9O^eO+3k2Qx27w#YPq~0 zJK0Cw46>J~m~4ySH$l0Yo2OmBJmFh`?Ttqw84KJe(6hciIwrXq)t?Pp5Krz3d4SJ9 zmD5#K4gxA_Cy5Ak=chr`3g8|RN)**}kEA|6&pR?P50yB0>b&mSJk{Tf2wK?ty8glF~T zn!0}AAG1~TGQnw>k=lA?B#^U?YFlT2xIExsOiKzLscW7>YP$TjO<%>B&cR(WAAY*w zsl~g%LLLy@gXfOUv&GJ^Q5zSo?(5h2-}}cbtF)|^tNSMdfSdLXQeTS^HlGT5;MfK1 z4_CrR9m|T&1973V(9FNva*VIecqN<(T97zaLSGB+VbCLx(~VS{O-Fr-FI>O^!Udp; zL0`YTHBwkjDBXp_dZzn*xJ=n{I6p^b)wcI`jOr#)9j3eu@I^PQwNwg;$OrCfUbDH_ z=AP8oBN{%C64MR&-$t85Scm$y9(TjVEtk@(`Y|83nOJs;q>9^7zT3*#0L!iNhXV?z zRS1OZJJr@)&p#Uc>Y&g#U)laXv4w5PM>qE+{m0a3l%BQ^a zOnTM%!>?&UBV{DXkt6dvk7jp$WUXeXdHroZiw#=1oCCxU9S!cFH&e^7^1YT^yQP+u ziEbUMM7=yx_qb#YxF&~QgBQct7} zk^SY{Il-N&dT=Zsl@Sq88#2nttk2ZnK^s>KMoJbqw6d_w@=j#b;8%n^hNYZG)uqSp zx5|Wag3BgzX?kjYSbXv}1FZdv^)Lq2Fj=tk%0dpvqEvOb%TFf{nTE@iGV(79)Q9Ds zL@gVH&tKkVWDw!jA+e=2xV%w&)xALb-SbQ=U7xwO&fs zb8et3mD}C@5X)% z`z(EvG2Kv2%iIU2a+h|ZS7mfHQ$1h7ZDM^8 zY`8~*K@R>K0osaG=)dZd0lR~^l`;dQ2@M{n-RiKKFdIL-Pz zaR1H`5$lOzQ&VlhQ;6yx`ZSu`OW(vd6ajCGO;va%y~WxB^7|b~ykpgDjG2}$9ryCoBxmsqXDgkDWFMf>)1X!Ssx8CkY!A8G8_SO8RveUCnt^AcJ zBRy9GFulfk^6NrAiHCGhPW3%1TZZHIl>dX8qae@afa}uByYV9Y#Jw~4L+hG!!NMYm zSGI%nW;g=jh`=5Kp!t(RXw@K6NvqXRgt*6UZTS z19SqNSh|~vrkx+Amous}6qV?L2#rbOB^pR$ExK@?HjeZ_ z??nf0h&;prO>ZR$ECgr6zZ9=6&BHym*4`A9nY8*zxae8v%}yTg<2DM<=tQTG<|b#V zmH+e8lDR8(4XxFfhcq{(zC&8feFb`@CtJue(@=&NWvVo!EM%)0wam9u2WkHe^2z>b z>$g2q>pZ_F=K8-2tojH(ciXp!hz-yPJ(?O|GmutaiTBO zr@wKcMv%Hcw8 z%{-_<&|mG=ghlwmZNzCum{1Fh&$VeRu=QI|hiBNoekiKxj{ zGt3}W(B^SRD0M{m9ZxNY<2`U_Vthghm)=yS6a3@+W#7@;n463uNbk*c?u$LVFVm7154o+Ega{~i+e z(S$a0Z$f=yU6FFk|PYB4^uH!XV4ouQ5CLbTh`5B5cENdN#XI< zn81+nWI67`O_oH%()D>0%h#a#jf+po5}Gejsl*JYH(6(YcN!zO-<0y!QrSEmtD?C1 z#U$JA&}i36Uww`QPcn=#KH-F)j>l=4zVn(j7nyrRHo_attAvu|?0WOrT}8>CEGt+q zXR2;TQ=8$cmHu76Maw-GA(X-jdSglQzYlQJS@zOd+>C93#w0yfj+Xg^ z4-6;`Uuilx^scP%SvsDPEn0SA9t(M_9j$Js%myWEHZbz@2~_|yLYwQ`!XlbiXDa>D zlGBE-xD*4m-K!M9Lwi2Ru=#>JVNE&z^%=tY+!rVpNM+AT7drG3EHXq#An3)I3A%Yvt*BkDhXEb8ug4jTZjxtS)5D1iPuY~lLfdRL5iO$M7u&b zEb2Xyp?{iJOLq+y=cc|_b>HEqV?K8Rx0GVrX*XmocQV&5xSgA8k~Vaq5k?4&7w$)i zo5J}ga_d)o+4EqQ(CUKe`-8SR>TX?UE^7}+?Pi+$zeYBD4Jr#G)ee)-rARU8_17=2 zm=@|0G}@O|))2vS<&kECO4^sPQmdgpOx(MOaIvb_3n|uOeaSDfkcgG6zsIVKST$K? zG05}b6i(T-mK*0K<{$g`JXQ;9dnDy0>m}vougDpW@4XtO#*HinN6{XUarSv7DyG2u z1UA$nsV6+s)3-5WrWt%Bu%yN>I^6KY{$n<7gv}Z`eu_1oe|#T4w0V2mN?c@Pq(!8Q zz@rz|G_&r@+AOh!q_t+&#M0P(z0#{TSDutg#T%RJ@#m3}UF*R&;`C#FUJ~{rzL=8} z?B2lbAzml4^kjD|Uff?|ODyyJ-t6y{UyF@l6^+o}ym88E^}<>B!&l;}h2i)hMQX~> zA$k{v!j-6SuH8Tv(^P>x_ae=GU&1{x%JGH7~^Zk1?pGJ%5RM$ugE5oUV zkFO8REnz|x5N8{h5q3z`U;yW#hgj?pFzHm;Q5-FK4@eRN}w za^-~|?_)9N?h1S%NPImPFlub^Cu>G^Fou^v%-qA%lSh$emX`pp#+2g)Lvu{zxiof?!HSq&e@0%o2-9+kg3&{ zVyu=HrLE`Cy^dH`+9Qu&_tLiM{7IwAIP34V(=Oj1dK@BCA9LoEOVV#|1%#zD8^#{& z_~Q@mgz)cu6Auo3cSsyp2vxh{?SJ~UwR-iY_eRNp{K%s$fHW5=eO?1kZoxktB~&Gv_IEtk=!1Iny5NLfxaM2S z4%dCJ&iyrqJzaJEl|{_vUyV3;JU18fxF_p)U+-k( zr(d1BFX{Ke=hcZDV<+vCLtp+@IAj1Z```jJ1HQX|t9Z|#j(c7BpUv>eg7DSgmyoOR zvwNePf-W7;2c@dORBCSh^aTxq?H30!o(X1_y8=(1X}@24dn8vE0hWUI|F%7}V&x)4ePe-fs@+e} zQ*JLhUL1a{Ruy+7%$}G(@#zS5>f-NH^R|As4%+R*VmlVZJomQ-1979x3!g1Bjtj6q zo8ET&>BLe~slf(n^RurQ&p*7}teTJg;cVAt>1OxO*En^j&&`^P=s(_DeBm8Rqh;lO z={G!wh%%0Bbo0)Ex?a_rPUIcGs{*&Y^I^3TKZ~gUtzn&X=uUu^;RSDc<_YHwL6yQs zjOo%-I|9hU_}`5GPTCFH#-vyraQ_e|CoMb`d42-p0A}>m+v&c`nfW&NaNJ;SkcgSK0okhtX0|m z8n2k>#EPxaRk4M8Y24S1J%7|21&q)Tk+*G6#up#fJ;ejskg6A3hbMMB?q2%dcWvty zMl}5wci1yW@jFuGKMPgQZ$(vN7E_6O;|CjY;oUys#^17xt{vNvbj7iA&W`YNPve(Ao#yZGucv+}elhgx0inelBseHA z7J2Z`U(bErn(Fm>Xjgs81>e}T$V(>@_Fw(BE#LRy#>E36kLe-31gm80FZSd7wZ|95 z!MB{@9pS&T&6xe~{SA=Yb*RSu8dH~p%Lu-#rZVIoKUH%|D7S?r4GVb~rFu@!6+o>& zC9#?N)BgAAF;u<$p8yF~&Y2q!96AxzkJ);v{ifXN8|2Mo_ZGc#tK)yk0#a8W&pK;e zUR;sNmv>(J(=1PP2tDb3zx;N;RPnd`ujSbFTamkWKac&|=FodbvA8cGBlX~~-q`8)RJnPeen@OI(vUtC}&DM4>vXwW)9*o@Z zs)lb$5{7R4x!!2r;qu{^e;sO(^Y+AlyK^>vIxX*2!25kkQ=g+5iyZI8mvsl79?l-M zTDe_z>N4AAr}bzKDGeHHI))Bx2>rE_z5bQ+j}8Agqq*zYf3xQv_<`2`v2OoYMCiX( z{r`W9`G1hP|10bA{{s<9|F4M9Cu-~e-PiMD-~0Ec{vRMhouLl@CUheZ$lzda-1+~6 zbb}p2@o}l~(7jGD7}UY%6#h(nDs$%!e+NdRgb3a~#B$qC8l zf>Lm?r+#oiN%+`PN6+Cd066kvr;^S9PqPoU&w20vHX`&tp5?!O+jg@yaEH1cmoB=* z{cIHY{^0wx7veJGKQ}s3LxIA!U-G?ombOJ*|G$q=|2|6nuYX^xs&l$ppfzny|M@6E z#YzK`{xV6Guonh}5+x5hatdH;sN~}bc4}5eP(G-J547Z{>@IhjeyTR-c815m;biYBsppl4@@t}@Nvn~ zITDaUN8b>uHpzKDhwPwjpQbpWJ*OzS7?U^-Q@8GtP{B zF%Hb^24L%QO_|%)Xzk*KHPCKLs>xvI^hU8TEJI4Q59e4 z4!BODr4K^7nzU7Hh1rkeEa0k)D&i%3-v#(uM&kN+bJ+F?d6xH_y1N>^nz3`+0Xq<) zVK$IMjG@8nHv2A&^2$u=_Dr;qQ~7;-FXqsnfb!c>J##E;y?BAddQ$Sux~7KARhw+7 z^hd?jiX{Mjj@m>d^+t9Fo-Hd>-;ZX9##>3Wd5fg_Kgpbn%EET6Z05#z$0l;>_Is(l zjEor(bwz`@9@#q43{UQ2ReY)g^Aw$9Sbk5$kd%W~qJ>7&d6n5p7BB$p0d*pGDOb_0 z<)h`elk00sxCf+)sb+4L#C!~=){t^jzFg{MFrd>`mXHuyvhLr7-+Q-RV?!a(Kl#jE-$vhyz@j7vv1CU&T=YU-RYGmOsob5Hg2DjrPTj+M@;Qbm@GOD

OHMLTDVo`7eFm%Qyos8Gypc;!P3wv!N;` zl$n_blGh#zoJ_4sXS|HJ_OC?A_|oGE+J$4U{L%A(ZZ#C|?e@7P%-Rd(XZ$0l#2E7S zNjG21(FqiUp8+6f5zUe1CKvIlqRd1ag2AK4SLcseWm*mOl_#iU7@bysb0E>PA5b>r*fn#vvP{=b{`x9AK>N1BwIT=i>gRHxCkYB9I}TXa z?avv`NY3s(8;zy5FHE*oF@w-NP|(x;0yc*KsJPQQvsKi!-vZ32;eu5=fUu;s3~lN( zp6vU~K~yA??8)`>OS(JS&ESH$X&k09&2YY0`H4x}=B8=w4FY;FHHHQ=&Z9HB2f+qg!A%%74EX*TPaxti(<#Q9)v>=+sA(7v%Ogn8NN}d0hN!W^y*SGkJJl zuLIZ1qdc&fTQk}+i}i33$_az3sZ}*EchKxCqP=B2$)Q3Z`%U%#yRo`O8Qqu|(SAwK z+!u1hH8e2aG(J9k`@yw?x?400Q~v(|%qCie4mdIScaMR(Y|*UV6~du9XBz6C`6qi&>e*O-*%42)II zkyol6?K$8KMRz>RSeId8Ty`G+B2RtGWOhw{=4p1CV9>~lm(CTX5OsA4<&+Xs2a}S^ z%sl4fSe0}3IXN6Yo5eq7x>e@XA#d6l5$(zjqd-W4i_sAeQ$j|DM{JJ|FJ1u@80H)J zYOn)nP6+~>oPBL_s>f^3#3eE<7mvfI7e$;h+qxpZNpy&_6dQS=-Cn5HbHnRI2j+r^@*1UY-kFAe4wZ;ynUvP2cw0?+9MPSQVBizg4r_Mh6=SBU=tz zpU4VQEq(ht^{A(ZivG{H$iLxE9xyiNW4;|TB;1qBX0fm(dGxym%U2sC-5m>b;@a!{ zzY&aYh2Y{S+x8|0qsLW6gxl*(6<%U?vh;J6HK{q$qvSlM$nE6;i_X=Z#a>b-@lWIF z+|$=9a&PTxvmb(&#)<31gApCbpGh*c+a%!&gPHpDPg=onLik zLzPNKxVXE)Pqf65x0d!)1ZcB6Ixf5U<$aG33zO)j98Cvq>@q|IOB|Sry$O zrAK<|Eb$rH<-L8JGuujLMoK+4$ppnPla|7bJBv0f2XW++Q6u4-g-N&lM8rR1fAp4v zU8v+&rw`?+YL@j_B-8k-^`Q24pG2o~zZs<(H$-C|U3>bvx`#glYDYQ6yJl5Mb-Ej~ zuY9YC>ANT98Z#N9T!F{3w^Y6YnjB}e%(F&Jjayz&k`5`?CYmJuKRg-0tJd@J!7gC5 zIUl{U!r-2yczH8sS4bV5%SKV%vYla(u8|jo!7xIE2}##Tp%=IEehz0>(_!Ebh5luiTcu<_@AteoXxzjs3_I_YNjxe!~wC*=|RgE&$)!xYj`=fybNptPT-B9l4{I82u!!J&!?fdZb z=Pi{7>8Rs+geuZKJGS-jo1qApmI^os^DVKuTFZ(U-Euo{EW+$S=_6|us22d}Zknle z$vF46roR0-!fcBQl&cLuetQMqD;I{A(FfUO51sLJ4wBjMpyZazgD3IOSyy;pIAzg3 z4#<07Qn%R%Q&V>j5=Qak9u~OO=P{eJeS6jwqx`wFJ4o|{_^Da!Fo1#f(` zTe$^nFXuQ$+}>JV*1r}T=TWQoTlUvWbzUC0K22QLqw-MshkFfJJtg!u%2m^6xBxQ!R@ zUs+o<`{xsK* z#&SgRwUrE}{5yPoF?O(DMJb6cC>((*3UrRAQ?_Qb0Aq0e+%)Y6p=@bh765kzGdgZ4CPh*rL4Ot^aqi%(tPmkt&D0PkF1%rqP#47p=C0m#l#w1&^pm@ksg$nGzx({`QslJb?bel6b4!WpYRIUdu&|ps zbj>gF7^2(s_tYLi>W=<(kWyT6VCu{J`Ps}c@AW^TOY72DK*re;kYJWMGg~5Vxk13#eBDB zoI@;de8f^rU`*KTB};wvBWZG_atIO8votZEG}_DQsUP~wciGlOQpgGE2DEv|sS!v~ z=5Xi4olJ_7(_*<9*+NTT+GX*m8u~?!hu1U&IL3R&DuCP*I6wKlYqf{AeTAtit2VG) zywK3#yD+c^^urWiMcM?oOUNo_<AS zB`mVrEDxX7j1NP)FgMhEcmREhqc_!X;l>27yS5t|C>X@PmgP0j+hXI%%**BA_!Vqr>si{O^$DW*|Z=2Np_OfpaefAfHhwUg6sT z?j#`V9wB;~*{I$}fRFx03`so`c$Bs+h6Eg^#dk@Bm726)^dHoXz^Z+Ia2%fV2Zd3OVsLX@` z;(^!JL`D%yd+h2Ao^zFJI&;VWxc=?1y*^OjEeGBVTK7(k=c;UPk`ijwByUV-L%zgy zXL6K^-pBFa(in9kAgC%?ZnzOWv3i(!v$$yn zU;v#bre&^dsfh(-iq^N*-`x}ACNocDl~0~3EHBQ{0d=PKS^^N%z8K@T>gDxVZ1l=n z5B4wY!aa$y){)gx>lERYmvAqDw3hsCvc5;gY1vJ+UyvuyDaA7s;|5XzP@}b6KCzUW z935XW?==OV3=!Cc@SZ$#I|mu`754n`GXU-40}GHsQL#e5ON) z3X!Ep?>eJ;^^ z@!3n|9OVgjVFyh;bSaI;D%{E-3>qOwyVg)c#q#7m8jA*+0MjuWvLv6y?Qc~UWJh;{ z@y?6~jvY+{mSiR#D8CQ{&2REAs&ilIj#4Uybd(wN6Q(Voh8jNp5PhPmDpJpm`oMM6 zWw{xwYN%S9>EwT7a@7=aaT36O)!bfZ_lC2n_e$&5nFsA2xD4Yq6g%djBJs0{s+*0| zXE-bGWYDGW$@qCWM{jQFU7hiGgdg3+`3AfB*lrlNzXuN7$%+&66rDiTYN%rAg8UGUikx|vn%?_{K61Cc!8|Em}Thz8gC@~3xpjmIP?FD zrnir0djJ2&Kj$PS*QBK6GDM=9IE04E)iyB~S*%eVBcX#8jT3W`PUWI-CRfGAG^1m5 zrrEoxZ~T(n@jl70z4QKZr2))1RgJ8Z*US51->hJY0j-e&$e=GN-d)p#UoT&S({3Hd4nP> zX1uYN;W;t7#$M99V8zP>)N=Ec2~oh2_*a&@iFU2GlYZC~qs z=okwJ5|B8;C$~BztbGnFZWN=fb*BRf?T0+dp1D2v=;0L^_uB)n%J)`vTSs?CYU5vm zjvIY-TVLzzrgd6j*GgHt2TXzfF zVpwW`^jZ*odqB>;6A0@=)|P7OVlQbTG+}P^$H++3V)e%%c-i4&i-EmBCRT zI*Kmcd+@J+JzFo?1}5ttEe7X5fz~V^y?C$gS5J~Jh=RGFBveM~UD;C2q)!(uerS)| z08Po4lHU5>&n!mKCtarO6{49r2aQD)3F_*KgP)Bp-wbmfR7Cg1c6hX2e_=?>)ss*5 zC_1l{idNzX=?CDx$$k-;cAY5 ze+Yk?>87kG@l!8}3Jk^2whg_RnJ#-iNzUg74&$p|TpyyBwvoCRkPF0NVEjTM(UgY+1WgG&zaih`vF)`hhQm1SFY8GVvS8!O5fwMjAL^?#_6}yR0!Q`! z>j6=#DjY3vW^lD}S>-CoU$lI-6WVtfErkXpVFNjt|8RV*u-=HxP7?Ej_FwZ$yJdp@~Ad>(4V`2r>r$D_p^UP}|a{*?t zCJ{V)A*YBjVify10c%PHVf6HJzDPL~VI7mFjDl8B>cv6i2E>vH>$|A8R!TF3d-WzZ z)^zv5&GyqfHy)m8Re_@86!DAwRaD^LIMUFt)3kS|hqdixk8 zRm!c^ea?cZRZd4eD+6%%b6XER4U-lv03V%OKv`L@+uB<6?`@L#VuDHUXJ_D0PAbb=OVC5!LS0~j8#HwNsx5xQa*CysuIiF%&wk*ep`4wr-XsAd8%iztJd zSIv9Ke$kA$jZSLOeiUWFjD{==a{>PS4l(}BQ$5&CeO?@Sw~{x61fzwKlqzO43wcH@ z+}RJFGsxc_XJ5G9bmNoRTBV`X9HDEs8e2f79@^+QQqvtw*hF_$pzoeK2#-6=) zM|b^4m^X``HG#7SNE5KXWn;Cw9!OXCn1jBCJ{N1FVD2(w69>JVF;)5u^Xd0Au+S8a zVUFzpyBHb*6;R+6?m33$T|La-(jcw2d{X$+mVW(H^f#t92*VeKB}L&N=s~|Q)n1{u zfmBHem#qRO-ACiEp8t7i<#o^>n<`sY!74#0IgxexT)D|$p&pM&n4ujT&i%Z9#mGja z%u;`BN%uPb+oA8j*MrL;{u}GbdWnEr(wUman4zyto@(}b=*?QMQV>hjQFKaZWVX$YfJLV%j7d{5`u zz#*0xnnO2@zicET^#vTV)x|WWKyqfK#$&XSS;nmDBM=kwH$|NPER-lXmjpIwUQ`0e+Lm&HkGt&}@?fk`Zc7H!Hw8d%C$ zI&VDSwmE0i{#de+J~iwi-c+ycupMT1NIACgEutITX9R-51erV!qdu#wkB z{CcX{uNibhelc5`-MD%$T`1^cxcE3n2K1KedA9Sm?;@^o;JjQrUp5^Cc8j3Y39Bh) z9z&;<`DUjt7^lJsh6g>_y~JcR8N82AJIS1(Ua-G`({1#tt2FeplEre6g;;d+CNR3& zJlFUHMmrWjdgf3lq*%#WQm|-3$To0Vv9wU1Mfo;^;`5MT1<5qpy-n$FF*94WOMcZA z$82%+2wqC)9>dI)Y}=K4aXs0so8N1$2|L(#AZBThaqig($x@0?xG4DP_(V|4XZKrX zVBZmSQ^2|9RtC3mjxB-);u&c^L2o&JDtt7Yr&m78W++lRfCxM=xd1Eh(Y_){y?=w# zTOC}U$mBQknn&>$4Dkm8z>4CHW!Y~MM-Pg>c&A08oE)u5SdfNCH38va(c4%y=aq!` zA*_zR6HiY(1<;BXQ@rjYNa|6K4YS8+E9D)lR1a5z@ zEujPjtBI!FrwFG13~Bs_hA7lDQ6M9!t)&-g&Q5n6ZivsFpuh9{VsLPGw!E#?)j1Xr51?WO!4-X@KXF*iL($baWF`J_$ zg=F(o>0pzcPp!}}#biCdapQlNTO}klyI^3&<5Bn*onu8=7F2dh<2Do9Cv`Fcs|Uj3 zdP|W9t#ct2K}na36ZTS9UiRuYIIIc^i>n1%LB55=+{x5h^D8>^=tD;faM0?LPwDdA zji~KtjC|?$1OA!9!FptR_#O8HF2zyUC=A3+m0EyHgZ$#l?`avWNxjI4gIA7C8~1VL zD@nA>)Jh|rDAW=u```Sgm09m4+`y{hignhpP*%hG=f9iXeY64v#%~}7#W(*FhvRqm3 z>jS6#7ECj$R$E4Pw|igMLp25GfEWZ>oF*I6e>jw^*HxhRv-h)0^PilkxB>9b z>t_W26HXz#Fa(~!sq8htc^HXB1gAo67H9_0d>(7{RI5ETg9n(wFvHsc=xjUOaR5Jg zGP*vyu{Q`UMsc(k_rm?>G`#XTae!`$EgMy&G8puJP>)$?6xz*0rbVS`ZZq>Ad1a!r zRVXxXK2t)D*olPm&f1SJQ6DvI>27{KnRNhv;*aFyAC~_CTgky|-{wgo@DR733L7*e zD5n~#KlTTnxbdLHa`Vggh@gW<14Z=S7qDXxVM@VtDYi@2sn!UB9es{g^6)9YTJ#1_ z-udCe$%ZfxZXuOSKgz9sNlw{*?tO4I@4O%#|ar46&kKb?@12{{P&;!xyQVl?PH2$8yzHK#VG)8x7I*{x9_eqpTjjB^A>cjS z^QkbbxW!-&uA6f2x9=;-fv<0t72z;4;_nXkGsb2$`#bSj)7Ni@?oTaFn4N+4y-)Jh zHMFK^A*fBOeH44|v&#MMODPY=`kbDSeHI+=8O;#;-W3d88Vx#uD2`X6vy>nmzO`r| zSc@=r<-mBq9M-&F2b<|N6ZU<8(u5s z>RtBZ4t|i6(kpGfb`nTkrm?_LAfWaE7Z}ATPWP5FWN;=|V%+b#+oQj8DTP`~woD1C z?d~8?w6{uA6v@Cu4BHW*C?iS>-p{mYPoN!i62{wWWwvWR^toog?)vYl?^eyj`Pr_+2?d z=`-!V%ap~ic=!t@U<1IoR}Or&n_jCQ2*3NuTgEDF{!m?BULHW`WaM=7bXz|kFX8FS z3yVJ_NT+PB+gi}cAZapODA1Y!fqBiJtzLTqY}T!l*dCGBmiy#B3H~jewG@fVl6NiG z>;M38R~5oxdIB?U|Dyc@Cgt1Xlk9escYZ24lfkaCs{B37d-M84*Y;kaEG-Id+s#BW zsHS@50d#gY0noiE{~GPe;Jvs<(ilSGSHTDUtD{egX{TviCl=`q`?h=8?2Rr$diRc= zDF%?zXZs>w)BVT*?G~enljasD{z%_SMTTA1EeEpyy3+qEJQI2JQJn^1T1~n1PS4_a zitU;I*f))(Pxgh~cMNi?!*)|rY1He-vD#;T4{}4$#G=a~K?gm+N#iJcb> z9kVz}AoGh+OEFJaFaC5Nl=+2^B-ZXYa*5bwA`4F=uZ$lsCTH6mE&aJL%s=z{)Mf>C zb9IRcRlw~;FSYisHt~b0Y&KzpL#*zVgWvCx!s-y3Wp0>byLTJ` zcA>uu4Z7Ku(COX&Cm)_Va)Gn={I8W(5j!+^gefwgkKsMEnpPA{J5dTZBX18(ZCF11 z&EF8kAGfDBNcZT+tJ%3}3VExG`39u#<98}K@;W?Or%n@Q_UHFxK5K~=5ioxrJhQ{4 zG0Js}V)f`R`#k^rPR$(}Knr*53NM0Wk^Ej^y{wC!d$B*{b>d?MJ7z}oxxRmx7xA+1 z){9-SXdsh74ej|g10)^1oAt!|j=hr>QSMzvOF{jT&R44$xNC@!rU#y$Q-_in4Fq1C zpFuI>4|gU$w)q8{qD;U1=ce6k*|ew)D)Jupp~s-(^e&yOHABpL!Mx>ji^?{t+&xN` zD#z&QVeO zOcMIv3&H9N4RS80`6`x$9fWKWF^*_nsI?PefK832gN}x4bX>4#b>@D~%>3}}0mYmD zwjA)W`(m@ClV@&D>O`jbg19n(J#1ykKlCv5E7M)Onn)&eT3&*`b=^W!CwcQ^!UwJyMqV*dQT>C-}8)2^)dvJ+G3-VWUoTQ(Xv*NQOj-JtyjYC1_nj! zFnkUur%evpdn+ftfuWM-j}NKk^MNNTt;3#<=q~^0^vq!kWkzZk6)#b_qfs9pVfe^w z03RMck%ijTc&=wY%eMKiP2Xu!Xex2eb?@o{G_vzm>;rcrW2Bm z%wRDm?K|T(sP`zB&njKr8t=J*kdJkIWC=aYhCiQrHvHuT`9QG7Wf;KQh@CWps{HMu zjh?8bzmgvRyQKjF0q)e6Dz<|@Y9&K#0HM(+rWBw0vGu?mEl*&k1mL!}!26BorSxXG z{F8%T-iLl^AuXrp{LhV#{)C+kI#Yzi>~CaWLRVjXB5So2u6_1Dwf}#nNdtU>o3L8m zcCW_v{^7uDkubPQvuGer6F0wf^pn+6b7QFl%6PQ>^f`?a`JMmvKo9GV-Hq9^WAs+x zJ>6xHkeau8uYtG6ut~7m=PWJ!;TA8dn@hIdK=;k0#kUzE;pP%rO2a{`F9#-pJ8%|K zL9A*2H)N^hdI8jac*)+&!mjO3u5v03zU$5pJ_yZG#9A=7rP{K)s*n9N5Ah<|fGaB4 zNLbuWk+)Uuvq|aT?$JlCkcL=e9ACL4rhYhcZJ|C}-lX}~VbRxk&Fk0kPbk+AN^Z_b zyfG0~kuKR-P0EC1}Uo?txqzdyqX3F42Fe)|;~pR8mV?0i+%=Vy-&>iWa9o|t z32V)YEr|}^Jbm8tV;UYvFYSfS9Lm%0|E1?*b|oKMhXqdpMtB4!SIQ^pP-Cks-lVD~YwOrXd9j@jDw}YT6NeTy2R?-wNlFg<_ z(a@M=GkP>t+FYc7()MUmEXZAZf3Yu3STx7Gm%#E;$*HR3p?JBrOO}}CW2YDe zBASWzfux0M@jE=+T-WN)9#;9l1f=c~oasW@s^~f+&v`@PZ6ApEV13@O`F4hqHJZ{M z7#J;rHrhjjH416ZIj-7XCEH1aPV?vRG2~@@q&7YISe$$jvOj_g<%Q<|NYF4zIoVNe zKJ_`mVpV|!Y_S{pIK6>h%4&wtvl^Y$1*&a8R-v9wxrSLlb~leeo+Xch!{o%S2JTDV z*U$|z8)kP?m8TcJ=p4o|m_nzbD!L?9*-Gvo+;;*5=uuEn?Z2NiK zN%wQZuBu;0^A*Zh7Y^C!8Xm&mv!~=XE46?5w#b0?1HKfZy*l%UZLw8g*#k5m5Y>(C zZX@SU|8V5egtz;Bv(a8&O2ZV<{>$axeUV@ z)UnlQ*{XG`)o2REU?3{6>-zKR1y{I*gE@pxW4#L3u51qEk?1rm6=a>?KS`rbt#vh= zJRrML;(MgG<~x{?u?EaNMyWE+b6AL<{~uz3lV8PI!`w?5>uRIifrX#He|QHkS3+w? zx;1xrh^G}PekiInR?jt?@tmURbB@x*kKuFsQ6anP=Ve(-!QOG`iI9f1mIZo)>qbo` zJY1*3I{2A}K9Iry2gKWb_rpIOuD}cP-tU)tmaG9@%62U8mH!*crb11&pnz~c zU|z9j2azDzpeN&&k9PE|%_tNLb)~VQi0XZXXNibNfj3f%%Cz$hakPhGHu{Bp+vWn6 zd=P>{S;)Ny*2wp3C9~nFdph6xHlq=o4PCqX2|$fLYi#;u^Z+EDg4#sQ?dB3EgM}e5 z0X=!gW(v}?nuh;(d0j^AfkY$NT1rQ{WoT6PvnS%VF#AVVlC$jVCoa}M^pd&au4G$( z$uWWJY>=S!P-(P`ILLg-3!Ty46?lvODBC1wEe3U0nq2qwnLEDgaS>|K?b^m#&R5rX zBJ-E0;+WkvP|_h*2hwOa4rwXm7El~hROG!Z0BR>CpV>!GMD$gCg1eRCXxM@1@n_Dr z`t{jL1vJnHyWPcJx-nX(aY!X@L`Y9JhECZP>c7)I z9l2E~Nb^PkN;zN6S?!+%MsrFsVnW<@S-vz{ODs-z%n-oMFhbAKOqq{!f_bK{GC~%U zppr`8*XMrZDaM=@m7(&g13>PLHAB285rKvZYLQKpL$ndd5kXN3|euvdw z_jewhnLreGQ@)M0<0bqA1@hqgIdYw_gML2a+pviOik_Ad(?Itf!FMKikwPtN125U0 zPw9#bFhU!Dzw>*Ov1(YK%vkr=Hr50)#;eFW*eq7DyZ|Iwv zAYNqE^j!B@Gphiv?jp>**=|a-u}%rv@m@^LQ`kaaAu^B8h%&aIkId*-FSkAHd)ZQq z6-A+bwV0pYX7Y7EhjXs;!os1W0pIv9t7ISedP?0X>y;IrgoAsY8G6p3Bjr2L*^v!` zaZsQ4-E#*W1^vPD`sF_Ss^@F?pvgC)UUGM3LuKVWdj58@RR%;V=k(LKi<>3%k5#2}E-T-2H7 ztMXPoDrI~7sM{67B}{_qE#)H=5zA zoYBKEQIap7$#>u;BjOO1^K^YD_El42XTMsN1;rms8t#M~nI_x%SW#70wI@AOc6T-G zH(45pTO+qxzeu*E6KQLZNEWpjC&?8!3!>*`uS#Lwt&8%tQ8ldD<@P)J5U)VRRN8yu zxZKBeXv|DPe>ab888|yTc5$$tVgC;6Iymd6HcJr6TxW!*1Jh;sckweno*J)o$m!eW z=zw9QX2dx4YS^^i{6zx@TXF4@r10HjFUgMvSGLp;}TMP@DD^{XqnSCBHRUgT(A zn_rw0kUZiO6S6oq=6z#JH+{Oy)5233z5_4IXbRQv1~W(IVXun8u8NRfOWyGeZo@7b z5^+l8zDIks;>)}A0Zbmcmd|n3UuGLGEEncZ?dPy$b&YMu)QHs&vP@K==m{7|^FOT^M{*%cVK)RxNxMERbSlYIb^rT-g5jE5^xpY2VKK82~$bGZun&HKm3 za(Ye%rKe(%ZXLydKnhBwzf0+qwUK9gCSyWCtYa>LO3rx{(|g^7KnTE?MLSv(#sH!$ zgPU0!X-D@-JX3&FCheld5CX&o+5I5*w;7eiK0JW*-Q!_;%?3|202ZSAYvtzNr2B2CKc)BVNXz zfNE$vq6@zM7E+(OPkM1Ac<5vEOTPDkc%y(^`Z2uyOlfGaMMmRHe-wX;t&_Ts{-@pc z8|65RF#?hG$20MYW@>SaeL{rMuG^Ykis1ckHyOS*8!a`Mg~o4cGbk2|cNfc^Wjnns zRSIVZ`(UL%Y`vJh)zG`{@>&|}QOsH9${(k#>pGex-Yuk0SiAdQb z%TqHs1zetiTHbk~?AZLujwZRl7m@;@+q7QrErI<9h?A|1cS1Z~hp>uCH=O(~VVaUV zrc&&ZI84N67x(gkP%gq9&`xu05JnMknes_+88LxIY9U;u=j}pf^6$BOHBf^zbgD}X zb4f0_)v}C%G*^B%LR`R5MO|=6-LC79`OI6xoXiKx?K(uU!~az=x*CoR%*v+d#oeVw zEnUw%zo``T*>BA~Rm7Za@3hy3&6P$212(sRyKi_QtApVE$TQ4(yG4c|9P6QB-I6x; zoa|v_m>e5s-Tt^}i>>`ZzE;h`8;{UKM^FF9Faj22Y-2b1B-^U#Yu~1k9)eN#b*9vK zCRQl(PxcdHLz9K)A05#FRxm+2$-QQz@z`cZ7$|G%Zuef&y$g=XfLTownNQ>?hf5hB zr!Q!e1&0guLgT+1d2toI3#@OXP!^xmuQ8vy#sr%w>%kVo917l(KyAG49oSfr zRxAR^EfvQT-=yqou0zsNIKCm~d-RNM>vH+Y_MN+uvwkZhd`Z!MaB6`9z%lloG!12Q zr{rJkmMuXh-A$9dRsTELpm|=`?#@ri76q;1@;>4A%5YEo!KU>B?91Ui?w;E*>8Hb@ zx%;|h?wr=3s}ocy8kp~BV%pc-_Y)_pi`0TWu4Xyc{#DKV_sSBJw30{N9$0!Q?P%3(H6pg>nGL)!xIoG>eP-2qbs*bP5PI9%?`BvMHO-Pg+BN-j}DnbaA1! z;A^?e@AD_@2Yl+~Tx+Hh7rnO}wGAb9$iD|z)vC-jizEk)^#YvT7w=Ie48EbAz%9-C z;$KpM67o>hLEs`{*mJ+S6e}1cKSeOi6VclhMxsx*T!q975`1{(BqozO5bt#L9A~=w z#3oikXKSr$1FO@#Tsqy@A#fMPPILm3Rre@94~yvuze|4k3cbOJVOIT@2~nas;yZ4w zKMi{FcA_ur0|`s3hO7M*|3E;FDjn;ph*fff>}#RiTt|kBUO8y&5`uk64_5w^^oXyQfAOH4sjHgqSL3v2GxS4cbDf+eXXEqno7kscCL@NIPlmzIo8IjTq{~NFBXs zbAT?v;2(r)KB5h4b8Gu*2T9|%5YZpr;YCr=ys+f79Ki)g1o`EI+TX>{p1Km_`Dxp> zLE}$$wSAz+_5(w2(@pY#HlP==bs0daZBqfglTtak!5rJ%y6V`ueg)wn+#IAuM?k{6 ziAmY-?gs=7byrchI$3M=3RqvQgtny{O2nStr65`cPrNHRvxS8Xa~aaG`Y-#={wd!8 zcj;qvkCNGIJ_L5WQB_dta%CyChprErIyJSQyJi_)aKp@v4uJ&sK9lewyC1MNs`6+@ zD^c_St@$aetktb3pL-cyRyJ-m!_3v&!iq(1LLS`rJ&;637lDq1fU~vm=j|)?Q4tj5 zE$4SFyIl?V4d+;D!Kd6Sw z?s{wS#v0UoM|Wo|T3M9jSYTK^hkU+2xt$ z|9-dG>gOU?VC*35bIZr&ZA}l5JhdS)Y)J%`aY5UuR6y@ulT=d(v(D2&R4l1fi z6`fH$I977kRa{c_8uu#LW$S0!q5mM<_F9DsYZp+8SqX=pZ87khw)LEy<&)m>AS2W7 zm}}E5Re#vaj7dN+!}@aliU9&(k5*s!HH2Ra7Fsa-?pZOskj;&a4aNL_4$#Wdr^Y0z zS8gGojY@BmT!<9k53j??<<3OM%Ns-5l<#x%rWCBtjpv#x+%nvf54}GMI;ufrQ^(=n zxzGja$~NYchyvA!zPv}?6}P!m3@XwEnkL~R=S)f+%f!`B5b<8RCSrKxM3u5LwH zcLow61YR}~z;N5qYsrqjsI;EOQJ0`^K~TzWq1 zQ`G2ba)-_flx63tLRFkwy4oYzjKF1ern2mOsy;gCpC)kg=ZB{vnO#LV#9D!aLFlP; z3!LO9VT*I0;K@A+S%~~JK(5aV;UV{=$_Q7=@+y?>(jgpUS7(`aLE| zUjqP1>%trsnk+s(%cLvlrBJr)Y7>cU8Tu(KLGi{$I5ygQ*y%|_Z&y!HRQebT8-Kxd zTe1Q1>*>3YC4|hl%j_1el$z@w_VMQ@G}hy@mAAfJnc7e1UP);4Wb%WM)wQ(;r&svRi?Av;XS=2A{K&bQmO}A`|1*zTC9}8-0nKqA333VV!ojgl#(Yp zf3ZptbvFQif{jhjnj{HQ%h?90tF1w@DDQ8AV=}j-DE4Lyl&ub#ejK#tLjv@va+TS_ zaggO7AZHq#9j##Wv7YHp-U!H^V#GaSX8IK1}n>rGmWr6p9&c z0tq*ZSZ(|YDxux{ZJdq-;*WiHT%qi|_2;R&{YOi(c2UE|tjmqU1K$+$cv=M7Wdv>S z&z>}bC|l&x(*4xxx<<;6|M~e^q5g8y6R=R!FH;s;^2ZO7j(s#PM#m_zwckRy2AQW> z&v$r&pBG^2hvs8Yvs7a=nlG4hNs7H;bhH%M>Y^};u&oDA)#?YU$_3^3lh#A;Th#T& z6(-ZpTx%9YjuL2gK4)io7bITDwgpaY($sLON>Tlbm9Vft@`(Ux`zzdSq@6XD_12ZT zKmMms1Du!XeaC*OTMWyMc9$uGeJY{oai@PNn$907=L0c-kq|^~F~Lm4X^*?3s`eFp zd6MTJ^xyH^skMx?T!MrKRLPvsKedK<=IK+;S|W&{rqe@Kl3f1pcz|Ka-tN(0vYj^Q zC)E-IZ9qOB%ff2Yi*;te`T!}5GWFk5yQJ5X1Ed7GAS%GN+z#wUpslUr<84|CgO=OX zAXlsJ`HcL>-xag_6u#^ldIAhiYRA6{^=tQD#GgK{YSGKt4UTdq6)oor zK)fIw&0(_<5V)45!VU9 z336ef2BtAd`rkTN=KdAfFW;S@bjs$cTG z9~@gDWIF0T(^`_VH}UmTwR#FhoFnB7DkS1*)Q3WYo8`zYvk53C@s_*ntWr9}-stR7 zhrFYS?ID`NRu7u4!>6g~E;N~sue<7RYdPX@>a3dk`L1dRQR6e+lRh|JF=!SH7u<3Z zOK25cz+68}V?UqYtCj(gB^DQx`e7+AP|4?KnT%!@CTC+&vt-bMUTI}`GrAYy_iz`` zNJ~`D;OM=vVjpIb*!1M60c@;JVFuobF)d>Z!7k$l22MF&R=-p9Zs;J# zvK=014{tT}f?<(qAm|?0^;-qps{aN#UCChN3s(?MDMhAvg4E+=Gi!^^9B!7e zD0*y6`$Z2~|Bf@dm#<;tbnxYmtF6U)N1WVQP0yJTlS-YrJzeVnSy}tkGOJJk054&C-ZfLaSD9DF`Ls?%A)Qkl<=o)KYfZ1<8 zr0bB=N!#MeABZD}A9;g^>%954k&2fsWMCRK;csbVXwGVV?A~UwmLRR_8+n2Hbcf{p zv8%~W%TuS~APg>77`&Ps85-h?z)4a7rpBEUC#%Uwx2E<})?<%I$KH*lts38Kr*&R3 zs_TopaZt05n^kwpF@qA=G^p}PBLAlS+H3YzSoNN;W+RM~uo0v+5 zXQ7(PM6dGfvc%n*KwC^iRPw5?Hhy)G47Y47HnlR*OI>Ud)6Tn=uE)zocwiKxHb2)| zANIp2mljWzCtCccMe~V|7xJX%D2W~o4a5cdm?38JtNTe;@BHwi>G_|Ze!ta_NbQ`g zS-cF)4#Vdf`XZr7x9053mZAmQ^)@0-FWORn zQGN5g0qn@*8<(Fvl1ClmLddhT#nm^xv=u5>kE`Sf==KJ^sx%ih^LbBXlf4_72OJ&} zlbr3srqvDN%g@{Vcb)$k(uc6(fzENerSw{ry2H6?_CKyH5wDcU@SCOh|hyScu_ zCos?*bAh7GK$#A7uQQdUxa-ANUR|xIIsh1EZQQOH%xU*v0ei4kYI}T(_0uG{#xyi^ zDf~x%k<8E8iSE`wR1Bkl;Sk$!gTnR$m9>orRVBOU(3GCpmYzh0mO z4UvO`_Y%m13eaemi@)6JN$q3nX%=ZW^DNcY5I+{c*7+ZQIExs$ZGrcptzP=eoxd>N z&<~Em$j+!VU%tQ1-OUiUZ@V;Iutx1Fp6+K#-(fKyx*M{4dCh=+hoG+oS1W+Tboj4O zfbg376CP$_6V_98t)3={Al0(ysg~&KgC~C#{NeG3IcQPhoz&KA#|}Ql7oH(!JdIXE zL$5B&{r;}{~^%u&%={3|=3!tHDQ> za1#VVFCQDW&kUeMe{T70Tr*Gn@*8{&)o2CUhyzG`(sIAUle z6Ej>BYuNFN6^TYWU9sG8D2_0zDX%xh#k}_aTKtyTH3ofgEQqeg*O3zCS1xJXu$o9x z=uFvM{B*d3wIOGtmo7)-oF4q@L?SO0Gvb%o!~gqXO#9zfzEB=Sbo~k0D|`^|GE?|6 z#61CS%{2Hh-$g!rapd;SA?*$BLhlmGk%$sU={Dhg>^@MWXRf7NANCdQ%2%!}OP*XT zO4#1r;`_fp3qUD&hwzQ_Pl;Qui-|Fku^)G5d&YhBZJdI>IL|EpQ+xfUbOxApg4^gl z!#QyyR|vxbx`aC(-*xEd5H9v&@Dl5GiMF_z_o*USSTE=ZlsN0!4VylP^VI6vfD3!n zPxEl=`M{>i51fNi0wh}27(t1t7MM|3q(6||h>besUh#l( zS1!+h<*J!CWA}BfQv_Vrn$Cz9^+28D`7IkK;$=B@%M+ix()p9BaKd=P7>fU2uTpyE z3ll!FEroLCUf_wLjT!L*N`+gs_w#U`zY)R{M;nh_j?wNi>AvSy95>}2HG;D&&WEDX zW2#J2#c?NlfM?xe(p$p@?%m5{0=3h>c@Zca7G*954`${tiUI#@ZDeU{v4I)jCtO-W zqZA=d?yHm>Q~1-QSStuC@=wfNizqGT&!;Rws%odr;A{jbW(Ac<7ul2-fp2X zKGK1MFXr{ocAFG;cjDoCZvM6by{0iTAcB4tnDRoPwlrE8B`|*!zs{($HZm`PrMT}t zT8Z5J>*#sF7VXu|+*{dqY_9p6vgs@Jd!WNFU|;Q%o^J<%6#n4wWMsRv{Nx1!HDX%j z<{9s_$sZpjBQ%?Gn(!p!0f#?O3YVWB*|G*C!q#EBgPuvLPJTTq?nBWxsV>=?4wjHT zTDo6^Bmm#}-DPErosK17 zMfvInaNS%0S(<@E8o{MLItY6(zc{i&ws`2bF>?ELz=}x{V*#i)Y7!%47iC_*duD_) zob#4CRc}1nq{~Z-D!=v8eIH&{fO>d1=wScdS=*!>DVHlT@*0TG2j4y>Gi4Ap?f2?v z^O=gk1BEtO`%N%>#3Rq-ip7$mZ25-FWo8B+6P&+jG2I|;yEMn#MI8NW)g;VFB*mq6^->zndcQpw&AkOXh>5i#rQP%_- zg8ps_JX8~F0g%0Ypo!SZrkDt6x7J zW577*dFs{rEE+cE;aq-o{?&5d4)LS_MStweA#jXxmCaVBFoNR z0H2s>Z=c=>_7uPy@@umpj#u80VE$i@$9@|x-n)_FD>yeYb{BkKrcBO)vtLXFH#9_*>;eR&m6@3rZ^gNKh!o3Iwm!kmm0=!jjjelJi49HrWL$cfF%1C=Nu(6uY3S=bi^Q@dqw zzW?6vvw6w{-TkbYereFX6XLIRaRxs7*+XEh7-U2>gZFY-TcVng2-aJZ_r1{f{(WYAFd{gb>?m8sgzSqWcX(LZ>c4^)0E_+Sgg*|tS{WDrDQ@Sk7!;3cqD{7q>JlyUuwYRMo^}xZaTM-)R z&JTQBa<12Dx2uYe?S9yFc6Q}0d=Fo~ATW7yFKWvE%cfUxAEL`I9Rd(%*i&8(U~5>x z#swu)BFXyv&cLDqx#-b8yWq*1ulAw|TzBV{RNpe!<0fdiMMN>)1C4#PTj=!V2{F+5 zz*#G0ufR9#D*N^w6fY*l6obg7*yUvIkcunx#8ciQ9&Q`11 z^5lcM`#ZWQ5ASFRrXgHl5HFa?c$n3*`+n?`c*Qi(8qw zLg8nlqlEX$PMms4C6RPS%^*R8U~D_T4H=uj!yh3@3v!p6UdG>|3a|k zb9Jq^vik{Q=0-vOb!>It9fw*Yp$YV6O}sEgaG(l#LK76AHZV;>4@iB?;;RGR3wb%2 zmyXW0rl+~2Whd6XBhaPE@TZQfwh0A<&(m1KCXEfcZ6NWjhF6m@;Q`+WBJHPd%|3l1 z6S|Zf=w_!5_pewhmT>G-<%vbG^E(UyxUsA}0GF|(+|Rojz)8(dXRQi(RKS-o=+BNx zXKRk^K(8uH3hHYkj-|BtlSlFXnkTk-@>3@;yq4Xp_Fh+pkP}yBq8EuL->;Y`HcS3y zawH6C*gTM5CsPRyw0KZb*rH|e++BpkmX(P}n(gkTNanBwPn<#-(k^Ua#2Z@%x9y79 z8Qu-<6J7?dYAT#J?pBqY$#G_-BLK}&9?<7Q2MsswJR|+6tbus=DAB0Jh~yq-#Y;9r zRPRy-x($GGQC$$2sP`=Ja(64i-RPC+iHJj*FvFLLLAxWvVaa=s9xdX3h_pJ(o%!QT zsIBv82A{9v(sFdZ&_TmtN1YpNhgF~gqdb+SKMJ>KR)#sm*;?8yk0`+Wz-O!S(GfYb znp5K3H2XGY!ihk)zn>Or9C8Cyd~zXbcXf&)zoz0<>`R^@zgMm#gZcB}x~~aeaWiQU zAA0KTwrV7af3`FTXkvrk5kp3iED&ZdHy)zW z1eB0GcRMrZoZo%jbMNc&hp)#c`>DxZd+)VA>%A`U@0BOIh=|D8&ao>CC*Oigvf?(E z#2f8&Hf(V{mHwfDhhJEh9v@VbgJW_VYxZ$Ma|~z%kWPS-Nn9Wgu2%FP{s79)45+*011U5J)jt!gUzdx#gP=*PjJzN>kwy5ux;Mqb@v-K;%*$ z4Pt~3he#3 zTHH-+x_?gvU=|Sl5daet*cr>o;)p%76Ko8J*$EDQF^+AJanqLTy#r#UJ?*Ao&iqzK zYpL5z=Tq7fFc(8j$i7t{qvvG0<)MggoOWj`zof49)tt{4k(Mvv7_ZWxB9yp!o}AIf zPyM0q+jisW0h0OIEIi24mM^|_IQOoQxPDZ?LmJDd;yeRmUHDiDdfV=jl78HbhYAT9 z0Vsg*QT7aMHHhGd=GtMnO0yC=DNVh6AdCeWNvDyhvxk88PRokKo1mX>GTWFYRrXnn z$eOim>_LDo3(8__+uh{x#22U(Hr#-QTq6OZuAZNpcI)u4zCbU*e7z_Zt5m3Lpkm3v z0aGCE-vtxiACiBC8~9vK4|u3tq+AFDqd*jkcG96P-KQhsatb_8%4ekyda5ZX;OXdF z87f*eF)y6+QL*_U;wC|~l^cq#15aEn8#%}VkYf~70wy4?P4V$a(cNuI6w|$}j+U`% zp>4x8&mEB$>Xvq2j^69KZRV8^AXYI2-#xe`4$?Z8dw!afSWh0g1^_aJ#)2plcg^?X zQx08qEDY>Q!lBm>Xl4rU&sWRKTYFLmgYHq3QMolSNA_x*v1s;e?TtNOTor=}#uc2s zTSpd>z4DiU*LIi#LzQ3>wm$wkx1-i2ct{HjV;$* zNocjNK!D;Kndvy+y2&nhaR^@i8IGrRPB;f&t%Z@&9->uUZLEJT`wR6*HaPET7sr|~ zkA9=WTvCkNJhSX~XUy&Jls5TZg|{!(s^qdbsHMC@$qWPN-2n}g4uL=@{Mf3XqyT#A zQcd)&3`vl^l(7i%hoFmpJL73=e4>&d$F~yHZrRD@vLr*o;I&1qaY;)9(EUFyUHyCs zUcW+$wpE#?^-!x0Q=6NleG^(0y4l|U%3GfV zd|XqSzhlwk6m&12+;YI`Yx|eTZyH`jY?-atEg5#$(^@*qUdB#hHioNC$Fo}M8$^gX zQhcs*-8b9G%TTBYkwYn}9LQRCcxv(ZYPofDWtZuIPY^7s^ykj#k{ZNi=(bY43{iL-U>c< zzA8$bx5j&tmAwsH-DomC{xB5z2Hpg+mQ&Cc94tLWK|9nYz309-d~j~jrDb(;x%x9| zbssd%Pfu{2-5vWvWK=2|&@Iu9fv8rzuybkcA?33Te@Tf0Yojn__O~Z7(tB!Ns;K2+ z`!gZEqE$hdKF0{z;=Oz*SIN)ZDv*Wy>=evGZPy~aw9(p3h(ky+Osq)puy+uVL0SWR zFmk6Y#d}5|Zdq8FdBkqju@0hnd4=rm6*i3mX`4#_W*Ubdmnq}64+z&sC96Fx=Z7iT z2+@JUp{3gOI3;a_zdg6^knAImgDkrA!N?5@P5M++Fh#T;a9Ryh8b3JLYV9{9^iBcM z{Q>ubnu{)Ivs^3=T@AvyBsu^zT+lT;+yka38!FTO7wYMZF0&p7g1A`%469Un(6$dK zYJn8uCsqkbG+){PWTzvW6jX!Sh%sFz`9akFHIR$!Ci64qNzCZ?An5^#*uy|1=NNs# z7?v%mS2Z2r{$Q$Xr^qiYN25$*$Db*PI{@iV73q}(p4u@Pe*t#>=}ukM`vrb;)DWkq z?RmO)ocbE#VmkF7SVUJvJqDGv{3-SY01P*XCf*}WvuT9Nj9x9zx6i;3AU}Eb@atxH zo%pZ+=&!I3n;i(QLpY=0EyBGX1NokOaU1`1$)?I>gT+;^GEkiSN>*^*XX8pU?)=5C5 z`P@%?`0@#n&(10zM60n`7=twc%xTy}o3Wdi!jan9{gL@Q#-bU_Rvm z#A-BzA?4840MHJsn@-O&1*_$S04EL-U6U|3qV;r2su4Lkeju7W>)7O-6i0lKtp~Ke z&>%mZFcl{ZmT?O46ZlHLzOL(;N1mUL$;ur@Zo`E&OyP|PS`MTX%Nhm*DprAGQ+F>w z0F;&gbfzFch`g>od{9yKnV}_Bkvq?6o%uOlD`iGhH^odfB0v5Bg|6_KA1muKFq$c^t`$ zKR6r44{2Xh9UoMFljz+x??g;ZT6UPCrrja|fuHHilv;8qK;ERuo+5%p66C z)=0~*i%i01^v#_c^2$^^B|h5`5Y{o)1?)~*XA8Z?oP-`RxenlXVEOHh+$o}aGLF&P zVQ`-@S9hPid`*T4@Y z{UFg%K2FsSibycRSH2tqNaP!tI9!KANKpIKKpc}U3-qq{Ai9|A*k(F5OTcf zyFQwFJI?39m5Q(K8TNHV{uF9LHJ$6MUt<34w^FBDykteM~6+-gThae#p*~EO}!T ztt}U}R@hGoEmS1sJ{FmDb-Cnle1|05sFiY5IPeR|p! zHfH(m;@l0Z#%Q<2af=P*Gk2D#KxX=^PBMK^R>5r$vf|J>c)5V5g3^a zC=RW0(@X*O%f<6U^xSQDP| zeaq;68m$o-AVJT-R(tFgQNN!vomRti=MKWR;mj>eR;GU9Tf5eUt;qwOAzniOvEG0@ z#49S9iIQ8{0$~>}#4X>yT>YnpvD_2x|?P0gdCbyCr!W6*58XeFvoIjHOytT?NSiV}bGa z#Hrr(zs^0mN%mw8OyvhBv?5(!mw2C|2UJMIs6d*opbg+qo7k9^(cVpjDc?WAi;x`> zKyst;L#SrNX*~0f90q-EserZV>)U%jZ9UWs&}<72D&d(#Rj% zK2yrqu5*gE3Lb|#Hkj{{5Y{&c4&kw}_4L@**6|YQJ1`wl`IxqLQ?*oG35Q&z2mtox zQ^i#vJa(yO@~DfBmi2Y}OibIRey*4ILoQA~aT+S=8P3~kndX1Hl zkJx#N-(Jn5XR4gWc#zkTZAuoz^L20O*oxUSU>ypX4Mhb|GEAQodCK=^eY4CNK!5;i z7;Rg>GuL+jY08tncg8ZgCQyJ{me*w^WVa5|cwD7icA6S5@os|OSe&#z?!^AojE{3( zI2+5ghVGgSwJ>9UKS7uvkk3s&c-12*q(irxCedy%Hg_%#Ks#Nh8NK<)(-&%uP8w2> zkCQ)sc)1G5Oaq%(JsbV35{HtQ?n(}az#L%Cs;P!bPXWJ6-Na0aY~3Np4_G=V`zxTw z))kOsZky4mgB((33U5SNq!$YY=8YP9JK}=2?7~_Hlw&qcC}Uwjo}aW%Y+r-h?$QxE zJedQvN&+1p{=`BW@)-4!Xd7Y7>7P|xKFEpY*#GE0SehsPIX-OSmeXH(vUlU3Ks3kWg52qiI&2IM^ZYa=Ln;)a2rH=! z*J+q*3ru9OeY;_RQ7I;L<(6*X}m`2KGTwGQ)0TDsUrS#O-#Hn?6 z-xV5|ZzZ^C&v-XQ*h6u#`5sF4hot75WOT~}p@%VbMkUBr5byxE4+0(_3zV3I{Roc3HInU*ka|JDM!XR1hkWOFy3jXM(rmA~6Z-wr9eSsp zyG0-V4Z}RpKK`^$97YcL*b&`*@z#wq!4t^6dGGT@z|Y-Q_rWe7)tyAvth<42h*Mkf z(M9hOG#P-WJ3&mspHW{EtF$;4 zUFADR>}i6paR!NiFXB#geqSc8r5ExK{e<{r0g%Fr^N=|IZ$H!$Ud!!Gq zi2o9JHs(Q;_lY@qgM5UUS5MaFz@6TPAm9h4u(C+Wu@8Eh8 zMqOf_D>xOh``H;wySKNSrx(nNBhx`Ls~5TN^c9OAQ(aC1f4I{a<#OEc0HpY$`Aog)eMIkAzHYOo(dALn~0FW?+t<{I$?AqY0^1047ibVrbTL}j_2QL@SyD2=* z9i}-(K*+3dy3t<6$5s!jO_WHVtr?L;lLHc;twSvcfvY-PK@-3sY~&Z4N(@CkL)|JA z-xb>hc>#~AcGyX@)i*@0Pih^Z zLL_{sO=^8v`Udc6;Pgvyotf;|%25=OQy?T)^t0(j^}ta>Bpi=@v z5B0Eu{VDz^h+HIg*}t1BWSHOUQ*6a`%9wIY1qLjYO~Sk9)-+ZQ)XM$j`*X(vGSs-j z$fy^m?|OULjDP?^ldi{Kgq^%#m1qfeMpNR-=q`S&Ks(r7?i{B2e82}@3+hDRurUSpHUNo6JU;L$hcJAgiv7(`bd|z2J1Pf#e`Huhuk}zrLa>(TrCEIrT%HZTyK8!rM$}sCS9xlt&iLkmgsY7D+B(Og5y`?jLscJI zkci&J;)n>gSNbB;PdmKrTb!DLbmY+;(uPdewu$x1B4cIPmUzY^j9c)`_!I!U)iKbE zy+;)FuUHSY-Zo-qv~dEQ-^8?^7Qg+V`n&oeyc5fs9%2zfmWL`hwDcP>ijPk*a^?i4K(dzcky09pn+rwlpYPsba{F#l78G_1ac@e(%R3>{h zvWRc7i>DXeD-n6kKE>+?pj<8T9r>3&&v4FfJ>!Msy( z3a%^_!{$D#f=%*{%;&}KUL}M-EUb$gm|1E7r7VJq=rSlH*@H2x%{B$qZ+{?#hI9mh0l!ZEWz}RLUPh!T`B+p~)&+Sf_(w zj!_4@KhW6oVzPI|&}xDu$i?6uuAnmxy=*LPP($HlO6y-VVsn@|cpmb^+iAR#6#tbb z9v~KxLEZF5;9)`gmiM0Bg$}&ad`w{n(BS0cY~Sr4W88ZYO4mq$G-MxJUKCsN z!iYeV?4jK_=0C(qglH^o15je-fQ%TD%em-8zMtAih9MA1|y(eDvrHTm}zn$pPnby(As09oHrW z@E@7MDerut&_TzGvbw|U&&*graU$omb>P}+9i1P8%x(*}zABRnb?tbgHsJfPKOjoz zcYOqxJx~(R52hyK#Z&J|F95$IyZA?9*~jSz2dE}16w&K>APTYoGSO!I2|f7|75Rz9 ziQfY-j!x%C#BZL7JvDFS8>roZP2(A0h>GIihIp%7gu$_3_# z(E%>GLsQjW2k^_4kBoDglWFsG=GQIU^9mDBP9P^TJ+kQab(0#`mlXoau0L*0F9gT# zEH_XPHIHj04mdVQc*9@TEwNFV{NSy7HRxCXdZG`RF-}-|Kg8*5bWG3QDSC%)Uifu% zPpi-LK@n5=##5jQgV*3LP}pb`nVvDw@!S^M!z6Zo+WFF zFZAZQlCrxuhuY*bH~kMUbWs7D;I{lrCMI*Od_Nh^+DfY@%CBqt@3k}}Z?31@Y+?f+ zE!r_7THK*rR7`%#8cvTvGZZx^UgDvUf~9^P?nt+iAizzlSN*94y9+M0QNt_fs&X)H zH<1C2nCZ%ALb{8sZk)o`4EaKWo zPAr*Cs6nvDl@1r^8i4f92{~5+Cy`I)Ey8a30$dX-rjhDKZ>M)R1^QB5G&hD$FWs%s zJa)C^gZN3ql(vS?NUQJ|J7{Hca(*K|Y=tz$9`zpx4n3h7NuD>O2bkj6jDnwKIl0;p zBbJ2P_6X>VsR{t1D`kWHT_w;F4V9k;{a6`|{g1%4AbL0f>K?u?^rcp0sDRuj`F?6e zcyI_geNe|VxCfwJJP+u8TTd*)PJ3kn_>t$qg*tLu!z8*A1w2Cof-j*q{C z&Y$Lgp+UwMVNx^Wch`P()^dxqwUx1%!@x^ShkQ92+h1YiTSC%2Y!`!VL&u&yuRTA0 zcluVN!rV~L%8l7EZ2Gc(IH%i}s_1EwpT)qT$s(%udLfud{hiwf@#`5Q{jQ6QoKQmw zlz3mJlx4M1_uSEWsBxYR1yg4dhhBI3aa`4quvTVUbr6?{O#6zItlR1t$k<|RZ76*T z91;&?w{X&t=bN5ZJ7@0PIx+Nfd* zzp`IqaBXX=ZMUeB&5lv2jO*PGcN1vvw!V^p`%8Wcyr60XKh0%zfX{)wNEj?skv=G^ z+pJT-NwV4eZ0&x4?J9$`2WuFwSzY)`q zn{yUJ$nv+vaaQX1p(N!zXTGe5$hL?41ThJHB;|mp}Zc4C& zi6Y0&pK{bjn_LIv$6Vnzd5{F_4MT{1GI}>X z3s^m=Q(qSJ0i4@DnU5LVXdExE?Dq(nOea6036c(X>^g$nDMef2Z~*ZxDcT1mq$Q!c zug^=BacNp z5r?T1NKmO!y+%TF`4F@<{)oq1S{*>P%2xK>!`_gs95RJ)e25QGmDVU1KG^F#a!Dx| znCq2E@1-$ub4c7c9zbh~yh)v^x|(|FvDnXmk9MrcuK`t&Q2%1y%B0|c) z5xOaXen9IZwQLwwT|X)^WAX%++q8TxaP9+9*ff&&qDkXcni^Ht%4bS3m`<=S3h3JX z0s441O3_ER`&6;6nVmLQ)&IE)Ym{bf<?OLUdkfGzPJCPbf4S??t5K(jej(pC^nZ&UmW1RU^cQI+16@&s)zI z#h+K%fC+#_bv!Zd7+M9rIlD&$ zMwZGiOEoSrvi*#-_&(VZM6tqxbGpC?nIlHEuo&ZWLTSc1+^5u3>Xw=$?8V z)F?A9L)=j<-gfJmRaR)*2Jx|`+~(`oL-^5z967Y#rZe9CAxCVkrg4QVZXMR%okX!3 zbr;bRH~WfU9B&F9Q_o~1*P2b)1-Frh4*U5={ZQtLO+b@v+yuf(4~*oPG6AvbDqfr( z2Y!?ik2v9~DJrz4_F?Y|X#?eGo#OeFwWjuQrZ!}>Gcrw^FVwK1J?mAd+o2|As&dxf z`Krlo-$tI_ytTh)R|!BEt(Bpl$?7@J6$cV*8*!gC#LbQXR@@J3lNf%l|D8@XKXZUu?b?341 zNcou~o*MGxQo11BzYWw0u+A=z&{tM!?7rcIUaN1onnWhA4$~0+Ry-atwtsG5VndK% zgWBkOD6L;u)3`A6WZ5TUj(R6{Ho+lmzCzQaDewG)Yq8bE63Plh?axwu!xtx`6i!1wHflGE~QMc4ALFPs(RF2ow@+#qC)zdP&mtHPdG z|K(!6_anbttIwy{-SpJ*$fY_wi`lj%wBBq{*<=$7<3yS8m*CJgUSKL(u&g8KldyYyymA%=> z?|!3vIWnd4S*;04t0)kUB>kaLB64u2Sn>P|dR9{YzFW_F>Xp))$TT`{5`I`b|JQIi zgteDrQRF8B>zGQ7{?_D~5Srj>?(M|0&JTXJbxhqyQr5L}C+9G|BVGJt-X=*7%?xa^ zxo#X+$eU{<^`R3nN|^Wn{8wrys2d2+)`lt8i|>pFsl9(3N_rdtDz>DD<2Q!{;~y}W zKK9P3VRsvRgl~*2)}N}akNnAN$UhM3d@kZ|Bhs}cG=XuOb>9Kg51=EkF;92-%%MwRlwB#y;Mm+Y$sr4a+VOzsU&eRr%zM9|T? zCuVATNqgh-<>?v`)cm<;;P$`&t^a0!&nHj+Cy7nrebO3REFBg-Q#gW(e9~9+_RgY~ zIwtj%fii4$ePxjcAjf+r#p(bBN^@K1OYEd)42cE4{vpT4E;MW~oGk#a z)Q(N;eC-4L_&s&lebycZHL|ui?5Kz)CLt)}C2m#_)Yr{!Yb`x5@6AJ)6@M5(>mKZx zcpg_wYs@d>I6JRf6+_>mgCft2&mL}kLA7I`pTUt()it8dg_<4E;g+V?Vo2BDmhu^M z9UNrEZND3;+;7&CFSRjb@|9|1wkw4Pk@>?y8Y>O@`X_-FxNR82>$xYNp)@FiEEoaG z+M6Yt-J>$OYRJ&86m@vP7tI6ePSbB4dv#}m#)97-zc#7^UQE^lmDD%wIAcCLW!F%! zwVqz*fgegDm3@*Uo<^Vg5#HAFi6XYby*nzE6@6#<_M?xb9=V=t`BzjoLH&_APbuoE z8;wNAZZdNiLLrF~$o^0>#O&O{G;xsVCcrGV=WHmqhyr~D8Va33ko^XRT)cW`F@ z8A~p4Nz?7Q!OCOdJq%c5A4Bxs%17ihG##D6qdJJsp{;qu5lU)pDahG%(%Ni;E12$@ z8ZLgx$$Xuntf-!mzdCiqdHgXpU$T74b07)BzHP@VbdzjShuEWnCqcKxpj@HvgFVSu zCDhiaE|I_dtEx~4DrGXT5R)7ZWzsf31q)D{4!Pf`o{L2?MspAj$7++0!O{4CVL(Mb zrFii63DeM@ou21xO|H{(`33!<3>JF6)wREWHy8!=VLHd8~sP&I48MXl<1{^Vvvm z?#r4^hm^OG345AP5)QYvG+()>2DiSK_4SHhWHnxQLaZfiGtrbTk@LjILHAGB(!IOg zV>Jgto@ApHB_U!@4VpTa7lU4@PgCY(kZlu}imTmcngDQ19V3ne+*3gw8 zMgEiYwR7^vPOYofF~d1&Q|a7g`N&9=I~_H0L5&D8#B|3b>l>K)`?SS!j=#63qtdep z&@_q)N(^sx(TT5J&9Iq5=~0t6w%^{&z?&V4IH+gwM{tb1jDpr*-E-3esuD1HvgAcL zJ#g`_Kk=Z&(84^1$;$2HYBePQe=E}T$$Z}8wKR&DJf)zAE&ZV(==S9v{*zcIbe@dn z@rg&z15~P$S7|M1Cu%-Dmi^Ajfz(u(Z=5Gn)}_#ihDPct)qqR`QrXtj8=0isU?Texh9iCbLVNPCj| zVpK#cpYKlYufc})4yHj^_qILaYO+&6&zFr9Se%*;9ZWqHfe|96V)~SBi_?meg@Soe z`I{x3p|gS+4|$hx`oz#`))~#ELS3D)rNZhEN$*N2KNF52Lj2{OnKNVFq@FX|B~ERo zDIZ(P&;5LQ!~zX^t3=UZ7TdSQNiI=IE;MOEVSkj4d7eL0itq1Xo!mK-mWOU=;gYkU zu8@ImV%Ad-f4cA2kss|1B^J-nUXA}Db{dXxj9@Pw_1!i^B|nW;-g~NqNJNpRqOAtM zN!fcdlE}Cfr*~+oNgV@&#e6)$xOlx33Rz#D%trXfc@At*f%ctCrmnIPG+LoVx0}r+ zw-6#x&`zf??);9hjLAtF>>d)FG!kTfW&w;`p$c_mXAk^cPe>gv3x2KGPbyI;>y$iZeg;~fsyZM|5Nh%n&;&_Y z<92z}0m=A1rn1Vg6r6vwwLg4qyYAzkH*6|O46EwGDoL^R^-3Q&C?c5_noAWVWfysv!!O~0ECRjVbFA|{|5;-m|bgabMBEk2KyU_}4QRXt}W zBaQlB&iBu*^%@b~@FS|0w{@Kic2-TCPkrz7;o*w@u~t!(J=Ls^H zA`_Ju`D0pY6f)uaR?>x78M71SFcaAKt&=BVGRA&alA~b8-pET);6I3{$QY!3(q&i( zXkr30KWYNAIB^UX3O@2irbZ>E!OSg>fe(DZ4xgwWlhRWoqJD&d^B6lPfe*iLAbeov zCoKMMV~lWxS(to3kq_8!5B8tMM&A!O z{_g>QAMx)MeE&Y=zd!kYjqgtfuIKA}44mwro3*tC_Z#GOAvP-FpPO_|0MBb_0W<%f z2FBj0NfEwLY2eX~y&aul#(%f5hZ*}tT}}gU;O}!dfTsj+;YXO+zmF(m?2ww2{J+03 zpQJQoS`@e&neWH`_uKz|=ilFc2n>7`|2(+)e?4^Q|1|sl=Tt zIVL_WDiyr?cyJlVsEDLU@I`t=C0RoBMv{f4_c7mm6IH?nw(K^22&xv{OAo zlon2kpWynWm-)An6eO)E+ntGMB~FZ5IK&u%-_Z`W%#XN@GO zBr7`Kr)T3FOJfcO$?Z6F{ju)tGv3DZdc_jQPsQVA*H%jQj8rVq-%6TCO_lvFvah7` z50&6P?Tf$Lc$F9~*54CR7`4_^KmAkJ$Cde~%1uA0r-(!l=~tA4`mJZ$>3vsTl~$$R z&X!_cl-}%9+dsK>DO6Sq8z$ARzwq|7vtjVQ6Y}TZ+!Xng9uZ`8b$`NI{J^P8{F5Qa zs{TxOCtduuStkD5gM|xtZr@phKQyB5=o9J_$fnINVlSvIVxMICMZK?jwEvecW!1^2 zq7@`Vf0O&M)Tcw#b^nHG)CpO6g@})08dvqt-0NUS^AiJR|2R{+EhcHQ(aWN5%kv$EinIA&e)xL72ua{i&IN@J;LHHL8lwvTgDy(RH z{~yak@4sf=eV-dJaHH;&cLnxGpYlhq>z{PPBGguf#*6h~IAvJNII^;lbcB|m-DQ0dWB8h*;FYy6>lXX~!ol8LdFCyozX`jI+}oTn!j7(Wc3 znS1HRf3Iheto9>X8RKin~ndivAc z&%?79*R+3--LG%?P5Fe4)9thBPL~ecK6>Nr4;F*RCvKU*KQ%j81Vtz>Y|4#Gh+f%i zGQL~3e;|!q56gJgWPHx_X^?G#O7>+|?_kjwVcs&CbHe>V%gaP6zVB@XR#W>Wfmg6}Qt+Y>I{JC3(0P9dp%9CxsCJmGU>zimU< zrO&j&dcy|-dg^@He|G-o_leoj|EEn5zMH=Py7WIr z{=Y1sv2Xf?w7<>%-!=|r?1@YOrsKbi;(r?!2M1R_KWF6Se{GA5abQd&ur0^TOif|N zE>SU;qSIiYI#=0H=10%7}@GI-QEV z0u1rLChF+XVtFO27(4slSxSCt5=3*xtW zyL(mxNQw2|9RW8l;6yac)lp@c`6A<``JN+=4iXP54WrEf)as6E^oRd?35N-fO;0CB zzApdKT5n4RiT-VbH*s*=ATtOP=a>O&E#JS9m(C6r%_Oaz=~?}h862Cx)pw+0fM_tX zv+nK||7$uM?Vt)zJ>ha->JgzdL2Xt{V~RnZuKm7oD}#K~=2kg;;yq-f^}dDT0MiaT|dOBRzIHOe8!?Aldh+I(OcrD+4WG72J z4#S$a#p}zDxH>5e8pxD~6_33iF-r>ThGM$wi3;+sS>-OFHdm9p)O+gln=RsXMN>0I z%5`?`gRA#$juzs4DdexkP>njzA0l0*r`4g2z4WvuY)13-o<}F?OOazCsC$$Mh3D1} zOg#}6_SQI_Vd`ZYN+^_ltAqGg3fK@H0>wupwTft&3Axl~dKpc89v>293*tgn$AaQE z`ZqR+`t^dyl<@GQ;ohLF{<2RD-5T5k(x{p zB~dkiVwMmXGDkuZ!=!%ZnDL&(YWAAvXGzJH^f*q%pYw^fmWa<~*u?Sr9|zUD4;s=5 zYT*dyX&JMAaaGvDb@@}42+OGjRbAz49BV0AO3_B$i*lrWcMbhRLiea^Zvn;8grS-k&jwKh)Q51!Ac}& z27obv?iT#Hyg7DsVj!mCX8x|8cC)DqpzWDLfZ+Ey*akMuHkw1u{Tm~K4mV#qoVT#( zL#-E*{bi>NUl^^A?-P$cCaUrNl1KG%**geaiw;%0Mw6G&{rT?44|*5(CaY{Egg(+N ze>uR=-nF5`?p}ok1-X2Hdtb3z8-Ci!S9y`46w*hPpvwX#F)3qIiZ_2BDLRmOx%fk& z{}0K{$6iGQH~F_=NxkOEDCqDFhl7z$L<~e2EjFTcJytB*f6Vk)-Vxiz8X2jHYZrR9 zn{d8Rvt@IpSX_?PlN6>G;?L`)9;p#L8U}(^`9^tz5Y69#K-7Y8t}fz z_UCn*_9V2BS9qCmkr9oQfG_grYho5_`=2{Gp7tlSL&CEGzmA`s_E<(fkQk^^P_g@1 z^~;UyIN6RXGa7&RDd=iA;ajM~cl@o@W`|7Q(03Pdhb-=$`T0z=!R|qve^Hi(ew1Iu zF3C*yD^Y*`2qg;oF7~O+j7e~rEH#48Toh9e4>L*Wx5aj`papR9`5ggRukWIE% z$nx#^@?jbt;_}Wm8hZ(+vgC+DA<@*Dwz@SR4lyA?QWCUz+_*nnCi^Vr;aVeH~H%h1{-pa0*5Y~V~Po*uIJUf4Vjg0Ue z4BIv;?B86dcFU7_ob1tP1Iiyy8QiN$5DM$|hoI;TX{(8QV{0T)-vUYEu+YkTsP`V) zIrvrOwbPDQ%t@P(r$HpWy(x~=q#$d0Q15W#${DE$7qeEp-y`KFi;~zE&YjrO{U-U` zmuvT>VI+yoFIqZP?`u|c^}H`3lA(`P9zLoNYHgk`JS(x|p|rA?sbsVRw%QVUB=*zd*c9>Ai80wL<^>O^KHPq5LaLhiX+HWSkaG^#c6DYDkM zSpw35K`#Uh@_nrGGU@$5zJBXk-d%0*JBWLKyGVTCNDs3Aj&Kg1C@BtvqoEx5*arhMBSSzK6K7C*T)& z2rinBe1_Vf=kE&2L^_B}R(sSMxTL9lSIplV(vma?ZvWf-Po9@FOVM7h4orQb`{6P) zd89By`PIkb{;c_(;@0o$j0cwwk5d-SF&7-HcSjK&sScW?gH~{SHHE7%8_cQ~vsE>hs+HCd6VOOyIkY$d^4J}n_pq;M z*pZ9!YnP75#<47}R(T`S;afapB0ex1dS;+Bm6`LP$Yt&Pl*7?#n4g ztvQZPwzocc(MVK@uxjva|HQe%#Ugn5OSk=1X8m4_jXEZA6^N7M2~UdTM|P%Zp-o{d z=_B>koc8ponC^Vs^iBq{!qT0ObQR!OkY_gA_Ayf-FRerjye4L;;8nam^NoCcqcOlHVX=>3-lQfo4GafHPp^uZ7QR$puq4Bm+TYx z&UC(f>|$Dpjk1lc4ayY-aO+S)y0G8v$pA~RRLA&3(xzZ0_PV9-CyT7%UpYSIVh~E0 z1U*|whr&?_2id&@Tp&bejgq0+z{YZdVFLtt5w;ELi99+OcxaG;-F5M#YniQ1aS zU{`0n`X8mIAnjq#-lixj=HI?4QU3LV0Psk{3wQe&rewaTxbfxe7;8mMT4f$R9woPA z*BMtlFkMo72YsRL!zqTT>58tdp7DY%(6qZrlsW@&F{$m;C7*C z0<#|l1$h!kgFP@6*(AE#GK)=rXO^{r2E$h5FRvEzL|$FP=Ig8M2~A=Gr%>y%w+cyA z0=-vf;)Lvpqw`&=#xo%JU0l4-*S@^p{t4asz>1Q5zKgS}D_#brU7*=c(Eev;wLadi ze7#`5@*N$nT$WuCqZOlJ* zOz(00q;)s@?on|VNxJ$_=St^5%I0q?C}F1PR@!0=WblHdS+L98F~xP)>0i00$n#&s z7-%l(rF`U3ui|J`afgFDIy{MTMe@9`5j+3nQ@@u#HkI`e_jX3szV}7eqQ$S8#2jQn zw&Isf;(bZy5TJ9k+JvCgtMEv?x?66R!^G~(#^ttQBX)C2&jaFC8epU1g_QX?tF6Z zidMc?{w{sRe8=R*2fNv{#11wd4{dF+y9Y8FrtJCtL!wQhN)yhf_a6G|qz#?<2-<|$ zY=|c$hC8^w9Md9OA1YI+)EmBp4~QnR!wyc!{ZTQ_D$f zxSwB5grLpDF_{Qtr;M-H;9#hAhy*?K>Yfc^Z0Da@dS%t9jn3I6s|(e?iTSh zuB9aLQ2HoZMzl8Nh2zB;Qte?=Rd`+o7^Y+_W57}W7kO_UmDK+CkA5ptR8-U)GDp-L z(lS#s%?yWfo`=#DDJyZV97$z*)zwTbke_XoR?ET)K&wF?c`JlRnV>;wm){kr8`&MiTy3k>b zrAA0&2dyf)_~dN)>Ci7<;t>CQp|_uQhe*Z0d2Jqh%vbuZ+LuD776STL+G%8C3^^Wf zWf-!!uioWX(rP$wBG5}HlsNw@vcHW5jKwr|3fK7^!yPLTKfCo09Pl_fx@V$T!%m(d z%>n{yW0#lP7#VY3)|q)`Uv&EYeaF9r$7a$S1#$ALT@*|U6V!=Y2WF6LGI>Ot(LwmD zQxutyzSBMfD>{LA0mFM1kmyBUcCTRj3zXnWKz?Z^TXXM^EqcGc(W(IanQ}#bF@f$r&`!+&fyHaP4_?91;vBn3I?dHA?vK+S zG^2Uvl%Kl^1=cTBLZ91u^|3(6*0)hFvk+^`EQvah6x>5azC z2AFEGORh6-RtTceV-<>oX|;2AqT`_FM|L_73Pr!i!MW?i6{rA($U2H0f3QrpCCTRVZO=hVN5Z;C)H{>7vfocT z0ra#F;Ee6=xRcIS_{q@&(DBjL^wi1|yQ?yBM&7>Q5CvpnvWZh-V8byefaJBI8GDSI zASp&m=@IAT^~8!!hs1$*HTMAE5&+h25=lGwNY??P&39*vh()48O;CSKM&Y=Nl5mQqKHvvw6? zViEH@dm7;IX$cLzv(jf5v2eU_)>uBU;c7eyPt&AF>d+4)RH~HZ|L!emrNTeTM2c5J|Yqcd47=qu1+Uys@Gm2=1c(V)dVePLMJaT=5az zqCDlgJMptoNe4~1qbJL(PBDZ^0X6MwZ4n<1@s}k4`PH7@Ot%Mrbu00?VsK0bf9t~4 ztrm+Fsa|KI2wWkX>!x`#g~qbj*&^dep-y4e-u;;`7kvXthao9jf zTJ~4Z$3cRj zbOzT4%X9YKD(&uy71sG;T6#mHB{jW@ zgf>>L-^AEo$JMOvx|gDZgulniNkO!+L(&e#+;qQX-!-H=MXWFMF0{oE>Z&>?_?B{^ zDz9sf86baf!*0KG@l6UAI~{^x74;WVKkm2%45~H@iJbM+vqf|&8qg-eSDUUvXFW=^ z%)zHZPLI`>!#TvWM}HKkvCwO*QJ8TZeE`Xs&F6o6 zMUd{%AS;h3&zqh0vTYdObrQtPC>Bir3e?K&!Ej5VKYRLD1LK@`iv>aJwnII1JV?r* zZg1H?o(G`Y&A1`6&u7M5+&=1baO{dx&#`@j-`Sr6F`YnWMm5k$B@n?LP;LQ`fQ|yl zUG3G#HG@Z`F@IuxA>9nM&Iy#${sH90;hihA+`huX`Fl#6&M9|x90ga*ZEs)xv1(+! z`*L@al%d>{%F67nI|%9bYTGx<4Bio9mY&#=Ew@x&cJ<>hvowC+|0?F4pk{G@&`aon zx=@3HQ50l6a&LdQU^et($;25@r!y*RJ!*MyfRgeBhe9jQs*oGP8}=4-4j?%BK6@}S zc`w?2j0=FNI5TY`B|Hki?OEV~ah0nk5(8o6mLAOG^#t)J&JQ%JBY(g_*R{;EAIv!w zt|v?Qq-$E~E%x%WRhv1BHd=unG8Is4aZq|(=jD6X;r{sg%xp~j)Rdt#43zh({{v#j zNFJR}+*uEGb2~Ef6(qdaX!S1@7qS{|d0jvL(x%c2_Ap0YnCUn^p`6*@Eb2E-_RSkVJO;&)GdSG1 z?RTYKN-g3IR8$aa`3&b=rzKIOr1rSn)89`+5_=02JlQWV zz(G8tJQLWL|A= z?xIzx{AxQtdUEP9;j3(}Jqnc{BgzJy65s7*c}0~C$bZy6adwM(fKqPPY6!n;AR$?7 zV_|VQtTvY^YFg4nl!8n?+;GF@BdY9tol6NTaEjMg+<-@>3uc7}nTcWLpl-k;u5degx; z+3#D%*DeCq)5$5jy~SIcE|Q1z`)|{XA>jU;AUV2OXHvPqG2d(WJ z_KGV?kvLwQ{^IR-yMA!iTUtO>rbwW(Ka~mqV`m0d$$*gc8~ zRF*TPGo*)L_cj~K!EMVQy^-goZ5;P>6ka}HH)%E<;Buu_THysLp!h7ptE+{k%y1NQ zL3RcT7Cn>~Q|Pou#p^)jYv?rWvTMX@S&x#D&}$&0iml*G1dAjYtE14m*vbR;`Nyoz zpd4~*YoOX&-{k!@g#AZ<-P}4212ng1V5dM=CsWu8%x#l2tp=)EcoAY;zn?vJgxl%) z&2?pFpqY;x_YDWZ5?7k5)-kc49#(8UD1SE(2G`Bg6YDdi=Z+>GidzU=7%G)Ae0CQ# zjHe($R}Eh-orcrxotN%MIr=)u`R_ci_lpU;<4@e7Wlb~F^O>cEnQo_sO7+X_y!Log zdTLuK!k8y+h;s8b0QkfSpH;M}&7JEc_+-SL4;U&*vQF(NIT}}Pm1EV5N(W(>03eDC zkrdEJ^mag^@1B}QaE6W4K_MFsD7$GoHmi~e-f~H=aE2)Kl-yZzNUo`u>nTrLTEPzf z@!nybjeL#duCu{E5%MXP4y*JI?0gH&A35&dyHFo-x+jpUO z(F}$GYNA@=fAmz29v=Gb@ZmR`;F|j9Ml{gV$L4WQOxkk+bi_jJ`@dU{?cpW4DB-K( zIh1xkIxRim<8b=gs#N>_C+zWl&iIHSevN3$en2(u9pxi&pm?@l~MUaZ(-4x0%zZ-;3A-xIaS-f^+;dpT?#W_+a@~Qz#t5wd=YjOd*)8t%~wY#pAEkx-pmhW1b zDIiTPOP2L=`+QVs^-8i0uu80*2EK7*V_VE~!duHMz8R>=yd{LA>hDgN_Zy7dkwT zx;6YrC^;HV1i;Ss9so$WK3C9O?3<=j+KczO4zU?45&{!bYyqFX8kHsv7uYzQFj>c| zoO)kvoX(%317svvvyr`-V&K*=7xV&K2dH2&K&OgRmOBUJ6EcaN)P?m@XX*f-{MzH1 zBbh2poV_TkUoj6rP4QECRL zw*odbl0NRHDKYFUcH$!9`vX2PrxS2G?eWVcZrrM=F8{H=Xky3So+*KVo~R5}qJvaG zH~T(tdJ?9E)3&Ng1xKK|O)^VG&YCBqQRF{XgzZI3)mwtGtE{Y55v-g_ zQ;7Z+aXpO`pPrxXR{#)qH~aNxJFoxZ7I)szv4m};x87${2*M$`fR{Ae8@a{?Wa^ZI)? z)HG#m_C#cuh*=Oh))!Us#hId_;5mATyY6DqyBRiarn+6R!%5n&Sn_j_A1a{|B`15nU!9_>p_^GO0`Ak3`lae0E@T>wW28;d<}aIs)*Vs#_8Igq$z5K z*k{Gr7ENhgwv9{*26BG*I{S8XAs(gZj3A`DXeA@5sGQK}iwOyxRY}qJ9XxX!3X9;- zj|R6R&?VE+S}mEg&Aq8So0TWV9zkGgRQAntC&}pKu-VHrX#Lv*vs>)vQDtc~lx?KX z&QgYDJbc@)pp5$!T6$5)rM3vdj{s6-AarL#RdajcM=jhq=mw$SDrddr*^hs%fj=K# zDNL~LM}GU=Q)+wNJ>lnalF)Ih5r2Thjq;m(ec5)5?4r{q=dlj~MK+oQ<3PpQI9Cwt zcT^LuooAM(j*Id~&b6-yKrc(!!D6$@-EoS+g(pp8e*@blmqCdma7Yf-+&XC@o_7Md zs#E$jgUeQK`quLAH=7>)^5a^%j`A&eN?TCZHW@WCltfOLO!g7N_`R5|p zW&#zUC~0MZsx&l|BCX_!wSCNJ*S7L~uD0s6prBP2F?W!HnQcm%~05Bg}gYcewN@P ze4kbNYD*3sF9*xHCSa;-D1?AH?yo~~T+uqhIvgXMom%cqB~Kl<0=tGz#mL6CP#N^^ z9?%_ImukzXgfx2ZCDVog&N}6wNuEw=U+lR?5m@xi)(Iz8s+he1z!k000bbHMBsC%7 zQb%qNEkn%_0=8&RY6n4K8Py}HVBKe<<4OkGhMk&GIqAx9Forgr);t|>e{<5n zJz7$tJBk&xU%Feunvq?psUE-HT)WBv`(7ddq=}~lvZo_uGt%!oN=#{4n;V6NjH6_F zNCL;MHa0$5pT;f5euO_LT&)OM4{?^wA1T&4Q=g{^*1;-pkJyL`cZ0RVaa@i9cfP3r z_JlBhx>&94of70sp6Vv((2YuI^IBB7lS9i#ouzx^ja_34S1RYhOL*J*F`D| zmjA$K1i6vkE}n^aZWYolJbN0pSWsHdovki^+`j8UMQGO*BTye*al)gZ1>`4SuvXJeV*TR-+Zj8K!$ zooRsjN_}{J`uT&p(aMDby5quGhLmun8aFX%>gxaH0MDcRpt?@6ZAujh@}>O$3zY*({Kz)s%(ak8@)_}Kn1+AKUO<)@|a!r>9g zPs>?fB_rALzue^ptD1D<)}VC^6$t=j+jaq8I3W=)mEqO}>?Sh4gV8*fere(> zBUr-2u*K<_g4)~>HBBG=tjw03j-J$+;0NdRm_kLdGqDa-Yeqj9`VE^{XH`?_qKAWy z+aDHawfd@PI}=3)PYU`&(w#g?ieE7ef^6@i;Efg({UQd-6Oe_h#}(KauA zwMeVOYO-3wVuV;#9v%vt6LFB)nHY7mCQw`d_ruPM5%d?8zQK4Eo+%cz58E+3fb6#S zVy`2GYxmIXmVC_!P(@Tb43-W`{enG<`!=-LdOPN~T>{E9=9|8tYpUj6L_#W|>z=am zIgxTn0HHCthuR@khU~)}i&s86wOmo$2=<7Xg#?H@C|D;AF32{jvH|#-YrCtI#HNLX zw=S}j>9R>dWkX?VA#uk7eGJr#2{2m1wHuZ=LzMj|b-8U3csb|KmD^Qq+yKx#^XAl=rwY~S!JLSLECmAYN*SLX-U98fzTPb5;Q1#7MQmshAP$)Kz4h=?e11oL44h_+5z;)1Itz=`Nf zz=)c_f{}W8>C(FvV#4fNX~jERbr9aP7^lNEvQO!}J(zaMfL*kx)}1=itgZtaes~s! zSh#5;SQts`S>j=CWYJ(5xcqxxV0d!YtXOOssemDYHUMPiH~WatWdN=e(!sm+5#F7y z|6xx~F=~r5Mcgo5Or7$NXZG}zX?5L(e65$ot7xLKUf^k{ z;6T_)gR|s#=rvb8KD#gX+i1kL=|-^g;=k1>*TNuA6RxjdKHweEA72eR#+M&3Y1liF zo{|PbOX;Y-b(rE%#7^mS3`Yp$5GCHXQ;^Jo3s! zEPQ1M2qy$5w%5(CNN)otwvywiL5Bw^v+W2zzruZ!0#-WaFO-*DZNAhJ>x9!_JBTG| zxEiH$%`hjqdTXODEM>>wY7-y6q(Cl!L!~d(=S_4`&c1`K#v&^5GLYdqrIxydSho*nIvqvO;8`1G#yAIIO37 z4!T5x5`FGVX@Wujf3#alJYMHnZ!sNob_~@SeP8{CPkg(0Y0HBF>MM9l>vDIZ=7sL! zp{KZW_aSGaN^Fig30pMIYkq`CMaj-P8$88(xO?g|4vEcUuwc98?9hdn-@B!TU>8*P z;#`X(|55M1Sr6R0-%2ZBWkr{rxdXnTTV(SLj_oSxM|AcjvC;c8fmMHsGE4VX9B*JCe^6i>vP`?^ir4U{h-yCWW_=NBoak7kU4CJ&P+477p6ku!FL5Z` zjA@@?fgzQWCILbL+1XEQCY!wu2qTD(*QgtVlE>G@KxTMU=ip$qc;0yc`P!@hzBjo5 zDdZ#oz#7{GO^d5YJcm=H_kFPZ%H>3yn+_$3Qx0Q6k{>{%HX(Jgcj! zAEKpjXwOOQ=x2^{R2Isa81A3`A_^?#Ko(3DDrGz?ll|*47UI!u`+Yvu(Lsj~7wFC- z557?&v3e)_H=1zp&B& zBj$>ol?`|ke-U{8hs>3K{o}8@4>DKmto}u_u>&F8|2*6OX0F&-+5X2v+H1Af?tfEP z{`C+4#-smt)Rljo;QtDRzaJKvGGn(bSE(4N+qBiKg=7>|ZsD|0e_S}8F)Z!-y!Coli_qfqr}xa2S1#@*V}-UR_B#6SLc zHo*P#88yw%6>C%O*PmWuzpNG&vWl^yCtLJ*;oH#n+hK6chr_PsZ&vvi$!iR-c)FO z3AOMV-FmmZ$K{5bmuR{4q8rob1L*_v^ZpAS4?=5n$MzXxFz+uaIYt@qzSjEo$yrWZ zJ8<C%jsOwJqeA=OSdga1O z-L9keoL`)MVwu0Li=jr?GEAE`tj`Vfx3M65 zXx{S(@50F&uckh{dVqFQ?;i@xp52T3!&G^?bnNcM@cpGDdArjeYxQB z-(jmwHU^saaGblQ#kZo~k6cxLyY+I>T0mIOz>(F^xZ;M{knhc3>}G?FPoF#)bLbG6 zmxYn5|H9&ZS{7yPSv8Db9eY0b`G(SibBeLyEn9GrBTd)Il_szK4iap#WZr3XO;dM- zO7BR$wCP#;QodK~tsT4!o^x1=XX%Y~$i2t)w&z1{4P6afrN5~~e*a`obY9Ra`s0Ys z>*qEHG`HCL;?X?68{LDIhS?Q*kBQXJcR%znm)yu6FvY)pu2eZI)(l)Ycll}Z@<(ln zB;y=ktNykA%fFLMpKokHQKs)2o#Uc%p{ggJ9l<_5AAys(fx2<(3dHckbExi*AJOuO zcWP(u6+|-Doh;XkzeHAQ!d_Wf!k&FnZxx5VHp;!SJTejqRP3>SH2U+#9uFwmY#f=( z4H}$+K9Xe@JX2JE<6}709Qf?*eY%oz-44n$TB%Hf2c6w{a%dCt zKpIr6#FYPG(pBUX|MAGD&s%qkABIP6i7VtnYksdGT%6tyyQ%oZAgTATwL$S8?KnM0 z=^Rt7W6=Y`9r!P1-jBZ@j0$*+SB|~%BL3T%NzbMq@OKO9scJVXi?UP+rsW%F;&sIh zsLQWWU#TF^#<54%>%ZCq{>`8JKk;n-&6fKo74g5}#o1Z?i#Yh72_qg?|8IFV_5Yb? z^HxUuUtQ0CrsVw(cs3yQ<=?B||HnKVoBj57|0dAoGPFZ8?Ha^*!IHLFtWgM zlNubVaPNrfMFftFXvu65DSRh_I->I4w2KRBYkalKyMxk{e4%K z1A$?ylv=)vKb}?}jF@Zhr3mh(R`^-eL~|}*z2;}vC*Z}i=eHO^s4+gm35sCWR5aL1+M~nFlwM&6haxcy}&qv zkV55#iettMftwB|9PvaVGl9Q4G5Vlx;jis*XVOHpI3fBrj&A6WcFOiOo{>;bq=VcQ zKwLYkUxFcviScTQ1O8Npsp_R#WD9ZL)_YIK-^YV|@oLvx`G4(_Oq%IDM0en5G1!n# zbWYA_SFJ6DBOkpV;z;UZgi7`=mmx+Np}?G$P(kJeJLaAj*_YV(C)hkqz#&YPvc(-H z8LW$*Ck>hCb_od!iB#KG$^@kY7d3q<=Z&00V@H0(S>4liI|9ps?gn#MwEZ~aYn;^s z7l&Iw#reK3B+hJZq9#0$QNDS<8Ms(BUlL{UZO#!Z}^m-#H_P4XRY2D7zpjEB@%_XgTxJLPEtTTRj?2l9X!JXrsw#w zIPG)Zbi|k7bd(j{Gqo^nOD8BmkcV3%u3=?&NqFm|p-ZVSa6oeS_3jtABWf+sPZjnq zhN~csSzxE3E(gx|KbO2m(b!q{w~o%(o(=p!lDeIGcs$crN{AcIu}q#JrBj0aIZZ|f z)s%}CI=_Mjy`Up<=CItZCf2N7drQve@;VK>eOv4e>SF5P#9lR?;tECCRrnQ?g`|St z4hIN+UR%^Mv5Jl3V2m7jHrtI>n0$`RS0RxYP`lDY$wqq5wg3s-tmd0MC&%?waIR7k zHJ4!3HKiF!_4l=rU{6*O>%cjc%lx8Mt>+1SlnerdA0rz3LYD6Rw4r&k2Xc5@wtl98 z_6JbaQ!a3D9(p#f?Diuyl$#soqYe1lFb(FF-NG1;a>@3c6>sGT=t0H@QE8TvshUd@UZA@JI+f~r9|E<9L+xQ1|?oFb>HO_-|^k@%;zp9U}V zoHnBctlujUEh&R#w2Sx=l%s!o_{x0#6obWju{{I!DNyHhy`!AKTqEITJ~+~~Ah?A> zuHD^sh!N^!vn-5;nWuj8OpkWK2gvg+ntsE5^4))0snvhzQEn|T1o{u++;y)i?#M#V z%it6_B!*=YeSjI2jvN&ENv53rR!=N0&nE@@N<$7N2EY}IosvicYa*T_B0pq&-+{yW zmaJ5i)JS1rqXQZI?9UJ0OTokDWimT^amzZW7UU%lO?%DvhQ-B4(^T2YN-E^!5kh2Z};~*R52=2HQ>~JB0yN;6jBnq^& zJ(3X=bXRciRbmY+&DE{GG=2fC{@pr{99TEui<+yh@=WiwJW7+PRyHlvQmo1qWsyj5ozG2iCar!$TkxvBTc?)GmS%^x z1bN$K9R34xho4-AOj>8YvWlJZcvz-GKxZeHwHBtXPAD1NxS3x(H0$W-u_p(=R!UIV zk7Zsos|zSJh6FcqH>OL^OL^ingaX6lvNfdPlbc)R>cjmv&g#mgS{->k`DWAn+?|1i zzt?`Byrl19qYhtb!>v@U`}akL@To3Z3gcOi)#Y2FlF9zQGVp?}yd)b2wSFMfK&AMF z+p|KagFD;U+0B{}*e81e2yHm+16~f_9}RuDfBJc&SjbY;LIoM0zfelr9;)+o zRPHQ%v7fxt%XJ%3tGPBE6*}6U$8FSjp2KaNDEp0687*+#c2$Z`p5^MF9z)7ZO<+<` zy?`DnzUl)OYw+7rEfw+MfVzDo$7&Fut_y{&5>NvXA25F`rd%&y;_MG>T;mUTU8$CT z=tNceuwNcF6o8gc+xgz!44wwYVMB2+VwXZNO-f6#6poKSuR?J;^BDfO{PG>4Sh!9R ztY(MkV*R?MltN{J;bT76MC?vNEid;qW6ibfL1;q8!_4(uSOP!0aZrc`iG%?Er^(+D zWfVIr#G}i}0h;~;vYAP=Eb$X_rB&oQ=I_WEUNGsM=6vIQ8y$wL{{{>b`_OQ&58PGS z$Cf$fgaIZx*$x{DvpcKK^}%J2`sEY(Av@6PxQWPPt{45qI55v(XJy7Y*~eGvpB+|0 z$z;^@h)7e+kEXly$g82U;M-gfosPzhX9OtL;@owbM2McM=ElIqomeA>_k9NHBNJjw z4ofML%y*z1D%X!GJmloaQ%DKxBo0fNorJ@+jq?-4_mINXVxHxI{PbbaBEe@@ykzvj zL>9P1YJCkQ*w|FMF16XY>w?_1)K3RxW9P5)y@VO8`1@8aw;@I9G_uQNN+&PwP>Ek= zDlI}LD+}O9_Dp0nlomAPwx-fNQZ7g34}z92_I0I#j`eS*g07d{HySF+LbU4elLkT* zjP$6N)7~WDk(h-|g_LbxWykQXR{8lLpN1YTp)DYOs>(i+l;+6A9dj*Az)iJDs?Y|y zK0W;btqBV9pqu8hmb7Y0)jK_9#BM>LRBK$^u_$4_Z;|1Yy=%)0uthb|)n*?8A4+m> z9Emr`Q;W;h3{+4|8=wBXFDxS@>T_=hEYq?iUI+GV_sd7UmcK20Sw6XKLCuC=(e)0e zRd#oqwG@>&Q}J+aB4mC`0Vm1k8{MS2vG7`nN9qJsNx-xFKx%;OU+*QXi48Pmwtc)6F(uabkQmH78{@XVf zj@#XtNx%N%J?Xvbw);C_WctQgohJQ{?vu1+H{!ZSrcu$=&B}Ep#vVSqZ>J1SAPCK@ zMo>jDZ4_?gab*jW=j{K(n~)HyG=6OV&-iat#fb@~0 zW;3+RNO4Yz@Q=5-yePk0h~W^iFe@6%60ZWwRH{Rqt%J@(8#;++^V1|6>!-O305=;@ ztGr=@!I?c_^)Ns`G4fY@%0`tu(Y`?gAwl9vd>}C~Kw%D%9Yw-xpix@`r>o;^xZo5{H40EP?i-6cbjy=jcO!e0I%>aD& zr8tbRJN&Z#%00bDNjS;sLIFvq<%5;$u|oVrXp^Q#Fd~2X(@pY_v?}hl6EKS9u1#Ej+|l{El_%#;QyYagko^04)=y5o8RhH^m9Ro6{{qfXNF zX#`mSzb*4-k9vOVFyvU24W~6nY;8g(p30%KFDl$*;1u(Nvc)cVbvytbBY1T~Y^D&rnQKfvx&FaYi4F`d*TCF)8hKP~Os}?@x(+;I`L$!!Kne(%(0G-7UFfS9+!^ z=0x`!LN1jOr=PP_MZK0V5|hb0$g!HTAA))7 zS6Llql4w6aP|qY>p6b>?o9rM}CE5bsthgcvmg4e|Ofz=53Z27#uWjB!kK}bu!*#1| zXvfevaJ;=RVmF9GUHqu+dgD*0yjf?S^c5U@`Wg|*YZNUD9w|?lkmt)kKMh%C?2kI{ z=y{US4movwfHaTSTXZ*Wbm&7#M}z19$fx-PEnPT#kGs}54drIlYCxg~5>Sv49apeY z*oc$+C2xUAO`W_6e`$VnSQ_hV-|}2*tBH9gK`9F~IRN<%^Cd-%wZ_{IG8Gy{K*DfS zlaSj2jy}KnVXk|u4Nmo>wvnPk#- zgYh$6*sah%jRXE8i3f97`I2Dq)cCQc-{bO3w@%eCY{vc&PoE&21E?)*(a)uvqa2#S zVJuE-N_@;M2%M&D#N92~2ME-69go{`nH2MSsHmEfnw|d2Z7g5JGZ6vw&QBul&=x=> zfAe&`q|#fL91pG23Uii3$ecZGqfci(?*B~5F9@ZJ3=N@c=kAth-x)nAW#vNC01D#c zo!3$|FoOF1Yk{3_bq%QL&;{lYi=-JN!yyJdEzi_SBH0w#;E zB5t4R4vD?uaT0fD?nw8f4NWOTFRA6PEPvi}+g);Fhu_LZQU%pE1~V+T1J*G!0;)oP z!D8-lLMzYos`+Dz^1-9G!8L!SVtJ;W1+-p7)TjT*T6AA0HgxUM|NE7-{*~%V%^>Y2 zgP!W9(CGk7%8J_oDL2o}yJruYcsEb`d)6xobS!9l7ZMNrHdG0ZX0 z$|f6ENZv(X%+&3sH;KA~caWb=7o!GVLZ5On#mH%YlMAkQ#$!kK?B*jK8oMeZl4dR6 zzCo0{{J zc9k=_6*D}?$daJgovm8qN9p+L7J}qnrtsFyJu~`Oq#QaaO;C%L{Xo6s4qGG{<<0%)&=!NDwzn+<@&p+;FOS2TWf4HsUS>-= z@n8y$<9N&!0WuogLZ9R_9y<2$axlyMV0U!0t7qF3=-G2W&bI3cyN=t7Cj7Lk)Q{yK zLpM{iMZ~22aZ^=(6TbK=>E~ak^#NZCtTM~5eR-)yz+VTx2Z2{zN0X@=&v_J6&2au% z=-{v9pn zYKCn8^LfHg5cNL020Tkx9;h4;ha*aL@&}|4rV=eqbFYNnRCt{`;WC+oo?SkQG2{Bt2LS1 zfv0@u)Y`~&q5ZvS2zF^re9(&Eo+cPi%*B`6l-r`~>-Cyx3RdhEoQi@~h0miUQZXq% zSdL1fu~NrR%hhjdYceT)QJ{=Ep4vu`Rz2BZ8)9L^01+VyIAhJz%l!-~#Rv7Rg_8#9 z+DB{-ZnJ%I?$%Gz(@%W|&JegX1&>Q+oyYGiRrNylkqi$HpG8&8_CEM3g-9YztSuy| z-}E&?JY)BGYRI*HA}EB@LlxxHy{HP!B&WAk$9BqxW6s->s;y6Pj%Vh?ExHAS7tYZX z%x}h`HDU^l&0*+OkMxNl`31JG<9yXJ1*{rD_rm(2^M4}d5z-I`k8Atd=E!8`XWSNVSoFF((kHGl zXo3ogqSjBVN)tv!Hlt&6rljp>7(F?jmcJ73CG(*Oq=Pj%H$g;D4C?>6Yd zytKB__jUHCSXD+2WH;BSg@=YZe(KoQAO#g292?G)Rt*>P(`P1a?#Y5~Do<`UB)8~D zyKdj6u6CmQ#FvC#gKMB(_tnFoKtfx~9A}N04IlKf+pe>pb!syGJE_#W)MM(6&t&%B zfnL9zcpZ};=Pb#K7jp)orPdh>=TOp|9}yW{%(bd!DrVWgdb^(C-M?Z;bXlAT)S;Vg zu5s6e-jJIFmGSA1kP%`WolC@oNNPzC+*kGd{sCr^G*(K%!7vMctAv&rtG@vv?Ta*4 z8+mjfnh_cb*86v2FZt*n)y92P414bA8<2^<54~uOo<@OAyCZ6>ori!`u7nS8PZ#-I z9xlVVO*}L=I&{JoPiQm+-4$S@Kj&w1|H2i{fw~_=5J3uFQ3EnH2{r>joEKf=%! z7A8@?TMvO6f(M@Be_KV8#!;fIY?>m-3gL-Bgq*s; zX9A^v@Bmg=Pig!MNI^rr@+v++$PwtJOwprmy8sygUwrU62m&eX^U(!FlrY+Jw-e`l zf@Y-_vk*u5f?@q9C$<|5YI?TBvn2fqK+YHvSdRjt?Tf73V3h^UQ>~Gaf?n3Q;<($x z@S4>|^D2}Tz$Y<9;&WfQP!sKQ3Xopvu&+yrfwU?jpONDn-%nlbZ#a%wY8#ygrhV<7 zC@cB6p2|9fN{N(f<1}YO!t*i0mUvM3h&jPc+i(QZ0i8#A`jvvUnS_k4U(k`L8k%z1 z3Ai#KSw*hZSC8F-){oJQwomdfMKsSxfoC^;*~MXYRmIwjn8@Yr6SEn_e89WpxN=8+NT=7jIBMUGD&9o3W6|(Urn$ z>qOqgqOu~;qS_HbTzg`RsGJ@@v;;clCS-!xT`MeY8c|_2e#R?f*1@xj;dC8MDj%~* zd}7_5NVw={KeXkVl&iKd=h;yOm$WIZbu_;B#?GngY--5e(?$c}b{SLjNLN{-$tTGQ z^sX`xfb^(f2p{q?9HC z=pCJGZ(hE$JSU#|+#C_>6B{sQ6?2~fUKgLQf9Ck;_VF|B?~S&>tgs^D@22O^y&Zi$ z+Sh&}LMa)5-xu=u;CLqOZP+5RwIPrt-kwF!Ni`_y(I>Y zp}j)S&*k;;cZ2to-l$&pen@~8hs=jM4rTX3Z=@qFu!e0aQt*@2m9)?lNpJm9T_pm4 zC!k+2lSGLhT=!EEb;zWOWaGKX#<_Xu{otX87Y!;=LGt1)vNWc=R;2u; z@t1@A2>^b+bKoHkY7*xh(UbsHLEBziWn`tJg2%7Zxt+`p_$$2CR%V>llJ)brK(?J zF+3Gm0f~W;{!}3I>&WG7Zgac0w1&St5!ni_F8S`@CO^z@q-3vEH&?fMr-znlM1}cW zx-5oYlKH5VXJG&^f~gkSuXO1M9M8V4Bqv_pM6v6zfCL{W`vc_FsPxE4SuiysrgJEs z&+N7S-mEXipe6Pogqjx+UsJjsLWUovtSpyy)>J8EhGRy~HP=+l@9`52KE$8nF&pV5 zaNH6pLM}7H-_x<{@GD8;{B{yByf8uokP&CJD>?Vi@1>naIC(Dlggo={Z$+>#T20_< zhPO@{3C7X+T#($m5w!Q&F&Agg`sY%L!j;kO4Ht)vZd9&+Wnd)4RkAR*W~~fFgle$B zPhQVtvC!rUGK2JhJ52tp@no+hI0>U$fkIlhrA9=NOf-D&?C1yz^wr#hm2D9|J|z;^ zh&(ILpK8uD0qMFF&m~+OrbjaX>lzu*_r*XjfzD=bTn~H(3XiEPR^zm@qJV3hrGCu9 z$k^=Ex9WkA`ML>SqGi4>3a696suT5pv>l(Tr++cn!A^*;LfL4Vck~jcBmMRyg}5E* z9|rA)K&;|`Y)t)@lUHCrXR=$MD;G|O*q*GcyVuFHtAJY}D2aRKo!2UlB|wWm_d{>j z(J>LtmA+QEV+I;ccpOMZV|l?Xc8z>{kF|>uze2gp;Iw>Sh3qr@t35j6^d_Gntkptl zW9l@-KMlFit>z z=?@`xpNkclRJEXIS!|=!PmifYgJGyA$+1@52Hx17N2^;rWBJE&KJIKR+GkFrt^7A?S}-onzVLzFv!wI zx=MuRoon;DKsfedzg0lHRY$t+s~Ys+at$%RPR|(BusIQ66c9ICWqxyYF)X+mFTK1} z%@+(J$l9~DnOHm2gQX|l-_ooN7x+zVPc!pdT1=q&VSL8raDMZ(fK3t4lgA33wjLct zc1K4Y&Q&Jmj-`LzYtVPDxM&299alJ-(LfGwghzkd=nVa3vN@yUm zW!i&;OSqgr#tNRe(PbydHJOc&zxmPQBj)h1o%b6Z8C zTEnZLpYjljy6GYBVmvTa-o1V|Ec6d?B-MD^{nI%c>z;fqCazl-bv~T| zjG9(*@gF%#g0o}A+F|c?J-`HK+4X5y!ngv+^*)U5sjo=+Y3;~%UqL9s=<23n;*rKQ z%@eq&aDIBg&NjWk>F9z+VYbv)=8o>}6CMQl`1nW!nU>j^4x|YBwWtgUJ|n*CccIUu z&Tbp{f)GpG`u$a1x?46dgOX)-fL-Y^PJV%2199bU*8*Ws6(?v)Mv}xFSS{anx&5UQ%Aa{RA^B)_8!yR^6jjJThOlMcixu4(1_~wBarW z9PmGf`u@9Vde&^Ge8SP^&OWbxE{_HYGFlRng3qY;^e}y&!i)nr>#dupQ&kGgfI8gDUHAVO!r)=@tW1;-1jlg46nmH#5%t#EGhtkl=-^F zj)=FlvUzIG6SSR&x*B|z(m6v~Y6;=mww-|I5)Hk0>R2K>AGAv-KJiZUC*9u$;9csl z!a}}XFjliM-jV1M{>pU0%)X}3vCHDAd;16HF3AVyj5qzmMTu_7(Kavr%3lnl2kg?r z(UE4R*4etVM;Bgsnk`;eBWt&Zp5LIpFR^d%$q^zaqH{3zGuyN*>_F+;79c;j{FlG- zpV_CfL^MI7ddd!y7tejPH4xkG9B(#{e4$|0qD-F4#3p&9jBnV!>Gyn0h$KBCIm;AI%78;EzoHex2 zT_muA7++lod&SQXr0Qoq=>hgWS@vqWDq1-H%%}o~06p`mTz&tO@Dy5#TwIJokP9zT z$V*fHgW`3;diZKNU zHZd=_qaD$NRZ=guX*@hns(0h1RyHP4IikPzk;_W{jOm?Ppm=KHWWj|ALPebjP5B%_ z-AQrPSi@FZbAc0vyy9#a{lGTT(_BKJqxhE-njG(JiNKLMRVUunMEkhQYVX ze(&a&?x*#FT6DpD@B~hB8U5|8^XmlbaE1eL8%Vr0}G zC5DD;_2DQZD!L9Ee0SnV&FW6U24-e-Ppx5}T5Y|u5!lh4Y*^X^Z;Oi4aB~IcTv1Oh z`AvV`g6%K4pADwXt)tV5jTXjq4^Lx8++J2*vk-bJYNcG@PK-5`b&+Z zdQ#R;Cr{^eQd`WR=LfnoEaIJSnUvnpayAx1C{go14F1lhbtW@A;PZV8iZHb-8|mN& zA%54sN=C1_aYIX8y$|OG_3)@D5vF3DaKkO;Cl#_Fs-ejO=E`NQ&x8)5!y55c3d~>d zrhgpjDTs0Z0kHuWo$=Tz6BE&Pp!Di$ZQiGg=_eA&eYSvopoNIameL9`S8s+~x7JK- zO3!N*^l-8cL_UW*d&6tL$2sTV1E;grcpaY|JrwM7@MFGUSmdK)XF32Qi5DGnL2t^u zTQ(~cR?rp27p(C9Hf4<;n0GS=vyk#?v9zq1(Xrs@`~@F+s*jB7SQ^gh&hcTFp4T{UDK;x6fS=JhuCj{cJ^ z`lS1oquEJMr&5T-y<6yEv3>7ivce7owGiVm^7?kQSi#2>^dRk_V}QMZD%`Vw0D@;!bCuhYlxZSVr=uKxxTr}YC5D>yJXSPq7mQO-X^8Ec9WSEE{{&5;vD3m zdUuW+iGr+*P38!R%SGegqr}MYC-6HfORN<2u!lEcOz3iS@AxelTtpUhH}FcmCgO4j zQHIg%{?*>cj=2sS!nv_xF~=V-pPgP`4MzqJ&fs!1FHf&^VrMKXVTCP1HHXzzNajwE zKhhmUP9(;=^_#HNt-y%&^}E&Xb}q_P9s$bxNq;t%JJ0b#5Y^q3yBRZAp5CalAxg@V zTse|lm0!EURCCC$1ve<{I$&zlYO5=1?dhum(_}>NL*~6qHPb@COo=x_mbH8C{#)-z zZ~Kd9d(P;*t}~;!3%>48Ecc_7D#u3AOEWTlfO%MKNtLu^HFV*0iKywox~h6smT~{s zh}qd%-$~hCTULApLJ4)W^wm$N6t-mT^czf~FxB1M^q6%ZeksTSo?3#Gk_~ zbG};EhVB;SE%`ai8SX}puRbvB+7q&q&{C^@3Zw!2{fF+9Al;ouvibPWK_n!T=ieUW zP1O4}3{hj{|LE+6T}c*fl(8mzsdI5JKkAbACFv3j*CY*sx%l%@Zp1p@S<-0KQ@K`L zuJ8HP?X6G_qT-ha&d5xFtrw&6MQRr|sZfaiuKz}wpdth2SEZiLJ3u{l14xSsBWO>@Tc^YGr zCwMYC>-3w4o+T0SM|D;1_4S(<-VF0J4>4J5KU&_CM}ghS*CW_9{qJCGHLb%?JnuPvT{`S>Y4_)M%luHl&9Nf;U-ohBM3WKkcb|Ti$Co)gHrk9b zsLk4$P!pKLC+D2a*{ZIP3ST*Vc-=n~Ar0)D&%xRo&{IUp_5-S4-8j1ltk|#4QVa_t zmC5Ip?l!vy3F0wa9}C^soEFJ1I!9fq4xiiRY1p>L{N;ye>cTukYO)ZkCZu<>U@pp& z)A_7#G~l5If+k<;o6>y8XEt!zI7h=>RUCf!H{GX37AdQyJf1jVNXPY>p%4AE>s@tK zM8zfrV>NjCMgL6v!1Jv&QUV^IQT+DqP*Fxx7{CoNm8j$|3B7&eZUV~eqj;uhdhRZ*LW+Y(rA`lK zoH-y7dVD)aQ76o?Bj;Q&VyK%VUp5Rd4QUUs)EZXQO6z4Hfg)dFarcBM5hRA4!gH0M zgc6zBAi8@C(v=3x_JoOeZ!e@`zL~R=)s5`v!^b3Mg?+CI8?|m0oz=Rj^2Yyod`{xL z>j!eh>Buu1h$c(5NzcQ7{Z)G-8t`TIR;3do{G42^kuIXZ!LsYaiW#mqMigM7il%zy zK`mnB={x`<6Xj?k6+1{Yb;tIbZz^dmca!+q=0cCaFQGyH#4WRh?N;m=^Ol+*6mxF; zT3d%3Cg}8Tp9M=^{?KthRunoS;o4A)pi$r{R2({F9r~d(%H~~rW8t9B`P2P0bCc#v zszLJ}V~3eZk)Jn1k9CnQ$}RerF4i1gmKJPnS4-!?b2$AqNC&}e^|R<`XM4)!ZFMbO zhKGlvsKI1%EjcK^!SR=E4;@TLyLO@TnKZyid^jT`K-Zyit zDrj95sE%gGxI)wG-c=$*N{0ru7t_cBnx&vFrUBF@33 zNRJjiTCB%j-7a{TP-(Yxm3QWY)yyWUTt_yBDyiK}XwBC)KH%#xs6MUCxniLl)wmv- zQF<-zk2dvAwOq}fxIx6UD$6(f&f^`@+R0<(sEKnfNLBweH65Vd9vPIcnqaqDnf;j( zg>|=o^)k=A=W0_@UI2Wd4>KK{o0?a0Z?2oyt)n_ya+z1*Ygn|67qRWWvLYo5(_j7m zS(IdMen;s^TA9VGhBj;%3@FR^2;EaV`dG0qO#tFc)FM_%L|ERLMy-@#m5k@kIjqr% z#v0Y6%|U1t#=g5Y&)>9_*)!F(t{AJ|I@#0U?(QCLtfqAu)M2r(BGFv*{0O_}&Yj!p zJW?JnNkMQKNu`q$LEbxWS;i8)c8i5FVB6*MQ9Pcy%STh~5zIQHu$Os$3J&%q&TKKi zP2Jfr(9qMYSue4lJZh$sVMkh)@Nkqy&_+pi`Vc==B1 zn!Ka_2T|nBh_!Y@%UVT0;Dt|`7j`0u9*J3XCv80A((Y&2qmbJla^NP1i4;J}2)+T1Q6_6XQ zo{2+EipV}?c7uN#JJv1b!ra8>NlH6R#5scY7+#`O^TbZ#=N$xq!Ce-2%I^=em6|Zu9e+;7h zphF=i=rERES?a;1ng>-UqC*mDirR3LrA}0B_v^=h+rZ&)j_1dOs%|DO@`QDGqAxsw z5`S}ca}~tHKtA||Ngs2^SI+RAw z&!B{IB*ep-$KT5~lW7c6gX9c^-Cx=h1&eolc51fpaL!Z_W0FBu({{_agDMgR$4Bw4 ziy2%wwEF;J$ANXs+uT#!^6jgYXe%lC{XO~7wAkK{29CKsxrrj2m6}{XMn1VLS`bN%Y{zaTm0?mT^2EgcE_@0;WgAcANz@nBX`vro87`5w0b56Y#=hVjbKjiW<=*3 z@YY7BTG(_;%FG)VK;?G{(KgZpNQ(d6@m`_o;(zn_-$^_Fz0c#ndB*?bN6!=YpR4#z ziMc9U^_!#Gr`<&}s7$}fU0Iggkf;QM!7TTfh~~X`;`UCiCdf&452QUdUfb12>Q?(k zPyMgsv#SN+zrF!qd=m;aEgk;B=(aA)L2o?r!dtJ2o`=^ao;WsqaPIaXC+yx#=uV5c zlI5P1@#rP4ZF@pmY<)&wUG@xZz*_%;x`JwL!lL ze*XW2g>TxR`+@lBe;^M2pA!~#|EGlM|5L)kKfm~&goWMTU>86fb@w-(0^l|LFT%p^ z|CILIy~lO${~|2>^9%nY!ooi%_`eetx~l&nEIgar_}&ecb=%n6`I674&l3f-@sWv3 zHYYQKzEk`?!zm?0xc@~@R%h0em$bjku06QE0bv*V=U4fkOs|{Yb0aL6Qj9#apFU)a zY`dj>HGb_%R;Byk;863+kEzlf71`OFef4)JJZBS*g%zUu_Zk$wmAw3TtFY*!3*FV8 zn|<75@^``L*N3xN&(~n#%a?2=2OpbAQl6cw)Hhg|`C+ZDWmLq!GC0@ut2;(xuzKW5 zoqJcQ?u4<<(>+$@=b!vw)mc|pcg|{ML)_=cZkHRmJ0m*x4hYUXc)6iC<@uGMsK`PL zVJ11E;KYH9t{1naX9RKyXZT5SwHI7>xJL@ zUso*ts{MTFq|$cBX2UtFnm<@7e}Bqm$fo;;aYxQ3Sfhf&+Zd6uPk%aKzTbc8_W0nf zpKgVlU3qGpo&H{@$4-PC-jfTL?}BUuQM+PyrQw4&U;m8-PkNkQ&#-e1Bwd_Tzs(4m zp1U(Ua6G#RvfX_Dl+-5Mh_3fs?VxD#d0)zrpu7VX+P5TZs>g4nvysvbzqeYg{4OAL zy>*>*Ro&Cq_u|7}pT8vZNB*RhStlOYyr-bx@ADs?)RRJ*&kY29I^8S#u1jt8;I=IL zdx4#KLH9m<#aQu_H<`f7OfK)fFYU?snWlW*)uL$dzHgx!>}QHutaZ_MyDT0Z=NjJc zau2(Ac=gna_H5ga&o&`$|0wlkx0<2nb4;x^536dQd3GoE;iiSMHvRp>13%vU$a~+5 zS2J8amA!30>isLP?)sHnBe{n5(^5Z29cPs0yE!k-AH-UY;??UD@A0{?9T8JI2!}N_ z|F||2<@M6Nq2eGpj>3Ay5r9Uv(Il@FAP6oe38BV zu)Ax#Qq3Z0e3MeVzU{*6?q7@nZ=kTfJM6Ff-COcQ6J~xees>><+-V=`RqyLxSnlb0 z&A}$-m)<*iSfh((=L0sPoRwHwh_@KSY_c$S`SV7f$^RIhK3+}bOSku!~#^>2saLre_=;y)b?A zg-Ke-tKfg(-Iaf=vPy;mENk9aX|jLHjjf{fNOb?qZ9Kd=W)bDKwC$vNn%|Z0m*Ud+ zjXxQr&0e$DQf^=n_uOqBUi@WNGb!Zzn8h3XEeLB`+2*Fr_6y!Bn*BV#r7rb8_;od)4^ZK^W;gGDVKW5L2-*~?etz^<|0b;xRPKgF55XI%)4jTXUBhmSHv4dz z_~Q*7jmjU;`v$Im$R-iKI{f^v{OTPB{|zu=_c#8|H#7b30E>T&{Qt~${|CP3-$@Mr z8-PW}zXL3|O7j2i@A)@5@c&Z{{C^}AyZ`?yfQ8dOm;EmPuK^bSah897+idmB{=VR- z(D+hYdrYMwXUg%I(}5C$<74w>#xLEBy{{A-X_$HZdkFSF`ugwqU3!yRLWJ*q8>7vN z%HO4NPiMJJe)O?-jybKHa>AQ}Gc6>rm#lEXwZSjbqkX}s5= zyLmFc!dADQJ4Xh9HkP-knOn+WN`S|((giit_La|uLl=n3iJ-yv3v!u-WXBgzo5tn1sSyjB;UYg~XX17li(w)) zV01Ge0)IV|ID8QP6+T1EZMFw;xSwqu$1>r$40#1%NiCBa3kH&Bw?KS)?0&5)mc}s> z6l~5tx=@xkDus|aB_BEE0bOHR5ibi=efY<^AJ#>JcMP+^|YQ?yK`D78d9s<*8 zAYlZF#d2@O?b&w;lVm<2=5qSqgV5LVUQbQ1G*4`v>{zDkg$QlX96_*@JS0JQKx3_h z`AL1iqE8Ni=!5}zr309A;u9duN4)7VD8`kA>lu*Uo*bAR;zdv=8LgRIK=Vz#yZ)$A zYc!Qfy4y23$(r_`_K%2hkaPq3A~c`M5JyMrX@Oz2o7Znx@_akhcC7W&c>VNNsw`=p zlSRO~W!Y>P9Cy!#TtWCRWAOKP-(^|<=XalmJv&Yu)-VIk+I|8E`@${7L!C zPd^rXr?DZ)SnX5kJMEwB|LQstVjgqs%07?>C4#~d;%%{X)Aow0Nuio>fXb$ zDSh<{LWmV$ScT9wj{fEnq_Hg^>qj7UhZvs5R|qmm|P!Re=wFe$TmIt zc!2%s`Gr$bLM9>o(!TK{ypotjfF-97m$x3=OPtAWCoK2LAj~@|6j-1yubdcItT<3s zV5ROje}MdU{D74czy8Wda~K}X9%6vX-Gw&;&vOqQ_?BQ6FGD*F{D@71gArSg26;Z; zcI_DkBLY43jATfR!AP@d@7g)&BsU0(I8i|mzkgTFfRYC!nPg0+WKO!gEOcg%#GJHe zVHkmOx`+8){MfAazS*IsaEi_?`2blAebP2u*w^T-n@^0L&pH(;rnk*9vS$6nYsVOL zT`&wO!_oH!Xt~-}D-~XZUpW_TA_4U9bIziN^zg6l)bV3w*Md*)F|Bb7*JUN`%&1F( z&lG4Dn@uq_917p;AYhFg`JU_BRudX3vr)qP2@kKoP$M_`ez z@(9v>caFBUA?Auxf$x(DkX!k$1FTc!jTWO;dPF7LCcOtX3M$nkr{pftdUh=y$MwFq zL({uJBOn9h>PAmkp>!MX620oL^9V7Vr5Xf@yHt+b8(!HY4L$NxRtV^9LJq zl7z47o`F_c1VD8#-gylF}tgJAAT zxOpJ|X!(BBI_W^dN-t&8<(4_nx->~I5)IrcPE>N$h=bXya&|}ftMm`WMyO`49(8w7 zJbGZoUvB%wDvq%Vb1ZecSS(+c@D-09blSblIhO8f_-b!==X#RsM9S%c@J>Yb(Oa3B zCsAq`)kzR7W6W!Bq?Yx*gdgMqJ zQ5{R+VX;I`=qIf+s^7plNEamf9|7*uBbMF!P#&auI9u?=iR`F$_}{Mo*9SM0993&H z&V_9#9Z`t8kaI|FyGP@yJyia~AH9i4w?VU83{b~|0oyf}9|yz)_U19DvbEcW{MkFv zawd3BWFP37y{HQJS0QiAHP+O$AZRJ zXOqj4wVihc#5f*~blt23oc$l8x>aE=F>$Tl{eVd3%;mEB7(rETg1O~o(I-ac)}%&n z53R4~$L<8b53){;E86NNom&}V$bmswS3RAnM)-&hW*T}jwIDIU@)$i!9UUel)q>ui zdj*0qPs+^9I9)9t{MjW33lD%BZIB&HCesTZS@6<+?e;wDy@9zP7;qWcG*2i_q zolYaF^^Qu_&sp|zPgpG;g#TXPtY&=mhnz;j(%LXhuORkzfk?U2vY=PZKp&U3J~S^? z--B=`%uD%e9!=yCn9F#S_v~4pl9ki#)eO2wLXeT6Jn`TXS!*J*QEZOiQD~NG=zZ$3 z$*V(#2=~^3SnM)Hlc5RZn26C}k+MXs?!(WPNBLFmIo<^qTg1K9(4-Fmf-s3vDuXSC zMe;@#Ek{&%Gg+5wN`gcXBuv|aYoh{{2L8G8&(ucpvC|1n=|e_?^o`3R?jULs`m)mb z+OBJcR5QgiJ$Eiska3s#XjMK}{W3!+Bk&{u{gB&h^5$pzk*VB5*F8XmZjVMomtzAJ zH`@8=10-!7fBJl;$!TIL0L~7S3oUaIBv`@QbEqiZ3a2MGJ$-17^{(uuD-r8Ffg_sC zK&Y9X!wa)EHwy!Tk)Da5^9Kq9>olDx7=M#6q|?r^(uz(* z8*!d*XX{$J;CS3FmD|_K4XhlA=$i`{(=2|4C$*%WRk>DJf^5m&BkK$QyC&a8H%j6s z=J}HqspO0B3D*@wj;4(f{L+v9K20AqR`Z6x=H5k3`86nreH*6{ZoZbZsP@AX=}GP0 z`?cz_MU>BmmhsA$I=1@iIVAdqSQn7!&Rbf9q46#=JN&aD1|l@JFs?#d1JC~Wki%OB z=?6Y#hxa|?US-_$*K&qG27?S+fA!A%j~SOC#)Em!8QkByWvxi^4*jH|RdImb2fEGf zb@>Xp-PFL0*-ftaIn+&iRzM*d6CsYf3+M76IwmJ7uFrdB=gjE(bk>ZwYxz3bQ2{39 z2s#eupADILeX4wW5ST2NAy5xDp*xGj+i#|4VX1B8D;Bx1d`+NjDB-fDRB;f-S849n z`6zh}s+Iuu6UgLUy$muQa4VOo|fmB&5emmWZ5}Wb$jEH2#6uGm(KZ1Wdt#mpER=r-vce1c(nnRoUc^2DFSNjjQ&Y9 zsJcC=?83~RVjbid)wg$v1pRm7xxNIJ?=$Mm)3*Xj$ zgj5N}U7})X$3Fbkagd!EfgCUHKu2apb>e-FG)=BbfL>3Cffm&_ zwL#};dnIjVaZGBdFUi*0S^6_B(Ni1GW1&7953^Ho5b zQdgMXQ@*OF8_Wg8)NnRua-2tD@kiT_DWgC)(Zj+C>nC0c!zxb_IGrj7`!*%0cmRI} zfz+N`pv?xO!@q2@Hp1opdY39UZ$&z@^Fa6-U=@7L%e$dDsQgOZb4S=XQ^&|r?^n+z zZO449Cec#y;^tjPqAmhqRs>63vUXtZoRfmn)w%Sf=;b~%=Q1X^ep{V?baXU|;|yfG zS(%w~0fsp~y{WvwLa2i`zw+=+dCNB~te_zF>dGBmW{SqOQQ~5~bD*&WBoj~*2Dt0& zzLs~W)s;F3JtQ+YyTPdXt_QVmG=mk+fn>8Z3JEISZ%}Ny%(2_iM<<9yG;}`|MKq4e zk(Bj_x#|wMEXmv_a(5Sj44os4uWTAXDa+TaUIh5&*tG^C6W7K1tEDXJsGT&K z=Fdh69cyBB*rA865^tKs7!6{4n)ZJ6f<+?Tx|}OL4Qfq4>mQogaRt6QWM&4x`c%s! zsMydCRA^O`I1)tU%9oChb)!w^2Njnx{zzj`6y=Eh3JqlHW33&y)kJSkLpKP}#wY3k@h z96!HlxZK#Psm{+X48$pJ(2$%Bb3~LN$~T%e=ww_QEX&UoTCmf$<)VXB+jvt!ffP=2 z2<+x!9UVNX@!Gmg*(IhIG>XI=wB$>Oe5J@Bm>be8vnsAW#84jddKVY~ssX{JZBdh- zk+IfF)@7(u*$NFr59;_25vg*Ux?vYM>5^#@c&VNTA=UWkXBYNLBP7tsI`!9Kcc3CglUZ`??^HFtG+e&R z?PjdY9Jm552r%*5g5|63dlzFM$T{18SHUa;1f(lzUV_#RH9j9&`kJjP=NV{9TICSL zTN%dfU6)bCVaF)a?&+trEYP>=yV_)bv(I^mwRl&9*TZo`q3m-I+FX`tP)c*4X!lOc>+Izv@j-4&hPc=+O2xBhP3Ns4bHMV zT}-PYAV@u+NhKHQY@Csc1TyYX;J!N9TLBj#Pnvx@Oo?#7Xl3`*gXu6A(CmWTJv-&U z@a+*p{O{2|hv+joSqCgvXC~M=<;Gv}=tC zB=SkM8Cs54Yn2n*+I%_lhk9!3eO^+o#@D@7P`+ zVm&^pV=_JpQY8lj&ca`A}bSI`&**=FjS-!z|!6^zg zoF+Smmp+qO$vKvP`Efg`5)M9dl_4+8YHF#woWSe9SHQ~9L5wS{LVON0w!AYjvEoBZ zvreXX`^q)U{YY>*Y>EWFe;ps7LI@foxZ|&5e;$44^U?ylR!wP*nL;Y&<^$u>%QF9^ zB`r6`{1~2hv}yp1&oHry<+mmVJ&hC9!_rCXDPS%_D-Gt3P`V%TF`VbyU)hSx%Zg&I z8H}C_GXe5nsm!*ej`l*Qdgqaqo)c0rX`7*QNVS^54HQysnl44DacPV9e7pC2^IKO;$X<7S9K(qc(vlH z<|g?76vb|lQ#(aN%d7xrKj$rtZ@xJXD|OuhFzyzAxvyn?{8sm4ZEucvvb;|eSdQkf zaZ$YRTEF|ycK$@{?5tMW${H`L|E}?}4zd*o6u=kD;czkP4F z@YuR2D2RTbIRc@`&#nfVNe}@t^wfNKSt_T+9I6h&us}=?%}b>M2^kW1OQ$6MoUAVe z+>Z`tZ?*DMK1a;S8Ck8~&zhBItNB^b*Zc2Q?y^?3Kn51+>W1+Cmr+B@uFU2`YD5;HD zGFVr7Temc-*i)xBYI;8eJblDh6`j`8U&afsBxm&Z{jDZvW>J?OB1nBFE7f)foD01l z5~$_3`oS zmw^ZCWoF_QwrA+D{^Ow#AJ7B`1{(8_&K=YGTY;O~hnou6p}hP}@n+Q!eYyZas#UWF z%1DsqhZA+zmE77x<3i8-KG~x@BwD-6f9Xc_xdI+&_f1vUTxX5I(?5IW z+F&*F_P_$v-a3XWm>=~@WllsO*|@#R0@?aZPtDjN@I<%=9@Ho)Br}OXQn{ls|503Ebjpf#lg{5-{BPHX(_Yj*E#3UajnD>h&|B zLxds%t__brPd-mhu4^k#4dX%swl5T%v(G+rc4hD<@7x92#|5$66O~GO)IHjG|Mla0 z_3I#lPd>q<`woxV;&;{Eu4t7X#hV-2Mq6?nqGs`Uf8Wbq54$VErRk4k579c_$T~Hu zSgbzfc2R2)Vua8q&)u4#)6Yb*IjyAyzL(lZq_-GW4ZA;v={>RBh4RZ$}5NE3nbM%Z4F3yA`jcJvULT zRkKn9LsPm>zC|n`sh0!L&bx`HiE-W7V+Pi~j;bi!&K}_q+Mg_BRCubG( zZR0bCy!y!ypHI?-8Cq)V!m!7U6cUuxb>US{_3DK`4)y}-Y&N}{T!R<^%3PqpXEXfL zidbs;aZm-xBU4#(DN7UrX;L>UIL*%(_>_I>>!OG79orT5a(8rmX!dv!Sk1_q)> z@M9hh!?N$JUls{^`unn0Wj28Xe}-5nq9)1b#L&Ha%+_D3h`ETv69yTw2w8#%70k$-o5C#6%vxzxHO)$(mMArut3w;(cEdu~_nmAIr8Vlt{6l_O3ItJ9(Kg zdHK1@lw#MNQ>2}%#W(u^MN=yu<_rLslsqIl=`s>Pg(foln%yu6LlA%fM+OHzF<78x zM-;jR?3{N=$eY$H_?E%~v*7ob3ncYYkb;Id-W$lexC7%zEkHXKUrz0Hs zv~zY*5mNBN>Y%RWr&ps_k6E<8+Xk#1f}EHz)L`JA)k_ih`SRLPBBUpdf=Q9=!LCH5 zmhDipEe8?@sV}X%YQ#Y?m*qBTG7shXgO*Kucj)EDH$1XVhqw|+B6)oq#ge=vc;W`F zUU$O!&czAi<`PL@cspT^O_r?YX!h3WYxrGNx}t-bz1ztnlLhoPDEO7b>&*(7DG=*d zkESm@U6zZ4zK^hn0{c=}>eyAftx5Q?6!Zxz+#-CMVrM$SLhan@x~@u@E4#T5yCc8i zz^mfVj$)Ql-{dp&MDU_32=PkdacfmMHe<}pn7Q<}m4VdSOD&IB$_cnoP3M?IDg=^0 z#J;wuv}3rA^wxRBnY{x?%W)~%pjZ_M;vblsCmV>=;_N!p(;B2tyuG!~1qW8ZC*BoJ zwYRtSl&jmz>D;~`Y*8_LQ!h6F&dktC1#?)<7H5IfXH9@*yIoclSo0 zIOO@Bu@!st1Iux>n?}iP2JwDTI!`Q&UUp)`!tOb%>6~jcwHzyZ2FQh)-&~L}RxwoJ zklsYt&yRvZh=b5_dVV8E+n6uKCp1XrWF)eCv$J;pcc*7{RL7Yy=*dd72OG_3nfGkY z;I#xAHwQ8;mi-oMmIFotIc&fp0G`M8x?LUT2!Hw{9@C-V*|M9ehIss)>-+bD0a@5Cv(uN3lXOz?dtRg-Y!Jh_nFk6e`xvR@s*&` z?><47&8NrUqpht%=}dZJ5C$#FN@o;&b&0k8a;SqM;VsS1>aB#aQ z&^V2gg<6VwNAUpp1DV4Cag1)`nSFufEepp|x~0l<)roV2ZpLbve{v!IAe>n$q``Kp zWAJO0YosJ|-=vHHFARNM%w_tQ7R0U|GW5ONNlB*BKFc_hq6oS%lHIbpDzEwqa>k-l z?2|Q}DpNp2QrS{#P&vkO0NJe*6cN5SvD{tepE4upYn+*w0`c>t_3n`SApsfB)X!N^ zTBdv~bbfP~WCyZ8TJ|>xaIG1-CoD~Oe>|6d>{vzx@J-IP-%8y;i5ZU#XJ#0f01k?e z&}VrPgwSAv&i)p6fcZu?;HarL?GWI>1gPbwF4!mm5->@B$juDas`p+TIk zm5NWHmS=td(HVASzmNA-mE&4Y7W$z{mi#_r@erFmfosf^va--F=pas3{586MXJXu{ z0q}3ZlRkJ0A;2U$8_z@Q6OrMnkvo-pb)WzGaNJ!NZ*j;clL4_<*>(K28J2p>>XydY zHAupd@nazU*p6L@823AKa%vTJc=+pY#hR*OAX*M{p~eqgW6dlNA|mk#iYk9{oT2$}N=BlL6Uup2)UX{!Fa2f4JssJB9 z_G1;c<#B*r>UZ6F$ki~G+21=!C(d`d=*K&QsuCgx6wMUBMW1=!%)fSAEy>^&sGuCa zm~;%PB7)J9w9{&#UY4+H+D$r&S2pkbwb67t{B>ovI0%`{am+st|K)H#)>k3b(f9U5 zQUB3}hA>L_D)*rmt{Z@Aj1_~OV5gHxUeutdn1MjXtQd_TimXzboPFQ6mk2$v$F1@j z8+h~16B%^UaRXS1Q;AJa96-JzvqFhWV2j%DXkXg4z^!GTf$!g0>7Q=y#EpQxHDcyr zu`WY~56?+Ss3RxqGLvxch0P&HW^})0X|@44$(+&wkM!P1DPh!VJ_YJiVR2Y#AY)>c z7Pzx-6mv>xCcQ7kLDG5ZW`O(X6_)`T-F+{j*9T;A-jCUP$a_2Gw!a?w3=h<^j`0yj zduyF!CD(xjUE_?R6dM7pLxZuJ!-$9*zk1AZAq+RxCRB)FNg%?UK)6m7w5`$vlhr9hno@BDGM%Q$;7M)NFCQ5oIq`^$cb|r6rfu zTjJ{wA;l&gVn+wA>#^do#WqFZHbu8ionjqu`vP_{T3AJpg9Dxk>yG{i2eyGY$@bk` zs*3#9)#4TK4hISv*f10mAMX~8G^I@W0pkD;V@2iq)LJmYfLh!2&5p=C@EXka|AVD3 z4@){-|NhP7nB)?PmRXiNE}2%Erdgp@Zh*O`nWH%!kzDGa7N$&!OSZXGnr51#s1TwB z+F-~DGj*yNg8+w8#%ektq1K2v5PaW)kim&gIHqCu%Z z8U@?)UB;0h2yPwVLuesKK6(qjZcllMoEXMf-~4_Pa!u4YJQ#JoAN_6Xn#gq~8RJzO zfiBUVmu;{qOc)nGSzHby3yf@bgt16?F-S1aCf(nfQ6kc=-}}J*aR$IcYL>);WVC-V zKyks+jXg^zfuHjt3`+|944iD1ed?l~L z>Am!h>3thg)e$%URcgJp)eB+@5|vYG=(S9}GF0@2WPf)w_q*hpgDuMvDR;h(n^w-B zE_RxmI6x$x?PW`;DW~U#@1;rr2q9x5@7$^LUn5ed(ynivIMD@-B*fa#sUc^*{Yd#1 zw|zD2`R>bw>5a>-)kaA@n55&iuSm=L*an+e#tif?mTBKnQ9ortuV0HRnnqCNlJYqJ zKz0l|<^_TPrT9z%=Qe%?msM*s?RdC8{G;vk_Ezs!0J>To_|-qt_HE7Cpw}=vIevgn z>nLM_&m-EJKH)7bPmgVRIsz*glt`8lkscH`8}dTrc6eG0+J^;N70lQn`}3kQ;K>Eq zng2|rRaM|47qED!EXZ-^g*Bj3gx|M6gbCTTYqj&b?s0RwNL^BO)k55N3U4rM0sM^T z(C7txxbTYemmmKU>~DSo9m8ehD+0Z(P~`C)VHd(iZOI3oSLCDJr^00PqBx*m#m zxOL|3BLVH-hm2)4u7 z)Sd*{TzmH1%+C_X&XN^T*=dH8D0UV+=dR%tY6=}OgsjHwJknsg!4v^Qq_;iNzC6zcszRJ*gcb;a5?q2Y$KHh#sxfP1<*0BH^FPQ_S^BxffZ_eRx_ z01k)tDuc~6;nNJ^czk{qEzPTaz_prdCq^8JEGT0DGkEQe zKe}7`Zr3QlfSq}{SO&tXzgl{Bg~QLHnAn|#WSb4y>#l`Nw+AyrONO~}(LCLKsTmhH ziP6LVIt^Etv`A7g#uCDWk9>!zRGOo8{Lwo`YZa#MEVXbvzeASGhg6qRSdjgXWh)*9 z;ibiSV#&0WG%8Ww^8ymY{mcF{vOudrJU(JN5vn~51eV@~@pUgz>(flGO%)e+z|Ww* z+Aio?vmIZrk&JxayzvPCRorXcxSQtX-e~}0`F-DTjm!=e`=HsQ`Eq5y#5)spQLRXzf9OrZ=6%*p9;J&O(B z?R7z8y*U=3XOTXy6JTc}K6#KAP*dgok;QZXETna#PdT^S+g=zPU;5 z&Zn0qU;G54W>FjDT8W7Z7=8@b!TYKWBTLag{*0vJx`563qdy3b+$T)n;beVBUD~4n z7(e^5X0|VfZOTJ!zdT29L50|M zqa(CXAFMRL1p(g0wP1aBR_`!>utSciXYmN(F4yBoJGhC+se%TTe?5lwq z@$m~uuoQcfvf6!Fjz2@K1+x9;I*S!AJBziIE2!Sl z9k6Qsq!S+yZ#`2{YE(Ek_YZzgAD}a8AE-4cX}f#O5S!zho>q(=+!0|h>Q9mPzKqiE zU*nmHCUL>wZ@)ts58(C2@_wTo#y;x;DjLkUWCd9{gT4R^s!T{5KMz7yvl{+shJi9D zb623mbd`}8hz>48ug*k%zNf!(*6U21!BO%J5fTG4Fx!0HzA>0QOSaC^&pBUm-0Y^) z>%T=*2Roo5yxgbfdM-P2XE4^z0kE!~li%FWBUc-*iCmi z*i2kQ(IsXg#Xi}o;@y2^?FH}WOV8UNsvU^it(_I-#l<8#9jOY_Jv{!#BRPysEYac@ zrV55-vazsNUUm7T_IOB}ZEkb(U*E18thA()IrP1iNz=Y7C`h->woJEyVc%9JIneOC zt1%X=i0>WX_7cVJbr0u;O3z~XSL5JS^R$4Dv8P2^hR>yi3#PeG}*RM zojNJ50D&g5C^zA0_L}a{*5t@vS0yU(QxyKMjw$2ko!ogoC zM!@>#xPh!bEh^2h9Y~)c5972oCX;(s*`q8^IAmn*Jn$Q!bdYPJLooikc#Q{Njz8>p z8uO&VqrIHFq)A5aG>L;f$xO;}h~o+qQkej`HPEv?u72dc45J@bZTnB>urOwRNfx({ zsjFvMBlC`)OF>lX3wy!1G~YD71pv^=+sN%TcJxO{hWhvcU_Glen&6>CisR zr|U6sYu0NbZ6~u+$HYt_FEw1vZfhxzYC#NC&FH~efV?10>`zo6u>C9k&-ZsFsYX3h zaHHFY5kjG$c=r7)rD-fLjF1S`Z$%5v6%Go{jCG4#{rh^D&9pFnHnNU5VJ4@tIsR+7 z%3a3Cs@8Un=lxyXT=Nzosuu_Z9bXE`TN*kU^8Bxv``J3{rzf}00?K!3<~1je#DIFa zua|~;b)fsW)5<@cG|Tib%IZ#$7Jc2HT>F%@0Cv4Y3b*7ug@*dIB%zp??V+ywO~WDS zB!|+YjPT29+!$qOku z<~-TQ@V@c`9#50a--RAG4n<6p7KT-)+Gs_%5=j_y+ILwZnaO-{Qle$c&ru`;H=ypk z$@AY|c&g9wxMw>x)oF~UrRDOq!+d5vd-&B02>`&KUm2n@g|CzPnu6027NaicYpC+- zG#buX5?|k$-6095Y!?Z7#Y4$xua=~a-H1(=kuesd?iQo#4~Ada7!bZv|KVq{{viR- zYdJq&?estxqaWw2hm zgW#hiNf8XhZ@1g;*P%y40`6s)RGlO^Jg&x3!0v$sUkNl!$=T~RGDR@*|c$p8b_oY@+yE45lJZ>`X>TRa*Go$frftamP z4`Q*^L3Iu`)Pg1))Fl@82G=HHEX|3aYE(LzgsSZ*AcS zbM)N4oB90g=;tX^m6Su~Wesc?N%6ka73Oe=)^xnJr;{<-Won3E6{p-a6NV}USpzq3 z$V>XytuueV$=JfkC*IY#8dXY>MDYf04BY6QlalFx+5rr7V)wi_vA7((Cs7xutqI-u$7AP=*|6OQ z$o}>Qm)=J+(~5hWC@mv^YbrB1xW}Te+90$PUG5Yc zw%jDw5_;xZ)qvfNK%UxW`|s|CkdF%@bhG>6Pin7#Bh zMcA~Ts9fINmk;Ug3|g18QVaQnCcS)wPbkB!?wEJ=^Bi^jI4EW}fGjG>D^drO3GSBc z=W`*II5F(Fn4uhPHJGmbX1XG)@{DqC{ETEq*(tPb4q4EgAZb;CUR}_-#0P&gOLej= zO|^01*<)K_>QoJsuf>T?^Fh)zGBt7c7K~IvniGDRmabL(y$SReBD(12`^*~j*I?~2 z{Ce$;7LW49R)D#3uHM8jz7?7(?m=?Ds0DmC10;~|s`g*jiI0Vc9`#d@&V{S5?HCQ^uu&g!ts`T5yyZ1FaSDcTEOH|gvXz|C2bql%v=;> zXJ*tZA^or5yWOj=x*GwhNnCYK%XU82fwNmA+5$fn$Y$*Viyzb^CRnN#$b6MX1~W{K zIog*I(SuEq;b4-n-v+Q)(0^E^T8x30 zYy*x$kIDp~D<~gNb{^=$Jv~s4w74C#Q6yNT#R-PyE{?$3PYCxuFsOaGZY8!CBSH0D zJa8uJm9tTpZU6mWgPh=Zg8nx8{wmqE))pwKPtpmJgaoW{s%B|^5|ojV1uR-Xm|N3C z%^GMad@N5+h)9hMw~Fe%A}P$G_CS#4CqcYohOUrWYAk%elwttOc?zbH7OJwmXlQ{AXW^*{txZQ5)koBQEtiYJbXDvkU@02Ok zAu8+>FpR)%qsGGeQ2`hp%(wyw1QHS=@E{=vQ$v8C1|8|C*cglEG#9)iA-S;Bn?MMmZ!k3F4VJuQ@PY6Jjy`+CNUs6nf9hK`Ht-2Vt~x zoR;x+&Hc27yo+mv8As$1aU3AxrxI;{-nr!b>kk-C3}I6&21rTz%E;lHZm_EOLu8p#ho6~XY$s^3_Ir_!}jMR>b0cQVPSuSyj%|69SD$r zU5lD9xs;Sd%uO=;{d3D&AxXWQxbQlM`~EbQ1ZlyBfrtI1#4_md?Q1Yy=9y_mYJzkt zmGO3f`G`CKiI47>Tp4=%7OYt9WI##@|HZ)%YCcZ&F=C-v8ol=4&%)7S0ptuxm+DTG zJIr9Ts|TBQ9g)Pd3wl&tWa*Pf5-E7d)U;WH{TRMTRy5CGf=+lr)KjeL>Sgf>%vLKD zW0S>bQJOP9E{Bne5$QDH;+S2k_>V8S>O<{R)BVx|fV%}XCH*EZ-dva*F08oG$Io`} zWard{K@V}1^>m*hG{9sNz;APSY?DPFFVgE~RvnUGb-%?}FI^LWuC}L(1i)1gIX<#! zOVc59eJ+y;J?i^^kdxUUdKVsWIYJ`YrW1St{ICu60$oQzBgQJyGq_sco>Ylh1p^i# z!QXAwp`UJi*>c(9f=R_M-aqrQ9DuaU5-2V z)KtyiI(aLv?S5`Z<-OZ+-*sPY2JH-Uhy7Qp1(e~eAx}_Ro{WwHkU*rp>yIxCMC=5X z5*G)F-!xzTSMb95!dPB8x(JI-ASV6(7i?8|J&5Mog9JswuRZwv03N*``lFXQ6~zKb z?i=TizM0fo2^SXUO3A0eqF)D66c38`_yf-lcaH>C+4KNe_`EtC1#$&7jK_5YT_ zM}{{CypP{~;`oLf-H=A3DP9yS(p9|V@u2pto*Xh;%2@hD+HxI79pMyLLm|-7W|dN! zU<%P7)nvAKrMqyXB9>q2xapHfr8Tz^?zRfcju%IJ2~kg?*Y*n1X^UlMV2jDM^qM?A zT6M;Y@6*iru1gsvuUJ2ct~T0x=a@W0-Py=Ug=XdjEWV6S?FzFx+)@A2t{eb~IP(FW zW`!|98U=ui;ngN?WQ9k(NF)o;+1uZa!lJ7}PxqyHR5R~+;=K42nM`|_WtDz?$C3Cl z13|2n2U)aoDk^j4Lh=(Kd&Z4^iInT7i02g7x+g^OLrr-2i%k-KZz%~~1 zj*tSf-%(z_lKBNFJ>^XP6D9I0WPT!N8N?}jj{ikyooZ~lyinv$q zRPr=oX;WP_z)oEB;Mhg8mv$q?ejl#U<%C2nKi8sJ_|a!5nUxTSViN#Z_7MD>+i*N2 zA;*WM`N~lUDTmA5tw)`O2JAr~@9R8sB4h+<#?h!#8SBp@&cU}-;tK*d7R z;%Q0o_E$fV)P}L&b#`9dqJ+Nk-v8lX447axkvj0YBW31pp!@3=CMg^)n#ss^2v>!z zep|-ZwH6EGg{_+cAKaZ3iNLxiSTM{Jmz0_>os(B zIz6#FEjfZ+QOeg){8Gtz*Ia1lG!7X=TA$T_OZaV^0o#nO;%&1TR{(T((8R;1 zQSkZxnjJO2+eU9RAMT-09|Ey^d3~XYa}Pb!AGy)5bRsaqD+|y&8Myj#_jGFmAX!`2 zcIIYC=J-jxJP8XMMs&w@Dq^rqo*83KBAppvcM)ZjpH^>S<&{vj+z)0Y5-DZE97wdt zqm`34TWovu?DC^Ce>wjh*i>gj;cSP}OTl8z8y%Yx3d4q*8_xNGRfR1ot@Iv|i1J4Z zl$s^wwqJJcDVsY#{!*?jPi756opGt2Ac|~|BOUKPP2Rdzhz^!o}#f&C1ctyoz}hm%AA%msLFJ|zF|6_FNoedhagIkJ4RMcx6OXt*$aKV zTsS!(nk`>qIjsHV49xmh<@zz5k*~qp>M7nSoLrrHj-ynP`Uc=A9_qu5e;sa$YjWFB zoT^r(MHMswa5q&F>Vi9dQkq0W&akU~y=@D4^_xDi?_jlm8WWmvSu^nL`Tlk5EX+y) zLV2)%1a`WQ2M8T=HZ6j7%sH@oYI%1+U&|XWY7^Kh!ka>eggyuR@BlAk;sN@Ee?}bO zmg8mpgOCK7Z#;0OCT2%?ke<^i-DP5#fw7?Nq?u>l@|XiQL_x)EpU4Z~+j()ydzw_cph0gP6Y47!ylq#YJ(2*q1kCrgYQU#&z;WvcBNz^2! zG#~BPJ6^rYvMWM){#veL#3B*u|B7Q1S~(n62*7I~sa*B>WSZ!`T}hRrIPFZpG#u5E zo1LAV54d6FNbPZMice~G+_2+J8FId-u31LFyf`QjwWjKx`>V}$pq33U zu|wHP5cGh;CQkS?XOZZ2LOic+5h!YxK@)3i>Qhmc zm==&6>esQ`%}y_*@1|d==&a5B#c|lK3H~oj18WMq7g!+@vw-t^Dym6REePdhr|X+t z{fuLxq*!|Mh-ag$t+_Rk%{UKf0jw~fDt+aHziOQTQM+jNQS9g@sSbMToh??;d(5B~3MUZ=^G`v-nW zq+BrJ!5w^dp3KPnm7A6|w=`{g+cGZ5bafthLnlv`9*c7pav@=YNHuR--b?S59<`H# zRWm)5I~R&i&s&AM8SP$U3?v0R7q))^GkBgrrHzg@KOtAkgdG0TonuFkKvTw1nW5L*{P}Q89 zO`Q3l!Qr`y)$$VR@N1ZV{M>N8D5n0A^OI=Dj5CFA$D{}UDm4RR?3If3Ah^2M96qgs z=!-mj+O`y{*?vX`d{mB-iDdhQC@?vAG^;9xi z4|nalWWWQ}y-csFcL14(t}V-%R&FL2Z{2OWU-bgcHrfcT0hR^CDe#K8+O{)oRX}6! z|KN{uyOzkt<(_3k+#oh~vY;%|cH%Vb0@}doC);2bH-KZ&kt5g?AC@AuIHv8Mo5R_o z0FA)o*k(02Dm#lxQ|FWCe2n&8oJI_J?mS)Zh5lIozV&_~Fy)}VpV@bx`ToVK8+;Kb zF$tEOl+!Fh`G(p`Fu>OK=S;XAqT=F^(d|7uKqCFbRmcjz>x_l5h{m`E#SJdi}^2;T;;&*5C8q*0x9x!9wj>M_D|0P_wHL(DaEAT2AFz@lfN*lo5DNBeU z9P1RwNI4n>=}Y2NHT3?7RGTlBAx!ZC(r2RlYDZ$vR?`$^ZeKi`3#OwrjbR)VH0mZp-5j6p+E0~o_)t35NP0^!eU~Bs3M7y&>ED zT7?A4%UQZck3$ZGB+ zsDsN=B0jk8F;$bL8cfSTo&FHbJu}kOvkphNqgTL+H?kGF`fVe{&66ShceR4VL259( z;xp&|{SznXP!sttY?~S@29QPpJS{rQ9POiYkTJprI?8gr3vPS{j;F_6iTd?)3b4N^ ze>z*ZQbjf;8*MS#WN|OH2wr;1d%!y0T&amb6Z(y-PgEq%0@MPCNsvHQgi`%8<{(cr z{t$oqVribxu<;1!D}nL;X0bzChwb(w78N1Chu|k3n>{|4c@(xZ5YwiYmI9dvKw(Rb z%2qpw5yK;3(zIsul z7QNeLu(U<9kdPpKv%LXRC#5TO+Tpt6&_XH$T1cc5OFSoshB)FT{R`FZKBOfrJYF!4 zfOI|7`YoPSg>!aX)*@JA0lE!dEcf{G!Z6oY%J_0(Oamlu3s-Q3O|dcc9Z^?KvpJs&Phvqmz|BN<7KRU{v~v`Lc|f6om~ zsgYfE7o^u@jae-A%^GY$boACU4(Y7h6h546u>H%(N5-t+=^;J}P|Mq8?DEcPT?c== zG5CA1!J-K_f=;ODp&+1?1Y*2i|EkCH$f9{`uyQXFjOKZ*o4xw=Hx8(^8&Tvk$%(2e zDU4u7S<|+6;6zp|$Vt}MJfp2i#NyN? zoq(l{M+=6OEZQQ~!VTAjYZIfELuM|@K@!TnJ8>EBkQU*ahn`)&9fMV+j<-w+v*TNH z5Q6f`B;+>$-bb#Ll1Nzef^t4E08>9%{B=^jlK=b3tP5ZNF4Lsa{d(mKqtJ&dA8$wO zx)6|h!hZJf;!r0REuVqNx|-Z+5=vMOi(hl_alo>B{mdXmcSEyPJqD2$pkEN33&%Ba z?ZHcBgUejGB0H#XW_q7r(Io1AblsVaf18YmWef3qwD_2Z=+OQyOOv|`v@5!c$Mrz^ zRQD8aw>hMQ7jpT0@>YTveeiIT*Ux+r-}~sr^P`XoRDQ#5Z?Wjkv~7K=H@)N)KX;`{ zuNMOy#JeHRnE(tuCfg-T0(=$VYz%C^U2Cw(0zTjtSj|ckvf~@lO2lz2fW5|S?d{_M zc@DCG+U*16vUjtZD0;afiemB4VS60`Q0q~nsEKdky9qlZqrG?S2sb=yl|Mf}c`hI=qutW+SRkU%Il$xwEu(IaolxOSqxK$M4>**&KG~VOOLNv= z8iXM#Q7`?T4I!_G7E&y8AFp!#)*9BOk|E=S>Vz=h9*S4t$r2}vaBHV;+A&sogP_;N z|KM>WJ-1}5%8J@g0N8abTh>oKy~t++uLP2;$^`d-tnuUJAYii%PU-wuYzV; zRh{H8DNw1ZzLKd$KTgKkDHKF`;T4BQZz{6|fC`*qS%r|D(ObsT$D*07{$*HI0A zx>L~+b-kv}OKGkUD{`S>sO@4f6_3YJWXOTuVR_aH>f?Sbo7-MQ;Xk^I*O|91d0iL< zJnSY*GQdI%Ei2dq8-&@OLLRsxMQNyjWMg7jYNS_-w>&X!b5MG_<)_%Zv_t@}0aZL1 zfeTDy0~sL~NK8jqm8LFPO}&V_qdWSOfrxE%hos3H2qHK7hV1$Ww9lI);@Ws4k$Rix zKvO=;;l=;pRe*MsH+2Y5Z9rs=5k$sUjQ(@QLVBFb+}iFIJqZaG@%qXz*8eD6yE1;P z%s07EyZAWB?vnDDa~ZXuMJ7(}eCFkW`2H6Q`-Bj1z#|QL-M1sW9yfjGveP?b*663n99P)acV| z?guj?3o~n!=%Qtgf1P!CLZln)l`oQL2JkyJQm=NboP|Wjf_%X8^f4LCdmi+^-2nzh z65R|0`tfOBEC&)l^ZNKC>g$WzfjJR`@xfx%H0a*tA8!4ph0z~!%#Z#@LpkGhgg~p) z$<@VR!f^V(>ZMN!s+0uo3FTaXCRH`9l71)<=`Oy;9ji&^>NX7A=*U#|ejZUjB$o}h zP2siXKdQ=e=*(gM_{a+S!%x!F;-s^HwWn7LSaR)mjaVADI4}{*B5&G)-A*W;wJ%Ql z(DGrsIH{<$nbci#;V58lw3WUKg zWe$f3`Ee{PnZ}Sya9~SdnNz7nY5k?OdPf4%G;qJ}Mt)}&>uV-}xv@?r_EEsH*$s}r zYRt5r?dW%AXLd{i2dH-e1AMP>^*)cT@;KfsL5_vJ@h;7QA%5h6Du4gWrOIuO!SkYI z2}ruYqWmlnSti?8Ll`t>4+5)0{lGdPIP$s}oP_Z!wpC-f%5G@6URSTw`!y5dS?BYP z=@^Won86+7xS*Zn*d5EDM zZ~f?q$OrGvvn~64Re%z_-w!1AN)pWA%6jvBok(m-fV2@?d@s$>g!*2FzIPLcbCH2jxP2C50ZcM!(y9hfFq zvUBQRhXLdRL3h!B9r0Ft2j-bJgL>Q%o?wjzBU&h<v!MCMyqI_#7GgzZwzZ6)uQ$ z;dpLYLeQUHt;h<&*6@Dc z34 zmx}>L^}zB8afMS5 zvM;5KCAp-@hsENW^y}L1zFwY)f?m3;%_j`ucGu%C>1yw3kCFbkV-%1M)ID7k>opVn znQq4`P~&kngKZj}y(2QtR&@Smj@Rfg~!Y+hn#IA{HMXE?gHRV-pL>f=V-hooBq;HXdBJ)ma%b2F&yH z&Lt}MioqM(k1Z@yD$+Cv`3?Dy->DWsZGBdgMgoWxllyLD+f!{3*u`E;*>2|IBY&hB z3{kN@+zsRedK?or9J*eFMCCjv$X_7MDBd z1@>VBJ8v;VU0BWojLR`3dAVV;B~VO&D)Dnk>%Gl!pS$9+b2;oBx_MP>xQ$bxQkAN+ zyH)--+@@l)Bld^6LS?Z`94`|gM8aavIB03BG!al0I^e{)O<(^ zDRr8P`)D0KVUlwS2|?QmiwD7Hp%sB7uO1p%sqDQ!cC9LhS~aq~;ROIx#mCi$s-~8F!{Crbbt7$?UX>@vhvvR z^*Cgn2vD{Bw2!;D;!Pue-I`@SrZBwilkK1FT`{^NG9F%VHz3}XdC&17us}!5@lhpI z1ZYH;glT?lWx=@1z-V_messstm+!wk0ojfr2YAJxlSsx^Y+wptBSv0jvDUcIc|pbh zCJ`K^6<3}T7wBDaceSPduIZ%Is$SNFqE&j3{ zrWqv`7qM8&`|Bz@Elaq)&=Oby%N5Kfuay5kto$kr#obSof`bJuzqj5~$#Gf&ANl$0PIsc_QOfE*y zrKQ|#B_7neN0sGVXP?(k9$rC0LnEuOfl@457{labJC+uPDL=1U2YU+7f}e`sd@BBF zrA2?FRYc#wzy=uoo=;`9A{We+E#*uF7(4Vt*y#&~J#C+CL4t!mw&Bl?%Pea2WS?DQ z%#T0sX!<>LycSVwd&bH+^1a*r(KWAbQr@O_)`Z|pS7R2N(pFQbh)AHVKo~ssM&*A4 zVnucugp}GvUfI%f=X1~beCDpi}LQR5+$KT4A6)*iJ4l*sep zvwpTsUGngztbwDJK{b9g$n4K?iSa#2=%MzgKWbglj#w#VG6H)zN^XJ@zi3fOg^$kmFdHr zJTWz;jk6Eb|Fd`S`sJRRi8CBW*R_=EDc0NGJZAmmL;Yo{x^DYJ7ElhU&!TtCuEOXE z6?<LC-EdUA2qOXhD4S}PxYwzc%pCWga44uPkM#7Zg7m!&0@uc-mnypdU7X`xi2E$_tbF3on9lz_Lc_bBIZg}Q&*~I`$p-ZT1ApD=m7^Sw zPu9`ht#Y+R%2|IRGCyB@)$D7q<*6D-0&i>KXb z)u$XKsq^rId(;wHJ~qBd02)Q_x?ivPY&hfrsp5tz5JrJsO)L0b{=vWaGbh1|fn?9w zTjRiLDIV$xa3S+3jp4H0z}+y@T%;$;k>o9K+*2Us+3Zy}70&D2vqz@I zwHgrLXq(|T8T~hKN{3ZZJq4*VJ)?k@F!Hwjq!)$3Gu-X*YvbayY9L1!=uu9GJ)6F- zHQz$L>n-%2_GhKavFP)*y8B1;!9#a|o0jbyQ12z;0SpNp4~+cZDO0w$;Fv94p@H^= z#>kxT%{N{m&){sp09L z(vOv^35iNpuJzDDy!>hNvMPZxiSBq)^U1k2oX&wOWQgznLMY@kQ3pyo>3q7;5rI%;BVTZM;U;8Il23O9a z9(5i64K$`pAOsAkkL119ucY$p@9WRZ_zS?Nmmj%yk7r2*SX1?{@tqvnvH+4a2)pI0+b>51u~q1l&ZB zuZJRQ&;S!10s5kfn9?ffZ(kGFwl3WG1tXApb$v}zP}L{ok^nX1lweKaO5V?s!#?`J z$gdt4*4n!6sU3*2^Dep59P$onhH32u?qvNfxAU)|w2PGDdR zusSEE#X413#^uy`I@i_yQRbcI`Pbp){&fhNgTe^6s@iDlsc0Lj&D_YEsj%IAV2eyT z2G8v`e%si+GKD+l)iO1}ttP$OSatd8XY69YJm=AhHS#F+EaPSSpYIUTr9C}s&uwEi%D4m>;B6xfx% zTzp*@8uqdNXTS3|Uha5PcL<0_tikxQ+KmSvf2JtW5M-&wj4U>J+7~8bmJ$BZg8`X2 zrSyZ0OfnbJ>Ow4OuYM!2R0|RBrSInGPXcU0_A8-}=a^PV?7+bQ(w;?1T!%^TOdQ^~2`C4Xl`FWpri z^A;qTUb*TuW-*$Xr(5R5*OzQccpc^&5x#^-p;LfAN&_R){fc+H*uFb))xA3Xr`htf z@-OGmhYh3t{0Nf(IYbi`VCXOzJrOlx47Qz*?nnsh+4@#rMeOZ2CxIaaMnOa(Ku`ye z8kMKT8NdDKD_~E8VEk2;+*XdCoLGShMd= z4|y`vcc)7wmAG;%-P$oAcAkg3S_Twi+rOL!xvRO`{^PLA0J+o9b@5M^jJNgG2cEY@ zXO6d)XO$8O2!bRs5CZ**0pM^ZeyrpX^G}t?>G>E%4xk{)AX%XAgc(T9doL|4EG)Tm z&s-;b9A!J3>1*T<^oJmT#G5$53B48y>4LnIi-ZHY~!BVuU+J6sB5ze zTv_&yftpX2d(=cJYPqHnS;Z~ZEh*y`Y!`^?gyQhE@je6lSwkJEGZ&{n%rToo^E8TT zlx#yGB!aU}xn&Kk*WBxJQib}3*-o8?LOw5E&@1&~wjQs&6e_}P58lTmu~=xs2jLGo zl*Bl&Iw#>CFgXg(Mqre&7bWDYSN{S#0+d=XeU^S-h9dWajLRsY{hqnn%?cL!m|M;b z(16&2c|X0e!;f5f%B$XDI@vU(2nI~M>=WI+Zf=UzS&b=#$KKX$ysT|K-&puX{tB-I zmb!{|{Tb_Bx#4zgF+0M4Ja)VKzI|lPul;^@+YX=DxOurdz(7y|NVJVnURC)9KTe#j zxf7nT`IaNR+8E)=?2)V61moJ}mM$|Md83!>0U#6G4Ubw9 zk!M{4?knuEA=BL<)8x>CiGzD=o$1@zSpyG4th|b04^~UV`aABF;ekX{_R?=s|MsNx z0Gx#97*H2FOF^L8-Z&d=;mSNbBf^(^hMT+6;`RxBLjiK;joI8hRBr>>$oT!Q4_;fy zDR<|yN8Mx{2tMZS@+9WcFGhiGOF{pRt3lc1=YJYzEI{w3J7hTjf!;^AN!B*w#U_S_li#5@Ln6Tou^5gIo90aDB~$6DNxM^?Zdig}9svLB%tV zh~6qGNG+_l@$9|f7Dni60D_bM~ynYr0-U%?xtlmk6LeI9RPIS37@*>m9e zsLRGoi;I5aFA(YW-LVj@Kl7lvE2;Y`INhIjylE*48T+9z2|fwJ5Q80mejN5R^as0j zzuRoK=q)KFl(jW?hRk;Se$vW^btKm6z+1cVv~7(qy`G)CH7sI$M56W=3n36+1<8CF z#Z>YZ5P4$*fW-6GDe^;PKMfCm1e0!^#h&wF{iUXs(v;`JKaHtg=AHUN^{ETNUab5$XBJ{>a_C z12-i=9PAX5_P2GQeGBlMY^$z4YAv6yV|Zc zaC}qr<|GQ;>$+E6mN|1>L0RnOgp{7UGQCST1kgCkUQJufgNIuRmI}sh)hv+)T?b`Byq8sMwRLYeZe&d139he;#;gW&*Mp&UnSZ?%Z!ScGWsJP0M6b zk~(dbfywRYUsu1MZ3oxj{ku#baE$=TA($jGR`}W97Fc>U9ef?K0J!v{0qr^OpL>TX z**q>f_P$4aQ#`z_;)ZOgtnE&V?bjjRsr8s`E$^o%>cObDxpDpzd}obaBj%1<9h%N4 zo)q%YLm!=G9dIHAWG*5qO0ze7(>_aS8LOEU^Ix729~XbcleR2@%n;!#|G}(bemFOQ zB74L^18pQx33W+{d_ve4%==2hT}YMs^`t%@5o0-aKQLi6mV-+gUTiV=XsfQ{BmnV+ zb|uB-f!F_I@6Dr8!HqYkKi zO4~x;NXji{5zZ*PVm0p z_j6@*^S9Wqm4=|dnlce3kagSbib=*!M_cgy+hyd&Jdd`VCYeOM=xLc6x#c;z1MHL+ zOWGV5-Q}$qIiv5v2WBG?fVGLmXfNFkeLsrAE|?xl9Ng{W7+12z!x!onrXLNs6M&-< zlue}`HGp=pxM?FmdOEsI>9S)dOd%mX0DW;lXV9sV%ZP2VQ#o?ZfsjbZ)&}h=hpH%Y zD=HjuD9Q5#%{~5`@4pL$mmE+-Z(*wdE(IC0+D%v(vmoNuOAfGKn1Ia)@ZN z3!VS}#NuR-SiH}{#A(leLn~i-t&B2JbK0{W9t{$U_pIj= z|F4O~`~LHv?RIi-_`eg2|NVmhUh3ug1^)NM;#c8_Yag9d`!+kso~V2=-K2HJCofi^ zxAcIjvc*5!aMmOKGFd~H_SAi!-N?P0E^cB(mungu4_Pfp{#n^1@1Nf;ll>lt(%J-kSKf`T>lIQ>W7s!e?l-0ePEp<6-JR)&AC*9Y^eDEpEo3>HZ zZzDt;aroS7ldjEewOQM|^9oPy((AWNe;Q_{yL|bOmgiaxf4=zG-3Zxu?;Rzrw)MT- zsV%goFv$b;c1w)o*$ek}q}ZotiYp$!Nm}^zli2Q~*zm{s;qR4Il<)nsd;6O<{-r$8 zR_eaD;m?5iz1oqd9Mnwj-+2HzG<5}0>ylg8=_`!y`{mTPmjiagYmUCzk8S*|>VH{^ zyfO!Q+#q*8>F5vV_Z1Hcha#JIN<^RZ+QU<7aS6<^N8cGiV=CFP0R|6E z@@nIr_3e(^y({%Ze_nMsdJ(?4IKN#~HaA)Q*6S(b#8+{av~HHttqK$c zTMZBP%zQMc`moFJ`Ls*@$cfHy*&AN)KXS$zh$OdFcVqp!HWhY$J$-5UXvuG}X?wd} zSaB{+=IWK^T3EVxe7ok!^Wv{1@80{I%`EFp|1#S9Zow#P^NCAWD!p66X8liI%Z9ih2A%2$7$oOLMjS_tM>@}^@Kc_jBdGZK;iqOlaeQ&ggLdhPvW{@R-> zrHd(DO5cYe%JY%#Ux$AHttDCLdD%?;yRxB9UsWMOc+sm`?%fK1!=SH=XV0!Ps<}B@ z9{t(6No?iURRvF1ip*W>kE90)6AFX%oTDxFi-h~u)Sw&MM z^U<-&2TJ;%tM&idwEXF}_Vnh(->W9M6L$-we>`uLe?gpyaXH>;wczu5`!#p$>hWVL z$8}4GH-+!HPhJ|m%8Fay_B=Y}5*d2cuXuIKh05%0786euFu#VrKb-s}CFY}RwpP%U z_j3QxA*b`&>w}#KWA-Nf4hbh$*lj6(Y&Vhq_O>9*g?sj2mJ@`PgV&&T{Fj{51NFGw z{0{+3&Oy4hi3En@+1A3-&deH$`?ukeh>t(L-OT)M{Zm<#5zt|O)-`nJk7I}L_pVwq z-YLQn<(OuH9wzLnc5bi#R7NalpF-U`aJL_h@bHCl{Bu77sIN5f?)yi7A_|C&E#cqG9uU0vR`Fv>GGgp<66ghs-K;B~0t-;`W z%R`42yH8q%cP1rm_YNEnuem?+N&d6?6a2!X%Y7#tbKysC|3$&?r_Fv7Y^<6Tbhz@; zqoA1UbR?0{x7p zM)22CsL={zVJh4sV~bW56%R z%{Dxe>BJXz!dqnb4gCi+3J2zH9rvXl`*VoteAUB)XDm~6_?O|*+Z+Ff zy~Li~|G7;4&(X~PUd{eni`2hg{=Y9$wx2%l*$WN&7wlJmbBCJh;o&C1ox4@FiJ1ET zIhy&p!s`F&`&nPl|F5?WJ)3sY#Qwh%%?!2z_THGJ%##@=_Fi7Tp`qUBGw_pfsqrUG z)a=7C@tFxGdmN!q6MLVNn9~WFCVTgSMcLjHllg1V$qcX5o#7|5F>xmkXQ0o5s|1`(ISnqe*AWW#9N!r%f4_;nzlq&{yf`a4 z<=6jsuk}62e|`^9;6Jt7B>I29%KsA0Jn+kP<(q#%w*Jz(v;IcrVbvP}doP-q?MX2= zFY$4DdfvOB?7!ZN{uf{QNh;IeY40(Kv)&SQ3Vzt^*4~39g>oYaZpbL#Bje_Ao(9=W z(tWON0XP*wc+>^$P@fz`?!-~sG0;ZMG$vyK6T~V5Id2uTAjX%6{xt}jlb`cwYMMCe z2KdZ=BTdQ^t(>T-u2y7uE=sbJQ1vZTdo8YCxaxDzG^;0Xzelr_kt6h-me;`WNQC4_StKK%htzP>$o3~>{=fm0 z$F)z?CK!Nx;ddKztf=p*EkH}za&w0)^5S}GlI-W*H*OsiBuAcakWU_UB*2neecp86 z{xru@W5)qjKj{nEElPNC%MDIuP+&A0izdq#aw5v+b(j4WrRRU*Enys^$);df+irb`zmR4m*B3XyO34-J(2#6STd zrj^9&?=PYw*+C6y)dWwZkpjTX^zHB)Wn_(heKfHm0?0b89LuxTc}}eFfmb{P>(L>e zgS^qkpwH9VJ#1F;z{HZrkNn*5@D(RC`RzcO69nr#;t!ub5XSRh%FZ7gB241+o;nG62i(PL zOq9wpM%vGec_o<9eN-hJo2FoCi6AZ|HY(;OVoGQ~`~0b!pexf^FOQ55s;#A3GD<X@9#t3RT1-(An&EJciyq+_=`YR}r%QbWSN76IdRl&=#jAgHWtbfjaEzrep>)I;Xp z>B~|Y@2>dD^4DG0u7}>d5B1htbn0eeVlxTYa}JcY5S{0}y}h9=l)z+j??ks&S_&hr za=^Famgi*vPV}hugfUDIbc>>?2P4dJcLIrVo1ba)O{{4mY+7=kQd>4p@oJ z#mg=jfS#+0I9>(8!_#GkA-vvbC~IBN{zsKYtwtV{-K$i5khLCxGY*>X#lYUAST@bW z>wB7+0|(BJfXc?^_>p+U;B?EqMbTWWt7w5~Q)pwgTTWT&J z01x-kQuS4)}2gb2#xo{Oawv!q*L5)4n2Nl2v&GaXps`rR53cM?GgAjWWMwi~S>c-yB3C<2r2C^;xW%#o`VX zDlVl$<~P=0nFp!RlkzSG4IZXcopJ074=kTLgD{g2%W`!zKr8DaHo@T@mN_oNv=%?? zMbQGlhs|+<&f?FxkZi&nvoP5;q!tUYOq66DSkh9s9$qD9<|oQTra?nK zTNV_caUZD&_pT7F&6t@vGX1E@36KY^sf)>piBJ|diltuIsB>-IfQfQAxHd~&0s}d8 zE*Qvos%<7I<4>4*n3x2-ICYSvqt_Hk>NB}@eWmjE(9C$9b!MG%i^Au&S_?%~6+}Cf zEi69SY-V-}Y5MiAfqxa?4b+!pDV}w94xQn+X)0g&o#kr=E@XiEEe-(Ov|Vd2{2+g;l3cV<+QGW$?ro|WY56D7k+%u~S06~Bc$S#WirfH4i z5+|;BAc)h>u@WvfKlIb{j5Hxghgc(tvevnmc}$TAfD&1u-oheGM08)jp7>qq*RiXo z(7AByYkUdHqo<^!+M$)yOA_JEX_%53na6g-TRf{3^owPZ)BZ!lNJpYWU0&ALJN1#D zZ1UG6fM+M|A#tNchpt_h;NGNS$#H?_>7N>ArysaUvc$3C6A$OYVIqDzg&+};A3fZR zopWlH(YV0UdS2uFO`ytCUv&KPFkesUd8O<2;@LGCy?=?2cpH#&=TJ^`bTm~wM@8oI zT)BjBJ_rj-Yq7VgJ8$<@Y&Rkbl%2BITH!4c69D`$bQ&@bhi474&-ck%!&+9GOnSn_ z*foEQS48WHDhfy1-bZb>6vVzZ;Yf0uFo%*tbPPy@CfOR{R6{C#+<=Q9);x?t0o`-a z62}b@91f)=CtD1FpXC``azv|AXF#wKAa%>PkXnu)!?@G2Sb!-+0|Qk*flN6A1CQbj zL6nk{mZ~R!hO2qAk>dtfRTHqhC8Xx+40;IY0k#Pao@Q=rZept{WXpQNh@A#_2#vBU z)CQ2xT_$^Z>W=E^fPzid7wURMui=H$t~Ai@Gy)P?kdv^q zy|!j_WxS&}`kYgd+Rew3)#v#$o_ynhfNj3AZ!g2j^nV3jpCD^DwOCl;jpJ}??t~zbXnU9l}qNC@u zdS#c8hc;VJ*8xTf&8xG?ok1^+<5{_48riDT2mj78Dfu)D!H<8X#;?OdnT~xMP0w~+9?B=LSoUkeFMtc z51+_C?;3Lzq)aF?smXL!!&3`hD~W(Ue7!fYYh-SkYzXeau9~g}N`i-&6p%j>0A*2d zz)KktV5&)+`SZ$L)*7m$D!``1RMQ|N>bdMEs520vnR!I`t%}L$9Y-_`qECW}pH`T$&hUA)#2dabs+mhSUvt5QzRgE%Uq2^ZSy(Rm9E8Y!k*_*ft zMj^a4yBmrNAXE@Yinn4_{~-F_*`QM$9BJcYVlt=Tvmf%&1#I?m^0?B-!aYzROe?6} z^s*q}$uIIn0k)Vmeg=9A+S9G;@Jq$|(*v6#NNAQ>c_K5Mtj<1`Uv>k`i#ejq)`aWA zWBama0bO;2YROOmB?sHC4eQBpMC1K7f;dI(ME*1FOO@$Il%Bfln6TstiG7?QlgsO& zjr)D7U3_l2F0AJR@Wg$zX-38=l~Sb*XJA|&7Y|Y)guwQYr9c9b{h~m4DO&TYVcik8 zOsW{$3WH4K)B1n9dN-2lEQEg6)lh)!%%S92Ng(gQfEgznwvn%h|8T*xyho{@(=|GJ zE=0L@@$U!lIfk&ABwS4G)YKmzf4B)E9R`#Jb1`L{~X*U80GT>&zIq zch{0ow90t@Dw?SMb2M;YGL0e5N(~GE(&k9A>0Q?Oe%h)eDr%e~OSTHzq3Wp`qJnm4 zun&%rj*U82v|?wraOg;bhJawbZ8{SYw@@l_=cstLyNJj;gJx$wwNedHZYhoiEQq22 zjWI@+GVo(?ees6rKIs8jY*-sW!xw6TXAkK04_T?jsfM*dDw<(DN@A6#Inwn5p?#Xi z1=R?C1`Uvn+CZkJ=y34$CP*PDA0WC_S=+YD%t_JVYBOm1pD>q3ox1#`MKhq!z{ zQmLBewcEF}>x)>Mm)Pa_3p0Kowe_M>bX3e1QRfK`z_Dc20}p;Aa-eK!q>pp z8NZkv_s^D2~s z%A&F{=}4+W2OCDMX94kM-kkh%;}|wOO3|U9&?q`De+seR{x|_-LctFYMcd0(*9A!@ z%*>TSu(Ci;pj_?orvtZgp(_>mAes`J#tzW4I=YOSJ;6Os4@f#|I@Lr^_C$Mbc~*ND zM(Pa(iULHo#>uN1Wo46|=3A9+%wPWPxB6qPI@OF9-uQm0w$j^dVx76M-L1d8Ae6hX z{q$mQ-}}(`g6kj<-~@fe?vS@<{13xxg*tffxGB0tEp*vNVy%e@h5x82V%iz?Y-H*0 z7<1F-USQrB2UXX=<<*OOe|OG^>uRk$ZvFZQ1SYTOP}|2>YWKNgI{z@?VL}a{%Bc4Z z@AGoK1KcGOYrcHt!yr(=2iR460(<&zRXj8S?p^~@LkNtku6uvc*FB~HTDUpX$jWyd z;4*@`q-;d$@4F}Cm(9{Ek3Z^Yv67(qYe0sY$wY*}0E&FR8mcV{Y&~%^=+SxL*d#GU z#h_4O8l5waglbce?IYNfexlv>n0B~5b20y?CANOPqB#&rSt!q(u}R}cWLU~480Q0j z#p}T2%+Cxp;Rz)!6OBTIyOw_JUK5DFavRM5^hc7)6KA+#17Z3{ znj!=BB;hPQ_SBG!leuV@9FzpD!WvdX~$5`y3O)lUp5~mRfjzHd7suW| z$7j^BJac8Lz0I-TW#q%X^DV`&`Z2pXpLFl0P1uwLZu@h?@U8{0BT|#EcBt~|JI;oQ z)slh5!;3_q0uBuzaRxv@b;)j7_U%-O#DHuIP)C3^5|ot0L3^dhuWaOE&`23OtEayQ z)1YazjtVD$dQ>)Wkd*-UHuHFy5Om>=hH3c)o4TzoO&d*4tuv=9xpy78dHEUKohN@$ zlao_h4=gA~D2N1I>=?wmhmAoCRj5!OoVhW?O~pc}jd6|+LHcspEVcR~3X;|vxanq& z#nRnKHR8fdN9Fj)aj+SqNhP0bM|qPpNw~wRZr<^)LkEF*=J~N(3cAT*Lczr68=7zT zn0Oi}?A>Z|$sy^BrEV*Y7G<87JAe7y-8%-RSLO|Hn97sC7+v95vO3p@Q_>D#+vsA4 zvT{VR0*R9cE}YqocoHqb5KC<2>t<7Bz=TkCZ|sOwBa#oNHimu27|cqA$lCtunol%2 zqhdv8MVGI4@ss}k469h7M&5bkA}Wv6-6N|f_`E63Qgk2Jk3tuAu)@=Q$yENVZ1003 z#27$5>>iE#P(@7~VC+eBXfHxBQ=|_RF&C6W=Ce~gVXJC3gtPj zz34<^KL^ihTaTTQSK%C3CTU~H#MK&-#vVd~zweO3P#;()0>Q3F(->xwlONU~kN4I> znZ>7ciJy8`cw!SkZn9_1)`sGMT@`KihZfhS!bV%Rk93WYT$BJg{*g)Ix?MP?`@E z4b1IGwbYC;#j>|XdmD_w4hN?3eiDTU>1(R2A|iFbBQYV1Lb%}_?JVM*y!O6-2sUXW zI2>jGUYe2eX;$IetI#VOv`%R&;g`hpX;+{tH#Z`3yMfT9?ZGYhZY8-EJUfuhj&?$R zORYTKJN(E5tU1Irl$_@oV18Yrq};ddvG}qjS^`-~YiDq0lSaPY#`1!H-#rjd+hwR_ zl`O|4&KQt{fZ)pnXKg+^bm@Bbg#lkK@h&BAc0Qab=x2M5+2gy1*};!5y$lr^tL@;Q zUzon}wsq=;N;{<$Ly96lstI2=tEMaQF|F7$Yx(a1h$6of$m+-mkva83uP!@wpF=CT z(zX53BaA-(#xLXv8e@qq%K-i8?y60Nap>H5sfuBGA z;+>tJ`j~U}{Wy9^4mJ_Qh4zi1gKjP~@3W>PPdDU)qy%H9q8|pX=dT5dGZUu#!}LQZ z(bgEns~V^K6fT+8pu`;1nA^9^BeaQ}7=9|_$gvPZ>)ErPfrI(N*%fkq%{Vs(DEI+$ zxUhfE8{$=BA{27>GOLiK%J=I|e{jJJ>hex|iE;x^>-cuC!|Q;Kt$(Wx~Q>1k%<1!{5#hwAP>wc0p3ogk~7yk^%pmgP|9a2*se`5LYo^ea0bM#fTr zH#sjTUzFk1Q8qm^;NuKqkSRmGW4&LE;=0>dRSa3ZVAZZ&G7xEaDiOJh12 zUbCF88svN0D}P0VX|`$%8co{j1qEjRo|~e4_>v^U>r*YG{%-5`A~x@ApV`^{@5&Q( zyV^U7SgBOm=#SlRTt>&otg@OgNg?Q6;+72#t*yDj#1nwZPQ>x#Z>!pF+ddZ7XOr5J zPA2unh%cQ0P7MrxQJ%WPAeu|%V%4(1s=x9G!bo)QuUwfo^b`ZEZXsxv8Sru3*=8(u zULX8jcBC(h9;oQx=?b44oaVQdfFrQ&W_C}%x$>5oKko6VVL3;&YggMG@poqdosDvs z5eH^e)wJYeY!s_)(T={{ncB!pkSwU0Vs?KwAtUZ%QRSVs z!x#2I)k9TH(DDQfkBe!Hdt*Ak)6q0iYuM*Y{RO#mdN5$6VBiv563V;4qJSl5yb3w& z2~mQw^4ke1_u=c)fyNyCdK_}%y9bvpSDWsWW2w1I+!v3SzN`4OI0if@qshCNY&iAh zYbYy^)KWhke^U!*fBy(j%~4m^Bz=7k8R@t@5+U(^YP`Toy`_{JIWrpI7`=lgIbZ$v z_h{e#V`m@080v+2o7S#4S9z`8o)Gl*;Zosor4X2vs=&lBk>?tmzleT&XJD?m z48$ubVoL*#P9KqB>u&Jz3BpSiK~H3rXCI8m5bOtw}>x$ZXL*$J>hJG4Oh zw7>g~nWU;kpm#(xlN_&<1(py1K4raBdTZ_Kqr>J)cNxTRk31WnK(Zn+;KXz|jElUz z9GMh^i3C2860qZ`0%Zqprw)Cx5g`P}RXDh*Zq1*hg2wIH`!sg@KE3rq%e4xkk+xF#c88T&yvFw+7)iqsak5LfEY3m=x_ymD zNduPzP@6=8g&W8+_oC#*uAixf+>5fZ7ABBjfIu3*>+j1fhJPq~j)_T`-oG629SHyX}#Z+!r4PPSB zGTzzriysWMeD)Mnp4hlNpdyL{jRdN^;oUoTQ~~L>H?UO}`l&SWe)gaYwqL^mw%P!l zKzgr$b3qfFO5EmYpezIJr7_5amAb~6Pv0Ds9wPchT~Og(tn>mRQ8XrF3qutt0#Y{KK(sdZ)X=8@IF?Y?SY4ikPmJ*fd^wGZ(WvN~5uB zVT#Gjm7FDpFnu5cBxACUn4Uk9?vJIcc7w&lR?je)j7TyW*ZWdd9@xvsZo?&k9_$=R zBLS*!E!#}zgqlo}sF4Fe=Y}^k_bu5Xo1R_o!XrTOF^~A`qSdvPm4Q%DlUgq|<%`P7 zu9&=i`}Z^lpxs_OOBpHPaGukeIUW70Z*&N*tD*QrgW3KTujq?$sv#rYHWyb3SODY! zTM^dRDg@Nb71X&0zY(gwZP*e}rSnQ#0-f-=zIYp#0Fg#nstjBjj=fxP!=%iF__)5T zt*Z%Z7xXd2eI2UfIxT68;~&LP6j66JYP^DT4uFf2G|-MqPfilMZ46&_7Q?6l92Yb6 z4C%mV4={VB57#KWVW5nJ?vjL$m%~ek`m{21cZXi*a zwnp}q$pGUPg9pJ17pBPdQ=vfB{jnb)Ai<~c1S9kQH?8s>_V^s-{N35VjBoRc0OVkJ z=d&X{{-M5WB1|M33$iw|*CDX^NN1yvOP`!|0h$plDsI2b~6k7j$;ht7xd^TE4yR>RMPIM zXRXJZ1bcq$lgYH)`o$qm3G-9rXvX(;C#P-#ak^Ld`WM&0SWMOgCepuEql(nQRw9AE z{0{|N9KrMJckChu9KJ(?)zr8cZUS_!{zSxs{-`E%)`u4mb^p#JEk4V0jh?9 z>MJF27u(Z(=V$8yN6&v(9lwBwFUB(CU#w3;E%%%mYt%=$^+)0EY5JJHe+;Xa2|sr! z)yQj<=BR3TaG*RqXFsHta^W!=M3^6*j`qD)p6ggl2}dk)T#vdmqg(SfMf3Q@H;s2D z)C?#!Bf>n`Vhl>oXflE*YifLcv%X?{FlU)ZWe}s*lmyH?ROqcz-7DcSvZY8R&Gwxy zJI;JEF|v@}_NRTl;8huX-#lsIU>RBUfw~eszX?kvsaEU|Zb!VjynuETOGKC>*30Uq z*SHgkrS%COh+JfX>Xq#_o+&hDtW?Jup`A7vdg0SC*BCx35fdv`8tPRU^74H)n)E@S zWKVc-R7=G-%I{}2)F=CT9;T1U&QRybO_10 z)>MT<*Zlo^ftCH?qV3YGnxlcweur|wl9c|TWwVJX z}PP#1VAph!GK-!{PUgs_{u3wu>}Ue4j!OSkTx0DvCaE~nnbHAKt3RPuuhn~2G5B=Q8i&J6))B8MPtTCzY4jLfYuYunWLye3h>}@)IZ3M4g*xt z&F;B5%#xB;n1u?QTd$f`RXZVn!Tw$P)#*iOPvZS^f!1 zpggDc9%`1#t{E{qz|IPczgdmhl9{@(Ll|+tN8m@quKR|V>_Y`RR{QwHmJqc1V5Ds2 zYmV=huUU#Q94T{d-$|b<>Dqf?N`qE957do5#wruY<~iple%8jndldpY-;`EKYTq%F zPYFNsM^m&>;@;TMe~xI>XiyiuEDgyRWaH>F~OUmxz-+DywMi*nEwp!z?g;Ib*|f?bZBFn#o< zIj0?JprK|m0w9bgPy9`rZ}Vy2P14ErD+veI??Z0P?bz>VG_acD;fH6R>c>b(cS=U4 zWd453np@)sWPm*J{iJ%K7z^Qr|9Ep@0H!&W$d?H&B|{9Nq8*BYij)Trp_@S%sP+n} zGi=EKwCz;4+@1#;CHZQ&xA_Z2%dI|!BYt^;$PC+krtd8LwgVqWQ+vc8my2&~*y=)G z7^8dN_cVWS$H%+C2Zje{s4(fr%Erl;3YH&s+L2cY*A#{WqBWjcys}1w)7b0uU}N>q zRVp(;-UcArjcD+fHz`DrhJDi ztn>qw=G^*cV^*4)u*4oATSzFdI3^p3l>qj~68lgZY~Zg#1EqQ<(6KXf1jc$3QXV6v1$_9l)E!aLI8d;L z6z1-{aWyYT*$ED7%VvauuE^^r_aR;uQnDM+A`Nlxv$aQ2Tjsvs;E!MvFa&a9r8F}J2Bl2E(``pJPOswTl!7(+#y^Ik=}{dIXfr$^G>1_icATPI2n1`zc1 zO>xS`e^q)rjjyu0wZIFSsU$*J6=?W?N@Ditnk}h?k~SK2SJyxegNOW(SZ5Hru)c!@9cF!7&Up?9@A5RChZ+D=EvQdhj{*3CM%lVS zs(foe+e!C;Vu&16N$XB#5SVwKzdxm{YOK?A5xI-`uKRUdLl0(#QWRJ@0!;pjAUk9; zj0)5kR$?x4JRqTJ=}iv)>)mElwD#p{jNC#4J@x1HC7sYEt3~pW*0#T1VlriEoFi!*;J-}|ZJ;G~-|Z<0welI6-o$ZKzA)|81Y@Lnb6V%p|OQVVhYHXdZP(l!ewkou^oi;>iJZ3GNvIwO-Qx=?wbwFizD zfZ`M5CyQd1=(@AwpDV(%`#fe^7r`WJXBEaSKaf#&W%T@F%7Pe^cOW$|IHe-7hu{{& z>8KQzNhU)lu}SG7SY%SJMu8JyU=v6Y&Zgq^BPP%xQLB#*0Qzf*D#Rz#3<#~ZAM||u zLW8)co|TtMB7729WtDGDq}~fQKdJ?~J;Z}0LGEi2EhcalMy7(!i2J0pg%E6ZD#7r3 zX+he-5wrp>0lICeIUPpJU(aWFzWvzACW^&Y)z=$09W_u;go0W392fG#dAJWd?5s#M zDMB~~2AD{eyaTEhwQ;+q6?}l%JUFQOLB(Ihkf%P!DNO1)Epwyp3;h}}0AXuVXZl({ zg!^e)s{y)&Gi=DkcldJE@uHy*_0y?+3M+I@O3Nfd9$?_ry*(P>HN;u5Z!{4A!fDc* zF~XHTa7(vnxZ2lvZthbap~>=l`doeGLv1mQySWxW+#3HG!Kr<*pGe-}_hQ*>w*VaE z86w)K>yTpNg+p4UDxfIRqoM{=#8=^)wTcqnKy_YZpO z$FLV2))T8u4U4~R8Bj@k67;d7IyA_0wFfM^^&kxhjv?_&Z15}~K?5HIun`CQAx%mr zt-t*{8n$^7;Q&qt1WipNs6oQI0%X7vEXgPKaD37$n@6wN5I=eCeGqICXQdTlwbkUx z2E5mIfLR_+y7f{CYQ)F1br&2x==rNsJq9o88b=z>h?jf{Qvp@bYo>*QH@q(Nov-0R zMgo=i6bfKgIlv}iTpUI`B^vTlF3(!+-XY?rv&MTfWr^MU^fvdbrINz30A&qv>D(u1h}N_pgcwg zALGvP?6fB&A@H~^Uy=DmC5Gzm(L9btpR-jAbZs@BY9lqt5{o@_4ekMgkvUzruCnyxb>;Q0p_BKA zhTY1VlaUjPkTxoSKtu(Zo)j%(GJje@r`Et<4Io^C(2B=PlyyBRAR&H5)iRNR-lzyQ zGZ(SDG*ToXdEEM!i7GCcH?PosLWe=yM&C)*(bt2sj8@utXv~dRE*`&rBh-A_qR4?S zc@+O{=;$?+X;o<|_{eFqL%o(aAD)b8Zq3RPC3&U^^&`-ztn8{VTN@m}I)tl%si-0x zz25ZR7VsW&-TUBiV-wR96WGu+2J3$m$8Rezo1hwPRo)8ZKN!kWz(=Tdv^!K1XMQT- z~WjlPcoe3m!ufvnDy$s|e+F%i6JuwN3)0Hh|^>x>o@5{!%8gj8fpM{XJ_^ z8t?qa53)5rkq1!cM^NpCIat}uqpC$PpIO-*y|zBzn)}}2CG5pf^Ow(gF_B{Xmr67c z6;#{a+uC4c@u-K{kQMEFmA*Tsl1gj_V)?@4CeSd}d^Cj@89C`^b0x{j573G+^~dqvH{qF?4z)L%R4oY44U`7u^)$nIoV> z1SCBsejYXr4?J`luA71`^vhdtwjSS(ND98c4RWIVq9Rb}vnxkpO|P2$(gDtRFw)J$ zn*0gWNfx~Eg4fL}X*FETK zq1#&*YMI%#RmEQkl9^R?VzYLB;z}UImAu^=+bTmEB`1o_e!C^6<~Jfg-@0pxercvp z1fm{RDa~J!*+&zl9M!Ea^HkX#$X<97F0o+o)R~I=3(Qh1G&IsCLfH#d6O{P5osaUx zl;yw}dJN}b=?5DNu0NuskuGHnDXfd8e;e3?D_sm0*6|cFxr--1+1V+yoxAKYG3x3# zHwws3_x~C1FHE^hvwH27XXb&ih=~PBKRd#xsnT+8IbG?IL$g=1ryhR07}h*CFbMlH zmMi6qv(qT1;hC&#ZDq>)NBGTB?TA*nZ3e0Qk}6LJ6zWX=ci74b4DeaNepLCkOu7h; z)hEGi(WE1{dI7DOl&#bN@Tr8dRE*?2KDaW_g{drKlr3#N8omk?LByYYp(HXm<>aX% z7!Pkm8Bm_a0SGb%qK_X82_3oj zYL+wYIR5H%(WZm-_$mhgZJ<OI>y6H*RJf$Hz0cKy|eL#VPgti3LifN5N} zLTFum^kBmsC7sI`G+?B@*ct6|L(B4W)lk5_U1+Lqcih@yrZS}@Vc>>L9>M@UF=+Yr z)gsJ+=;)Z6!E%LWMtF&Q3tsp}C#}%JjY9MjgF;flS!yqz+vTj5|7Q1^WhU~AY5j~N zokg3?!tte#pg*jFeU;o$s!+de%*|8d`u=i?IpgEvSedKCO^()?9ZD2(M4-|<7~A0m zM;-=@*zGUgDrL%6>YD;|pWVKlUxK#_=m%L1 z2L3gP3`Pu)@tmjvfx8_nu(*I(xF#{y=UPNyM_X7G08~&23623^FuSFgyc{@%$Yd)` zdYXACdSus;nhn4sOlh6Nv(S4xoV&j4!h0WOEo*9C`wUgRAQwCc=vZ0@ZzTWnJnYb( zeL7qBXpDHlU=GMdm&VQU4)ysG3T7DN8;f>~LIFB|dU>hRH0VNs6^>wT1c0FVp{!5$ zER~}_QB7dQN)KV&x%fIOoq#=a98TK-Sw6j0X%Yc#;7RMY=`cP}97-73O!D>bFl9wc z33uTp_C#Cw^o(rUvh=9#WZ)s1u!=P;6aq%<5Xwvm?+1LPrYmLQ3BHHfW z5p-qmyZ$=#nsax1g(Dpmy33|4AZ&bLaSXarQf`2eKsgr^0Z&sN%saObNMM#}fL45( zu~Fy8FG?WGPSFVEPDs0T_jhLwU~YVSyQ4g8+>rhxuHpKT>!zOaD-(7{x(|Dw(0o;H zevoL=un|V0Y@YeHsj|x3`>obq*aod^D3JLah+U0DJ^SrbRfERd#+3;`S1kux8`+1W z4QEZsiJ~cqEkx+cwMvGpO3okcKWVxF^y+0S%zf)c1v^tKwTMhEva($8^Fievr#;Sc zY_aHv%g}V8npyVuKqcNLauk_X|gRFJyMQq%H5ZbYRpeI)>uNRtZs>nJpc5V^C? z#-*#gH7drVNx)o-WsgsUzHtGVcn1k&BH4BDSLNF6QfB^-(LCw>v?oWbv56H@s36d8 zgb^A4*Wr8xsZ2KSr0=KicVSAoFqOoklgYSTA$`*&MXx1ekt~+{Toy}L;;)iEdKNUfHBpt60q@q21umH9M^@JU3@7)%rMJUd zn~07dSH?~G6o~sj7bK$|=Ve^7dIMWGJs>;>Y@*VIv#-sMn$T9kW{(J>A*dvJ=`52@ z|1+$mxJ37W##en5($;B54j5?T?^iRw9cR)~YKtb?I}+Dt+-R^7*Wh3~x=E>EyXe^& zrhAcvHQ2^UhK^i);1A7XV^ZrTD@q(HjwAq0HC0l@iT_p8jNHzGak(w;c z2FxH@-XNa~j>5t5{Tf-o*H8i~gQxjw%>WF){gga!KyH0~E4%i24|2y5PC4wlDMIen zi_>6_VgaJ8#y@w(Up(f6_7Jce^;tRzE;(dU(YomP>gTR4Y`P+J`}%Sk_rW=an{GVuoV@|+EzUU zfuR2PR8m=2@--EI5>xp8=f${HyyHiqOo;q8V&?kbp6TTW)=F)z(Kug;c8Pzu2=@7w z;;BN=QF17X9;L4lJEY~;WEn49hgdTiw!XYr>|?~Erg{Ond!%I4D53k%80dGpH$tBDhjz6jZr>fz~i^J zuNuti^dj68^*!|u{_*-?TdAK3fem}-zQj6r20_D;x0EQwcCjc6EeafvPOAZ=HVaEk zv1CBe5utd+?Ivg!2qewGch!B2yf^4>MmU}ug^E5?R(AP*0FSwtoZ2rG!Ms#Ejj!otwy?31GFHG>3E(;*ags>zJDdD+=QTZ00lK5XT<%!CmskI;M9?t( zX!+089j}j!6`GskS7H`El@4vbt-3b@rho?_5unJ1!nt2gu0O+Y)!tg-3| z6ReT_Wt{w3Y77{)J16xIceBVjc-Blwe{F3YNY(rv%I-o8gaV=KD5Ev2{zT8o&kqlX znc}s^oTUmaqlL2P6l5<5SW6k@zL6XJ9~_;1Jk$IC#($^8+-2@ci<*0dlBPsrsN8Mj zK5Mk7%py8&YQi@*q~tbf?!_=>bc_y%9g}cQoujRpGY2W1uURuWZi=@3-oF19k4M?Z z`}2BVuj_hVuc8mU$cWgG4mD=)IaoV+*fbG}_fInq{uh##6S}ea-9f&|XjSRF5GHNA zaBO0se6x2lJ9^IxXUx);qz`G=TXgy^EP4QFlZ(-+ldY zE~#-%9NHq@&Y}1vgnG zaj$R}CJEx*)UXxcIWfUg6byx3Dz!&W$VLAYRH9|GUr}BC17aY{Oi~YP2}KWNTVIY; zmxzt-9H}}YPD<1Q0M}q{gr~f#-`dKYkSZj(eFQBPk4`w^0c5cyHdW@A_v6i*8*8y? zd3kx@`idBj=RyuVx#K*abyIn%y|r8G(P2LR1dyb+Rhq`dJrkAItvbVo!w7yC&psL$ zb7IcFAjFbUd45&?u>pZ|Bt4(Ub>KV#3BgLUj&V?s_dh8!-&LK?+oDp`3=hU4*h3J+ zJ|A_SqIMQY8eSaKB&pRx_kiT!9Us$u=+VE56@6a0WTUlAyN^|6!Qd=l;h+($pPhn^ z6y6WpLOGUkDm4}1If{CISzR!7`{dja0QKu`N3BSXEDUt`Vx3Gp?)KIDBEw#IGMPW` zco2Oo{n8=83LvwSG(x1)XRivLlu_uzyVg=0lRDS6g7VfHX#(n5uy%kQ=v;S>dm_&o z56kv;6Jby6O_5xhNHObDaf1f(3 zv+w;SI4*UDnbbpbr+-b6e3fk`*L*s~wXDxf(TLS?{HB0T4(bDS?Myz? zY(4aC=XTxalG7O`=Ixo)R1c@vhP8|Kp5Z)Gpk%JD%^g|J>S$?8(Z7>IkI?DEU{;c; zH~ZXAuWL-M)3F>o8E$Oy>)GfO|wmwijz~!h%f4>#@B{T0TnP9ZCZ|vx;V=q z2X!TZdSLqvF2=fHw}a$dU(l8N3|yt!E1jG-hLlMlfV)~kfz<ZSNiC#NH!}mP<{nDW-qdo3wc}l1^u%d>r zXGZg$MfUz`;LtIsoolD5YQ58P{}1&_^{#QkIt4H3{T+4LFc@j)y9zw6_ch#eHW~0c z*T~N^O*EG;ku(vKp57Puu_5Z*NfFEHw}*e}>@)Lhk_Z+jFCs|OfGRIR)dFPy1BXiQ zGevZ*9cM{;SevRQ(l;aJ-Sc0(N5+X7Io|TGH{rM8IK&zgb)ux$0}W?F&PW#pAt3{c z63M|eU(l8zE_vO@K}o|8ohj>P5i;oed(~sgPy&G9V|fm=53pF9e3=-er!B*9Q4jZ) zdRdsyIVC!`W+k5{J=LfHCPJwk)WrPk*k(veV@CWUm}14ahDcHu2dZY5r}2~4)`_Jd z0Cm(l{4@tsNZyDCMK=TDpp1OP2gZ6aJoCh3Y1((^RmMbghJ2~41cf8xPCZNOuBNes z3~8A-`mURNRhT+Q0(5T6dZ@a&C{5n}=dPtK8Mqi-rw(of&FIvK{~r;W%rtwXwQF`VKC}gyN1Idh`U5w1%GG-#Sf; z`_7RjE`eAl^Gf+L*MHZpVb0Qe4Y96=5mzGdcq9dg>CzBgB%S)~;+ZXp`>&hn>suJ* z!^4KJM)rr|?36)VbXM*zp7P>M=y`D>$4?3Y+rG|z`>^2qA~Jwq88)(KWIvi7^UeYU zLTewU(m&gj5^n@}0czita=ojjW?i&>>m;>HpdR1@XKS|`*(tNQzDyJZ2a)M)Z|6bS z=j0H|FaPn?|I2bkkRs}@552>f}i;mX$>Qnp1RK4gZlxw5bP>v zMr=~6zB%4PJTR;)RyaIVt#Djt+$D?HBsF;)((NNoLY_R(LYocepr16)kVW))6|)aW zl!DY0N)IXnAYx=FH(RzdDY4mBt|2@ne`vZ zOAM&s5~oj;aXqzr6!ve%Wvv$9sqM!p4S5|3ZEouu8&c-c7uyGDZY9B)?kS6HabmkB zDy=3>D3l;I=Vz)krcZ#9Ds@~2oi^mMCC00M$V?H%2H7d4#{O-2w$F9>YJkBH-W8uU~7MheBiSgl+U|U_vWUw&IpM5(S=JjN_+S8E}Xl# zJ3cF=`IORMz2aE!V@ACw=D0&_TKh9r$e)K1#3qz@Wt0%Ifh6=MC01E8{$&~P)Y_C{c-(Q+xHq=+_fzo*V(VG?Ap^>zwpfXWdg`xsUY(pdT>eBYWs&Ue01J_ zU32Xp^v|N~+V=332pQBWTD!EZ>#~}hG@%^CAbn3B;S}4Tb)II5+u+mS8yayFv(GnI43p&Ytqr_c zsRf!M?N9oGVQGBmygqp5AZSd2c}|9Y{-x0^unaJ@i^TITDH)87O}TssN;|Pv(mI3L zn2J2EuqEfS`XoRTRx@MvH>$^)1_k+oKO_8iq`kXWL{5p(Z9Cu&8@&JvNlD50t4cCZ zTK?rOR=y58v3h|5QZO4g!;;>G&-AV_W3GI!0zISMk3WXP!f1PFv}X)aFR9skmN1T5 zpD?hDne_UlXZ&hpO3&=o-sL_i4G7g8Z0eBmSw*n5I$U=2fk;+-KMi!cA<`z!GveqL z?I)_Jlv;{LX?O{$VYVraw@4>t?x_o<9%@6pv!>FXI^om)dAJxd4aUlDXqbB5NBkrj zoYN@)V*4C9-|t3%u3j=Fop!Gl$ddNqvMN+=m_5c3Uxes>Xn@{<^ zdB5NOb7|SN3>-oB#ZTXTfW`HI>BheC)jjBK^fIN%x)JTBV^e`jZAXD1o|nOyiNZwf z`8QSwU={T!=_YvOf1aReb2C&KX4k591M-4xGLQ{Ncr;07vs^ zt$ySKQ_0^jK)SeSkhsrUgNAow@szCQp1+1$IOK%8>YSm+vEEwT`px7K)df&(;f1&} zFR((Z$NdyN+bjuN!>YH|JpimwBIwDJfm~nL4|2X$p`m@VO*u*_rb0$KRae}gb9m7s zyqkqO0}9Ee@wZlP@KJ2L|BW(d>88c(_6G8JaZ^dKv2!RdnwF-w7MowjUj&y0m(5~ zHY+LUKraZjfy+*Z7`!o(W0h9I2H}358QfarA|DmI{kxA@<=ORpHec!*j~~zFFr^~d zY?HbzB@;jLv)VllqZtLlcDSK=+>6BCFPd4bK0?}mZ@NVtpM`HWH8H+5mjC2=+PXES z^tlE>N=w#-ew~0lKH46)rAkNu<1b_igS2w!c$|vz8)qx&r(#f{z&Z_xI^{lw;#h-IewtxzSErrCzyNi}eU5jxE8A$l zLlMvgEI^|mVu>5%o&$8j{F6c>-?A$eM;@M4D+lcgz`Z2FN96z}zIZ$qjva&6uf{fHHR$1Ij&M{57{^rk%N#gyuk8+)=_shhWPNBK#Q z^g~?@{&toxwNBDQX}(0+zh_>|n?lgOhTdzE@cC!$v|fQAHY5E-NKmUJ8Ja%JH%)7A zKC{&)&OilZ?OKj=-{09z>zB`tyVr3)0x?K18^c!jsLOoB^LlT~BJT_!ykvt>{|YoxEl6p5nX0H` z^0YB&o%*ybWmepXceiCP_*5PrcH2DV<%`HfX1x?k6<>` zrrc2T0R0TtFYC~M;M*G&kbp+-Q2Q0$<(?j@VykF-FG?AVK~M9}8@p}`yHI?S&N!F3 z`l*}nxI57<5ioVo7_S%Zd!NE>E@$;8a=|_nv8K}Ogz(ZYJ!OwS*&m+;^yoMDHG2tk zGfqaUfVNbuO6GDU@2vVfDx(;t$(006#!UAaJ7iZ^3q8u7KiXlwE;W5Y-lyuuqtp1J z(lf2UJjhHU;8LZhVt-KD8^rAbz0!SpF)a6=;0aN-(B;eJQMTZ4!i&VCBTUbLqG!8L z3iw*1s&KJuv`vjHS6rK=&Svz9l6>I_CoOCfi1OrWZLwq5p~NLO#{h4c^I9!enJ?d9 z6tDM85ePxbqYECltt#ec&DD}bn@GDmjV--Zrit|AEL9b4z|tP_WVXuL=k~@_+GT59 z0S!8>M_}V@p-?3C`BUtd4X$DVK}d3tMi{!gogr=n5PN(o))CDQtaQ%e&(4f=`owUR zYr%e?*(RT0&AYq;&mev`?-*z$;=tw{v$VvLas|M3ra8qnGG=^D+DNZvtE(b2Ve;N?v9Cz7QXBKQ+PM8!#vt;?~bgz zNc8|*1N26EIi6Z~;!r5a=%~B^)zgruMFnGE0P}ot)++a{Uj zj%u1wGQugbGoVAV)TV>SW3KhRC`5cm*fS=fdLAEaXV?l(87%kYD$M9<@3oKi#2iq zJC^V{Ot3g_8n(8+NSDZJuu6o@;5yO-`vK*Y%Atdj4Vf&u>%kvq1MFc#|nR#$F{Ehn2;4Aj5!ivI?Wl}+p^q9Mg58_{7!ZG*ZQ1GcC=RR zvts10xh}u`MUM-x)480R2PpjnctWh&n;(AsXfjlzQpE_l<@SPwg|E)-0=hJi0B`#u zg-s?7^Q*Oh>H(bZvq!ApbD9H>lUSeoz*;?}Bqs;xLm1 zAd~MK6gU)Z_7a3wQn`tD;wfn)pj?z+eZ-pb>?&JHtVyP3FJ`IIyni+XFm}K$dl_D3 zEwo;)*lHJC(zU5Wpe?FEXRj)izk(ID7~ICNKL?HI^6kPho5Aci+uFchj2~F%C<}b-V$BZQP2taX4j)6s+FhZ{A;f`jwh{{PL$(pxhv`Gtq?o(eU15NwF2IF#0o#)%>`8>1>1XKhQD1| z^TS7@-*!YDd%P2p7mpWYSfw>;z1wp>*bfQGu5=9YfsYe#$){pqFQ4uJkwTOmrfYsg z9$|bD9}Inexx|Faa|A>dl#-bkE-=3-wJ(b?Iz;IL7R{uKhJW|nTFTV$^@M9;*!Ubv+=&lTiHc}nU)1{$=gJLI(0kkvIuMt?-n5wke(BpvVef4`g+ zD2?Qz9$DDMrn8&WA&)$#`|+JjVC?B?16(l5bsq~i1(+^Q2^G=-+B1xd*IU7Fq7M{j z>se3kSsn*_-4o4V5CU1!{Q7cR+uhrR+fN^sLtk5Y;XFs35#xlFa*hJGuM39%{pRSn z|7AZH@#5aUOFnhc23?8K&OCscOF`O5h2JX=9jhNYYI9H6-%A7TJzy^Yj$qy?^XSr3 z7V%m6w|N=w4x7ek^Vl<@j)vO9v&5v;_KMAhc0EjrAU55xG5h(E$hO=6&{UC5y$YHfgM$2WpLO|c3r1IZi&Z%h9@VmPd~74M*TfN6C#U8VYc!A> zX7dMZrV}2SB_rd zZf?$8|7;M1J8i0)eJG6#?lLx{a}N%DmF>+@nysB|niYU+lgn>-!ACiERtCeJJ`C(x zu+;%dz5S469lV0n4B_ca?=76t)$0t!fQy!#2v=#EF@wFo2;3`VMEc2W47=p zX!_Hubwxd+@4_OZpF*zbj9(uFAX6mRsbrzPCioX}1Lc8Ygb&fgX|`-J_xWQ*4U#>G zr^3h6t10S=Stu=ohG|9EirsX`&a*mG&Y`r-VQ8DoW+M*65c;Iz5UaBxkex_1B46ec0K~l zf;S&^KZ!^_pYNOKlP=oLnoj`y)aB}mU`jH%*>}mo=l-#$nM7ZS^sbpukir0fT)mLR zK?G}{ZdNWHQnn25r!$B`LSILHeVr*Q@d-hCS3f)EV{3$zi-(<9|Dt)&dxVCi^6NCF z?7JHC0r{gzf@#JF#bT2@9>zIr7K7JQaKez+#JktvXVXzOd@LxSZajr=V(DJBHv&|! z`fkdZvDS}lhT~ujCATw>xMZ@T!2M&t5`k#A)D{?+hFD^gX$!e$iW%WTv56!vRG_X1 zLZ{^Hdt_yWhw`a_^GefU0xvykISGcPf_yRz5KF7^7mU1wu6GkUXKJMh*`(RkXl$j2l$aqi?=oQ(fme=2p`Em>Yrq#4b(&GGb#=(!~3QIU~0g#|{b! z=pw3~8)Q{0HEZ)$-8Ef4+L)Dy`8#saJAu-rz(w> zEX^o;Yh3uRQT`mYcXVzHv$1>!cD7XiY@`e6qlxCV+mSgM1CK32RK|SU8Cs)zqHH00 zXc(Sl^hkWjaxMtpKk~iMU%~zFhCegm(RMPKcE@66Osm{e1kn2co{BrM7wzWU@xojB z%UeMOKJ8{pO3A?^AGsnFyv4X}Mlfy7V|0NiQzc>x#0Ap+Vu{l{mN8z!yvdJ1yq@yh zplS!o7pw86F%87RugxGayh|t)WcYyk@Gg3Q*mW;njNtoNT$oK-^|>8Jyz9^(r$?g= zfyn@(=f-PGKHSlh4$)5t=P!X>x2As26G!fN zKDtlf4~V~f09?tVlTo4clj?S8yWoB*r4<7l?`rVzb!}zRJ{LRuAj#<1K3D=Au3TuS zJiI|V>4J$Z%z?4>_aEetoOOdTgjHCwr~8dLLS*Vn5iwCb!miWXPQyc$l<51 z{Q)o__@+MDMf4=Czbwh4#P%}W1(1A#xxVS$VRqNw`Wfc7>YSZu$jHZNNRF;`UaZ%1GztLW*|WZr6y``h5E*8@YxwL*56j?0~{ToO4nl$&Qu> zu0(D{V4cChB$w4z>j5T|VABX6nte@~7=o4FT&}?;F_{AgA$DyDncY^0&^pz-UwULO z7x)@^ij+r(hpidY84D3vn;&^6Wx_B@aCcpurhH_*<;GE#2F?GyB?c4VEb`4xNG zd&Z&+Xn0M*XGCVg-=OR>2n_@W(z&`=AHmsw|BN;5Z8)MAY-q;Dllb79Q1-ap4`@eO z#N-m)8^pS;P<%78NC_M`=gyTIsu{-fT=(kmY^oNv)9-d55VrWzI&78}za2|W2j~ZO z?I0w#fLaNTKE2~E@asS9$~0b~*yKk6+oHm8B8PiNNKut0i@~=6O#dr;r@{OduI_Y0Chnp83aJ9yBWTXzG!gMnR9YLHUkUM z94L*hKehlWt;3cW^sNb9t%q=-(iDSk{m~TZoVtmok8`tM%(RG=Sb}e=TkhJ2iu~%k zN7k8J`rY>pcs5fFi}K=Z{?|Lvp0H6J{AoOu-_kd$*Ric!WLJ4$C&Iw=ovxh zYR6+UMzgw)dUbgn==$LNR_#-v{UTclXswJ<@ptV$Ylo&L`2@d~+i&MPEg;f6KCpZV z8Tpkh);DRlAV@4}J)NlAkU{atL zz((+R+zbK5_q<8-qt8}0Jpfa{RTVo0@Js~AUa)C9!3$E)%k$$#@PcbHSZkPU-A5nl zOMt!woO&*UihG00Mqu*kP+Aixqyp!bs}Uk}74>oSF(YF+YZ9Z$)FAS(OPAC z$OXhc%CjK8fZHbr$5u83Paqs|kPiUy$;|_6vZr_PA~_}pzmLjBTBpB@6=E;&V!8Mv zfu|E36wLPa#;L*nfQFNpDPct>rg;bYUEQW~TaP;C1IGX#{@m+m^XhU*P!*tAan)Q?7 zpLZLr&dN8DN;hAD7J-;d4~K@2Xve$>e&nm@gL9iB8!5N_ft@L;ZamTJkcil=>)#R7 zc~NU%U|=P3R`z0ba&@jL+9`3qqP@cS)x8WEOg<{+vo~ps<%+Q3u(!w7d(ztQauK0F zaZ?~l+o0dD49nvi?c@hV1hE3nTHRcdGo@xA^b5nCbq%}ZFd*6Lh)t|h^72U)hsd_c z&a;}DoQD2cY2pO)%>0<{pZXE-Q z&h&wnC!cn{Wi4>L{kp5jH>_ZuuZGVi1ws>hGHxzcHTx!(sGMi|JAF<-=GB5FNHYSq zR8lGHVN6?kGC$(lq63sg>)>Ko^exaKt>xL;#3TV1$;=O+Qj!6iGx|KH_EFnJY%6_A z?Wmfm&ah1@c^p9E4ebmy>-P+)-t5|N1r~CkU zXqZ4Fi(M)ZQD0=67J6wfoH8F!NH*jz zvC7V@s6bOE_0AsGPlG>)Y@@b67m0 zk1f3}D*B~;qfjfgQf^-HtSU`u8EF1lYCWpZtxDhUVq$7cdk3F0#xB_jS`z9nxYrv~ zu!Sia%Hc(C1v5en9(QCyRPPdX_oC$u90}?eq0j=?e?_9Kvl2`ZChR3EYvCh&E2CturQtS8Fz=OV8 zSKMu!#eg$jIs#;H$To2^gihi@Yr%#0h}fj4Xs+Gc?nGZ6?MGmpoF;HI9Pu z`p%7(ApRxh*uJ-g^>9~`#!Jf;o~3*4qeC9<$3PSxd>oWW@`11y*Dq=AC4o|Eu!`fC z)wPt8bPluV!j+reUM?RvYzv+DM*>x@8Gz{VfpRpc4L`C_jZ@@tx-N2x_8Z+RC7sJx z%AjRX>ogy+P1VhKAcfT3;4xuZdCpA-dbu3A+S=5FJ7qX!e#aiXI1khiH;KUqwL^J0^u z=CDMstpWPiNx@uD=d45`lFMDcHhjJ93qXVP?6(>(wdZe-pP4&~z4>jA!Nx3sKv)y$ z`keLu+iv#-pZc$cXYfa=<~R z#reZg91jv@s=6Zw9_2vvfp@iu-oIXROj1JQPn%P}A4BHdMZB}jNQtTL{ct|bd|Cmf zR7;HK&`$0Jhl6{)`n-HaElxcRQ z(2$}~)Ykp#`95t!)J}?uw#!zImcT0NAMG3>9so%uTwZsRY?@)}2w^~93DG#^AT~~G z%t?!A4tkZ5A~4fmF49}oPF$T$;{}~EzjcR<+@MZO$XZQzqoJL_$W?=GUt()&YKB`UP^v+Qg;14v_P+hCfHC{kF@ro&?k2Ib)qY{P(V$ z;PeWUDeA7oq3#zs=D5v<>pjy9%E>>x*VeJraPqKrvJ*RngtNG!+4^D=1cW~`IbY4~!D zU6m-Y;m+<8mRCC1wK&(W8Qe9OC4&v%<@UhJ1G#~E7jtS~rb$Rcv^F#C0z7yLIfmxu zha+`$L9^;+vL4EA{2CgX%aP#7k)au~B`&fg#v+_kK*g~7C%40ceB-hVh!%=tVgON^TW8$J-_~YdX2iWvn0i0)S#>bwHOn zGqjlu_5i>5%VQk__XBb@1#t5K5N8ND<8p0WPi#}FPW|fR;T?@OQSpJ?bqWZt3!u%K zjdwgxers`4r6>3~KlFT@`>z4W^;GBH8)e0ooG%lm&7E4i01ZtMil1{_ z-fS4nSGn5kXr^}GeGX~Y#piM-(<{4V_P+s5@HI$MG^5mEsmdXBI-@fefj0e2grg{@kp90#_H0kWYBdeKlz2rF#bmfm`+XUrT zJ_^X`#SI$x*!mz2C^p_qbQ{|mr`Gxpei7g)DCz+@B!B`DYbC3OV4Y4D2tE$2=_;F# zr=+)xX_P#Cyl@gJ?67 z^BB8Ve7N4Ng93=fRMC1riJsS(CCD7EQNSvJy{Bt3ZI7CXHpH#KJQ}WR0Emu9jm7VbF6_=S^9=eTMv@@Q?TQ^kbwomYEY5?yyQ*%Vk z^xy$r8t#A2O2;d$^d_2OBbCgF(e423WA}4&BrtJ3x(qElYyDo_r8*tG& zI$s1i@hm8C$s>L_jNfk!?)y1oGg-`Wf@g;e4GK8+llj6tt2?UU2GN#`I?>>~_BRWK z4Mu@*ckVrLD%St2mrcVZ?aQ<6RkLNBW^Z=a9?mz*jEF|Kdzda1#hPgu(2fqJF|^{m zbsxSvyF&~2XD$FY-WHz_s3bazH(GYu#)U>_elj^d1h|%|+4FT-kv&@i3SlG-U{m~G zA5&5yO_2&_S66HJD955lW%DCf&h07bRc#ZVEUDtmezO=mgPk;dQX1~(@{RoM!RU9V zfG&F8ct(XT{>0J%ef=WY3I6ZN7#ex8MyEm)1Opu!_7XHd3?D;pR5t-y^#nU@&R=IO zP`y!=5YNfh`WP94U8j(o>jur#Qqn$N>DEOI+W*+L4+WkFaxRTRJHWF~Znin=0CqX2 z5@=1a*fLPQ;R9%AG57MM+#lWOX_>%z$@eHO&U(8)4vP`)&BC83eGcx;?$#YWh9wvH|v>YndRE# zh=IGrZ4#_@ZGpnKSMPr8E&yjN_b{v4L|5mI%vZO;SGB!YCcSMhAF6$qychiZ@7?G< zsr|I>iEZKNmBP%&mvh((F#KpDX{10uOydBEU{7Kvp1;!>tt0{e5?c)#Z3hI_CUwh; z_&1efSr$-uDq{dvvPJ8>--J&&?ajXDI-pe^@;Lg5aV~;Yt?GcXw3;K5k2Q%l#X+n6(9T zKRbpHphZmg*{2Fmus70OIk9(L%G+7HZszC z*7tDT#%43sZ7!MBDd9KnvYQlohyya2Pe#MJKPT6ujGG%`OI;1faT~eZ-$EkulKa>N zw)5zB50~E_|2X03ul=fq0hDMPTFdvalre-1?7chs$%D3qXV=6a`G^0)>h~lr*BMi@ z#G&vH$LJi|3=4NhO}TUxo#gh>W zAfso7OKTWD#_R$EuwG!@{6L*$fM=32Z3<^WXrO3Bx&emDx-t#5e`b2uMCQ>MVGQUI z!#UBLec+$B9hDr1e7oZ@KOczoi*|c%-&xmh$56%XbTx7y(ED#3Q|UfL1L?W=ahoiQ zTd^G-?)qX?l$s$C7e)XUa-3rR4fpe*U}3oJkFse-mOfSJGO+aGA>3SzsrN`QplZ3} zfQEapO!u6>f?+B3q5F>xzfpd_Y1@4L>afE;`+JbfJ$LU>3?CWpfDVo|GJ{#oB3fD_ z>6|^VkH|OLsuHztm`AMNAHJ|(RvC2bW|<{1!qM2eMO;_4M=ICEh-VHm3WSN z%W0ZEoWk_Q=DlF2opPKbiIqtEk*6&g2+E;9jr(G6*H#3nE|d~{{7J0mw=T@J3xHW#w0Q^l-vAWYX?b0=JK8lMwgmcA`*hfBXD52~&U<) zBcDO&zv@YJsN0LOdVj;0@9!z8pP3Vuo%MSbyz(yD<*C-A%uID~lXZUK$0pppr-?@y z*#761&pl|}4?-!!v)=7fHg-Ddrc(qiw+^(-{n zgJTHr*3Uyq3>GS#Fl(wmLLz>*AtfG>^l>rD3x!K93Iu=WsAz=4I z8pj0$&TOmY;5Mn063nOH4L-Zk&RXyLb`m(D?$oX>KDNC5oqTj|a~f~3Kf_me!EoqF zqL+pBG`2B##&vULB}60H^;Y`9mIG)WzWE}qq!;L4Nkmv@*dX`oo1N128v1nIXMYXT z1L!T)ze8X*FCG4F*B`N1v1x>E75E10M(BDn-JS1fkxs{g4DDNkzE4A+O+4GBf>pkn z(L?9K%UeP6Zw9PM-!9ovyh#PC<6fn0tjfLC5BelyIeG&J~+2} z>1mUV2wcNZpfK+W1zZ9^Z zb?YD~2eaq^NETn!K@*|<#DP8fm9fE(`*d252#pe&B1DC~w-VNx*4RVvI!70_a1z^k z!`kx?pS!t%1{s%vIHNC+^CLl6sRyH#khQ7q-{&P+g5E593s1I*=qEJ(ll_N1HpA*Y zhcB-q?m1$d0eF-bmE3g#e*O9MIWhuT>F0j#O1`|K81v`R@E0YC&(VBVqQ{-LG7HP5 zkhnbU<;D_!1%pLk_OMi`b(zX&y{Kb3?W)e7s0gD04gDO8_^kQgXRX1oWi}S^?bv%T z)qBBA)!~A_3dF8O|9z37euZAJg8uX=Q$0|d-Rz5;d2&3JbD+A-4;P@?X5K~!URsxZ zC8VkyDMt!HFfpi8G_}~9;_Z#>^y>EmTYh)KoWG*Xju-iey?X$ZspMG8RGH$`K4f#C zo@WDx)4%5C@^9$`eK(VbSL8_jQzUgb32SD8U!_)R zebgJ{Eg>D8KaLY`bb~qRkkFDbg>>_07PyLz~pUyNX{gUk3Dm_xDH=uxiA^=ciY`FgZWEmBrAEsBQp}B(>?I)w}&{ z^LxKi1HJ9AX~Larza-*z@}K8sp5xlu_gcO8gl01m|{%6!l9ic^^g$sJClyq z+gN`=!>nN7$u(Iya)@0E?zLlQwG04X8+LokJLZsM`e~AQ?kG#$w1FEW97nzYv5X1F zdj0c7j&x~5QgV0K>U{3l$hE5uQd5H>|qukq&b5Qj~ z(xTOC&BUdp<+iuWl)arkcN}TH;25nxaHGHy7re^cn7^>*AKCjQPOR7$)U>{K&{Nys z0u*VqFGO=ZX0EPi1yv1>B<3 z&T`iB>=%uZtzWWw-U+4S4~a_*ssDWE+I*ILezsw2qr3Qthhs2@HnsPbeR|IR@S_;U zgh|F)SN_38GQH8je`d~k8o+m_gnx~wj>m4Gd&rUDHWSaH^UtiYzPuZriGGJRxQi&q zg|G1dxwwt($WxmK5($5JE!IFaK5N+ab`&QNTt6Htd=X!&T=*OKh2}}cCdYj z_z5l>KZG8ocZ72DKIRdAfe93Sq5*h~23QdQ-&w40s3~NEr!-Ix1sl&@r>G-9h1U6> z2Hk+*0l)#@ssDL}hCY1?xTTG@(7at1x{5U`1k!lD2B_{{2Q?LNKjr_Of7f-=2F`i@)3cr-rbJ z{Mlgi?emfBOFL!@ruxb4rTfXTxi`+=ENVFayHVlTP6t5eUIvf-!7pTFwpW8pQk<5c z6&DDt1aqS_h@nI_FY?@YGm}_|Uv9R;p6rVf%}rFATql;)-^uW0$XdprZ%;R;fXEDAss!Z9l==&#`%_f8*K$!>P>v@R=uCHU4owgTB$F!TeXkBU(Lm&>0zvSR zO`rGGZ1ftNzgk_<#q}ER3pYf}fiVS-b3ozD){}$7L+v;o-uYCreq=9U` z+`aD4o2-NLRzt(=-ADOlSI%DV5$E{+SQ8_t{V@A8oU*#UxNx;_eetZI;@@LlmYB7q zwIojbJ?;d|2T{Hu5KIQHpEz-N@08c!Lry@liOiFOJ*^wyqNx4PEp?9jzlY5|KFiez zV-poyl9Nk1xYoYs+<3!-?2f>S@SYXE*ZJW8A(9;8`NrqM9z=6&a_>;!9urqD?ogzp zEvb*@|KK)U^hOnEz=Eb}Fjp~ozXyfphD8JK<~uX(tvHv_u971C>pOS3yxH-1M^Q_L z*oLx=QFoK)XuS!5W+$kptV#ov+X{gX0UMiP`TWf|im+Kxm|M4hHVSf`< z*vbEP&Byf?K!3{CY0rJHy&U_b-JMB{wUl&KnX^!zDhvI94@a~*UsWH^W+%|n`WqOs z8u^-dV|py;S{L~0hvr_(6HiorhV0&I-I53>Sa6k{U?(y$jj^e>MVIfXpSGKjCINh8 zPlO7{I+fa8Xr$dp?1*QQUJo%eSaSK55`_=VCG$h(x}>#%cEtOxB`vCB29ZXWuhRr< z^>^kYRN3>>XiYGxhs@V8Qc@%=fMmz5`9}A=3ya%YT4OF((M1fY8(8mJV%hv%;jX@o zO`Bg&bgNa$HfSOOA<@WKw@8~km(Jf@L8gB%U%<#C(%-!i1P{QtePaImG5_|>-Z?-B zOB0Idy>ZN>R>GUzhV5t8e{PyEU7};gW7`nr+oi70M`+aDU;E!xv_@=6LkR?(&I`;w z9!W6VO>;eZ$(vtZ#z7DX-){uW4WR+#f32YWcLh{lE2;gE zg8)Q1!7B{RSi3o{yc57hC16E6s+1dtX*R+7hi#hen2?K}g(&HXDgl6I_e3Mca~Euo zz^st_4W<0)bTUEv2Oo9-e;&X0cl?bpo59mQnFm$;26rmc@GsMAq_L-BP5%L(AXwT2 zqgO6at3de>Pm4&#CC)5Y>pG}satQ@k*T1VK&}(Z;b&cdeFDsLh^#P`mvW920Ji6@P;XRtR!L*~zkL8Y}UeZ*yQU-V2d~(!?$H;>3PctMB;<*ZdA_sfL#b&laqV zo1DY#P=sc5u5(;wXZ+2P-iLoOaX;poOzFpQ>OwgGGBi}J?&Z2|1xmX2=FrVK1XS>Y zRFhOUqXs(v4N|Tl6(ObU<&z&i2 zol}Gmn-+87Y2V?4N@2Cj6Whea+oyZnv-PNKzK99DS&-aEdWj6KyswuwVhAA!N85)o zR`uY(PcHgq_!<7+^OEydo843DG$3XGZOr{VF0b8Stscveu1JW)GS`zs7D?Y4)?%i^ zxR=nnf+n>iox>SvY|!M1QlvLhAt#)vl)6mCJpzFEduOv<91qPc=x!m|3_@~Wc9)X3 zsaO&=KsQadU%EOIjy7 zQ`k=B_Le4T8&k#Tq?SULA#J-Z!jW|mU#MSV6#t(rRwF9)?2xDGcsJ zlElDdUVic9*fhyNVZnR~u!{z^wm1d-h#nQ~dbjzHM+D;u$XMLMc6?4m@5e)lU9Mw9SBV%nWvxg#GMdo#p zNx?$7PKECBjUd0*gN{tTTr^4cYc=s4D>~}*@A(@VjgdO{RhQnTb_M1?rsa#j=)m^+yVeYiW7fsy!O)s zz?(d~qW%Ajy?Z><|NsC0ewXAlXN8=@h(5jk=KT%ZQqC2>;3usKHtmb^Sk_h{n2Hfdpw_e?)iM~ z@wgwaH=X?eb*bL?d{wXj@=h;43OfdiZ2W~`vv!GmT`RCx}+3L zm9tS_h8_#G%qN20XkM}*x0c%!NCm$xJevp2%B;=o?KL#0&ieN;waH_*bQ_<7_>CRX zu3(-dvVI}h^iuvZa%(qNfBj9vG56e+$mAK~2xAuKQe4z{-u8A6a zVt{XR^=j+1r(~qh-fdBZIWHHVhm<|tsmK2rU40Ee?&f#qOCTm#(|sWXHbJ3O>Tcl` zb^$+JkRgJ7{MZ_?5svqm1)$?Di4a2vT0-%f?uL0PQ;RkHL2F5BZ8{I8rF$wr%>*a# zi4n}=W#G3b%m=Nk0B;R(JaIj7w^%$O@6H&^{aila&F`CzJP`+RLOLA}PSkB}#pD=u z#MydDPcYMG0EuK?*^60b@7h?rzFfGKopq2D%NHAt>g+@(IlDv0L>X`I<;q&^7b3Lvt2lnYmINn|~3W zov0LoWP%Ft=43h)BDDvIBZl0GeL^&{4^sq0eq}Ul4YdAMl*p3rgTlmtlO~p2-*Oe@ zr?${?!dK!EAw0k=ogrgi71W|@APS2V%HcPeETA?taP*HTal;IDd+QMR^*85o+6#OQ zKFwPWgf!w)Fb>QR_hk*gsBB4J2;)w^~>&l41^byJcxt!{mE;|@!N>$7z4 zj&!g0w_d&6s|V-=&+ll&QiDHyczZr4cYO_9y^C%lXBo7+lAj>D@Z%Z+K^iA#QIz&Gb$pB$ZqQttxMi$E-Q>>Nkm8Zd?3A|2l3Cm z-`Xnnk68ia>+!+lnJ6c|pTr{=l5FQ!(YF#&DB#5?b#=GOQU=L+5Kt~z(52WCUX;b5 zj&2HtsxGX){FUxqM;ry|bij(OmVGihgqh)Hvi%u7RgXaFue8S55+Af6#z)m7lh&~F{GHFc{D#A3pKm<%Xnwnt;yy*Z zA25AYR9bPh?Z3XTub3w{2xIXPydV%Gh_@-M>aJ@cj9w0GD(qF`NvnafBhND2CP@18 zTwt1D$icQ9{vVfd69P6`W=$Y)gVNjeD~p;oJwj645oL%3ZX7-CXL{e!KRZ8u68nk#3v z)5=7N@SRcn&PW;Sb5ZkSTK$a`=_Q$;>Q~1!FU)(M*p|;^B3r|-?)g<=PR?{hwh+ge z`g&}S;AfU+gI5r_e5kff%^Uf)KYjrB=?PWA`1oxDy5VZih9sf*!J9qw)Y`DH)%;tB zhpwu8a^7h4OMIb>;>r>d3XJj0D{3JV{sXcc3Ns{OH#59wiM8p2W@LB?KxxK4Vu-*4 zp)A`fR<^kcq)G6biSf2Y?nZ|bBG(g!D515ay!}^!8>@5efn3jcCQV48FdYjDt6cY% zhKaub(0l@A|t~K=OoY<{T_1Qk|y4YfQZHUVg=EgMp>#s=iC1Dc5jF@(X z1&Q=&O)QBe+9{YeHPVa!_oKh~R~tP3Cx}taj%Fj*zlMC@ZhIuiytrLU8S-j$Z0ORx z0M)xYWRmyh*)|%YAqs6(zg;dME?9reZ0LO0Ry8X4v$=R6d=5ugzf$`W69M)4w)@X! z-f6&fjb`%SE_O3ZgMymHHvjyGGUQBh+=cYCGidDAtCZLTh`lY$z{X(f)#1Yi5bNMe zsb>tV{n6*nfIpCD;xK6Ul#2$DV2F)@{Q(;TheNgoQQ$3qblREZbOU=wTku98*bsQ; zLP|#3=`$A$z;UdPrGPiLULXSv><>BoHO3n0W#C}5b)Z17-5qQ{^q<$Z;I-r5uY3qZpGhU!`}Aq z3jm4we}-*+jjdq^4mvpekG;2c_|LtwK88t3Ka&QoeG>Q_#F^76ao|q+o=HBJ9uH3N z@9VJj(f_&sa-P@jRlDBYo@}DF)UEfwUlnQ&uU)xo*pg)X^(V(YcOD0Zg}&_aD`fP(?Jur> zuTw5NO+J!1=P-NIBJH1=*WE|7?)OnXo!xBcTQ;s5wZRT28!xQf4j6EHUiJI=87@QF zIh99Hd2%f|ZsQ-jk?f}?J8o>Zk^1;&-?^s;h^ZrvevwK6j%H_Z=2t?=Mj|AZ|8QK@3!`v z_k!CUlpYkXc}y$$PN-Zx&)NBD-2ZU(jh{}X-BBJsgfOixJG3XQ#!jpC(~j{T~@~oUtG(HoS&;;k@f#&)A44 zw5|LGYxkx2HX>`Y?B1(CAATU68!`0W$CVw24Xn(g+k746U0?lzL4BM95uuDsu{~%u`o%`rp zwX9>nn$^`K=PzVkFnxFF);rafJ(>+qujV)HOom8n3@0U%-}_N&O5gpSO!j_Vxb5Ro zyUpr9_Le_2{`|}J)&{r8-xP+mTr*-XQ(ar*zKj)67Nx3Z{cX%|ExvnYHKs+eX?FN7 zdKsW~EL%WNt7&q+(LxyOG&xEg_~Lco%=RnBw=D@T4S!He*+(LSP~ zR`f$fzQrR2a;M|u@98S%N4CizZigTiudFI&t5-8z>K00Jl854oO@FU9oqWdnl=l&hU54^v!k5g(SiRy`S4`@q~7EJMvtX(H1tT%r(aB(J~uA8-3##1 zwflbHWTkHKr|vb5|JaAe{wh;DcPW$K^P6!f?p4q8+J}RU^DcaL-x%vSxF0bp2>$iR zt;KF7{I%fy*GK=o_W#$y zXdRRh3rGlH4f$*7Gq6UXvH$f4SS$Z~x$*Gu3JyMozWARN2VxzDi32N+tsM+zVC{JZ zb1pvJ;NU^9?pwQK(l7X*N%Kg-rlursSr6bS9w|vFX+f#z)8NpEGntsvXO5?#FM;*> zKMR+wz0E<#t+%$8GhlRJ|F$oD46Od%IRl$~;qT7^7v(?0{xVk%{AH&6Uq|_$m(AdC z0wisFev{{ii?C<8|GQoG|Fv~>Jk-#!Fz*(j@86-mD%#m0A->87=e@=@Y=TwX$jpI> zbdjy^ScM%(?3XU~qYXM|ra`D)TIQOqn#}%(<#7qGr`6l$oqE+R`xBa6b|z3c`A@f- zO8X2Kzba9iH z+9g>#UTWkD08j1h-S;yTPn?s8MJi>}G!bnR8@q6H=&A_g)O+X7i6r-O!x~Q?K9w)y zn9!B@Qb}@}31A2uYVM*nP4ZZaYkD|`CYf_Tt`q~LBX(Y<(}IrkCUW@N3;`ei=|!~F462)C$F9V*7i%sWRO`G|2 zyAPwIxEL?R!~+$Ff=9k#Evm)E<;DQ-dxo$Hc=2;bTAtxq6v8&Y%BIFNQ0A=8cv;zm3GRyWCCqGXR=e=iOfzb- zGP<^f<7A@fYwOW-O;PB>pK)=AjHf`EI(74=0p4EQy_2rzw?t#$W z$Iz~mKdJ7GaC({DN|+J!QDp332ak10?wmE4PUtugHIwxg9LDdN zF%xS&Xl2TwB2(vbbcL6zYoEtvI@bi zIyQ1(FxQI|-`6~fFFWiJi43u+P2_(f5nZ~wz5l6GS}ebHi%#K@Hbrj^k7Ly`IcWht zJ~PJ6MusFWnyfTC#A`5v_Az%IwJ)Pdaewb}jDX`j*fjA|kd2)h@61l*}-1i>ya7mwV#LPP(3yw~onW>&eVw}O>ZSWI&auFuGEI3C< zG0nUeBdWRu6kZ4n#Q9N{7Y{_t-uD`11D26Juos}Iua=CRk#@_ZOQt3y^ybMxtRM%P z$XAOmUAz}0+jh?>EP6a z+qCiC%}AmC7M zO;t1@dn(7vBVyp~SJbJGJ=jP)T0#Do$(Gq`ilDmjUV2^rp30)!Q9?TTzM&~X>h>3N zzxA-M?kYQ)CMI4Th|^cp6^hnQlzb${-L1FmPa0pIuoj#&c)HyJ?X3m5_1MXBzuHe8 zFE6x`Sgee6O?dsyTWuLjIwxb4d~!RYY-%~(H3;i+qItx<)!_Ss<^=k~sTM%34*^B# z;)eT`L}Lx&l6qhysN5+C7K(_3#QfFVuo)<>y**#o{RKkZ93z|%uQXIg?Lylt(gY&h ztJn2kg4CzHdDfm!W*qLE$#bS-O&KdZGsXauonWSXezss(9%xl9jT}`;{a6HP)~nXg z_ceX!`Xxx$HF$klK}XlP*)Xq7t^x0BS{%@7?ZZ35Up)8K(ms0wf5LDoBzhv{ zi>Y#a-iE@8;l7K0CVE~w*ik`D6q8vP3{gI*g?*HeUXNKc^4B!;zgK47Fqk<7uiSQ9 zA&)lx+Eu%ts9SDV>@QxP-4j z=H-~RtUJW%kBOw3C`NT2m|8vR^3k+LC{VzC^`!2N!=zd}Tk;JpO%(|~^QkkD{5mgkUF-Wu7m1{g%S&+g zJyDax*-x$$;?iE_RiJ;BYJGA5Yt8r8W3@cNMBi_nyVBd+m+K`oSY~ma*!G*SW+Elg zUETM&ktk}dieZlHN&|BII_HRft$u_=!WTEFHD3RfnXk)Az~F%7Y{=@VklmvUAT~Lp z)@N<&-*M80&^yQg;c&UPF6x)-NXyF-L3=k%nN$LLJ?2SluV{>#_`Z9z5C}L;j{36{ z@mW(34bVH$A(5?n2fTv3X`zhi$Vgs>MBebk>&^m{b{m-)s}7{B)$3blVlw#gz@%8F zrF!jD*|lYsY$Rqt&Yw)!MQ0MJ>_Kh6n27fX#L=lp+4V%oF->C0R05moHF(%sacoXS zI$4$gMy79ewX z#U>5RBSCK-z$GeJV?NRHvK^X8EGeOoCqRL5M{(`#w4}2#XALbB&l-MsYI-9gDz)JD z!3TC$F*wk_XK=}euO>jc7==|D+&+|5ky;tDIpJa_6W{<*)tz0;++}8Eu!4_&lB4|j zVMuONj1iJgMKUuk#vhU^g-=q&$Mrj0yC1&}jXP*8W&Hf&?w_X74mcnhAc9u?g^SSOWK`0p{acT`s-C;KeKecBC=j=}X90X?%*?MB@|FoP_L;NXsRx-fFM6C{mxxRXf&%Jys5 zd;w+9j!79}kgwZ(AAhV?E&$?+H*&zZ<+?oL1$z_t&Dva zfy20!dVB{=)o5$ZhA2%m`|BpIIxY=bT)i?P zP%-g3 zS8m5-2^4i~?%DCOwey)hRRzVxJ%eo;c8wb!i|fDj;Da@z$V~8*9Q-AuuqHr7MOx1F z72M4|wJ=XT@3unaP;ae5>9eb-n`mI)fl`69PxBh%7AoT0#>&T@A)Sn!-GLDvfq z+y*6&dFg7P$2pk?7z!>h{TYIy$3I?SuYausOxx9f%Hk6aUv3A5AnlkvS1Y%hY3(4U z?{f;SGN=oOzcB->-cLmsE|rz3YL|kU(*^ayA_?gtoC*lyh^7|AZOgE?GHwIr(Uocxb(qeHOjMlBCy#y?^|nB|c~&aET^-*q-XQ%o>)e*kDRnHZK>LDyGhnEwQYie@p(TzdN^Z ze8ydVxTWBuKtdD=Wd~JrKn4zLfrYlW=+!%M_?0ckN-ZjNaolc!V2LX`^n4^KDV6R` zoynZBu57;UMNkz9KrBUw>=w0AJNQ#Jl?v8uFO}(ZWt^AxbtHFlSxj3S(%h11q|+76 z_d!Y(HNBFITe7&A%(f~b_$O#SJrZkVX+X!UL$FDg<8yf3Y_DD_@{Q|cH7h`Q3piN@ z8a*^@dg$}Jr#OE--SHfxVgz8W})wWDvx7CPpx6WVluHEx`Z~UH5q5 zBNdfhAk(VpYYK{ispA1EyYA0UFn~QHONG8nTUf%=cgB*U&_}e1&Pe9~6+Psy2z&X8 zM+W`A_W}`aW8B;jkk|o0)Kz~qiKMAI!F!u*0XP;89U`|kv$O5~NJ59@ZIF~5KKe^G zQA!(tO^{vL-k+>o)+6M{+$P=`mSTdI3m@;^&O9wl`_&Gi9G7kC+Q%uN-HH9l@UCN8 zd9X3&sNK;f`#Z%v02$>>85xeXXvUYM*|*OxKHMWe9(Z2j)0(g;cNbQy`D@PQ0-#>i z=^>HLdr=x<7m0)^K!wztCFPt9FO2HIeg;VQW5Skb9X`Ai+QUnrtBKz153~nUrhGO} zE;1zRITs_DL>I?kZ~fDmjATlnh`82z7yb0uJD`6X0B)8567(O5MeGSu_!GvE__o`>%i}R zY#w(|V?kdq)N|)&mRa=jQ)#ubDKyU7o*HjwKY{9K{sDu4iKcg7NCIR03MyhgD1xk< zIdU|LJ=mrUp04gnLL+{j@C@N0wO@Ott#YCKyoy4Nrs*!`Nkqi($t~B%O!=PSHyO>} zq|K?B?pkuYbGq+tx4GINlL~rhQTseOZMC>;N#mIE3#oWRQ1MeL2dY=Wy#=L)^H4@| zZ313uzAaeMwq2GSl@OlmHwiMn##jw(-ms8;L7cZP2Kkb{pZ27bE#6d*<&0e zs&haYxaU4MUYh>wgJ4k*7M7!>G)U(rx1&~DJxk)?nX7XlFJtq?4j^H(CzJX#$pPGoQRcN-gwn}=R_noc8w-e2EC~3FeRVwPUym=h<<=j3W{gbIRl!W9v+aTNBlImU}U6q^q+RJY|MHr$x93t z(>5R=8%??lhT`Reyw|;rhJ$(7B=A0e_2xk&sB)w>aq8opm+g!AmcR-FO z*$w70xIO2eKAIJ?;ZL0KpNvY!?*I5n)v7%sV>oN&?wfkgO7NK5UfWjwPWAO{V)Lb1 z?W`P0_fV4!{B~ZmJjDvyHuCwSLf59%oUmXVBd$ARrSiC)SaF-<*tf7Wq`tqFFtz17 z8SfgZ`mvDJo;wi=Dqcf9Gu5b)L=J(i^mc{|f*y{R2B7`XERAPHnig@JZ<27hor>4W zYBO{#*l?`>3CEn0)XKywP119sh&yrHcJBOo$Ac&?d>DduVxKNaGMW%K%gErx1^teNo@xt>Ppib1+bQe9drjbPobhyHv;i&d}_)uZ> zO_>e>eeb~VR~l*c`!+W7=;2}WZz?KIjm#KKP~k5A9IN%&aY4JzVW{GeP{{ak!&TZ} zs8doa{uSY8l1M7XZ4?QSMuKik$REXpUDN$w{b9E)^;RZ;g6-cr8rW=zlSk|wde})= zmyGj^-?}#8+e=HrN&J4>BB|e;0OKIZw4tYV*elk^$mB2`)L!kvUz`VzmWS**#__s8 zUbX{h@HJNXxb-(FpDqUC3KcftGWE1J{N4bC^i9+xJ#L{vK{d`FAqV;~Qh}T#=;79M zdvVqCtpCBMd6h6d`~Y0Fuz2*9ZhK5O0ocPpqxNL)J73ELjmCRsShYe8)qgP){g&#} zwYD3*8(cUlYbLggGBx?oQTQdN&ovO2o~(S6@0`nOTcr#L#Az z+f(lv2Hg}{K_K={$QE5G5My>|_E@6ry-8yKII-fljy-#$Xf3AQD`T)fN_t+J8zV~- zyE6G*u~jL)ubm`0-Mv+AEc8zK^(4l>wwAc_HSkT#*Egi|$PG z=L!Xzk&$73)a4jr_c6W4qh*~q6D5?|K=c5ODOs%h*+qA+JOzd&O4dK(xH1mPqT`}4 zUM|m+?`SOb&UOHEWxfE3#il$u83eKLO0M&H_ds^RNE2z(2T0+iH_Pn8kt`Jz)p}_S z0K~Pa0sUse&1Z2~gwA%{yExUG0DaaTj?71~_XA56wDAl&i-{K5Kt3Gc z00;PdGiduPa7ypbDe+=-BSTl!xQ5@ITM4YF{=_RI2M`NZ-_M$qxNrO8TrW(23;W*q zTWORu(#Y-4$V-;OM3%7qqOZYAt!==4d)IxeFkVgWDLWUa*`mhIEfdecC<&)}`l|N@zf|4SbqJX$Yo^j3(HyyQ!1bmp& z?@ciFy);JTE&mVecs2#)3WVV89*wGxUg^XQ4QO`2p4fo4CSP;(PE0{`^?DC|Fz%$< zj{f2^p~?w(Uog#(cu9$*L?akkMMbR{ZO6a!uug)^EmF~-#}t3~dhMgvI;}P4R^b3f z@hGxE^4m@9ek$XA3;~fjIO%6nA11zV(GB=Yv>rlJDxNBP?j(b`L@V6q_;n7h*;6kO z;^Gaa-0o}WXU(7b%?T%@7E$w*3T163!6T#q*rIH7R=@}XF?k)>IzM1O!|? zM@-CHCQ!sz>Sj#MsqVWk4S9J|l1aAn1 z#?CR47|AjXp8r)j;&{{@Cy{Z5d|E1n=no$h578uCqS}qyaUVTLTB2o(6Qi&3E4Zqz z9X=dMrJjRCAjko=$oYI1#r5g&gyWMUY5tvRN-LZY0m$7v97KsP*7T-(SEL`$T@Rj7 zn`z&uo@RMZvbalRca{kA$QP&SQK&k^kc;LEXUW1Ypk=vUSjAxjY=@{6QVKk=$Y|}^ z8Ej{3Vq(rRAyZyuSBFj4T5qpQiR=iRSRg25_fZjlVj^PxvOR()0QVmcF?=*%>^Jkp#{@hwe5-zSYnHi@4^uCYJG;+d zj1&d>FMW3$F?4L*-d5Y5OH?_Y?}@_+H%@NZ2|zr82VXK^tHD?P-`68jIs`!&hbZGi$*P0GL~~D zI|=n?Sy7jDHy?%xGs*X$Q1xR+hGlK&NM_5eODQRX6w6miMeT#otN^{5V0yajw}4TI zKbZ%@z2vI7AL{z@hR-@QKX&<#qwUlO029bJcT>UqRw}ZjC)|cxN&rgYTd_;A3$Doj zgLr==;Z0{tLOCuLr0zRZFqfm~Y`wv*g!pCFKI=tI zw<%&r%XF9=P~iUQ0fjONw2PIK0AAFN6*_5HK&GQj>1gZ$H~go7Z_hlgb;8Cmjc<)N z+Io#FO>5xm5F4_Q(bgseBKOYKfV+jVyL9tk9Dqpelezj+6l#D1n%FC30GHn=Z=WwG z1vsiqUeG>SuzMi&HreYIrz6}4C+K&Epr;p>x=#TN!NXra%G z!uWOQKzPqJXPI*TGM~!cAU2;~6(sE^tIDoJf=WWtXQbaaqG9~%FIRfFH(skGWl*Bd zgK%nlSLmnt=G0eah7Aht5d=T(L{6aK%cYV*XqOj(u%+tQ zSy>KF#PUNmIk(OmX*T4|>PkrBF3DGtpMaesRr$wHgXRmLMgf!8Ye1As(P zry>s2lXCU=D(YYtJ`?xrWRNE{Vhmhpx1sji8himwzLWDsPUB!wW+d}9h3 zsu|JKOFQj>W?`%*CjO{eqwOt4AP}0S{);gEgf2{MFVJw?$3T*a*6qM~3fiiDr=vl! zOR(-#Yitdv4FqJaDdT%;+w*}Dp1=Y*@E)M>5G>(>WW!eD1`%n!U}V*b%^%P{KT$x# zwCzs7`+=pe&O{1oyUXx{2i)s`oXp~HRW2?t9k7fGBBHXJ{p84<`Qw;zIHPjFz6HQq z4cSCA=13k+36wry)%x(e0~q;qZUL(taY)I&7@mM*hZRjLLZHO8RWq@Uj%~T;=&wbfrMYIodK|?i0zwX5Uuk*G{&W*X zulEhJcpizfUhyZ78qINWLb*nrgf>1tU!9mwBvUdDW>RBXPSjV&6~&~pCCFABb3pF7 z8Y{|znnO*#D&sm3BNzHRAxHcu($n64U)dL{RO7;TR}Bf&qo0qm z9*JgI?6HElee>q{9iZ+V?GKQ6n1U-}@eq3$N&lvz4A8^OVArCROtSuH79l`I1%j(k z8b1AEdgaR-BIRZV`VoerBB({lLn%pO(<1%`lib$U|r zAjJWZ5DT9aDm;H_-Kj;N*%7IsojOVPL0h!SxOOiiVaiGF3Sk;(YsObiUudQ(ne`}7 z`VnyCq(eu0YEz#|_azn=1K}F?S%Q%fZ@YYPvBYXy%jMlrC&j1IUL|K`+!bn+8-L5c z=;9!paK;bfmcXHThth9>C3GK(4@N;`t6$2wqpKwg$NgdT~_X4tSxco0&#_-fL zy)Wk--&(2lnV!0L$N|&NhNQFn;N?cfDspjNIRO8|2!jI{dFhw?#-2c^EoX@U1h^`c zrvI!d=}RTAH@?($sgY|K;D zm%D8+$0p4@zpPJV)H-|?rVqs6lGRf2XYLf&?0Bh1rJXHXetX-M;7yI0Ip{|7a!qUz zw4N#^Sjc8?^mS^xwo61|g>nV?B5Y0y1smxX5hA?jx6EG!lMH`gPt1givmZ@JBdpVT zq{K~jJ}JDALk2zc%OHK0=p%PLJK-$PA_jI;P4aJ&;ESGbx+}MvK%h=MF(Cm``&tDg zbW%c*u|8RN5i?;uHzxv}xOyY#o=S{ED7z5oxHGUwbGw_*26Hn=F~Sy3ZerQKlJJGP zkVv1s^@Qx>t&^g!z#5Yr9gRfM6_=3*Jkcc{$-6nN!jLx)aDbG|5Jnqmab@hJ=xu7g z`>RU$3ssRmSmS9Q??1h0B9m}X-vTCP{X`+MW2*azz4i<=TX8VE7!=0Hf{vUcboQ`3 zrX3_$=ac# zKdw!m{7K`kL11b@xW|Y5R|ggJI=ExVbsMYN3{p#iOATqft;XVbJsTF8r8fJ8k;2)cBnGup}|x~2kED!&N2=WOV96v zUp?A}*1q?cBVQ|=m8kSAbAsm3cM&e%qI-u6Y3Ea5FJyxV9XOfx13C`Y_lNlO3?RZx zlI>Ncpy*+nIocq$-_8HJ zM%G?yb$ba?+_#UN`Z@HdRA2)e5Y3r|UbhPm-{CsNl2Nui9|}~i(k}+-?DkS?gV90G_!x{Ar{SuQ^%U^os#g#;K)C>1mul=ho*e2D$57mwFXLu`(^CQg;TooZd75l!Qj- zlA#$rn2gNJ7yeWIE#8+rd8`h*s0_x!o7+sQM&e-8_nTa%HepF;6K{0Kg-2 zErdy$L`bF1wIq$JcZDL6>M7@uU)ihBZlA#IGLjT(_~#2#`54?L)&x6lCb06_h8 zb}YH0*bF>6HAp*O)B796;~4g0!%K5u$1qSt%fu0n7@c1eCXlR{MG~^LWT+3LFZi$b}+f4i_5NoLFbyM4F zK|)1wK-jBeEgZ+5nF>s$6B2PsLs5dS$4afmyGxk)x6EG5dS34DZeT^d9S}0OkwDcP z3O_O*0Bt@nLlsirGN89jayrkd*AkAs$(0gL2I8cv(x)R&a^?v@{G+iD_^1K`F)~p>y_K?o-Y%a| zo0y<+rJ?h3$&ty`{jz!NXC8%kd9-uCWVg=>{?Ut=m<+HCoYPU0u^9|{n}S_?Dk(GC zJLqCS=)tAV7u*U``k`$W5mWyAwC-FV0uP_S3jT0SDi7(o(;w(^B{}HW?ETvfEBMpM zj6r&6AF(^V@>fm}#`T6;nMINbCMzQsow739>&QgW+a4*X!3#jUVfwuEw?}eDMh6wu zd_llQVK)WXP0DCcqJ{XX9M6(g-^xI#X{|i18Ef7E0XY>LgyLRMrV7eVJKV?dP_3Fn zz*(^aAhYp!o8sS&ntCSP-Kn$L!O34u{xt8U#NYJWlsWkHrF7D6b089ve=vyxMZ@wk zX=(?=-e7#!4N06Du z;i$>IO*VMwE+=+(KQ}SEWyZw;%s1Le_2a-r76tNs)0IML8xxb27|c$>rN>&|02;rH zNr?dB3wbf$Z{`XinFHQa3}gWWB%KW3J5L;F6>CVyuZO#jtg8KZwDH6IBC@d#ZhyV^ z`oB2F+}ss|VsGh=pBB8h61b|u=t zN6rT{PEKlidGZR&;j?%-Al?}n86zQQUlPeWWicbcoPB@3w0vrtjVF%LOX<8NKpNj8|O;?_2yoc9R^w=?G?f#3; zQNNZhwmP*2=^}T-9HMA*%lQ=*s#qMn%Vqz( zm3>vqtakJyxr)akQ?v=Q4fprv5(v>-Ic{Txd+z0d=M{eqAl?pE##*$7NJJo(kpE)a zHbVuKd!?Q2qdqYbLKcD8uJDCr)Jt?C_(q1W2^mXd}dOWm>`1$VH z(>tT93M9qdn+5c#)^WktZlbZF*il&3XDEoEaM?6bPi6XyHM=X}C|rL>vho{myNl@k zv`3G8gT!6BE0eIXo~)x!^bBjPoQIew$)xTjvuwtdWnip0%eEa)b&Lig?_cBV~{paqbM@qt$Xr$39WWNN~1<#dz6u{Oe z5(%?+MA8hddL5C-{`_O{*K=#sMT7GJ579E1cAqxtR5;o_Q#D@?@3vqZyUQ~bUeKR_ z4@s^COHeq9NoohBzBM3i2t1=#Zc`p`Sru*d@xb!pd-1AGAy`1lxO-z|zt>L>oEhzj zZ9~0y8Qb#WH%6LpPfN=eS1UkyKteq`WU0o#z75!8dlxjNk-d@f56!_O0qXfb;UO(N zn1J?J3Xx}+*>Jyc#tHew7`4ax@l3PFKnx4@MLAC9+RjN<3?r3LDMT_sO|Z9em>&|x zlg5{^5nt7M8t!x6!$^McPhU07Lt_F`KhLP?)#hHY_!j-y29B~Dwt^|FsoZtY&q6$uR(AwrN7xl#VLmD!y^45S^(B3<+rVy&fv z^+kyi$!7W@v_(0SiX|Lfd&}7OYbN9A9V43LRq@TOJ^fJ29wmMkz47VY#F#aX6i3}U zM%A?yOdW!Cd7hNsh~e|vtVjDNgxjCR<|LPLI#?OyTr#~Fophq6sEvbMghpqM;~Wx2$gvhAu%k#wtAeQzs5*+f85PR1GdPz{ zlC0INFOd0DA(2GTY#z&E9j!U(`lD!BAR$b(9bo`fSL(p@@>u`axeSp6LoAWfyRVb2 zgBkWOHnCN8SVtD$_p-;n0J{*tzPM*F&*)=Kl<}zx zMlT;1xigXe*9XH>U+M@>@E(>gOQOLoF{vRS^0JJT%M3YEI(88fg7DY$1cmnsGA7WWqp6p@KmR7UQDXhF=!($nA(2$69?zN$ZXLRCKGE!vSpDO9CHX6b0h z1XZOqbGr$^^#=Gi_(Ry&w+2@wTZXWFDjk!q4YHLWSvh2QI}qGhiPd&EL<*){DHp%b zbF2cW*MSxx-$RYR6<)LnJRTCl7F{-Ys^YuL-skjLUxmsnW9O~ddQNwJo`Ra$Uby16 z&u&f1r?l!$k@b{umjI_3F`8!4Dsq*8boJTR?tTCSAd3Bow* z+L_c8Ok%rNU%`Hz{ueu|ePaU({F|Kh^lG2J4fr4yHj_T6@=Kyf=#!Y3!0m1dYDMMA9}l`5v#`f9 zeSc@REZ2_|BkpQ%KjF|E(2A=M!zB33QYl=*H;7u#%1fFgW=^bOsvBkWC*kM{o_Z(? zAy^+W;Rci1`~6H0A7^X=*he=t3uB(MRz={xF{B9PLnS!E16qD$=BcDpI5uQHmH4LBvQ@I;b>hF=8Qv>QEGfj3iV?X(|X(4V_SwqCvf17-h|WjIprzU-z2Y(>(&1U4DyxE)_Ge2E z5&8mS17a@+_ITT)31#4`5rZ6PJ%5%_M3Zt5IX*~>RV-Er5Lp(975LK=~N#@{|L7xER(WTg%s+&y__zn1v z9`}Ah&eP2limja24A7en>^LY~;4c;&R!y^h^Ps^3mRy;hTp0rte+r&P5}!p^%y(F# z73CvAlSl26+>xWBHq8viVl;vl7Fm`&J>RB~)%Tli$MquPJmcI}L)8IG*dHS=GD}B1{nWQ6O166XZt$W{%)+V+DHc{M<#Y zuu;CY(U03!szJ076KBmkEX-|!3Yd%83o&s zkO@y>+f6prYs8|;9-9avui9#5qS=U<A&WCDYMmdb3f7gtkYwvf^dNI4 zm_L%A5A2`mz9$RwLUUKnTO@{0Nc2hHR8%koN%?8xqQ(Q6mv%kzvQ;sKzUYV@XCwCd zguPhcpvq3=aNL?LUhhoQ{k-3Wo~7Tc=y*+SF+P*e936S3?`@V@#sdSdFMfD zkgUD8O$;|$EfC#-MB4Sw+LBv>I6Y60&4{{jY~!g0BZF7fG60}}`|Y4sZnmCmg;A2{ zA%j$2kao7=t0Naq82q6`O`gA*;0sg{&DG0{9L`E5pUaI?9VkmJPy&L~T*@TqJ=zi~ z??ocsZ0lDqtE(+bGgsF&pM~tMnz5Uh`?YHYbu-SWzfghL!_&EQ(bMeh3VJIoIkO+`8=9(VZXi4d_5@O zTI&uZlQJHeFR9@psprs4{p3UA)>>Se?@b~rv|km?QA-{2KRv9smL`0!HJhDb%)n&2 zxH$PeJo~4?p~}sKY{Yop6l7YXvt_V>k;Icj~)kRP#j%4*i00ivD{{4TdBS(n^f z8o909WEP5(>^BG8cDlm&5R@`3l1sHTJRECF%IRbDmfGxf-%G;{000lLAnKn06cKtj z=so0VZ`JOmdTj0Nqpg88w7uO+v;_nkK(h;Eu;`q=QNvh3M;XMJv4U>?Q3fq*fuI&G zEk|J3=MFSARFDeao3MN}WMWtX(C?nBY>T$-SMBcax7h6+#PWtyq(O5@Ye%P+kBdDD z0PnKg9KlrM4VDpr6RTYBAMCP3+gIxmlfbmYV}>BU1|+Z4XExQ}*!OIGLCgk|*ILyt z)`!QMkH>nde%^fuskUKX7f6{lnE|tu=pBf_HsJ+UZq#lH*pSZ zqz9DMRU5oF06Z{XeQoWgl{u~_jcjm*NTDSGi!H@qsL!i;7q#CVM%es(Yha)FvDF&P zKE)YUu-(hv8(g;Kp_CyHA`A_yJ2QJYCU79&=`)^W7S0Ex;7X+Ij(uEiihlyXw9r(^ zM<@Y!FtMpj8dx!?E#9VqWg2x8l<(HB@_3?UcDwowYp!`p89jl4b!YJdzw!Os`q0U~ zo5+#Jj&VE$V(ry?#Io zd<61fXybV9?1M36&eKI)#+DehEm4IE{--OWddq#7ls==!Go9L`wn@LQBLv-IucnDM z){4e~LxTKXt@Y~;jK8*K8TN60(`)O29s$@2(2YD?;hqrk?X4e zLEEDZZ6!lmks~mh@TaR~)Y~&K;c#9WB_8H{x*`W?akK5aZ&hAgZ!b!*Ss?dC+TN9f z{*bLL4?0IOdthaDCMmwX3Qzm779vVgm3B7T)KllB+| z6*#!hudaT6yc2%My@|H4{>i|-J`UYlc=HEz0;v#Uq+31F2 z06~0~ud3Iqc!Gy}7XnGNX`G2#5Npg<^&#^v#Mdk{;2;>&#kP-HrfjdpL`0Y)K|LFW zDSs2b?_$YrPV>}?CDOx~jV=CDP#6|EC-$@3Uo^X0w^)(T~n2EUs!t(&3EFZwt#JA(_5}*19d?%7`IPA`RH1% zJU@O&!m9h(>`$+mKN)xv;`pvHo=p2_^w=({j#@_#90D0Fn1N1%l*`D-;KdhZ1z4&k;4GwgfoUTj z4S&4fOf#hzK+P5H+bV)pGUOd~PD)>e(d*1yaZwdM+N+dhQ(0 zHc@I*^A#V+e}-vmi)lv$R6lgQ;0DH1WonHY(@)k#`nAPxxmWYxPDRY%2#2zm$)F|8 zcnX)FTvMx9m|HxKYXe=S%NM@}3*Menmw~IdD*+<4x~#9A{TUK3nSm1u*Q0hs_3*(b zP90XNsg+)0TysoYEdg}ZdDJ*HK!n53L&*Auq_T7p2NDBH^vV61!HZQu-OvACLaAO; zdzT>C!@>`Of`wG2D>BHBTR{m9D`zr9lJq}lqLAn@TfE|I`e;tSOKuWR{xmWaf1`&z zit-@0g~O{nW=&A;R8(BpyM^J$Cinbx9Rt_)iVF*KHBR_fg4UdaYRV+&LsI=#f4mL&W& zp}AjE1rScfzDdm#@$;wA-Qj3pYgrHYalvRAHfW;sMeAs2^yCEg z4$4JTsn}E-21Ts5`RPvVUy6{LGh;Fn<943E+HZ!NPV7AbrX23k7|=!qxi+ zYg};RP%l6O^dagH-k$x_Y~zjnpfCioq?-cDB0eHZ`SGqtU4hKt;84FcO9bt;bM($E zPcX=AWE6vTt(te?M1r|Wny1(d3h{aVPBMfmTHs139*kl4R5EG4HbHDA0bQiXmx|A2 zm?SKQD?ZhY?=a1TgkiugJbleY_{d{9BPu%Cbp4;eb=*PX!}2tgDY_d^G0LvD}A$ zh*5N|`WO@a}IT9^IueQzj8JK%k#zB@#3GD3RI2UE2qQFJFT*Nf{#0A}= zKc9|-yQeps=tSP!NmYJ6U19;u*2A5yq1pl`ZZ=-pvLMOptO{Dh#avA{Jf6@DLYDXW z5q(i!_!0}6@Ue>0HrpMF)s=Vao+}&YK0}S1E}sJ4I|QwD`8#SY?Ca$#QidJoJnN%M zkSGu(V%MroIwI#Q6RXZV!$1uQrTT3h@ULd=&4$&|AH~_qHaZZ3mh8EFV{n~?H|3NO zfy<)BWoAloV$`Mp7e+1rq>1w%v`ER;DQGP^9UZ^C%#|vbNl~=1*n2#M$-Q(=sy+v) zf{?%P>;cJ9)a4gz)sDM}m?2Hn!+dq&+9xdy;zIp9Y#5I~BhNIBaEme2TjeF_6=@T(g_}E>CoAACs zsFhgNSz}eT;h5I!waPU|P<|r-f*O{>+pQC8!t#55ecH&FzJLHs%k6R_l0WxeLY%ur ztfY}I92EHWb3^eiKnEa^Zz=+PK!@6ppmj|DPoqwg_q#yZchtbm zL_YAg84mSO0d_{sry9;~@reWCls`T8M`oLClRA&qfHMv(5AvyVWJ$jR?rYR#slQ1n%a1L zI~bC`69}cTJ2QEpBExN56np~W$T)K7lm{P_$9sv- ziaI;SX<0)yLM|kK^_jVnD&YUmRa;_~AGxs?ah;R}C^$X6oCF-%NxaX(${a7%l~TD` zJlROeJK0GL31<3tMr`ROk;q&k?4ncXG8r15;S2aoyay_1$F-2A9YqXx{=0NPq~Ntt z$J+8upz$zs3d}CxSh)u5m+MP1L3Hs&gB+v7smCZ*}7ZYF(X+cQTwSy3-l`r^L2UuB4Nrs%g9 z73>kBesdBLmh5ZyCmB4t|d@uM>hYtKM-kEoi1KzKTD6^E5d)!shf%tDRF} zyQpKib{)1C{dj?IgG>rUiwEg+XZxdW7HTL)u;NSx1%P@G#l~0_&0*I&S~ z?KyFc0gt79tr8GU5ygAX<+d+@(X15lW!}(8YzfYsfs72@fu+Y^fIO6P^m z(3oPYv}<(PNBs)$bFw4Qw5ik=yHXVozzKyOUN2>ImPTV`nJtI%P`baZzN2b)E+SrgVh?wXHckiFP)Mnh<_tpG6YL zTaqHPx~$*3Vty^_H9 zLo`-n!$Q!(x!Foqg%ecIY7%Ls)(49il~RsEcew31rE$V1&b%8WMrsY#_$`wW>qLUX z%?buUbXgKAm+xy>N5GoM9~_$Nmjx5O!L^Nd6x2(YErE1^U%|_6+pT&SsH4NRK+KcI zK6DDdV^g+KlCsoRGq3zphH-sPiU51W@p$Hgw#RjKl^pJT5Ttp>C{f$wd%SM<*i^Hk zQz%oe*wACt^sYhdEPr8`iI{alaI!I=({#W)@$<-YrRoEE9Plka>x&o-=8I_;eF0fg zWf*o(WaeB(Zp)lGUG=MH>x>6QPmCfg3+4JXq&&5d)eTW}R3J86pqEwwT06^mBc7l9 zJFDCs*2x3}P7;@Qxd2fq(~-i1Eq^R)9FUu%#dk)K8+^4gDH1*pTe5HDMPN*s0Cb*X z-kx1S=GRZiI(*m4G;*U*xS~8G|8u8m%G*hjWlpB)g>4HgS=X1!Vw;B=ix3wGNRa}g zZ3G;%HMbYvmWQJgYu5Wb(3YIeCjLun=7QtUg6FsN*y2k@LJ+Pnf=aF}&(?^Sa>8f{ z1^WCY71u|v^-+*mkiy=Qdy|lj8376Q5Rk2nJD%zKavI?6C=#WDqRhjGol;4SagEq6 zvPUSA&x2}trZ^}fCH?U#z+8Q-XpA~d^3QBLVjcj6Ex()NaOOau1=g_;Q29Xbb_Y5S z8W)3T)J`ri`~$4Su!t-pEkg`}I_Vd-C8nX`V;v*+7RxIorL{^#$}(EN_oX$Y`}m?!?<>I21tgsjTv7Ac;1UX8S0}Th=EaI(Y6(V zfz_whkZ!(O-lq4DC8_A32*4e%rsV*14u%JV?RmGwsrtm*@~{_%3S)G0Sn*N6Hd2SZ z?EWg6FKwPF*NCjC_3Zv6Yqi%r4sm80FURbx4g$&?gKzZH#W_UI-sZk#?<~vy{*&2~ z>cXMT#XzT=fWR61Bhn0WyF?@wD=oh{ga$FbA_wVL=JH7TDdIg9!5AwgWIz z#PM&(0=M`U91aTKY)0D%Io?b9JVzcT=WO9N`;+V=QsjuQ-2jp?eHWEI;i@FL`)SQ! z60kFdTwEgHrN|D)#EV!%-w?5lyJHKHjsSeUK4#?9WJ}EF#wsMfeHBBeCXF8Da3M@I zg5!S8^fcXDlkp(hHfP60nis!xD691eB0IhAF?^yd%d+L#NV`wkJCJ;y${lXMXx{XZ z6?kjjRV2bi(dGEB@3sX(z;d!3`XjA!YmP{rvI0D3ztg*Tt^{hVZMkAFLa;(X)O`ve zGIE9b%0uN@7!vQ4K|*y0Vd zOU!$+UkgZBBjrl&nc(EwrrVqFayPE{<(QxO5VaeaY{3hd5UmafQUYD(fnc}^)U>~^X!NN-5Z3T`bx0YDd>_I`^1$cy5xpk~9S2Q&)!ujYfSj+3^I#p0 z+r)r@u#@e6N1= zc~7+Unu@GwG45ntxR;2ZhLSce!@mXj?qUYo&+Pj)92+U>`w= z6-*8rwWUn#;DL|-Q|0N=CB zmAnDslK4!>oHR8w1Kk^u&iv~r!LtVe%gf8_0R4Nv9@l-5xiIr--g$Zek9tHICbf5x z+S_lT4sc|!&t>MPpw4a@^XeWYav+1w4EBNKv|pxVjFjrYT^TkMi3lZ`U`C*&whxLJ zyt>uS_Ipu%kQfJvI(Ai@nUPaB>7SimD7lL}OUqW;LxI7{@@r*=!#G4!6qJ zsgr@deUu=Mc|*ppTmBR=LPJBvGm8R}8w-G@9c_Vt9PPMsUUSAkXch%Gl!7zdmxd0M zR_mjyKh1rbJLwT?$_nnk#j12*8wY5YlA#GH{46>VENo{myc8Diw#0Qs;4zonNNV`RJ(8?vQlYu%ad z6RpKdW=ExuzOZSkx9x$w7%NU&pfmOly5Bhw7yo%WpN2oAk1{plk2PhCO*MSMfRSG_s%8MHXgJn^LjW z3QU#WnB{Lc7HTyxU>xm<*s#eAd1S^|!O3fk&0Q-NjmNak0hE;+y*FpED{a-RByrhu zM}#>PX6Y+T?)ye4!^(A6T5rb#P|foN9FrfIEI!n)R#pg#_Jt)jJ# zmz~6Emb{is*ppC!#J7byj!j z9!CdJd2|e}OVJ-AS zUaR?~v!H}(8|H1(F0-9?DEf{J1ilrdJ-7H3`Kr6iM^(v=&`JZSE3y@pxq8;w#fE(o zi{md~%%{R)3>&WU4s8)j@01%&y;YqPcid^BFO*(~$h9zM4am9k9B6~R6SU+SttLyG z^pISCz(~cWY7VNy011Gc4fqQK$zaL?{ki??nTWbdK9n14L+&MRy*E>)PGo{W#R1eMqL*SlFb zKuqqAAtd6 z0E-hs&=C5}Sn{K*6v?pnMd(jA4^=(T!(~R!WtUwu%KWioFokm21|o0_@Ic`SNFcZv zYby=Hv8*yNW3}XOq`4`}_-G*og65$^Urj2f;#=ptBBxHI$CrPMK!NQW%crBBgsmz0%wMUDz9w)0B6j2EYPXppbI| zr0BiWnQkiDutye_6rS|J;{Y{+*gp`|R1SeE1yUPrKge^#VxrulCW-Gna!JH0#hr3L zy2+M3SQob)dj@2q2vne7>7RbOqKTVa)!{b27c4xQYJGka^d2ypPwwU{N}fWqa3jE%MF*AL_Dp5~0N$xgdMIY`kLGJJTdYm|Pp`?ofhL|@p3X(rt)CR7mY+BBEnk59~qRZ~I#2ZS?x3R?i14cobWxU8-cyz~CDeyqID zmdMV4nPD3WJ%AsV=tCt{(tt#2@)7OtgFlvcw(LIU(KGR^z6J4lL1%0E6jfH06Mw5b1)W((qp}Dy^Q1$t`89PCVWO*((!@5SWr;e;pQE6UOy8K|`coJ|gGSNFi<_CP!T+i z-c}1eAFWrkwH2|#Nj%YzhB-cA> z!2GEV@w#`;+*hzn7pAYz6jtgL+YFW^3`G;I0KI6yI-9uK-vUHPF1Wn|Ty?~=6;hHH zZFF;QXRl7XK-@BUqM|?-h6t0o5ts+afRNWOyYD}TVt3?~UJ^P7HoV#&z z5NcVFd^S|S_mwtfB?uBtQ+zvBIU;c9OKkH^p<(8_3Q`6U>w<-7EQrmYN`WBC*NL*a zUX29i#EWmx+j>qWAR|*m**v4fIsZ~GaRwt28ikw~A_@&!C6>{46ZlTQ#mtcBO_?aa zj)803E)m3@sHz9zZ$~jJ{Y^y_|Ef+_arr7&C~5C1OA6TD-f>*tw=+9pVwm};7S+M$ zgHx4AYEi7n$tFvxVt&N@t-0zhQA{U=2~Y)%i@=?W9-!q*OR4WUh)36vXcV6H?D%vo znOhI#m&k@{JJ(2P@oxo01=KS31v&Mz$$gY%7y;+;8kl z1hB7R_sl74wf2>=WR|&tksDb=ufx-+7yV@ShKa&v_~hlWoJ{63{gewYEMW}>QRXn7 zlOSdk$j-DyYb&T|NabGjJ#h@VGY&&-To^6~p^mKGEj#$0#*_6ub(4KwYvx_4WJO#2 z$N7Ty@b6{nxao3arQtU>etZ3@5Z)?qzb_?&PohFuot)t1;uJ-H z^dUv}#p9xs6l}}!dvYA7{(_<|4R+z_>d4-$UYL}7{=#=SZpTfxhV3~N#_nU`p_)&h zxtlXqT=}n+o3vLzv__3-N5gH>k2IsiX%R`9K)jZWY2^2N+DHbxOpCw@4|FGI5RL_J zW>!abs!j~3Fi$x1;!db|^*T?a&;kHD5|MB*rUKEr{n6JYzcPuxSNmkwp|4gsz!;2- zG4A}nFWew&^zhNi0P5incuKA&!$n$i)Jmja`otDN%EmM+hNINMRAK953(65-vPi7} z!f%q$4TL?i=RkY>+zzud$Kv2`%<%Hbdk!|^H;0TRZ9IokAJxe0oaplNu8{RV!&a7g zX2w%Z1L!ZqHXt(KZ9qTx>pi5cLRIW7*hK`}{`j|sM8+{g31z9mTi0;$RT0f;9(_pmy%CU6WCw??S5A{eTg0w~E%cbOn43ID zB=7!dU<3JV9V!FKx!;#~bf;%dS92)oJs#%n`yWJCy*8Yp<8KcHKlw~TAfQ}8M8;z3#(&mMI zA?Orz8w-G6LpiL#Oo-G;;WQ0IJ0Uh51nL9CcXUQ?mxwfbH$9%59$(t_0B!3_MIXut zWyv}i#t|x-s6nKz7&T__^98;D5^SB9bemTYzd& zVBpIF`@mkF^K!v^OY;pm$h&4hAziJ|lNzAeVUCbF{HZ)X-02gKhwZ#oHs@AB#}^Wp zr>94DQE#@Vytlz(FlgAUiFe_JohQ*d#k9`WOuo;aA@{MyAkP`0AZ>;b2|Fu&|qKvgP%%t={n?X8-8{CL6RXb)o3>1-wVB-%_Xh|&GX{sBA3q>jI2c=G+Hs*wP< z-kP;iW5fP8b0<>u6rN%{Anrbi`)~mQy^c-_cQ}dm0E3Sq76#kyl&4L%8~ooycwNB2@4ME#Zwgv3s)G&1yru&u=A@pANuY0J-=&T3Hgrzo&3r-zOOi5g(7@ z+OS?a|Dl7tx>^8n!N#KO^E5p)rFgkUA>6vR+DzCWQ#q`5GHht$$dG>zai^xWqjx=7EGul45OdwG8^Rw2R>9@F2twJ#!~-pdd3OaoxAfxNlVN+q2&*|>UDQ&kt) z>~q2wplM8XfJ8^T;vsZUkBWu~Jy_)p4&2NCUp?0Po^RB?ULS4${JqsqlC!{&46WJo zB-#;${F&y31~-bVYtVdg`T|z~LGQfSC%Vzb2QxHMHQZ#Q{`Dz+*!aU=mO1~6echgQ zgSh{2uu=TK*}e{V;_dmnf84qg&cA10x91-&e*dn0-CsMdU;TCax;^Vog2%yW{M~Er zpX}@QtXuM}ZwBo6{)eaCUz`8Kd+5J3ulsBF<9~VX{ZI3{3-atQb^*3O9FpBu3OtYW zb#;lSqKUB5r@w91{1LnqB)endw-;7dK3dB^)zp+H|8XnVz#-(}zL37$&ibZ9?zgh* zcZXDE=Nb|cHhejkeM$C2gxgQLKLPKi9P4f2|Cv|PKdk!TcK`Gt{$b4bm+Rqw<-oV+ z?-qgoY(nH-@GrcZ3`d}Y5f@ge8tSz#-|=1t57KRa0nXvt~BX(ukz;%OX}K|N4=U z|H8@hUr#ar_A9r@)%ySaoxX3_lzheJ#w)W1iR#PEJ>N*ig#bWAY}r6aAUBNF`Dt6Bgpsb{{l9>N!wKS zZB(_B-nIUcO?|mF6ENdFv|;{O_)?4!}ik z{WSh*rGc+IxUMfMcDwC%|IcaquO0qdYt3H=_+QtWj^K!dcMj^AHsjE#<+DnsT2;?x zrucQ1or^3ryEde;SzfEd`&~HS{+Q=2iSV_iN5P{DWqGF$_KdBO1$Q#$A1(xUp&lCN zK}^ZuuaT7W!SLy#aCm4OisF>zj1&K=LuwmAp-gc<_;Tr`ttrcA18r}yAG!Rd{7cYYrPqU>ifXo`cC8=>FL?hM$I|^6GoxMj`)L0V z%GwKK?O>E>`0mp^@oTpahcxcKpzh_H=9)7C%ij2yZdbcPFMR)Ech>>n>j1%KH2r_(bGjd=9(;nxP6PJK^{VBa}=WB1|Bw;#rpnNMx-M80S% ztFRol(d_g6^&$S$6=(U=24>fr7Zx^2E!L>)KSsO~RNNWL=4 z_}$wrXYUQvioyP)Uf4mW>5g-KTFCCPc;(1dIFi7+DRciL!Qnn5UPT-c{;kdHy<$(HC8N2wP(C zVVfDon&Btvf9$C2by(bfD(~m74~IABN#9Snc2{dONL}P_vR_cA+BAJR+IQ|{bAiNZ z^KiS?+00(Q)+PI!hX{33f4c*_`*Z2)yKoyv|0^EH0tupRhSS5FXy2z;{s%DQ2|njz z&>`V@E2Bqj5aakrqwV7N(!+DAns&zl^9N(vSPD8`^{oBIH zwd>*ah8Ok>{WMU)NOvXmPB;B=g|_Htz-XyzRNus~HDoszyqX~dIlVk%c|S_6_nOpD zN8Iy~yr-njIKz>Q2iMiYIzLHoifh-o*O^$kv&{1KLm0E=VnVEVVdtGsKTmk~-u+?4 z(k&!IdFb8g(uBD?0m5^2qh8i3x!-or^u(@y{ub46Q}~PV{>A*W*UA>omZ*-rzWv7q zhKZaH{g6qt{7-|qZ?8po+?me7o!#|TjeL8y_lNm~_ZC0@zLr|J=Znjxf@6N?&u(0( z3YfH)A}@L`DtKQ? z$NAgV+x8M2f_7c~+;@G!}7XfIh->q1j*>)qjA8G_lWr`0K_bfdHvarM~e)AE1%YMcL(A@v3O zON#PX`T5E}4(EM__a1syo4qrFs2jM@av;Cv%1;T|7Ow9nZ-v}F()K-)75C+g`kU)4 z>FeK5>;AcUAw_Vpd#+~o^lO8OdE1H71LwG^)|=;QO@2Ce;}E7jW5-frziV>vXi;7GEvp&V{7`VE%Volv(fbC4Tc%S?@brss_v=#U4JhLNr~7! z>|0m4BSuhqZn)+1x#A7iFT7Dd?2Nsx_N(`&PNkZ+xyc)HzQ3Er55S+j7`J+5C#bG* z8`&8r>tz{w$S>BD@}jR{XrH4|G3(0X-N^@uuJ=Vh^=6qT!)K~7@z)1avB7NfA^+5h z9cl|Z&>ZBV&d#=|)dm~H$&V$$x4&MpOD{e4^i3z{C$je0@uCMF*w7|q`H@>6g#N!9 z?V2$dYPuH@_2p)OzS9Lu>UDHqx<5?g_kw+2hmuZRd_9S%*KocfV|r&K z=J0${;OA|W3pPfU&FA&$u|px3T||2$2D+s@1x`QApDW*LHD{MEVBQ~1C>y=Gee~l? z2J`;S=>peXoe9>j9y@=+pI>>&yph0@sp@>E_BmpO70Fe^iI1dNUoC0}KQjqTCKJ_b z@DwXb2c^uPxi&#-MbKugA3hBiH2)_-CCDZJ9Oa5p$M~V06%!|X2%F(b`G~2<4^SYwixfy)!O`B7%gSc6i`|NkwaRakdjj+y_xvzD z3xjKq9pkW0U8#1HIe4l+n+Y&aO15}9<7i!p>Z(sK54f4+%9%{smdK@24Gl+Ie3Im= z&bSeD6bPBpkBc*+3zCsf^C4mtZFt;=Iv%mtuTL!SV5QK~FB1fmDZn0u6d^xqB$>m5 zgv*Kvq2%{^sf>*9j5S-7;ZIst-@dJ)o_!EOqnYk7aF$#h({aiq;Wmfk8Ee2`Q$_Vl`r8&mN85Ait-1bYK_C5f z$2!IiuX^+Y*Fr?2@5Eva>|D?7yWM-5i^5G)ps7sT+a)KAQB01(qy;i+`SW7ATZ?}i z{zXpCj?K;nJ`gdRB&GA(Ifb|XMj#~Im6bLpwh}+w{cCc4@4)cZyczL6zluvwjuzfl z8NDqj{gOQ23&W!XeSYS0i)?OZvJ4e=Ug3qFVr*sBO;kh>f7sQnyHZJa--*x+&LPD# z*_?gSn>g|QKcjkqf_>3ojx#Ak!V97YGAyMG%L?6PFYowp>Osy1j}6ztG$3GrK~;XY z=sQ+|tPbuchY%jy2Ut@j<>xX`kc1hS>cM<~Mc4*DA1N+E-rYKDFQRZd%*5_!DMP!^ z8~er-aS-GN8xjQ9eV~uyUh7eci|LR%RyXVCkqrv3?->1*_c;6Dk8Ii78?iZEcUlmH))!*xQ$45%Z>`c%Xrd$Jcdety7_bJ_{AB-pVd}%%nA^4y^_{ZmHPTQ@YVe z&hC%X3j6d+q{s3N@fR-qF#&a#qH*lK&^=YO#C;1YhsK2<8m_4{xhiucRCcfVHjC$@ zC5F#|x6~M7$#0O687Px|>h>Z)xYgi?=6Q|QaZb=XX$lYlk3vo1rU!({dA(KQ=E#~F zd@jDO`aK-@u7rPP-%|l#X+w4iZN85-1$`OeUo%IB%!ofgxg)roH5XH^K5ME?n%p@A zp;GzR8I8T~Lj9)MIYd1GwL~^3Y>ih#OeKh>OW7%sDdq<@RB{yJBtwCW{mHzed}zg$ zo@I5SeL~AGud@bkvX~~6Nh>9rPaum@W&(3KXGKsNv^V$FshL^xwH7PDbXWj12F@pZ zv(uJYy94z&fd+qpr8kbqVUL*0nZ0quaI>Ztc0G(rGyI&x<%!Z30HS0Ts7prdF9wQV zLMY;5maqOtJ1I48hh|%K5Ae8zQ3RHKFc?=jo4Hh1NO^=xY_o6 zPlSO+(!||ig~qvBByXe z0&dB|+K@nqS~dRk<5fs<#B^Oe-N-H=5BSEE{Zg6gxwTg>v`x%QJowcFS{d0QAhlyV zJK)sJ@s=QXi(z+k^_hLpmDj zYPrC7MKRDp`(n`eLN71jkyQ;P@}))>FZc-@ywPunSv+FIRMs}&D`@`>4)-b^sQ%d? z^@$^4(j%_Bdjh_Ya-GT}@PemH*BiO{H?*RG*_VQviPISawrw}SAOI6DPZ&-UW{b}U zm?qdHhlidopS1P7MF7hIcogTao>f+;*|D4MeO>LrnS_dDs$iMd)BtP|nryE$=ZAvE zpGrOW4Pz6=KB)O_(*Z)V{nfowggcHv8FlurgCMG4r+`lC<4s#WP*uEuD~xwhu9{r) zwbMpMwzMQ!r>r-)FO|3Uo!hLxi|}GBuI<(zhi-BN)7c7R1}{lF^Ilw6CKwi*ieHVK z$8Md2?J<=ty7jSqWXl_8&bcEUhLC=m^cMTs>-&!XR(B;^q3-u>YTIP=q~TEH4YMo2 zND!7Qt2qv2@@0S(8*8|_j@}nAn`cleYrRkQg4X-#c1EBh+JIgPz-5`7#Y*k-2oGwl zs@pi-{>-bxx0S*lmMsS81OP!P66fC6jt32mm>>+l5-zA`HVfInlvWl&la>uR_~8W=Hc|nbBpeJ-C?-b$ z6k7FaK<5qfUKk?J+q@VoEwewTj?Ic)Czh$eVy!j^zkf>wELVMe-!Dc8xG~~RrChH2 ztqMO;L?CXNI`bY*&($nWJd@WAW;|b|f-q#m*ZdXawXjsiLUTPv+yv`JWXt@fC-w5= zH>E4`Qav*QY)gRHRoILnlNFuE(@OOWItLVGQomn(t7)kE;LMo$R!pnm=HrNI zLE8vD(oyNn;+EM7H6ebB^iDA(fqxnwr27^pq;^*CR44{Md9GpdZf`X$uG>YiJMH<6 zr~nBhTBLmI#(@Ro+oV}n8x*SC%m;E`sJZc=E=AS6F4n2m^dL&fx1(J^7motvFkk&t z-MUc@dKWd7&Q0WdwY7P0-g!kbQ4HL&v)IGD!I8h@G=t*$F|xLbFUe-CrNm4!|5VaQ zSysw!jiRNb11Z8Nh`zk_PGqm5P?C?A9PaKOE)|2=O_vb(%#FXu-o$QUJCIMYf?89_ zGm@cQEar^UFAGo|>akLO&wPmvw6+)GW2}eEwNljf1UcwA5ZU#@cM;9$LI|D06yuif zZ&{m>TY;-VBIvn4P-;%$4=ndP%uS+$`)1D90$=p=5a1(-Q*uO1?;#2L>`dB+q9SO! zI|T_bOa^hp6=6>uy-0n;BmUhxKVb45wx?^M4`K?tVtOTQHD#H&KRa|xRjFLzNGWmo zrY@khER5(CkjGZ4G-W)xw$nXVf>j$3R#4D=|YJ}+45cQ`#@KyXAK-r zmkyk5c1Gkxjswz5wS$IP<q*? zd-K4Su;)$%r%cZ%s%fi{lA2%c@Vsh#^~AW}wQJIqvEX!@NNtJK)Y3Vixo_xOUfVbP zyUBt4c0ev^Ffwuk9r+-Je{&Y6Fu!u%|kLxFU zOr2+`tHI%Y<~M`KdcHdYm~4K20~RxhAdImOZ2Ny$I{SF0_y7NYPDvZXL`c-gRTm;n ziO^8F8Y&k>nw832L>(6$#ZES(OQK69l#7~X>KGkj$JPbsbV?S}#1iKm+sxE4)7E>h z->dWey}RA~lWp(!+uqOD^Z9%|o{zg}rf`f|J5Vc{htFnREMp00%AR~Gsz1CTDz+o= z?HoNIV5hNJ#F#sw;HVXJsP&4dWJR}~EHrKIKiJrLE*wqqs_PfW!f3hdU^6+$kcPgU zCD0rYwDd1;mkJG>UC@h&Yr*%=WMGSrKC>Xu*WtQ#^=^d1V3}?5C^QB}-6m{yBDo31 ze%p;AW9%3I>TWN>oOu)xzcut*K-zr>kP)H>y&x6@<&R2T+Jeou-9V|8I5l(bORwx! z3=soh77D<(TXrW>FSEYai1)X2;s#tUk9k(JX;x|0%-e zy_?q(iEk4hBsmcy$i^Fxv9R9?ef~IJrQr%l`<#->iyY>0{mG5UY;OpDH>@K$1jdH~*7jB+<%{ z0yAvC^mWa@2dmD$w>rA*rS>{kJkIDmeFYzWM|)k>q}8uS7hr{QMrT!-fTUbWjV188 zAn8gX4uX*y#fTsE`TD9WdJ)SQ3Eekd%@pSvqiirM583hYZd)wTQaJuFB5BXB*nDU7p0XhqIHs`0>EK(gQ2CS7q$8983TN-%*@D&y zJYkxF3>4De;bb2iZrIQ%K`^5qd7EBw@1EP3l~@9#=&rorO*$iA%(oven#&o?c_ zP8gqL82rKIA}Mqu9(Y~@NKd_ep=^JyQzFVeR$<^pxLi`--A8D_W(E%h{7MhGGeyrX z9@)%5>vpMn2qPjgRR-Eg{eUF{jh2qoc4-$dmpdxc+dJulU&7-ZgC9s#7{_{)ySdN7mJZecwL~#iy2W{MZse%i_zgiT`w#mSJNeR_IJUlMm%R$o6 zpZCEcyl3ogv?$xOyg9MhPSM5&oRWxefd2IXk}XWG`ckC=->`5_2*j!f)&?uUv%EZU z4qf6U44ZW5R!c{y>aV91F)`qiS){dZD;H?ZwLr#pUvyuBsF-3|?p!;NPd|`2mKC;e zS;5wWnIsYrPnL6KDjAXwRmq_1n~Rvm8ez&Rcx%jU{s&|BxM+U3aacdOaZLAt>BgNY zT2Ae#fGRwo)_+8)X#!mEs8;NN*8xr9jk8U5p>Tq^B`oRiS`s%-f1)()oYFb zlyHKmmExyW6Fe~6VptR|6^1JQHswj~p>Rc!6~yhU1z0~TSD{#;}IHk8*v%M2wP zQS2fZPqWe@(i*d%@g`{Hw1eD1Qio6&*LkSVG22+zg*($!Ge%|5@X+K1*ZaYXnDKx` zzrWQ1d(r`>aV9WBtR5TlUK`v$98cvc1t6+1KNz%h_6)0n;t-D8SP!dvaZjvp#%E}O!$XEo=C z$cyC-DJl7n59bJ|T%lI`SX-rr0o~Zxhg`VoL{SliF3^M1e*E?}N_FT40<0T!AgU>4 zX<98mdT>yv{e$g4_eQ9JxEZSYS%l5v;}~2w9(to>Fe^o@S^>t1Lbt@=c)A}UoP%}_ zV?l7`#iXPLzG!_CjpR|MG;HB89$7zXYg1#q%zaU)gXyIO1|DPxodS&w*-jf!*yc0U zeXeJq^w)yualDBilPu(<iLkj}k+jSS_J(MyRzN2|xXOR$m04^PRG+CP zpKIb-?ZG$?*bBd3kr@ha5hm=E@6qcTg;TBLIxE_uzNh-8!Ku*1>8gH13Lh>v7BMLa zyxPje-(LY80P$0oOgPW!&+}k%Z@bDe2}jjMMbA@)$W9lsYYH)@(9Uv0*z777$s(_r zZ8u9d=nD~jT)a4<#_Ne|`!7#_@3!6;I#>*{e|ey@^K?P6vF@jz`8uX%PLKD(lW z&_H(ekNkS5d*iE*uZ{2T-geDXK_twU$3lh%xYr?NY|^3X`t>x|ttvulA}x<0WYmqrPi;^<$hGu ze37V5*QlK=5QR@)9pzG);*yoJ((~?S51<7Chtkr17pIIv{8XoM2U|Ml<kP!)alsz|#s2{$hkdPz3 z1DoxgDgD~!6H&5|Sw&x8I#b=$7GEbpB<-@l!EUepqtf;U_ECGe3#U^y&6Rr{hz-6HT7Lg~ zf@ZF>{+M^&4&Zg0UyK9^?txD-510?nrBUX}gk3)a5f!7EU432XI&??nWjz zo||l@SAlT~2+eOvEW?%Q##Owl;!?-(a2z{e9X83z>pr1=iC5qmw_hsz_VhGZle7Ts zUU-bPyR+vyn?lD-*(4Num+rq0Cy;#SI`X0+j!oj*u=`UASJ~p9@JsDVAnw#jJR+6! z93|$@%Xiy(dhJxS7UezA!4%f4Tjk`c1RPgUe0k=06E4%5KleSI-mpt1euHo1z^pJe4{}{CqLp!oh^6d-Jyc zG7r}Cd48z(9i78HX)3f5Op)mH(A{_choy+ zu^!u3Qnc0TGn1Wvy$f)MNiW&?{b26B1>y+%ipH1Z=}*!eP~LuvktRl$>21G^{n(AK zG>(fsi;Ep^`32&B?K$!H9wQ`^tp-XE8$UaZ=$iF)`e>%7d4~Ot8GX5B#fg2jY@40E zMghmV=@#oDw!M_{vBs~df-<>rTL8hyUmA$cqyC=B)k^ZC{HR|xH&QdbbK;wrYul6M zkP=*AKtqptqP#+}KY2Vh{^I|B32LWoC|r)W2oJ?l3-YR|al$bGq<-iz>SXDIcH~{D zBY(x9Q#wFaSW48E3dE>@o#f}@<~0r9#~&X*I?wW4cPFYWa z*eB}HeNxr7QM_+*u^2jawgGmi@7xeo$OWKhdoIw1bIb4aYhrjtjVSLR<9oAOp}aHe zTj%6vb-W)@B2K!rS=>mSKOoi=WjE%sWNJ1a%qzIO#pJ@Up%l#eJMHu({PDTLethdR z7pQudF8kx#nhgqN_zt0lewqv8Hi0{7wK)!GkaYORVy6#URMQ9yn}8MAO$EC5@#RCc zg92WCXA`GJ_CUpt+AnK^OUWQPhb!soN|#N2GeQd1+AO^VpFS`LK=|nfaTsrgrxaxP ztI*ZQ6N>6-nXFCCjoD=>b@N0HcqJ4!G{{(;LU!08nGxb3os|l~=yB@geJZeX>YVzRky?V3}R(JWN8;xnNX0s{}J0n!?4Z z*DioVJ?ZKPTdM)3e3UEEYt_$0^5vcJCn;?dzpMhBmZ#Sj@N<}D1ka3BN7wid%GbtI zK}jRz6=$&k=m?7WKJh1g^2v6+tz#b~SC8<~4P+ld!%|D5gl-30gG)B_@k8ilUWlQk zXg@{75=m4|ZCSYz%~3Ft58|nsV;t=#82jxijE@u__H;T1JAh#p^@KC>P1v;EkLVaj zQ;X^|V~Z_EYE1+R&TvR4XHcLODgg303$*(Wz=dHy9R1WK_AzSrqWSuwWd5RIqO$`J zWoZbF9^i!E_yv=5=xW|c9B-Jifh82F#PUMnmQAf!W1d;qm|=^HH~y(>Vo!#!B0_

Y%5U&1!I`2B^O4G5}ZlYH~dFVcBF;vHigg5BF!!89=!=uzM*+qdF z^%**535s{gE?y7fW%WM$3*Y@*msIkM`iHaMW!ztZN3%Ar^D&7CRqzUQ$(4PtWgr&f z48r)!tTM)oKc+`n))-FWhH@yzyhcFgqj0pR8=Kcn)A!t5hJ_BioPMH*Tf7&_Y7mQq zKI^)HhT8*d3Oz6PIRA6pF}5AcfGR3W)WI3i4K|V+YS33fP-;XV+F}1L~D@ zWs76NZ3vPW@QrO>RG0h#2W=}HX0bmdqOAHXJQu{|FNx1Z4zS@Y`Z4k>zp3mg!-3#L z`1!8|E+MjHu4GfY=6vHRj^dlkub9LQ6&qjL^tg>UOC%CRO>I0~KH&s+!Bphv2hcEt zzo?nERcVK*&SN9NzK(_kr;^6C%58;$Xlxt z$0Lhh-rd|FPAE%}6nMxuNPg$MvhJ&A{fIauNJ!XJ(Bl6h*pg}b;2YeQ%F~dV8hN&M z;{t)UjEK9_#H|f?Dj!J)JW|)%b#$IuOqZ&Kk4Sn?`K(-}tV;>d`CO8$?%!=(`B$86 zNS9zB)Tg$oOrBzUC>@BAMfzHqBdphZqGB7YotVN{1xrBA5q{g8qK@27MP{{J`QS_x z@Q(^#y4X4$(2jBAT{LstfEd7SE(=$3I4w2YKBd~7$?bo)%yoHbk3VsH6jRNjcL~xPLxAuN=dSfBW!(Yr zBt`-nYCo%ad%JbdJRb_`K>MR8jTlFav-FlhG6NSRaH+NcUoy8nBXVqr$jh8l9ehIG zd;dPO-a9@{Pnl9H?K~igk0ljGeuA!~`xY#>ed5TsEg|pGqggpDO>?Iku0D58-n}Tv zZiXdPH?r$8x-Ca-aeWy)1Cv`C+&Co8;@XwcvhjmWmeETX=K7S_;G&n$-~(8IO{669 zN;@D81l@qaQa;@ns($83*mT*$`_!(bi_PfUVVJC>3y3?HrVKs2I`rf`MDF2vM#Sg` zyFV|nF~-1W*LG9q>3|)ppW9toXRne_=+})g>(@EK?jSrI_&@yd%fZUCcedh=R8Iur zm;U_E!aLZr=XTmgLha)8tW6~``13CFzMNob$2$|dp6h?i6Q87~X|3mR-KfM=t4kKE zwlT=TpY+P(x)<7Sf)S3q(AJl#n!;tWIT^!|0v(H!)F9Enk5I*liItA(VQ{SZFC4Tm z7A1X0$1c3G7+s#QA#~h@I;^68h#%3h#9-ZZ8kwtJND8j@`X1<1kw8>`(A-rmHnWO! zOh6(b?K%@vu4nxNDr=Vu*Gji>#o9(OI2n1J&~Ai&+#cwIL`_(^nfJ7AU!5{np`Pm! zF(P+oX-GLnqYQyG?yr)Oze>K9UJUUpanj?Y z&bazJEkf|HMDMYnuTrQ&)cI}u^Q(H}m;Aj_0Z6={LcK;d-)>>$5BR+xeNaKKh~aWb zC!;?~L1X4O3wvgZ(f~G(4_^XsoV@UV+)fW6dt9AasRh)*%>j>#KRB3#u69gwWyki* z50sOXdxG}&uiv;hSRC0~w8s7N?-dr>#`A6@Lph3WDnMWJ6)lC|aS8 zo1(8c>#ddR%4E4BnQ{4oo5lNA|D3?U_F34Wj_6m*u0SWa2^<$Xtc0te1)u86o({AK zaO?Pl7TROyiD}F7)}9;N&)H*pOM}ErYGFrTo@3r*!B3a`7K`ARW=aE#tq`#(fBg`* zd%d|3uxg^XanT~RRFwbT0vPO}kcdSApU%DrUfBbc4zMjt7ZB=ebZLq~WKTS`bEhI~ z_Ftc?5-Kz}W^qni<*~DGnceWS2vhdu1ig2PwDxb&(9nH^g7Vg7W=?l@t!3PB2smed zae%MSWr6J5d8e~vd4-qWxfBBViT#d$S9eZjbf*g=HBYm&$`AQBq7>W?PO>Jgy0Sg( zvhCRee*T!2T}~RLANdR?M$gr+HYPnh=L^!-13m7eHpR=o7NkVgn@`tVM1intF2p^8 zwq{8EBm17x zx`5h3?K^Fk8*_$uawt$C=-FTqF%z@yS%uw)dx2!Un`p@kNi~ zs(@97JP}1q&cB`NS3;(jdZb4B9U?qx$mZ`IA|EqwSRq1YX0^i~5cKFR5>*R*BH#i8 z9VQP|_kM)NPB&+O5ic$4ZgbW7dmdn^bqUVe8YsW2oAG&3qh*)_*3+hX2-rOs+O zB-j@Gbph<-5%FWyyrI1*oE(a0wryXMM=E)-?z2sl4($)|kX}Jf(?ypa@S&0Yr|`|0&vguRVKV$7#kfB{B5QB)f2U@LZl-P4 z=_$RBe|X7so!bU^p6=Dnk;@6X-Acxll)dmI&e;dTE^erEKgPMzK@akh;Ry4MBYqy++$>(X@T{ zCw?LA`S=@-jD6#pwCon%&Exf%pSS&~n_2vKik&+5n9}%R*4Sc+v~Xl7!p|}ngJsax z+Z?}RjGeXFN|X9+S%kuM>jYqfdoo&~DRKzCUGsQp4`C=bMTlmL7LQCXAr$svp1iKn zvhq8rOCla;pW(xWfbZCMc#>!qaL#Vh!Y+v4+S=)!9AGUT(~tdjWrCi{%T-JE_=9>D zloZT%C*g7^O@Z0V?3SFGTH9g`Nt{{T8-L?rhHO68{`_}A*$)eBULRebxVp#ngjvr9 z9eZ>r{fl{T^|=BRtB_6VQiLNul4DKFY=rM{a=W37fuLc``ONTJyN|(qc!%f9{8=a@ zs(Ak!FS(W3UVj7kr?Kbio(p}s;1K|774ul3v{HH}NHCDLshqLH7j`20i0adYD=<)0 z$DRj~g3zH?m{;bWI<&0;W1-yzXWY@l`%oou03dk{7eymRga&oCNkr$Q`}7!n`b$n` zu+tSnxldqDN^Vo7jKXfHzkg#UbnKSt(CZq#1&7G6G6!=4Wt5=H`_#$vf;#Q=>@u6_ zp~NCVU+!YMmD{?+G2QKtokzpmj>C(vSxiG~(1Vo?!g>=l`|!3utzo{TM1Csz3FrJ= zbwy_+i$wa@O*XkVoKSl!=&R$jWma1KEx2x`)r)cx1A9L#OS*gdz44brYLTBae!@A` zF&&;b7l_eOxrOQvH}vC3eFWvKk1v8!%BkQf4jL(Bd=%8hO$+Yl?swgdn&~j`x)xBV z1wcfa@*bc{a=y7}5HLn@4*{Q<4b5}bh$8<^QD$XBeM_fKkHS8aIE4>hyRHByR%_Fa zfKS}y1*v?wNFEas(h+rC z$r(E=MC1_6v5M=+mKeXxP)1I#gtovbAhYyyGN;~k);XFtM2v}43Khd4TFvlA;egjL zTQD~_Fu(?cTu|NVw}#)rF=%6JG(bDr&Ws&<=d;F!ZiUA<9^XaKtvG=)ZhasKE6OVr zlazq1{S1K1F>QMPpR9M@QCp@y7i@}$-$gL@)j|zM<~r&t9&XO$C3(0)y@0{|IJxkE zrIqW|rV8`qA-J#a0zi&zZfVr!4o>UbpitR)Y6JLKa^Z^fd;_VjGuk5bqWqNH_cVU! zfZ|c0^@d%c7D1bM@uFr)3m1eB`-;R`g)&Mxs01KLp>EHk#KbR5tpDx{_?QKKopc1~ zx(wcE1*MKz{R~Hgaxz1kW?m@1EKV@%OB9lnu=%4Q0ccI92q$f(99F-<^+T9kz;=^b zy68BithoZ?m@&(fPHlSeqI4T9f9Tx{5236q;s`HpVQlJK+j97OQ(#_o=e=6i()I6~ zyDPf73Pn)r_67T4?eYJb0_6p_alDM4k4yKg%Cy8RIdI>*4ztIskMO9v?|9JYqv&h1 zZO6KX;#4H5WDjgEo2(S>NC_!lal$F`7CaHy1)!n(fhhWxB5V>0&~QAX3)s}%x-^sr z1DoV=pODtNyZ%}2RK&?0+i1uBh{ zRsEpBU~w8*_c`vPtRMbe`eVD-*|o9?UbN*ti}~-Aq0Y?TBoKZu{oQ@NNFAOoS|oai zAG9DvzPumSS-;8KlUyhsiuZ$e`TLE2iF%#nmTeNJBY<4C#(|~^vitMxyXP!F|KI;Z zLir77a6^Rd`|++d?nBkIUGP&(n7SsB7LLQsvCUk{n^3^F4e$?b8OZ#JC5ZRhom0d-EB)M8Ox+Qq> z&K9qaWqAW*o`S5p#$3hRpeAn)tZJH5O*6%cuk>^v6cN{RmBJ5vvE^ql2pWOb@AC7V zv#s2gW`L}Vw3m>z+vwt!10@>>-vj4gpt6&?=! zg*Pr?riw_t8HFD72$YxmvYXb-!_6UmpCc+T*rcLQxJMY%$G-~RnrYs7<9QgV0DS>h zDOQcmqRS4NeliX$xn5%HwQ2}A*4=_yW_~Nw;TE?qX*=Dvr`qO5E+8%>(*-CuXHNbK z?$tleSc6kg<(gw?c{2Q~sAb2pcQ#largy#9Z1y_OaB(Y=Hu!N8n?PH&hN#oMunShP zVb?`+iKe7;amEyO&FD%kP$2CCk;+Ie>^j@Y(SIRwLt8%|y8t z;I3Y8*>y+@H~fXcGa~s+Tfk`cqZaWOi#>!}@J+N88jAH9POf^cJQriHyW<2-aj{xh z;p8$+7D<+DjP3n_cJMm(NrR5lva!p#cgU~<-i{c0$X(BHS6TNO!rWHXRB-rz=eP#= zZtMg$qetut=41_QWym+*>MJuutR!Va@(AgK!DcnN2& zELiffKh+jjY*&EVPcOhtc%nAcERBf*irJ2l{9FC9F2m%YbLy0=puu zmf6fM$2geOTDb<^fpG7iHYfDnIUAQosQreYnYH95({x-QkZ11dh$>bNzVV-yF6G#h zk+gKAMm3VRp2^M;r35S6+8_E%IwtPzeNI1nC}SY9oWE*|Y0jxR6Ow*f9!vn{e6?UE zM5q=cP28z9<2vqsE|Ig!4p_;&TVG|ssLH7xD_b$(PHe96$auHfDV3gUe`%hLfS1CT zB&2aU8?Heqr3dp<^k?}xH)LfCg;7i;+_BET9?PjanIaJfwFU`@cq{z!dVYKyTLvsy z8tvMH1-37PjCX1@gOw*qLnE%VyARi=pfvnNa2H>aqS06%V<=WOF;uO0D$A(R{aTJ_ zwh>65#95+cfQ00$ioG*PUy)~dTsYD6tr z>oSnT`Yb2i_0VE&@z?v93}nfpc?92ZxJkls(tp94pqnT;@f`;CF(HCh&N~N_6nC+B z5vg&I#A+A4=+pt1JQ5ET-t~yJefiZ+()7Stgm4ivp90Wl6Q$^yvxqn|Y~^~#L_qWl z$#eY2nNyBt|GT4IjKJLtY9GU_e9{G!FMB7pUx^HZehx{A9+n|Pg?w^=7i!a)h25wa z?VUFA7VMAjs{Bu;)ksCuGV2Mi0pEKKRnqpyvWFt@r&<(T{!?fAJKIO#(WAigD|W_9 zsM;qfeDtWYj@8h;kWu*jS!v#-4*d}(qSkhW$#u&NPFTvqXSix4`dWN4lAA7)Cz;=< zNx!>pjS4X6e=bD1;i1VLCoYy(Z5Wp4Jsq?w*U4WPc ztk!abP@cZt);3gc=QH1y>CstU6U$YUY0|BWf?GNeVLs-a)zMKRL>T!R-`pnd+_g4@ z8hv06S;tjysm9qRsO^{0SBt)EJ|B9Ojd32?+{#YEiHKWkF_gU#M8d*D1U`yVf7`Y7 zp=)Dun{|`KCAsPP9QXZQnNSS|P{rqT!u(ckgErdrOs*81D~@R-xW0fQndPR>Hw3!( zA38^5JU}uAf&U!u6bT}wl)&hF^=Gl_z=;M!xqC}hTD&~X0sTTiUv7%U8#>`qBOK=* zW`H!qevamst1;gK0^-a}PJqMj5<%TBsADsS4wVvam%b$SI2k@Ynx;LSVcq$-zuzz8&Nu2GE_z3o2KEMaR`(q}5-L9&+pZV2Z|IZtne86GAFo=q%413@5}zbS zrIJ6Koz0PjBZQ5dmYt@|Wl-*-Zlo-Bo{h@L8=0Ydq7n^<*tLR&F+P_`DZ4x9eqKMj z$}s1GS1f7vGeG!g;t6}IOje@h#Rd8*Ni3kG%eOvuT)fqaQT&lEaTf}e!Pm{3`k-AM z?sjm`Ufbg+OwpEVuI*stl7+fSZa>#<9|fSrH&W1_eAU%|TQ}GimxUVJ2+A^Km$3(l<=L)ef6h z{pC33ylEJ&+cr#`(d!Xik&9H%+!1=ooQ1}>7bZUq+;2v^nB9Qr0#Og1&`qSoi-6t~sra7UGnCvC3 z&0s%zY@(I;~zOA=$JzsivgpED$8i+`^48>2njatrr^DjShPv@r) z@+|Q#3{Q@da|KFl1mu z2Q#lDx4r*Zn5mj;!g4qIOZl>4awVa3SC5$#&0a$QzS zL2h;*(d{Lno6oqV8wkxQbMuSG)vGRwd(n~2-E>Gs7WrW83%m2Q40^1mpSV-#zKymGxrsW52Q<& zul{`rK<_!IWrURt!k-=#s6!$^iv&XovGH zTU$jdu1(>sks2Vs36N7%Euie9lEe{U`fKD>ofX%mv@&)bqNSxl|G890=}Q46nWf5R zigKyizo{D5pq8tVbh4$gs3>LR3N2R~=x@-Mj_vkf>a2JPjkD=+i`B{^;?9E?m7=Dn z?k$6F#Nq~73dm!!-k*)`Q9gJfYud>ry>8y}WQ=loKdy((C#Jbp5Nij^4=#aBT#q!z zREtOJ0TILC3!0R07@L;w2cN8_4O+*Rx@;+VjrAOdb^>cMk9Tk%$?`bBXzy@4*s= zO9%92Mup>6ccR-8=QLNYp1kn@maL0CzH1jWtiP!HlA2saYL5-BS&Nn#b@l%ntaHVa+`BrR#)(BumQ-^1-|R_tuyyhYH=>ctO-yVN|FC`csW- zrGU|bP4#1re}5-3s-hHc3l-~@5Oo2j)*9p;hhg>bUK`^RBurI7KvAfJiN{!|=lmsG zS30Z*si45Xg*u5lF%({Vn^c_a`~8~<$|(gj-YwH_F*?{U&a0xrI@}f-{Ge;%aIjK? zXCTfESF5|t7JO{bJ@Wc@#*Xe@f2SR`HQkqUt>HjeRK$6m-#;bu7H7=6+2MB%awWNI zKW!+;L#lZO)wge6SZ3a29ls>&pJPXN8Q!(L8Hs7$-HKMcxTQDZXQ=4Z702l#SAXC5 z_(}@)0#w}B2kCRwXl90@qjv1_TUv4jdra5U@S^R50^Ni5hrwtS@?271QC%8PGqmo` zl1UHO1AGV=`&SCO6rEWko!)QPrjU5H*V^W=@1{=73Dx0o9n(;QzE(0Ke!F1;_u2q4 zwgs{O!mXJ}3!l}vvp-5JAlm5lh@kQDoepYCY4&ZO0QEK+_w!6m6okn!oMZkK!nB-J z5~t=|8Xagyi$&`Cnk;|_ZH!miN>YE+kUG7)0 zy6=DeX9{dmX+DcnG>q+xvwr2d_J5Yro+KXkjgN#3SaKJR_U8gpo?6|Yec!Q)8A*NUf-9{Xg%?J4>xW|T%c>J_yd{B{YOC`>vuZ6D zOqWriYB$~`W3V9GD(ULi<3Kn=<9&P*SEAH2K^I_fN;|zhMff8H3vBw$u%9YnijIky zckJ;h=W1Hy-X8g#Bq3?y&|9Z`%xW7kWt3Zg1Kxo%%<3r(q`DRutSjBV<)|OtFzV(F zUuf|)MVD*8;#Ts(LEon30qH@AYIyVsLDmf!->A)Z!%^4vp%eG^1fB>(b}ers7B($S zM;9c}eNnCqw6rP{#0^3*382La7t;|x7yDv9)OfS#j3>^}wFLnA%%QC%qX-Ku) zBk|LUc0+?C+=yTK?usZ0I{<`$Y9H;6>q=@4;0P%_^sYM)F2wj<*0YX zj7VR;6a}^C%2I;VGw*Oics23vPXVmn=M#20;PbX~3iU9xL_-DKHaYt<;;U4WltaR3 z)`u%Qzu^&*$rp=|PVPWEEFc=$ zz@e(OYZuURS#^hztZrC?D7 zmYll2vii9f;&nZ~zHN$#b`OV=92UuHbp!OaK5yD|&SkhAe zja<=XYkT%>aq*Lubp_Ft_1xsSPt6Y#XpIg(K%M&;>}j>|J>T{cnzOxP`6IIfyIkz zKhgeE&L1bZ-cF4mu;}ISd&y)~(w@B5>+Lb^?<=X=LAVI)_eVn#))?L*D(quFgNDWn z8d|Jf%V~#Dt^rH<(W{GHiI-e&=`Qt1wG>4^bZ@z?3OdO^L4~bTXd_CnN{;XLf-|{9 zzr;H&dSlP=?y7U@0K*0*M(*Tyd$p5=vmp}+-n-S-ep)&E z$8mo*7nsrh^JC0`j}6HSOSk>?{zK1n9bFOe`~8W8<|*eKp6>q4u8x?D-p%G?27XY~ zuyW*sb?x@9zqegpMo|jC-O*iw9${pMCN3-ct-5$OiijfYHu1AXB}}Z{pbx-2LHD-X zf$oK#Me**OX*QdUM7KyFORA!wseRuepsY2IgK8(!Y}kXEK06M5(D?zkJ;T4=+p1&C zD=!LgO8jk(E3I)E@K17(4z%}0vuc%&=|#L6CI+Xu@zc8_&HwDYvhnWgzYTX_hF%$e z4$?V!)*Q(a46?&mjXa}p9rnuu63+o1#tC;az>eSJT7Tx}s5qDnV6ca``5nJv6xDP+ zB%~o&b)e-=>?!2^lAfKtUKnh6ZUimjPNk$llwAe!uqK3?zjy^WqoTG)QM21q;@dhA zAu!|}tE3l?%{86UPr|5&TRlP zc^;h$$>3FV&0teOe|n)>XL;hzyBQCdWv8O-yeKBt1DV2FYq*ICpZmeHJdNG4LWhOW2I>(Md_(!J~r;1F(^AhRB%n5oJv({JM+A? zw_>y(^0@WN?6%t0Ac;5LaOF=q14|fZy-LU7?XD_}njc~>ohQ4zvLpehF@!~2OlqzK zk=v-_l6I@a1IT_Ht@>8O0UO(hiBat!XDa5I>(d7A40psc=JOX*b1@tNMM^ZBC_Sc( zjzoFqh;udJV^pq8CdHUb)4pQN`a;^u9C1>cUpC?0=U zIvRQi5huCpLo<_mxomH# z?6J7Pnh$m_Gp#SgceTM;p(JigRbJj&?b5C5c+@PT*}pfwAGaqp*Yan}f|-r0SZ{m< zogN!M25r)0%M?oeMskjF;1{oS-~8*ndLWDoXX-NnGbo?gPWQt&=Xo4{X16SZp5#Go z<^{tI;cV>vvBI#{0S<#%QO^{8b7Vz*5DbS8B3W@H_B$>p3P)a)t^8%*orix7RTska zaq-g7gfo4(p?b?S=CP|1Pi979?w#?m`sO#WGUn*fpKQ6p5FzPaJP^!qa$~y&)J2rW zzO;Z%PPn9K)c%NV({_=SC8_I&;%32s&sELFTTxM(H=SW?_rEn=8>jH?3w*PY#FEUA zm+C}7jIsUyDs=TJ-36EnC&_71y5@$W`ig@Ei>>@pae{+4gpm-FD2dfC36|}DJ-H?; z{HCb>K@$GyxNM$``ksha^x-ksjBfmqG;*Ot5r_6CZl_zv&?}oC?!lJIO3<=|2h1cd zv@5S6g|a54Jy!P5matxgx1=CA@5|@na^Jmt;P&86bZ!xg&U;MV(m#~?W zOQCnWR$*|0N4xZ(nfZ-`s|BQIu6}r1+$U#LGmOY+Q4WQP*|YRp|R6xfl7P;xZe&OU6 zdG~;-iQ^UhCjoWPdV!?t ztTWnA2AmWPM7bS#S3$Y@@C+7lP!%47@TBs$7Sq#I6dSxCOGh>}U8_tCF&z80awL;i{Z&Eg=bE#e;~iuQ zHZG==ZK!SS5~~YAyzeQE;z>%r$n97D-E|Ua=3oe0pF%A z#fKJsu|tJnu-*7(F*K`ZD>UPPlXl{e)J!4I=l1ZOP)R$_Yms9}%m9`3oK($w#MPSX zw@F*MO)ED(?O*R&oD0WJ6(E;HT3R#4|5n)=z&N|Zo7?A3`WEH+dLi_yz*hI2LbD=SO(QUWVEwvGNzv_oue)skT zZ2Rj7T~6^*ePu&aA z&z52Q?{5jS>f3GM7k{~Drf|z@p9t6DUGxKXClW*uKuhYmr&0yWkp93t=KXNUWig=9 zY7t$DNxS1|hqF5aMln~tyXM1r=@1W;aKom%hR!qCD340q@@nGmo%{C2AKgYJ^)!>_ ziEsy*oaRnChODjT#g!L2>fMrzKzh*8>f7Gl3)}2-452>E$I#DkVpZwAx6optl8hH^ z6GZYJdZ9-ObZ`Fl+qT~Bp9Aa}M^?{}c-jKC<}j{fqEMx=E{Lc~VXG}Clc+1>V*Dy% z@|uFim}#Rl0o*^uTM#BU_4URD{Cf8%-6f9Ke|0<&E-z#>rf~GDwZ6=*&P^ubaEsC9Zi+>y} zPy!ZE&m4Jj`1v9#Ac2CW#> zzHHU_MY~z$w~{kdB|E0OOoy8eKnS?s#APz29PI-&*EmNgOdQJ#_9D<5Nr*}&n{8Rj z6wefavL<6wsy%ZcWf+0|BL$MK{r1l6>7@N=8`!@g_jLY)N2Y<)yldAf+m+#2PK&3WP+tZv68eHWDp8QND}Ym+O|y(j7J_WpD6!i`|%&w zsjKy^!CsoKhbA993b9=l1RX=G2;!zqn=GSm8AN}&RnP0XvWLwkrKnUAahpmcLh=r4 z)PJZ>t!$`n`FE?eb|N(%Cd>XCuXu#^VJY{C(HO@(cJ=cd*tZ&WCBUx#Eh{qPp+)#` z+-*|F&XDd*#N;R9UBaD8qK*~fX=*qjvcP$({elR=ZN zE~a96hO2qx#Y-`cmXbBem2Dz+R>QF+TJKZDw47f8x>_HMfWfT++aUnh07cVrJF)=d zKqJ(*k>kRI0&;RGMSz`w8ji&fmx1zdeH2|uhhProY4`MwOPWTsXoLk=H~(meg(*HX zwdp&ujZpS;1yuWr3G`(aD#MlUU&aNsJb-%)8;A>ZX_!4&^1_3#K>?YKjpV(&C*(%y zhZxZm)EWL?EAP$N#!JQqt`$k}O9>gCxh1a_#ngN@UIm4?m!O#fv+EQ?-yMCJ)6r`d$!d^+Js}@>$-fvn+k2?dsmn8 z#n$)t={f;nrjl96@(oXcqlEl`L(T2k`V?*1?Cs2*1`E=h0xKaK^xf^l<$gYxr3u{_ zzn??aAKsdCKjGC`%&(U3mpSGNCmrSxe~KrQsEo8UT!(ebNcgR2+xZ;wLbz}pE$&;5 zGBpFD$f^_mH+_eXtaQhNfmB={58~(OcmXkUVoBkzD~#WT>|Xum@FZcOZ8iUL-$kA6 zvFt(x5U#9k8oO-WvukWgTlQK17GA^saACJT8oJzNShQH!K>M%<@?X8O<|g+NBeI!Qe_{!@Hqth&#;o3UE$U_fSH&v0tvV)LClw+!%7rA~PQ&#)j($9lx%LS=JrHNC)Y*SZsj-lJCp=7>WkcRb+35qF{N z;qKh$F-oy$Lzvl~>c;vme=9X}mTlS*Vzl-o3A+IhEJRT7eJ_-lLU7u0nsc9`0Ud-IjXQ zKBxN&HU~D6e!CifGaW41Y=xsMx#~Ve<@UZ!<*liz8Q2NLq02^J9TwRlwZ(PP0D2cw z3HX4(rzxqToB4nntLQ>*_lZ1RDRfd*iq)rD%etl>xo1=0_vr+bRk`Y3A6M43I(%RY z>3tJLSTwTcwcY*g^cVxuat$o3U|Hqh=jlsN6cvI&yiB?x1u;&%63P-G=fdv%CR>=y zNCaUkOyNrDGusAvW8Sdefy0GvNf8t!j}nm9GZUyLAPzF4m2^cm$WiVMctM;?)esBG z)_T9mDHK^kk4CGQ0`pD4+;DFT1#rbDiA?^{12w9Ik>|lJ$}oaDuj}u6$1z7a;Ng_H zJl4Qxb76H}JBB_lr6!7LQ0Q<&M=}f`#oK8ZC6F>4&rZ9$4n!RucxOjcOh_onJU` z!Ks_Yqwvf@ACnNn%WZi4Qh<^$0bQH6XuRE~jHfDqN*%o2{rSRp=jp-=-fEmPr<-+3 zPd9go7L6klD5GKYbR34;%4NQ)=iGGkFc3?@;&}!W?<|?8eX}r3&LEub_2t7_w#UJ> zk>oYaQXjMGS{G6;uzg0RM{CFSP;}C+ys!n?0m}cC4PQS~n|*UgLuXDfroC50A(Q6q zM5*&mm}gy2Hn(v6x*3^^6r;5JVG*xijj35Z@%63se)(rDoZlmyj<#zj>fj55qh@f? zldXnfp3SCyE4ODOy^Xy^kR%vt&L_|!ON#YVQ5-ezD(AKI zaF)u}P2UKwi!_YT--s%A5jnJO8{f!&LP(pOK4u9|HMp^&V*;OL3I4qOrsMSb?cb|o zyiG~fUg*N&{ix4H-sE%F9jt#*W@Ta8G9EY~j6+UXJ-%}Z%9Qu;bA*d=v2nkg-->zR zgKP)!jc9wu;IuP!Av>4K&*-HmF8@eif|QHr?iRVfklta_}IdcVo(H zYs5(9Nragv<@~u#A>PKt$M)M9taU$8dc0K$6msp9`HI};1B-WE!0#gmZ3-%O5lSk7m`u4sDj@cY;?WD$A4Hs>KR*QP z^|uGO?b4GnMd<>58#}c&Z+1_WLcW|~OY#yfpy6htvG~az$0I#&N8v__+y4NYoV1;& z4F7Vm*UFhIB`TSlcekND`6B!5Y#ESsG0dBNicksMgf1Gx*DMP-?%MKW5xxLn zc6X;7sAh>2rLYC@vYF`HwY0fVI*rMh2;95!k(V9k6wL1u0-#iOrp>xz-MNMdavL!| zYqpI64&j4$r3RBM=Z2C6a^WJqx1KS@jiK7y@qNeova$C_j+Mr0jRc0^=^Ri5{JbKz zl344M7h9VZoYc6zUMlch^+EIpa$nc;sqLzJ^|W@3`Y7gu=;5|wo5f`~&Ql2#;j|6? zjn~&L@G!L4wcXSYa75{%Ozg#Ai|Uq|Bw|!QR51ydeBZh8!?~RSnQe6m6owwciE`Uc zyFfk75ao{wMASWZY9YD(lnDSOIhn!-&y>Q9d&*&x{vS|=Wn-3?!GtwLy|GD<(ua0nIgO#-{dZZHwu5q)wg8k$= z0*xbko1c+jtAtU9{dLt-{jISq#7)m&pc3-C6gh=667aR4P}R>ba$oLDl=qc$CVHJE zAR?@>o-#RCuVzt~fV$xR{IDF1WecL-rZ$Ia7AwvTvR9aMjJIUZ_fY?YlP~fq(?HY| zBj(9x_qNQ~tUT9i@0W_1IfhJ5$-(pBi;Xf-_^ClKv?AFEt|xwWp~jJbxS-0100 zV@!L0e_(4aQJ6MGtCbRkugr){u~>O-f zk4~9pY3Q9nxFk74!pmH@L}?!Y+FmG_;z>`q1p#ywXvh2dUWQPbQ_dFscxQ31aTiZC z>kNCP!ftjjo=T>%FAn&D&hz(%-#~okAHCH;1hOyotA0jJj*XEWeNFW<>S;(v!Tvo1 zu_I`b+Pmh5u{$3)-CD=eNrDl=JWAhCQ+VIKdre`Nf5#~YCCr$>NkgbEf-+2~GBWXL zD6NII0YU+x1Q)jCePjR4@4j18Ge=6|5cZ)cFnGc~K*aF(pCv&(fLaXP$HtLA@=HA(Z$w#dNrC~xbX8w`(s z)WNUucdEHc*9X6$*WEgJ#<>*wI}V0Ynl$bozcGH}#Vm)b**M~w*FgMYAWQ#r(e9Af z8ynPf47M{<*H_j!f0Tk$Gxl|Qv34vnxJ%4Vh%P5ucC#MzZ^z7rcBM?LeDL0Btr)_iC?*IMp%>2hOyVYO6g%fRWVf4yS1IV8U= zw|vZA9WilYWOw7Q8;)5UrdtZ++3mb2vRIRB`e46Z$_+g=?|O&~ZvUm===uDDqsCSx zLFe@LnwOI5;?e>>SjvOww28@eIn#K&=VN=N9JG;Li_+FlAT||Rkt2(a6sV_fx?g`O z?TEF8nlwPpl_T7L`%TRP2jRcI4R&JRVt}V=&;_$(U1xX$MWUR%UW_?8CO@q25RtxKm3V?8=3AP z2(R3yw`*OT8=Ka%|K+v2TU@z9?o|#A>w*h4mkZbzoR=YrY*Q)1-TLWa6Nrn5i;Tau z&uXDu9C8Quk%A=~2QUBpB)9VWd%Iy~A_wafhRqS??j1tNeLjOAAaV;V`foRGzBV5H z`~^B?yvO%r^C^C%#T9pC1#IYD27?hUt&>h2Q7Q2W9VP`%hYHrIZPxs7#YXxkJz%OI z3=7i~SdX0LDu5A2BkdzPb@kLNNJ&tnx4)TKRkCaUr3l}T3|o`EREP8#EnR8CHiz~W zeJ$TFDArxQuSQ^jq)8J>r>3}6E-oFL3nn>$F5#rjiPAfZj^ui{1a#@!k7pHWP3o5g zlJB<-__-XlC$eN9wm}tSsgOv7KnlXS%S=C|Mj1rXi6fwWBm%V5MNePaFzr>pZcyu$ zne&m{v9;P+iFqYI$pQ2}69MR?O)fICOBHLug}lx=V@|qKPZaS&*iN3*s7;q^-!HaZ zuidzC4{sgP(%f;^P8*AE0LzDfBKX??LMjG|>&YL`M#>Bekg)h*XBal^7M}elKfIDg zP0YJh9q*`_rzrdzs)jt3*6z?_Acgk}nUc85#Er_{M}Dy8H!b#1MkvB4our6h_UmeP z+Wie~a}2>*Ac8~_(b~UNLMaYHfK}|u;2*Ya1w|~SvR_E+=TcPEviNX^efw6OooDm7 zVPYjQds4VltUN0sDuGZ)WKL72iod#TDg)hMK0R?VH-d4>hCb!3w8zF192v_)UD8z| zC+5Y}FjI_!?H}}TfZL7P|0b%gtX2JHQnf>AizN~Zr7<-WXswuK znB5wUZ(8iC5zYxgx-4v208G?rGyw#Ym zG5UQe!qo*~nh6nK4KwLVYG1?O=~RlmohG8LGIKJ7fB)KhRT`IbeD!n~_Y^NCpBqI9 zP?>C8ZNOt$<>(C4-1fi{jI;4(uX(cBH<>4SB4gcP-=a^W)BPnE#uPhC4*B0-|5yS) z)VKJ|Iu9Ly@)t^Gi*i#H9jK~}o1up+#xTSlo_$^uaVZFAR$PSWfKD!j&}JN7r{nY# z0qH$^956qWB3zIs@OGRVrpG|~1Lr|}J7ckK!L?N0UBrkwObz?bLHHjNbK4@!(I)29 zaR0Za9X>YX-*U36wd>Dlz!ST1MTYE@G~&3emB9#+H*VpSEcJ3As7=CZyd_OkZTi1yYIB;x*#1|{+w=^ zez$?Y^3!QXsc0(#=B17#&vZ2eroXb9qRZv?n!n9GHs5_`4RxAvP5vn)+t@lG-bE44 zeby69d+l7_=HN;>U5now+t<}^-t>&@;hnDg?K!sUrpTs0SuT%uvQ{P`*s1X7raPO= z><)i-A}};8EcdVl!gc!n^t&Or)3}a+FL8q24d4EGG7BFDO^{9)3f`I3vRcwE1<6cXZi;ZhXMoxy3IHvRVAbrZIw z?b)IcQ=r2kt(~xk+zjOAQ@#h^gIiwtH#1^!g81v>wBKKB>hOj>6D=Qv@2Cb;Jk|!T znTPkJV0p~d>~?;jJ>_FZN`*UqU2)hBbH^!v^Ajx_skktI%BL`5L4hAr{?$+#-$UlK z3x!PFP~PM6YNAC$OV^e)w%^?@Ff%dR;^hSk{O)tV5dj!$wIomUMy?t`l#NSRXUMJn z#VF>Elb7V<5zVQ->o%7!8KX=1lMkHyvU;tkUy7pwkGf?A9@l)O>){}>7Za(8QgCXN zn%2_Hc7xw!_kXP=lM^ER>?^WBVa&|7KPs@FJZ_!D*^2}j+0A*w$+@ZrN zsb4F0PZDctkvS=)(t4)f0ZH|Cx>q&AO$OVzreQy~UVZU}T|Q$n`03D7w6q-i#{yCn z{^bL<6XojD9h58O2f4wf!NGEsflxZs5zB;)VnEcyRKN4dsm_-c@y<-<5!Vxb0ez2N%21uSqh6Sc`8kHoi zkyi2@O&?9yn3Mmfyd>TS0VD2?ZkK0~pV(RLJbJ?LiEpUyrLFb)qR~JP^*YKx$pBv6 zK+X85UGZmVZC$%vz1iWKZCFbUC7c15Uhn=J*SFnihbQ=y6kGJ&^Tyv_AV2^9WW3C1 zSGCDD$EYa%1n*IeY?F;-NrrAOcOn0hztvAfwU?!u)!*I3tf?(QU)ons?Qp^r=vorF zw3YXQx30S!UGS;_%)n;{GsRwL|d>QB0IB?^WMU)h?7+b=khTia?z&<;G~BmEhIF`dl>Zf<4$Gv>;ky`H122ZX^ltvHvwUlw{H4eLV&M#R|kcgV(yf61g)YV?vY%LU~ ztL_WF5~Z!7Z&L|!h#GVU(U<}w!QPf5sL2|Wj(x6!H?L%;bKw=SFhccUo6DJ+q*wOi zbEXMLGO2AOFsUAdT#Nba>wq|OTuL!7|~g)UJ7fU=IE*{;+@iJroCTT9k)O zhUC>H%1?Uzo{t>cY~%A$&--ewe6=ob_@FT8`7dG7%gfI_>tZy9vE%!(tNs*Bz&E{z9HidQPqz`3pB{U{-W=- zn-@Q7wl!&hr7)};#P4Iv^Z!`uqTzfF?~T59ay$x!wnC~PT_y+pFWRRp1+tjS)BndWZjHRaq7tq9u+duyhqc6TK3oQ7$TY z+b$1;)j->PhHSwI$`wFaG7i9Nr@?a`&tIO$r9>y>_xf+&KNw#<7c^hxR`Uk&MbpHJ z-)E50xw2A=e(_6LmrAe}j1Yl~hWwK8VHQ_;^ZSI)%gj7wiz&a0fvj4ccb}YRUocJK zq>zfMu3BT(?FuoDEB9X`3ED745;wd4$^Qze3GhZw9EsSnMh-y8GawB%e04J~eYVVNUhkF*4nX{){lv^EFfoU*&&7t{wKe^HtNFgMZ$VH_BiJ?kj_i!gTNn8eOrg8|3Uh)G)fkKtx zFpF5oRIUsJ%pLGdce^4?XqeS;2k&Qa;Q3sI^-@LNkcfKrFQFsg&q*s$o_9{t=L zKKimggHIFUrWo^{SmOHpbO6=P#-ZlqDjt0>Fxh9)y@iYY8B$uAa#imfPjyEwd@tu@ ztFgBpC=o?G$Ejqm%+i>AITp-2kZMujQcny`=VcXs=i_hipEI|(8jmh4d zQGG)o_lurv@^fUwi>Qd));DDUyY-a?u`;+an2iI9wRv4K!f4t=mQ|!(NlZcCgN!@v zv=o+UXTp76o0K+Kw}bMKSaj+)1SHTM0ifncvQ1xKDZIcJ3--*O%Spqzex1qDDdILp9x5=Ot8eH_S%3qiL^W z$2#^D68hHl_D-g~r_%?q+$qM~5CfXR6{?!wc%9tTZzpx?I<@PO4>67B@2is>4K{U$ zj(2IUC=d7ac#&>+2BSwLR7b6nkffpwQ!YumrnAo$rvpUWiNVSj;tRh^C`_f}J4i2s z89Qm#CSC_a3uc4<+e;@Dq)cYP#&1_K!Wq7|5VidF0MbUDFd86&?O8!;&wOOd)cS)@Aj{#~ zTUKu*B$X2(l>^1IJs zzY`>Tr3)QST2%$vZ&4Xq_ZvrSMotJ8nJx1EO+^iko2z^Mr$hZsn|=PO_|6YGb;AZo z0~R~>->{%^8ix%MF{`NEUL!jU*X&+9K7R!7$GZLVT6BK-W6aXE4-OC4jejmi*47iT zIRVkOfm_>T*3|8_Spk3M3+8oP5I)7y&QXNP`~5%E`g%{u_4ns%jXTD9BcLmDGQ2Vx z(y2NXWv3n{Tv9+y-1@?ddnKuJaAHYWZ)X$;-Nr5iWcmKPSRxk?X|u0g*g7Pe1EdQu z?<1h2VP7WR-FCgdRlD!p6}?X7d~eeMXQ-S`5A{I=ZD}$xwHkLpYM-DjgIrbr#B8=M zSJ`55*M;D*XQs17RE)TZ{o+~_xZeM5p{3Pf@}x%us>yi=EAf?A;rFX7fMbHmcb;LP zDpoE#BglZ20OLLOhR%;F#BgzX7XpNzUipvjrz`xbyjyj=Z1OsSB7g>Hf18IfRSL|F zSwhyLgNIgG0*mM`%gm;yC;JI~?_KdJ@BVO%cNy;j{Y_w^nAmJ*FApD)tMJvfdEDsZX}yO51y%1DyBplB?0_a%Bk)4G+L4zh`}JY zP)jPQ1IFQa|Z;a0g`yKKqMh?$?{duX|^K9Ly7elvzd!+pJ4k z>*qsZ%UjHk_Zh%-7Tk`r0Zv2y;VH3ehzp0?Dhn~H-$-uJSz7V^(;C&69;Eew!zzY~ z5tFT;5%%X0td+kQy`-$g{u2XUdDa7QjrX#wOBFykp){VM1F!$3Nz+V{mo{K8BS3r z24Wm{G9q|3r-}wg|5FlZ_mM5_bLi|EW(X`2jMcVYizDe~Cm%$># zj6VV!!0uo`93qOSsyh^hGNH0IN~uv)iBmcD1B6*DWK2Ukx{lozHYbUwH5wew%Fb<) z_Txa*o93^7;8YBWGW>c5qe~)TieEd0%b{^!r!=w=)Ap34w$bc3d85u&&90l7_={pu z^o+K^J|Sf0)GH{8TO=r@3&byVvMxo@{Wd1jjv^wXax~#Iujh$Ve$RycdWe>WK-^eX zxaMf+JcS)H-!iX0?a#d)YXA4@3(3D9-6sP*ahNU&;|Wv~U>aF2<|iwoB+NDPh4Oc!(Xv&w~V=YizV#$UiA?bN`%`;m=ue#} zBcKECY<=ba&U0pVBsJ5~?)ufb&NG;2AI+dk#@l-OY6-kI5}-|?FwpwsW)7@ZaIft| zc6PR)zq8(i(|+K&o{kDah4ypfox+~@gh6?mDjIR)wfM=|?h?o^=+m0f+2hFz)$rFsd zw_Q8#iDI-6IQZy{L=_BtAR5EhJ$8i-<9 zUqi7_ze;u|a+NOH_BVbhF|mwbt=8SP*G2farv|+|Xm|8+95#DZyx328l&ou7#msJ_ zH>vx-S3B(dTva0%xO`5s`W210nICPe*a}V>B7Yt{U$|$>E@Vp0klaTpmn?5A#Ei5A zd%|G~4QmUC{HeQ6m6tBNx;ilxt$!yf*TUttG?>$-IDR=`z%^yk`{w-aL#N_)`m0~= z<<(|f^9%!A{vaUE)e%$1Urx<6{aHvhZ+|~*dF0yq8WXSMUa|A-(6S(vPud} z*Is#^`gcL5Y?=%qans7vaDcXKnuY0}i2ET!)8J~c2pwBt#j|mLWi{U=$2UsM2`Mjq zQ?9V;zW=AdgtVIfs%{gAX1+1YYxuHXM49P_eEndFIlnX`pM`+Q5fhj|Gq{8b16R?NZz3ImC*sj_KL$dCd(6? z$nnkLUtHy7F-%zsP`d70H;mKfjrU%+fByWO@;)@Ju z)1Dt*6XzNdyNdOK-YFzzu8F$vO!>OKZ-Z_@o@T|REC2cHFP>f$XI^8mX1ICU9dnX2R& z%&P(OiA3Rz?zcZ!YY&}0ij~VB6kfeL@xB)~EMV74c|Qi5QT8 z5Vv@*A0tELwibW#3i8;tw-CBVaIK~m^=f=vD0l#UMtwEyTB@&4epvHmGw@BVGEugF zsOpsBWGlm4lIsej!fZB5S2ix2$dC!X$ zI0h7Rhkz`DL1_g#Ma7vJ#eVbN$O+{xpFy!GiKyH=No;lGFV-cl`eWM{3s&82EvJ1W z7s|=WUmb~H@!k;s2kQd$yODv;Gk%?PMPiJUOH|;5&-s;(iezzi-l9OsmUXT+4zVBF z$2I5b{{s>$BbT{SoT3i}Qw}sNF&CF}SXrv>RvU|hNjQ}l?FP}O+q=eJ;DHRtQy^pTm-l{zsm@ZyD(D zFE-AW#-rfr(1TesP;A~f%^3_^<+4l(Q+*7X=r-ku;!`OXa(=MNE})zhNFVqfB0+@! z2QvcjS-+f%*It;hG-t1NeJp}0-_8;(M0O~g!z==0SbX!r(4^?Td78& z@mJ5_$2`s_r~>Skr< zXj4MJ9kaf^uGgG=1c@|#%8~6~^9t||MU<+k?P2UEo_@aA4!Y%ERgp8h~xn*IK)*Lie-3HiX551RKpT!f7*q(kH6Za0_(;g;N|8g3nEL>+vZdD^^@ z>TE$GJw*Rw&XFy~MIH`m*@?iru;OmHtL;Yb6%sWJ$S{xs?`-C|*e&hAd#n2&$~Xdg zm3yY9#1z6TL%w*l5%*q^Jox#W#@dQUvVAFwIAzC_&4~^_!)TB<`hFa^;AXdQ8}rs} z7)WR2ptl~ESDbBqtBDVk@-LMmEs9AQi2kkjGqGO(>A7EXc5oFz%+44lux#QHt4QCi zfwu-5O!=5|+>hR&TRNQ%{Vao{eHm1+stU=hY#kS`m*4$Z{B`ux)#l50Pju|d*Bpf* zp&Ck0=4AR;;@SdzT^Z z65F|*Dj;$^AlF2V9toEGOZ3< z9iI0Tl}aQ9h44)#n>4z5eL(H9{uw=5aURnYOL}2~jI%bR{{WV$h={8@%td<0r@~2eGNLlfF5qtC;H(KM(d;I}ZT{^G#X)jJLwEP^?2V{+6{>O)CBQSyY zluXsgWnz_*nO9gSivAS*)_jzs2O3Cx(AXefbzpu-Rx*{7{d{?`7#IS}FG%}El6HhL zyUnePQ|7(jK>)d4AeYFG21o3_F5;p{9_*BJWuPBkJHTh$X9bX#_fFuLaxPyf7Ih|` zEL&#K6d2;|KPY)FL7u>F6Zl%X?@S@wjLmvVREjSs%YVIkPh7zvxA)SOKZ7?7U))8x zVr{1MFR&sWh6?C{txOQ&?fL19XY*bK#X28u?UGq4qqVBtsTRD52X1)kY@z5PSAn(m zAu1*hD5N->fPc7vkqkpWh(M_Z%#47%$WkSwNl?WXY&0Pp>?tZ^%x)CnUW5|42eIW~ zKqbBSxQW`Dg?Z&IjuFXd!{A>dRgF|Cl-2$AYOB22b>W6*Gb(*r3Xa}f?{fa7I5F_>!qRQ)T!#iU?!GMpG}UL@g%Os_sc;QRSJPYvcJImxeWz!K_TRa z!Xz6h`rI#fcZF!x#ibVTRh%Fa*)+>qZ^>pfrkj)wkx@k(T<|S-2{M`jA65h{S@H`i z9+m=|4yo`<+3HgmAqq>XU%?JiSTuAtglp%LjUCfVPuIfyloGtU@dI=!Mtves!@TW| znNxpZsKg}*qYHtDjtShKx$Qiqk|ulN>+|1Xi<9>b&QUv3bg-nUkgel1VTVc)Kzdq; z*L+W7ruvvuY=@b17eAWb>rzw$Cw1p%p|KLCjCfl$n_8n|YlDoVmsyHNR^Ns@n)sQc z-rDf}G(Y$~{(1?iv}oO9D}KhU2j7Z6yk~i_bW%ux&ZfLX4xHXBa;fBT)PdR&^>6FJ zz@l}9N4o6D|NTloMBJkiyo;S1K|t-m9x#PtiZfH25N3zShf%*8qi!>hH@>^HO-<3w z@XNE_edN;hsYLmy)BSI@c6Q$h2;8v;LK)h(SA~wLEui0-W>gg+mZ<7R`UaaqvA)E= zYD$)0EN$Lh;l10$_F84(-m1%3Jmt-tnp>fdIgxwnVZ>QHzT)4E>XqTDOr7Pf3Mah& z+ojkG&WHf-y0tbMXpAPS^81gYS`DpfT21N=$^(l(0VVu($KHG1Q>uYB7WC<5ef=Yz;`LN*ArL>FkRomoyhb4gRgaeU&Jn zw6j}yYz8BSzXX9WgvLK#yg}ZmNY!MuRMdSbj_LYz*{CB?@Hv{_0uw^STBz9Kc{Itn zIs!^k?ri-XGEAQo{hD33T%43`IcKs<(eh;6*wFU7)ERsk^pQN4(?-itpTW6XWBbBs6`rRtA)U8Bwb zgxqZIWAvxYh-e&lA))@bGJSf&BP{%JkBTv$OQ(YhsbdAcRr&GAg3+?dyI@;x;&d1` zg;Lqv-a z2>l$RUk&L$1EU1u>iz9RwJrt_5DAyZIIJwOy11maDy_J8CG-iS;Zo^d6f$|DtXwjz;^YIfb=M+ zx=lFW5jvUD(-5E(%4=)bVG8yz^*H7kQ<~aE4G%VBIsV2u}AtW1iTU zY8b{A9+s1Z1iXErke;0qnB03^S70N8VN<)QPD5>VBZblyPB59Jw}8q*Pj|Ey-3&Dj z72{i|Y=T=1g^{}MkV#l|{H~R6GTZxag7wzgno}Yc8MEyevcXaB#A#)SJjurSz<&o1 zkN{;x-eKBSr{l6@uynzZhri%d?Zk=-gI)Ev$N3*gYR2|&oo5W6J_9J2+O3~~%BT$v zZpze$UAn$$7n()$@r&?FnY1;H`4&3_AF9AcrwjXd9edF~Vt5rM>zh5hCY)MooxESn z9mXSe*He^h5WXc8)3XET)iud8QwzsVAyDYwpWmJhX4yP2ad3(o>f6}sn~|~Av;g(Q zt+b9jvU}>3(|z;hBQoLvv%YFX+LujDH;bDXS;28FOf zvz4IWZ1T#m5+vD;9CN*t@}U@CP-S5WqBN_2E1W0t`APO{-SRBV5VR@kRk#eQP`S2z zm4NY6Pk4V|i)!y=ubJDn9OZlt5p+qpgQ~6Kq8q<;e@N#*e9u-yZL+;|-A8TOKv;Tlt4{Pb*0GvbWd1 zokr)*SZ@dokP*X!4Aa9thHg~%U$}MJNKPAEKNe%a;-?{^)KM>9Sff7df7xV>z+0_d zDrY^HVlzwn3B)jQAdwtwb~o<*;$)uriC)t-=nP@Ot#Y6`>U@Z|*Q3TC^XrfcsE+m4 z=42fMa*kL~v|1nv;pqnUy=grrcYHUH4Y?_#P21 zc~me5x_BZ*;8uLu%{Jph^K(nvi{2g;XtMdJZ*iOO$N_V(b60#@oP#$$A5_=!ex&8@ zdxpu8Vgyv$Wn1q3>3J|D6m2aY23qiJtz??PTH&}S}c>5-k`(r!@QD6QPr=BF;=o? zBl?jUU?HtAn(f!G0If9=Y5IH^agOOVy|)7KMji}kF^dYI7z7`eEWa3NhlSo6QMyT` zf@FaQF*k3xdg~@WQQDO-dUy1_(o@mw`YAnE|1fliPDa3x9+m>=sXP^}xFyH=*)B=t zp`_zhZ+4VAD#7ZaNF=F-O0K-&f^^AYBK*wz4-)5df)sezPIA+q4o^+I*9;TbH_r1c zd8?@wSx1_QU_1i=$zOoju6oRaWnv{+<6c?DL+r8;}^>v_3eQd3uE&Y z#^{L)QFnB$_vhWw#xk3y+h2tNj8?P*nQ~YL!U0|8BH>rCdc0>aYjB4 zR5#dE_;4>Af)J>M33r`&eN~NK?+SGH!=Xy!h19X{b=KTqWvsj4P+06YOP-Pl9RAy0 zetRn%zT2&dA+vNjkq~W4Hsz~t;K+*%L!GC+NSZxILoeW+r@IQmLVI9i3}@u2NO=LW z-iuTeG~xuEaB9E1h6SoWb~cX0qbKm6X<`4JiNIs%>{7}Vbr>)NiOca$^^~cBk}J@V z_k#Sw4Sz!Zt>?tl&Tb~8Ui}#9CCq{l4aB~p%$@a9-GZQTnIWV!6Bf$6~L5&%HJ{U8j0A$;3qtN62iA63Fd!l6{N00XUeY z!S~aMn%8KhtyU%QcGL~yULC+h(*o0@iD5w7mIA6YnSSSND) zNITZnnM=^nB%9xXV7uKfZA#AA=nmN~pPy*uJIPCquD9YZ8U({sCTyZqp3#uoQkRFc zr3Ls!yf8mdv9&qt!~VGD$KFsx>)AxEX>G-As1dLq6>ABUA<#!Z;vipeqh zXw@&51Z^}D^bWHy$7#|q78A$8eau!Ik0SclNH&<51>Z^ks3BY>Y0lkGq!K?AdAn={ z6Wos)fD$G5Z(2i;!B7sml>M4X`}?t*P<;4=?DzdeI{-~G8Nm^41-aSS!rT}CMEf^4 z>`qsjT9;Dj0JOt2S;Ov1f+OY2m7n*yAl$pF2qsLa6eK(|G<=<{7a7Z-WJ~VxaI*=m zx??VWIg$2;>&J2o4Oj0g2yRhtG=dOLA$>-l30>0|@#zA+nP{#2l@UZUCO+dfnnf5z zI0e%c8`m3M*FdrKjr6k<6ALx@mA{$4bt-P0fMMOCkKtd-VO&_ymT-f@0C_-n&8=e{ zrWwuFp0Ff+bN##S`{ke5AKzXrDnOv7P*;iyHdys#U8|n$g6KXHs~|46#cSMnd^b~< z|BfC)LhKGXzQ=50iyizIqi)1;xKMAr zzclplN_omMFL?0FTt`XVnJs^C)Lwj|(6#zD!bC+g`*_#=*TVCiC*dkx9bt^ltAT5$ zN7cQ|WpR>yKb@i8nBU=Fmr0}ElK;&7{e_y~;+!m0;E@c1SlZcfEv;pl0_Tm`t^A>! z0H*ljomNEkD|a1({=yV-#X)(ltr#RTxqbq+pm&JZl*y8JRePxLylr_BNJyvtb6WQv zNvz@?{EvlSQZ}MQ>$0!Uivq1=S{L|IOq@*<()gdDreTLsNT3EyWxj)oePO*&5}>+j zzQ~h8FK}6?dkl~;L5sBs(yH<0wJRF-Yk&W-{wI%nPWKtviWxi%!MXZ_E4~V|SxF;i z`^39M2WEz0lX~wQxx3HR5tIUmIDw@6$BrK`TxGI#8RBNU>Um18|}C-B;n5n~z52lkDlddE}aHud^L!U=g8C~a1}Icg4r*J^aLtU6F^ z=XE|W#HizeYCRs3>mxH{?{rd~O~X zj2u<~naFvW+dq_Cq$k<)7MZdpQ|hzN zL6axSydA?@B!l)w0i%N)JlV880hN+BSMcwZKsioNF%zYtgIOY0Bg=6qwIAGkmr8@_ z!-?s+NzN+egw#i@-Pz7Aw$%>qN=l3XmXk!~!VRG0$du^{CMXa}5;X(ke!QdL7ILLr z5FpL$B*;=lDn<(f7s(R>2l@Ajs2q;yEds0WxJtRXkkWD_ zA>il3Q)yD0K$WUGMa5M@y*})zChY%Y`lgC~Q{l_OsfKH$(Rld-d!0ST(bBa0**iE24a{806wifVJvQZeK?$WpJx^gJ^s zJFs-pEb2P^MLU*zrzVI(r6|sQlO_L))%{hb01nJlLvksQ`VFlGQi0hKG*Cg1XJ38F zEmUSKDIT>S)k=c!^weq0+e7!eIht&$pgnUs_;r2Pt^V7;0jjL4?=Us}H(q-JlU*bJ zjsJxy4SGDb*q5iX+Nraf5x*-7W-+e>CV6%?)*+84=1T$w#g?}~ry05c#@40FTYeOq2w zqet`+Y*-lIWdwicvBo|#p)PS$+Ix3D%C!T(nGl-~bMQhiJIhjYQ-;Dcg}ia*h+E;dmh+5L&fjeZ#Sl9 z{`Bb`9T??(VcP{4dJM~=lYkvnfXHvpyIM}t@rDa~dZ7A2b633j!QAfps1{zJM$k7_ zsE)>Z4jhp!ZE$dyfdZ~x2G+Hkg!nJC@?zVF0>N_xt}IFB*TM#8Ev?1g^p23nTHF^DP#){(lH25rPC^yO9$gCAGBCC4;f<%;od;lQw_V0D{r-uJ z`-N)1KY5Be=bvh5-R;>l3SNI2pVVMkpR#sWHP)izcmLS9fH=L@{q^%xnQCVbZ>vro z(ST;k;`G+&>zK3=4@nhA=dGKar*DMCaBl|kXY{{T$AXw+_5rds5*dbbBCgcr$Pv4H zLQ*ibu_WhCPK#KwBi}Wyqp^OJ225$(@JYbets4F-LSy8s?QFIH2AuZRkM=T`)@@RR zL9casE<5+|C|127=*wHVRnTv@gW_s;#GZw>PB*QtKH+eIQ28~5bHw4TeUMe<_uGZ% zZd*7BX|5%IaQPtYqhNv9R!G6SmL#x0s)wM8bko$F5tw58wd1ir=2x2B-zXjQkkaI2 zCdp=Fu*9;AhxeZ4b)a9aQHwo+(L-GDVVM-~wxq{&$(1(X{?_J*xKo=3AKEzk1DURL zG9`bp!4KMDrRM*t1)1G7wpmk&xYaChm$L&noZ^(3q5;e(fcXsDN+iLX@5aqPwAr_r zbmV64-ZaI>LH}l$boV^toOZJX*<5XN0qT+|x~BZpuD$hV9+r=c7wvLN3rMfthRpEoU4fe~K`vEqtKAG>tS_q~5Ox_*JBHhx}ZV&<=$V|+y`RD;X8NOM&Bv3lG zQL~XH39?#O1Z@h1Sa)_hq$Hq6yiu>wP;Ax7mumzu2ayR4nKNxq`{W;ug!6lYOw$^4 z=gF3%96E<&n?`CR;k!^jxL-;+rRlQWEGUkr5qRg-NF4kVhBkeBf#w7XP@R8scQ3Q|g!i?!msR3Wf^Eksg zR<0*czUnDaC_VP?xF^G_-NCAZ)Ew>m|cLW5T>(aIXa$TRTjWfEkA0+ zQOip`7dvTF4AlTlxi@I|YWnN#_8|pdU^|OrFqUDkOc<%zH3r0N%=zkg6TAs}yj7*l z`}nUOO?i>i1=C{hQ|4WyAQ-C4x)z112Jvn$p0-r6vT!^5xZgslC)XS<=!-!Yj|UWw zM^&CviU4V0SIxYm0zl>ZPq4sCvtQDPM4Of5;elZ0FvEHX=m4>HI{=ft)kGDe>6uWV zM_q;KvPycAEqh8q4_?~AkPC)-=4v3`Rg=4Nn5lZ`eWsVGjHbr)GQlR>(3+N8Jpn0P zg-kO#VXiWf(j_D+7-C#M^CU4TZ}_2%&-_AH90OqE`iEg!fQu923R7U;bg-#X|`udT!iPORKn5mgi?l-jaERZQ@V>W=wXFNDi*Wv`KYZD)s zj+7#gYeD}f>9qMFm?Q3k8B=?IhEPmxBJi-()+PlNfH(JmtPcjp(Uiu3`_4MeYvP=_ zdgvyUuV{HX45MyPj2cBzs*5&Y{+yT?a1pBv2}?^ z8`C1A9E(v+ckPUyvf3y9`*N;Gthb?A;V67=_*i;pa3D_KWOt9gJ|2O0!b~5vyS*P8 z?1_*f^G(rP&e1L_DJhnV5(&1kBRj@y@hPzbWnUknh>GcBU*a$p-)sGdo&lWJFt!Im*KW9I%Zd++D@{hsT3uIu;Lb#>kD zS?gZ+!QAV!)_Q+l?_vz}>cTCy2$*dFELP=?wKs9`qoJ}fAd;+Vgd27P|1lJL5$*#Hjy!8l1MN~UOt)Axt!;};7FD&%xaXLt zWN*+;qE0$bTK7$O`3)rwHzx~{-#-66e_q+%;)dK+vzf-B+)CF6U!!9YyVP9(ZQK8q ze`U^rzlhF$c3uMkLl-^=*d0{;H zLXrRO2TDVoIzxS!2YKQFT6&u`EupX2bXjeIQ`gGi&WQj54H6{_54a8G?JxSg?`)G_ z#3}9A2GF^^t_SJgFP*~DFi*7|GF`%%vunCk?v2M9XG%7dY!E>`ZB!AyD50oC3w23h zEM7APcg}PPYXz;%Zo7Ki8LcFltkHaoI|m5QXpR)<>eA@X zrhrth)a7%$D2Mo?oe&DM_5=d)r_AX=Fp+!rn_}_BRCRayn2-<03GhKN6mgZVJ5>{I zzN$=>?nGp&&KjRXPwv{u7)hKNl330d((lvVe);@v5Xiu++HWuAQ+`C<4uZliwD&yj zn8ZAlqV#YCYypK`uhev5WS`s4LKF zIR+g%#bf4yuMK`x4FiU%6g)+Z1da03Q>arCTZSGQ;~Of%@p26{1n3F$tq}PmVrrw+ zg=qp17ekP?#oO~pFS!g9Ef+jZE|Z3l7E^sEB4)C>GIzHD$wAw#EwyLbPI5{u*zC3e z;MPv9>EtFm&gU0_B@-S7U;oXhYSRdBe391g88*%5<4%9=;`JSSd$WtT*tIxz-eh|U zN0ig$&w z&y4y5Vh?{2tsD5dfv?bt5V*jNb=n7b8EDQDwaJ-tpCfT;g0veyVbc92rw%B5<~QiG<*EaKLI>&ZQtkkB2hbaXA^ z1?-(rE^AE(MFYv%pP$4)V)9J=mS7{os;QJ*eq0>6F|L*)2o8rrox;CD%+fh!*En-v-Wf>qA&Axpfou@)Pf=4& zQaM*S_Ygf&p3sMGrLY=ds17fQApmZ+*{_ZKSlTUTq#Y8@3abt2>F#Q!K&|85eM~4_ zm^_tBRq_3Aj1O88%r(oY_P z^JaJvg7MvD*4%BaC-n5JK&x;)eZW%#G*C%tGTb=g@R;OHR{RXE(KB2+7X_5!xc8gY zy=-wt%zlVFE`@?ROi1|YsMKF}P;a!<|O`0{atrHCNLgXZ$JOXJ?Fxvp2i(CJ3 z*`B=J$YTeVj02qq1+I*1FQt1t`uihS*ImURq4^=meehYj21cKXnqHPSvn2_#hZWWH zu@YK-xhi<^QIFs2^}ig|<216Rt6J~eYvP_J*Gb-0j&ELXsF!5q7T=%xjIp>Sj z8Zh;}x^Iu5D{r)FeDw%`p7QVFa-?UR$x$euP5VZ0WFoMsI7L92=&7J(v>sGRCR;He z%wf3*14JR+c<`Bnl9m%a*hi+{YO`cBkrSF9g}MPZT|E|+jnywML-yY1F^?S|!Aea@ zY(-?)Mua}wXSBb-_y%mn?ZPwpp@8XT5l9=%&ISpE-_Qu>pHlZ^XOP2{huU+ogcD_! zC=yoT-oD{8*@h8*cgjJ^LDlwc7rJoRX##xR`!rpyUoX`yvHp{}Ntu*!LNXBk=@n`M zr{__kCO(>IwY9>To?5X!&j-u)bsIKGa(V8WWYxLC3}9Sff^n0S#}NIUZ6~A4OE#}& zsY*f%5cR#~=?doHrJL*8yX%c>$34UaeFYCQV*ZLYMw3 zvtg^XD5W0c0||OUsQJ?+?`4?oV?7+;YlpVc*zLJ(8t`DXQ1!LMo1Z=Oo_I}Pa$I51 z)6$9CO?>F5H##D)fiAbQu@ZZf^G`fGziAlxANpz3XTK!cxJW@LU_vqY$1OT7(=6?9 zK_+{eHak05x>XbR%`rQ6*N&_4%QGIt<@3cwuD5liqDnuTd^X``SoPHKXc&xyF3^E- z#8j{#Nu#%q9l>`@&j&rZJ=QPiqN+A?#=4cI*$R2dh*-^30=DKGSmRVjPpx{XI)~B? z6+&?})y?%SUO>Z2$g>ZI^}`qu4qup6;229#P1Ojt8P?-||^(}_x z+VSUhLtR229zLrF|D>~f8~Rkf6Fz&JrUX#-L9{iCrG5);4+L~^5W7%5AMKDXzD;2S zmhwgJ^0ELmQ9h?u!N603*nSmp91bJ`=|ER$KqU2?-fvaZ39ou$#F_h>y zn{f{c4@sHoO9**CesYd2I;+O{vID=O%o8W;q48AxB9OksA4v#njG+KKf%Xg0Rckq# zEhz%As8Mu-FUT4gVDZHu^+%Km-Jbl2=b^#Tp=UCQ)K(~F4VY`GuP*}<)r~6UU8J># zq(hRluGB8A*awb{cE#nQ;}}jpNZhbMI4@< zFR-gxQ8%0oc4vFU?y#cAu4A_WD;jmn|41U;oz;yP=K{C;zE%44JI**1%YaI>)Yf+Q zJ4^oiR{wSx#KWdL>2kK#p}7>f5Fv7i6+T`my*_46eX>421lc`jh@XJ_sKLx#RBKCA z`Yehm&J!hzZ2u-gfK|;g?c;+g*jq{Mfb$3_;<8i39#W;eoa89b_^E%aXp!FOnc6dT zPg@_8{<#PGw_)#Uxaz|2%(;j&{1m)b>xAGWU_=gXMArc2GeGjKXhQ!?be2TbZnTZ4 z8%sJ#oHy|_0)z^DA{{rCOMUEuSwB>itE-z8z;=7#c@re~4m*#4_0eHn_@jfKex65S zW+gw+;YP}CTl>5`oJs3{0yr~@qSDdMF{3rtC?q!y3_lTX&&auKLK?Xg{aGfrd1tkT zY($hBn)i9qQ^-1JTC%HC_fcxWQJ07^y3731!Cds&cO{KyXGmj5%Ks&}Glzv&YfRT|?Pa(%_N3;PP4Oh2P2ClzG{K{W#v(Uq*M z${LO!t5i(zb{}%RZD8Ly<_MO$0vUCIZ#J_eSg_p^TeA(54{7Rey)<;)g^1GqkTSAL+341fMk(YqrME4{y8@Kn=E{5Ss<{@~xbv{JF^4lV0`NV7Z!(&8OLr=_q%F)F zA)=g)5iC&`q_Yu&e(P&H0BQ7G;}c9%gi8-^q4c21vmCaU#8~#YXv{esu8Xzyt;~^8 zz6Uqc{e~Sjf#+u{-RGc2G0bFY`h|36kjJzf>Z(cJ@%Bqkyx4tV6W$|OKL)z(+K1e# z>P;WPQrd^JJLNW{xCV7K^g|%z?W}}+3HN-`f@;JJ=^_1x*WQ?8uf_sTY)wOHC7|rC z^M0eXdz|g%oJwwKDcfWzp9m}dYP@Su)g|J$%MGEzPySFo)?%C`mw+bIGFj>8yxJ?1 z2@HwsSamdDYAgT)v0JETHJ2mYh#ni?!4`d_c`o?I8RR}OcoTbc{ly(~bjt7ILo1@N z-7DhKrdWFhJzZW?j($E3j$96;8zwHNzOf~{l`^}+41?ZIW;6I4q1$A6Fc#my_n5!IzB0_it;dam?%}{p*p56vvNzdlt zDRVuICup1&#%k-xcpEhYa6vXjbxfCRin^6D!1V8$qqAc~nH*@U5&G0-$B#f;1PD*k z#^<<&F$`fA;YQ+~67r3b#E5YRq^xu;i>Y5ar@-=Ok!WjQZfTU!lgFLF z*mfVobEiA$mUZ!C^)MUFiO|pmdk^6u@xUL?-wECdm-jQMAq^h9P6Fr)Qgg2@D2MguN2$=p5BStC1)x4fRz5VEBN%Q?&`4P35FP zx2kRZHj;z=yqbI5Xxz5Z^oACXu#7*Nz>BiL_<)|?cKx5OuWQV3Lr3!HOY}tgoGHna zJjRjGij7S_bJ(Mv(RfKDXA;-=rf*}qf3QK&NUf-KP;k7|7x!ELF6>-Mh|32E&y6f)2 z91lfSJ_r^5Uq8j06`cl+ZY9{=(h;pCZFH3|eTOblM7qkqLiprOS-g7pjZXhIru$GL?1O&$Vw$?R4A6=30qg>RH0A z`|1JfI`7YHL|%gE_{JYGq6}L> zL5*Af%7Dz`Ra#i|j?f@)X9enm4N^8c8ispSwzbZf^U~S(G}?bEXwD%LvUJC_4GYC9 zy>^p9^910)A}H3oJ@?om_Tt59MVQkMd`emZJD2&xfjl>}V@UvPQ<)bMM8g)Ev;6={ z%ve(k3Ytf-f1tc|N%`h`zQ}g>OzsSug6NCl+~KF5g#OR&L)r|bzymI#{@L*UCL{F4 z!Cf)e-s95_O)8Va8fR0O+!V&9P}Jv?*}P~9j)IpuUfp&(m6pwq(0)*997oG<<UVDjy=poR% zx`=Mj;f;Fol~!mX5@cFW^0J1n-*(-#nuPoYX3blknU!|x!SfNi$Mg6rTBs}7V05Y0 z2yCHSPfugVRYgTc8_?Tngx>J7Dqqn{i)0>V&BhtGz_+8ib$13us~gq1nm|z5@IpC} zHWrC$PP{#*dMT-4T8XG-*lGYwKFna36r^`>C}{JQE^4b2r$J;;NyP|aM%$_WPT~i7 zbGlpu?SW;r)uUUjw#peAaRSSB4$}lwn2i@*5h*%8D`oUJBDrr|h4icIVWY7lN<|`U zS4a$>`{#p0rte1DLn$Mn(h|_P+H8PcZ*MNq``Odfxoq3su$1c#K~Q{CmP{v^wc|}m zVC?UkcE8ZFAZn()i`w>$SocykbM*D|J9T?yZ*6+58I`IOH8d_~-9@LwQ)fd1JyU)} z4jKo*Qm6UxU8A3$Hh3JHhjUSRKL%xmU3){K>_^O@t^MXd5sCZXR(v6D?GNqiw_+Sp zH?QLHT4UchYbtuL22DDN>8|q$~$(GQw*JbaxuYuSc&{%;NttPt~RmNng zeUk8-UKP{FMLeEm&>VCmbuImToXUo;K6a!uj;xDNbs;aSl7%B(oH&%ypO;&qC%v>^ z-r{Lw5vecAyUDn%37FI*GIGxj1`11+F9}=UKj|?Mt=`5>6IR5`lC6yx#jddByqlH> zkKaO79)Ix7X!AyCv2fqTOzcCwwDO?SrHqA@Y2CqA5~U#9{G!$cv4w>2rF}eiR5WA0 zMWOR;QFTQhdTLV7uD6KUgnrtX$88Bz)ajijEa(zOYzrB2*0$ua!4Q`s( zwRIv0E9+TRFf=|DA`saF)eQ%bE9LwGd3jpCqtD_ye6fwI76ssERrlsFDYV zR~HAE;cWlpYa4|TPxIfZDZuZ*Y9G0@BzW$~=?ieyj6ps^AXiNyZUm$QrvObpTVYYU zvGKf&!=v+Bdkr&{v#T;ivrF{Gt@m6e&umZLcJLZq@i806LOk}njQVnV%N0A#@8XJm zFL6KRadwKs=+|g(->*8fw$=Qf3I23VgBf{Zu=r++>dhZf=dS!LE`E_)^ljHk645ms z^_6x5z6ry^o*dLl%(D!wYSH+7N{XP3A|CkB`$I1eSkOGzhFytcnqezWx)gA#t=_i0 ze517`cxZc)$ycp4=R%jl{YjN4t-Hr^Nv~b}FPJ2$oGm1}x*qki)D)27NW?RT4stvYqUCI?tdS_>`qtjPNI47t^NEp23t#N%NbrkSWCRZDoNx{q3W}hRHak(s z-FtQ+!@x(r*rdq#WTcJlF7Uw-u;WPN*@Tp&laXhU;5Zfs62OP+8(v3{HhXseUB<%8 z9l0B|exM^@zcbjs=ilvJVB7YeZ9h=n_TT+}>*aU;yYrxhEL@Tj694x*b|fJgn;Z$w zMsB_Cf8YJ}itBej6bT;1Ki6kt{m)I33;RFC)-Q0q*v>sxR{vM+^$Pz!JBtIj*yPA0 zaPMP5JFbx@6C%Kq^o)!@og4*D@Si)h-t@oEU&ifHeNbq^dmEK3i(=?QtHRlf!*4{R zJ;y2^p-UP%I__>MxOn|r@a65evRjXS^6u=|TDiA#^jDXQHFfUQ@6!ermm<=a1~n$u zF#I&?-XDopHzpOd(oj`8853<)+8Ilde%(I{lm@bF5@XYj|NQF-~2WRpL}^?jtvnBI>cM91%IS6<0P2ZuYRre@9v-@KAGc;&9g zzpq+R@&?1P@p11EoezS)kiB#9apvSP%zZNH?kn8=sm=Rr$PX3{^wp$4ckjDfnU2=j zJeCA!?=?D+Q^xSLxcqVMub;EM{oQ)Zdm@9mw%>Jmh1wjoF`gUd$M;mb>SWw6MG5+U zT*`bZa@_T?Xzk*k@mFmhHU~eCdS76&0dxH^RmtS+udd8q{}&I#k`II(3s0Qi;{4`( zm*DjN;B7AlZHzAswf$~x@T2ez>1c;Jci?n{n!daHDUb4pP4zhp-QMyymDe?PFybBD zR-#+>9NK$Hv8f+k@UpVtOl&}8nw&&=d3tsMIU_^&4?PJtef^`}pRrE6^jf6#Jy=Js z)8hEnVe+NFq*B|z6Tj@>WbtZ}(k^$|et1@Y#qedw0rCNr@!h&x4Dt>beJnm*=WHJg7fkm(w|;Yr=yvy` zf#+S@OPR_C9!41zK8dsbq%xIHb-q8Pf9mIkeFbuA#ZOGq_?N<)3aVdw9Jo$-qrF>S zd&GE88s42KK6LNH^BmKJW3M%^R-8KzJI&rdJl1;ME=b?*i1Ksk!1fBIWT%I4*S-T! z!fh)m9NqVpQk^|2q&qUqY)*QchiPsYnt0ma{m|n4jR1=cc>~YlQ^I~aJ6SDUuf^%&!B=}|AWzTV4w+;mK1l22$?>)BRaw2*8#|IHQY^KJLu;<}^7Y8MR; zo-kDjE;+P!(;JqQzH7>&r0ZoIXTHQl?OP=kuL*+bMC&kzu}ZNxp4Q zl!uMuwDuR+-km0w%*B<*cz)6R@|Q#;6{S|DCza#%c*jP|tH!`8&AS$5v8yfIcdH7W zobB8EvED5x$L?azz{QRhOtL4}?|G)6_xqEPr;p?}ZtKwZ)0v7m=+GCnr-1d?8&hNE zc3tJN@-OngU>tP_139wy4Avq6!FN)Hm)tAY`sjuxMcL}DR6dn6>M7kyX zLuQOk-FK$Yj8b;?x!?IF_ZuhvJfg6_Bk?5Jb^Gc5nXqcdzl>E!B{d4)eHZQNZ5cOA z@W@mdouDfX%&(Q_{ULi#$@LR@Py6((l0RA0J27IT`P2iw6EpUY2lihu5AyQ6ME^xr z-DvUUXKvYVG`;7!9{X}t{y=!|P0_xy$UV9F!3#{)8-<9o=k`=j>#*kvimzUe%0}I~ znp=0%#wR3G`PH)AjheqA@14$gqyD=5fp4xx>A_)#C}KZ@}fMJuVse%(MJ8Ze90t>;(Zw|!&TdtT|^R#3+k^zj@i4_TD+<^ z{H;zs!|g_@x}4XIK?P648K1!GyLY@e-J-qM^Yg2qNHcu-4XGNgn(0{9ANq+uhTXk? z8~iT#5Ay7fl>LWv&r}=CRFZbIR3_K|Va7LjacN?^ee!d+cNyg;PSYQIq@PZhzOQxJ z==*uCjr%ecwjK6c`f(~EjPr4i#J6G7GUn8R{`UL>#=5^~cUru4Nx;->3^}seJFdIE z`p|O3Hu$0EA52>x$3)eic~ZT+_7ol9SChG>Ce{Cp&z)eyisI^Tt7(PsiZ<2jRL-Ya zGA~_D%B0?WW-qbd;hjTQm?+h_-O=27zH;hkxU%hm3Qb0~jtql78hhoy-OVxI52Qu9 zp9`XC-uU`T&Lv{thH&oCC5K1D8`c^&pDatLzrm~D^9R26`}yiGov}0SCm~Gz{HMQ~ z%AacQ{@D5qTEKZfo%+v^e2?S_9nnLLkPQlLvQ$o%`Q45`YpO7$wNIE|C4V^_m@fOj z#c1mh(Rx2`W%++P|G%Sz|9_qTKLOSM?EK9>|GCT3%J&!aSr2_w)vXsV8WwNdtf-F0 z)qN=WwR*m~7EcHO{ z_@{D8T>RO8+5$J_-(r79xjX-kZvV$o{_opXn&N-bM)rhzf7DXMuMf2T;UWKzDEt5Q z%V&vUl^gp#6A1#Wb=ezYnlJI(^=$P>x7RNtZJ)sjiVh!cptOJ^JW=bSmbzVB-sSeEPP3LrO<(E#RNBCqQ9QVicG40VQ6wkXC!|c(w?NmA=LY^KI~W#= z(3J~oLnJ0H2svHcgjMVGqlj$XZ<(zDi~V-#a%cAue>)oi3lRoG6EU#gGfKNk(_o0alrWNpnmUfC z?yb$|(^4GLzG9!$cu{d1y?kTl%GWN%?ux3ZCJ0BSUXN-lCo*WE3&O5&ylA@cdIqrk z)6G?y*oy~f{0uFyE*>g?UCJmxt`14JfMFvG2T^#@FyfsNl$RrV({ds|!mTdQ?cVID zmvKr~olW~UB?&D%;Il-7s)f0Z$6jr+by9mukIO1o7|Kh;&5Ez-k|~^X@tf`2py^8J z(Azgj@Niu+i#$O1%r=DYGH^DWbg;kYs}>@}QJ|j)HEM&nANn~9H9U~^O_N{rb};aH zXw=NgTAfeV!G9X1LDG~_1tCa0{`tw^04#U-<6_ZZ>v4vR>2#T6vvn8a!-6lY)ggg< zL|Vii&7z5$It0@LBl`wnmj5|G@R^7zb3B+3JwD!=oCiHG7J~UZ&J>vq9ALyNG++;u za#)(*;m=*9Pj?@3^6HP_%=FdJ7OrhHup7mH*J;2D>F0e+@&~Q|gTX%Q-@i z<14(rR{IAWNE0Jky{hWu{n#%|2LnyT2)_r9e&2V!swSppFrc?3sC833H{CE{uv6U_ z!ib=HHAqi9eGyNI*prgW3gUEUb&0OBK2(nrYT9a>Je^x8v>?iA#DPuJO7uATGv}Rw@t8_8WMZuCPM@bY-@r$Th{OP!J>Fgz%PKXC>Yr(`_W( zlTU@^ttxd5A;8=yOlN9`Su6W6?>(uPkB5Y`&E;P6W~(hexy@vjT3S{!yBm1(pa}bB zdc6unbM08kgTD~MIkkU@gtBw|Nr%xV&bYZM9@CpQPh2UYxwnR8w$p|}kJCGdU|ls` zA%rC-sdAHO2y;CsrZg}Q3u*IbmffMNe&NmR^we9mM-;fEF;t7X5#fYf!N;bZ?cJ4p zNrDU!on5N~o!^HKup9-Q<*dF*}uDcu^8zS%@Gw?;AdtLcwKG^`6p5yAx<+>;Bv<@ksh? z&Y&~$Ms9KRjNhVf`v|~Uo_PjLm=!g%0DegJC1xr!;`Z08U*}qL`a(r$1s_~N%qg7} zdZ|`xWv!y(mH_D=U{EwK-sn)WA&IyY6-4~WXyEP~D>esz2l z-A+I3iQSk>kD zUCmpdPxu6Czc>aTbSjwJSJ*hUX|ac#*2pTY9J)Vn+pe1HaoBv98#2tAy68V|W-wFd zt;0#BrG;0}D5KS`&+%uA%l+bJ+=Z{<>K>mxg0GZ0x*;Z0R<>s%E7lQ&_ z*S1~#zH&$%ZKLerdXgK4q4kAw9g?{LRzmNiZMvFjp0*iU+7b+JCVGtOKB8}FD0z+2 z!}B?bTFuSvUh%|Z#6$fH6t=a}6sA9UVey4F)H>52)aAkc^Ok3iRB0NYDm}$+xw?%;n^|JGC%F5$+hxi_ z;>$WBt5N?_FF!h^MNs_dfwWG-(zJGCdS}%tnaLUB2&l6n$!h_bL7|CQ$sr$_Fq5RR zJCPUQ1D1Bmh{+N}-eu>}5ElVv%#jB9 z%O7q?4!=f?i6Ql4+C}IeT?y`VM05$BZBSRXX|L>KB3!pWM)+htaD369=j9Z)d*JQ` z!VEdRhTCuLPlp$l4OZs2z+i-*a5TcE$rg(u%T$tpVX}f(tQonLR7t6G>4$`&i+%20 zzRe7K^Fc`>(9F?QZ_myWtCXG_#={)P8HTE4Wlnc_RyKZdx~i3I=d++W5{CG`{qrG2 z{m=kiev5m}Pnn-88C5;59V5F=l9Q{#;tz>%GZx${G4%xD_~MtF_{Np5e&3)M=68EZ zzkSKp{B_f>a=)s8WLh1+S0JDn0Tz4DupJhr$> z+&?Q2Suegd@v(Gh@+sN+;n{8DcyCK@%~a)jEfj%kHS5&5!W;RKK5ds(`5d3dz-?Mk zcg2o50QoIQmdEssS@T`*+Bk>8j0DLy8v}JHf!mWQMW3L>(DwmenE`R$q-$(( zd8mLTAWspmSy?fLD~3j5tr^FkDNNxpEC~7uD>|0N=H0#h7gN-_L2omDkslL%3aFuj z(i&2vO9>5Kl2s)s-i+1}C~;~VuX8(58VbS#135zq30get+c-nBim5Dbz-6|s3gq7+ zQ*XizqGUU27_`-qdSS|#L!gyT8Yz2WkqZqb?QeLM%=7W_@n$TB)4n-$b#>nK7>Q4j z{B>iVdv4`Pk}6Q4gaG?Ne{*L-44KtN2D0c9p9XJk{8;?L%Ih5gfgFzXRO{U%+A~s9 zkB#TeZ)vy?%^Z0BQ0h%e8tH)KK}}raw;CE0*n*#09i3k397OVF{fduY8Nm{pbHYWw zr?qrz=*lF$9e7BDTO5m%C_iPz2z~VmqNT4sXpD}E$pjiy6hZo1;vjlsL7%s20XgPW zB2nYH*RQaAtPCDtx(%wJihd5Nk1uK)SbL+vo*VK4`UP!?g>0RUP=E(D{#7pmtjXy> zOe4#iVH<3mptjz00Xr>*d%Jri%E2!#)V&>$<*^9o8Dg<5Q>^+?Q&J{}0`WmM7Y^K5 zh>F3bvfIa}v*q$_YzcHZAho+jPJH>{Vm6RlBYF#g>YFCyLwL)sASiAdz;Aq@*G#nL zZr+V`2=bCV;2P|#rw6D(ZM3yF;XK;=n5e+=7A^nd>qfA46FI#gPc&**_gQ&FK9fU> z3k$XEPt}zFfsIEI0&PD@z>(OEIb+;lE3TEsxifV5olIO~_F`ygsB9W(;*cr94RH=V z*vUB58(kZ}j#wE29r}@dbSb6>wd+Lo88;iVik22ubk(G~Zu!05rf`KJX#kcYm8RSU zt~Be4SkM*GTC{vUQMHoY?a?3|*r-$Eh)MKF7R6-a)!Bul~l1wWrRC9Cf996$Q&ef{>s@l=fK)8|qDsjw=} zluFRPVc7FC_S!CFgum>A!}!M}f^e^0-we4$ob^eeRVuih8qDB`0H-|u}%^*n+? zytGqP2sm=Y@-b&L@nS{30Wcpy?c(x`D_n`O--hwsneW^A&B^v{-iPY=F)WH3~+$ruj22`bRH z;IqWRjnS1eenYtx=%JYUx!J7BNZ%ug$BPlSOh42jyt7FJKxiX$zD4r9J&^Q;QT;+6 zsl-XMjBGm^2AFG=$Y$HNX5&aSa{9xvh`Ql}b%#p|yp|L4pSZ$SG*l2sZUU9f5!07d zOlxvaoqIV5e`GjR{7%cSMh|3Ts^RY1(4?O^9?~K{QQVHbdIIE-5b8%^d$-NNu(q!4 zzAM}Wo{wdJFHuha#aE+KnUiNE6Ln( z{Ogxja~0)}2y>fq<>l$wSVN zI*!a|r>YpUbw_sCv}xBJE*Kl4`t&EOhjZlH+>Feff6CyW9M}-vOeTw-8P{#cvjByT z;l02MYkmhCGBH4-vb741atTY%5c_ou5yL%h_AE5b`j=E{(#ROx!*V&qqavN^Kjjj{sZbo?MO*;6dr{11BG?owwg&nx`<@RhhbhScn zfOhs$BOdd8%OaOLeLd=ST&Pnfao#u+8aWpLv!`b+$VuK#ZKsQS-g6VyiglLe*lUH| za*&KN6dV>L9OdG_?~i`>Q|Of$mf3mpy|hIpgI}UeFaUJIgG+30ku4WzA9jKH!(;W( zW-0uPM36TUFL-H@00zJbc)V!$`-PjBI9uF~jt)=XeZsa&p>IrPB(_9nOAp*@H^l#R zQ-;_=$Y%*~L`btV?l@t95w7twAmNVzx@HbNbub4@oXIITku7=g5$Xv@Irmn_P)EE7 z4Fm%R3*o|$sEsUho5FzLBSV=MPD~1T@IM)O+ENzV_~(8g4MoB{-9GvBMu+ zU-I1M)NWU8KfQqpXT3UyQQ%oY8=hn`D+Ykmtze89C=m0ejPIJs6`JYpl(VS}NUhj0 zGzdFYLZLAjyrlu!9LTX>W$HO}_IGuC`q&zJXq+Crj}hJc4WzgHLO|D?`T#nm7sp}% zL;Spf*z3p}0rx^*m&nhzGE*SG)ZH#bKPGBN>^or!jJL;feDrhL!I&ioqyd~7t5^>F z%SU7ZY|bAVRklc~>UMO*-xPuV>ErX?ob~iYMU9OVZ(0`l$~NG(UgWKLoG^&Ul-Tw@ zhvsRdETN}or@)NKobIk7)fdd)dbPEg1wE;Hg1~jiNv>)pa=~aCSe32A_FF)X9TmFE za1=SjNnzvPA^`jWj);@c+TuQu)tnvC2IngR43G-sJ?nRxd*2SiHpbIJv$b7Xn61H~ zo>ykBKDR~Zs)3B@UhK&$?ai~Hn>mk-)3WBT)iByCbW@(R-NbGK1c`#yf=}YrX41Nl zZe0{jev3>7p0c2KmSl7S*DNE%@k&KgNj<$(#c0$`BCCCz(Tk0PMIAf9`GNJ5AxI3u z^5kt0DN$&k?M9w1=^X_I=GuwN@hz>p-X9{k%VnnPD6u4tY>+v;*F^<6Bds+T0arJX zxUTZ6L||aQot%xpRPg7{Q2QaT&<6C3;&D4%UQ*`OOlpij`<+^q#Ow;y{m;8()0@xC zN22UyTNY~l#@voxdsN!iT0}c`If#ReAw&K@EUuU9HEp8}0F1J!!Ku2I2T>uGU3XyG zc2|u*k=w3cDw5E6l6dNoZjOY`@^iEDrN!|s_q9B9^6ugm4;ccQGMuEg{f=`EhKD~?#N~7Nr&hj!ly!IdtJp>M+{^@fS~S^!yc2AMx@o5thi;^hkuQXqom8E z9;@G>P^&R)er83P>b%rUYAWVYNe9mv=R9)}=B;*lwn@B^&)z<~SMe|4J9Y=i*y*^h z5}rn*6Ne7!GU3Vnl}Y~UjH9T63{ZTms^V4~=fcl3QO0ws*@qg6+|$!5 zQbOK3Yx60kNS6)j8u#|<+U80)ni|0p_rOs&O;|Hg-CwscksIt*V2^7~tzS?#&dEij zXC`~5FgIb2S*e^G^_ZR~YR52TiFBNRl3kPDcwzZ4{8B_{-MOLdzunSuk_HHzE`i~0 zBCX;=-M$rvogSF5J^ty|R{ZZIzdI5%_E0E9Pt(<{^JcSJ0)Kctqt6Co7`&6{E?+wA zoGqt;1&wwS7!V0#d1*t*#!W}JN^Vz_-YKc-AT{Io#&|h?uynuD7Y)@BE3Op0c&>^> zWBk?i*vVU1e0i%$^Z>0ZfHxIj-PUN?qW>t{?opEE?+9lwc_JaKA^cQQ4#w3V+I!22 z(Brk}J;u0ju4oZM@iItOPEX?|tJ28zlho*vwu>TsS;qq{e_JdZkvEzkNK#2}Z*Df} zk6U*Vs^{9`+NzryHL>`^-?B_Mq?2QMmIekMezW_2`ECE9INFMLEn)@v89^T2vjK?z zVOAWU&n9A@yT+yT(<=^UTtW;Ys|v4Jo-9Uwmz^D%$3o;HikLl(Fs15 zu0<=w$@u8G_o=xl&l8&qe4HJe7W+g7GwA@yGM-PMK$6hij}5%B z=pHg9nu;dP+Pd4jQ}ll?JM7qtbpQa9L5N2Mn&Q#+2TkVPzN%w!S@dYNK3Ch>!^&ax z@%t#d$+*_rgy{0Cf6C6~aL%u)j$Lrcm5y%OEvr3bprMkgxGm{0k=K;?Odf%?rzI}} z#zRb*#EM1OH>F0r$k-JPJu|-L8)jH@Up9=xXF`5=LPW{T6mnZTCg0PDiy|yA#<+fQ zayC>iCX?bVT-iJtogDzJ@ZMhgVVv3w{2@wK)TU-RZMQ~?La4K|bbn>^6EZ{PF-X>) zO`aH71x^hRBw$DNL=SXVwG#K|of=*3nebSn`!6sdp(rkJ;SbH6T$zqmqUPH(A=z;$ zUe@!-c zTd?xhSYmPFr*@(lZ!rc(mXiY0eRzz@X8tT&1U0rbPk32-V-o@>;(mL^LOCR8AGbx7 z5I>z9i3N-?e*mXZmL^BJe%q<2$N}cMz$zHxgK9cyoES(%nX(g?&lDs+M&cO$wK*$X z6dFjqfW5ryVKIv{ThYc8E{2APocm7Ug{z#Qv98cUeHgK#ec#|lm`*PScNbNaV@3xq zW1XbUF>4hyNOAmLHa?wHIW;>wR~@P2a@PW`oA}mP@riN)Ov^3>n~)2Dy503=}C zs6Xm)Uq?^@^$FXAVL_n-jADT>ux3p1@lMH`-%xb_*_?aGnG2l^(3hF@M~gZA+g8d0 zFc2-)FioKe5Gc0v238Kqe%qC*Y&!$Xzkg4CGX{ef2-`+!aoYg(0&xb2--j|AGaJt< z(s4BmqZv#2hWQTb0NVWP5pF^X*T~dH-A#EPNVjBoH8DsP{^};^l6HcHye&96Jw46Z zCKnDj4mi74Si`i=c@^Z|o`##s2<2oAFTz0oRR}Ofv8ay6`*%v)#Q-l(dqq%)lZ}4 z^fwIeK{T6@5crrK8{IxS>MCt|hTNm2#?M;4YZz0a!0^4{YvQV$Zy{m&3;lQwOR{+u zBv6o9`dX&Dtxko*VihI(f)hopmsl>1Q=?;&o{FR9yR4ANLCH!@g`U;xUf;?Oo5ySI zvIoAyJ|dR9j<{cxF>jMxG@R|3pDq1pL|qrRIz}E2iYl;&6>jOi zaec8W_avqH489;O$V9^yaS#@zF$ip9Nd#c%&_4Xl`GK^GhgKOd1ezVv*QsB5YfM~V zVEpA*mC;1_^;Z|5#;RrE8i(O#+vUH)mi~6#Oa9P~jWAR-0?2XO$yLN1zD@Ph>;|z; zZY3~=P<6!qRC*b4ZcZI~i2O^MJyU{KpWhW#cWg*+8WGKGoz_0}F~3AcMnTeW97tu3KLn9kYVCoxY&7Ay!iSi<*#pc}p`U4yb? zei)HRLS7TVUhm}UEracbpSb-)Nmw)r|Va|!#Tnmhk_bd*{Hj?=Qk6CDmCZ2L?r$%>I zvc&@ev74)&&C5rwI>Xmpwet3XHHn!EVO(RWlq@=@C@6p-j)4i-Vl~Vv@8`~&edDwE z8~_kBd8`-P09zF}M9Gcz- zD{v~!9llyKVb2hR!GkzUgC|2xM3?!B z!lmn;GG|%CPviVc+rKG4!~B0_y?s2>`yc=RIVC1!3z3V=wM0pjLt>*`UzCj^W~DM0 zq2r<^7MqKdizrFC3}a&IxTuL8a|)+UVa+tLl+&?kl;f(+_Wr&4et&=bZnxk2k8X9l zm2L0dd%a%I=kxKnKT^6FNtK~J^D=gU)LF)yOhog;O*Bgj6o^zpcsKE-bf2GtSWH+0?N#RQT3+v7G`8>?_>x`{U_XFz zkRpnU0~zN-*0Bed)vy@?Dz&Y0z*tBgU)E0X0kK0p{@4u?vm2lXY+S)zX`#&=FW7K8 zvLcpAIGl#nmYlJ(_$*ZZPsGCHj4>zWXrcaEIPYSPSgc24{jk=Q#&=4T3hla~zTWwH zDNRb;#du`h)z0#q)N*0P1}f(H81G#XoG?-M905n-6NxDrts8fY{Ll6fJ7pe9^H5!| zNVbPQPhY6qw+Kl)yEp}QfacQ#vQv4!P6MdyfDUxwTwJ}t8W$QLmMmUUUwJp;5Yw9d zjk!dks4Si3&KvxdPD^R$j&m+@VNp(Tflq5tgDBu)x{sxG{&Z<)Mdh5axsX!fDc}z% zO2?rgd@7$qoxVG&0e!pgy$WRu_PHMeX};3-$L*W~>pzWk4|b`A=8)yymCq=EzM{>E zKyaq<*W*Iw(je{DCM=F+=sw~PF_)pyady}qKNb(r_K=Ck6$U9fC?#cMUh6lOE+_+s zS7@YOPf&s7K z>aY=VUN70`;EpLeWf51(@f0>W=QP=~6cjMmwVPVDoFFizeQ3(b0|WtBCVJ$clA7otHs2YA07lycu%EJa@!Iy!N3_ zXZ_iPM(N$~e=ZgLuw$eKuRA@vqdsP=3l*h9Gd4b>$Zgu9vqlb=!ZHF-q9Me}u z{`E_3D9qb%%)!VlCHnd^L*z64gEk*9g>`yzhN|G;k$3%cY~=oIcK9i!I*!$WURa^Q zt*BhoCcHe^|D~0D1!*Nb^c?y@;ks*w{6Oa|imsin?V=^+cGpoOhMb&sM#>|5+;ZT%<=SWBy+6$aV<2DB+*U zZbnlz18xbxW;}I}(Hr6`a~e=Y{B0*VnAK6aw*rDr40(EcVs7SKAIK?5;(CrjTnUF8 z{;cGso4I{=?Az_i74YNXxo*EG_^TljphOva&RP2IS8P_C17cCa)8Y zya;}UDzBE&TAJ;1GB1izw5uq-_Hx%D1?7Dt%3?ql?e{d;e#N$Vl_P>+8?Eo0bWDyr z+V((Xo{8d>h)3qWjva_kC5zolO>^uEgtQrH8f5d=-Q1O>9l9eX zvBqpaP5`CC*cq2m$&F{cGBEMqSR8%C0^p5hBUf*@YAAmgv@&HA`RjmW0GPDg|pHXKNqVRLaAhf1LXJ)DvTy zU)64oxNg!p@JIh+uT7M7cA6q>%wwN2U&=W{Hx{Afe8UHVrR8>hAye z=CT&d4toPN;>T7ljyyhhSN?jq*O9UvBW-1NsKgge1O?Ug^W><^>8hT_6LJRR;{LCi z(NnViTQ#N66hSo}d>JJeBa+6OA0$icA;Ei?!*t~>_jQ|i#G~SZ%3nul4VJF`9y7ia zySzN4b-x{oO2|@~xuh}Ve(5;Dw7;?HJ^*&CoVfPgyQrZcBdfzFAskF|HVCIl^LLH* ztK8VIm86&M8u9>4kZAAPCM0mpBP9%fkS@Dw2V#A(p6L#*vd=hXXs2b}Lm2tN4YWEk zH-#+J^5xhba|&&Vo@|LDwX>4jXyY=D-K+z3j2#vPxt-CD7W4mY{jDG_(EMC+cv%># ze>1y_M*y_-(yOh%O>aTfCvxRxT^*oq8BN{t4=+@cb?^hC(%qTuk>opm?7 zzL7iIyPlqmp|l1ZjyKWt980-RY@B>CrW;;81ivqmam5hZsD<4VVj&Q5oZE8iFYG<@ z+pid)e`yDUib-$O!R;Mt>YA2W%YYcS*vD}Wf03a%ue1UTVc0#xiWW2H)u0(y5LOt1 zwM^r3qgNKTC+%1voIDBQ^2YT6mB%@_vunDdBYE4iO>)o{$qGiY?4E4h)3Y9v(mh>K za!~tyB|hotSBuo_!Xux`S1oqu6KFLo#7GgXeNg7Whaf2s15N8=Ll=8Prmt|2%lDO{ z_6Q#i!7o$kAUC691Vll>tTVHA#V8FLVA8@^ZA_rgY8I?kPR-dIZb?l&UqM@CCKFp9 z#U=)aOaoW1nr}N8r@^h!PWw{DEjZW>l6WPhQn15`Mr#TcRWoDvK+!yDSJ}W;_ErsB zQLHHpn0-I(H8eD-8J{8M^gJqdFzWeYj}xCtTM6R0syOy^*iGVQzPEO5KcgGGORG`M zGf?q^Yu*j%?AagIcRzK^?-OT)O9W}l%+@w$(*4j59X({!K?`9;vjQ9z`R5l8pekfy3-p}djh%u=8#=z-w%?(b$l)G6e&8&I@>dl{;gs`G?nsCZ*r_uOzP^^ zqdYRcuZ+yi?Y=Qd%ftyiPt-m{Ux@+JU?FRfNT5XmvH-o2AyL$njipA*VO$NdDsCRr4gEJ zO@coZ8a@`JqyDF*-SRsN75TVrLv}H>tGTW3?D89}12RRnW2(x9$X89}S+UKVXhBgizh6f+1Uz)UZk3pdAZ}^b>=^aR^vWKBB@Q(*CRB4uTct`!Wl;gtL4|(zlB)m=Ug;@m1umbzT=5@ zEk>FAdY`s7^4`RFz>SA_EZa9XOsfCyzxnxV@vfsgf0;e8WyjImF1Ngn9sSiK->2YV zkNYvVrCQyi@8ydkBZK}kz(f@q?z{D=$^h1b9PJ3-eaiIzLk#}8FXr9+JQkZbFa>z>VR9ycV1P^Cg#D0(nVJc>#TDH%r! z48PWIb$@FVo~Yygo}zZJI7Lx?j)B-S3UA_>m>0DDY&87;uU`r9SC@Q5=k!|tX>GNv zyJvaK>l3WtWZ=z~;VO?eFAWju-z!YKhScl}AMd;^vN10-n)`76=IBl2Tf^^pg%@6b zue8yu7!n&_xLK3$lUwaJ$2xof)|YfNj)*`+9V0vLEPI3m+r|a$Z-{XhaaC?bJPhR!7Dc^4=z_X+Dv#G8M-=9 z%;YyQ$So^Y`Paw~l|ERPN0hB94L=F9!Wvri4@bBLB&j4cGw{t$`IZUguYB6fvZ(3P z8rxHvZe}nmsqQN9<^6J=pu6DFQFtBMFkza2TV2Cc6{A*r{(j$vVI*!Qx;Kb~Q?uv9|^I%6iqJ>yzocbba- zMtNvuZz?5g${15~W!7J>ClEf8BiLmEOvhn&)n3cWfrtg!Iy^;R+R?Mv9l6AAqv zYXea$EB;S3hHjO18@;^o_raZ7b09#h+y9k83tELBmM3FZ`Vz#_<+ zH4aTxP&Oqeb9)b)R-}*3&+;>`oxC_=^Q&l&9|Sqt?rSeW&Z)|2x6<&oUgmeY-11^n z@B{HZE9~jg&-}H|E}Zv@OI^MSQiz*saO|q?1m$DSwZRSNiPJYz=59x}5@Gg^BdNp~ z;bT&clVl$HuydC+YnvovWn+NpG3HZvthQp492YkxbIY^NoKcYXNQNB-BC{?2{>!pO zZ1$=OX^sCXspX>2Br0d2uVM|Fr+fm-??_Lt%uR3I@oVv#prNzlMLZPRi5r3gHygzL zEPwQ+KEHdBx3YF`fyPT;+J2-HrV~RYB8d8cs4Grs=6~zuM>BcSMu^*5e^T`LKjjfu zGO}O!kF0Bh;+egpW*3J%45$4jNSuB8;xHR~Y$qhah=N5|okJmrz+YQ*=D&ww;Vb-A z&L{HlSr7Zjvjd7$ut1BXI9vrQQA(0#EUuVjWF2uP{SE!Nc!z|08x}ow+L}Bgr9$B= z><)Iv=cJVwkjMxCT@X%;YXMR3QtU(h(sVi5&(L|gjK}Bk=4>B=p=qXk zX4(9qNAD~0iZ$S#dBmU{y#s7X-#(mFELoBD%$~8AN@Y)01yg((lMcNI2`VdjjJdCC zE50&f2*+=>S84#CsHVA_M1y^_4+9liCQk7>QoBy zQH}HZUnxodXQQ%TAzrL3%@&&!C5!AN>|O*8qK8V^qP?_1 z9Qi6VBl6j1+kRNy^$-6nPdNk^DaZWB4n3XkG+VmHKsoavTKKbS8DGj!inFpOP-Cqq zJJm0Pvy9{I5B{ZphlRB*!MmX8J$rB7hBlJ#GFRq}ozi9~9PC+`t*UYVr>;FTYO@C0 zZf_iwk%|48;#01_M60h=u5+R|AI#3|Bhr)?-+p@Bq5tV#H!Ww5ru_F2fx+NK4t zkeY}coh!^|1+KDN@^_7$&?*^%_U6aF@@3N%R9^8PGx8L-W4V)J@f7dz&7QZ(5M*@6Z1jxt(i^`mK%UK@TokMZFKFP;xE=NEW~zfabD(g z5{GpuxrY%BMf443OTV%3dWU~*I+**KN6XJr&(A9#DjCJiU^3A8!uoWpgw|oU}TzOJ8?Az3_m+-j2>1FmsL&H?5bv=JG;zgi0 zhuv`$|EB>nN-OXW7jQhwi}E$lu4U%{1XV%7yOU_U(^w>H<8+TGCu|ZjeCVU31SCdG9t7OhiyG!MvZ9#F5uzbN#$@ z8~-=eWTpOC2# z&>?Jm;n4a`Xi6ask;SVQk_{9Dlgxbu=?VUKSMJAC<{+ZX;l^9`Tz zS@fUV+?(xq1#B%RED$wYThC@--aQdI4{|q#DhzkIs=r3tM`2-jC2Xj&rV5GbExITm z_c3MI+3)v_@*>c1Z6CzP2m^|~IHSd2s&@crJ)eYQLvf?;llyw1##+@#)DTKaOEYA7 z%^tRO?UBl@oJjR1IK=*Oh??R|rhLc6rE<`k;--M>p?KRd|I=pk=k;P(9UY@)XK7ya z+4tv}&8P8oyCT)l7F|#Aq*yTgdcS=scmUtl*P1L){hriaGc8D4hu#bx_-t)3dUt2j ziG)kmZ#Qq9Ks{E{_%>8_w8xK4evbTB1?V4`*A7J5fg^pirX#x@OAf@-FT1?S3DA9~ zZlDaXly;$PKSnD}l=_XaT2(=cBdjvok}rF$ym7KR>MToXFF1gTU=IwDdz}Z2ltD*i z5hUg^Pg}L!7o&4uwm{3vebpmjf!t90p)>c$r} zVlJINYEOkEgb+yf;@I7K#@(Qjw(3zQY)njjZcIIIoxCixG<&k$=1^VGK&~g9no&7e zD-Zxf!I+BJ3p5+UWl}q=XAFEQ`Q7__m1B)+Tfv$e+CT^imrd;6I%_n#H>z^LcZ8VY zxfr(I*DciSkdnk760#t^D4i7Q8yuK&r=h;9l~U@8e`M|DRFIz^gKw;_1R6t%&U7Vx zY%VExMMUVh&H_7TJzdOauXJ~n{_A#k^$v1U(cpMUq}JXSNq?F*Hq%sWeKTXr!qt(> z`c3}nhy0i#Udg6JndTxyihNl*w|$n#ggWD{B4uOkSuyyUmZ^hk65l{z4M01@^M#Cy zgQTKP4vIv?wK3lDp%iuLS_ZVp@7wy|g#OD?T>JfPpvTLCM^KV`Rk?Hn#5|9BrH(sn z#xzN71==V+jV7eE@D|(e*U)-k4wQGu{-2expCQ1@i$tE+deBe(e5J1!o4&GSU@c6YS z=5ydf8k(0}7DL$p1x<@NdKLgOnUl4IE{ z)Yl??Esk;RxWBa=q!}wvR1_YEf<+fEAFUSVX)z|VeZ*h`ECcr|TlD+dglnNT;rpOE zJR0b5(NR0C4dY%gVsJBdByRHR-FEI|P)}GsszV#UdCQW!nz;hEE4v)vqR6sG84m+Hpy&Mx}(|kGtc>yPg~H z!mtRBR`(;Vi1M0sNe|(}9jVXDSjPvSKzy z8;E(2&bhay`EG`t>)w)HwJ8x)z)eLI9V~n2IrF>U#!#JeruK`Y=S+?*DVAl;Wg7m~ z)&UCU34@}4nsiUaZ9foIS?-3qd!sJtXdUeWVf1$k!+4tEDSa!}&#LPGUf`tp;}@FG z&``ZRVpH{zz-ZXlM=?t;T>X z61g_sa=KNyRL)-45SF#O$dcnTYM|mcXVp49vp4tq#zNPZTaHFI=ajNVcK_Uuy^)Q& z6){qZ71G)(`5RyNoG?`%adG(;_y@Xm#CO*G$N7qUcyuOj@~MT9Ufuo)xA?WNSoi_^ zXI0xUn-w-~|3w|iQvG&k!p6hs+N#?66a|Ra$aBaf#Tn;?r#|I>8QM2f_O)PrGtfmP zd3I)TO(zrBuPi2h)g5|jKB{TZ&T*#4wDrzd=MnYf_7x*NuFn*owU;yZTh^}gcY8ei z`GXd!qozKd?#YFodJdRaPfdjXRglb;MQ(HWl9YQ7mZG?hl6G_huH~KvcD)Xt$cwTS zFD@S(=vRnxUcAxPYHZhs{S$-EybUI1>RQN%a?_?mY_`1Od)U%%^7SHe1AByEDqI7B zk#qRYe|AD*cnlB|I1DDRH&Qn=cKqLrFQ99hO@}ONj|86l<^UjR$1Uc&wD&5$3u^cn$ zn;bKf94dh}tU!^pqQNc?g9Kxw)r#q;amd&a??fExnhovb`W3S!PgAdsn?e9e3z)$r z91_&a4Iwi77FUOn1~t~Ma?29-Ng@z4kEAyC2n0MSdOm~3%p$Ep=`>b`B(xI>?+xxb z(CeMl5-ufv;x3-JGLxi7O@*jb{mal=s<1`I6gE$pX+y;1wb{Rz%l!34yWeZ9uNr(h zq^&CPwObIy%cN--ZhP+<_?vx|l%smI`E)3y#VZ_eASGi2`h}7KSYm$`FcL=T*Hrts z!t|9^(W-8A$iHYJ`T;>aA%w&be{BTy;ZF$`(A?YJSGKj*^PoQ+&rYyXssm^hF-60n zDhi&mO43YGG3y{ma#`B%jO)!f^Qcz>yqeDRu1B^L(L5kZ0}R;#IXzn~+;Wxzbw%VD z<}3~OQ0iX~j~bVfR@TIAK(Hg>hWEa_FW*Yh(M_zyZ+2NEG*$q8?8VNw<2qw*l}m~K zU42}sG&r8c&rlv+fTZ(M(lRs|Itg;&=5gY2AxoF=Gk^;KU87vFtM|;^u&|L> zA`iN0z4nnQl?blP>5n~`znYu+qgvWH5sbx*G?5DmYET``WU#gavCi;z4J5sEkV$(- zu@Xb`%kM0ii!0PoRko+pc*Qs8v5&O}GD>^f{gmEp5eA(2^`pYzM8s6kmYuspHJ4~MOQ?3Q)&J{A4^T4sm)LYgER6~ zcN$broRE_<=FQzuPO-Lvjv#BBg@pr+Vt5$67Naqnw+mX7C^cdF zjTiHBJ#2ZrcmSD1W8wLoYdq5urXPJ~0?{fwXN5^G0z}%WV(2Yfm;H zU*_crHdgrsbV4X0BHJ-XGv_F%SMNQ_d*%gmj^>?!C5)j4+wsI78l1QQFj8F>**AgU zfY$uWrtNrGUfx%8mjQL{E=E6vh1j-RCCa)~Ua?ezEa$XiG2t(8Bb8e+ps_Q_ zM-S6B$T!3H{MVaMMX#r|bYYa?@j2TEaI$KScH-bp?lmnKCQn@ zyNh*D{+5tgu>~9s&3tS*;>gPay8cQ7>BL}@zpw4SkE1%H=0uv5=1OGJ#(v~_c4#Ez zJ?!jIYv9$hh@EwRTeQTKTtR5d9oW`YwLLWK;C7>&>tXP=5#*G-Uw~>+n47STmAP4=j4W_2gU6&)QpDgWTGo3aC6RMEW6g67e(uGV zjr9{QdjkyRGfQ(E!c-ieX^9X$SN7DUa*pdddnSZydHb9mklF3!tTGamBdgm5{>X0wi-jfy4_Lz>S^cz7B6`*!fRP%!LWmy{g)aS~%}NFQ;lYGL7WKa?Vh^ zI1;hL=}_B!M$D+n#dzmH?-)*2mnNRlnX~;&HSZg1 z0Ol@j!adq6Fbt+o|2~MD?2eB*Jla^R;ML^V#(Lqd;e$M#2qhI3D8e>8C*Uiee4R&yS4+C<0g!zrU>x6S6bT0NkbxX!)ZzZaf zF6^x?V-X*D7Crq2;E4lxN5yO(BztQV`pBvOJxN}y6j4S8RNSJ^#ZtZ?NtyR+lS zeJ=}1Ec|#tY1j66e=26A!>~je#9h_$o5!pk29K*^jz!DB$q2w{WF1#F(Dv^3uayu$ z-{+!~8f!}Hg6CbgOxhjnDyMQ2ZmUv6I06Sw6D?OW!!qVXXmEQ)mp~Mo?c4{Geva?PHqh?K$wc9Y<|LP4^n{i*(B) z6}-)zcRBwYGkKh=ug~KlJ(djbP1a2wHSz#6lOo;Be{T80wSPZN`t!=>p>1WybqmaA z32;42S_sWU`1ixSx1T^&fV}dHrOl9u+c6gpAJ1PDN8jHqLoouqJ-#YOs=JT_A8W$2 z#h-WASyzV`JD2flSSqQGmJF51={r|#^}oNYY87f>Uqx~%-xE!x&y#n1+*gQKyu2cW zA31g_TBT^ztP_gb34aSmzBH*nB=mGn1g)@4&;H?rrkyno+h%M$n{jG<*L9!F1CJuI z6k=5ERSX;{IyC}UC5g$OX0Y>0fJKcjc%S2-=rC(aSx z=$_c?+lyz#+EIYv1J&qkm#DC&Hu|RR|e^kFuPo$N!)uy zc;qN$X1XMYjomQ!wGN{PK5m5B_?-I%_zEQHjzDR$#3Cz%fC1cOmP72Xv5O*YXER=9%3vO9X z8KaNoE0j`6^WNw6Rc#)<-3eqIC_OEI%sZg@meWIyn$?|r4_olstGDWr)?+M49u&z7 zc&+oPZH%l|2ybt*moU)j`)i18b>c?$OOUWRr~VD?vKOA(*qRoiQcRv@C~r4g_Xpkn zU2q@>>ef;_!h&LSId*v(xt78%ChIhE)@F+0OHP38%bYsZI68GCLSSn zdonyjfyI%H>34V{w__cQ8c0IKjy)O8+^ZSgQ1a0tLzM5Wk5NbDBFKx&9x2NA#MFO&F&|f3hiXy# zATdbZS>vb9Ppwcn96BLn5|6ATH#vB`GCt0kn*(PT0#$cA%dc9#4;UFh zm)`SpIYBTUzV^`ZXySKIRU`n z2QrR;2duDp%}cVv!F>=I4LRZKew)yMBai%5UWK)3vY%8 zprM2Z);@P?F1+_~yOi$v^i0LtRpO#=9OB;Z1`i7atSV<|h8Qb>V&6yHfk*52qg)yD+xS848jez-b>?FaU=&y6 z{WN(eLb1*e$YAU3fkb;*DLb?^6Ij|HN#*QB4S;=gtm8dAfX(?j2UZwb?#5ftr&4LN zr5kr}&kP^_dKx^JlaCGsgG}gvmlcE#?HFE^U5?t5L6}=0LfEBK;@<;tWt?CXT?Omt z3lyV+S}x1Fj>?vRlLOwS8&c8-dz1`XxwH$~b{%vKOJ(!TpZ87~nRK7~1o^QR-3abF zl`XJd0|Q5tP>mTTM>cw-2DA5;#-Wu9`+xqFkcIh+km%kxue3ANH>n@~AK|12yo(9s zlw?y|->#O%E3V!%)yx^%fMO$`a)hDQX!-E? zixj4S18wV)2nddBA5%4Oe}DpE8;pv!A7^#lwr*!pX0oDmBglES6T*swH}>GjK}ka( zY8KBtJOhS*B5T&bb5pYA6C-pWGfVy@NB-_=mlqpft9y*S4z_)Y_TfK4OqeSeRxE2L zB6i)q0mBll+UJVL>PK!y=iKG(?%Z=d@{~Iw>5BG$ZehAWg5h<_03rK-6&HuweXf7D z&)=F1^OMt4{=HzVVz>Gn90~AO3Vk*_Grc)wy?ga5XFJ%ZVxR2-E-y#xNF=R7czs~$ z%^~lIAziaBSgzj)F$tk-M?7BkB3Il2w0V_vDWf_w0T_$pE&*(3s=Vl^{^5!H_w6$+wy_%HMkeyU5lW-SCdB#!s~S^yGv~;9SRh}TT-f@CKQA>ApyaE@-PM>+iL1ro z%e#1MAwhZf%`a?qeemGbmU=aR%#l9#i(WcX>|y67F?}}km(8vn9P2FXxDGX@J4`C< zj^Vz`oJ~qru-(=%;$x9|HL3u_I?mcJdR0}C&v(WMg1cA#K4qYN3N$;{pU53>F>288 zwezo6<32)8QKP$qPOH0%V``(3-+X>tR8ZJ(0n!z0~N$$q*r`+QO*DmEyO{pk^ex$xc*LVY1WgGRl!G zA#IgTVTv`ZJB!-(5ct2n{rI;Y{d6k#R{bfB&G)y=>RyYeSgmBtmA3iKl%Wo@eK-5( z5)%n4#LEf2_Sp~zivcODc14RnHqXlr>#HQQOLi%DoZ7M6zuDM{A2dd2jY`AfWa#ay z%~k{w)-99UYeixutvvg+j3@*@*Z9Yt;Yo_h%s{V`yqX`B2eC`!(s7fk>Q)(dPSEXY z#Jvb_iFlkFs#`25E}V^bThLCb22WY%cO9&+;b}9OCUu^X@UE(=uX@8&dgVb6DP(3( z>!r6?YR!~_XP2kc&acdwySzPRj}rGXE_^|X-RJd0Jn#P{s#YqPZ-}AL+n>68XOlr# zw5luUCq^r^RcAD}&j0uP4!?&R(m4NRgWUAKCd{ygX7ut$Wek!NM$n1KPpm64*Y`7q@)z05vk;)*o5D4?O zQ~Q9qv2i41Yb7Azy$Aqm4#iqsihJk{;N|$nI_Y*&Snl=OSQMA^icjL7&uCCkiB*e3 zmV07VJmAK$iGm(K7Lh>F@+GFwm_O9ed!WxF!R3|nTUQ~Rq%|1j&?@M7Wc(t~Hx0v4 zP`;_pT5YwkIo-;8G&Dk)Gg-q zEJU{`w*0Lu>$R2h437Bi?a12@K0X1Ufbe^|jyRlcEaCAY$!MdeHxJQ>bfSO&t>F5E z!tbGJ1nMr>L36mR_DT=TI)LIwF?6_Ni#B@hcGk9Nw(rzmyU+Po?W3jgQ}{S(Id(2# z{iBTu$U=%AH_91B_)^ZUB-{K!Zm@XG@o zM-S*c-ikoZ)SQ1O`s*OA5k1c*q{%loz65b$Yb&UwJ;1*Ys=Ok27r?orK-x4gAnJpi zf}vu5t`H2_^N_-plfLrOb`X3kAO7`@q0vZTts_j!46hfESD-Kv(ujCqXtcb)^z?Ak zd{{fz2kpq&ZeyJHJ#lM=0V2#7?iNsJ=>Mx0%>C`ddm2Y+ej@N{|M&XlGN9CGl&~L6egMaKufMK$o#>Z$SG`I`AU$+# zwZfDe-8Pr}fi#exdNr%(EIQZOT+$d=5~Y`O^kwr!=0;a?{zzbgMNjTFeI6+W%IGwh zA)CyIrkT=5ox?{1Tu<-Rt}*>4Szd!;tT2sevIDJWoWB;$;JUXQcv1U{S+wvw1`~dT{=m3-^OQ6@oC25?$E2Z93tnYJ8sN)5%7w zf_ezLbNZ9*&Z>y?z^ACr_quAbQ!mMKmM}C*{iOsY-3Kk@6&}mFM}eKXhVx$bGAL0l z_%6LPVycDFwRPwANrIu3!&)$B)EBu>ALRY$YSEQQg}syYi;K%Lw9%Q;Tr+tmD=YbT z*Ol_A(PYW6e{TW`=*X;cl<(TA2?X=v+vi_0XUtm>FB+SRZ%KUPsZ`OGL-u=1Jryh( z^;KGATuV~%;O$MD5DDD;n#kP#%>b^ow^t~Jh{FH`b1@PX+|BTBduGO+QOH*6USkaO z$h@_|@Ns=n05LL7E)IV>9DSq8T^(+F-vg~WYd>qg;HOI|I$^?4?-o{H=J6pY2kmOO z?#vX2-^HU~2du*lDB4qX_LtoNn~|mZGx|R5jGMQj;7>IaqFi`dp@l| z-O|_2klVlhr}?c?9BCalHfN32Lh?aA$YikDCRHCpwco_=qvzLfdFEWRfhT=ueYir}0e&|B6|zl8b@8e}Bdb zU?Fsr#)-k%_IwdbwNr5>uqeRg26%FGv=Lfg-Yj;^UXjwrwrULT5=IH!jwa+7h%n zHp!eANyr!%fda_TP#2YbO7{d4a**4&#iY-fNzJV3y|Fo^STwu6>oQwW(9X$+9WMO3%Qor2^Y85Rql&qPp&W(SO*fioIzJXA)sucnT1K9?HOX|Np zHGq%g72Z1J-9seFG^JF2e5>=yp|}jNU~u{qcJRYeEC>S9GFxhG=d~yT`jzGkK9gOIqluA zT|qB!8QLG+S9X^95U^q?`oxT`fh{-T)|nJNTk^CRZ=8fce(tj#}~8bgvLlpP89mHCl<8(w^l@uEt7WUq76S8HAQvFwe`} z0#~}P-sYW`GNOhWAf7?kWRciFE%rotn6)$87It1PsRi1mw`p5edPjE#ehLf!2P;+` zJ!scZ|04;{{y4-;rBWrnL4S33r$&^AAuB)Q4a%ZEKC_hnb{*x>P`kN@%ltYpomXeQ zWY1D13X(@IX>1%nNIZ7yT%ggD;`i@wMJ+C3lbDLxT-$9?Af;JhO>?ez*~|QHi1^bf z<=2I!YmRL(&=_Y!a4#=5u-{ic&mcP0Tja#twu{X5CHuEOJLjkJmqo0WVUznSky)x> z{_2C6tf(WEXzI{RUGQ|1<08Y~zwQ`sOAgs*r(RBfAmEU;F)LsJO69Q2yAw5##<=i(?e9Y;;NsJjg!Gq=ose3NTf$|5H=NSmHAL4wu>vA%Y_@~-gLdb5KG9io63eDG9brBEYY*p<^2r8?cq ze^krcy*52%Y8Q_sP#@*q-kNYeQ5S7ztEdVsJG}!!C5IT6CAET%F#k%yWI7G#h0_ zs)-L?!fcgf*HN2X;TvvbNhMTB9qnLp@A~hD_Bp72_CGC~TP=TvWd=<$*Oran$VH?meCJUVLut5BYudKoOt*jY-pE#=iOQ3u8su z6rOmz5vEV=4Y2m1Bz*+sL3{0(Dywnoz2oze#gmE&TlHkwpI2+34 zLb0Z`VQ~kGuLNkpbRMgSQ{V?0Y6W<;WXFyBGX0EaYu(s2J|9Hz!Q;PLLHJM+M7 zTV)uHPIz!>KakXYI_G}8#Wm*b^1}Uf47;;m6{h1wUfnVIb7MAi&IE2t-sMvB=and)i$Jb`B{u$vN3QH># ze>tK;#r|pDbgAo{9R}bB)r=Qfw9a`w4JZyN9K0T@f@u+IMJ)>d}? z;wijCLoJ5-h6kD)f4|?SYWJT86bDK&Xe5Lt8`{Co`y)m#=PONE5c>Q{+b6HF&bMd6 zq{#uIIExdL+pH}}<0)kb`HHlY_^Vwp`6qw-UrzsP`O~|qBUa4r9f`X0C^0LsnsJ}SJHb3V_^c4v)sDRs&AhP}tv(`cXFO-H&u zb}uhVrEQh1^f3NiTkW=T6zz0wuE8L|ohsU%;ZLU2f4V*?tQ59PLi58>=tR%A>jXFJ z3aS!dVHoIfLtu`tPz1e-8$_>Sr|@#m&Nvfhk3{-wZbovJ!523*})5{r`2*M6C_R?wMn17h@hWNiXKhkS#<}XIw8A~Myc$_bKu>-PG zfjNKb=PI}`60y78p;jCuSrN^rR1Wxg@`X!#2?D-=w<4vDPtWkuouo8kibmSnRZHR` zFH~8*_=n~2wBMK_18N)_BaOu;?f)+3U0fse$yV!_r+%~3oDgIOFOQlJJ4Q4e3I<>N z&}fk4<}7O_uC77SwDINZUmk-Ell~ajUB4_nGDGL;bozHVgT@H$*|~rV!*mFMeW$QR zQTFFpT&zf-K;>GXZ4$#m&?ePyr9uk(n=Qe=L0z9&Fl4NkW% zjvsM4_(U@|9wp7-E{+(edd3Av^az5Beps=@ z%*6fVQ>qIoEUft7nG!&@5wXLfrxZk&d!-3|-6q{deiEs3x0FbysE*H$?%o2+Zs4yD z{G=_~Uq-FY*V0)~&otM2=%Ezx0aPOpofqy;Os;9so2A4UYUQ7Y7b}(g0{XYk-d>a2 z*pL{1MCL4$N!)^IO5(R~XPt2IPm*~2RoVk<3|mPKk@-f{5n;v+R4CEM3*z>h2=ma9%D7Uw-`jsV%W2y95*8DkpD`Kkk0)a z0Fc5hbm`dLJA}ZFJLuG|3%fGz3J#VMTC{;%hRkYgvZ$3UFC{92km-)ENGWdZP9|w> zwaJNO95_!(r_zY25MSEI9?JpWQ+Z&jn($nFu8thRpQ*g{|1kFM@lb95|MK4_4%3%He=%^KX`%jMD5i(d)J+W`%ITWy7WIP?n-Yl@lsnJByGpF zBx|2Meg6>71Bl)L$k|p0&_CK0G8gSQnH-5I;$a%JD}xDuUrquiD4v=M9gjYoEZ!Mv`o+@mOn3c2DD_9^kggo$c8X;AC0xf`K@X~S{t2Ya7~y*17QH~A*N4m z;@a$|$e0FkXO0>Mr1Qz%;(_==#;hNUM66pW2A0m^M z>NaG9^A(JaF6#sB*Uro6l1LOm39+7yBbc=wjM9Y0?rpxuC63*twv2n)%wku4jp1Ld z?4t9gC>!F=n+`+sjqScUF>M)4ny|JcW-u$Gq}Rc2j7d)+ai&^w>@SR%8l{sM~lt;psJ74!FY^y+t2JU_a6KX$lykx4pC`Qv5klNmG!SdJK4XvWSa*?0QP_Od8Y^05&Z@EEXq#Q0_y|v#BtY{ zZvMLwEtdW-Y*tLk7JkL+x4-;C{qD28uY&yi48^(7xbEEJgi7lg8f!v^o6sZIm{>%! z75F2Gg*k>d+$P!M@99)-Y*QyER(ypJ8XwHzy0wi21HS&y*J4Q2*d%ailW>QbO*ilX z%$chmm`2j{qpv??ly142e)@C^a`$TZw0v4s%5|3z-H=`33*r_jhn_9pR8|-9?Xl^& z`**;uM{KWcutc6PpXmQC?UnC3uCw2vU^kqbz?vMR1WTXs9B6@Tc{sL6aSE)Alg)AF0(GX1P+TZdl~8uUyr`usszS>V6>~*=(S< zqzA%J8xgAX4uXx0b~MG{m?{jzI=x;+C0pLpcYe5Wb0`iMnB-G}PgYqY*KH7aeh>?R zPr<$Ow-GgOfXFan%j=;&!|%VqJqqQ^R*bkr;>zahFCIQP#-9|vh;uDG_RHCVs)Sh! zq0FDpMFf!|$@s>Gck83)x(%jY9L-1QY7?s`Abf4xhwEm1sA}9eIQRGd3tl~>o~d=v zgk0hJk_(fu#(J{$PYfPx-3SkgJaPPfy<D1!JCU6PSb4w&nV#(`6A!x~?F}?I z9640BM1k#nyH|DHrt625*N|nDvs@Wv8InM=18ZKbIqv|H%YZt8T|^S%RGhO*5?vRE z_T71pU}IUuLQ#YA>pCD3NkKHH=0?69k4y^5joZGp=nypH4a)tE)3^X zL^SZAQDZ#q`%S&2f&Nc-kS}39Kv9CC<2$aWf6-pw+Nnv)!w8$ywI@_DJ>jW9;VTLE z_F|#T?6hP~3W*PAC#eG|)RwNqA+yviZst~iDjJQ!ybo&|?g&j2%X#$$LcLXvv&o~} zWTu#J{pV#z>~t0%(m-dJGCS0+$~&c!8JFh&g9C}KrF>UE zqwygtyGi8PSkvYz+qS-`yp1FRNDyY-`#2Jp3jj?6|lB{6Y(U$L8JoSl(a}H9S@i4?I%f=cd!&$DbaNTsD+LHuH`*+Wn3bx zd#6{{AO7QF;}jD-Xum!vd{6S%?Pk(>$zsp_Hr^czi_S34M4CWK$1`2?{+w6=APJ~t zrXkBnc8!vv!=bFnai%ylam5H?#0X?>P-I?n+MI$6{2J&B&u)jnsdyU5DerFeW!R z{N7g8_XSI5&PuXvHj%_6UJMhwki&q>%tPzpp>9@mPgALHntE@V^sk`%O6(aUpb3?f zB9SFGHzsfu7A*45w~?0h;>B|i?@W01xNxN;IRnhRu64q95oG&(yy0`Y)RJ>rUQl-f z<>C*-rC$%SIiDpF{+?aJu3qTlwQG>O%k~i{ zV*EC?CoK1!5_W6wn-cnbGBq+^y*XvET7~?cP6Osa`wW4n;NcrEd z_&5@`eS-2f3*eBw*k*r61uB|!Pd~P%(e{jUrR$lbr#Uj`GP=8NL(-{WTJs=*GSY)l z%)|CZ8P&4J31+#e$4~5tGif^#`joo83!<~=4Msfaoxi;&8EfkQ(uRT4G98_ufH8vjVK9G^g6xEij)H8*lh8);Nb!6H%IE|X>LA&&R@`Hu+ z>C?<~!=h|~Xjy-7D`r+Pm2gxnvjb*%gC3nF1BL|A4s2+c5Sz}OI9cAthZ|3~KGC5t zT4HM_Ltq$fojjo=iSFtrNOBcW2_~Pw9RD%Uqy`ZGC@1IGBykIsC&o?vb%Ly%hPX(peUOSv$D#9 z+d!F`Pk@S<4qI`H4uh=@vz}*Bql$YyK2X9+dgc3MCKfnL1fNKUlTHWxPiNny6@bZx zzQIoXu-Xv-=@-q+Q=H{#PDGboAqSeUmf4@ zO~C|@!hG!4(j}mAPETMM zT@8zgY`8^X4tQlm&QH9b>Y`2vi8?1yuXdkYIC3y5yFIAs*efg~d0D7}v`_Qap2dA=}qIPST<;|kT7_Nxk zl%wa=!iU~kh?cN@e7({nO*Mu0a0jB{OUx#W*hv174c^-^^wa`WlDRNp3ek(;=yY75 zUPPt&X{9JEdKxa>&>t%ea4E4yfN zLjTA+)&4eFH9}8q+w2YjwDMMy+SbGryTgEea9|81eH7mI;mujSx0iE|9Q~8BRaQA) zk78gi#!gT!ejX&A#IWMyzopcrdV5JuO^`VJ;l&-4Y zzLs7TW(Hl7Eq`#o%BX6mt87o9?hQW*f7a=MbH!^8Og>~4vlr*U(6 zBjr&f4EYv#Ww0!Fe>N!i*s2D(IlR-BEHWZd0M(t_pbzg=deM*Bq)pN7zQd!Xj4@M)DKxxjTm)1w`JU{qGcSm` zG*L5)d(shxQEUP7hn_w$>*rj1D~e9$OWHc!g?On17axj?BRL)7LG<+TCg-Nvpc9Ru z8B5XJzFn0bN6FYW8qa@%ve$@maCvKIcBNgQg9V(ITr#sBqKm{3gq8bMA!T&BqmIYh z%^XD!;ym{v*5s(OJuTAoyU7m+8m{-lb0}Z8E9n$b*gRoMEcKhT8xpfSp)cEC#wrg3 zL#5D`#i5~WP3`6$2U!>pwe0nzQ6m!6(PS8yHX77%d-1vS<$B{pF_```$3XguCJbeE z;FuCgWpDVgjp}^|^rENQBLY1!e^3tO=jJ|h@zwbe&soqRE~XF~EM2((k;R zVqkdCU}rUp#9PRnNGA!3?@kL7J9h_nGK0q(Yg*OO7w%IO%}R(Z_5eQtx=HO+yePQP zkhQ>+FvEnLS;i&{TnIeK%c{P@W0#8!!Zf+w>`FqU=?l7~%4!ryOar(u7*!?n;*4rM zC$ zZ*0>2qOG|KeO3`iqO_wei_&)_O1pxitPS$?yJR2>^#?cj-Z zuYS3m)#<>P_3a#=b}l)Rh248o!3|n$Sl${hscQ?kO4cjbTf7Owff`}qZFL#O;>GoThVlvMA6T7dMES_E~LinI7*jra2BbDJh@-smu?Q?)F~ z(1OXm4DpnVE^MDsU2)R$_dacXi+#LgmNK6Xk4_hK`4F>?X=k-``8@ERKhZ4`{hc(( zYpnED@yN65`MuEnu9$R} zbQ_{{cT_h%Ut8PF6x0lIu(n!TG#h-OA-SpVXrUwy&2bwRKbNCdcZ9t17QdX0iw`|% zqMFz_Pi4N`E)woOuzu7iI?3xsP0~gUz5sW`C?3eGi;j14YY2udVe2o?xuR8VMTt)KxLeVIWX!Y!;(yAlTJLM`oiZ z&XVnoy=Nh#Z{xLLQ&6>ybO}qVc&@f>pB5_8%E2HGy{#TVb8#S=RIFr>dnK>7vFUc@ zu{|UDwpyqj*WdNj4uQVnDCHpK60c@wRf`eskpFz+{4M`aZFSArcVzZi7_S4*CHSDW z!gii#qm#qEKxZ~7qwsfl&2W%w;nQTNb3PYDe?%Yck%iyI@cbAiUh3#uvBa!zbcu%H z^Nx^e%+AdB|L@^yl<8^}B595VjJz^P3%+(6mvwb5I8!%M|S3El*!(J)^v|9A*^ zVbwZyuD#yXqq6E(BJK9b_4hXf-z1ZOzflU-8ik1)A z(>lZ{9ON9FFgivThW&o#7tOM26@u#Z)NSwg}5^6|>OEOze zA5j8-kGKRjCzoZhE6R*#h&&<)HZL+I&VjxYc`1nP zP+&T}p6pIIqXEqoL!lAdAR-9HH%>t!;XN(XTXeaqchfk5pT0QVSBd4c#jTD68k6QW z=mFjNh2K6&0xyM(Ll7{ZJx%KDvg5XJc&G07Pr494X!ou2Kqi*w-Y>kQe?Ug3joeyogV*#=nU5QEt=E8s49n!1u(0PB+(=i4^C5_d{VD3zDQLPTPw8GjcK zkcr2|(sw0N-q4`;G&HI1=YQmc&r&qwwv0a1y@LK$m+*=2Kj1n=hUU9QO;?H+OUC!5 z11y+8+Ras_4T}j>Wm;KZMu%*ajLf&Io36~x3Qrnm4EbSTttF8``T%#3T(Xj{q9a`> zeX<9Ny=M`|4v{YbGH=6(ok3o}CbwtpvCNcq?4ASHsET1XwTVi@(`DDX)F*U4>|h6b zV_O@i3v}ve)R%z2!l#Rps3}yT_*jFimWv%B?Z+<9L#JK;)3?}IcgAOBBYie*f7&|E zFhA^#BUAk9>rO7eV*;9^LF0?69Y9MRW=uYiQUfD7P)+t(bN}qf}l@>vdcmvT9*u%L--~3@ZlAJkUWCu&ZBk zDp&-PWZX?CH!Q5+G8dTyqdB(1@%5CsS-+4l!9@8TyQmCapCcSVW6j7Trz-iAhXl=J zFxHT41B6i2vX%VQ;InAq^EF&W&O|ktrR?2e7(1;7-Z^+KZ<;CLgy2S^X}dr_BYb#O zP5&wxP^!%V5PLi)%92K~B91i*yQRpXjFkw9jZkP>$i3|;PoI*>dC~M_ zjkQKH2`Ww?NN*4qMutn<_^&_e;L@zG8Mfgiqueb2VPn4#$3?Lt|F}7h;2;wk$Q>2h2zL!8cy)mfXLvtV*fOrw87txuqF^OvUF4m1TI)^r; zrwxnw-W@;ov;hh3yvwMB({eh5Su`?o+OOh|1P6ooa~f&jg*AZhh6G=(G0Nf`C?9*! z+j7aZs*QjgQb*a~r9wjh7UqpX=`B&s@%56$g8{AWxZ%N;el4>;zk%3ZLrvsq6&1;@ zs;$CgZN`8(gPsMQtE!&s?3BS8xn^tRu@OcEa)z3?ia$1qZs?Eg|3&F>z^C5lZ=5Cf zR>>X%u`w`=mQkI0pIJE>Fp!$T4IKXgUkY15M)TM?KI4>)y+Jw5pMeM!$Xzk;-tc=@ zKL&=~Og`F^a93lN@l%HYJ4zLvJ^Iq3rsX|?Ag6c!YxF!MZpEr)G9kY91k)}HDQ zoSKkrTQC{;q&6G8qSL}aI3(Xz>5(n1)Q<4Ls^~!KNUH>4N;GBU#K^m6@)xcTCpXl1 zjZ+bNr&U}sHmD~t%4cDN!1=1E+UgpYQbc@vu%)&-cA-$K4c|hSg>QMg%geBNI}IMI zemmdtpo$Xeg3<-}@4040V7%OKCaayIVWX{ut*gCj%=nCX{Z!Vs?Dqs+|@D46j&DQ}EOCkN5Py zL6!Z*hyBJtrVHu9>h_2u*(EUzgQM}dQS|zew~V)M{9&rmj{}&2O>NvtX-#dgrlRVj z(K1^>nDq15Hp31ULd^zNZ(T>FQYUa0*etw<@f*z%Y(-gZ2OhA#r#dQ_zOQ|O`YBA` zna873uSXm|v1!AA-|sn@rR%<$W*xh3D3~9HXz|07$!ZvRHP2}Oi|g2MoZnFFAdqSI z-G2SGb%Czcreu8pCzp2A@!>QP*0y8W-rf;Tu}il=+<@=56=&z~At|=dnuhKB^zvNb z6`5I{M4x&fl2X==mCL8cy}hY=);=n(x$wpIyIldTMh|DQ&9!>gS{{dESQCb>4%rI% zpC^BVFE$28X~kuAImF$M_0~xs$H|r;OtL7P%i9ffORq;027m)+vwE8 zOM`k@`;Pa?lO0%;g;~sm>p``_5S-Z*@1}KAr#yz$mUzeK`J?A;(6E|M17%Us#=|_+ ziEgCsW*zLAz+AkU-QKiA6(a;8BLRI6G~NTd0x4nfgiEr$4Q&!+|P!Z z)mwZ5gFRgxXlHZW-F~}9^?bW?$E&?+WuZRFc3#+C{g>o-`mj9U5R4`}Y!#;V!YCU zr(~5iFe(g1tqi@`hEb>Km-?pmgq2WORDy*_6hpm;DpD%H;fRwjuDNm`F3tjvqtdN! z4uvrq)1~bm53bDTIw9S(VKbK+R1hCeu#^G$@R1&vqgYXCTixl33-zg=$q;TRoh16} z%@dwzI%;-@B%pKCzK<9gZBbg)A*Tv8kfvT3wL8+w`J!Vix0x!O1Hpaz8+hVQ6x5$0 z9om1YC^|!o{jR#{>Za?CT{v5)Tfh#*DW-`OaG@DLvjr*M>ODFcQvQI&>)OaK@##S-jB7x5Pz- ziiKhdjjfoxjY{0Ymn~^IRo3|4?L(3VyI|iD3XUhDPPTFim6+uqs|q7(>(o+D4#k(pg1(RZ_{VVt8NQ&MG)huD zw8=3c*TGQvwQ6ugny(GyH>}ADNPj1!j)Vje{7p2j?unJu)fNZkrfrCH(QOmOOPhu< z_f|Ig`HwDECL$dNsCW*YHL?@8OMY8k^Mz-jF7%iZFnyCww))2r>bT#X zE2KNZ_WNO}>d!Qeper4?h#Nh(&XZw|ASPlre0N+Hf;vJJKG-~*^@Tri7-DqgHM*&z z??%^_)fRhz0EBs<%#En4ko1(Ybo|3L?}aZU_u+o$Lx&o1eQ{>xAhq!7v5bMX+u`i( zp~XyQ8lCy@ty*R8%uch$tUy;$ZAT_Ryi!1zm}1>8q;v7Hv*q-p{J#~$5&q}=?!!J6 zIAaS~$*s3PZ1F6R?+h813eszYwB}*OtL0_1>RuQI;9mj6&0o8=flE);)C#JPvSI;I z{t2eP82e2{<6d0ff#8_lAgas^rk#N9|1A@=JwJeDfN!&yP}&2cRcnuRFu3!B*?^qr zM0~=?i}gfPwQxSg_OBkm%Xh}?7bf%|9x0zgO%(i&0^Al}(i3MQZYHX;0>ka1#T(ba64|%l+w)c3U z?BNUR-{=i@yvv=|oBwqpp{XRL_C8$Ysn_~3Pd01wkLHupdeuj(bnkwuznr4?EGmz` zu>SkN^{L*0mcb4^Wa`e$-T6n&0B^zuJ~ezX^cQ6_z{BuUdZfn*b$9q(Z`1RgG03la z2;cHg%CC6gRY5Fr1-{m5Z3zB5*o?vAWY;3^$HjcjlD66^hMt3bU`j z43wm7GQ`Ut-e?6AGhuQH*fzm%dG@uIyuzAihqX3%EicP7Q zC$n3mu3s1luPZYZenI43S@Raj0J3u&#)2DMsjMOjNI097jB?f0B*}K)zBOr6n1e$& zENmYzOOZtqs~@=VT!BH57ptMTN4BD(yt_1iO09K+=GME8>`N>zL~k0Mp47J!fMCNG z?dcBQ5l+`wOX6KT2eOe<`EEa{gFv*B(bnt(k8c!}B$C-dDNl$RyljPU zwAmT~6E4hnY=9q^WIXhCpGv}eX_<8K@xt*_4YW~}YlYdms@QrgFwYj2;livaP@=q0+ux6+0)r#Nt~hku~>iw>Q|$z#kO+JsSyj+bW=Y(lN^&~m-$ z`V=BhF^=@>CAtDnD5STZ_^^8(J6&qg6GYguBL*O_YRMtvF1b>I=&Cq`-CR;JU%JcR z;u?f78Xb?#>Yx^&{(fBiT2;(c7#AlsCZ%(@X|co*LQp-OE6F@cR^XKzgpZR1@c}pD zaPc@63FP_tG#7G7TG58kW50<*(=dUHtvA~O3TH4kveysRZWD1uPY%q!*o-Afpsr`6 zi5mR%b>q{W%mwF-MGcU|VnHk-aobu|o9|;m=9Z$EH?ml9p=hA^Z+QoOi7_e8RE!(u zTyjiW5P&?(0#hvJiM_oEl+Q3rEm!&Qyn$%Oz3p{~tdNV_X5#>;5a_IOh5>@E|97T9 za7zsR@Gd$exz;NeeA3Uuq${h_LyzD)L?p_|383(zE6BVmp`XI%8+i zZ9w2kqgKmRR(;zp(C1>WKeDdw3=l5zB!j1*$@3Sut~Dex z0D=wKFvV!*}Vox@kOUsY!bzKpUha?_-fga?`XlIK|-V zef%sbZYM=;Db;+8Ng~BbOuw7llhDW7G?6DyV*8AM&Z#zlb}e~n;2{Xl**wPVJka+L z8kMr*<95KQ2oQ%IB-C;rZ+`6L%uf>m?54!Vi{0sYd-iT&r}u)zBe{x^9@%1hwm-KQ zX1)iTdBWXTTXZyMCgv4R(h(F-3a!1_u(}S;v1jjZa4Bwe( zu{`{N6w9fpY(?tXo6|k(F`w7W%=vnMnmM*` zur>&aFWI)=4jM5`n%Sa(^TRV`HGHL*a!tNqq>j#|;m4)9dVvx{oY+g^NFPtUyU;jV zBdOsvD#pJzQY7JmrPe|?bHR07Q5L4l7i7hBXP(k4RW)hmOy*ouH54hwjv)r5NbEx! zNm#2(Qax?OI?a1A(UPKNL?qfCpe&Lp--Ds(%8YA66Pdb@V0^kb)IqLW%5k6T8Wb-? zLFs0+rXppLr|&E~k!=6oP49q3HfW9)T2-^*GQ)dfTjig{Jky;)Bclkp9wt*1w%J#V zwyZn|bj-?vSOr3Fqlb|u^74VFb*Yzr>-f~+QmZ+qZ}6>#%6${3Q1wT7?lmxs=pQ?L z3D#WWS-8k#?Se6jq{b0ldg=I22rjaKODc=6Qh7}yOKV0xPad$=j ziJqaR;F8OY$oJM+@AW);gQp_uoa~Bj%a>xb>3|C{5OE{FS1b0}kDxzqemVWaNWO&j zUd*}~LmlAsjDOeEGGtYpIOwR_|EU+=XkYC2dv{lD|DU~YA6i^=+)mbuiwLR;(lSn( zjXCF}Wj}2CH676LZz22Jop0hDVH@-&dRaFk*WLoc2l6l@xGYOTyRFpE@(}MvtbAPLY&B4VT-MzEC1Jgl6^QmJxB>cz%T}V%E4AE+km1aPxuzEHfHG(Tr{qvC zojfK=QIzI>Uh#TyI;c?3?{^RF9nuw zW+gXI&FM9lHzZU4C`<6uG%uGi2e#`5fokRd?1VJ17~pNeeqQ zRmW0J<3a8sF10BSK3&dC87oOiRv41Bv<%ixvlL|qyh9zaz>(rrnoKg%KCgQ0Ptpr^!0R|D+EC9`xC|-+o+@^e3u`P_zjfQq(zIPf%#H#1vZl)r!-^M zkcGXm=IE-Gp|-D8dzyd&%)8E&+DVzvQ0#*Ul4NJsVtE7LB`2_W#74vxHP5_bK$dxP z-2*GH4PI*7*T6mp_jb)T(hDj8o)G*IKT(h2TR4(9MQE(@o{#+i5VwR`r^JT6qx=F6 z66_D9A$DlPAMDz}2h8&BQCX&h)X^?!X}(`E5VcW5$Ef)+=)$%1Lt&T8^nq5IsdIGIhDUU>~5*#joV>g5A~Q&`6YCX5htM<^M5A21j) zgt5R@d;-6eqIe1DdSG5#-<)tY@jN|bD=5+3U`00mieB=hNpFS$Cqwb<_V+VeF4W$w zJJnCFt5tI_$Q>VqhGtH)@PGXc34qsSJ7H@~0U8FRVkSn-w@zRNBEA82R|APA<>oD+ z+jRN0*@auJ$6Exm$%9>h8SO|g^vuhjr)sFlf_U`yUbxTTxG3F2;3nYDcknlgqtWC% zc=onj*CYTULLe{o%78)abX)!yx%&EYtLDH^c56wpf;!BKrD(=#Rda<|php9qVj3XV zhqZ^sI^3uqjN`8464oAjtQ88-z^Vs#Rrku@WETCwCCE|T?uW>#9z%@{)wVWN9L-DB za>)0FnH^;?sfuw4PIlQh3ujJVSUci*@&-iQDH+o`#QjqgAEw9aDueWH*0s2xz_-O4xFBAxKhIN1-?nV{ODt%*|3-@uj zs{`HbMv8HzWs?;C&2(9Lz&+hSKyBRVV&K1~-*Mkbk*i#))7=xRcy7_0`={wKBQ@_(rR2RBEF6OYW(HkS+)Y84cVFfg`)NrR;8)19&10DII>1|?~(-ya{rRn&l zi@hiOpUv2Es6teajA6k5Wp8-F%S;c-mU>T|igR5(HoX_;e;u{3(3N;#^H9J-a#^PK z@<#)FVXo8t{*azM0*N)drYf+O(JYl5oHZ}g7W`>`)Zw&)Y$HYFJ=oRJ!gG2wv1P=A zSj|`|unvkC=R$9k&JVmr%OlOo?<&iBO#bG7!?5a^#ACndmAoWg-80vNH|^ei_@4Tx z=$fqt&_W(&Mc*}elKN(=*To~|Hba5cH{t?=pqeu%2oA!N%NxVgXW}vu6lAGh#nE;X zyApQCK z>O1ZZEs1yBrL>GW$HEj!M-#QNTCuip$|z72$`v|olgZUfEuQpT^VP!VE`f6Kfa;5! zig8f@-8)YReUtLCRSoo8Tup}#HIdQ-IRhN`zv6eEcS>FFDXXqWuzGC5t zA|HL;fhgUcPJxDRxmQB`Az7d~!s(ZoP8`W)JZzZmYC_sIXHxS(zvHR8X}{_v^Z~S1 zlw~F}rbAnst3w~x8HJ$Ejv*?2iYWa0N|JIqP;n=6|Hxt&1DU3$SDh-1Tk;xitG{P4 z!1&{ry3Kc0b(zrfI??ubTP?ayZs!T_Mjsd3&N@`QU-uoUle|NawMf=?GLKN}#~_R- zIwPL(UV<*1AI_f^NQ2OKp{_$+j^k-X^noM9fR5Jn_+#rEXZ_K^ps%QW?>TXHtEl%- zHwUENIy;*iMB~%UaT+(8S!hh4d@w|8zZZNo7p-u0hi8*$BnSY3TORK?{eH!iCKO8m z23Irpw=u8Ax5W}6#Fzf~bEu;SJ?PLd)dcPda4=N@NhLeFi1?wx$V(EB6Q05Oc-7i` zrxX>_XQ2;lDJ>q3?v;P05sJCF>SYLja)dV=bf>!O4YDOJ-cnNwbFc9003T&m^k(=4LC48Q@I}qLHhIWW+z6*uGUL(*wD0=jsKc<+>tzgTqfCSyD zg}s)8byCA|_*lbBZ_o7oX<~XCzO^tKgdCpTZ)LDy|47XpY%cV-gV=6T&@*LdgOPYp z3^K}W@FbcH=w#U1T#&%j$g6Eje!SaOkkDB9wA8E;jDTd6tg6`(kaPN^PhMmU*=`K& z>X;2Rd!qTV$LHvUf=aUsx34QUQi!IW6vI+=WsVfDnx8Dc4^b=Bu<oScy8`@*@zEun)XK?I2|~o9@)X#0RSMaK(YZ0ZVWumPkE{=Ye&}Ox8;4!g$im9 z|EJ)cm;KRE6_x%CHw#W3R;${j+586}!1c3H)_zVA(fK;ts?0I{O4r}$9=yF~u*6{U z=PElej{{VlTKmM>+|{LJ?Fc!ysB6$aM}Yn?Ob%i1as2v{xt ze|`GjfP;M6cg1{d%@Jo%X%)))&=V5$&uViFsCet;^YdVezWQ0Y@?dR^Iw%G~-!TVn zzdK=k$$xw9&vRH^_utRT6_qt_hz9@u1AG1a`rrTme(isQ)LCD(S6hE=)q=Brp50_r zuF|D9oAuAG8O&RsyQ~dPNZq;M;p*u`#O3R3t+F$4vQG@lT~^Iix(=jnf7ZErx~5J) zw@-aIcre>OF*x^U#cfZ{ZZu!5dD0Ek;Be0QyJdvjfw#{6TGes~8s}NOClNo7w_)}8 zE6xUvC~IRU($6ET96XqN{%hCLwR~NN)fw|YpA|;dgH!(7ke^D}Q#4g(t;CuW!s`~k zlol?rLa9)So8};M{-R9~@f2#xu443Dw(V>>uP*T}F?kUFV*8N#{R}O=mJJ(E|F^#X z`G2Lwo3t5{9?bUJUhs9k`d5S8BbeO3Hb*&?A~BBQ*>eY=>x1pm`u&MEA$^>UjK2?r zI!FI~Ao^Zx2K#j$8~(I`#wA8*V;kN?#m+%fP(2$9wq^+)AN}P&D8dk7$Mj%4*tojj>5H=5yXR*aQ%_ga9<$Yo ze8GALuzv5q%jRI&>YrslP~Pg_^?s}6cl}(iXzB-cu=;PI)g5;KyTi{t{yl=<&t3la zmepfe{?{UQ^=PdD{( zI*2m;S;hfn>K~b!2(G}-Ivl~T1Xtl#u;V|+R5W!w6QA(^zGA-diG;*Ra5jpo`~L5% zzq;e<)ek{|TVe6@WGyZJ`8kTA|ECz{-(nV4yZ*<{tL6W_b*2ZSPbNm50hj(HIE+(d zczgu7ksgt!P9#Qw^IP5D_vcyvd;8^GE?)P4pZDGjnXWv!d7(b*)q%W|&#o!LU)ull!hx;*J*!tNJr*oOdBQ!A3`ZuyFgT&9?c}#_~v^k#@#buu6<@rnd@Cv7{ zbnh}L*`#Us$6}tz1XWqRnV?Zas_lkTkIVfoSv|%b>ALhiYFc>y@#Y(+Ug&v`|LHNcq+vIs z^oCdVJW~ABIqb}hQcugRD2?r1<>J@p4UhC+4#Atf^5COjP2277|1~b_cl9D?`2J&C({Z8glLmrqgIZd-;!|N`}@w_mmV&BuEtROP^RU|a*KQKFN_U8R$?eU zy9iY~T4xin^j@#yIgFbX4hMHG?An(hSw9Q!V-qWoN2c65F5JK2sFGW_S3T)F|6J^J|eJ|eir56{J%I%EQ|C8SJG6?_C ze%(^NQ*uGoy__G>2lf%uPVPJr37<(!+IzZh^jX7(*$%&&h3@FLY?8ChJ;lPy6 zyVY;^9gb*AE;~AUKcm#{ea(f(cdC=|ha3bCUuOnTQfIF;rQEk&(LDMe^`^v2|F8aJ zwZ*MIl$hQB<4Ik8qW}LrssA+C)i&~fp49D=f0^&b`1}X^tGj_&S?P-xHT>Imipyi7 zsUHjfe4)|*Vjc46e@eRK#Q(4JS#8t*J@h}_+ke}>sbA8u#Gf7B&(@7H^&-T9M)Tk9 z;D0wMM@LtG|AU0oe_NHJX<&2&XjSGG7!1nPB{KR%R3d8kZqT)vIz%V_>Jxd!F+MIK z{?uv*xeI0L7=JSUj9&sF98~QTnH(J+>3oK87IZ=XHcqQu7_jF*b%Sm-?w=mi9cBE_ zzDaSXe*NcAtKHJSr?A=~@A}yh|IbSP=S4&9v%;kQ&)3TTXL(X?+fQKc|GnWmTYKB_ z3hkn{iQ43-jqv|G+Ncx}5ky+fFS!|K|2GSwydIX3IS}(ZK^B@>Z>~m+kHRRIecWS^ zW%8b-L}Ntu^crlVs!WxYWd8N1_=wT0m_4UuB<%f4dIr#kf)@Q{1)Hyz#uqzXjMA&g z5OE?v;*%k1vR$(9Vl|!HnBOaV{?YG_gjZNk2W?nP2QOYDxucc|M&2MKqVd{<1AUvG zVo!BeDt<5Z81Qv~q(xB|*9hvSr+$&^g;DmZ7)VS0{``r)JZrp_;|7sj_KlF&=_Z_ zUiVwao(PzaA}q?xNzDQ1(7sXbQv-fzoLO4N3|g}&aiUl6(p7V~GQjFmHdD4?+M3$Z zTj->r(EWrFyqAvZVoyK0b%FD#6I#jf8}yb06un;<52;>Ml^ussT65bZjWxozIvh!$ zup7dAM;Rfqbd@q0FuTtk()K+NUog3a#hV(B+S7*5foACdb+(-(pzCE`A;pm2H_}~& zD<;hOUJeObvTJJ0|JWj&7OqgVVzs0Y z=w=rydSyRjDrG7{(s%L*OXl0mnK#}<>35VVZ)zpW2;w}b*HE6+-DJlP4LGsZGfj+# z*-3{-1N+RR?*?NNTgHhZNdE${>9M8#$Jvb0b4Fur(QVUR(!ZRP>m(n!L_M779A>QL zRLiN7coOfiEk{srAtmcO68-{negtW$WmwDQkp_8Ve~0ej;Et?phAKw=!db~TY8xy_ zR7tJGc21PD2DIF6o_PgkcWrnp+Sr+%KZ3Y&;|KH8_pKmuae@6{$L#qXjmE1hvTv_}4(Yh>| zFOJ1d>Xy%?3OAm<;oc6R+PEo=*t7DnW%=xV#`2djh#Qqp)ER*tShkeg#p$q5tw@>R-R+A}E9 zR}!YcA-aG$A#`nC$>+x)QDYPDhi@yzl_L+R4YRIg1I`iC{Y z`^-n=_bPb9_Mb!vx5&rHZ23hkFUHxnl2<+6@tzJX@dgu1Qsk7TtjrHLoJFWroqGoZ z5jO&5o*j^h*baz}dn?dQ$G6F$NL=ZDND{yJHlv|KyeJG*l%s4^T#MeY@r@Q=UAMI{ zX6ptkYbESDX`BjtG>#;lCE>epTNZ}*@3#q-7u8{97raXh)!o$d`FPK;!B3ttJNv`* za=|G+KfA6U)n23lCSl0mcu7z%9;)TlH8JR+GE;l7&0NFOIj&S2qRw9byzgM495`oF zI<#Q>!zW~z6UZb@$OYEX3U#)uTn{Z8xSS%rE4qha%Q%kg#wwF#5}59*4^|s-u&IsI z#LSQwDcb6muWE_yms{QuReESgYI3K1uY`Sx0ip|_ES&-vF3hFx=MNA?I(;T?dUX^I zp3M(X8nTLTe(umeTidEi0@@bO6_|Xekj@iA|BJl$fNElG*M_%>H0ixp1q2I9Rit<6 zBA{T1C@LW$MT(*j=?Kz9lp<231|g_)gh)`qjsyq>AyQOA2u(ssNalagz0cX-d){-_ zdH=KiZ>@iwS$naa%sgeDdFGz`x#zm>3j+}-7fdx)UItU>fuXI6OdyK4U2OU0%UFw& zCxX4!5smF|s__UDWw&gZ7S_pt;Lum>92QGxz?iWJj*Qso5+Q-p_a$Z2fy#`)={q_;l?hHG5JaX%4~7C|RqB4Gi!20zt5~2uN-#2> z0AT|ORkJw2@dM%n3d5RB_b+NDMH1^s&?@-0aT3Mwq#cMVA8*~c0#PsZ2SUkZI7GXH zuBLhvf8kYEYNWB6HZMPOF0>xB=_uM z@cP^(Dx>32#z>_=myOqaIL~RQpX0kJ`M%=lJ{*yn?8cSCH4X@H5@NjGQZ7yT6kz{= z1(AA%UV@QrZ%s#B*yz3*raC)#|4`FMGwk7k@1nuaX^*L+o*^rg5=;G(P&{e z^F~guJT;NKTAjv&+b!ynC!J%JXrH8$981i6_v7tiZS|bcT-{1c#mj8E-~`d2FmusJca|N&KE87QvYd!#k}d`PtOw9qHv15;nXCvx??2 zFI#9!m=y=|VBTgK<*e!`WcwTY;di~6y%T`l%hc&=JDKDy)aO>*&~Rcry2HosdbDij zX`G+mK@0Dwz{T9_vSv(jxf|V14vU7%Urcg3E}qJp&m#WE?6mo1VKUXQ&i(chJ>|B}f9j^0ESM17gpP!_A{v`cHY;F!v!rxgdR2C zY0Ru~GUo)*!sa)e?=*uBO{%Hig+<#M?#kluzSrf^#{YVY@6T~;R8vENZ;^ZFct78K zsq<%Lobru19Iq=?p$N^B$sY=>A4uu&&0fjJI&BOcuEW;F!}@s?X73#9P9lasi1W!h zBPrAicweomm7Q@k)7Y>f^wS-*DmPn!c;qg~52B7v>nsysiqn3mh=}-ERbI0e$5_6b zUURXi$|#Ti6Onb+IfzKYMIFjGc%A;N3M0TDHx9D$!+6WchR9t()AwOQ&p&e-6F)zw z!FYoi*4I{Myv3t2@DGPB;Xu zrbBLthoLK)v1c;TXXz>RFvGnbBr;sH?7se0axn?Fr%$%a!8fqg0M<~i8QK(|f0Te`g zmflJ8LJ_{55wQWRMa^8G?y(()LMHUH9GfB;#&l9tJLRMt9R;C0*QUaNJkf+cFhY(A z*|OTW3m+tWOa)A5rHFP4NtCt?_s^8s_ef|Jfr3G^>XkW#Gi`mzU788qk4svPN)5eSR z@R^ux_VFC)MDILFsbQ0Q0f9 z?b8x!eVYr#rJ(_>J2y;+TORc8zSrI_BrRm$A$h1PvlNEoL2nh@(&sDUT5nb#lOOgB}A*y!~vO@eFX3m`}pK)d;@sUc**O)#fiE-Pm_*|dxA%+{|^-0>)B>ARLOg2;B zH$2XMKV?8W_l&T>T4G^6gn+=*1G9LJ8gOxM?TCY}Vy40;T0Fr*+;3a3pdh>Joo^;4 zAg3L>wKz|LJhcvQ@A<`OvxH*TJ+PK%x88vqX^`y)r;1q_R#q-kz;nOvV^j4JkS^8Y z0uJ3g^Pu0!r3UVErh8wkyHZI4y9f%*<$vEc8bspQ#%&MmClM110T0zNyouB6xtd~L zj#-Y{tO#|`iw4pGn4(OZS!Ev$3?myX<#_HTV#nDd&KmWKx%afKEQ}O(wPEVw>}ShI zJiEt7yR+;(MvXZSmKVkfN_W7oon@4ozqttw0tK#Yfmy{-bqsd+xWPCReoADPGs?#2 z=cK;k!lhHY2b^dF*N73Xr);9pEsmpXj7hG>IqZ-DcN>pFh$_^$EKe=&hDT#3jC2do z*Z>zf!|o?C;lfg1KB&Gs7<>4Z0*yeZ1&Kw1(tjAt+Zc`1$0>PPcp<-5#%*B-Zd**e znjAv1H{p=yy^~(aPSC3)SyDM1<{ZiI8C?Xjs0g!-$Kw=LOk+a)g62I5gJa|X$gPY> zjjTd)QONNF0*K-et`Z5!eF`rGx2ee*(3lam5UV;|Mpmfl=ICwdoy$i_v#CeJ1q@~t zmiN4q_?V|)zNGm4vjUCQJ%VA?q>DYv?hk;Gr$MyD=kTugnE+iaVXxtYA5e1~kC!yL z{M}mQ>ubTv>|3hPFa#~MJDD#Vk@e;_G;AYJ;TWapAs31`b?>roDjH zxC47oMqH`L68CO}-TEMK@kyjshPFn?ETYl8sDb2_(b1-YQPlt-XW!MX$PqXVgs1S! zgKme|L{8@(GZos3#IOq4ik5Q%=CR<#H17s?t1pW5Z;Kz#%HUD(ZIdy2{X$Z!TH}dG zq;gOf+LRJi+0UaI0cX*?+cBMB?h*P}olMKl{&5`!ma8pP;G$+Bo3zh1?xS;aQg}QY zE)ryQV;A=>L-z$@!09Y33Qf80iJYpsFuhaI&%GvTGTuh^_q(t3VUCi zl7XT?@J;eD;LbuGj@k5Z9Q4{<|*TVC{zPsXs|=O3k#tjRtaje+I5pCh}=B0 z>KEA`ZcEm29IQ}N6^pB{$JO0yju>h4T)&9|%QUrLU7%p1+n5lZI_bIO@WWoir^>WK z0^Psy@f~3vVzhZszV8R8L9~tiC>Fp$En^}UaBweVes7a)c5Msx%<8N>+SGv_aTF$lmJvf)TWxX|EBjG z*O}PUxo2``47k{qC);f=4MER70@KIpaA)q?1YBvb9>yNWh33_0$n{e|yyDa|ojq2G=pOWPI6DG|$dL>* zJ(4ni07b%0D7-t&?)>~Xjz=|e*fUYwwyOcWiiI7uc@4O{i{SKCSynT#mIbr}=N1Kl z$r3im>D3;O2iFaE(8k9LG-)~jF*=p}N*~w8j8K3{wqtsPbr=9_0NBo{`$?$e)0^6c zZ8YPOf_YS49=oXHg!Qn4Gbxc^C3P@8&cO}{cEc|2I*xA`1r-UK0CBfrr2pepL_kHi zVX&Z#g@vDl>FC0ICoZWzn@w6&0Pm+-kF)J|XzT=r(kkR^F<9nt$8A4>Y!Z!^RTzII zd}fksv#SE<)VCsvar~XRKCp&D3k%Z;A^{OWM=dvhhFF9YLS`7A08`tS~#u1ZI#b1 z#W%jB))w95xbtAJ3%8`q+b5?{c96>{zvvti%-M-k-$#32&0qkWS(o!=RyZPINXS1Q zyjxlNBT3Hl{!=A!Ttc@}jwq?kE#HRi<`}r8b;wvXUc5w*O#p0IO{DV6h82+15MQAaTY`_ab>YWMDIr1bgM<$o~*5F2x?j3+U?NS=)KRTS*NmShjqh#^fdR4_50bv(8?i&$mV3lp@cu`*#xkv4ifN6!+a}Q5xNz%S_s| zDz8BjM|NuIsn48C_OZ&%ETEf$0I9Wj6h^c-k8zvxB}X1S6kX#sw1Wjj$lb1>^iZ&< zh)Q0)oM44&*X->!HnK`!}=p`jU)$cGb{kmT9@wQJ!n!F5MJ+Ez&* z%@<1o5+H>@>T5VEAWF65=t^67M>DT(A3#;=#&THH-SnE8NPgJvkGEGvR`#QvJSY^4 z9%xwypex%4;wuV)Dza=;LlKg`YI@iM!^WEk9I<8PNagTmUc-p74s}xPE@%b22A_9p zK_P*GVnUF6-QD)`07KW}0*g{fahY_rw6VfI#|!>Mr<0}AyAz|_qq)YcZYd%?jf7)3YR^cwekWQQd< z97&lGlW=5k`HX&X6%po?;^(R;;MrT_p;wl{rTDNw+5O}>5zVi;d7dSPLD=X5%^oTPKEY4$S(9C{euKxLB`0knJ|YvvPQ zS`uqpkcD{Qt$Mc7`YhDc261V-35`+g`$vQyk;?N$PoXS~rbxANCx5`}@Qt*B3` ze+XW`d&5l6J-Tta?~v%h@77R>`0eLYmzBQ8n_PbEV;g)4k}Ldi?wtR#{dAs~Sdd|5 zo1*YwLs8$sQz8QO`>!}1I}+C=TSG#&gcA@7*UDI9^GI{-yrTtJ!jEZJ4ypTCukF#Y<&*F|VFVQYN(F~#_*peWUoufIo*H7p8(`CAm zoW}F4?%H8P0w=gkP1EApbj95GGMW3@0$mx*;Q6pM(^$TJlk;}yg{IEA{sxQig2dV( zLdWs@CUH7E1L4hqk$t99QGC5LB}*!yKhk78o=1@Ff+&V}u0uCFL~XTV%v#LM$~q&_ zdWX+WIj-6b<1ky89vt58=@9I4RKgbXdI!h+s&^4)P7J%WM^{K`(&FjzLKI>C8Hz-Y zw#a~K;F&>80t~eQM6#6n^rAbUsfYZJfujU1FOMKMZl-1iLKG|w4)=m4C*$ObPUcnS zA1A;WbVX}sGy~$NlgDC6qhYNX%a$M4-J#k2&3FP9T4fr)`%pBNiJ~jY_ud@6=GNlh z?oRgfq>%fW6|D*zGc4g{=~#|fsq5NBEB&F(mEcPV{-+NA_|?uB(ZYu2$3TgKtJ}-1 zBdkMb#EXTiyFE|NyEhn#0|FA#5+;+T6@^_1)W$YE6Xl?bpTPNO|1?o0cC$%%p(7si zs0Ls3=-v_8)^W0I=zPFiG?Sk-1dO84#u+KPRA*k@$slMCMRd*fecb_gRET! zL9{>$Zf9#f0EX*-+xGS>PB@N$N%|y>ylm_czAsZ>TNZP4L?0X#m~!Z&0pZ zr~idV`7c3Rzl#4OXe)$!{M*6fntzyaO5O%I7;>3 z-k6Df+^_DkbGLoJo2a0BqV>>;Myu-;6=pVfV@niI6vQTm@#Y3@`F7qjrj_$7%>0JT zjX$>ifi;z~|0i=z_b-gv-w{2(uJ*ro8Nab{e+Q@7-26`wJr#dP^t|HO_-Fn3JM8UW zK=kMWaNM6Dx&LnwJqPp;9Q+Ha^Zy#r^Q)4-589p-n-*X861nWN_UUi5d~RFz0nBlh zX5>Es@%*C^`E#FTa#h5aBg?v%Upd|6s!YhX-iHcDQj9l$j{ft|=Kk)3+lm{k_a0jh zK!5s%<}<)A+a8!uUK)`V8$Wrzs#JNSQLqP^0`=_GE(;e)x&9i^CpJ3; zL?l??z=`1XEmJO;a+Xy~+j<*YdifOtgEQr<H2Hf3r#PwrWH)oCNof6q@f4SU?B3ui2z2h(;q@(( zi&N}ErF{op_;RGvB)3eCEasf|I@>Npe9byEB(R)KH z1qH#0{qK*i-Kse_ijeew8!~Wm`sS64yH%Hfzp4z{1%m(@{f`^VBx_6GQDvxCNZ~No zW>S#Nel-HL_J3>3RJ%cTc@eT*KvpAI{&$Hb?PR{Yf9?GFlWsC!&Z4ALFJI2!gfXKXyt#H^a zTKU(J>sBVWZjjyBYra@3Tm=7!erEmau*KD1Ri|5lN+Ko>{o3&tv9c=NR_<0OJaK5V z2c+aF-b`8bk}4N@WxpF_m|&)^NhrDzbi_GtOMlJ6pvBccPxA*2T7$}XTZZQ{tUKI^#1|Ed=25AfzypoajX560m5nhz>| z?RSAcFH7P4CgQ$#0Q3P&o~g|?UB?q#{v1s3qBnWB3Gs(|B>|?sHdu0VxTe#8_2O3z zZOT&tVDy=NQCE=3y^`5ycbeGOCF8Ox`4=U(0ld35cpSJ7vV)HL{ccxbPQtAnoC&Hc z`Q4Q;4nlG-QQ@#hUxeV)rA?Lq;FE1D*V#~ymwhFY);IC1IC2GjB+Y=ib}I%9Q@)OJ zgkV<7X3u`{3Ziu+r2&L~tb@L~mhp=+0PYkRUAW+qo`CG`#up)*j03{N!OcBN#Dwwh zvcIRt-~VQ6f%f6afAI~LbOdD8CyaiL0dM3ZBjsNN1uT3;+>|!Hp$=g6pfeAed3k&{ z2ch{zh#t7L6Gm1`;3ir9`fI(B21cwUhqTV)J4h7U)3^{ zt-whgU}}MZ6$QioWZNba;TO~3`sR-K#6ev!La5~45x_0@%|4hg{Bo4>1ND4g9SGlXpGoeCiRS)aw# zEmOOt)Pko1z*7gF9!o)BsFVX~zdN1;Mh|p6U3t@nFKJtFSWe%Hxdpfjf`5`Jes>xL zX67$SgCMlYrvQA3P3prCT6u~m`4^P}^h4B0M`p7>GS*Pm!_BLTwgOMBW%Q;w`p4}T zf#bq|KFGh%-(76BYeN4tMQFE!MuzPUIP@Nx?@4aJCt+_@+#J^)m@bv#QIvGhi1qCh zIFH`TUntI^>Jy@Ky@x`N<$I_{jsvp8s#Ha#B{7)J_>c;bdn)R;{2}nqyo0~+$N$^; z40;N>djCdv_*XsSKN$%BGM_>BFQE4?&-gcyLs#!l634&u8Fc>wWdp{=zk9}iThsiT zr}j_j48My14?N>KMeb*({@B9)$1$TFGXG=_>1{3yHl5qQd%VA{;=kqb{wn^D-TO~H z-nzegydOE3|Exco_wlc${{@d%@Bfy^tF7}thp=zf@ppf>moG^|IT^RlT2fv)u>r&% zelgAd(fs@m_rH~xH_HEqI(qrl_W#FU|HEnjzxZJz;br!xEsAYQ#{XBl`<(3$lYcgo z|5{7_Z@13+z&ignkNEy%SMN9J?Qd}ly}uUNS_c6u z?%(Y5uL6Hrp}$tr|I|MJs^A|D;2jTS;7E%Q)4LezA`NYyIPPS;QXt%Z68<9mv;k~c z>G}4(pB^_wO5C}l!lXs)47O52G@slP{y59h|H}7whm!Q#GvsFirtfb)!8EN)Xl*2N%X+htD_1h zkKMu5nO$eaiDnHx3NdUwI%jkTwe&1m$ld1MsUs#?h->)Z&pX6t^YqHszBg0p;-pho z-o5!=)^wrnaPWG81Lyb3J@40Zj(J32)p#ck4jh=f-A1SYQxC}YGIrlm_=tCZ7dP~b?ArA4M1hv4|6Zs_mlU?~|K7P&LR=4FIoZ25Y zyUhNuE&c+#GpBl&F7|o9vm$JD8&_)oR#rL9$i?ktv#V-seu&)C!cm{Mtr;$g(A(Q* zq%X&I8@dYg(Dr40Geg;{-&gEse6NvImk_;zap4h1eLiM7{8PbB=z-X}<+JUm^GX|{ z5A9{A(bnzXVx6o_9JshU)L^XKfL3$$!#q`;{I2J(n#V z=pjQcPK=1)rhC^uwVe}NlCU1=?ss`ctSFrxe@CmlD!0q!oz1bfG+BCwX<-%}{hJZ z;|BG|y4D{wO{Ws%vFnlVTBU+YkLTnWJTQw*9=uGlQc^QWUVrE)ESC6u*yu{ZsMUej zgc23ajCSl$K_$x_ZF(W@Xpxmv`Q1KB*DcwCtwG6wip^D@drv>V-GO#pEJ6;7H}5(P z;q}>k&m9V#ADuYr_V%iTs1Wp_Q^9lFwbHX%#~xqJ4eWfRXD4GO-`YO*#la&LYHGcn zEaK^K@28lZhsPggXAc(yd>^SjJmSP$&)cVeTK&BI+-EsoZoZX@yH>}$C!JDvzI8H* zxFp~^HGXIGRjr25Vs!#GFJ3zH?N^ZHCfqrT9&u74He2tlO|avhujsGWZ$A8Sw#2AC z;qx~u#zmwVK1@~LY4ymy{8tRV1CGyLUf~on?vYBnc-i1<+gVCzZdK^8(Ibx$npLGa z;i56BKdxiLr`3CJcwwV2>gmu|M4yfruZ~z&hT5JdsP{_PwtHz|m`5Ww51U{7wpH$~ zrARL_^Pv{5?MpWz*MvK<809V+fR+7$J?XuRrDRv|ig%Im)QhH({_R?K%(;`1r2C5k z+KoP4wd&i^8jmWxP+t$%Q6wtHYW8)~*cD3sZSsfjvJNj_|9XaP`1Iu-Zl|^YRIbL> zSk;4UWel#MrN@HBncLDJ>3a9~vd2z7X%~hnw!S}oO|;-kmNz=URwsWvwx@Ak`UPcF7i7q=1b>NO;KsFM^GPt`Pil_L9b3e8A4`i&4qdXkbD z>mi*)2R(=pCEb2;_H)({_a&8 zyH;#n-pmE*%YK^v`n?`G=zBhudg*D))tyF+NmNN19)o|$Ts|L+9gcDxz1UtbhyLDM zAMf}11FK{E^HCpNy|u4x7xwXGAOy5*%9CuYOhUrk?B!g8-d25OKh@aO`lN_~S~zCI ziryi{uuo5O>L?*w@#T&11*X54b8XE~#24&#?z9o=^_G~TMC}QXg&QP4Y9%_0Bx%&X zvC4c~t!^MIUSX?yEa02;Uc>fSttW!>ETshS!H|`cvNZf;;Msu;Y^vJz?=ydV+2%sV z#e|Z4_dGkM`qk)Y>RFNAYcl1r*eg1F)^pIu?S6(F$~zr7XCR=r=gLH6zN;Y(_BNWX z9XcEH&9Ur8xbWT4rAJ!EbrlVG>C^Me;g#Cl?t6k>y5>YZv;d!kaaqZqc&XMZxG&nM zk-9l0^R#(~RPr0arLAkFq-e7T97>1tF23cPk<6#aI*yXRQ2l0MXB;t{o1(2*@5)t`l~cVKr+w77+hv*rve+_SxO~l-bP7vBY2H!hSiSC3 z$-~QkQ%v*my(@irIJIkOX3^!`$>V*WKkoTP@K0hHSsinzZoii9X>nfO_jUCi-zP@h zn!Wsf!hb}HSoBS4xIN^x{1B(?RG%cr{bH+i>w4K?p+Z~Kcz>vx?PCQs#gfY><;MN5 z>n9%)j@w`qoL357SAQGK%Nej$DV3{`E36@N$7__Qb=wuzA>o&c{FCgIbt9L(`(MVC z3NAhE9oW)X_ib0~tag@5Y%xNXfRt{_=nrp59KK%mIK_XV;%K(%-ah%=wlDJHqpbA} zW#d*6{@zxW$dwk1q7UPdzLZ*ek8fB)uj9$+t%m7a2Op%J-RUARq5pN|kN zkBfZE_t2F+-62wj2ZLlzYNv0pbK801z8>>(m9=SR4q{RI)stn1Q5)0xMtX!YXSI^w zi<7&~3S8K=)9!(u4W08#hE2MC&4V-YTh`-sr$1NYKkJ^d?ppPCRhEgI%kA5G<6M)1 zx~#s&(U^Rv%WP&P^fBxJ7k&rd0aTjvq2#Q@{GS9flaHScEG+WN_4s>f>@thGyf2K_ z?1Gjq*f*u+=32k-?8d$jF1>Gsmgw6z5_|^6Oo&> zxEyVGy_=mAUrK$;i844SiFlp2a=#MoVs?K#Y3ZVWBUjGPJn^*5W4qP%iAScWMEFs& zRIi-fwI>a4=Oa3EMARjA3pZRl@adLi=cwEAPY?19zH^s(dumr+-FcHpiOz%Pw{j6@ zB3$^7Ja9{8hlx-$id3<=--yLqe77g@nf=`P!^(I2N&1mL{+NPg2OSb;UT*1O7Sa4i z5HjqgSlrnxn{(~0MinaCF+}Z@Y!3Hl^}Eg}yTPh+Oc<-fw1jsOC)_6v^uN%${5|Bu zEblj%Y5H|ZCv22KHa~a7rN}DNxbKWRd9_P4?e8l1jtZe8GN&Y5L;LkkW}I`=e7_)d z-0iAVG0yceZ3i5A#brL}0&3@>TUOdVrgQ1C3vJ~mXY{=_CWqA~gI^%_Ez@pGYqdV> zy(OFWqYpEC&scq|t3TYWJ*z7&@~!KSX3hD=xw@FQ4W>0CchnLPG|Qk@#poree@5tF_Z} zr#-L3j_!7ky;nFqWU7UZ^0-fJ(m0XZaQ$FX?;!L1$;Qm9K{irv zPru0f&O6cmlHG!9M|eynLck_vE5fr&qc`RHHQ52@Krt=2mQ`Q0XKLE?*w^%6qgi=@ z{mBMgmAh%ki}$7_FI;ghJN#NsK0U*k8^bygyL^F7BSbh|tF@@H`=^Yg<<(%+Olpq^GN= z4I29&WPbv6d6#H7{;I^!|yQW9dB^BRx3rgx9)8c7UOZ$G%$Qu0D``vqg z)=$65eZJEZ`${*VV!yUSB5ePLYRMEm*gM@KCmpgC-L0T&!>!7b`8HGNsBe(h_LEym zt_J6B)AYy`sL6Uhz_&~9*nxYgF%9B(KHVA?!o4}&X?;*%cuVd(+l%)kgAQ%|^qSl& zZ0>G$6)E)MvL=VZpr&v5qR=VD>*;Lu{mOZ=MP^4DwNqnWXH85m3Cf*pOg_zbuxHeQpszOpU+m5+Km9 z{fNa!pO{8jibT~&mVlq1=ky`9pe+3>$AxjM@cO9u8PgbYh(~37W<*(mHv{%|R^$Pj zTwCN7=b|c@4s4w#B=Tq@nF5j^bQ*fN(Fhdp+p=y^9+*A^eXOIdV~N1cwyRt3o+lk` z?v2JCZLIT5bos1(Ml*TXB+eTP&9s%1g%>*4{rTSc2J@#_ZJj!uM}se4e3 zjvzTfdw1UIlS(snI6agfO^;f}o@%A_FXz@8b)I}9Ief?b;CL}Wr+JYLYH(2=Zgj`$ zFi$Upu2`$zE;hjLuX3$Qyb-TylCa7WhzP=)(!lzapTu57T%gM`iafg zU??X#YDw-YXRA{23w0kiSLc%BASHo{Ly*(ncQ;xcdD(BkIQScIyhbdlD>Su}7*tS0 zp^vJWNth`!W>w^9B?8gj-e4hH*V)X%V@+b( z`01;wkyxguISG!0K2`8TCRkkt~4QWeqbRQah6hhod|J?ywR&UxTK2*Fa-W z6i9WQMJz()2niLUAOTm(qIKd>7g2#LwdGA!v4@`W?9m!u>do1o#b2emN*^SU>uRC_ zcyP)g2={V|lzc1Yv15geK(X?MUWlmj3Ns)euz}IxzJ{c`_k6eVwbc3=ue{SD)79jZ z!l0oJ+{w8C+kff7gKA9iypkWqC)SIB&D$F*BB08Lrw`=_$w8<ZL8kGtxgp_hcUrwU-z`_k zA~X=H{VZ%AKFMbLv?J4c)X~U3FdH1Ft9J>20tREk`qQ!8N?1=fRr)fP>FPy;mO+ZaT2h%b6-6l9qvJ+^#3O4XS82xgu1dc-#%JEqV4IO}O+@<>g)=BaCCc*q5K+bsTS6!XuE3C5I(A;_KtB z*G>b;4v?);QU1HFpM?b~15lW}00JINSwOhi#LYtxs`|or@o&WfqKvyHCcWEH*kfYkI;~?D@5KPwU1H zHMR1We3Cu-KV&L*Z9jCvUF1hdkNQU~(@Vi`y3STR{ZpCbiL51k zp&OZsXLh_j<2SMI+-G^^ms5JB*5qDdAA7BGbjV~tnnU%wgX9wXX`87eokCslUf;y*tj~%cw(+dhCr$Bh z4-#fsY%u}M>CJ7PfQA41>&--wFxMNlLhz(Df`aA~b)|9<=F(O+i&Py9oEdgiPxcETG;UyA@Rq4;oUw$t4*30BBQS;i$LzQi{PE zm}hA|I=#8aOcHrov)((!3jC1{}D`)>BL#K&UO&(9P-uzAg4rbgc*q^RY6 z;Vn*1JLKhF2{TSKacQDnKPe@I;a!j1fBj0}{NyclrSalt1`oR8%>=H+%M&BeQ3;mm z-_w+>V4cF$+Q;6;Z8PIRC&i8HlK5vl%nt6~F8(6kBmdFNxz8nPCImX3)^Ul>^25Ks z1p5?xFP|e}(9pO;$7z8?kNCh9n+QSdP#%B6sXDO~IlJUQ{p2am0T0m&p1m(F&F7i~N)x_i9V#)hbrwbT8mff~U; z=k>dXhpk?nw`Mci{X8i_Ur|s(Kw;oZ2zSX2r}`q|rPK)L3haVuC!==z%ma-TOhqla ztM~4n;gk;MN~bim`sr%l9(l}{l^;)0U!KI>6+67@`Mt?5OW)$7z}`w0vj+RD;L`!B zU9%1)|LwESp#oPt9k5Wj8w>ADB9{=@tn3 zi5i6(1NNiH{b3QnRC_Faxw|VlOVs_6(mX+D?15i$WcD)5j_zr<}I zU>>E$ZKkuQ-EsH(<8+;LxC)LI%!3Gc6X`4@E@9RrWjLE@jOc*QRMt}GpMqom`?igic<$aD9KBB~rKh6}E zZMJsw(eM47VaJ2By@?=L~%Dg;;#ja`2GrBK_tdKx%d?s^sVQiUf&?K}Pm9aJ- z*@mnTZPAR|ZK9|Y)NMCyJm7k)WOsp@ZK?2^3C}oABb*OMHy075vTD`L?WZc?KzATa zdSoENh5Hbg+B;nS2|r>1>6AFMgl7@D7Z_f82x!&6XxM>+((`g}&#e2P>q7Og;~oW^ z-w88iGo_tPC!k&O(mLlvZdO|xIq@vqjQ_x24+NAu{8}!<#KYUd>uC*r1Ol8_Cy};% z-P;&+83W`NR%;%RDlxj9ZAiN?p9K0@R0=Apw$e`Ys$=qNM_1t#n&oK$zl zi!0Z^u%h~fA^Q%g;FpVw!2v*2Bo;u*1ZAwveS9hKmw`ze+Jj;9PI&xrY8aLpaBWUL z9G%yqQp9>th?&D;R_#zVwrS+rx^9s8;4t&6RGs#@4|eoXG>J~L!#u{mdI>aS2#scn@d`2A8EIk({xU|3%t$yT zYL$*8Q<%WBzi-;!42{?=WY211H#{POBOu3FRYAdXz0w;JmaU&YiC$$(?<2T+4uQ|Z z_D)mX?T~{z!HcTBJgCETAYmXJLRYl@UibF2j+7NWbaHOM|LlDu@@36=@8@FDlBY>YTyOygocsLb1x6LIJkbP-QzVO^c zXiLc&|7^Ls8}aQE?`@$k5s}ejSQ_Q$YZL^{FuVs7#aA?-@S=)1u9qbOeiri<65dBU zu`+4C`uAOZ>?NP7it5L4J=iJX5V~w1K4_O=gkoZ5=9-(S^Uk=J2k_FO45uVPM7)He zz^2rON_UE>7$M_MdH&PjLqB?jwe}Kgs77AjI!|dM-v^9yj1>&PSMquGzpRvTl`9$% zpQCc7nt_0fuS;fw!&?{O58t!7!$k&Mmz)(RRkd8$_&z9~0j$+ZUiZ1CveD9UoT+X$ zwH8xLhjn2laxsXC>iGHN_{6+(Z_n30i8_dg$8S(XuHQV^lEtQ))APi`Uf48#(78cQ zm}{UpWOBOYx@z&L&ZN__q24^6Vad=H$?K#2jF5y_^n_Y3Y> zwoE6y_+X#5lf2<)iNSdCH}>bS~{Zn-sF5jW|-P z2xA709T81}AZ)(g#1TY}{_H+QXZxJ}<7>5rO6HqcBo?{0R*H)W_`%|(RtnW$cL+zk zCf%KLgt&_Wv5$wa-1$Ck&t_B#z(kxG#Xyu1I0jnk8I92iDahxhB%vi5WE31a4zgBJ^SsI-+K{c$d~))x*{rV zH;nG)(91F9luGud<_(lI2b4e<@|sVV45>wtjcYP@cO9{Q8r<7?(OheSM*+`i%pHe!azNh`zsFbc zWa8tM<7s#6yDNy1)5Z|NpU~APAIpHCabT&51!X^-2yC*S+h_y_ZQ6W!(<9A0uF|5w zst{h+-?aU?Ti402jb1}Ysh9F z512Iy%2?sAEJvYG8`2cU_Zd=d9ihW$nR?BUa0WA6o0d|M>nH&p0Ar2Vsk+@0$FtvD zTdGP9zk+x5QMUh@DpiR_tvt)50PG$_Tk)kz29>XdZL&)5s~?>FT?jTo8-7QNr`9rCo9L z!rJH&X?VtJqsI!`Fc2(%Se-@RRDh6EktfI&^dlQtTZ!%_jLa|VPYzE~Q;>8JTQie< zrzpC9w4-b~Q0JR|QsDzNh!bS8&;ioTV?VtR6{pS-A5aZLF%a-@dQz}Gs|*6Ti@N)x z7}cH2%mk3-iO_-wNC-GPOd5v3OC9N_nGf=Rg49Zqyo{joti!2| zZ}c2Gv99<2Dn=Kib{uEl&}ABi)s(SBvFS=}pbhYNLQvFR5`3_M*}2jW)uu#GUa1<1 zSe@0U9!#=-%nsg3f`TIX-t9*%LzLbPD|}RrRfs~@czo&m6m0nlSzJ(Q+rI*YTH5-9 zmD4c(566u@96AdD^>@m*B?uM<(P+zqUUnbVeD>^GeEj(MpuyZ6&9oS=atap=Di(B! z98<|EjyFl#D$nVtC=<(mO;<=l;iJiY1Fn_)w-FC5#V;ZKiJlJSjf6EOYLSQ_`M8D7 zx+j)T|DaDB7ukKbx|OA;0i^+0A*vQOTswaPMpF&=t!=hwfiC zJs}nO$TMni>Fm1RWvlX6*WVK(Dds_bH+ZzDgQ|O0AZYc%_#{ThUI%O3{T(R zur~~1l7Nt!Iz6&rfAgHYH^gw8=kDI&1Cn0hNTQ3!2d|lq>wttteThJzH#x;WX`z~h zF4ER^l-eg7P?nD(Ln}F?Zn*g*G}aLa4PKiQxP*74>NprUTvv7SAB4^71Wx2uVa}8` z6+SXnzGDmsl}C=8+#2K@vvyZ?u! zZ-Hle|NlRymWIiY+?jh7N1oF+#Sjf=v~|I`{ol z+rW#g$iOM?a}P9ZJK&eg`CST{3t}RoGX#+UnV-szuE?ow%DJ6T&|0Y7-cGdr_@t$Y z)Ra-DrV3*nH-FbKR>)5=#G@{3IHmoS!{904&@kI}qlI)ZB+KN{Bm57pj(j{+nCPt9+OPV3|D*knc=A2w?o+iN3mNR3o`lQ_9iC#H zFbmp8w&c9n`eH&SDtt8f_;b%~Xq5TZTk}lh2ceB%jYtLZwlVr#C*xVpf{cca(^opW z!qC(EY6Fl<fLe_&DgT5gNO*tGepz|H{(xBnVCwCXS%W<8$ zN`V6gIWG`V2OK_#xZLYL=ZlJn>)7|4>Qi>>JjqC}YOJbTqjz94N%>?-Y~k_r!`LE- z@~!_fMA@xNr5oq(d7{(H?zDMsrOs#Cii!N!237YUKt)k3moG zFZbe>2ETf*h>5STcY2<4Xx;w3G0MM>pS$hu;`^k>{Od23x^`QQKaZo;)y$j>etBwC z_R-0Gm(9@Cy{?TvZ<5@bq-Y)Z*QlyuinYuC0{eIf%q}BvB?44aVk2 zmQC&b{BP!c`)y`+?kPt;#I0ZTCf`8~mGZam@|8@piLxKt^pv)bOqMf7S<56UpLPh7 zF|W7c@w03BWIIp8!n<cMEwpzU9qfa%Sz`8(gK?0fj) zc;Uf^`K6@ByK^FGW@gg_$W-{}ht=Un z6>{fDf@l~y5&^<2{2hc>!@_O*zo;?jBEK)@jGV>0bg#>4ffdz-pIz^N)SKGBL zY{^`#=RH=XhA;a5{c9G@IXFx^P$u{{B#V#$2$R@M{Km7~=@}CXiZ?vCEdF7cu?o7sHcde#ZbIww)-a#z zv7acm4g%E(CSi=#8wOssT@#DJXojWy(^cD|k5z~yZ-9+<&0(b~b_Jyo`gWm2EM|@t z^P>*AN1>oDH|2l^@HSuHy6HjWQVJ8J6S}}eC}WI2yG=cCe-^WPN5gp|s;wV;DEuQO zp_HOhQGhD@*~Hi)#ulXC;Q7JNm~XM4$L$qMh!MS@t^Y3=&D}J8t?Wwy zN`_L8${KB$9kjh^>dKHUTWLE7tVH?V!a@kc`@_5k9baO#=Ndu;5v;JfTjXiiK4iuc zKNi>ozw_{g>9c}yWVTmKuA#KrluKI{6>?i>z9nd^`tL|r zbk`_{azldhUuwyWM_N~nh`&fa^G1{<3q8WvuRoP^#&iQhdZ7zC7M5&p20_r2Idy^4 z$Q9RL{5lqo>ZsciPHk^#Y-hH zpd~7cz>X?dwkF-v;*E$}K>~?e5Lp_f7BdvSuJ5efwY87Z1Um-ul9-jiws%oaP-S6SHH?ILENU;NL4@dLsh_N}g@D%U6Yuc(v$~3`Az9 zjIoON=Z6E&B)rAbWEhqu-uFa1u)Iu34uC9Tl9ep;W&;L(vG#a+$eG$NKrbz|68%uO2?%#3x zyKMRWJ00@7+L=qzahw?Pt8@9BjxA3ABn?YMehW311>XROOU#U9D`u_bXbDd}}C&Y@xvK_s8cQ=`Fb zJ0@{^o?1P3b?+2KQJ%o+SnO$R?vGTaaOOr^#Jxb!l3t!u(Xqgpbw=2-`UUaAtU^4# zi8VIdAO->n1D2&x*Y;Klp_M9MBGrRv*U>pTLjn5J0*%)#$eu-Xm18U_#yT8(qs;?Z zVk-hDP%wZjU8mDs#Fk&Zn)69S2o4LBwaI2Qb|5?jLpqV8o%O8p>Pkzr-r3Ft_cDoG zH>-mmmc|-EL1!i~p&0Re-Psv5V|P8(!fI@}3ZZ1?sf;=$WbhJ*aOeWv2n_0oT2ldJ zvzo|J1{i_-w5uqx2S(Pm02!OfqY4lzkGIHpAwUob|M*Ts3UMif3k}u4+?Xf|kwd#H zz!5NF3wTl>1c2980|pc7>yT>gG4WHi)LC`|jD?8i!Q#?+?9C-0+%t-#Jub+EqlhEn zq;1ZP@t|?ic%V!oWb~^_>N(NZ2pj;?6l}GKiP0j5S<^>E2i-uiNSxC%+VIVSQFx;O zOyvohW+LLpeRrztVG->uP*tQ+c~k4iWVID@dab35TuI95#a0qmMm7+w9&F#RU8OvD zFh38faAWef(i~-p(Yltcvb8-ZwC%^rmLTDH^&C7qcNA6^c4-A)9FBo?GMP`SXK6#L zC|sqFom(HS{BWW}GepGNEB!6r#z3F(|3g68!f{d}N*`lw&_vcmr{t4Zf%*?fjkQHi zp2;8b(>F9~3Rha-CVuz$08{Ke;g>gnlMt+|Ma5>W&*2_FGIWuma29udX{22K*WPI} zvc=5JRqLHm#o$jvN0%>E-#*&u;aUZoUzMdqsv%$Qkc?N_{S)*WH)4CI=xYqTlbYLO zcKK;f@0BNGsZF0J%Kori(aw2BjXvV;q}f+mJox={$VGwus=vPcaoxc4v%S)Ss7u+<;6cL8$Sc3vZC|xcXMS*%#vj))_jc|;?DwC3KVqx9B8K#( z=Si9V%JN*LzPuFwb4lkvX!g|?AOG{*2~WM@zr8TErZ#&EPhJ_sF;{1imZ>Z4Q0*Q? zJsO5H7W<8lW9D`>HUnO^=#5})F{<{^9`fnZo#7}Hv!5jjYNgWI{d-XD6XulyMf<|S z?80c$)6EHxgWYf_z|sK77iMWcU0;R=rebpj4Sv1RsM=VSl_l3WrGQ8-4eO{p5YHb8 zNQ^zlnsSlKk?}USVf{P(HwqlX?A<-5gOc$yIb%`=h;;nPbt&ahRt&jp1hYvhC*D5X z*M?7Ald=BHP~DsHJ-va71*rjD;Z#2Lcnxp6+uW=F6^F#V787J3Dm!)JpOr-x6Pkk_ zm;njM_U)yA9*BD+nb|Yg{Cnjo%fHKwz`c}(zsXRbatLGF26G0ua;h3TGVSHxmWMW< zs6*s!Ji();@7YpW_Gzi+kdOB?LaMInQ_qr@)+}r$t#_IvafC%QsAc|8#{n7#N`T3TC%i*=u^<5>X~(%1LpRbwt93|PoP35cZ>?xd-X}!GL6rk2{;xcHcE)5@ z_S3-K{O1MmqUE%Q9QOX~u}4x^NM+p;U@>M(hyPTcL$1kW>@Yt7N`jO5P=P{2<~;`l zH;&7o4JnwO6P3<^NSQp<7E&1c>0Oi_r6f84O}!1NiniGogV?b~20$7$VVHAUvjkBr z>?`?n^d3V&e|4s~*km4aXa!m}Hi}5TV@CioJ4|$7X2j_^qqZPGnsGKjNg2vY)&hAL z6m!8QDxNNi3_w>)w`|+%J~Vuh)H(;17oOP(OE({T$$77XTdz;uvF!~w-*MgStd^Tx zO1K$+s~lCmGQ;EY^8d)O?UzoW?P}>WCAklt8u-l*V?z!Vs5WqEE7R+cn;w4@#hjL| zyG=H97@K-*!9srS!2NA8OkHDKL(EERW%QxX2J}m!_e{2K@WGZ2spYWldE+^X?*0V3 z`5Rh)uG($ybxjGo&DV|soHq^bzkyeCb30;TAZo7`2;S-1yXCq!YN-;n44qdg*Qw?7 zDwn>qu@x%=f&3-KCMckCWz5^-ZF!c4c-px39QRnA@*v(Ne*n&m?KOUb*^S*zG z0AuaZ-D;bH$9?&@PoCN8Y4kwv|9I9Z(gtNuzAEKy}4>WM{u zLMj)U{_2KHBk=t3KoH){QLDc0#{zag@5aaCzpQBXScSib!E~Vy+sGcIYX%(->tLZ+ zw5(|!^|ON)V?uKH$GeC0Wvrct@|3&bllsX#b#77*t#}8ZGh~V*%r&2+)Z$bfoAtQm zT?f5BoH@GpPZ_x?s_ayQl*i*mxfUzn=_!7H{rI73)JEo74Z}3Dp@-LmENYYT;qV%> z3CaYC4Po~wo}3~;6y1uk_l3Xt;NIxsNMvUJ5wjE#BJkOP9~F=m>5Ro^4$VlA@mhR>63>qtQ1wWNF^8dG@9R4bEI^)(=1+O>ECXDG@yVl41 zQ*VotS_AN68eO3;Z;C?{2b2ZV=qDda(=bj*e3uSmGf|_}*C)_4ZQVF0J_f z#v2!S@y&}p7udbZ5M~4mnuw_WneCHw5u;NsPhRr;u=D9)*JpE1TTQ)o;_9Zj!)o%- zWD%n!M+dfB^3DQA7$v$Q+&~S&!EE+YV1@EHZuTa%9|fJ6``7Fl(`WDiIWC$L4UieT zQom?GXg%W0Ca|*rGRl_r`ieiU)l1b$?Rv1grhv8C1NKuW>V!NQjFT&b@(B5%syDVG znS#xb2GlRe#&m-g$l1~v2duOm0f0#@$)INZ{2eGX8P9BB zwmu7=r{xbvH_se+S>(DhI#`{Nw2%wa?Yu5pnvlrvO-4TJV6BZBA1N#Ar&QH46Y?+` zqi`Z(16o#aOFAdLN-ZQ%|D9>{El;BBWWPk*4mnD-qlVB{8Lb;=xC!5=kG85(gJzMQ z-wK=oU@cJtMNVk!jZ4BFEoK*>#Q;i7$^08C3`r?8TW<`lxH9>I5-c zJWdQr+@$R3h%!QrlLzrkwNPA4;d4*#9tl|V@slOCjA}MJRxB6S99k_i%AV^{M ztG0CwU`dS=!6TOfnyZzxS8mVMA1``9pz9K?Op|5)eB~v z;mzX&piyUOaemOW`j3+t-+vyryp&R(N$a{aVnQoNindvr{_3u|o=`j3HPnhG*ssp4 zOH0hj?F5SfAC5c4Sk?8@N2$QSThiWGM7ma)g-#cLZ^ZtVrsp736X%Z1D(<%lI?~J5&fsEmeTRzo4$l1s zJLUBoskc@>jeZpPadaIh|42Z%6YT%(O}(P=p^$vU4Jtqj{3u=%F*mdZbUwZLqqFbp zGpptT)ituPu%GAOSfDKIKQ5q6I3FtU%)N!!(c5pW`c?7U2fGzvt8mAZ-(T`NVjBb+ zt4LoT7F{pBxDrit&x@eg=$euPIT}#tR$HEPQ)_f_%5~mfBdZ_({kbPpPK_Gn^5ENG zl1(OcC~9+e>}@rrXrl-CeoNx&_-5`%24cTD>24mWi7Jz(hrCcq^)|=58<%UByGb3APH4_^b zS`so7KtNL+EQGuW6}I@tF%;&Wzm=BqOGbdIlHZHg#?nM<=)(?#Y;Bnz)%e1+c33hP zPOhVd4jP!>GYmG}S*dU8I~U--u7HBxF0{9Zvk!h|e^4{Z;oC-uq>WK`Bx2#ICe_!O z!MN%i`PJxK0n_-m;e(;WJs+7nlpbEpI}bV(E+4ykv^hM#Oknypjr*nOwe1M%h)V=J zD<~}V^NEyseU&;pPi}$d0IB^*vEbxYmWq}H)~iW+7dpPhn6B_qEf__l=#3IC5X5S) z-L`*v+)8Uk7dQAX*b(Ge%W+PDOc+`-#2*^Cc)=Wz_sSMx5%E_zZlnPa zq&ff!)EtUk#;sdBR2a$#XgFe>kv(}=I|QDrU2}LP{q%Y5=l`hmqsFGeq7FtUJBQI1 z<{0=EdzdoWkG7?)0*ZBF=nwx`|KM>W!DKfmt|3nZIKeT}SVt7#8xlGE9V}Ote7IPW z!D&)dF)ZmWwtlP{Sx7Dugu>6*EjLDSb-CFxz&)7=6P z&sfyyp|`OEb)#GmzicY^1Bbx^^RI#2l_`j?O0N(?LJm&nR6eDNXfc&XNl4c!Byds9 zijHndX2um01_J%WU)F~DjoY&{+7si;GHS_*(-Wmmy$+% zCsdY_I=f(I@nvO~gAhmhEy`P#DWGJxoX2*9MacFNcp!t55>u`Q@q!mk*bl5iO?;yk z>7kwff3#z#gen7{x_<^Ta$c%}34&rYEbOT93l9{F_!yg|tfXhum{(|;djKX!}BxnfbX==NGA?&SA6&DM%1VWf)7v z3r^z$hj;7NZpX$(K=s9cEIXWC&p4E(AqQ!WJaQnS=Ow3=WtQD0h<+0}E zs(4-hOYb^MNSDU_ZEhXos71%F`G~<5{s(9vA6?=6w7IX*?ZQ{L*~2Ez-+kPEuS34v zgiuKvd-=9v?{k-$ZFC)V<$lm-mmhY1hq4sZ^|D$d%Wd(m22C%9Aq4QiBcGwJ^Vrqk2jS2-a;0txlp50W%nc0 zQ}dcq{nYMk=THX|>fne4|3Vv@JWO1DZ|Y~MvuIjM_t7_9A5L~xBT5bi=&be6sI5`l zkILS;;vy93ULfn|<;4^T8_4_meVp(+S^)5KRxZE!^v5<_B`zV;N~8??Q3g}3elDNR z1`Fhi=H%41r7%-A`4ZK}#st3_b7x`Zaq-dA5@ z&l&v+mwYI9W7o{R$+zUe;J}SK_huZJw#HrbVW|}G7Aph`{X==owR5H<>y!nMhx>u4 zWlC)}0DQmsEA)1~&C#;X09OWx=4a(xL{FyI8WzWPcun81Yo2tey|_l#U5=a5>Uylf zDd?ep7bb^ke`gS6V#T`tVWF5wx|iYg$?M;#avUyMKDBy{E}mni*3>jz8964CDnt-= z5Kgbr-Q=nGUpj%PG>jj{ciXSd@O@{vQ4*Qi>9{%|TXjIho~wX&V=NJ;G;$^=_zq2c zhc+{FBu!DCv;!>6V%AG2(rkc=guOC>D*T4ag5DZo^+q-|8H#Sg6@)4x(^!h6`1Ub*cN zO&Ni(4@euU`HTFAd#G#1coe?r4_t;!vF2bSLz1Hk8M;M;;~s-&J6-}8=W|5C)oEahcV*{BL@5?WWsR8n5dz%!$3);X2Chzr8Z&T zy8q$e83iQ&dbO6q{wWqnWh0Ws>ki{>BkbPrsh-1a_s3*&T!jfE9W1^=CiVeQrnp6| zHs1j6M6~Tsi;Ts2zJ+P7vkFWMOO`z4thze0@04$Gdhsz$uu?ffYv1=ugIMz^>o*)lDQwZ(eN4Qaji(9?pq@ z4+X2#D%fYBeB7Aueu;&jgHzQC1tzr2p!Po7;C^Mh4&6Ab!S-^cb^1zL|0OWGc9RY! z^0>CbhIVFnxi)G1sJ3-`mzLX`;E>QJQMADspW>wQCw}~H*o$)=@}KGAh}+a*v#p_F zGR0YE(C+>oSMzYtNZ3w!zMgZqwhvuYa;^4B=0qzvayFpI7dF5DF+ffIoms86ev|rS zZ}`H%vC8d%cQ5$WQ(@KZWFY)(2_?xm(Je5 z+uKJ}l{E8J)(zZz@U2v-_C-TtR-A>=;V|qy746d_hxAVQd`MKwE!5;Dc^W@oUtdLZ zoFBRCy&^a+rVoc7$2VyQ-$G9*`9Gb=&)m#iQTE48e9;#2+YLv2cV2z-^f%O-UpMP) zN2h;WiH1_+t1}%T5EdQVx&|{ui9Q6S0kzMM>X?*g<00R_B5!BWLhPC^Pxm>YhMsRi zHdPKm8H3v^Z?kWUwy?HtI|aY{iY;nY-vn{mnKrN!9j!Ps9dH1oH+b$(V~(KXz) zTzKrxne8K>OzRhj_0#5`x+7orDtWB7(EHGy9pP+r4KqBXbVeyICYNliMHk&Tp#>M{ zd|ee-BqB2-5}B(8Q_i20#2{hDwk&Z_dL5U@gBu#I@Xk=g7bp>iuz)*QsD?Tl(ZP&Q z-wDz-8e`}(^`*LE%US!Wb$BfM!at}L5pw4jp)R1GC(rCxhs_H3Fac(3ewq-Ty|o5q zf3g%chir#kLE|uxEzbN%1GC*g3}x>E1rRM~Ns!2Tg&;aM8cf;DVk~F_OA?CJ$Z|cWikm+c3`y;;1mK-}|6*CLlRFBZ-bt=aC?mI3pvxh4F2W7B=tp*RjXB z$qE@AatO8gKtOqbznA_`GUyeJ*mCgoFz9?VZOf{YQgM=YL$V-a{?%i&XKqGlbv8q) z2pHX)fW}`GNTyq<8Is6$Ci(`KKXP`QluUTVH#=z9Z?{WbnX;OoxG#`W(k2>MKx(x? znDB3=cO2$Jow^!{218ge>l0NpJG!@>=xSbyp;Y6 zz6)BcpxC3GGC`s(RVZr=MQzjTTcPGKyg0(NPNX!N%npjWeGeu^-wxOHvCJT3Nz&F` zy_(@UiR}mk3lq%ow6S4o6fw%mWbL&s9R;mQrEyg~Oi`Q~#=`|8g;1s@kne5HSGJqh z#c|LUx<_?n2Q2aHHi2lKtzEwo44YhcyF~_GD%5Tl1 zbj>iRDU`w0L+jRCapigH0m+dwVeMltvO~AxFJX$D@Z_=;9=Fg`hZMfoy;C`D-buCj zA}H}=2kNIVYZLkB97*>rkLIKF-mQ+x4z+5IXi3SJlc{3AXklmsuP?O%V`?CpyW=qU zw3Z247`y?v7@#`EKtGWmi^>X!jE9O81PV(^?p9N@x_7rZOIECdWGeO4@0MP?n9NmDuEd9N@4 zWJAm)0$8>LVs@4|R6eTJ0>mtl?~*wLFh`(#@t;pTQe$sC19bF8119W?da@^_)4VkK z;x)fdi)_VcTPcAd<|Ba85PR&^rbuC8KI+E#L9ggd@=Hbs0EDA@c#I_eNz0gr9tWrL zmU!x{VIm3PF%+_8>oi}{_<4U? z*ACx7#)3ArooF-RTYA5Cu$>x<`*6p@61^?>|3m=7a8JWO@OPCVq@zoQ0W@&3i~c{w zuB=}1aSiSk+Qp$?rArI#0SASH3)~Pm>E+ttTlye2V=zQMVqMEj?}bo^sRkH-SpK2# zxwpa$qEG<#Ih~(I;R{=MmOzAmrR%E>yf{~SxlnbW^Q*hf9#?P+4aYP{8NuJ>sghgh zr`yA?D4n*W4&<$CmJD6RW+dD<)v~q9}3+cOELrruj)Ohi<7LX=S`?=a{WU$X)o%Zq3b2?CnMR-l!Z;G&eX<^@6sTXyy z_iVhGdb#=q%1=CJ>>NdTik~ zByb|tx%|}nvS{(x_fePdi7{QoZy;dLfjpn9y_mi2B^unI7!R8l%;C!YMla%-nPu7PVQu$APqed6I2Oelo5*2DHFGWa5 z2~!~=-6uawU$x9T>Qp6sJDl;I3MAB~ zHFOyrYyYLAp~9<^?wY(bKu@@4a7S9)I{-g||kE zWnr`7;8%0Wmcz$~p!-FF`HLa%pYdj}$w{<3>h!HcVS}nYXmhpltH;LURcHUu@<64y z|9kb`kRDw9HC{Dz&FoQyx4DwH{m$E~&F_8d+2%F>@pf#=nAIK@e-fO&9 zy(XLAcZk*2D0{Z(P4;d7_RT)eA?Gzd^r(66`gJQXo}RbMPprT(vzH%VjZLxq-^#}) z&*poF2fop3#|`JLd*C`$c;qqMEndH^Z2oK9g-w_4KX_?J{_qsD-fRPxC(U5IeB_X# zd?E^69AUhz!~uhoy9yXV56>lkEc^JuPwCq36BnEvuXz4`yP> z9HV{PB|nfuMM}3fR*t${dwa8I?FIAG z#Ubl8-Vm@}vA>yK!oEOjTve)~B=-|Mbv_I^PUUejCmZvF-Y!MY8gcxP<-=D?cRLR3 zHo9M2+9#8V!&pnLNj7&kNz|4Cq@anik1gd565kBpxuJY&)z=_&4h9?NFr2VjorP~` z$$H_s@Ur9c>X%kK24MLGMfkbW}D?XBaB3wnwtyu zD0{aU4b@HiZxY75&p{eqA ze4d(8O%6w@-pd->*Ms6ph7;2z++G7CA-L9>9MqwZwE*J&4ZXdkrow5N*m>iS`2)K+ zQ#YFvc2ya*BITy0cse9xSPZ``hD_8O`r)%_CeEwWGmXDTKY=8mVyuGg(6SV^xj#`8l@FE z#)=d@Av&<$78To(eShHjTxw=QT(J?abRe1BA$0Byl>KAMZJXvTXP92h4~tQ}eaF9T z;~JIrah$CV;D#agM4A6f=Vx$pt_6{ru0Flx>4uTjkrF9s@^1ZrI86yUZh*q^EVL_Q zCR$&@%TTkcey6OG4@L22PU4^-JXPXT!ckrv4oZ|paJo4e+<8@T>F0#<3@J}huC}mO zgSWN^0fNWcQ2! z?52#AnCfwSBZN1}kX-U4d@G(0)4E@;mBry@Ez);MgQ;K;%In<**0 zu3kbY92Yb+q7SGHCqcTAW=f!xpLeDqj80J`=<608TLKSvJS}pq4iLcBql7~sP$3(q z$~xISYRO;+%`z-pKX>MzM=06Zd(zIkMlPSR5V3+7BG|-7zxeGrA$f!#oov3khc;c* zCxM&ba?sl#TPQ!Y>gQWM!?CG6VCDQ{t4kK#UhkFBZO_tOhvopIsbEa#1p6Yl%O+>V zIUn!wKQ@#IG9dtYY|K`^g8`W8p}=osgc7UU-gmGmu>pi@0#KPP1ftQF4l#ih7L=XM zko7B@g`V24cy2|Ttoa^=Oi319f4XMH5#lw2<|tf&BpG9KG3YzsWd#*#zT3WQTLn8p zkPW!BY2!Y5Q_CV;VZNqV&euCismWXlZibnA?Jsxw4!PfZucqVu`1hk0i7(GvJU;w% zi;*ug|TbR#>sR)E$TIoZr1MnGAq%5(3>PbRag^!kD>k@1aHl9=Z51|Ahm z2yK(gypu*xhb$d!ZtTgXG9-;Euzf2k2|bSAw{ms=PFx<$0Td&LHqyHwo|Q$~GnuP* zb2)cSjey3^sliyPIWRSJ9#$z~`toysubvb!L}EzpP$vr4>4rU7lnsmEhU#S1IpZs* zG&)(mXa|#cdOMKv5@2k%|H%+hkV2u)dGG1zHIgHewDJ`0PeaWIZeeJeCW?OL1Y}WY zBM>^{-1xOjEL5*V-|ZDT3nRw--rpcPD{eHeu)1Hb~^PgFc0j!i2r&mipZlu`Sl)Ztt(pY*Hv#0MH@nLZZZZpm49YYvq)W zbX5=#5Coc9x&7{I;I*oUpGa^dZj1bcbUa8qkgshVVSK8z}kS(P=%n%8a>AKcLyIZyQkG?E@9hF?D-1L7- zRwlA1MMal^#(v%{Oy?7M4(uhTw|Cp?g(%opUD+b|Xzvlu=1cj~*zo{c&XzyX`3XaX zp(4aMUBhgE3j440JE7QY@N|W`-#eQMu#^zEe3rQSMW&RVuGta^6|H)gd{n=B*ar4A zPd-)pfkNx4t5gA`?d&MOzSab zfA5%D?c*?dq8n|NK3wJ*fm=*SQK7jARv#-2nXu&)ZS%97wIUiM9V3#FmOh z3XY5?Qf<>IY-c7~gH|3lBcq{%K{>6Zzh<1|p}aR=c^Lopz$dYy6TlQ}RCnS=;&vy> zL#XXUpC3HFzz7znD^H}fl_zcrBe~SZTulmi@IL`mZj5x?G#$L78@gbizlKkSWYfnQ@4MYI4PWFJst0AICBXgj`dO%2t!})aVI=y7>$8J7qPSOBv>iUr_*s_IA~ueH z<7`pMLahBqGqX(z$iBPuX7K7`UkG60Z=G6n-PGK0+~Lbz0(Kub=JH*n~c8n zv5O{8m^&Y~C^gp5!e#(AK0WsCw`(?ILfOA*+w}~CmV9jPBV>)hX8RI^RC4_iB2^wSvk!jZg-ykV$lb9zPd+n2d2dU@z%a=`qtzWvT8*Ihg| zqZx~rcL>tHy06;MH>8xMpe4p`bgWX!4{mO|4#64|yt8UvVww07Q9bysR+u1|6&k>4 z*z2)Hv0v-Y7bwh~T||edCxsg4#LP&=w74}xMyMT$`Nt`)x=>TCK=s(eY{$^R3Do8E z8~i;q7DLqAYk9|x_Pyz!vvaZMN7QO>lQ|c%Tl4ZXvOBQ&#m`4r_kmiE9 z=Tkt$gBtKvBdU@ayFB147i3VVBH$*C?#ZbDY;qj^Dk2v!RB9A0>5Q)Z;Js@L5J@t4 zJN zMBPUX9VA36-8frMhtQD!TWKlkjh7)**)8jC5?Jh2i$uE|Br3JPL+{>-)+#e^d|^H4 z^v%=j*c=Zm+@Da6lJ}$57=|8>bE?fx((=FjD-kk_Xn0&_BxV8j8H>f+RMz1m9GV@6muC%_3M!vD=sc#_p>WP~Rs9*cTLXwxkL)dFaT~%6<2mutMT?O4(z?q2VWF2ok%+~!RR_R{-Et1%_U<&PtR_&NLb<78NO zed0>AbCmo1mhO>6-tu87)A2FxZ7F^q$^x&1PHen9^o$$@&ibzpqHv?To0j2?M2uNd zpZjT^TKaHco?4eGeQW^)#CMFv-d)1Ql`cdF2kGKhw!hQl2o^60(s(B4)9<=gjN>vh zle|)I_7ivTL<%-reBh`S{2|q?C#JMjPf^m1jXSEty@Mo@ds^Yu{5BVgy7H8Z6H(E z8nGt^uM9_Qg?rDsq#gSo4SM%uHe3jWSUt9=9>)#-xyH#~*T=5X-|9wL3^sq2rCE-s zaQ#;0vKZXp2i#jz4Woo5yDE$+WDdoIQyM1GEl>t3*8b-jGF9+Nct2$03jMsbN@x0N z3uX3gOZLa53p#b*^u|q#0vzFJ6aQJrw|(ChyTNL`pQ>_CX<5QF{>0qv)~VR--KzM+pEoj4rc)D?cx>j`&@B-qDn{HyN0|`>`D})Ln@svc-SUv_A-4i7E-oxP3<+ff zF4u0@nTPXsL|4vOX`%0grA2-hd@d4c58nu*?CP+J42&v2g;tKN+o@BZWWTm^?> zGo@@mX7`#!MbjD6_u^ic&A~8thflNu+O96vSQoS7w*0{Is~%}4oFt6MQFMAw%1iS= zxyu2-1L(LXaqlO+ejg4H3#bud`R*;#EmA4I^Yam=Iz!Sj$)O^RI#J1g%FKI$;KJw_ zNaj!^`qcQE=x48bo<7)g^)Qc>so*%>DFG5I(4h_X~L)IvA8 zsunS9whJ6tCuT;;$*oYeHr6@${uaWIV>eFcsWwe((b51nR$yf=Rq)7da1*q%gP9Jk zTft;Yf_!O#(!=IXYP%N%gu7Bflf2dD6Cb=SrA{xuVn`%ZsiJ$jN)S)sQMr&0k#MG) zo8%&Vg~mwKo(tWQOeD4>2=Jsb_i9^$eVgQ`T5L&zFFU7=MI+{=Kh(uPbmXrF>0NBU zAmNq(btu<8D#nEC77#$9V<(Zy->x|+IapY8vPigkjb`VkPqTOV9rTe)i~5#+UtJs$pW^Hg%z8?Vr7=qm#FN+w;SU;5p*0;55G76o|nFtVoWx-^x-ZJAr;| zd7MMOKNOIz#eFn0Us}{|uQY`-qF3jSjkA898XDvqz=X;-y6)>bcm2R8j_6a^t%$RP zIp#CC0rq2~DBN|3LIYG$iJ&R_;j0$F8tA+gN}H1(6WLP)@_WO!WkbbkHm;k=w|al_#Gc)7al}xIcHZ_T_qX$?Wk1Uz#6i_Tx`^dY(;v?H{TfQ~Ocd zz^mTg{1W8N?G29x`f{S@S+oN>4r6S7Y>!(}_BG+U%(59sYme9v z$pLwT-~Q4K2$Qnk9e1#I(#)-w8f?2>b4EO))K+xsSu>LTng_S@Rw6DQ7N?--hDn0IM) zm^{GqrX0kf*j=~64qLr~NOtX!;tOUzf+%6C(80LekG<&e$AR6aLuAa1pGmo@x$B*# zl%UjE7eARFXd+lHG5Wdl5_*T6zsKQ~^w;$c#$F&`HFr8+{LeaWwkzn6WtN<=@&5Gt zKDEEizIjtSC-==Cx~AZvcTAT9wj4a(RB;h~N3FK@qXsk1!TTIG(|lkqKMu!rT@YvQ zK%lhyqnU-;?@6!s@8vM>?Z@vx8Tjl_3uB8eK+|5NEnl_i-@J1xgHOf<2jJ83nb~n(OBdcJgg>pk3}lFW8ToAQHdPjS3w6eviOOD`k<*=X zx79b2@e|dsfHmw$_{n|Ru<*m=v!cjtil$5d-~t-l?iZyuLa_W1w5r%Z86)E2WvT+%j|Os&yOamh?kE4Pu9 zC~L&M#-%i56hvFyDow}KQc(=C#-$*A*V?j^TRh!*!P_OF-q4Qrex zZj!P!KzfQ(bwlw-_!>QExn-Gx9)|v| zW2!JrH63~&n}b1>vRg*+H%dkc$Rn)=stk;90UXI!cgNP~ao-c0x&T{7yk_fw95!Q7cpLvnF1vU!#V*uyD>oz<9+SWEQJ_ zD76Oeox>=X9o3in@kJq9Sc>KvVb-)0H$pW4QEQp_V{9s7=GnKyS_kwCbP`R`^&p8l zKX|O{L-~Iq%!Dv%oR`%)T?&^D*!l_BwjLyrI?E8ki?W*k5#S3Be?Ed+B7ywsBxSA- zas70}iyl^96-LEdwz6^k>JundiQ)P_lFu_QjQR_L+I^GBgeUuYgYQ5Qr$*bx8R|Ey zJ?-Cq&ouavD66G93Sz49I^i-h1)4md5xex>%Wkhz?jp_}=t+~qW93oqCH>jFwE|q| zm=w4=U97B2bZOZ+3D@6NdUR1XO0%KNH26=<#B#xsrm;@?{5lXgk~S~aDYq_fH2l^I zjbX9jAgN>vzFvU%?lzU*g`Nr}dfF2^S1HJYn0Yth=SGWb=T!gu_Mb0Sm!9C5#os5(QV45CV*(Y4waj^LVTKtF#t*0_ zAqgIS?bRiZC3H%qnwlh9XY0h_v~MfypW%`kyKmUd11h2Q#~V(e-S^$qMLp`-yeFxe zIhoWoL_IT#82*hv00D>$eN1+$$8g;oKuQKg^WIrxB0%IyEzkI;~t;>=~wixe}uqvwQS>K)9q{A z<9?CDY{7_t)X^({&?Zyq(W}AY^t$KBX=nEp|7~a}usmPVe`O9aJzbmF&x*0l#I!l-tRcMl=m$Ib?CU)OabO>OB%w9pSxu_pteJzbQ z9xeaf9UygB`rw{OO3gHC(bVLhfb_YJisam;6{;uAJ z^#-IEe=TpTC-+3Cc%(Vm=c8ut@Vj!c(qmLG5P+lE%DT;ao~(#qVP#El5>v5OF^Q*` zBTs-01AC!PX_UmED=1)a)G^il2&ZBS2QWJk-EJpkc{y8gm$I>>l92>^{b%!4LP9Sg5*|?ZskA zl7ZdaGZJzU;xO79oC;IUWdOS+xE-^ZBm>9u=z6e(1V;xwYd0?nvZXHIAYf+_t)8Ev zeP^xD_lrV=gDF?o-$e#%b@T0)D~yddy=Xe_=Z_bi{cdt4!84~LfGrOG0Dgft_3fm* zBKYeLrbuZantsu?=*1L$wNHaTYfdwkNiaNdl@6Wy{*EBC2*D&K0D^yt5q^F{$jEZb zJI%QJ_eMfHyz7sHbu;^aUwsq)#XjZMktdDT#kP8n@QM3PwH&jmJsgViFnE%2!6>ep8aWHAi!k0bUE(d>bpPEGOSqio*#6;m9;XUZ8mtRbt&sU+#Q4QMq zF8h(dLxv2y^ub55Wusx5dMezvp7LwW392r|EG(?B*(57StSvl`?il>4X5q7XZGR6R z>5LufsAK44`CF(MeE5rP(Q5$EvD9`pxL$uNsLK1*-h@)AYe&UH2ilcf;( z%A;dypNy4aD;5aT7_-^T5m-*T=Ye`zOw8L{_}8<&C&&-2Cv^-TdXeIUJut*08uju$ zRGdAm_Ky5&m+uD-4*e!zP$6q7aT2OD3U_=*LJBtnQ!PDp`aU7s&VmF8Z;_ zjtK^1ND+z+U2r=frz%$QjbPYtp%M!Jw)Ze;OhBV0?8U|A#NyilpcJSd2TMe-M%1KU ze4MIxd2sNRaTqkGn5bdO9}&~uLlT4a5o50%ryqL3OI{k5CTgYM?Q-pKz2KD;zSpD@ z!qP}_UdxU!ejONsXfGZKxIQ81TUpHZXMj911hf|C5w$?Zeh(!$l2*a}2B^B_tD#~? z83}L(;W^Q_(a}QheEg&q83F7A(`+NP_UAZAaQ&wo5fG0Sht;rp?3cS(61EN7dst}(9Mv2s8EJ!}N!!8YNvk~pp zHZGpH1NE)n>;>xsQDsguHyjFhGIbz#^T4poVLT>v&^SFOW_81kPSa(Ft6h?Gp5?atzDW7J2GOZV`*{7&4m{pI+Pm}$kD1G;7YRRpJ@Sh zIc+#^Jqcz?%Z;B3!4s`X+GOZ3778NJj|lF`4kq}5=JmXZ%_&D0YJ%t%A-7;P(F2x4 zoI;^m{U{Vuc(ST3#EFanD#2^iC{|TTTA+p$CI6H=OTrUacU^WvsH!_|^HSMUa3Vh}pY45V}h^`(GfWWtaJJLBK zAC_Xnt`srU0t{9qz~U+0!y}dhTeb|xXEEcW^&+?L1K8soo_8k}rtK6jJ-FziLXChe z=eM)hrVocqZCmtlPe6?ZM*w>Q!tZ#%f13sE^rnH&+DeT0Qw%Owf3fYXc6IYm@qhn^#&gGVzven+bgYQ z;Y*&^e6o=r&>ekRt`3Do;5q2`I3Pb@gp+v`kqeUS~?=Y9YJ))lr? zpp4zSun1A7|B7qyq)1Z`#q=Z=PQp{WE%Yqz2TRqQUURsK0jDr!qO2ZRk_|%|7FhUe zD#4vLQmeRMXMJm-SDiX(4}S;}zAIEey_5-k7*>f@giN_iD)oXBml&!zL2Rz_WhbYr z_rRySv>b7JFBK%EBUz%JpAMiK+q)qtuP1cjXT_uwIf!#Wz|x5K){hUfsg*K71UM`f zyO9Z6ON9cASLEdv&8O#XP}P zBFE~P_U*9s@O%G=AC&2RBA@zemABkg?~*rRB|)33IPX=N)3Oacse_ItwU$o#t;s*T z#w?K9U5eE=N`Y@Ys?VkRb-dazUAn-~YS@uBESmG@R_UM_E+I|@tMgZ8e64B<>4DU? zrg1~~kpdz=iIthA0bpUqFmV_Ha_CDku^w<6Z2lP~cpg~1>VB9-S|%kWaXga}C}xaE zkONO;Nf}1dE>E6`MX-puOyayZlE5lbtHE}3rD<%^abkhJjDPE8byfuLeB*u&g{G25W7|!@v-tC3!Y7#6~9(Ue%N-@J){wqj+J_&-@;O#i7ZU|~; z;Fj~4J`6zAJr>SC2Fprhu%h|(E-%f9s!I^WXlqu-I;t5h2RC=XAiS#9Qm^@_cI$=~ zm+Av$a3|QgkaA^WcsZjW!Hl$oZ&HJNybw21!Eb^I!y@=HxaNaT8w z{t{sa2X+GTa89h^FrO7F3!T*T+=!DaM*|Hz>xakm`VYC8oUD{ce&(rX)=4kE8bv!v za;PTntC}sf*Q6mYnD zjX1;2juqBVncX(crIqmkD&FWF7%>B|Xj%ub z3-1%nG@R8>PuOtS(7<1^@UBnW*w@(jUSlONcpS~BYl(mEN_?Z%NAd+iLoe$(6esX7)`PdfzpAh_k=9JJ>Jdc=2~zX6H$Z z)4w;EtxRyM+)Z4^syE3u@Ojb|`Rd}R$*;fV#Z>>W%N+6b%j+$`2WepRaM;!PJqW9q zxmk8i|E}xjrd2;0@Q*>j$J%6F?-r7AT#T0W|IQ-=R-Q;HduII%x%}{R*&o7HRAlk; zLv29txnHLLCDl#)RZY>y-XFH@F&JVxhx@?t< zhEy^j{60a+b(f_W(~tXdLloIYGVBmU7E0IFf2X); zij*Ogh}z{n<)1<#a9qQ%oOE6%a>LQ6 z^3CdrK845vzFH%*M*T zB!VT<^_^1#Anr0UARsFije2iAN=m<3a>eg>9{j0Qpvn#FZlv?iMTjCzA)zuCHWUx* zdX*^D>M>>-Ty`X@ak~~Bb1VWTsqm4Lg)nttir!qS5Ya_XoGQUmQC0p6V8@25hVnwL zNhbCRH4R=kHiWK&aInD+u*)2eSuR-gzOo!clH^G$;tZerI&$6O0488%nNpC&<+55Yv6Pef)c0ixL{QT6?uAfFW9?$9}E9~Z%~{l z=tcaqFJt*3vp=VL-5P4Oh5m{^e+!B6Eh64xozoh5R~NgkH~;Q$n|EZtNi=coRYiPk z{_J6ud|x{wNa}@!>@A&~Ov3=vYs;5H!VGKIQ@`7rc)A(IrKKSwOx*16cl40`z0>8} zP@3*uGX{?E-UciJ3~7jHlzv8hvS9KzShkr z1}BYfRusAb(*`qUB2@LEFi;%Vxkcqo)+>y>(v5sYB%1zG9b$eyR3LWel|35yIXwM- z-)6r_>2LxYue&C5W|oq5i*5hxm9ELj6{sf^eLt|8gg&8F){`r=b=#3i9ifeU z9ehfJ8+Ua<_NTyCw+gDcT6`^wE}Z=Bl|kqH(yu8#Mu4JJw9Yu);;@Fjb^T#MqWZ#{ z@~G8)R>VUGcx=t1imPQ>-*FTA6aeI}EW?8gicpf_C=;;1vf?{7v7J0SZ-Rs-@kU{d zxn&X%vVKEdLqd%k1G@vRBiwq_jdcoX9_x#PrNdgI>`5J(pvN|N7hTGe((WxJMUT^J^j$pmw?RjABe!0 z|C6NaE0ix*Yebh7(J_L!`9ozxNu7K?<4|((=^x(OR@)gE@5Or(?I=c)lmk7!?QM9{ z2biueKhz?Zjd9UzCG2i6f;glF7zrKGc>Taf=+4wEc4OZ$jWkDNp14mzE8Ax$3i9_# zNe_~N4^*f8BfoZJdAI@L3aAc<7{|St48;}|+=59fnVIo9srpzsBYfja!s=$jwBsI& zH5bgBfhXnMe#?DMEQgf`UycWIV#)Dw$`BJ0tl6vSrpNrU9>$Fmaz`p*)o|kDqL&iW z|3LEq5kz6hl-jI-A5g!!nG*q!ky`}w)Dgd|m#G#2u5zoCv2_Gy4}Z1pl1+*nCJom~ z*NX{uQSIH-+M>`nZbvARq*9wAWmo~&h(@F9V(F775*S~ad3+I{?EQ><; zKN%7{m!IK1Gju$8-c$Fyx|x$uqJSH0E}4xwEf4((F}KjK+xBK1S2Lc3 zk*aWws*FiUKL-a(NH@MJu~V+g?+?5&Ylpgq@I`NveK^B}Xoh>RQ?>3wpY}CmG03S1 zKH~(#V_;L;2*Z>%c!muvK*>Atj@@QK7;0xrVc8tdu1>}(0(JZ4Sp0ZLegWPC zxJ@lrZ;x7p70X*md3+kZu_v+2Cyli@BIw-Y)P3KV4qR&WpoGG5mSQD`F3{_;cFqi+ zcZvg5_0El%a$`)y)-BxNc<9^iI$3I+JS=N`l`{)XTAF58@Ha=H# z^^NhHO@=Fj9%Jn9{hFu+Z!eELZuo2D{^nI1zOx+hCR)x`A3JYc`}BuU-|E9(r^5{E zJ5T*$<$!hDzR9qm6Mubw*RB8E`uhX;TztpMga5m=ApqI(<+byM?-3dED-C%uX&VEa z0X1^fhxFx609iM4EPFK@;B0yB<#xa6`HkL>De)hSw^;0&^8e$89u?WXzccdc58L)y zfG>N4Z}vS9!%G^d$ar)ed0l%b!usP7Y`ft9O zkByG{wyGntp!(f!=k!my{jf~+-gy03JnjGD%uHviLFewi(~nQNKQp+BoZd9Fe$R^C zgO`3Se{{^{O#hEmL}7i75#($&d^>TEH){06%d0CU@r>q)R?(@qvn`u`153b6(r{iC zdcLi7t@Bx3GIUe)*FVk)ohEkmz<@hK-_%32zINQem+V{onkc+*IT$%yvZ#5c| zXm}%_Ng_a18hb9S0*|=tOiggv@GxA|YPeFB2VESxne=d<;{48y5BXK-E*?JF`HA4tD{X5nt9$~yfG$M(b?qa)SXGr3x$|Aj% ziv$*+%#;b+Ji4EnRr=$PpazE~!Mk>0=Tzk~)rbYS>wj7+nkU9+>SR!C#1|7AWN5E~ zA<1cPV-Vo1;mLESdRTB?gU<5a1rZj@wt)E&Iz}Nive6jp4jC^E$AYEF8PHFwmL8~< zaBAq)c1RuZ#UEDtWYcK0^Uhn%Lu%42zXF@IR?it0#?qoA2 zisuq`m8k46C-^?A7u2t-lv4wvI7PfE#^d3s)*_7a2evpR^WeiNT61rAZ}*}kj@~+0 zs?2JG=SFy4Ff_4KJ(@GqBbsQVbOMt-3~Eo3w-OE^S=9K;LqB=+=}dbbgXLIGc+Eu1 z0kCP^%j|tpo8`HL`$p9)a@69~K1xGjNkcRJzo#N$w%T!yE#QCxie7cSNHn2=n?@>0 z8U{$L+J893WRIB29!SsQagqzW)yE)}LjLWL>9xfj9Qd$0OQ60?*3Ed9t6Ql5vbar2 z>Z6m)6*(6@Mx>F_sB#&}FPV+QkV3J?Qg>1z)s~tGY1F9%@@{y_A~*_`h4jjBi|cCO zbJlrsc=54;ciR$E$!Io3_Z4U(0z`Ks;S;c?w}&3l>wcc2Tt=yJ08-2nYFeDy3@nj& zBU)f#$Wn?>s)DaXKVn7zu<#UdqLxY$!7b5=z$xiNL--x+Da;V`GrnY~BiT3_q-F}| zp(PGHnY``)L^jd1>o=6$Rsl%^3uMys&IfSnGM$)EI8S{j03k*c3%F>{^zpXD?z(J7 zclU5c{`0?|on5~i305i1R@S6I$G+w&Y%d_KV!|sY4%e2(nQDMvpp%Div9c%W2Kp}d z32F3s)ns7^-;v3Yz#z)xV`X(G{>rq?dO>Da@6D#kjtWeKP9k$g!g$+w(u!|1^JJ?8 z-njO2EU>2Yv_L3xqo()7=n`|0-rd2EIQE^BlccaLHdr?-;vCKG$90g4X?eFi7dc7; zTabLG;1Q52Zyk?U6mOaCW97Bjm{k=_Sz+H5qv{}ozdsECvcQFMNBA>{{hsxU*noAM zdTX(IScAC&khqfN9#j9YP~!4n$xX@iyJo>Rg$##tvzg$dsJhK$K=Jv|-}yl$ffoc3Tm$OC`cP+oF-+R=s_)L4 zhJJ+WXEo{Z!SpZZk%X2Q%tkMD8!Gv#QHw2NzbPUb6OFnyR7!$xHj-^n6_99(RVBe+ivQ?CcH*_KY^Gq|)o7XO77_`IA`Z~k zcK}G+tMfwv(`caqGBK_1z^t86n4Mv^0|#G4)s00(kpej|fH{fa!LlG&k*30p&p_Wc z~y zh#(P>Qb-{19-Zu^>2AwosT+j=dB}-nWA>f4kiak)vLdBOY`1z#H9;{3f)UBb3~b@9 zxaWGyUy_BXJT`VL2pfSpMkW*oX`t9hA*9lE;w5jLsHGX8#FPzd(jiu_FqWatc@UL+ zlt4=w0zX>=WXU3oFB}8GFv4Ynorf=hyDQ*j*?Ig{pnDe?*tZ0u@Y*~}9U#0eEph{C zXg5D%{oRTPKvy|Yv~-f;#BBz5917ghR%*Ak(vV4);p#57_j5OH(#f87HW<|9_Uq8m zWWaZ=FF&tdk^8F5B|IQ;0AlzXj8eICPH|#Fk%AzXWK}2D@AlY(vVG%XSH< zd=}9m;2%!^_Q9p0j#kQ{EZ_>pqsUzRv4@8Q^&C|SJJEPwI=cIodS_fatQUIks#Z;M}7k;QV3u^8^Z9kX=rz)vLjR=g4G=r zDkO9Y)kORh&1pVHOYn z2usZ`j7>?lYkDwXwbIhwzprbxi+OP(yt<(vtFnu_!;iwnpXf6*5_VLW3<$BhZvjCP z9H<=I@*^QpAHH0O*sTvDMc)nK+gCRJ^w+7!P0C-qgSQ3m^7EPa>4lG$K#C|XiCBKD zshhI5`Dx{z+lWhH35Zvnb+ExUU)wh(=vtrZ_ee8@YkxbOcz>&RgDZr%w7IZNvuJrF z)}x=gHt6ZR--ja{`1U%7mKU#%tT4nH+L{=)pmlcY!%LwCNc?76{HI`Jq{}!<%&_oaFe zHaLKm?LY8NU`20JdC?4;mu{Z7%j}fB z=fI4JT7&6p9mQK$B3#FUk*_Xp`f;^K;IQJW_1jsx7FVqeF*zQM(Ne$q_~KFScmIzN z@taf85)V4(ES+FS%uk0;g>$l}87M(-)+RF8 zta!p{X=t7J3&Y)qdE6}Oou20YJd0;W%hwTQ*%!l3DNlo?74`3{rcY4ZT%w1LuyL#h z`+?EfV_?@l@xIM!_1PDjNd@?ooV2){!BdEW3wM!tu+b?vb?`5=GMhFc8J5U`O6Jo9 zm0i%x6JqeKH~iBpPUKJSw{3Z1s9R*(PcTlcFx;0jrro3VY=$7AbtpFN`I}9kwE}7l z^3&gjq#!O@PTpCK%(3sk5=PbzAqVzrnb`sOUWPJcBV+0aJRtepmpZwO3I$KzhgxUu zBfopJWe#Ssc0D!igYPR+(s;~tIki9bRM*sz7d+t5l_)d}cspVS<^A%VH#c#u>BT20 zN6~8E!O!BD&K={P5>d}mW;W8I+7iMeyH`=E>rU7 zY)BCAD$%r^-VBZ#@n`;KKirpl$WD~OB3Td_pT}W^h(u4jbw1;SN=-^@OXGoMVS*h~ z+>pq$49ITmAH#+NqH&7-hxWC3!GXd&7DJd!a7%zXH9%L%U_Qd9ZXxR@8SVqa*ip50 zXkoHIheolW(})Vq0813BOl*ZGdWJA#jdSpXjGxB$+&gXWw!K6hu?UuvEd)WFX0m`) z>vP^ZK%>IJe9Z!by$$APjf}kO+nL$Pu(hAW&Gj4^Q^UrJ=CQt<7UdhMPIU zE|J@>W%u~Ut-sjhL3qI2yGH6=b{dvO%|nZaK%D4Ntg0xkui#JeJFzzTBnud$4?ZEn zt5xu<39K0lx|RtC38ap)M^4?N;gbbupJcR4>mz(Ju*w9$xNcBoFHjS8;%l=&KM9K3ykJ8R zUxgRGRg;pSPG#hFmr=Y8Pj@)cT-ac`-!B)Z*-U3>>cILTMm}pRj2upUwyF!i5?%0} zSr#gpA6L*726edDo!Fv&#NLw@XVdv^6~RuA&{gSVAM31Mcuz1|18}ZY9IDKjX=OCidp4m5Z&TMM z+pPglj}B1Lv&I5eH4g=23Fir=WMS}bz4iw`+rz`?z# zJ~)jozH|oR?B?A$PIL_!YpDmN8QAZ~^jmA*74^9qX&ID|Uk@t4(-gn2aqago)bDM@ zKb7g=dLB7R2RhA-*I}LY*6er@#upl_v!H9k#naAOy6tA@(O8CPxpPf@WRG$aSynH) zZT;=EclquTBPtC^}FgO%K)fyVAK2;{9So6MbY+6S(o- znkw(H|IYL%6Z#cnU#-Uv<3=m_%Q6svCosC+p9gR4DQeyevF;3@{}$LuczXtp6ep z4$$v;pU;3a$e**d%)Gg&vQ9Yf@uSn3#dnh>Ai8A2vv#(grrjIXC~|T{j9*?E z-dN?fz0crHKH5vS5Wzl&TCxE~4QJ1XdI*25wUt*fi(9LAfHX9vw>FK`nRcBp@wi8w1@*=qezUSMN zla?Y83EUCBddP*LZau&3LnswBs85I61jcZ)2Z=P#)i5)j;J%!QcRO+Y?ngw!mOU+Z zkiTI4MS*2j^C9v)*j(AOpb`ic%MCZ*`XJ}S)2`u8!6=^pb)Vv4$Lb=qcE>zM1yW8j z6+Ews1AWL^Jnp!#{r0OeokEZ_M)>OLgf*n3q{@`JINW0Z-dyaLvvJC62V~e@?|b{F z!IW#@QB%E1^v1-g!Cep3cFnX(gom<~?IC*Y<3udSRRAloIQOmp>Jcg26Ah-DioOgO z#g?VCJ+Tu8n>4FQDzI0ZG=e)uB(Rc3lC{kjnE(A;%N&99dTSRXiQAsmC4<3$k>-u& zn&-fB%e!Viz7Ey|$2cgeji(RGiK49a*P`N}?{G)K5K+QZ*ZRBr55B2d^KJ7g?>?t0 z%WeQDpgfPppy~*=l5FrfX6+Pgcn${7n&rI$=5p~Xy)4#fu+=;F!*M##qUHyuN7cJB z`H(OMhT}hoiQo4HiU&BnC=a^efiMdrhaw1#o16-o9vY90GmYC#WRULz2v*b!-(6cf zr}pAR!QU#D|90Iy zG%+aKSy(S%hYB=rcb-EnR%dpOyN%3ABT#C(dhwF3^Qu^YwCdmk;iHQe2d>(-7+fB) z{f_R1GU@D<9GaoNuBc~52#Qj7Dp~hYEO?3Fkvc5Z!1D5Sux5Se!h#G0qL170q4r*Q zh}5fAj%iGCW$NNU4juQY3sw=Cnm(r0Yn4O$&Aqx5%kwf3gZU@DoP=O&dO2{?^p5tP z@q$DVZk`2?Q#xVnNs~cG_vDm0)53&&6E9dT5!14j7*(Dp+EixbK7G{@R&V!ySOdq$)Ij>8By>kgHbli<=H){wCwjB=2&kvRv4 zYVt|2I!V;6p0<_5wUL%QyN8Y>N1Eu;Iu}-(p}<4T-!5no5@{gZj0~LFkaGI<+h`Y^ zYUv5&6)W)%&}HMLWXkyW3BYP6hy{R|1XeqAsfqiNoo=nOq$d-bg{fx2D3Jd&M9`Z) z`8mQc3m1Eg9a=;K;8Ec@v-+WCKVtLX5pIYI;6QQ@;Vd*l4K&VZr6naLn(8tQJ*fJI z^$eFscpu{pt;ct$z>t8IvnV77*ag&;q=h z>qg@Us;>R*qkz_d*ETC$Fhc=v*y%L?CIg!V&ls?`^Z{3>@xYI$GVh_V5C0}>o1{UIT6|e=&d{d_R$+tMa`kCvc;V-EVpKAf@Dg~5U zjDATr+WM06e8V9W3hzV)K|%yRpsHI^O%o-=d(bZ}e= zZ$VIy{D>dZdEq7w3&QSlU1S>A1zpfR+1cO@Fz$L&&sEU5pB?-WNGjr*TgtW7&MK2)(*5$gEq{2_Eb?I27X*8Zr!IpR79}Il_DO zKvGd*yHvV`5n905lqghDM^6BRJAltD48u$UOS<<|mxiAUI+@X4eZA_~9GbypcN%Cb z=@F6z-qI*Y-$tkBY%Wf&B2LtK=?v> z|C*WB9zrvx@!k^l%g}E|j!mk~&B;50FRRKn6|MkP7%=V2VDyIn(f1yH;=D~l2=o0+ z63C^Jn5nnFTT>6EY&fc3>WaJRil!?Fy&Qtw{Th>xeaYtT^$<4lW>jcbxJ>WJ9DQxq zfuB;{{L=SmA7RA`-rxK&B&~=rLpNn}3-t>hA1|vq_`e~2xhSadW~Mw&Y^+1O@HH%u z%DQd#(%=vC0!ES`g|Oqfeo!nnd?&uiz$EbUed&k)rL3AOm}u~5yfwYoCU9@8TSJyv zV6k@r-i7R>J@hx~?tEk6%z8cKnG`F(Tc+n-Y63l}1@+#eg<7CG;1&S@Rii&141lC! z&x7TLj_+%9wKi+-_|43+z~tq&|Kp<>o;%>Se_Pz};mxab!MPsyr0FC$BHN|Ws*kj8 zc-flaIc*~hFDS;IKat;XWY<4`s86WE0X?@|>tv~$q z#E&$Lzl?T5-_#C?d3d8D<0tRm>rD!b2YdIawYdnSi!~x9@*9xLC@yede8_U8bqP2W37f0adgcz2CBSpAxfnzIV^>TxW0) zdHrP?;1|M2y9CpYa@iuLWIeKo*!Wc+9B>V2hd?e6hOrLG18 z+Y9wkXAJspd~AMw$NS~lO&{(U)a(Iau<{o_P%l!wcm2w<2OO}sZMG}U-Zd-@)3YwU zN-w0@JMSI&cGKQ8qcQP14O?Q*wK6WJX5B{tB_sC2af53s-Ov0BibNLU6P?pfj5=hP zp>pVnb+*d9|4tc{u0}Z3wO3-S0O^|YtqHO_-T2pIpx7F9>pmo8!eBt~Z zWo}MpOxT?}54Yrb(KjW9VlgT1y??L5?Pxsl^Synedlx!b%~j}0ADaV$me5YWEgQ7H zcr_QRbhrME_;=6W12#N?U`7^p$v4pS2{LVNU7#?Tbt3=yb0+ifYak{pSjP=$+6ob% zJ!!FeMn6=+mJxJFilDN`8z&lPZw}+6Im5C3ae`1eqzGZP_)Q9rZ$k^3*WD!HILCs$ zM6nvzFQO|=_S64T%yYy_ST~VF52DYL`mbMFJ>>Mz*rO{pN}c$=5^gV-Ea26|U0a@1 zxH2xE5MHKb)5Q&e^ut~JbhIN=yki)22J~&^mvXnT=y_{{xkqytnPTFxxtk>K1xP&J zvp6mh3&1Y(KB}{K#{rHntY&MgBKXAc^|;uGjIOSB!9@-%jSNY)C|}MM@PnRp$@#8a zNf5(fxJ&fzb0#?{_Kk;JZ66gR!1zRRj`aj35o{pRFU1~emgd=xXbdq^^44ZF?%wEV zlV%+3%9Z^%0Z0fzNsL3MR{486wT?zCs|0g(7aY4GOypWEd8|LFOOHhWm5Gq3x!W`% zyxlA2{V)X6g@yQ))a%(qXm9P3V68LE z!8t7T=mPFTPL81mn@ZNb5A=HfT`wwyg67sGj5Z)$qd{!wHmdLiX|f)?^R<$vF-bzA zX6xm$kc00#&YYen>(=vQlsV!rD^_R{hO+8z2sgaR&s3ybz-+ocJ6CHg>47?XO)7RA9dQiRfWC4?5rwO+bXT@+2A_;Iy*Ob9O1zG3) zyn@<_L|;4hz0OB2?Ec}d=(Xd=7DtC`#D2dcx+1R^-5Cd;*&uvZ>yB>od*@V<#|!-{ z=+#9254iEqA-4vTNB(J<-g7@W{#Tm!yZi!r!f)Xl+{1P@tHfDk1tDgkvL3`@ZOIW_ zN}SKSYpJGrDqe2S;~Sz~PalRapH;ElAI4d(oM<7h<2zlNc&z6U*l`o0Kzx3Hzy+tN zaQ*XS=~rq7(pam?`I7b;TjTTGyRvoHM$z-LNVf`}iU$j0X&K~Djj0VKzmA*W1hkps z8GSx?zg)XsEiQ;Z-YD#~&u!$5+|!pRPnZ6)49uVZo$A`=w>xalp{3?C`CR?GbEZQf z2GxfDxYT0by0fFiNg)mUbEl)mG?h4cy~W{WGw|boNAZd zTk&vTpnGVET&l_)0J>||rH=K#JPouTnK>9g<>%z*{iol4t4RuGG7LS6V(MqE}O<2T_=2SYcaitW}-7TE4PL#e{7M>e=r zB_K&z5+!0aRi@XPJp#PI(?chBi-d4wMrzpEUaWk@f`?+GzDTg>POJj!ZG! zXpY!_G^AaUtBew4LNvi9FQp%E>3}#Ft4m5;evYo*uye!8^_hvco~I%&JU|;GT)?Gk zHr|)|fNY26J=`1Uj@^1itW-maB-Id8B~s3h2^N(4B4z+VNasadZ?f0gfI8N=ZX^9f zgO53v6p#I~FLsDW@bDFr;3Es$qYS4&H+ecZlt=2Kx6cBl$ipDf> zwwjaHo_*o|&weR&pny&<`B;4ms7aelFTf9l`Q3N1oZML!Aa-N>Vu*4XcL~&0Jr`^^axhSxcaNOHXCv5IT>(0+#8>6r6*^<(eGi`T2tpB(4 zFSKTmNucmOifDKbUgk(G^g%u+`789Iu}ry21ydkx(L{&H>AG+!uO`-UvMEW<<9K~J z;p3NlIy&9wRlQT;-7Ky-`mrhHK4EWLiboDDkI8CRJt1a5%Ie#jpyOMWl(kHzIC2v1 zeXhH}?qY9OyHY_yW8(fXB%$roF{0P9)ZNmUizxhxn zm->AxUv6;9-{%}lGq|%Vgzt%4cwb85OGxUeza;e~d7QT>NTi$1!VSc`!m=lhV?o&( zu5MA*&DVCpwpE0}pYAGY6aLjV|MzQtVX#9z#SO7mYn;OI7=tXB5EZYbI)anQ;TTy5 zlt+hhlp2UfV*bZZ7j(Yk3Y&{hNTWyD(e*rC+uLEtGa~puzuTyvgKYE=_+$R#>oX4c z_)|8cM<gl#|2aLnS_5O+bkxsaFBGp+*gMqJ=VC6evbAbb5B&!90r#_{~aepf{}B%?6^E6D2_HhV0Whgp%BSU+Q@Pev8V+do2p$TqAcf zryp#YwMpU}W6MDkpc2LnLtPM?GwO8M{He&92*EurldjW8r>YVN+r%%gYHo2=Q~P>LxG#cq`- zXuz{B1S<)prhm~ASe<^$UHfoXjP9&0vIFdtam>bXA`B?4Dqku@lBp)Owse|Krpg7N z4joQq&kU2KQS7h>+IRjW7Y+s>Y<^dp>iZSwx^*8-m4Vpw0z+~UQ>P5o5_Yc!h5@JfE( zl$gm2`zdaj;6mPj)1V z6dHLSjSK1z-An_S-;e957qh&03qPHA%z;4)O(4K&phd=bPAp|^Om{~vVCb<3R1?C2 zSs2Cdprw|E3Q>-eME5t2O90M}BvGfTg2-A>G0AV^kU}=GN+wO@5>wjdQ(JRwBH2_Da0Rb$pT7vf|&X)RXSA=W> zhrMP#8BhJtRU%vsI3UK2PhAyWECp3-ofQ*|j@tUW=D^rEitZZzvW|yAl&IpQd9&2s z#gXw2aAcK@KVP(|aFcH#{X8DDce+XBDT~kb$~D{`brajrekqD7=}&)bvIZHy^aM!L z;2X983RsUy+LUWxGGZRQ8JKqYml00f#1QZUP@hl2r^+S^f?YJqhUZ z#(%2aLPcK^1I-hPs0|EJT{`y~m`kssp4yWW8 zYJ=fAsU7fxlmC9}l6f+Q!t1CGum1is%hS|Y?E?qZWZed13;W-XF*^TmKr0$7?DH*k z3nYoRlMHhdZ&9ZiyV1sOHx@azTU%)DC0Rw{TdmcWXNB5T{w0xh!qYABecFegePSWp zi`2S=RwXttcj$&#a*Inwcx4|Mh*RV|BE0~9Ba(+}9KEgfah-KNg?jO&zPPyxMsxl%{BjSP&nc zEQHh!P}&ziV+7SSBCMKC2{H2@C3snlp|!;zZ?l}u%ycsSEYM)+gVrvdZwE~zn=wD> zmi_v;zSu0RDnbwW_@SyEJrq*$+AeUI6htTPRDPfflpix&E_DRkQ(dHL|Rm~w<-mqC6q!W+vyka=PH{s21~x)A6MJ} z`AO~dm&PgUt*~GTgr)O)Cb}l>)TyI1ubd|}U23UF@&8DA_qe3*|NZ~_UZ$X^sA;B| zct|^$tf{%I3=gF#YUQCxN|@V3Jhgdf8orhsw3?;a!8B8whtd>l9!dhv3K8t7uAKY(I;Pr4KNOAsq@+yF`@7x6Vtr zg|&EwxOc1Sknt95u0+I$hA0rgf!mP;jTmeyApQ55m#Y5SfZfFE_50`dts6-DMHX_p zp2I1w9&!jy5ExaE;T}zi(5%(mr!G^SU3#X|YGkubkiR+V=yjXCG3O1*e=RhaIGaZG zp%rGCSi00|?w#h*&N8dj!eqMf7NQ>-&>3}R#of1NI zvfmm)O3x+9ybQf?;@CDtl6`_PI^53YrA;FQOS|M#a@YW}b+7RQbSVu&Hm*x}f|?(u zU^B}zu9?~dF;jOHz4lvh+OIP5AmtfVUT5Y7WAjQSlByy1yYh!KpIXdT-3>VuJ_v|s z2Fz-K^8M8hJDZt9aTGhc$qTE%>r&KCoMu6xqkaTJsz3a~b(QT%Qc`86w zx);?aQ0qCjs~E-!61k7U_1pIL5(Q6q!w8fAN=^(p z+_-r(Q5;hPCB2h>l#-t&!4S&lAcBl`HyQ`B*xX6(Z$+?};+wUeLK@88d~{BPPDswY z`WmbM{lv|4Eogbiuy0_P;*ro&;SGS9+J%NL*eBQ^d;faL?uTbn&4~sz!8@-EQp4-j zh*E%Ldv`8UHc$%EYH#lHav}s=N?t}x>yMtQdc&_{g}f*n!-=ZRX!Px>AP6DTo`@8B zp-nkFt<-^5BtwIPQZoR{DVxPPlW1Rq^QvnBwXv37ZX{F~y$ok`BnD-<$D;h>JKGed z5{VuTik=7;7@{ciNTSoUae&r+p@UNz!L{hJYbB*@g~2C;7R3a;kIo3FL*X0DZi>v0 z9i`)|gE9^gZsK0bGPdo^cZ{hKS{VQtyfXd}$N@%P5s69-xqXJd81B|u2Xm$vA zKZsFLj^x9|WJLMdvOq~^8O5Z?z?QKyd`sp-AG3VNgR^Zte;EY1FxwVv^pFIudH+Cc z&*dW4m?*i3^_;B~eow4ioVGwI09P z*wEzk_N*XDnS9J|{3#sFjd>&NQr&j+CIk%yQZ}@R&}YEpcLp-nHJxM+{Lidd*`Bo? zA$HwKX%i8?B(RQKR2bga%IK^K7N>Byia}rz5usXxk0lwCLOF~dG~KkzL; z%mrFh-=#nB(Y{3xfAMnD4HIcmVZ)O@XUIqTSk*fZzQX#|S^A&vxY&!`@t4VN$cN(A z-Z?-my;bGDytG<`lj*jwMI=+|6$hReKmg_idBV zfyY~F`TiS!LRWKPeK{qrD8Hf1S|dpLsMGBHx9QW{FEAUTy(+MHZbrj>^cRWgKDvVW z1w^iakeF*;ar4&>M{jaC`>^W79$+&ZVj?;vl%mo++jMUf*KXW%!*OdIw&^*BZL5l7 zuSN}6y|}llI$LaVc_1NQu7U*TwF6J@hq!;R<4yf3bpP`2!>8LiIAZrFBZT)Sbk=A| zXXF5<=p%Sh<@^v0@eI4^*8By=jk)eDoAoOx`$P;JgxV1!<{P5sG{DLHWo)s09|BLgk3dpal_Ogn# z{h|(a^te#0$u}k7TtD1ef~YyeoP*<#j~kRU2%z9kwZK9q5~E z-#TNnJ2x4%BbM01XdTH)NSPXFM~aIsY!xUu)4CCoT0l|>X&2gxzHyfsukZinW$452 zu-Aqa<|}HdqH#h`#nq~qE$*{{LV`YfewtjYSLXLWC>%(cIbAu|Z6Ng{Aj3qKkj}=I zu_C^%?r;_Fh?*J9$Y>bMwi>k@zS1??KUzTN!M>7Q9f_=;83cw`vQU|;hjVppRnXN# z9ygB1;Va60WEt1+tY?pJZmmy0@bZdZ19L%LK9Vqc6G1GD+2@o|Ak#KNCaWNlj%<|3 zKKgfPHhuvRCNEN5O#2~STk4OT=P)7&PsEe97%16d>{y2Wa6J2%T=;?DqAsO5(+on_fVeE04Z)<)) zN1askvVcq;*QjU8&YJOqx_*(%=X?{*TMBB+P(idk)%5Sb4;J=z+o=Y1x&=cjY|e*4EJ((@lB$W)6*eNCnKe{xhsc5^ zlSVtngq=FxCPkZN*(D&0loc@=#f@VR+*o1ilz_|16UBws{Na=MzRVqRt@!{AWXcS3M=V+Akr-kh57 zZToC5>@sobl8!Bro4YsDQ*_hoeB;$HojiA0uuy}vj3wkqW6E*_Rsa36|1#qqc<>TU zm#bv=3aaki{5Rb$u8wI<#k1Mi7~Zz+d_(9U3=Qa@R^AszzO6xGL}Gi#ARZswCk(v9 zc=9pgA+|8BCgH-`@ktfD>dwc0biquc>l%++`eQP*JeK22s8{d8&;-2Yk_NGoodoeTi^21gNmy7B{ z-U^Ee9|FeK_khc(+EpV^K7!yr;a41)=W4yyHh~YoC7_{R0vj)ARA=}Xy=sZfN2Zrf zI=WlCK>qz-|F)g_4^W`m_rseXwU#K`+g*#3AfyTK>sR;j^3@3vqh^3FbL}eCjwWQU zRIo@=N*11B0>*@^fQ4({J0={svC}f8DN|$MUv~6e>~2oTT20mwLz3VQy;RoGrII7G zB+;xbK}zotT8;|)FHp>ky|bF8qb%H1(#`ON*~aM)f$77jUE4z|gOgO@0g`TouBAk6 z`0ygWQ#;eB;}mswPU>13v(xUexvPd+o$W{P;8|Ev(V9$LLoA7}r7Epc{584n#Dvh; zq1+t;l8FE&y(7)NGr!f<^=fygRK)31bjU=gfUas+3~qvOMuY->PtMr+cKYMNqA|6u zW=&@FJ*dnJK8QpmAcHNPKRC5DNZVO4HAt)>!%t??ZyPRVe%P5}hRU zFw|ByMlqHZ=Qq-QYFApPiR37mR|iGeiA1Ni`sj*XrVnwC5-|@b( zE9s7v6S}90I1xvih=iSJ&?LnM$&94AhK#>vvIX{ zt7GI2wk;}PW6Q*Hzgg@j&%?~ejx6@FvxMP8xmUq=B;qU6!795ayu%rf`2u__Y!`RI za2}!_FTCSa{ZFO|$zs~l;!pn&--pOwvx;@;!y!L2aeLyT zHxQUHPQKUg%zEv!U#L&|P^2`ld)Fqx`|H*%JfPgI#WAvC78-K8K;#86Advq3 z!^^AT@=y0}7Y6w2yw18+zdYy^?fyhL>!4PAkzb#}l*ZI_s(HH?B*VW>lnzV{2=AC2 zDb*Siwyn87T(dG_z>z~Fo{7MAnge<@9st(FN9&r#3}XRZIiOXVRxIFrTnN%2&-q z2Kk3tl|vv;W*QfUYk#_81I2=vcim+Jp+DlECxUqA*XxyCI%cmx+BV+Hg8=J&rJ)!p z<^3}#xINSOz?-=y2b6dQtH56}>cE9aZe*5+L-CD|jUm#mcv$nzg}w^Oe>+ zywx&9F93kHNz;8UEp`32F+!_m7G{ITjpdVZUH?@}mvHZGKeL(pY!`(X&xy$UF1=k% z;uh(Qp#bJQmb+3{B7f}N=L<>&`gp#U<4g49U@PE}l$kYoL%wNFuSx8H4V$Pcb_&6C zc?c|KGU$Ox5~fnGty+RwL}X-KU7(A%Gw3BHu2T`Szj7@&bU_Kmj&!WI#X}r7OaS&_ z0(jJ{$^_j4^9|k2L1L~z>wtuLbl?A0j?95@SFxc)X%L91$>xKS!HHa&opt;~+$g1p zjb-e9dSFy3rMG|Z8%rXcWedE>fD?ys`(5ea3%g%Xl&;qmVb)_DCf-`^3dz`s%?OP4 zoFCb?jRGcw6j@4_!s3yinip9q0H8%g#_2f0IitGE%9M9#x#S+ND5kcf0`(8W5<5A_mO(^|2jr=HX5S^2(pAn3`e$u6_l3O+Pf5&b|cP^ z=4?8eGeQig`+lvRiTh2*{ZEiiu+9ROR5qhOB1sQA5B)?ICqrpnU)%baUh-OA)3rQ- z1$|;TM>L>~FsNd-3J1sjE(}Q|!AQvQnlMls-j&3eh3iNrMt3 zJ8Lklp=B9n>y!}&maY?IwGl!7$OwXfLPPPTlo4Bt@`MKh7o}}zFgAtl^LavX&$<*m zZXkJjB5-aGUrK%yI??7t@Do~XviBP^#lF3n#*=o)rN{(j^8{tC3>0F`i=3 z==)V}ipfT%(Q#AZU2OjC%xlbFsO{#C1k*vvw%^NaB=)+Lz%&P;)=t=GY5IR#$Roo~ z;^8ww%bmD<20=T1dTHVW^>)d6L!*(b#2 zfLHetxX`E^dJbF=n!I?c))Se@XG^*^^96*{RMt>1{Whze-pX7Gx;fLCiS6SG_Nxy( zh_o0-{=Vz)auei=y%FQHqw`+(lb;}7xKp=I{gaZs@^vCFG8YKp;{1=dXr`B>o7oFX zN_Tsc6zl&e@Tbo?AAo!^t&1dot~+&;z&gw>v+SvM2o~L+$Q(V?`%CkxZF_Aj-upOu zGo3wfuZ3$X^p;{!!w6Dc+nn+Eu&pZytQSQUC-y#e@p`rPD1*9PtUdeXj-U-F7tKr6 z;gPSx>{4l57Urt>hs`{1VZYeCp$NGQ2`vkR|Lp(7F7OOlTk*r|%d59xq6e%^hHQTp zI@lJKUSY1&>Wf!rdm+=8%U%W5t<(K<*gY^L@BPQJz*Wx=2JVT*QCT2_e9*EdQfN5< zz;V+&hzBL`N8**>)JwWvnJy+4Z1r!e#6Dd+KJE2WM^0VatF0QfI+iTyn^UK38&2SK zb~K!SHDtNcB*fdT_{bhY8CK~1pE3vAd#4pG&Q#o#CQ9p|6}xJA3%hdFh|2EU=q^*r zU4qI#^u7De?}ypzGyG;$4xq&TW?=dQY`&f5Zdd`_Q7m6d;&LDeX|p31Nn_Uw*IYer z{zcWJ9V@DtKojyW7ou;>Id14FvmB11e%ew3=UNn07D*AP7};`255d~A$A7s=C~CJI zuyj}m23u0ET^2+##iPK)>DJbfJc`+EJiEUEK_W_TO;41J+dP2_K;S{V`I5=TFUn}{ z_ib0}zdeBc$=dB#((a8fLx-#}zgWdy!^=dWqw(5hAZm^G!Ac|V_lWE_g z!XC{7TcbgfiWm#KCDtZRrn0UR_*2Zkerb#s%hAji-L_e7l+_m*)a*l?)&UKXZf1Ex zlWcEnhTw8z8PwHYl-Y^AIdvoSevoCVgVU2wW&jM}_tNWTm7+}?@u0b79fMGHTd zNsq^uxdZ(U8p+&HoC0oMOo7yT)K-L7&S`~pNGy5b#W6s7y5@@fDQo)fD#i`$w(VXN z3fE)Y3w0;4>qNK(`5>$X^Aj`Fgq(Dfx|3SBt@fQZD@o zqR6QSU3T=Xb4GOniA#!`8bFTt^((cbzgZaGsmY%o=MP~|t>B#)v-CcC4={QMh~C)`VIjw9}*9l>|cR89OE?H zZ;+9wqq%d998ppTVif5)OE_+x92l7ZR%jZ6hX3r!F^s;w#I_}}!PST2Q!MFwaOzj~ zci)`)NI6jWA}9}llKZ`9uWZlQwR<`RV)wGbmy&WVj3OCG-hl?xU^PeC(eB3a+%&p@ ztWM>@kED?g0>Nz#1GXd!n(oGxDEzfhP2^~Hj$IOW3{exu-tzgYd(Z6QcUl4R-OQ}( z(g$8r>YRcF?)hWd(Q&O$fMpfq9tBr#Qj707%0QK*(ggFNF`w7ri!DQFxs<#HIjE1K z7el6ky?uPeV5w2PUnke0-1LxMKS5K<>8&LtZtLoM2u*3`%NW^xZHx`(5mqtwEBvgb zklkc8WxkP@e_eps8_2PDtJb&i^Mgonmy`-FtnZ@bdU~8zE2jDfX>wBwtIfPLtFULZ zCIxeqmu*iS$Q9;RrDr^UUR{e1bJdS-6}5GWJm#-sA!w~1-zZlakWv5X_C-?pXqVi& z1t@CrDG_%7?j6kD)wlGeIR@Y57ZAoA#e9k0b!K_ebLz!XMdsH}i^9qah33v&kQG~S zg$A99WXKStm!o`<{hStou6vjkrPsd>xPnkN?-yDI;KXtDu}q;D-DbCO2$(7MN&N@% z*qE#T*pbIYM44Etb*t_ z0qi=AXP7nuFJThS_KqBELlA>uB3P4P5XSIeW$Tn6MN%xisMB8bXY=oQX9cRfEQ2r` z+E!<6VvSIn0AzEDA-;RqPMr)2hSeINYym>;Wg{FkU5b2mqvyyGjHfd?V^^V1p0Kwe zf#nsryboLcx7&2{7Iw7prn}lR1(0&qUk)Kra0zf#Z6L#}PF@fJ25`?dd_&VK7h&ND zNVK?vHU_ApNEG`^0eF*Y)qsR6(ZGnLq(;@v>$LP1LPZ4`UUk55;@u+5`273NK$#>$p0x zHWOG(hvS36c4m2YIVdzMu%;>Bv(j0)Jf~c;wu2Gv)kE>Zrr9ro>9yi~-|Jn$AX1hu zjqDdpHub6w2~nVp57et~q8|G_zXRyxEy1iIQXLnGjQY3(V-RO%hz69z5y0O zhO3VITMGh5s#oEK6hBE3^DHQfTFYwiHA#4E0=j5VfoK$q7~5}tPk!x=M9{tKC47KJu12rOStIXG!KOM1sKsAflK0xfXTrVtM)kPEN zj62}VVP`WnNA@#M3}M>=$Hft>IiboV}>k54b^Ar7#;)_iMPyCK@=yf)fA zwDOlG56mhryYR_yZUuGw@UN1L9b6J9!DjPCOC=}E*RCh4xriY=k4TkT2EVVU!d_cO z1k^@v+UoPM#l^((?rz02({I+-iK7!7IOo`1aa{5*h6ERo5b?GxRg~Nu9-1T-N?KczwOz|e`jY3x;fpIaIlj>1x~LxtZF zOi!YKSk~fvw1zq9<}xR;0x)e!@90<$q6*PH+v?~6=+A)4tyYg@kfCkfwyMY#Lm`wL z8q-hu&#ZTQ+yuo8=+T3!l0}#-h`EwLEHgn6IruXpP~MGM|LS_^D&}`912?#XYtXt? z*cZo>%H56)3Q8|Y&RVxW4wg&ql?uxIf@3Khxeq!ekHn$3i8`$ z&um@SUsaH`Z8sau8$}9~J#s{^rJ+l#fy;C;3&$U9n;b>dlbz4ihXtdTYR5P3&7yPu z4Ly6GUuL$4F}KFGaCPs34)lET*vPFka%tJtvAAp*LP#Wm0bStBnIn;)l+x}!{@;T8-S<*)>5UV61!IF6q)CK7+xP1v~lDbCI7*tLFGDZ5~S;TnZ-ZiH%D@}wq zo{aiPi9OM0%Sy!~!2We2HgROIPs{lT9$^O3Ncedp_+)g*SOGx>?7DXgT7KHirTF-q zIYZ$TVLSmZT!=Z>b?8XPSAlFd6t?;cig~E;*K{01O6b#Pj&cnk&jTr=IEEoe({l=f z`lD7OptPXyr{oUMJ$Bol*EfOhzr?P~!qpH1nL-DKiQC-x|E|9LKCCwG<~4l0)7CHj zc6m2x(9^HMR@2pypzB+L27DrBX&dUUFl>~`Qh+{X%4Mrh>VbXoW`b^KQ zk&G|nF>Y6SQnDkM5gxaXet!T(vBaEPUuFrscQ?RY|8bdFdMR4e;^I9HC-D`sB?v*t zD#gmuMmn>PyA*`*K#zd7;gu>Oi8~aO7_b=x&>5Hw%x3WPwo#5^eg)^hIfIC2Jz_=| zvTx$1UZ2kIAIR_1Od}G(=d@r1F#@YE5F)iwYvb<@e2t0|BQZ?cor62rmrBf|^O*a{ zO*Cr9vK+nf15P?k?x|1hgtsc*b|aJ4urC?3H&a>!2q*|r8%2o{)#ezt+kTGmDpPD; zo-_|QNgbm@OcP-%+rfNP2G`Oe0zduU^J`x*ix-RGr{)ih5;P@+#561Xkn zYUIe(edLsKa9+rfAs@YDrW2<3adO~ZPJqqxnXhp?2x^52* z83sMJ14vVG_w@nT*ew_paI~9n@1y(egV;5H{J;L?ADoS@4;?$&DstlN`z=) z$vpgp%>Dr$P>xC?$kQnkWR=anjlZKDy)m8)lQK%cRcuK_fScEyc%0B?tye>PkxW;P zpdb@FBu143=YnMK}ATwn3#9oJ(Xqr$eTb za;CC(Nff#4)mo>-Yk+eFs#m{ko&ifV0NX)TGSJz4-6fY4AG`U7m)C2`8 z#S44Yc|)eF>aR3sz4-ajG)HcLbb5|aKr3vhnYrFSkR+Xc(!L6?s;oA)m9=%(R$50v z$b;g)ew}tSUp+rTNKU*! z2`I}Hv-9vF9smOc!Sixsgz9gJim_=gDB%;pX39DKI6~>5 zw&w}0e3Gj@;>JudacSl;f4yCkTI{ws)SBf2iJ(@bRN3A+$4%oN#*+T4oq8l{ASUs3Q<;KfWD1l2gePd#(&%$eln z$w`EM6=SRKcMHK({r6xN>$r{W%fwiz2yOQ>v&83zipxOoAXl8N{PuS9s`uGtEga)A z3@K=?(Ktj^4j4ZAeEG;L?cd;^g4b&WDGtL&8mPO>Sh2{gec`1x0jMwb3#~+ff%|GE z)Re*Mx>p@Wo#2WrDvCQcBZ_mY#4v}%4KiFsTF|ep;qTH9 zXW+8d_?o!*{$1B`W{WoyTZG)`#Adzx>Sl`{s=T?vwES`9x$D>MS^+8N({sl&&rBTS zg^2ub>Nj7nbH{I-Kk8*?vd$h~IkoR%z0AjZzfnvknA(%cRQbzaPCv)~q}Ux@oKfFr ziVoTCzZi1~98o3HWr4`IO-gb`(9MfVa^QE(Ov27T!Q|@tf!mC6&l@4|`6GbaMm!{1 z$*C}Y6OLnu1id>{>1b?4!^H}P>l&QfN6cR+eEpt|-}X`Px86qq#OzdqccjtibpFZG zRc}fNQd!lRI{T{3{aUS}%q`5%iMo{RBTB!CuN-35%af>m5;Yk)r+neo$cgHm^Rya8 zc2;JMZxrKC5SWs^Vd@MKW0phWi|(?5k?Dnj%y6Y0|k(^2URd|2(Cirx2m z>U`Hy%_8~xE;88rT=W7>K>`VHW6gJ^$v#mLLlGj=r@UsyrassPU^EeVB9E=;e|{$p z_rNAD)&Gr`CXT!#CaQ_MyFbRjyFXFk0>R>TL}QqKxwY|<$*DSz>c%VB#lOHc!(^oA zR4BD2e2@rw{=&1H+vhl-LT6+w!DiFI5Tet|C!qoO!s_7{yOGZkYe)CYdf8bx%nhv! zpD#jfpRXsu{OkQ{^~b4(_Yc)uC`Z*q7(x;h>Q7Ecl=7Uiff?q-@ZLv=NITjb558dV4#<*S}K(lTjZMCr=$K)zPcQUWF{uN+-zU9rxolI<9)tbgF8;HX6)A zt8>F;MXU#B>GKQo4cP_aWI)I7wJ2Zou;w8!X#y$+hH+_~SP3x67CLCpzbj(uOdP$~ zKv8l^Vlt$2Ps8se83iqBfn&D{`Sff8DznJH3@Dj61TKsqA+226EdI)D((Adt`_f-t zTr9h=Tn%+rNC_o+9C2I!|L&y(TUf?H4mVw8TG=!*T|`k!6l`^inis^&eKV<&s|SoC zQkx?fO)8RSz26V^u4~I_ zF%r&U1l+ly1#GNBpqtNzCiSw}s%z|qw#J;UmE#lp=QPAli?(`nFvgeKcK`j}uey)^ zwPsIJ_&H_##?=KS=#!gCkYHROn}BoxYA~p^h0BrDN&b~pyo>t>Mdsb{#UTIR!a@AViP5AIh3Q1X}K8U7`pe!5iI@`xY=c53G9WlJ!81(z;t?hvDIbGg3$wX{UOMl zK~F9pR6httVtGORyzG+viNwu)%tzEkJa~Me!l2CPI=2mpwx945(b#)zG;`y|K@Bg& zYR%?^lragcy_wn=#Th~b0t7q_2aMgJBqMh^6ddBCY>SgSh#O>nBLP=!zsLv!&5`#X zXW|HN>ZrH55xcWW2Rcg~KHkytkjfbc2@AY}2GJwBV!#3J``xZXuf6TZJCn9L84y75 z(Vk)vcuoZGnFlgUnCuM`Ukg%|_3ue7lj~PU=}HGhDKtdBg}-Ezi(rB|x+wwRtzQ_6 z-74wm6%-YYb**%wikVu!jZ8=PMjIRGQIo>-)z?**y`SS`-~(Yw7pH?eU+$VMK|ZsR z$*E<~$shp;g3%BVFXl;3;veif6oZ>`F|`NTA(O@5wyn@cyeCYA|DB8Ry52}_o0h0) zrQ?1ImIjd}@j}R5?6Dk)1PB%uQ+%Z5k#{R~wgNsw^>4$@@NVK3reJ(u&SQoEXzyou z3HYI4L}DBulrFgFmGWZafYxausk1#YKuGkaZlVtPGnRcLe#p$&0%#;vodD)B2djy2 zAp#G``4ZzKFbg8tC8{%N>n_dWFJy&Kw&2Tvq8Dn;EPy2KTm<~yb%$Ee+A-@PWOj#M zO-|U|M}qwfhfa!PJ_y8#wxTISL~e%vAbVeu z!pr+4V3MuO$9Qxv&v#6$4tcSNtwAgxn`>7Xk(xA8Yl$H&UPnZz1sM z^|)Ads(=MT8v!?dAR}+0=W49>!ttF3zhH9pfeVURBSfR!b8G zdKBX&oQS&#fsLrM%amgQb>B@&-12NLsJbl946*tEpd5G1H!Z)Kwnl_5!+2FXg89%J zCy*s})Q0Q`|FUhb^dk_Zo}U@?;kkQJ@I+)yw)eK1{&IahD18j?j?vMO@Q#>G9(oY6DOF7S?p9{^zCM0fUUwl|N3_5f2?i(*AJv3)b1^t zP1u}O;s|fbijss>4KY(V;{C4QFy|tB6#VaRhn~KRz-emMiQ^s2eY{5AlXwvdANGD< zRUe|0w!fn!DMT~G)2`gmDz30C@_PQNk@Hod=H|788*0=p|NWyLkGbxT?Xu@wKV(w} zOJDj)keBplSZA}>*nkJ654xTlz@K_kUwHP+9ivJ-27>)g;cY06mE%mzC=C18$(jMbs)N?O41o1 z3|{^ZJ88_4)@_Fjg={Ib>nXDuHF1p`C>yV;7L=-s4Fw+QcngFMbDrNs5#7^OX=%<6?BS)CKKd zpDFn3z1vXTo{B>?dBW^%J1j$Qd>RMkmOBR9r)Ms-b4XBkXL38(uW{$EAXCbTtl)&r z6^GmZc8?x^zVzSn-E|=Z2;%YEJt9{lPTp)E92>D| zO3=L^fCjT?UP^zY>h*00G3@najvMxt?_oPk(kZ4QkKbb#{96!>aC#qELS}lHnPu{( z(1n6&I%t6~Alf)CNth)1OAf8Svvs3&z{WT2?0oaQLxc++roc>XYP0=B*xOrXnERhy z1VyCIL^Vt^%qAiNou1OKBqx(~6Qp;7)UhOqMmAjzv-49NdHnwu))5vT5X9WUQbO~z7!h066#6Zo~zWPBxQg_u=1}D}vjr#d* z*!E+Ka$#=ZofzRv0qd#Jrd*C7ivcbY@&XT$$Rq}ewh_9MC`w4PZ?&>7`2Ag-+h$yi zX`C2U!$y(ROglO?xEMYkn?&o7!&)=~m4O7E9PXJcf1;x+WpY?g2F01Z;#AN|Kg3FF zQ85Q1=fW@F{&=>Ke@jr>*u!_Ef>O8| zj2FtUnF$sqn@qgTGr}L4tg`_CUZ3YF483TcWK8(=-K!X%2(%50DS?3A1~N1bvJh_P0^~DGhb?}E> zxvG`L^m4fjp>yP|av7w8)dGWM5l^0dqPDn4hz_X1;3Q!OYhTyIg(;dC8OcfA_Po*Q zQLuvf7(1DAz^%S_$Zj1d+%a|<2Lu|fr>~(eRj50BxJdhinjG71X?kr7ZldXWuW)VB zAZq)h`#z|+c(lNPXyyea^j(Rkg2W0wa4{Aj3;a=?)`>Kq5g^R0%j?>#G#_6EgoC?% z@L0i{MqWzpys&932!Y=Ss40-bCp!;;pg|ZhP{_rLv?r9_+G{5>{G9rL1kemTx;D%F z^?Ty;A-}?hG#Oa*3)8%*2{w%a;ISUA_UWN+W4JUl2RxNl1%TG!xtPP5(f|&mANo=qXvkT!>YsSc_{p84B!owDiH;|b&RJZYvEob zPe^R4j~54GLp%)Ru^;{AwA=VW`Rkyb3&$y@jWPA8eHQtuq-ud%Zhvnaxq1hAq!8{)4jm~$lc<Wd6|0!Eu>AUvXy1Z@8)}0OfxN zP~^k*@`XUAXnN^p`(>$!z+4NA*abbT-nQ?`KZIrUM+Nh%X|+O(Z<3|MtvatfcTa$f z7{9$qW_;LZ{!ZVg#)AT0B^yM8i2;R152%I+f4wa{i)6DR`rp987 zZ)qdKJ*Mq1#4a&WdEY;#0{p(sanlG!UPjKkYd8iMJ*ew8j8Jwr%xqt1KblItviFzq zugccpPwD+-L*IDRNeLg;|F9Vjnk=+KVEnDO-1u>^z8clsu;$eDRW<;x4IK`9q9=&> zqo^Hd8Svp3H5(t4a_vVFqU*UqcLAHg^VOa|*E0VNHNmXHy~L^X)DZ%A4A%7ab+#VP zYy@QxG;jASL;kkE6-KT8K7LP`lg;s%pMPfX%QEeL@j5%u7qd_U8TCoVDfJUQdC@mz z`uF!y|BJTs%qea<)wRhFcee1Q7uqTZbX^+=O4&^JgCa;Lfy+(cUZ~L%2dOG#8@7@98UC#{vm<5$32|!H5Fv|c|=~@>$SR&2cUttzVNEzEtK%3eb zZ}dByT^n%Im)VeG&+IBmDA0>zuJeD@y6U%lTfi$+8I1zt=iA$aPtX58-ce8yU3PIz zTOEffwEa?LYJtKQF+c63Z(mp#Rkdg+CGWT-{@z9rQ1Z3wcu48ME4PAVrfbr+{cnV( z5oO5&Y| zig?Kp93#v2#>Yoo0&a3WS~te+YHt;x+pc#;1bs>i_OhnZ5H+GE0Z{{iO7=gvZUcXG zEBbq*v%4cR@cvr!j6Gm{I}zc|58%JFgP|Dmda{|+K0t6}l z@rFLD8Pd<<2c~5b@n8E6{3nhIb~!J-fYT_;)^{B!7ZqoxbWBNgtTTKdxFbl@jHYwk z8OU9I@a!g?B_vUup@{{zF0d}7+gOb3nQuODLbw+9aVL7NthAw8sEILHl)|u)t=D@U zKr|AgaeQ1&FCC`o42O)e;E5=t;s-BJ*mow%{dm&_!_NIkc-0z^O-e@fTGEUr}*Ab$|?IZDs1 zb(zyjs3WKTb?}|QIUUjT_WF-lp^a;I$kp3Iw+~@BryNB{Th&kKv=VA?BeD*LvMq!somGidCw4P#8Z;_1~+VloIR}KHeyrf{uE%9|*Cs6?| z823*#y~4g+G?d8Y8Z3&tTOOuf0m?@oyaOS_Pt6&E0=QdD#E&9p6NeY6=M*gsA!&Bt z5?nfj-}9oYZH?z@ORovCyLEeFEirihlHBk*$)0ro%Zq)7;#~#W>1pL8R|(3>4I0v% z5XK8h{73Yb;iRT_O(4jFrJNaJddF|nR8Z_(I+-z(EzU?G15E;hTHMh(y_3;GPoA+g zB7HIM$U8j0hh!|Jn$k)%VAgA&K)tmw7*Am<#ndhu``uO`ZVfX=O-GA!BYFCXP_1u_ zW9mg{_^`!L9@$_l1LuN3z`OvZx@@9q8(0>Fw-2`UltDe02xTU?+K}Zb9+&wS6v!X9VVJOB{D;S?m%8JyyeKr zWM_z_2$pb|0t4?L8IcNTsuJVd8{(K9s*x;D{ZUppG}F*DOpvKWv;evov{s&*J zPJ;;K7J?pOWH2>nm>^q5@|v!WcEe2C36z!hWJ$1>(-e9a@JMlxZ#Y|>5_^^9uX zk@|&%Wgo~rN(k7Nth!>nxZ@jYumNh~g6}1Hsagjz!1?^zxhjh3Xwy)@#(?H!pP6=G z_)XV}Fjk=ZaYSUPOpPv*zw$^R1MFHhOG6^(bfqx+G9Af14F5gMg9{7uA(P-``VFJg zAcR>s073Z<($tQJ&hGy>wJ%(E3;|EzigQR`zf-9#@;W#@dvIwpo#0Y1~A z1j_%vq~xmkPaSiFois%C|B>|VflTlJ|DPfzR&JF`!rZzXmkKGlDCo)3xm2fesfa`+liQYDinbloh3cFmi)msl)oGYXo3VNC^?UXG`IDM@ZSU9X`FdRM zljhq-*BGtN(`Vyd_SOyO22Ks=KRP2!Ochbqb*zc3FTkX<8N?e!RJ6gd{3l086jBN6 z-8UQWFLbZ9v>Z7QFg%2k^GNaE94o_2>h$$H^HJ2}7z=hL&Y=Qb&kKdR0QS$n=ck1k z+E_*rMOve_{ry(=UAT6sS;*tx)|=~kW3(sRq&hkWN4!ywyNQjqS2m}Uv0gV?9`a!) z*83B+@|Q^AjiRo1&a8JGdn}$@T@84)d0~W=?N}MdHns4IIo;cR??hyvOsaev-|%(0 zQErI}&TM;VNkB>u?w{cU`Y)A#K6j6KeIQ)d^A#2+V)2-ds6kf}__Q z3@wf$+xUC5BTk{QTcJi2-P6TK%O;;3*>*Yw#!|k6*pCK`pJOP+prC|o7PmtF8V>#F0HBv7kSL3nOo*$Qr zCq^^(ecKfyZFWjKR*mpyL#w(AKom(rOJ2FM;tu4oY#on=cC4(7FG<)IO_@q+3;E_XXUul)P6+i0HqTuxtL;QtC9@Qx zVQj)T>?amWvIgp6QTEbdvAjiMG!^dp%jF_CXF@^o9imgk^mP>ZZR=Dt<*8Nl4luMk z`KhfG0M$4KNjZgOD%Q+4LJ|74oBG>*+?|3*oQiK%^nBfnnvsAu*QgZ(l+HweH07Bj zzqbEoFGDDd!wN-|IGUtbU>!;NJr|>5vus>12<~}#dnQ69)0Yx$1nPC;x6L|WPbtf{ z2Q2A4is4Ff)90Z_M`qqEo0^%nc-V;SJ4)_x3Lo{hHSXpNw+v*GkmMHsR3@J(fdu7! zK207?<5sQvoQLFbqm?rra;>5(_sr=bmo%O~PWNrK&WcUCWmQiiAhh?}och_{c4%D@ zqJ+sgY#L!cw8^Ys+A6yjHfNw6fqc=`VOx!h&wkq#dp@2{3^==QBt*f3 zuML3tv|T5EG{!^0MM&XLSsy>hUD>NSs-~%BlW;I0*dv(5x<>KQTdC(Ox;t}u=vbTH z8N1BX+g0)w@cbc`HXeBk#^V$?B$MO;Vws#zl}(McXX2n-hPmld&_K!^RU?{o|21{T zV-=a}1U3Quv~*_s7^3umwq_+ukuA&uO1MBJ9_=xb=B(j6xdDy(FDeqZ{c;Gt1T3pN zbJy7~G%wOut7n73=9;&^zt?pf+tuC8Nd>(tlq}yPLy44(@UR)NOoS*EVlL7wcB{#y!p3GhU5Trv^+`r)7{PqD0v%#rYaL z_yDlH+Nxn?3aO3N&S;}`7ZSJbw|>w=!B{Mj{nS#tJk4*`es*$yQ_TPI0ZRWwAwa6eYl#A zPT@tq>QH77ch9E)5WqhVE3zg#@j@PriexiJVMRpmuqo&jGp}!*dKlA_@0%52kVlx_ ztUXXTl;ZsklfM4xy%USNJUWapkCHw=EapUoiISrL)NlkM;Ea*TPHEJOBqmx4-C!j|55M2vhn;{{?a#pjL2HIzarHm|=5~4x&ZW}MRY<6}N0r(U&=YgMJe1&>TXGTU_cXUA=uTDD&YO;g3{GU2i zhla?f00NeBU4q138=zkmGJlir&9hD#J|_`d7`1oW)^rlkZde_|9jHAt&XGqU9fJ#b=Z|C< zZ)h^B>DgAc`7#NLdP{Xex<_dUUjo}Sq^u71JP%KOIKN@i`wAzNT{}Av=f{#L-`NoA zzBz~iU7_e!NF)+G37wX|ZbnzM3(5}iLzY1*)Q>jL?4%_&k^q^6h1Z@q*ZECJZffOt z6%BehrRV3cBm*+pwD)RQA%rAG7-bOfBjHiSwxdw;tE-DnU!$uX$JLb4_&nJ{5KzRQ zc2_7(`KvV42C?tY2*Ku_i|yCinBp@$P=w~S?YRMkLM<=$&EasH5drG+uMvygj98$ z4bIU}J7pi+sT@WC$>pn24nveK!t+CPc)^3rTvPyIjGBVq<49H&CqQ1wf?`_B*}oOF z&2@{XUl^=B-fAksRfl?GT+URi44L-z2{`G{@v5)S40yLo*sgbF4-z+JukTCNW;SC+ zqWbQs&fl8(eJ@Ld8BsCYzZuYwi?+wV-E3dk!X^@l^h=>#W)ly+C}Y&K?N5nmTQ;fr zm^Rq%*I(mKA0ZOM_fb+|mf=A5n?GAQky?Ls!G;TA#i!F1dA^o^e-6Q^uxgUWj;Qi#5g}=@xbK3i^72N+;zPL zlxTWI7B{P}g<+rFJ*@n-VP!d1Hua=+S7BiB`i;<|pdoNP>L#)tka6d=VcspoFGGit zm1)ucq29dd8?c69bIzgfcZGU=@DP;bDfuiB>5f$X=8w0I1^l_ZL>##FpDzxi7RKu*sOGhp%5_kV_Cd}9ClaY7X$x)CdPtSZ`l$q3zQ=TS3kEEOG+ z)s=k*T{m`M-^R{Iybd>Yy|?L&ImKXaK`tezH)Z_N>w~teKnibEqy1^-5jnm=zJYOA z%13g+qKVEko9&)8g<&cywedUFp^P&IycUARLu!LWe)b^gVaRCslD!znqov=6*18!9 z*5$ys?8`RA6A?h!9PzS^`#74onk&oYSN%#>!srT8UG43J-|{wUzIdQg%L}R%?qci; zQnCPd!vugAIxiz|Un!;W)v6CQT7970tmlM$jwGrF%t{o};If%APWL!Mkh6|mHcbws zd3lI~k;ASURXNw08O3aO->*k~rr#7fYCQ}J+?Y&HpAwf=IxsrV(}#`rLt2s4qz!= zd^u1yfOOr;(=`z_V8=x_4o0v;b!H7;b!=i60z8Sh9K# z+Bma{m&6(f0dnPYD-Nqe+ee&IHTmZ~rR;axQ?WkUkkW=Mg2_QUf#cU{J-jo-l-F-_ zS6&~Wu`+4B*zg;chz9_@S$vuTV5fMKoj~oVfHyHVcZYEM;vzNLYK@dc%#D z(sl_SZtzLU(I_PpQ?fv^yg>%DklUs05b_|6umfT*C0(sn0fwF|Yk(Ab_5Zgw2>MWEsl&-Brio z8*FN$oB*Tk0F>{-y9okytc~%Vyx*9^2H2U=kxxT~c*?k5@ccXI54(z}$>Yv^((}ng zJw3CVKy)73#Zq!=JqX-nDTK^e0?^(|f-c7xMyjzU41nmh5Ylg=kmBPN(D($gf#m;E z^l!ac>90MBB5U+_@0l3z{Gr^FDn;$^8ce^FHAY2Z_);Yl&;C55S=~>}9cLsUo!_M_ z)o!xVTQ##0h80`#w9ME0W(PDC`FRDH&g;0e`q?Cy1s5e2C(1hpnDF5OOQc36Y670! z0JKzdlV0hiHSOkR3$dMy?+`!Qcc<1M$ZRC+CyS(m%{9`(d~m2Rdk(G7xfxy#LtR~| zQe`&`a`X*e0p^R$nB4ZEtZ**;7vWhEGd;wJMg4Rbgohc`pg+c0Z*)@iTMO|YOc|T< z%_S^)qOyXOFNhbpyK~MH5pez{i9fE3AVPkFQYwCYQiJ4{uA553QJA8(yBRf~9=O); z4?R{MSqMNY;25I!G@+ zPS(hStsi=*D%7@XrYD6&TQgo{T0>jA^gO zh9>I31nc@pc$xufVDC_(M;d5E`U|B13#q)IL4?GeZ=CN0t=cK2!AO^u*>UY{uBvRa zPzY@tE)U_3T>^LYvk|w9s8tY3KAF45fBBit=?Rg zSkYk=+?j#j+IOoIuU3K2*Yg33>(|s|03n>hjTv1+z=!s9TN>iLsjZZguUmAr-fP!a z6WA@`syWr8<<`dRXe2Fpz=U)HVQR^t5hV4ZTqCsf@cAWpsy>V{{{J4VHEX(KjHy5@ z%cQPCT;AElS5e2>SV?6Ue7Z+&rI1luVJqD$wV?8Y#zP(j8CW8bl=VAi;na0GudeIi z*eK4@m`?U`U1boYvN6?yys7vwSp5(yg_}5nUbE$L8s!94+r?IFkDMt?OP$ z&Q(}$kxg4l5$7ACn%k9)7RvJAUO2Y;1(=%<=8eDVAYinPtJJzeGQw?icnJNWPCd8hZKC{ZiM0=S`z=iz z%3(^i#gVaguEaFuSSilcu7$kcu{jc_%078TyC`mt?G(NzH+1stif=<#oSmJ^Yejz= z>6m2A_UcQTTsz>_3HN;!RSYJmNY{`cpM36=nMlpoj%|V}_`RiGNW;aTUAbt~WsUgU zve~{D%Pq9u6c!F5&-R!lQovH+uP;PI!b@cBn4#UCou;NhV{QMwFb3#d8Kq{ZV&)~B z1fO#AjyirEMk4nO%f@T(SLv`Vx9>d`>+mwAXKj5*#@gFgKFt~G!bdf};lWa1XwS9$ zaw7Nvhe-!JlvDVA%e=pDH?Xd2!q}2n$Ao_=7y)D;c9mq>jrd&Zj_AHo5k<Q+q%20KmE@6NBbW=s+gI)ldRa(H(TrQWm%BL@sDJUo8-D&G-W5uS>bRJ zMa_ts-biHCV20vH?cV&H>XyY5Y@ACQA=7@dvDTGe%=l3&;mwEe<<_Q9{7dXn(f&d6 z5`l{9Q73qBxkMlE6lfMF=fB_RZ#|fJ2M_lm<*zRa&15ZQM<<+gYzzzq0ovviH?>k+ zZsBbMf9K{_UCGG4*(un~iG{*8jcli?lJ{n9-l@=?2KyQ|+kG2*yU0m}qUjBK950G7 z&JBuKlnV-$63hVEr+3cxW!4JJ^L2k0pVQ9pI*4*h?hNBJ5=o{TlnX?D^Efl=K1Tnyb31S* zgYDb4Y)H7E|; zjk6Juq7Lq;iZsKi$X8zKT&r;h8b>xJQrMaB1eOi)vuP417OZ*3LI)WCnLT6Y`+e>G z&piLecL;Yj8zVcKMqt+lW@Qz4y*PLn>-j{?(faG&A=WeS$a9`^FJId$q7Ojq

T{J5W-*q37phECp=sdI~tm`AJrQ# zNz4t?JMAE{5vQ4qcgd6G?GxaJ4eSuZf_ynh{`q^V^UgTFv-8R1{!L(EGFa?UeRIH1RfFqC`{5o zaI4jYNSRPJqZirD84U@_0`hbS9w~;U{x&j_`qZ3}v`Y>^M$zfyRk3TbZw_23e18j{ zcU0dThl^UNos3r3GULFABaSS)jD%+?Ko}5GM{o{`aXhFsEQL@H-feQ<+Q;nV?xpV#S#9r{uCspoCwOtQIM8s#lZV zW0llm6oq;2F0a!gSq(qo?k~Cs%QW1KR2Ex%EYgbo^8I?$1IH_X0#NT@8>z=eLqE+0h86j=z)HVFVGP z;j$yl2cRBI^6?qF`4fiTa-|56k0cD@Uw&9~_$S z^qXskD_{eGc|cFcArkTKI+*&Tw#IR zo3@(Di2sm~MItmavUw5Y<2MY6hc51i+63oKxf*TkI{o?;s%Ed&Tx_OX>&xVXRoEmY z-Tib)j&e3!=U7VbBuq6UEfug~;s%%I)O3lB<+;Letf5}?kwgIcO2aYDj< zlMY?GQ@-EL(WG~ub7?9&UuXHxQBOx_Fp|>s`FH;vN6jXssUllW%mQ3m89xMeuS%50 zBvImFAo@2PapXSrbr}r|^3gZcVdE0u-1}QnR35#W;pT2SSwb36{!F?=+Q(%u@LgeP zrc@%?(vaEtZcdP^MsM9l8^KR0M&T6~+@@>xGo5fytLGyGaUMtmqRm(!;{zwERH6tO zArMll@IU?6^SwW1&=z$r%C2#D*5}v!C7pYKq~!TP$@nC5Dih=hs2TU=QEioR>n2tl z--T8xX9ZaRtDvyP+SW>D401DQ8Pp8oIh;K#NKS}SyVC{zPOd(?F=QPbKhD+m=yPZO z0tlGQ6?2X=hYp6l+7cCcDy?bQ z=Fmx?V&3mvkFTr1QS`9s&~vY`6%~mK>&xWAM_wk1P#}(?)LEuE9Y?8Z!2KVzv~i1u z3kUS3`vm(RR`Tj@R|MjFgAVzwvs-TvHjt7PP}i+_F)E7H9X~G2=5^1MY1vFA?A{sy zGogQeF0^dq^Tl6yBLP5A+c>smZO<4LpTF|rT1*c~*4(J!z@`t*8=7nl5UAreLIuzL zj}LVWC09e*M#F|TyYAy$rc|Jhmq4YhxlVchbr~tCrGoNYm4k1lY@3CWoZ$8$?XqC# zW4Kc@fJ=mTx;?&jEGQvzIIahWsGPrgP=)Q$v?-|l_tx1kNH2TlyBEpNo$4#T$~1s+ zW#Kh!ae}%0g!E0p;|Z|TuRP+T)o{Z@`76bK@weRvFOhDL(N5IG*s$1B>r%LLefrw@ zZdBJJFBf<8yCLWMvU2}kcX~4cD;MzC;Oe$0heVkC(UYeJfdhV;TL^XT{hh@ z(RqY2oF}7hd5DMbU;8suwe);oq_kj%Lc-}+4fwpsCc|h|difz=b1PM0APfQ&nfMPJ z`W$DSlc$kKd2y+G5arx=57t%4m0eUS<*1jp_K5$bMC&EXQLj9q69Oz>`2VRByk1A$ zfQ@dl86Xy0(5qBOfe%xh9ZNWaeRFXxqtZ&Db=lkR#Xx+L&?Q|jTPYP0QC!y1Yumko zju++oY0pxZZ-6ZytKcq$io2dauS-10l<@;+7Fe^@SAR66m3o!23Ee2`@{qm%Gkp(Rw8?=)X@9dl5w);jld4z}Wxi|=qdWrWNle!0Yzt2|s1i5hjYMK=?swXCCYdhcfVjx|mtTprxNIa689k6=m{&Hs%tZ2&+V42o|t zapQV5WTGO~wOIyp81m|9b2ukdG%Ew)DuTkZjmG$pm66K{nVBhbE}LGNJ0WR}>Oheu z4e3@4;*?WEVz4fwrQ<;jmahAF;pz+v8=cjS?O%s~P$3S78_ek#+!lQZF;r!O-c`l-YO459iP8m_7OT8+W;0ZEJch#fU79N&@^nMu0o>=m$%>!@PeEf-1O&1(9IBg{>kW@0s(`V-BdhT0SSl0wC4#2)8Q?yflh&GWGtoe zAV1^UcKCKOoUglOg|TOHB~VDX;Wlp}%hEnPToavmD0rBoY2Zc2g&rd#&KrIG+Bq|( z0HiWFv~xi&=VG)<;+x&Mhh8U=xL(h*)>h#AS}IU3wX?|llq|uDMCh~ktw^|_;Trl3 zQq`BCpIYb>Nq|(7HvXAW3NL6^Uj4}k?W^gdjjG7SOF_jO$Rl1*p{O&3IU8YZia!L? zZGzGvgOX7<5abjG$-$o+<0X;m1h7 zzOP5u_7JbVKjEx)`_lh@HMLW#dAX_7!Fk!v;^tS!64&>AO+eqN@O$$k@*Z4VOSD(~ zzb6w9zsCPBQSFZDjUF@I;;b(%zZJvMRkg1JOYN6DuNi6HL-9;+G{?;vdmZ)7K2lec zs75v%u$tp+|2K#33or8txE={ub@w|uE^Kc$|d_SZY7Anh-Y|Ejy^v|_v3 zGL_~VX%T*JEa2;wxR6i5+Pq7}AA7XdzcD~LvNJPYyQBP6LM<)6OrYZWJk4viCML@G zuYFoSCZI7pQJ1UUUh~r$`1{W{p^Z58@!N&>ST}qeQ_z3Z?c8dlo?lJv6}g4$jFv#4 zyELuo!!h(9$GT|HksIti9B5R#q28mvmAAF{uMy)D1OPBX1_<^5mI z`Dc?M^i(2S5p;ikta09BONj;QvGKB|s|E#{eBi~SQZqlljFg@44>wjh=3GumY5j`@ zU=M&W+J9@T_227UQ=C=QwXR$-m$RT&JW*aJi`B!&WLdy9S>FE)=iyoS|g+>}#ed?jmpwB4M(`Bu<>wLFU^oMhbHChjxL zeWRCPdyWWr3PpRg6jf{Td2LVZS?B$%P9Q(C@gw7a8P4z8h7GNTW=T6Mlf@)ObLs8q z*lwv+#L^_cFIMf^nmlW#>9IN?qO7KNP4dOCw3V~6+xT(2#LYEEDgo^w=1mp$4R9`d zFkh9u=c%KhL$|50;?UTr5;P}@5B`g$+*C8m=%-(5fc?W!OoM>LbM5g@l02zoHA>ue zfns+?GMeO-S9HR4&E$0Ms;b7Xd*a9zo@Oz3Pdru;`+*x2XTG^Ihb%8GB(-d6rs zi|5d{)t0HT&~6@y_Mcc8vz)e{G7!J_0Y*0+^cRhE{xEk6p>Y?G-l(T`6IIV!>mvd%6m8X*cTqbBgb=YmI#c zAgl)6E3_KX5nviogQ;7ZIyQ|JaZFleWV#7p^0}hR=nH~%eS>&g# z4i=xFrgPHDH?hL+co46hKl~Dmxp@SCf(+f7~2L0!)#{ z;Ak+}L%|$b6WGjU!A)MH<|i!l>%o)SUfiLQsWzN4!d|*iSa>5ewC>~njpu>^Yclos z!!XQHDPBBzgl#laIze-odGtX43uQxak0aa6w^UiO7^^veJCcDM-u&m1zlIQwV+J;` zAm<#jOOE!&q%paiL#+k3ENY-RUQa_V(CgfBAYJsUu89Lvteo{!pk}VfzFe8Uto2R* z*3L>81xH~Uy)FoX7Y*G(v_Rm_9kK!%?oJKgwxIGpO<(j3e6#y$H^F&-=aeQ0K&i67Ht0|?o3FDY4USFs3Z*EA}%nXeDkbK-wWBs!F*TEru-u`n^n1#7)Sf@3Kmz=o;hs~ zUo@DHq{)Feo6c&of)$|{-*e_W*J+Q`^r3^%FSYD+T;d|b5;6~Ct|rr@nF?SU$OVvpv|X*7g#(NjnP*J~-l){F zQ*tnKCs9Qh^WVH0vZ0T37rND2W3hH@%K$E=1VmxE;W7Jzc~}CN9rW4(;`#g%kA!6{t3Xs{8k>2&-c_z$@$WrsO znjbt7&!LkG8bBz|3uFZ5^{TE(YtGof+J_tx%LMk_ika#BE=dY2Op%s$e{@6B!9-PK zt&PVjLZANPv1B#d2_j?{(dT5qa(gZ6;nWxyBYKFXL-+X))bD2y67QdP3c|y*6P46n z?VBb)Lre?{3qYLxVQ65=_R^0gd@1BiYTJ-#$<5=Pt=@H2kQpr>8kUj?MOHv66Gzb!Ngu@{ZjQZLy6qQ(oOM&#I@ov9|9lT3 zeCljoGTUo<&qGd>H$x&z456ISAXxs`=Jh*A<1y3?dmmqU6oT298zmEh)iErRz~^Hw zNkj^;S1uJ|V;Vbjd87M`;Ar`PKIWEJ+7X|-J}rRX@2a_A&y}y}g2LG{#ZVH&JU$qN za}uq01tq#ZgWv?CnW&EH<+2?~Alf?`X>O^zKx%(Fn9tzhpRM1v>v(CZv6gPEMK11q zqwoCc5ldHP&vFo;oRW0Xmhw9-lesjOFu!L-JhP8Hic>YH-wItYa2E9aZS}M_S43ga z%Me*hH6Wxn((p92RgjCrjS8Gvm3o}h9-lbhEsA}tM0=q<3_#?`g@gFE>iemqoq@B* zwXG`_a1QWRY7nA%>{eyPJ%`=;SKdGX5+TW_>KchXd5`ah-Z{Sh!k-SfEkV5+cYj`` z%R?VK{OW9_MK+DNp=2?VnH*x4zUaJDvAJWVcGnrl<8Dq@qCUpvyzE`A1fnznY=`vX zrN6t>uj2LG=^f0QIi0WXjovqV=`);2?O80If`otOdMU_}7w6b!_)++3q{YB1>Sl^z z4ofVC4QTeTv|6LDSc3aDU4mT)fmtx3lbI(dLN<+`1@@`6vvOAR=!)J@JWWv{KMnNln_)vM#@4U8Nro>EioF$uNi3{e( ztQla@ssDWCrhun5h@*!f8T7s1lw`9!-Z)U{x2o(jI}KdA{@g!D?T;#VmUL+T`n3oa zkd5-^Z)=pn7Fv0RkmPC{zphu4hP>a^DR3K{!u}WAd*bd+-f0pDW3>yKTdvq<3aofAi%-q%YCl9`R$P3eUcp$_+j8d{8;8pHb{1{6WO0)(oS8Uw&i8}&idUKa= zlViBz_Iw>f)a6Xl`65hwxwk@&rrfd|ZxK1g7@@UC3i$z&TmRVnX;=A4!w_VY@X4x>54h8Yg_%6HAVWDdzIo}w-u>7k~JOxC=iy(6df$5KumZ~ic z)bVS?`%>kYJuySeV?$jHm<0@yR1+Yy=E+Jtpi!@yBm=e^7~>@|Wa&9P1$pHT`C$T} zmnj=hW3g3h712aDJ)IQ*sVNi7k(Q1p5;<}F_*9e5=?EYh1kEx&v0Wtk=M62sgF%55 zIskC_OBrF=ija4TkqKkADWm(9tXVXK?0z(PIL)|KVLb_1wOt%Jtip1%5eedCJi2^be~) zwtL(($|+x)wIy!EXxVR@?j)F-ZX&x}Q74}j_bWa`X$}+lR&vF=``RfD!HyWOl za|xAewcczm?m1&n>+rSLxj{lk+S!}@aT`no-R@Cr+Ry7Q=oP zk(f|M?B1R<_DylI`*Y9S&N9RG=wxN<`hv!@q3U1neC<`*( zUs-|q!x?pUZEI2g^B{NeV|rDSQ;@Dqc@VLM$#Tt$b#o7cE3 zJ|sCKht4FwU}7x#jPfJDe!6_&&E?~zHrj8?RhBu492eEpsib7Coya2?vSe~gcXsdN z_)hE@<{$AZS6QI;UU{Z@0l0IY+JDgE<7NK$KOjHJ2o0!nkP?lR*;C_!x;|*X?oVFh2^499Ot* ztiOEiU^v~^Y?Ms`Z50+>R=53kmxUb}2nJJpem_fAY62Ab^WE`JeRFCObzfsjXdx^{ zk+~dmh4VOQAiJ%al=V})%0gI@N;;n~wy1(#Iig=lC@HV`?VzL9mp5-V-7ym#3PDOM z-}DQYZ+Cv`#6)&+qZepP<&sE1o1%inoqfl{$|k1z49Oe6o;kDW6g*wrKZ_3_&|w}`ImEE2Ek1mCb=7FeYW|W>-p@mEqhYy zHxuMi>cX$Cjqj}G^6`czTa`27PU)EwFh_js(3CVfIjrC@X@2-=zW=73^tvzGAGzfJ zZSlvGPZs$Hz6a-ol)$P;#AA5;I+kePJ~Q$Ba52gpb=RP)b{rG{hDpVFdtz;35nZ%8F64 z6+P-FmdJtjm}Xr~;=HnS(LJv0cejmYA~|ucM(M3>4%R>t>_IPXj7n0>yV zUGU8{?>ywaD;qJ}$|(c*LDF>2s!6}3u2lmWnN(~bB8@eL8sZl8HPz3(-$=u94VH|m zq+d^PV17tAjBvlTS~aq>wMiCd?%gbHK)E(dHSmHjtX7J$-|YYjYLfj4(J$=~CHz=f=jJ1zWqBN->f$euGaMWX0cdXvnGCe^v{Q-WEqY zO-gi91B*P_@r*_xwQgk>qn2M+E%+rox~S0nKi_p1Ws{wR#dW5LJ4_$CqfXh-NM}>0 z9XsD@MZ(Wo-C6-WZ*l&emm!JyB7`LLS7S;*s9?$rmO_iC6|mdm#Fj1 z+vC+4g1i#yNHao{H&5R3Pw*w&)Ouz3SI-YSLoWw1G&Oy%k-s%zg-AFDBy5>*$t6>c z@DtMS-28l#Hxdjhaq0AvbGu5G9O&$QPt!74B@RlJF;!#ivDLPR|X-26}xW3 z6Rk{?YgX}!_}73t!@7-@ZS@C}gdK21YeW7bq z0BbNn`cg3IlC1C@QIHYIkOI}T(6M!GZ=!1%{$lE?)QE67YI(`+SGiOGV=-9?Kl&#abUq)}j0 z*@{zd#DYk|$rptRtu0#X7MfY;+)_oMrbwM_%5W>uTrWppa|uPtM=@|03E4sg}`)Sp3mO!culM7BbZ*o&D8O zPVEt$@?vWqJ`Z5&*YehP+w69@c36}ZNg%mu`#Pj_&}37}vC$|*=>ox-L)iQW2xX!! zqu$JmhnL~GNTL;k&a7s3w@IcqufkZg6M3r{?%?g7M$D?yugdFbgkBAVVi0vZb3J{_K~u+%BNaOIFKAJR!(+Hq-2e|xlZM@ zFu!YJsdIu0^Vs3yo^AW;zvA!zk=67xYB(H1-qUhrr6|0O^$Fu*h6_J$Q%4rLMNAZR zO@ODO&GO`KWGdR#Oir!ydV8OB&$8yMXa2IS3(+80;`iSAvpu65hmcYQc`!-OE}=Rz zi3J74N=WiJFuv__TFc17*TQ;&{-q+l;?c`2DiU{f4)3a*dsu12d-7?r{ckefZBOlK^%?Pic#sxNml_Lc&?tz55QV|IL%~@yTERisd2d zLmnI;gH3FsSlJ@4P*}Fof5pGcmZ5NJ=6e4vPD7Opyxw5EI!_93gM@sJ^D#_xunM1|KIiw}i ze7%{+_XSeI0s)Fh`|e%)vcD{rW#vK!bJ#;QAB#TRA{Jx{)by>%Y_y81D}cA%y+_Lg zsF_?L_l0L@&Wj?{;+9K zmYN3XG0cIZP`FAYl?xx!6N=&X-XMJo6i+G@x6N(D9om0sLwT@d;H($?a1;V1OAt}7 zw}8VzSRjf8d{6c*&TUNQ(+4ig!F&agB0M|*u-#Y^0%qo_v&S2{dh*)E_N=&*zjFj~`}F#i(!QWGkPHp?Kt=;;G2<%pZSLP~wPFb02(mT}&)ti}14x zt}MwrJGPe1eX7#;>MMyouNUPwQ3y<3E&D!QL#^A}*$LC17TVEiK~7O2GoX&9(Y7PA zu8Y=-a=MH@)Ey&Mc6Uen->K3PK2SNilZH?;WgpB2;&oK-^rF$(QANLb=4)Nolp?VLVW3Yka&i~$UWYFJ2<*_5hE67HQ!*r!!I=z;T?d%CX^5tgd#BJ*=8Ms_O0P{%hu z)K2>EWX`_jYYqtXGCGw$+aKtv+T@yl{k1px99v_Cmc~yTBni~B*y!+VUyH~mHK93m zx7Qr_o%(*AiQ5)&fvk}RQ7Uq~pmF{J41f4L(RjPmELOPpt9FP&W01IXI+Kf41RcNY zQFk7t8muxj#Aa}6$16`f{X+>X1;0a;M-{d z|J%cAnX;p&6aKL(wb1noXFsFJ-?!&i1A$9|DYT!Tv&uK2$&jV%O}44*u%nJxn{kG) z19~9&EqY`!6p&*#UM|9D&-#vEdip-J|8{O_RT?9#SZyT16+}tJ;faha%M36}aqulb z$2knPXN^VTvEbv4UL2%*Wi0}hm<5`&GXiUd1=P%J_-k>!Bt9I~{IR!#PahUhy2T2M z7o~~`AHZqh1kYSo>*0+lMZ`fs1c}yMnnXZ6)Fx)HUE=}8!`>swAyFGa;-Sa5q+z4F zlBEQL5Y~*us294>GA6RwboyZX^yUnMU|0j{a7V?Hoz!<_U3O>YX#t%F1xrJ69)EsQ!D@6(X(&6W_~U{7 zUf#L6S~}VV$kalF7|7s(3%k4L%bPC-9jU7?*8c{hb)>A%`A5s)qRbD@8(2Ma-8abb zYU}f2_rhrrV(gn9g+Mf!#DX(=Jajmit8FYU zEJPG-Lr#H797(^4!U(N4nCNJvR={l!a%B~$6ZoW`x~#&hEatHE!zX}iZoJx@rr3zR z9Rk&-J7_XkHj*WtNHF6McPePji0$YB>FKbT9qUwj zce?v+b2(Z3*E_w*D9%ouzpkxk;)t(4zoi6U&S_i!m&?^34;`#j;t>D(GcLMh!gpP@ zfx#c!uKyl;L?tfq_Mhg9JM6Cfan5`_+Vj>GZQn}O3tLyJol^#p`@Vm&$f2**d}#gJ z|6hyGXFU;c@u|!q7OPGG`eicDWC28AGxk~6syS~}d zOux{hFcDY%$la8;uIDe9R^=?C8<%@qerR!}3R|u{dh&#wx%y>)%rUf2sF$`P1wgHT zDU;EjXv?Jd8>yA)4>%DXJgLcfY^LOegad2g>Gf!zquu)dIxc3}3t54Gt7SSen9aLs(PEmJK;KA^~Pborg; z!Ny$bYzr7vi^!0bJ`n!?d~pT+*MtWRb-jNc&=Qd`;TwW^X9h zGOGclR6Mhm5xp5=+$U~~t`LI$uS%(+?MkyF+%LE`rS9dpjY~Nn->>*Jpfu)^xU;4M zHg`7)yW%U7(Z59Lvm4F+*%_Jo>XA-3U~&*HJiPaboVSRmk%fwO#r?1$8lH65K(IfF zGvs6efxlxcFsle2jk>55jT~-+c1g@8Twb?^0vE}+LRQery>gvqFmCy}pOo%ZBSGqr ztG^N6To}}92DJV>7u#Z9nnHo;obOuE+iG^s`h3!(pc8&(j}{hQ!UuHqXg`PXiuI?G zP%k{6Z<*Y*+y8>|`JL!eiiJuE$_(ccUsY$X+kO8>B=?&mx7oXL+uXYgkE|@9f#IA_ zwBwMYfBJLAk^VUg#=n(_oXlJ6?4ItBUM!~+DH2-g5X%=C!qjSM5@oD|0h9Rjdry(&UE*j$GB&)AYW~|&$6#@JK@B z7OC{lut^pL;`VRGdCYu$$yOIWc(fy(F*`5yUOf!3Bc7uu56&n{=5HfxbUYF@)WwXO zc9SRCQ-zlP8DC%6*+~}wsr^$;fzLt)_I!c+h6glW!>QxBwFbmyUIt-@lap`G7aspA zu^v01$XZR@L=60KvU~Q9N3dkbeu17pCa1TvQF{effPhtB&0UzudHe!WGe4z(2iDq z{qt?v)n*}s+&h%I>ctQ2_-Z~+dqxpF*zWc9Nzm&IT-t-JJX@IQg|@344Wxy4C-tt@ za*g)E4XGj@c63Tap`!3Ckaa%|8hIs-oRtrR-~L}|=O1F}b=GkOTgsBbMEhHzmo&?y zft~xF_kGX%W1O8O-8Hp8HXApqU9v8EXXei4CbKi+ojcthO%pVYmLP~&X)%fwLh)C% z{t?8r5Mro_(9$%4CbWdu79_C5l#-gbZHS-eJ?~8J`#n=DBwey|zw?~u{Cdvwe4po> zn;!bX559iY_pf^O$$$U(7hd_=J@0&p+@B2T0^>2Olcz*iQoqzw=FK>M2uKeL2UVLtFZ0_B!K6&NRw|@P}J4c`6 zyJ5fcyAPax^Lt+Ff8olPd-s0g;eWdFX!3X0J$mDtKDPM1r=R*m{)_ETj6Qkop}GHf z`4fEg;Dr}w=H9vgA0K$)-lfmJdf&4TJ^B>?KU3W3-F@!^$Nuc{rL(6_{mqrp{hMDt zb+ffP_{=|i^PBg4@vj!Y@uU5}_}j02{PZvV%(ajF>@%l6#cP;veejEa{I(O1o%*%6 z963xtOuj>^_sTQRJ)gg8>Fw{m=97G-wRzh7ok!mC{p*%~?*4Co;5GZ_M-Tnp|Gf3z z4)N2qH{E)}A3gudSO4JB!Y^F)fvcr_)kCjt_L5_ufFj0BZuGr&YS(wkN?K!|KvaKe?0$-YaV;)>8D=%^LN~} zaqPs?_l!RGy`TQ6t7nGmD_fKCaB$Xs+E}_{rl^u$(zBly7J4)N6Bjmzz5cQ7$=Yar zxYe6kT82%b8E>p?FAvAP>u*_EojW|(oNSMWy^jsYTceHjo}WwKH`6~%PZK^K z8BB(~>yOMQ_K)L#%|EvxapU&n_6>CKMB>{Nm?IB{A`lUzOOspbb7pDX15H^*tGf|9-;D7uc!)Sj`wV4$9q-y z**AZs*7|rat((8HAeU#&CvR(Zyywg2ubCom{w{--GN`G7nmVYdgBq8#{kfpXr9sn- zOM@<#1zj!=%3QuPsG!ajL7yvHg=J7UyL2un%+jDR%Ywoz3ktJ5D4fZB z(3tt4F)LbyWvj4k6}Fp})j?sNw2PQ0L1XTM#ykxQ^E4>Tv!F1~gTg!y3Ul8sVqUZw z%b+nYTZL7tux=IBL7`8ALhsr|^e$-hY0&7ipwQ<*q0fUt?}I{L1ckn67txok#wuv^ zRjaTL3X3EtEL>1nxS+5|+eIw0ps|1|nT-~CP+0h&u<$`4UmOg-FN4C<9E!sm+v}4a zbL$=>6KEYo>mQB|Cxey2WYDvtI%!{~c=esi#V z=Wx%_*wqk78-SAb{Yn^yBH+e4?DkW{BZlL@bk`ZTEE=>Zs*g^Z+AR(`|I70JHKz8 z_o8|31CBq{30KVL$$aC!8E_cQju;!!w_Tswi8ru2=Lef%hZ#+yUmL8SIXHX%z{+rSu)Q{! z?KdJ}P1*(vebc?Gtm(G1Tstb?SO=oA>4seztzKxBuMU= zH*6D|+vByyRje%chik*L!}ZA)cHyQ@?aK15S^RkE#xz!z=a-G(Y>b<|S>W@;ILz*+ zmDin!VSCwg!0>E~Q%(|Uc5rr#x>%MPgHp^GlVDlgM_yD>zj?Wb zTxFE1qmQOWa=KWVS_oCl$d6(cDFw@o<0xj7Q7~^zql;BOTKl}Jjd*nB>clvsV$s|@ ztXlUC%vfxvtxr;8KOL+nOCxh#ta6dP6qPfMCvvIrJHbk0pMq7}FSr#Q&mB^a9H1n1mbmcN{ zWKyuwSb7IT%<_vaR%B{dE`#{V9)UH?xZAe!YP*h>YP(=X)Cby4&S}ic9T~B#sbQ8*clG6o`g>Ag z4vok$V#|y>ZNYSZX&c#Y?vu>vJiyfckc-Yo&N{1YfaU6&3{$%@%#!rZm z!_*J?w2aOh7&{_kNy|d{1_g{d>H`w0amyPqm31~u{iOG0sWIL#t7df8g$SyCsBq5d z`30kSx2<7%_Q49P*-ZCQP=wPnW0;knM6OWIRpeR3rSNo4eG^z3x6PZXT&E98QtA`2 z`ds%2jIERL)fk}o_M%ScI+EiwL|CaYxu`kPQQItD`#MXN)0EWWbWOpUy4du54byc7 zi`E$uR_dA>rhXC($JU)2^aY0>VRh7RRVQlCC76|FJ7cb0u66|-ihLp%8`o`H<=9n> zLBt}tO8pvb=~?A4d)dn>C+5X+rSgrcB=(4}1Iw*mJ3U{+to*E)@+K0$C|(+-HU#F> z7uR?&abc z?aSyK8KyoAEILPZRYd+7tg@1LXUtU*<>JWIy1z9o)po%m+W@P?cF8y4#oaYEjBKql zmIjl&yTQaaffY`;PlHJgW>{)v@u~S@1HQ65l`e*B@5W2y3Pv5t5m^-@9PNRLk42`` zT82wVg@l)Yk^JepfJO7DQ_VGKi^K2QWP^$SGprOla4sXBOIt8DvpZifMiXO_Z#f5b zl(W!a!eb4q#qMFYuoW2#7)flmU&F+QSzEPJFbWc~M}`RpHo4j^v8HV!r3zwqFM<)i zV@&)3WdU5a*cFK`2UFV?h2-qCEy!#|4pWnO&UK(=-jN*9F~;Of(>AO1%orB!2Yy#L z7Z)xR0i@q7%Q4h$zlMp=rY#g*&Si$xtBr&0(XUS>w{nQ(!c`2bq%P24c2zjNmnJ7Q zOXTuW^7sae`^}>@$hl9|`NH6|M&=9??qe85sP6cnLlCDJ({)BJS389|)`{!~2{EAP z%QL_j(=*5-Yc0bTzPY2EUQ;kCg`%%WIfRO3MB50%Z^xKjTXy;=;54yZt$Sn?SnZS& ziq=^j7_3$L029vD$O(S|E40?qU{Y%VD-*SQlF&r>3nY=f)b)cWYMen%>u|KiUFn{K zX;Xl3hhDm+WkL!h?%5Fa?S|=D0MmThd8Qlfo0);GADHqrqPcQ(^ihRUI{=e9rpd+j zM{=M(%vYq?YHMH`e@#y6FXW&spUwkJ{Tgx+k1eQ>sUHWU0^PMM!<4TXru$YTb;LIe zQ!WL@M5GTqiJrlN@TO-UjEJOdOAeA^kk&}9=807#NB9Dz^{2>1J`sAQbv=g#Y2By6 zq^8hdY6m5?CG{nSN#00X(h7+cC3%X*WU%IS&~ywiOmhP;tpz!gisd+hx*xo-llrOS z^m_HDU|jgfI)f>PA6TI_R9O-s=dw!iv0{IQDYpQFa7e#YEtKa}V0zBMVA|4_)21<*#IK0-Sr@`F zk&EICH#V>{?E~hdbIZ8|SAE`yn6&j=-HCsxC;@0bXqa+ps(%qbHB9Z?_V9vL-(}dVR;~RTR!d#J!6fe? zSVCXAYtUeFrVZ1&GCajtYiG=c<&i!x@!2Lvx~6S;+|xb#$dx2CDpyg<6wKrQbSy-3 zsd-Q)gz&~~d0e6T$b57xut}*cp^vOY_2K>Gyb&h|$=y9~FsZE@R!bfaM%i2U2u%Et z$>}`~7;B|-BmIywXmas>*j1{o0k_j~K4^t z0fP*P4S{im-rY+uGFHLt?Uw8Z#aDe7M1F(M7P|t|{1Q2G*hr2XR%`<~tqWKMj~j0p zAEqmD!Q}KkO@m3y12Yz<`dDUNd#oT@(}J+CYXudJ=4SL%*AGn3xq}gkkL5jJ$>R?h zAK8}L5adN`g1p5fB~jB00*#T`c7sNv=lHXn{YH(|a6~)BA2PuA*fuhUr+qvS=)+CoPeFDGv$P zqcTUyNNmzD_4gdNJ=#)_(7AD8p=(N-;w2BDjzKL~)|A`nMDhUScoQRg1jcQa%+0Ra z@GcO)$iA@?NoB_F%hp*ZP*S~TW_*Ry_`@&mUaY@=*Dx`CR zy+}S|o{nr%+ooCvK@M81dsL-3m~LAxHS|punQ2s;YcSz!hC#noA5>JIwa!1EPG?)7YYyc9h`nYtE`hm$6 z(U^JGqA{Mwz=T2>3l{>C3#BmhL~R!g;v{X^wrD@VqW!4&DyH@ertyuJ0nJzYrt(3e zDsTPdyn!h%HaUGK(_oU$yHJZHaV^Ng7E-f z?7%R&b1*rr0f4bCQNQ@6Xw2|&@f)u zp>+_$Cfl@vNWWlQMQB@l zMesT{84pHl!!ci!=PT-?i$nVs)=d9{M@}saswLi8uMYg`kZT#9>rkf})T@La=LcE7 fwD^-HPV=2xzArl%PnxfI!BJ=S@BigvH_iMnnN~6s 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 f9bca91dfc9c27885ab4730b5004866f11d464c8..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 497335 zcmc$`1#qOfmNjTDGcz+Y+ht~EW@e_cUFI?~Gcz+YGcz+YGyK&()9=kp$Hctd*!ed? z5&5N3%9O6IQst9jsl&C zxs{W#13sOImA;d)kg=hykueVsq@$CAvA#8=YkEM8q^%zxy71E-)ulq5A5*)!g0(c3 zb!l|7JyS0^GnZ3;{p;EHUsbIZ;3;&#N9$vJ(qN@kW2q`eq9&(0@M)aLjiT}yqGZ|R z3+P;@pq>2U;EYXe3?n9KJW*KKdE4||!S%pAMnu>x+(&fGL}{l<#mv&Wm8cg$ zExH@5WlL|L$csUsOZ41O59tfzaKf>M6+oA=HtujHLTFH~+d3SLCbWT5CwRnc!wck> z#(ZAoW3gVQPv@JP%iTmL$}~)7`*zLQ7yq@rA>^^GkX|obBZZS=kWwW;6CwRv8q;pQ zj{x^_v>tiQtY3W{>LFy$jLxP$XdLJ|rs%s=ySz^mn5%;44OoKbB+q6;9Z;;AYn7$M z;zsQ(sy6?$lGXJBr8|_+Yiwim@0R}k^vCG@F(!Y!GO;j1{(BbFKL!qxPRY&A7@tl~ z-_#hAPTJVWTwlP}6w?F}jd+3dWAM&JKpgj`&<$ zziT?!8Y&t);cL?Ub`E?xC1Y2o-!(*Rf0yUt`dyd}pY7kPvEsA-`SjZtekVG?-$j0Z zt0Vp&Zlv%>*1xxo{bkaH0OWxE9HnD$X|T$f>$r0*bmv0PDV3j({OTNuYgbm zp;XUbXsVWQB>wG!V)-hgCEpEuBN^U6k&rat3+Wm&>;g*OchuExdIB@tX+8)^VIxf- z=f8bKNSwlRy8G9*x{tTjXJ&@F(R%jGaU4DYyD8v|{LRpRw(^gLGcYjy)fe`E^yPow z(*K=(|FGwOwD0d>{hNXR@QDA>zzrH}Hv5AJo=d9NB;Ac0PpHyGErEO)e0qDsR$+q>Mp7$VT4E~D7mT(kPA zTdQo;>gV4qRZM7Yw0akYAPuGBC`xM&GI1^sv`G6|n|MIUIv z7+esYV&e*U(I4Kr^lHx|u)tx-C(p+uv>W!+&X|-|Ze)){F^PI3oS1L+PqFu|X!9bU z3TnyobxrQ@q3P)kPxB4xOl^DRTIncgZi+t(K+~nE25}?jaRcOyP<%-b0DP?#8S0r?V<91lSJV3WnPKwI}#xG3^;1@ZV55A_+Z5t`{cFU zk||eQh$VX(&#X)@-n9L}!7S?}3aV8KSTG;HbO(-)n55cvSdoL-Yl=&snlIGhssKFn z@oXg?U6H#PWtf;u@I0BMA)L+L>UIn72A7RZx}E12$y*MLukpei+YPo6^Rt3uI86X0dt%(93+D zDCZ|VwsH2$fHb~@l%|~z%3UP9iRTiDpU5Mwv2aLU3`5ijM+Q!3%Sobq*&3BqjVS}e5QmE zhp}{O&?zLpQ#j|YXa%5#VCcR%9y&OS{4 zLdIb0rilYsC#3^f<^hJ}TLs({5#SK9q>X-oOe=52Rg=|U7A#pMj2;BJBbV`T4LLTe zZ(1upTf=l64+vWL*}@ZnFX!b){W-fhktf*!YA%H&7A)1YTSPY;EWV2)s{yPNB_`I( z>dM`abcDPcl0`7+#-6y4iWZ|o;qtBM-hoq(e#+ivEs3QFLpz)&Yc$Jp?2+T}Egj>a zhrCKdyqkTLD>G%eAWl`8H>;=#kVu9x7v7UlYHO?Ut_rt^Mka$+b|Sf7ii}a0s?X+3 zba*mTYn#}RQP+`&rH?r&Go*YyWTNuM>LV_%GC=o5qNlER2DQn}&?3-X{49XKJ)B8k z(6yw@Jh^S{nEgJZ6u6G~wIi(iRZi?<^FozECzq-Q_O-Qh-joLQ5DFx0b)hBQgkIhI zKKGcFlUcMFKu@>Pk3WY9(qvsi{mud7wU*QRm84}iiO+jg>CSC6uIPm_WLXvoys_sAjFm(j7Rg%@$I0)5)L00C$obY;Bz7SWCJ!k zJh5e3MN;y>x1~&fk1rtH!YKrWhGEz^f^8hB~MQ-R^>fF zb3tC$5)#p>12Lg+$kOQ03`fT-0j}F3A4fg{hVzRvPKzIeO$+5id114^vdn3; z0;YpF=sWAUlJjV-eUGfBnt4NjdJ?U|1%YUyOCa~S#ZMk49->4AXJs)aUf6y3VVkg+ zMx04dOqHI4#H|o0YMg|rD2$gHMu;_}&Dt1Gv-Og#_Q~4JRcl+L_qPL8stZ zSic_;J{9XA`Wi8HtRJY9IktkxTm?Baf1rc;{Oy2oUU^H~qyW1J@$}u^8|PHU&a*s9 z&T@HFs7a;G1bYE5en0fRv3FLB+Eh|UA1H%pm(WZndDmnq@tbUgB4L6?Xi+iG>g~W> znIx@R3CsAoc+9I=bs&B?Auk%^vCU+jWIy)G3f&2y^Po9(O%I{e08EXUWJe!kwwj-d zn86%rV6Ysbh-~ZIVK(#SzFqR(@%putLUCevm7ce`cFMeVC!}=Be(LBk9$@9j6e}7x!v$Lfj=pI|L zF56=+dc6SM4f>}hSusyt*3d2$47cwhf*H~oX}nmpg2R@7 zyvJhfVB+AAazC-8xFL29md{mMY2>JkGbFUGpE-ZmeBq{Foi7eST!dZo+Oc}W@D6nA z`K<8FB+{4hn;f3l!%GMHf;mJQgHBeWjgS=(`A`z<`3dF=gR$rwaCL@9F~l2$-q zTl~8{op$BV6G>_Qkf&46VA(fmXJH1&FRA^C2^-tvF!Y4x8NkL8(WFbDx2RA4Rz!t? z^^199_br-*l9mT}#*S1iCuJvqL*-K#Ld6^d~d@i9;HdXJ&VWh$!>9>9JI?*vmbg!FDFZ7?*fA?HG13#d?%A zxI*elYgg!x0N!WN? zYB=*z4}*ZkqxW#zEHEET$r0Kye2?uNmwW zr)!J(rH=ss`djST5GmgBh6-u5hMKTZ*%DsB_Cg_8ImlSOibo4!@8-Z@AO#oUZ8nuO zn<~pDucy|ahOP{KBw--G7sBBRbcoR6015Ra|V_#2sfG&<64cY<+T~!QbXnIv5qN@vrHeHIE zq7j_ld?#BmafIP<&U!O+D{$1qaU-N(i(rzJS-xtJcO(tMq5OV!t53neH<3ggC`S8m z|ERn(!_+2MIx~Gmx1AEp_nEb~mR@3^@fdAU8@4}T!MC%?C?XeE%m}u|zuLV>QfKLC zI!>e6T}((H7rh+W&^b;+LyG935(0X%DJD>z>Um=jLhS^kEDop9bdRfB$&yj^%wKw& zqcWjrOd;u}q&YNXdE9(XZe#a5+umFq&`F;4!aY4%;nBLwg`ZQ`H&ouR5H7ls)MQoQ zqQD4NQ?US}Y_K&o_|iN;{L9-6(2GI#yI`u1v)$z=F=DA32eh=6|JV5s+1Qa(nc2MRhmo_{EM}_R)ep z_F?#S|JigpKXuA9UG{~UwcznQ{L+=+#Yg*hp7fkbf}x|H9D!AiDn}fmDv*hx{c6FZjeEoamgBVJ~#9at$!*^X(bG z@fpg7t4r4s4N+i|kXV8IU^;=oKsbx5S13RQY7eeVq`CV(QdGYuoKEGmu7 zn&t$_fnuD}-G`C)r&L=#8aL0T<{_TbBu~fH4|bg4zZ?E9HqOBC4=IG<4^86V`trYT z_y3NeGyI!G@=pnb@eje{KU&WM3A3`!J4nv z`ZkS*mOj|#kqgK8{G272? z8u{>3ffU(7IKEzHcaGIAl{VDldVXFr@pkcAA9iM zUlum~YLf)u_K#uR0Svnq@*g_AX79z?cxpYVo(n3Q+;}+N6rk}d* zy9xEpI6L2Ka$nbld5uQW0NIpzW))u292gb`C!af={wSizfo$!H_ri#|3?deE-bjQ4 z%ELih07?sl&t%a;tw$-lG#f{G(lv|b5eb*6>=(MxhVZ0g^@|-j$AvIc#R9qxi+@z-|xbf%8#y$kUgAeo_ zQOk>?Rxyb}+MJeH1~i$3|3Er6ejEs+2-`@ppb^*_A?du>vkm)Xa6hX>7?EX<_1J=| zI16rM480cT!i9X=%{M#0b7Bo^vWy0}QDkR>1etMCA@QFAMV=AYF5=eH!>m8!Ah*(# zu+_R=sUuvE0jpw2*KwDEU(APY(4R0dXsv6ju?%iNC0<2iUo#a2#0V-pp&&Nr$2GUXoeG?QHI+bh#81_PQI zNruy`)K6kyC95AtI(rfgfb0` zD2}j&cD0J$AhJkSWt9W;DRggV%;JWs1S2dOc3y;dXTzsC+NUDjBx|mz{T1xmllcbg zM}MZLie%Mq4WT=IR(BWoC)QZc(hZEw3qnwyU<2-QB2t{0anCt*rglU%p7r=HPQ>f% z`N_kqadU4Rsv|aX2ep7(TT{9cW_@=+V|{@(@hc+yMN=cU0vu~KqIJdhW+{S@ zjPaPFvY)7R`hzTvL?@d0N#(BmWcN^SK9%m+mkwA?u)Zs%2S%Gym z#n*Mr^bK8<)fL^7mb)~b_tcSvTH)};5PS;FB#wxsw69<#4|@9aeU8)5t^t;}O7$iv zY~u2z=RR4KsZfyGcaMUb-TiQsA&2UPk>E63KGW3Pc9N^*GF2t(r=p<3RgPp_=ahzG zbZ%g2aT;pnLvJmz8MhpC!FFf9uTHwe4f1336C0nOx<-=pKluY}d$dj+pcX&qmb0{4AwEJRS0}4Gc{G^^Dc_r0nl(gix3Waj zT%Uj{UR@gvEt?f9DU!`M+^VhbX;($k=-p4Gib(Ep-x0om5L!eB|2`T1ichgHu>Lg{ z82>`Ze?*Y}w*yrFaW4FK0PRnQ|4%dE?+}>rUxL6F8j?|a%?O=us>jVR;SC;&?W8N* zplVjLe6*hOYYt67T_UwV8Sj=H#be5I$yXen&c}_&;Gj_}0**@!xI14%k*VBz-g)2K zR%tfryaK*H8>7Q(1Ta<3ck@csYP7{@MWeiWTyENz={C{0#BzDdv~Pmm2BN$fK+y(1 zOlph@;!B%#XdP`XtvjH@-Y?<~(oCvOA-(8_*W*szg-{-l<^DyThS9#SpMYq;fQkI$V((=h_pv#a0~eH2<)xrC zRI-O_mRv4RPM?>PmYtie9teiE!a+Zv4@LVonz!D9TWt=_p+HFnk%Yl)2=VVsXUbzBF>J z(D<902quPw5raC&C5!|eEqwFa`bim1LR`o~zm^yXt>m|{2Hm>-xmZK&ik)$PN^-Y@ zbjn11&s%`hJ%if#1XT3N2?ERxAqXSn)>}bO3r=K0?RdhBemhCXCrM8(r>jt1((l_g z(Z%>M8RY<|?{NDAJmDm+ax)@dd)1GPT9pzb5rQqd0+oH#4(mF@6;EfoQEU;11!ev1 zcGP$~<3cX-@w#ui!2-2XYTxt+$XC#Ff=whr6a2QRz&&VG(khf-JD=nvCrp5ix8*-( zQ7izQG!rBQ2&YjQH(7?(TZDSPea&a*~ypFsf} zH1VRYy$6CG@3lbe#J43+kX8WErW>YP0JUkcbj7ekHtb{d0Zggyf(QG}DHgRLL6~$7 zHYzr%8mAi&9^7s&f+ z?vou*5_PDrYMY}F%$EjE*E^Vn4*=WF>w?xO+u>`hc~%SCy=b{qxuFm)5Y!u1NKi>oZoxsQb;!FHmPk!a1& z$5eSWRuCNXFbEuw=Y1~L>wUz|*6|@ejVO4JBUuz3dt*;XD z{mvWdZN_)JozP~>EPC(|TpS6{ay~_hhAev_iNtR-Y(sbxg;y2l0T3O(!rQ^Sq|SSQ zdNUr%HyNKpe4W3)Q6nVeU{_ZpD8M5`Rzi4NGS4>W!%XN}f3au( z#Q4o#p%c=67c30n1sn4_d2cp4CeTci>;&#Bc@Lv8j;Q;kxcxcn!>2ix-t_lxjke3Y zU4Z;JW)_LFD1ns-!`H`dVumtqpcB>F z4bhs8rr>CMuk-{*bM9>xCcUybdDm~_5il-F>_n%(fJOB}F$&bJ;f`3G%?Isx3~ru< zW{Wp42aB$B9h*HLT`q zJ8a{aeX-E&Dalkeo3c_Jz?#f9aTS7g#KF#Om44AZJg(m}{Uqb++z0CIYp$Jbig?xv zAmY_8obsBu7>sdWMxn*8w>^RFS5jTAr;K0)fEt@d>{q;ZjFG7-KOb70cqkJ-2k^?qapQczoZm+iN zg@k6;@WCVPdVfE!>{AYldSu@CAzfwXVOD`jCWx@mG}r}}P!$Rw&z$`P9z zoS(lZL{LaPu-0sy_)*I9LVyIVgOm91Sfh^j&hGY$Y1tw?N^!PZmkh?w!y}Fv-hDh4 zjIfF+zo#RDX?ThKSL*-kM9MULX-4IBUeF8;oL9YlXe+Q(ADlED7251j!M6ylnai?sj(*22Z$PpZU|MA{<|5wXx$`jliJ2K7I7zS~SAh4( zHwVejkC;L+a0!;Nqo!?n&*8y?2zv<%#5TOwFH#ks7N;*RL<^Yz)dUp%idmQVWQ z6nO+Q+j~r(O|MhJu!gQer?ddB4$70gn*||j;eI3!$gfGf%1Fw5Bl8y8jUj}G-$(DX zM3e=W(wnDgu-$Ev1>HxP?#GpvU|EG>J;l%#Wx;pq;m9F<$wF*1VnN65JiZs4|!#MZ`UnO{n^ z+jz<7@)aphZl$=mm-a1EJnt#{myMXeEwGP^RHN51ET31@eg?84>n-tcPl?2wY|(@R z9R#zZ%cBR;86N?gkFNoZ=)mRU0GTV`2TWY1S)mH~@xDGr@bqEOiU?xIX;WY;LyB$} z4s^G~D8s3i==1!Xlftiye5LEbs~z||oc>GWWMpM#_y?Z;zbSJ5M?C%iOlW5OuQDjp z-(^sye@zBemvr1?MeICN-DWSTt?!TPCkX0q__<~kYrmj#C=eDs0E34aTRU_Y_4sXn z>4F3%8?duKB#HN=`Uey35;scMCq;5Dv*tGSO|VUKY3FE$$@a zmx(@a7jJKT-W;#Y?vwe_CfSl)m6-A6_mnxd<02Jr2eAXGwnbv;Bh0GyR=3RLqHxd7c74?%d~rVbEU0f`yt2ajDC8pKyWd)E0=heDd_7;em!oM zp65Y}Vq6-r>o8sQvY78`JBy{m1_s6lm#P(DOUPw zK237-K(HNAnh9FtFr8?cL;I&Er)t#pu#x zCykN(6_6!5;6>3=-(4di8RR&fb)Xycve5(GYWPkWSRQtf_BV~oV4o>>Df$$TsWWj? zbHAa>=5-0KL^ciO5u3F5zq{B35kuNkt$}OB=gg%zQF4&}l+TnY1Rig`03op9;LnyJ z*dK-XXl;E~+W96nHdh^LpD0uF8p~GrdOe|XTIzOM2qbtm)7|CaJzfT3LzhjWr}%Rf z2)G917x4h3ICnG{y&0V#MC&d`vZ=&WB}|FydjW%|kT$=e6|fh-TG{M9KaPt}yg8m4 ziJ;yZn1hj72n%iEgqH$(rDqJKH;c9`Py3nH^>m3pw#|oHMV>fUpNC-y+YsAfhmTF| z(R}BKfv8BA(MdT`5I}n6ggyCMAz4wQBk9kxY1_ABj4jc^djX)IF&f|f^s{`G*j4gS zr(_PtkbybVj@U<*&#}hWsq!&i~^%Uszm#sD@xWn-G_Lp zC~@*058QqAkg2<@k;TVP<5|U;mBpDiN3e)WJ|TZ9Tx@y^KZSHh&98g`4IyPT|1I+I7xoudYh3`+R$#GTTJX z^|c$((HX5ipsu(9xT$*sH*HIou^L4pRAtZB3FI$l^Pk$HLq++lym{#1h96Aw;U=Vyb zPnTTE938#K0@3jI3k6C2y$e})MLz-lNN*Gv+D&y2&{_SQir%dm)g(f#avfQK5juvY z+lUWP3#eL2I*Iy4uIb~zYET#gmPg?`2gY=61>I7$Vl_9RGLie7ygQpX2((FZ-}i)Wk=amj?8jp%i6w%a*mB^czKiZOC5I_rsVK;FcV z<&%}WSbr0Z@uCkFq8?=PGQbD1fHV4REA~07_RGpl0y)mK`uI#Cw z7tLWwwis2K7&a##|ETUWU?d9=F`pNwlXIoSzApAsHTQ#0D=ajXPZY4S$tk)08_s9A z@x}-7ztU zS`2zV#6xW^uo3ISq+dI`S<+02GPw-?8n^0GwgBw5^2~)t*b^LVdOjE`k8Y!gOFu4L z509mt8YDi^78Ay+BGf>VF5~egPA{941Ka-ra#eIy^Ji! zmKgGE7|nj}7TnD7IFK{ik4*XQEx>Gd|9aaK4=g>^2~WYSk!l#ESxjs~vY z=*C6+i4SDu+-?|d>{y{&WVCfqKA8iqzZeE3kI2{ceZJb3RmE-SgqZoCFRDg^DN>BG-|O zbMNky4S^UaG;?w+m%K;EHX|`Ha~kcR(_1A6?2sUB+j=7z?w?23tW;M;Hhyg&RbDgj z1K9V#=%&qg;R))@`tJ4(luNJ<9J{9BIl+T{@7=Hy5JR8CD-Ui=7*D6wV>S4zf4FhI zidM8Sjp>U~C_Yzm{naBph9_ThgXBKH3ATR`gwy$5A$McSVdPU7zhOA3(_4wE~Z@FOJ*%EzQl8|Y|-=9OT6{4qc`%Q4& zAK&!T6*N-Q>7t;?6-@clvIDHH>zzroule$DF6EAGYt;1aZ!q*vnD$4AgOQnm{U0#& z|F00oe}tj`oy7Ym*8GnWFVjCo=)aD)F#UN{;eR^cvY|ENfX#-O!PJ!->EPcQj-wpJ z;fnl-ZPG9Sq3cB9f;NzO5^yTK=KXSZ$OvI%K%t}>r=Xc{D3Aj`ECQ_F((WN<6td86 za0&PEU01iG;}zla(}4uTG=aHXV^5ByTti!&2fG!btgNkUVqq=xEuok9&iSF}tjyM% z5e04G;bI|tL80{2-D{vMB}=uZHNmRv>>=zR$hPv!^Wnq!!EhaC@vxbrtbE4?Ya@6^ z?Ka4zss4LeK!S~sJKYi;^>iqF<{ywVG6=Z%f>*N(X1uqk`MvW=&dx5`qJ zUX`UVw04&|wF##^-g4)@4Up&fmZ`7xi?<7V-5u)6X75jpnnAj`-SSJ5u8j@6#5L*U zVP+X4jpmTRnf?hslWMSn5-ggJ!1{UFjUnYO4@b1ZnCS*(FVW=lqKl)Ao$0H@G&bcI z08}!}^k!&61|mB@gi+gJ``(?(A`Cx!CHg&bL>l|LHJ7k7;?`(sC1UE+qx05*T1Uw2 zqoZSTmZVJ;CWzbdX4MzZrnAKkq|dmoK`#N*2#k|*4-k1CAhI{R!zB3p$IlD~N5g*pA)9N$Uw})H1W7a#bQ7o$$BXhP3G$N|4%1FH2 zvyoz_oSQwjrc^xDXQP=YapBasT@z#f_sXFu@>7Bs^0bKm6&* z-$AWsWvK$c`&&AdoLu|aWm8*HK?btwj10SoF*!lljj@Y@)^{>u&-%8Mskur}DgdojuhXJ&rwiPj*kj)*WG;M5t z03ZXFJEh&41rJ?R$^oE7-#M+ZqdeE_^m0=Z`|m7Iy`S>nIXN3LA(C^3!K+0|0u=A%ZJiKlw73&%c{62;VHT)`5;p{JWjtMt67M3M zYYTp4{}S3pE&?ubQ2`iNbe?}+%Nb;12ZHlcb~VWPy#j4T!M6pyh>HD#9x_o8Ws7M%t3Djzw z9qq>=lsE&$9zZ5kZx)bpO>7J$i;0M@eT%mkO~oQKf`YIxaZ7(-U3$&RZ@Hfd9W6`# zEBG|UU=LiwEi=XTZEfwqW5pIW4}_LjYANDL2D>SkB@}J%knjpw!9BMC>xNk<3}d!L zA9ThK7+?IR7D(3>X)>725iztLQM)=Z5%?qP|obSyg=alQ5g}Gu^D&Z_hP#$gVs%s%4;gI7G z@Q`)Mm?84YTMl?G{Eu601GV^){A&w20u5ekHhUR)WAJ6BQbwavzUS-#5eBGS(|qZo zU(W2XNSLcCh{(-?hTn@tjZlKDK3Yq)c8RJ-e$A4QN$Z~sjp{WT3_S02bEUO3gX}X^ zhuh1)IEI6L1q^zkMviTXwEE$ta^_#ga`;IR$_-sCiDHSLCP^#q)1YRK`NDXwr+AAX@6u)5MXY%)!$(RX`?L%|U;-_>rkF}R7;G&p{Y3oVWMy8D}lqH`9;U;CdJyIm9 zZpguu3^kPG(Z;p1cB?k7$UzC849ha6xjjJlTWd#s;YL9u;?5hkhG!S#er5qlaQl$f zvR0D}A0b~r#4Dc|1=-r^YoR)dkRgTyT=(M)fV=wa(-$|+B(P~4KXcvx1aXHF-HabV zOvP&&C1RZ$Sk_Syuq^l?dZ6%GH{>i)WD(rA9YL(`Oz7eZ@VGBsy#ricSc&pdEq|w?(@BZC$J@y3=#WMNg{VV zAq%)H*fA8HmZa9`850{JghX-rM#=FTFDMBD64s0t7lpfb0D6|e`w2e`qZfN> z!-U-wqcOWnUSH=)FTSb}fd3bpaQ#YV3Zj?xw^8Zr5MgWl3c~0`s7dyu^oUuGH3Ty{ zYC2ev@jyvK$ z(ZF;Aj<~J5Hk;+IE7{@nXDVzT25$fu374>{_LL;eHP=T3`x-CFx@r<;GgK{Ji^)7g zLc+*b#7GN-=A%*K-$hXNpjZkH>I*ZuyhsL+xmM&Po;fJTZYBuw-W&EMspU%-=X)u+ zrS-^79W7(JtA%uLD%8qCKVN>1%hPBkCw_x?GE zO!cGINNVGA4-?n^siyVfFzDhkCpE*Fp_D6oXPLp-jt9=>MNJ#TtXE;Wl{WMUc2&G^ zpL6>6Z%TzU$g8u9fQtA0UZF<)OjA@AkwhyJcQEHr^JB@BxdX{o=Fw(WQzfa$LKIq8 zb0y&V$@&#U5+-Tsq$@Dzr08=~5n5f3Vav)~7o^(_#HixKOzZ>IT^|jB>#FmaslF{O zZoU27Ko5Kwpv9{XtV&7)N6ib{n4W!*duzsB_!{lJmIKCq2yo0z6nj9NwkB%>8iFsE z+D>xi6_=!Lykfg*(>^teVtY4>z@N4M_Uycyh|oR$(k;peC(@pA7s-ap}pzXh?vP1=rY(g?=#ghfPsCrENlj!UFnYjGUk%-W3BMe zfjF;c<<{n+WYA7$H6;?h+LP({5`$$%mKnRD-e8`mr$D5c_}~j5^}^6pF>dwkmoosW z818A=^m1#Uv|#b-i;Jf>mlVr%5b7JXvjikfNRmoVMQgEW?1F{|^6gmE)0o@&*0x%T z3mvAbu_R8f4TEDV4>np!5?5zj_TAgB4}@APCvNex7&%I{{p!ujtE*RS-kjs=RUuQf z6dIQ{;wzFX*M}%TXa|^Ya^2$gxn^`!F-s#T9K`~0rK^Kjy%#31qFLI6JSRA~?E(-q zy>I06fku{m^lc@M zy6at_j^L^c7GE9k*>=8f;P<;%Bdo%=FrzeawmYv3FFd^uwvP9vexwj_L3%%u?M~s3 zUqT{G>WBUPx^Nnw6lu!Na}0N$r9qXjpF}2D#o4(zj}fRszIB{=dpy0Sm1r*Aw3!Na z^xM1-oe3MEr80mqO!uMA7?uz%32olK4ova3r=qHI1#^?>Bw!T^;=YleNOvNbAE;?V zm)hq)6yklyHxO&~OZIvb@@$bt$}G;2?rQtgRG5t}1(~Nd3$+D!vZP4(Hff*5UO&oN zycdSahaj4RmTJ4(7AbsXF{siWsZiAC28rSC4iYdASCmsjMLg^HsA54V9fUY0l#0vJ zkmQ2uFgkf)nQC1PlTww<1jrpS8IEo=X&uO1D@4rEx=J--acr2fopW>lM8Z7Z@l#LQ z#b5yAipftQ7)e=e|MiiLH0c(*g-iaD>idHTvphGj^u0D2=*Od*gHkLJy30d3pDLH6 z5bm+SIOvR9{k>}vbk=V)ziw(p1Y5%a)O;F;xU$b*>fgpXD zmc{y`(GwXwG$=!}tO*{&T2+k2P-`)!W`aq|@aRTp?g1-lL}i84k=JF`0aeAblEr;; zdY^~145~Y2hUgd$LKG<6)dI8xJ7blD+ooORIvLuS2E*yF9En|#$cxs2_UxySmdz+c zvAq|~(oV$4n+Yu2#rPlfLituEW`ZWv`PvNCm@oQkLOIw}q^_=P&sPwk#Q7pCT~c}N z0wxPi;VFHzyH80CPfjeR0@Y1eOHs*iO zb*6uw6aW8w7nZp7?+XV6{(fBmKR(mHT@pa2@c%xJ^e1!wPgMS&!oy!wp7~$8QlLUf z+HnmZx&4l6lYu*!hYz2<-?T3uX!>FklYwR)@TsCdNCmH?nWWW;<`dnL$q<*yo;iCWoF?FlL zKRaE0i8{1UC0fmto~g>ajIfx8mub>O4X*@! z(LJ@3@=Mq2#=hP3$8`~gg;H_Y@0g7nHp%!6^5IouO12yZsgZ?He7TEF2PfOo`k0k) znw&L+PLL`WQ9knm!;$mt)h*+SwOL^^%MLSkmj>ju;o}+5u*}YFcW{9D}Q>< zAJP^J1KVH97Smr**Z&(E7XMoX>%U&~!2Hh%{13PPmo9q9&{&IHXGQePs+!J&Y5u+| z%%+E+XFwLFS2sC$DXjC}tKwLgpe$*vZDPQCu6y}KO{YvO+;C1@9f8rjVo-BBU!o{n z@H00574E&9?g!qLm;9GkharU|Qex4_z~|@~v-uUeI9k^!=*7lMW!qaa{2lSTyl(6j z?2oPXF(iSwzCIjrm%}+BZW?`Mhvs&CI=HS4Pj4|Vd(F~sh;4?c$Q(0MlM=1(88KDX z>fMPanTc)=#aG9j6^$cm(&t38Tys%k zPaJgjL}oGP#f)F~yPjL21Q`7#2#Rw*#F^yD>8g~Qi`KY*$6*VBE@-3G@^s`*?TT;Kh} zg08`mQ-lP<|;pTgr3}86&S(dY8r( zxg@;R`^!oqsj|;>yd?Xy4TYI$J_E^8-GL(UFU!LU@^;@*%glPF9Jr4}Qi)v@t1mi@ zsF#BOh-!8ND>PnzrUYIK#J2-oR#kf=2dPB0=57L`J%)=FaGD)|W&u8HN>)E{>V<=Qy#k}oT8o2_j)W4Z;(6(-F>dTLm2OSqb^VTqpyhGB&#=hf)b4M ziEQO^@Gv)uTowzEZbTP?{pe9~(hdF^uOi6B9ncw&)U5i>-h`+B%R9D@>>gu35+)Av zyQ6-W)|)=!M!b|M14*8^3y7aPW1vEY;`~GTuPrZ$_$dF^@7k|7?umkmWP=n{v6We| zotA8~5k zN1bz6<bvaJ}>Mm;C0S*=5v+-T8`4GJ<)q2u4y;t{frYw$6N= zoOl!!EBR{IbgtG=aYi8{K|Qudv!#|?v9v8^L&nHjw|l_dNj64(%(h1 z`cPRl!lSKO;r2j}QBuNht?*w;F;ITmsf)Cx6P;KjInY7T58xo1QtY~#g05=!NgqqP zxkDP(;>4dB>b+?v2i==*8P+!O0BPr0vn4+-q!o&+F=690wG~7An=$0OoVc;tU_wR7&kKp#*wJ*Y$wh;7=$V-%YVuDe zG!ir>@EQ8j8WCI{chj{*SfZ3P=UX2rAH!jzG zV`&~PoSto=)ga>n!u|#D+&{D{iOW8LlM+_LA~L%2lYr6Z$39|1h^2vmmU3 z_`?7GsnpVMLY-hLq$fWlR(`y@xEX^sI@p=nX~fwG*hlY6&KsPSLdHZ9S=4}Jw?SDs zhLBMhs2T0r+O0nse)u`v5U6LgtIa>=(2ajofAmS3@}u^uUKDQk846yBep^--+FJ@> z(59SVNjKnvi&5?VId*UUDGkr9(`T(0_$NmR=y4D#^FyP4_SI|X)L0mm3@zbCt0DEvPpZNM|#Aoj`*Tl07d7-@?uPP`iaB4cFJO! zHsTIyTSEpfwRXUtYt}}AdrCTEQV9yUQ7m_YsE2?`3~o?*)|RtC=tOSaXZ0`B_}Z4s z$L}XyQ}(M_(_YHbx-*TBhV0SoYdsS?cY^ivZ4FL89=023`@(X=y~L;9U463&M=`9o zZZFbAG^49sxkAgTBX_{ic3X-ELvwH8w}?=BHPYpJYA7io*AT$os;PjXvQU)&s*~Hm z%KO=dmm#EY2rc%zb0||PJATF*3-Y)TN3!sp;R>Z{Z&$Qh7lz`jSeuv$=E+GdZ!QG zo0X|q#Q`R#d`mWSKWawMF^3)+l=c8DIr%5STf4Mw{gK#0j}If-2o9aXpa|^9zMQym zh_S+6LCRO#>Qnff;|oJl05w`u2Ukd&5SV)0Rd*v>_so`fB%QBA${EWJ`mz$fOSKmP1=)QbH(Im@b zJIMCiE*nEXje!(57Wlt~h!(pdVme{526P-ukv|ZNo#r;C=zfp>WM9CM=@g? zdVvzxwjaX0E=lSr9XA*~%O{#JY&t$!dloYRa1fkq-5_h)f3@{=NV!OP){?Tss(B*Oqikjy%YIA8^kH5iD5YaE7bxhz-~BW& z$A&r1l4>x_s{1^yH=}?&*k0~qI=A=VV(brlh&f11c#HxBr=}Y$uG_~d?4#|Lk{Zab z2P}>X4MOhD=v_g~INb+hTug*mo;h$IKpSxnX|T0IAioj_ZqGDX9RY3PIB{ zbn^DPeatU`(ndJb5$)k#>rC@7rpRldWj50E4vKPaVcFXL(l#MP*430+?Vv^7;k<8F zkJ4se07a_q*LZMxJ{YHPErvkU=F708HlJa<&#fLAm!xr)`tjsinTO7$(-bL<@nDrz zps4u*h@KCj`V-P0Hxkx%83GPng%no2h@V#IO)#)S^+BHSNn94N+RieykB!kk?w$BN zc85vW*z4mUsa{P?*wLB7uD>;1X^%Em9Ka&lAiaffO*@r$KM))ESPT|xZMIGKi$5d7_`4k zozB|ZiQZ&A#Ry#`w9=0?2tF&$bkAyD?_**3c0|I$|5o4viYKJ{3uKtPg-?iyx(@%* zC7B;aVsoa*kQh;CcM+Pr$K1l@Eezc~qm3JI9QlCh1~>Ik$dni3n1V*S3QS42)xN+m zGp*Fsssmnp|M{%1YE;TnT3uWpk(szQb!e?@jEUN0=YWz9OM|KhcU1)Yu}yb%uKlFGN*nLj;-ttEIypww3~f3lTuhPSmPJjamN+|qD* zT?qkR+i7BJBTBy!)T}PWFGX zm;YV9VM$BgapNaS*MsKe98LXX028(Vhsf-92sfAy3yKn&eN}-tASJ2wyXw1+tqGV$ zlWvnl4N5+M5|2Cc=f%RJ16Y(Mx2yPOP#t@+5B~9GU{wgYpiuAb$DVFvUs#GGP$Z_y zj|JGzmX1m5!Log}(D>8sE=S7=WFkK>Ge?O(>$SM}@nrKXdFL=Jh(JS95Qhu-pkQLB zTXENvVVI<1B*Q3U%mH9P8WS@z;Fc4tI0rgTpq!^bO7&sB7bIN0IG?PZc7)gTG zF~_XwS>7nyaCAk$6_Bw;@WCbMI)81w$oHsnNHw*th}7aVujHD*m#n~n?h(SK4ezM= zwgD^+9Dqo@lSDbsSpt810?Q2T30>&1#dt`@m_QBf6|Et{ZTB_j}6taVP%V zoFDOvK~dpSCt%KPuS}@N$FVJ29pg1Roy{FpTwl0{8humFTqSdFD_pQftA~Lv+d1UD z96-nWb4u&1rU8w*orMv+5k)95z~RC3otVEat8=dy&TV+ZYBy zhPc^D(5N7ke#lhIl2z=qH=t;l7!9wMJAR0Rrup*l;lp?Q@dkHF5hPLP6rSs)BKH>* z}_pkhpv5kXg@B`}KLKXiGay}-5vTcIK$ ziva=xm)8PR#9-kc!(+Wp74qq*Q;R~z%k`lwcFEeG=A+_fm7vu~fI-CD`^>ZeJt=}@ z{O!a=@ToWisQDs!BG3Bx*tQks9%iFCSO~?XDl6?{Bk7pKboTXM$Pf%;ZO~wmBMHhl@|r)RKLNL?TpC%A}U2If9gRm*@RTGb4Q7L<O1Zls^% zwqE|%3&T&uM~_o4Q97g2tq(#-xu<7}qs|{r(88_fu+~HV;e2{0t9-(~MFz+ntYlYS45l zKww(~c_h}=b_}(4tYy$25sQCB))VgZYA#DjN*C^+T#3YJ{Kvj}l)8Dnk1%$C1+%cl z{$-K+C=QdG2d*JZ#XuJQnHz6zHCUvu^IB~4YOHPEQpT32J-_!2Zv?dd z&zn5Ar6;CHu_(xYAH@GrZeU^gpN3oZ{{Y(mUjn&*P1yfs&d+j3~QOXz{;R zK(T9%R6U=|4nE2~T6)H8Z|i-Y`Qxz=ZsFHzHP0!MWik9CU3K-LFxdIHIDZG6S^~-C zMkiyO(@N#07+eKE8CKyl%xuQIeps@0uJt9-2V)X#QpRx0z*lgxJe%|7o*VxLa;p3Q z(>={x<)mSKQlZ^V2Yglyly1c{+r$o-B&1gLAZtoHM9eMlb16RPooY`m08Ayo#ciNq zDqe=s^~$az=M++Q$w?nZ)SkAIhwHgHHq--&dfhBW?boiM*~AqK^Y<>?eRnusmV~QH zHmg(mKhDXy?V5efwT-FvCi(r#3298rtuEAvxOZ3yL-#oK5YgC2eaMGZFC>g*Z^`Il zqI}CtVa1>aJ2A?T~M0goG@$!OUG)Q(O@H`c#YBuudd(r#_s4D*15 z+g~85?8~3d!4cHWa}p8EKqf$}t9;+&@BS=NC$`^wyC8XNzMRJ&oX#7R#*hRji4QvW zB`drB&0b{#V*9=NngmEswYBSaK9G5bMj$*g>!Z5e0^ibyJHx|%sq+c zI9V4?80``YKyltT=vTmT92#gnM=;Y|a0}SoNC4(IgCudIEfqKx3%T^d(%II?tU?nt zLUi7$4e2TRb22Oc9H z(Gloo@C#NDP;^-1eOQ!62^8KS*fIucG2&WoQPvq$C$Hh~EuQJSyJ#bGCK!!YtZLBC zBZMtjLRwT3R_KWU)d&hp?g(`x`Su5>{jyeV{yr2L7x@DOXoM$yT`|23#S#P_SzORg z?);(&bTt*}<}_G}ib+StmIM=tTitkX9ko8zpQAiH#!G2t2q^-Q*3BhvAMx(L+8jh| z9jLX9DaYmVR>?Oh`}_ss{QZ6BZn@PD8a5<%Nz>t@*JC+skgZc;vHkcJLFUhBJ*=GAPe}@x_+PVY#JdYc3`QxzK#Se1oWO zAcs%B6YmDD6bOWqg;aNUgird_Z=(IQHOq0#Vj+Whki-iZJ!J{)ii0twGqKpk`XQ5O z{3BdJo%spbQPA)EIum&g&_=Y~^?i0c;`z;92hO+l5`T|EZr}Byjqxcjjd8zRR%hf& zIdU^@;b|@N~ zPCaLJNK5^@S7!n0Ohf7`J|!#${%6SADRUIurU(< zW*g~4l4u*w>^)|3$ugc&GBP~Sp53=NK+F*j98?@WJI+Uc2HI$4?Z zex|_==|_Qjly$ue?%Z@*=5$h8q^#kZcm$8wLr6bgr)9OmNhQ;WtYJ+Fe-TfQS4&>5 z6$Dcx{RU;a>PEYV-T4c2rM@@rGVOan9{y-R?C(Z05scE3ynp6L440y z9y(v?wd0C#y#_t7Fzd0kruiqwAD@z@73gh6{Br3j6HAbXv-XX^zVh= zZq;jH(G*pLQ?&JP!gSa&BXw^F!*u}omL(aiX?VHd37=rnU%ecyqJYTQF=HM*mCc#_ z!ut`eq}m7R?ww!#yw%JK=o_M7OVS)x0~RTXg#%e<2ctD9S}6SUnWqV{uJl9X*^jfH zzx2+oB&FwTV82d#bUXC*hS;7K)Q45%eFCn|5%e+su%m9~`>EPU{StsWO2;m!vR zpZuycnFV9LQg|m?H=_DA7`s1N_vOj>qy*nWtZ2mN{}FahHb1U$%CqGUt3OSH>&ssf z1fkSt_M*kk%Cn&t9GpVJGs$ili*td0{0 zHjrvxMVja4gh6t^?jcgsV93f#^(nq9JuNEXZVLVsgEYYvEx&l7O$U8eJkr-qJckp0 z>8(7?G<0w9Gemx}M}Gr#L>4DhP21A07Im2Bj|Aqy+@W`n3`0>};);Q%EzEh$;m)Aq zr6RpLoeR4#VOxy-VFpxGd51rfx`$(HC22JE%c?pW_+-Cd;d%C4EVCgf_BfuHW4n@T z%Z;MwGQU$O&c;XIL<`H`D#^>CbH{3;wR>VShEf{l?oC-(IBf;9Qh!FYklmiO#5mP> zc)~UQ5_jz|Ot2vD)PRT8=##L=+ z*}0Y?=xI|?d(E|QE%tg#&rnWkl-nc|9ta7cYgsXwNP^z zOZ?eyn;QhLQ9E0!i6p<|MHGd{dwtWrBaLP=DX55EX87v61FGz02ZIhg!eN;y@Y>3%t#dwTtHszO~m z3?yMu$uLqZqpcE6T559d-CK!xu= z@#gPAaJqE!M2kHwBxw=_n;|#8c-;qkiP6Dxl$vq5>UrY89g0@B+}v<`cVdOe(E!|n zf0KNC!VySxPGs@G$vp(JR~gR066U#QtVHAHU&T-LtTj<*x^{9tp$FUg*dKbPd{z~& zzAMc81sv}XdLs>qRCKVEinW^W00sSKVNuUSsl?e7Ib)R=Y(zSdY(1T&y>xp@{jsUH zP9sFN^nvsI3Mh-@p_eW9-4QXb+o)v)m#keeO8HDgdMZddq|M*jvf>>em}CL!+2}sq zdgp@GO=IV!ZGFUWi1X(YGHOgaNXcZlL*d4vtJ0{e+K|mIewAC zi^c-p=~SvO%fk(7jNF}@0ta@sKR(YrxrP!0WV?u+`7$IZqP2CYa}sd9`!WXYv}-3S z+t*He8kc_vLgCqTnT;VLZd@Dd;v-)jvvUGX>=FmA{mvr-^f7jjO`X?Uhst5c4LmJmjD?$Ul^7Oq>JH;0$IO3eI3_DF zxm>l*j@fS#2E3RT^$+Bv_ktFuG5V+2&49RJIx%DGA4?d09?z@Hq0C$ZA4?E@Xu+7w ziKyqultD%MD{WPt`5IpAMs2U}UM(gq^cstb^v_q;e4Eykf!v-xuloU>Uy;Yx4zAlA z7R9D>xiN;x^VJq5)W1-o=df0@GEDR}-AN{k(5RrCL%k~JReB#i(@FXjkWB;;^aFWA zq5uYtK%#_5dp-|<$%-FbqY3?JV}@-hHH_MfeXxJ8fQAlKo!1$%zs*aehn>R7oHUt= zJ85%-taN-M(0M3c2R%D+Dz|*;7YuU)D~c_qzkJ2AJL#y-se5&2pqGE@0-Tw-u!M=r z8@m()tpN@Gg^WmzN^r)D=eC;7Z27tk7vwcj^F6+0mQ1#}mUY6xa5_cqy`SANzd!Ln zr*_$SvC_|$7~ed?Zal>&W7fQkbrK$U6x#i>va?T!TO3UHV};E)&+Q?a5Tx-A?pvpL zi`VX_qP^*f8lEkk}F}A@$G|(#->6#(;GUa~|aA&u7JOQ;=ih1-< zW-Np=cEi13w=W77r^O@3wF?1vroi{Z@DU}ij0-S?BH+S?`+6#)7M2VZYmJ=ZY_p)G zGHpSp3cW_!!s@xx30FUgo<@e*@sf40MqIWS5j$G5AuQH{&9vWJ^RRYBJhRqt6V50K zX5!_(FG29SX_?UT#c73?IytXE-xl8Q5!#;+s15Agg}gR+JY3BU8`2Z7e2 zMJap&cnI{-;51>vJq(LKzZ=`tS?)$RAjw~b&fOZN!6}sH7D&aroIXeDd+tE?%Oc4g zv;S1SaiUQH2e--2S{&fcMb`hWKUAxVwmDRI3b&!AvXRo~E|_#=sqP|@6cIL<9GUDz7f)Y_?PZP>ta=diCY8r2kQhXb zBOIhxX$NRfF5~b^_mgN{A6J*-+mW6)3i0Fx=s8WlA#lGJ$^95v$$QaoU@57Jx=@LXG;q~rH++JK15ZO2IYi*a9X z%Ncu}*fjZ>4klb`Y0@2IX9nRcT@WQ6E4p`>(%qJzUfx(n;u$Mi=N&X_M zD8y*45k6=JK1t#5m~!UxI*V%sqvcwbLGH845kAQ$Z^EoAv~br6ZsV8rX z{~W%n2kI25!5V2U0en9KY_7Q}-^m2Jj%Zpdma@~q#Wc1 z0Ul_U*{XNu2VgJuo0Z6!46SETmumxFTer;YyA`Va5l2q)ea-NNHfq{(5jO~ zcb|~36rGxC4Z7G?xjPYTmth06szw- z4J{1OhW|Q^iG9`F&OM=DTBMx~4nN!ugnZzzJ;`KYRIsTe>TY!@{%xs@+RK7653{W? z8K0z4Rj!tygD1d6fPOsro>XgsK-af+EZ)k|C)1R!souOCSn;ULySvfjomAczmSA)` zk<*+U9!rBp*dzmB=4u&^ey^V|x_+!gvf(w-2UE4^{aJ**P%PnVLL{QYy94i$AZeY& z=4Gmbp%!D1$E=ARWF^RZ5I*?Dj@&BNnBJl{RjcN8H0r+rS8Xd1mRyQ?7-&FX=cE|| zL#k#l-sb2A;l!GItalwTT(HM|Cv%(AaedG-U~6$nO%7E_Vaj#_22%9TZ&gA153im; zte<}vT~d3=v&p!QVc9Ek$EfUv3tTIT){rf$eMY#@HiOt4Ky!ca75#oqjeC^rJ(_x$C+iT@h#rBg0|+2yZ`KLfBgrV~`|ix3tFZRaJ<@VgnYXj1B?Ye-AR zRunhra&75<=&o14q53lme12SQ{VZvhZMMEu(N@@Cp{OmOYjmz)MCBrDLFXFt{}WmY ziUN6gBv@(5%oZfr{ha*tBlBxFa6X@e*~l{im>L^11g5CHn{F-_9fMN~Ho%j*_E$8b z$`Xf=WXMoXn^5@m8+&CSoL)YmO8dBDn}AAWeo)Y0{d9M@*NURi`89iv#GDtq6dsj4 zENTK>7gtjxZ;HmSgBd0->W)^R<6b9Fp!_)mCs#{{{%knmBBaqy&mfG#-Of#Ga}MoZ zGm^sHz%;dhI@n(#AiI`5+X$w{r@A%m^JznRcd3f`XuP!aCM5{rUBQ=zU% zyeIk;mvxRdzg7tXZP;%STZT6k>E1K(T)mHMSbuh56VSe$tSy~OCiZ>o=#m4jW%e1j#MdR3>UcM_`CelH^#L%m!$Lzh# z;J^zD=l&~q%^QTH)byk;-d7d#Nb1GM|8`M(>685Wqh{zMrBPxEt@U%wI)fmT6IP}C zpURpn@GW1psmR~9PBN-rWEX;^x#tF;+Uzu@Gh&Z73lYZ~wvsoITsy4&q*x2koTfXvH2PFgRxomeygdv|9#=e)8O5F!7tux#t zO;_c6&mopJ=0>|?py?tT_!&LlCE4rn`~CM55oXdLga4F;Dk-_+PMfaw#^vt<~ZLkrhR77A$B$_pj!}ouy$8}$=hm<8}Hi=KwI?IXoVpc zQW!?#2yxdDc6N)v%}WQH=DP&)w@huNwAG+FR_Q0jtt<9+O$s18b86MtQeYcKpq##u z%@W#mm)Rp2M393{V8)RT8Y{iN0!DpX>PWpWPU1Zl- zvPdR+gOr!>L=n1CCLWO)4jSsQx?9d{+ZbZfrtGgtT^>E`8j|z$P6zL~l#g?SnBE@9 zir&@Ds=Ac+tE;zvi}a|Kz|_~@q`5M-kT>b6w+BYn1V*F0u#yD9bjfMA>1|FtLe^|( z$I^Hd7{}67fIRJDLUI>O)$h#gQDJhC2RL7NRD-kT;mkVzo>`+7geKlM&h^nh1ADfvqHA%)X&Y>%xH49`A!^2 zpi^EG8=FYTe5&9p|Io&4#V>!Tr$U^_ST`aGLGM;Y8nJ`8t{sQ2bb!$D$eQo1IM53j z`rdbv`Xw;+lro{(G2vT#!R}pFwpZ&P*&5kUaBZ!V9{(CXv#571%=0;3Aes+VkyRsY zR#9~L&mk}aDvN6xBfkLMlhj6MD#-I-H5RO-R`FBwgq>9~LW?47YsVI(Nlnmn zAya~oq2X}p*3=U_L=VZ(&!YiD{+=4fA-!D+)NltGxO~W52-q-0(}ssUG22}PJF$Ac zr)$SYbG}ZrZ(3y*^jA0_LKr)Y-!Ho=zC1kJ??Vuq7e+_m<~5Blu-Xn2c(7=mj`|%%1)#DY;&iCxX_tlp^RJ;UNiIZi~*S$r@LFs7&A zzY8j!etqm%<<5c}De7Mhe=`NqC57Vd@*oA3^O7iOIGwuttWKx#Rs>?mS@lWWmJ`u7 zTQX_O4P-b0Mn4REfJlcQ*2?JRdebOnIU-qm@-p|fSiJrZLqYtwgZLgP2*-2q7wXoJ zyZr`8}xk#zEXvB>0M>`k!&9_5l_GRqK&>*!?W;W3R#gnYD%{h z;LfNXo-VwVtJ_=Ss(Y-4yT>d1z4o9W6u% ziXiff+8RS9^tRM=qb|39oZWffFKPX(MGTpAyc0&bV=%}gZv4PB4seeq;q2_hpkH*H zCCa9gr0_3yv#{e$jFV$kle<63`8&(#U6cK}4CedQhBeM_uWUpSL$M2vs`@yL);zne z-aFwHj3QChti))bL|wjcUmSKtE)RA$+g2sU#>pERyKP=3u?M&6v=|w6jj9qEe9P*B zGqWsi3c(=()gG^J4$7@BS#kdjV(uZt^=~lhU$EwX^l;eOx&9MIar~bQVEtDB_1{s< z{EImK*E|5nzelh*{#y~OBfYVd%~ss*7u8#8^)l;f2qkj@v`l^JqombrwSVFOKC5`c zT@~2zPy9SbxcB_pdBkHZLP13EeHJru!#b5JjJi(f5CI<(FOCIL@^mKOeL~n5Ya44X zw>S9~xlSr~5o)$V7&&THxaDTd&FC6Uz%`5K)*^?}+YuA}&vT#WC1iOCZTGI+Ih*S| zje4CSdH1dW5<`P;@8>J`CjkfP3R3mr_^pL_OjQr>vL~m@W4-N+1{Xsa_nJK}iLk8? zN#LudkdpQpdrfOyUu@B_17!;vSHSTpaaw8)yK~{mDP3 zSu9)ptrY;B#`nr2uC$6(0hCqmxTXb}3Vtz*yd4;nQ z>Z&DqN5Ds-_SO}&Gq6bUVHI>k2!CPwfrp$Rufy1;r5j{K{!zQI_PdT^=0BW^IFxr=g*A$U*m!}iiHuX;PF84W*u+D*%=PGvWk zZST0h*V2+?_vOXA48ApFWYCYBvuGfv{J;$2#=HE2<-_s3v`br9HxsRoXd|)4EMhN8 z98xrS+Ig^+qD&;`RhTlaG`i#Nx3vrWowOAn2sKK)$-Ah?z3t8&x(-d;o&$SsVI^d` z!ytkOkjRpRKqDu2<)aCk_xI$^ecn>1;ii z$zP|&x;ko#LP7e>7PtBkjhNL78FA>kc)q&JMS%>%5vFhRyEA3tCb42^brsxvgWztP zd|RgApVx7@MM&80K}c38=5w1lmCQKbq+JI&2|AK`R7ZinQ?=P=fLz;jaFELeBv@IayheX;L9H$o_2A)0u;59*ZrbgLNlSaOljRS(0Dl zkg9C9ot8+8K=6nk{{2Y?W15>W3E7muoa14UzGOUC`!)rz@m{A-`1DZKTw+32e_3!? zdIns#o^vTb{R3iJo_v3dzUudMY~+#ZSc$`5aYF6H7M1_xsxvf@-$h!XxJD`cKqxg! z;M>@0fQ}(M-xWdBbohl5+BO1Y4mVZm^;hamItN^P?YQqbX*`iiQKBFKiCdt4J6)Dg zHo5|1n`c3S9k9rx?p)yPj&SV2-_wfIN#EBGe0*1jU@Q>8Rgj&H{@|Yaci>t(#YY?g zYW~s2EG_=ji{~t&2IF0|Z0WjrHb%AnAXNdHIv-9t_iP=V(B`U($vBppE7{KE)oTI+ zQ$J9qSppPhd*xTI%e5Bb(iDsD&&tLmI!-x9yl8(-GHLaDL_=d)(S{WCGZSKzb@AA} z@Yz})?2aUpDKqra0>ua@5uHh#m>GjvQTiEzq2H!h#$k5K3}X5=7~1HPRL$xJ)yX}f zrsa2Ke_*HJl^6IQh(=z~HfR?2S)W~jxVv`nel8OHgs1uC%3L%>7FRmELtHZP#>bf^ z8aPDunE7kP5T1;;f@#|3MZex5VtGmnmJI0MrvgaEbZ|J6K@S!9IBlOtXZ&$R6y-+%M6ssp@V~+8>q8)D))+3oAaj+%>!!=wT z;m3{Q(@Vu2QB%UGJ^;guX&B>jPIdb5y^VcPStHkBSDq{K1b#kKCFPUh?GmQW+srvs z0%}7}stEaMU`q7q6?Q#=)Rr-GEmLX)`c_J@S3aJ+2_o|2xtiN0Wz3>TEJaR=?Sqb# zhz^sa(JbBU{GMabO37sFed_FChl+q?AqFLKt}uLQY8x1e?cTYUP4`~wC@spc#PdMk z9M+^$xHjd1MkU(Z_ilM5MJG^svuoAumVeY!F$g;6#OjpRI4QS46njpbFAfJPT~@MT z+N@uLCQ^7I;vrBGqa(%zy_DJ*p4rb!c%+}k_m<^Simo7c?m!*+b&MasA`cK4y|3XF z0J=(H11va$-cJk2KPAc1OnCQ%LEgi#%!N-EmUy7W#g=sJfJcpnkGq2;m0bc1y_AmI znjWDGg%gM`9sqoG)OVH;H~ZE(8kc51Mm0jIt(Kc2IF|&~_7S4yDGz+7b_%C(v2Tk7 z@Ubh(Ys>)?qHHM)_*{en-f<-5@F-A12P%92!HfRKkP7TF%aj<%5u3Rhq{x1Kb`Gm! z7C5j~XTKd0LKX9X$MMhHSCH9d`IUjhcQ_{tcwfif<7?pah_pN+mLKTXOd1c$PWH%) z)2>60A|)fY550v8KU}AoWqeZ<-~}{%*2}Z3yqr!Nw-Qz3jKBK z#=!41+Gvs_7ogc{JjERa)NrIJ*U7*HViF9{B!SuRCr!&OL$bmIVt!pYw_G6>?Xat& z>w>^GJ>L7gjXboUh~58Ls1a|g;VCaham-l^NgCoqHh?O`4feHq|WTl_@|(9vQwuxgdE~z);I#; zc*9SUo#My%ef-K?9aq8egt7wOQ(e(>eg_0liI^XlqQ6s$dF8@p5HD@-{(>;W8hhw= z)R)~0Z~L~n3W6Jx589c>DA17h(9MF7nWhnv#Y7YH8(l+CMiPH;b4ulf-s}5D(Z^{s zO;Na{nrpySs8^3&{Fu0+fplcO;{h48)f@xz_P~(y)8DSI+?Q2CDce-oD0LbdoUi?^ z6&7r+Rr)RUn{HL@k{>QoiNAI}Pm;64MEA{9v;rBr^0#WlaOwhT-Q==7Pee;GjJ(^IT zv-ydD@BUF8rR-$CL5XRROfKVz&wbP!Mzd_;&^6-D&~?>llzP1)%8nOD+=&o%qzf@SeTy6elp#lAncIz~cHSF53?G@s6y%(>4#)Z^Z&?Ij|aCXnaT!+bdKts&u3jZkb% zLTvoBr%5}R(TO$H3ODna-E|&n&#G5SBPwM@mU%N>rM$_Dpr&h9)c4;Y9I&F-D|xo2 zeeOJ0HrBs3pu(o#z6&ea*pjdoXTiGk#*WG5?znOmC_Zzz@mi1iv6B5KbS&Mr^PqX6 zjkm(K6Im0VW2<7e_H5c-`p8)mlWF_!{F+U}wI$nGi)L(y(44SV)SM{$X(~b9~hsvyq`ScB68*b3A!As1h<}Gg`i@GyBRz^#s>EW?mM%@4ci=xQ{ z1xmUm>;S&S)#9D9Nymt8^Mx+$j-u-&>Y!dhiA$G+$a8#{y(OD?vw=Z4+)Uv`fl`_d>MN&rmlzE4a{WSAQ);|;$xcz+`V*o zo#YJ*bxP<~AiYAJk3x<}C4@`rPgfhMiKJIdk53clWx94NTYGv^{aSF+I1wb97^csE zlEQpWCfdbbFGx->HQ=Et(KFG#C7!$8&aP<%z1`?hG|l@B@{qGXm5d{nVguSK+OS27 zbNu>|1%A&lGDs3C1fGIstm0%npPte*;04pG1UKu>@0tCz9{j_vV|Jf-Cw-uOggnK{ z8PSF#lP*y)eO1o+bpfN#R_Xq%K^(4I7~jtqZzDSXm(h;%q?HF0puPMzoGW@EAm+A` zy)8dkYbb~(@S8pvWqbv%HYz#E5%nEpG>~f_tibhHjw1e8?sLUNF2#gCU+eQnfD9BU zl|6nsnJ+|Ny7JA;Uv(VU1n`$UH~jwgx_+ni)E+olL^LvaaX2$ z=F_R@m`Yag_0`6d@fH!1b}45o(Pwy_)5Wv=ckPB84DGSa86)j7gV=^T#HKUSTkdq& zwds5|lzUy@#p9jFrG4AQuFx5hCdst03z}so!%tV|?KY>fg*VErJ6w)MXA7I(@EPM5 z!3(XXcsTL74It-y=VzUI+katwBEmSn@N_>eiQkz?0?1jdEV|b`uULRv_&B?TkQIWD z7h9Ev&s$e&TwO{nv0IO#Mirw!(A~(>Nh-tS{Cy|o{#ZFkqU1U_B#xhm1B_7Rr&G7K z-o?Hc;D>U+pFHhE4Lb$MQ@~xPcEQ$N8Z#89lCu89)022DejV`fv3EOfvWFH1Y-f7T zf0sh&4ELn&7QYD}%ZghE)XRA;oqAE9RIDR!IiFT;$bUl_e|ZaGj>+SYnnI?&uTpv^Dc3{KoFDf zoSUtMS({GRXV%@@_i@tUvF@d8%n+%B^47!Z^yFU@h%r{O82aUds=64PjEA_j@7bP* z>&t;P&)XfM8S+&6RLBWlE;Y=F49k?Jxmg9Rysg}tX+bl5&HL|3;N?VY(@ZxLD`R79 z6J&}=81!C2(l!%SP-3D{aY=tciZ)_Uk6%bgz5_Yrpz z)0f~GiUPH4HV!w(0R#jjYb#sOTbdgi8hJD}sxo0YUaxN<3Pz5E_l|gzr2PW>j#c&G zLY&$ScjLn<>L-W?%+=+rb#5=#>o?t1sSnp^;Of<+Ib8cJ*tNaOYo%DXkuQK970F*L z_0JRtP#jQW)->66x;IsL4yaTsk@xfyz+YQ9oIEw^>q9e8qc#)Mag}Zn&VgoDAZ5A8 zOsW?u6RI3yDcqFT&&wN^0z_>pKN)ioM&j6VJ!a~B>iCuKh>LeX#BUwxUU)rEa%t)Z zw9fS^M+K6g%h|v zIY9;&AtYDh$Pi~^8nT;n@B}=&^w_?qbBUq}8hNW3W3U;ChY;y0s{MAAHomtPKrSq4!QGF8jQ`7>ieageij2J- z`Mq6xe&szJzn5=$^PH`I&}QEwL|Xt&>m`;HHZWZ>)WdKA1O?=kkg}+wQiZx=5b6!w z7^IMnl;d2g5XSdHkL9c>QyK< zWia=c&y3ezgl3*E$gB<&y&&utaqLZOfAnsP7A$l$h)b%oG( z?xT0CPU=V#R2%XSCw-@@i=>Hq8@AlCFsk?|qmayY!I0tzL6M|r7mej|I8UZmk*Kp; zlxwGAPUl>vlRzLHgma@spDPi&$cvQyU(CIEIFxVyKU`FbBr!=@LJK2=WG5v1K0}tF z4H?;ueJ_+OS;oGNbqq$?jWv?8mTj_!kQv50*6_QA&*yXB-{1GXpXd4WIgXBw=A84o z=Dg1H{eCU)&g;57K{Qjl;vy_d6C7tmdh|J1o(UuiW=E~MPT}IATnOW>+^96xI+8`Z{AG-DC4m)1wY%RsE4%aOexlmn8vp#=0 ziTuz}gNSKD*Y5qfF;Y3^b>_g|-JoPyvi~it?CYX=hA)GkN_s5aOOZFD5VYbc@5{CM zotE*wjH-~zAL2vU9umB^%dS3TrwpM{Rai*>y5h@tJuzt>>VefvwI=6Ii$9Zz#lwfRc3p9;YK(fWFF(=cHH{Pypto$Xlp0=;$UG( z%Dsg<1*W3xIz$Jh56JivD3hn-+*YT#wBNXodm8ccmg)A~|0t4FX<+3u6@hxlQXLzD zVOKAG5waHbQzJT|Jsz$@#fl2mPIgc|*(c6))%iNMC~-4)@8X@)PQdGK9*hLIyDdIB zb$o)fLH9b&mnND%^Sw#=Ag}4`79qp8R%Iut6_Ua#c$t3%2X`%`u%8^76wx+By2ndF zs#BG3E+bOu6-tilAIn}%4VG}^l5!&HsYx=!)g-aG)GK-R|Qp!nBjMsF@;DLp<>^Wii4 zqkP0?!pGA=Cp_*1#i5<4Yqa^+$4ZJWksjMq3mKH&v%1$~)Wh~T^BKz{1vy8X;oXN0 zj=k43zJ@vUSLKf+e7jG_4K9Tt>dDE=k@g>XI-bZ#Dg3CNUs7?)ggo;>#_oaA)0Q1TD zv8^szaON`iz%i~L0rJqhu%CU6*9up`oQ8JIDM;VE?=e#N&w}=6U>-^7p_cyVbl%ao zv$?09xj(gH+WQrp_4I@dE&AL-i*flp!+f5})Ub11rBTd1&{Rw7;+Bl4_ll)a72Cj< z_U@#gXN8V=F4E=((polM&i@8?P3RQk<)BqDX6@X+y;)`L?xCFa{+K3oa_{Tld~lh+ zPjD8jN;#Q3WoVtjtLmDE^TBf-3oy$G3BmIht8c}AkPVB7cX7bf_hL>(bnJ|%% z+k>)?!QN-S$&c#>x_EmsI9*HA&ndse9NVw^J-l5Qo^d(ZB7pW-&GFkbgo~;Q!`uSX z_l0Z928D&1WSpu;Cbu`UjO|9osPVC6(vQhJq`jJG`^x00^bGn3H@h@sA$#ew#W%=2 z`P9o<&beH1%vL_RpIBEkW=Z=HdyiI`t}!9^MX#Y#dC7wf$v4cs?80%3C{5emm(CM% zVS+nV`-Y?@gv#)GA}?aqMuk9Sp7`VBL*=|eGm-VtUAz_OgOc;8Sxxb?-%A!Fx}wN-E0lv4k$zcF;A8z{?}bsLKcmHx zaZ_szH8}X3oolSl4#va9Mu4sg!jbntA%zxumG5vJO1(^Up)-h|dg#tIxUaS48T2ewzsuK49(63Pe9@ zdSvfopQ}yBoe8=&wasXGu?=bbH2`d1bP4_ zocT4PkU$Vh!F7~%x=9OErHqL!k|Xxc=h-e)82E@%n+~$xjch8b<6*=2a_xo;8^sM@ zN2G@%<%&0g^_j91AI`Wt2=)%+Engqt8%j)epEwwxrxT+D;pQIbXH*@%DE-wT<~87w@!CZv=mZ+4^Rir$$R z{j`HFs2l#-+l@-toq!XlzJ;rgD~Jq!GB-Uya_LN!Gq&=HqF)m;`l*|u=885>#w3uo zxiWA?HEv_?eosqI=YFY#)ti~r-$@zqs%d4`Ex~t0wN*E$e(~#cEDBPMwZFw)_(7d5 zLZ|Oq4$ZonREw>j!ZmfFR#eK()-0-w^;!Eg-g;Wx=6QYnMhq=yo;jDdUVOdJ-eZgD z(*DIDABm+}tKQygbHcW+W>sRxaC)Hcfo@w|Umwe2CA^7WYLA{XP!+7lMmF*%dNZ;rX_M`K>s zs01-@-~8GyD6X8M9rF&7GkE6=y*FBhm+W>cX>~{^y!d0iIsFd(++74}+)qR1nPIfU zN-yo3kpm`b`f!KFCKtkf)h^Rkfassb=d^PlxwmfG)v~;geJ9Dox!vPhAs;i~mw^rO z2eU7Qu?dnNUw0``oD&v%KC1a#g~a=Xdux1KA+}UC_py8ugU{5*cW?S{J>_17mOi)X zxm|I)m|z~xqvzr}AP>EI?p&@}xg+c7&@R)lb0@4pyRm0;gjRVuwjX}vYkD;u5Ur%# zu_tUy+WhL=c+X z<<968Ws;~kKRO%o+o`PCk5^G-DgoZ4@PRsjMQ&d`-;EPP+Nn4QciEz~--_#J9JgsJ zqos9!dQ&`3@$1&(;ECP&P?4>98g{Fld7A#@N^8X)qc;j62-*k>1IH^dV`V8;!;Hbr zZ=a=_W%G`xuHZfi&-dJwRGH3~T6*tm{76lkyZ=qHjImm8o;Pn_`22p+>TxEEroN^5 zG%uBdU*k5{YL0u-yNS_r(}q3oeEvNB$9Fcr;VwQMk$uI@hm+ar-70X=&ve3qZOxlM znDZ!$dyw$OQ(oWuM1smlf0ADlW@Y2UZ-UJX>`p?$xrcaJLfJ?|rPniKb! z%s-tu{nIjJO@_^R(~@!A{nNCLn;c)T-OpCAm-z%g@*oJucBPM-m9FNE;9h=Xr`~T9 zS6RvG_$j!IALhZiQElgyAmM`3Um-DNi$du>x*>9Xo(~#vHq=iA)mp}U?R?_i=+LNQ(X_wLCRRpFg2|O#Lh1Hu zAKQvdYCeXRay-5%RbNf?pKqK9*74t7?}<7%Al_W6^Il2uKJ%f5jWn|uo56Oc1T-$U zx6-$nvA-%Zmh&fLskuYmZ*6|*z|uQuHo@Un-}>sd`Oa!){npw{%5utH)x@9qK6&4@ z)t=VXa=XQzz{_2>Hyx;D|>TZeu-h5lh!N!`7h5y$642|dZe3XSb2VKK~?bZ&y(fr_s zy#GO(xd;8PwHAA0``QlpxKO@>-$9Dd#KAhbt-Adwy?oobZJT=h@Ra(*-tvaamR!jl zW0Q||PA9AEH{Z`zH&@m0^eOAGOHP$8lQ%Oa8usRiI`RkRshuZ+Y%amcl)S!mnQbNLpcvfGxDaZ4GkP?lNNHod%9#x{c94$8T~3MfM*BZ5*{9Iw}S;NJE=HR5E(-c4HiL9KYpTwK%D9;^dMw*M+YeoX%!T${ob1 z%F*mI?DFy(Z5?$Df+J3&H1|>3PBs4Z^zu4UpuJxuh<$up8Y<5t#3XX}{H@7{kpe0U z?u{!Yb4z|#7`DGothsrScYSZ{F7&i9!}1Cf4z}dY{SK5H{0_*w@^|L?o__wdeW#>j zpvqIKK$g8{$7iv>rqiA#zt7f6cH_&!Qrecv*+2FE@)Ik6OrH8>SK2zr++BwoUCd}( zaK`(+&cAE*dFc3$J7;Fw%GW&o{;=E6StOMH*7-GOk>8te5SC(B(!Qv3=d}!{@9u4h zO8kW+l7gdLWKLU+&xU~{Eg{!MqipBymN$W{>>eRF5nH{!9lBfXWwx?^;9_PsTdgiV zDTTd}z;Mf5bH&8VOog4}q5tkQerbPem0Yq}p*`-mzm##XF+=3s-|CwtY)r^0#pqrL za`5+>{IIREaff|Q7FQ^1G2hSQZ*up=1o6+#({J*E5_nRIwtvKG&ul==#m_^_)1jgM z$$1_)+!b6xN4)nIL&6Z}K}XdlD9)=~Q{&9=n0BBE);80=k>~l$y_w8bYS)@sOH!YO z6wPmuo~XFR4?8W3ABGR;j;G=;HF?6g0;2R1j&(;h{gLmHh_A$ZjqL{IPkJzylx*MHOF~&P9~9pjn%b7;m=e95XZz&rh*|T-5GP)3FPcvt zJGRE$GiI?J_EV;9LDuNRftN+Vfbyhw1Me*-i#>mTJ=NId242mXtlRliwvi_hXIwKqGc@2)G%h?8f$=kcRT z;5$p-b0pWQF?kOi3a*XMDzlW;U>hpOr!RM0>=+X*UTM*Z>J=?^$x}b5123pNPP1z` zATl^?4y^>cFLs$2Ak(oU5hRbkG|^%wa~EUxxgN`iID=G@`BOKurn0Y}Z}g>h1CGJw z73O1KSYJA}d<1r>$Xd>2za`;dzc0$D=FfBjzd-@YB$hHIp;x4 z^nQ@z^?Q=m>L2BN>ORQ`e&4>p&N;__m(zV}eT>0>Z)Y#zPkzkrRryAr z19HB+9QKdD$L?zFL_RR&s> zGid_(+!^9|91;-Z4m;O(rLH=@VmTTE=@Yav0}@%GXiG^d>h^5ky)(rZj0@7oeK&)5 zzQAI<_z64(M&9NZ=ElRIxg=pKxi*9lp%_iZ>sJ{Y0Dr`-+4U`S`3Q?;sWl~`9l%#1 zN(4I0wvq1B+Hh{Ww&a@RWQh+9`F(_AZCT%x+jmxY8@>_}yWzexk{i67Wua2FY~FJC zI;fcABk1PC3@<6Tkzb#VFx}1D)~7;QC3#r%avrITVmkvvkKMdYldbTSqvkdD$s4eO ziH#L_vO<@e73Zm|88CYS?50Cz<~PS7WHiK&P(qVm!<` zuM2c|+wu{LdB-BdPrf!DNEckeA!Zw}f`wICsR&gzh_v3?3)sL57`aHrk8lP|vWb1u z=J~zQ*$f2bJpQi66Is)`A)Q$0Eza0|lBiv8zr%;kqq2FKXpeJ{UQd2)Dx1G!cZyrt zwdoEcyKW6^TT8z6RU#D)kAg5ek>`U!Ns3=sVZps*w!ep&^f8cI#+gx>HvZFMJDZ2< zkO+Hm$14@v?@Qc;9I`iiy21FhB2DEp@glJ_pU`u_A_{0L)u3LUzy6Rm+&Pa`EIaE< zH{6Y@O&V_Wxk&-IO6sTU<#-jrEY*)O)vzRLhU40oTs}j>;2Agxpv(9(LW82&Zq7}! zevj z)0|MAOiqe>H{C z^n1a8K|Oc6+)mH_iua?w1jlVcIuNpVBtpynYU1V4B_d=`NT6D6c*R}MXPwZP^k_nR zb5Nyz`<+uYeiHoSHJ0Opr)Rdr1Xlk%gc@7u%b z$We7Mjv-BCc%o37+aoaLUX)Z8Hyaj)gCx<-wy&FOZW$DG$#G*f-_{IG!${3pzuER z$ICYr&PhdY<1B;KQ)@%G#oXT2na}f$*_lrA6)-aGa3eaHjiAWlHc^`Ajc-r8#HTkC zwkYYUHek&^>T(4L4l0*NA>Y&LQU5UusbcR!KiE0CJNyO$gr_@?R0p!^Q21>TbbY`$ zeb~kPf=a5`)@ze=v~RbU?8tBCSZG1nPYcDNyRle|t+AW#*J+ZeUb}LCFI%A8oPAHz zwF-O##-FeM0=}^OYtLzG?#r7z}=DhqVE1V|V?mBgpHI`P>pa$6cl7EYS!%(LSnBGp+K^fZ{D z1{>aLL+-}>Q3W$sEp6ucqyOxUN3h2AaTtRb^g5i)-Z*cfWRf11^K;Y`%LzZl9U5w+XQ% zkxISzF_og0)caN&{+)O8x2B19I*V1KawdO9nIO`_CALqj@`#S`xeu{Q3ulObJ{_FW zskI}JKAqAD{h&giBa&J4zfz0FN06ez(fk#KEu+scw*0@Ed3xVzY^pqfe3{_gWyeu~ zHpoZ303=iN@|PGBy8Z&9IkCL3$fM27?bjjw zd_3MJRj` zEHyl*$u}a6WWL}SdV=kmkXHZAR4$fu)D^wW5KJ8Q<*(c%soC(F^LRNB$#%hY^T{T5 z?y9FvmfYmo8jdNcOy^yg&vETX=N`O#BIV3jfsng!QGx|6eWT~g`>J%^`OahRx+dwt zwN0#_9skCv-;_q&Ar3XgI@ID`_97_ggz{*rkHi8PRxUw*h&zw?*cdJ$dVs{f%;vFb zXVg=PIK(<$4#$#g;{QPLHtGjsYXFL!qDl7|8Q6=&0@!|*kD7b^7yCbmwEk!Gb)V%_ ztWQtD^5}@)Z;u55`+0ul%pTU;T4ou#MujnLqf@gDy=yL=D9=+MW4v+zQ@YCzBVTb2~!cg?j`K3ffa6$AssF-PtI>4WM-We?#deq3m;HHZ%NR!~hKGKNCZw zyWwAK)=CX7J(|K~=L#2rIDFA%ZaU=XYY{7bvt0;Ohke;>L;=L^sS3;fbc|4Kp*Tw+ zE9lpgo9uc8F;|>$nnipW1}G|NL-y$URsrAK(-i))cI-g|J4C#QJHY7Q_UYRHzIy*m zyrT6f^!U*--m`RnA=S-(NLQDx%PP1xF}cz}Ux#{yL`sfgKLx&|XsOStJ$>{rigG9* zEC$^C2iav+#Qzn}6ui5A`ABr!z6Pylcg#P;w$8xk-(c1M83dbMdK1s8yvU$MjwozS zovW_(_$K>FX>8H^GpjQy{(l9sAo&%JkRxrCe+ce8WLE1>vZ&-MdNq534Zt|9^95oL zRYxWRN+HPo$u+SJ%IYPN@y7LFt*S9%b zcDV?dP1Ba`*x`oySOey3ByOBNcZicbAl|A*9dAKC8b5mnFIDsO*<;Zhi`!;U>CIc% z{PNXz<&_gmqLMePAg1$Ui7D$YB&ctfc}2$uHoSq!wuZTP&zjhvgv$_(apPMygk;NS zyN)&7Tq$M_5lg_`t0fhC7jCT+S@~1fU$_{0XY{DI21E{nB8Q>uds-}zP;X8IR-?jA zw#Qizow}ULG;r!ER|TAOs$Za(WzNLv0koT$A3OtqfzPRB)|=fK10Zl^G%G@PWJa$Q zW1Xyv%+)R=0O+41hZ-Fgz~24<+x3EK#A);^=i#aXrAth`a=944Y0Eg2x ziofWR>o%h_W>O$VwIjf))cfwO`}TwWA-!6WjT;7=AntEBWhY7fcsXbU2JKD}?*GzI zyM<7ss3X7;A;11j%X=INtA`h=_+1X2%*W^75)Vc0yNfD|>Z|}ZQMp{bOc&uvA)S9o zsQU-bT3@`11q~=l+@%3mbh~uNYKIG2qcIL9y99qPx%2r{Mt@1xUD!ROXnX_Hrml_L zFWc`p`K3MoV=PD;JaI5FtjFGv-8ki60NOCIbq>7A{^Y%wY|bsde&O7noa)GeouRIx z&w%87#K#=PJ~d2%^#3JH6<@kY{G*ng{!+A4cjB%{oz@G=b(DG3FH4cej@s79qb6M$ z?IRlb-#pnw0P zNgw`4O*$;qgJreCFN|x2B#~c*wJo0j8F!R9k_|F-Bw-j*mo)mk1*SZY75Q=;BfIfR zBoDikt#~pXin=Ett`{s(piW}7{z5(8)K}7I?nd(ey4_@40K2s1dc#{4#$&LX!4LwGx1Ywaec=`Prk_kJFRl!n-hnsVKiARcz(h#K=IQlj}~kA~c6CA^fv; zYT(g4O?2sgqzBATpyYXa%w)*FJ2{G0`Fv;>Lvp}{tfZE|`{9@liKs_S%@#{O{|(hT zG$K`y7y9dZP5z~UO(xHESYGIND`fXOm!h)LCz#L`gNTi{UpTlkG1#G}4x6aZ=}Lla zLIJpjl^{U;JRMpyJST&i60^MzD}b>}Y*_8Lqyg`e{E`c{zXv7v*FCxOuRPW_qk%|p zeq*mWVz^)EBwTYH%mz!~IMJad>u93&Qy;k+t*GvMvKyvc1Ff)LFEo*SZNjljn>r#Z z&u)Q0e6?GDS8DGgzt$xHlnypuT^`x>PLd|O(O~UwYNs2U4hi0oFxo?AxOLOAxw*Y7 zH}~uKBQiI~Lw9{XzcUAZHgh}~S}&$FHt5*2QTy64Jr|5#%#RF$83g7KYFNR=sKa_l zT(8-T>QlM~OO;nF1~66plROHpwZYrkcqIK0+hh1a|fmFg&z z>JTC&h1wT3G{pXxjTKaB3c%^tN-dk;*`)1hYsKIr*_7KYmW30C^A&1;1Aupiov5shdZ{D zk*HM$%|PK^SQRRi0uTt5?iRo-9xhgvs{7b~jeLS618C%LGn{Pq-%K;%T#EeTPdosi zK00^*C8_FA!2MgsojM|m#By}46Wyr8KdC7Uq^4b3_lLKBrq+f_R|`4z6fuaaVvS`b zJ7a0a*L%mO;v1$aY@1kbyZ7ORp>}keqw#OD!;LJ+XHKsd-1bMiU7^^gf6?6?b#!^Wag~-CO770JlBKfi!Re7erLAKP$vZEk zR0Ja@7KH*1yggMz5~3|F;dZ{FNH^Mf^J+tEHh2*g=Nw&nM=#I?`nV&x>TSDCXc4nT zfA6T#R41Zf(Ec|!yi0~IK5IP8>vO-aC(Rlu&?42)TpEm24L;jegvq&xo=Dew+sLdQ z$v z$UI9>4|>%7^~XUVfpc`*;^bndr1F~kGCN4=(iBG1mB}3ZugE;HA%Gbq9x~tmV?XP= zEKuU#_UXUXg&s-r|EY8ss4(xLI1bAj46=lO_hYy7*57=Kor9p8451yxx*f$3PAudr zy@Vr!eXjTG!s%*4>S;;-3c8ns>VZ)OGgQo#=nyju0}TY~U#$DM7}8dpCr4?0m+r`i zr3QC$V*Wim`Alb%#QHoRjYnu?XnMcU+&HS*NnLmi7>#PqAOEpP1ys)d)&eIVsBKOg zR+m-xrhS6eD}?;J@qi9~JE}af7@>dt&EB%drT(k$fEHf~_c*lMfba1AFTMjXG8lO9 zt|I^=sXjLXOh^fi^D@h?YE6)4vkzX;A~7|L`5nKOPRnI0f+{(rxV_(+?x-{VcKLa3 zLVc4FpZ4^a3YDWFoaNNml4%$06Nt1Gp{gVZb>RVjiX^T4WtF__f~9?w4)d>*6W8`% ztkR?2JVFIMh01bXBt-^AU~1^WMb^(`E~H0aX(!9@GxeO*9I{9mrcfQg=d=zfu0?-C ziidXj|1{I#F@$0}MdfH{>etFqSNbdNkL#G~}A%?!PK7kaalM`Zr260?-( zz4{|W`@idtfKBdkvB!-66WrtfH3{Y<#i2|81ozUBo&L@&p;(|l`ZIFk6oOm-Q8>hw zUiQ#@dfC79vZvI`Is$Z-GV4F6)Q#)5wkJqB#H)B{W{I!7JG8!4g$VizEPna! z^3#jG<_T7tNmsx-qEKJlGLXkD&1$UAW^nIG?nb=Y8X#c}1#Y%q|9JpDW!*cAo_qAi6q6f!79#zK*->ua^|W z_yyl|f9$b&Opq~-I6lk&C@CqHU|Tblo1~_`R9GZ((l*?KUbAxm8e%Wx7za+f)Dh{V zg>O<#n;jN?G5x1RO4KUPzM^C$IYAXy|HPtDJA7cB4Dl{BTe%Ry{7&a*x@s5DyUVD~ z^;c}KH-Dk#$9hmnVDx;x6#Th#_`QKQlM+5ULO9sBhb$WFcxt=I( zXAZyT=_jub6r>GtCB~MtWHO}FKsYmEt%A_m^k?VWc6;$S1|#{ksKomr^&oCFPtZE| zL78S3*dSIgRoTKew!MGMh(Hn(E7a7&Ig$j_kV}1eUf2B7`atj(cp*#pgW>ky_qCQ1 zH2Zh!-@Qp5p4pR(?H1@Yd|(a#6MR2U&^Gt8Tb`iT#ING;?tUM7b(ICfI;)?K6dj8zxO@Z3v9KxnWCSh zu~%Dl4H_9_Y3N(;Cl*^!kd|15aq&a(JV`>8tPGWE)~C~U^!ID`n}XDVfho!|uYF_W z1-meCvm06xW)UZ_wY*8m!*4tbn}7WN-G$R-$m9s~ItKEJuN1+h!ra*LduS)E#ryS8 z*@T5l5k?H*49vC9eHJQxMk0fN8&nrR z)j=QUP&#x$XY-~^ptJV(hg0=tXv+rEKUYau!S&uGyVhfh3@zb44o0))OC#;T^>vzp zC=;&;3&ep5w2JO|shElJVS!mE0B9;QH+L7HLeKmkI=~11`IR(bsu2 zCDbibmz#qw_!ZwT*ncu(wOUji!F-Ew32oseU>XgE?8v?folx>17l!qxL#%8dxg1TO zCPchE>?{5{rt9g6yL-}1CFv7ti)xnf51<5verj}R7N%jQSQSKw?726=nk!Y?zuQ|N zThQ5yR+L>AiqOAnT%asnoEKxNU#q{uw=A6v>4yosD}P_Qjm7Bd>_t??X<}|5T zz1pH;+GJ8rQo3652`QqG2vT8TQ~M9w&|;J_;vg77#lF*XPSRl85P2k zK-B~3yAmz6q;Yr#b@u(8ME|En)40?;7@A*prK*|9e`C`sw*6KF1_G>=dLzO9;Nl~2 z&Gia8@(@#0GERY^%B%J3qO;rfOww%aK4zP)EWu(qp>$kSa;cGS$cH=s%FE4hG0~og zxG!Ux_2UDAI^plaOg~`zy=~@g)=P9QU0XD1FSpfxh_6GhR6U>Xu1FRrT249l`=-s} zpZeoE7RJlVvL~|Hs)!Bhw(*x<5Z^W|HB>I)=8AQ@?vwkl=!VE$!w9!wS|owU&SSD#Qc*H*ui`0aN7*9qK-w<2T^HCQ(6OeW zCpn^Rio!6y-X7IYca}6WbWk3moWLHPT)?+xt1(mj&>C(g&0#ED3+pv_NyEv#$I)^|TvA=t=dv)gp#%;F>M(Y<(Yn7A_O*OT4i@-;*B zsv!VM4Y9`i@zMKk=D^<-wtQ`i&NtS#OXh-2`%U$_E1~1B!tcX0B4^0;ud>=@WwMLG zoAmM_Qh1+lJ+}pMOHV393E2f;D$)A^Bx_^40UCq)uz=9h-`G_O)AW!gs^Ufl(ZX)J zd)xO2*aGs>S^;b+YTASEv+L5Tbq>-I*d@D%Z`r-#%gw!@xyl-zoEq4_a^N zbneDwlnKlgp;K)R*RsnhN z>tdl5;Z{q@9rf&D45WgjJbu+L<#Mk5T(OB?3|`B3z~5$VJvb<&azD4^$|po0Ws-TZ zDOQSR;$hj}4WZypBZNF%gKiUM`XRbDjQ>w_aD(o*Z-W*3T-e$??xzd)oW{hMrf_|{ z5tSIAjj(^r2NeKq`=HAJ!c$LqeFNIDoLcpg+Y9QO;XhN(JVrsfC-i08G@-T=kZ{=Hg<($;BAc{eP>bjZ zS030dCP@lwJRo3f3N1K~S8GKCRc9TBPBJdEgw10|PC>~OuO3{jog5bafw~pyFW)1y zBRG}Pi_O)nO{EENaUzeYmNX;;ELNK4HmCIklTw>EFNBLkhDjM%L}U1T_h0N_HbA5P zc@Ed_ltV2Yx^7$4Uq*%|y`;>Ad6$t#!_C5WOFI}pXtoefnYiZ-e&<0`m~_&^iU{row==$#?c_Qeqm0_jKrH0PAoPleTnw!{ z{rp=xjt0+1aZV6O7%>c@HNU21X7sGr_zFhZFs~TRjHjQ%73dM%MvC>tUlSiV1;e9} zhkZki`iei(H$#~`vm6dncM7)V9KfG>Kjv20&pxHTq!duXbjgwpgq*_hKn-?$nDFdL z%tq*o#z~b~`eu{HB4h;Bi>fg&IiQ*YXeT~oRZ-5Z=1?7olbiTNzIUS)M7Vo22Bs+t zX-lDY(XgO#%4Q~{L(NH+4|`KzEVoD8Nj6%|DHs=twBZMT1~o+f1V)fK=Cu0=?AzAV z;(oSnhnuPbVb+CblnYm9OuR~k!MwZ+iEi3bCEP#!nAd#w{v#2_fZ=cY&Vy}W`&OyB zSHUi#kIl9?IzoU5Ll_n{MEsoWI8h`O8Ei7)F+VANBE3QXuZS!=ipVq|BGr+}13>tG z8Yrw*L_RoNu~rbgr3jo*fhdN&K3Xtdthp!`7GhuwpoyYcSL}f$KZLza5e6|sg=Ljo zxKmE)O3W(wa!Fd(jHT;Ub?@HYLLiS`7h+I93lGPD!&EDRDh}I;DhA{&F089c54=z= z5kp%3Xv8Svi_Ao&>2Yd783Vv!4SL_c8FGmoRMcs}!F`dYXV#apFzsg>ut0j5?_fw* znvG6}Vax`B^cuj4vsOW}Uv2yu))k{#sS*ulRS^Nfd$oYI#YnJ-?vNdAkJ>(QKq8P=&=1Ef{hM3Hu-YGz+;E| zuM|l?N)d9u=4<{jhq7Ue`hXME;_6Wfs^rbGjyy|p8^X+R;c+f<>h@N$PxQV0>@ejZ z+Z@4d*{sdM4wP}n!@5W#G#3hIGx3=eZa$ZO~1jDTfXZu;vWp)5^LE%M> z?IjmU4(H=61g;G{&o9;$MwpvD?taT3H)PwO@5Dbi-_d5X$RoTI-D$<s((Pa0D}< zo)qW**vUUIv(8DB&w3bOC&W239lP}H;_wyk(`t=;W01%ZG3o>8F2?sigCcJ zH2d|cKXxhvFMU&x*Go+~vxdkXdP<4Y#FCW5=wCzhX}-QvKhO;?1cRn!h)TlC z0(0eKq~%4|#xA&Zzly=+!qnkVrD{DWxek+|Fj9+H2rqEg#1tc=WW5*>wU*4T^1rlIzD?$mAx4wM?dqso~>v%Jo0;;W`^!?ER zc6neD9Dv>^#uw^uu;l>cPXynZwHg@Q9=9e04-eHz{<4eR@Pk z7NW%mUdIrqYIrP*y zsKMha8z}`-a$)KK29tEfK;@_~X-&|k0t5~8p=Ur39&sJ^Xc!3P8)>jilfOniysV47 zTs~rt#H8=bWZsqjZKDIIxtSk9RiD|85^gR~3*e`}KsFTy$#rXTNz4K0>F|g!DasLm zga!Czq=#roNdzpA2)GHW3Mi7+35py(zPS!0C>^wZVkTgCA#>Nx@KCpK`~}M2D4_fu z0A+?ejI<98#D?adNIs74J$HB_P7T=s_68;lI+j#rycoXo93w}ooloJdpL&^t4F%H0 zX|4uI8|fvcO*PfagYh{pDADOTmLfq!lqFk84;w?#He;9Yd;lJJgXHS6)(E>{h; z=66ZP$od!MqL|LWYLZW0!y%M6WKp0TAeQu<JNmj?{JT81(8>tu6x?YW{t{gggQ zqJ4rW6+lQtKquqJ*M!gW=hrL*7f}KjpM4c;oc>Tg0V?|;9dhVBtOx5!(VsczrlbG3 z%XEiV5_lOi*P3YO0-@}?xU?#YIpGs`8SFUB^EWu4_BZw5+?DW`5EOQ03@t9!{bhj@ zD%p3*4(j({$#8{<8F__#q$?l%#5Ck>nZ6S>)H2w4pl3Mr@wqiJ4|jc2%%1hI3tJV` zLg-)}+4E3LYo0&D7(_EjpNsDBjB7AAy|I@EaL^%5#k1BDt>48u=TSyeuql46olSK@ zNXX@?EnXiW`Q+7LiKp&Jh6Ts^o4{JZuqP{;YYXD)Eyo~vupZ-N7bnzR>4By7LwQg~ z(t5QZP{{T)I}I9~%*{OQm9t?APjGnlUfo)#-$~=Etxfj3&UO*c~Pa^c3V2@s*f%L|q ztD9M<#uT&f4C4%eFTNjnrxm)l+v))p)L2}BX018h`mTi_iFO)eVbcUyWN0oHjOG7? z$OR1Sp2i8e*Iq8G(6cW>LK`YFJm3XtSpB)wV|nR z3p4gR0kaOsfA`l!ZKpA=m>d8ZyZeoD;OZIjDGl7QQ@9pYwL?kI@S2EvP%r|3v+PwY zO)EJdItK7I>Q1un0B_Uqh8UP`rW{g;)Wv zzyuKM*0?Z*vBHTt8P%OYo=+R14eDE}G?#tn&MZ}lm5YKcs&4p(IwYl1gh+t#gUQiO z_8nYbd=WsSY4uu|u#`-Do&l#@{fA~vU(51Hif?;)jllsUnRW+|?P5rZR_!v{Qs2wL zNIe(d8}J#>@fT#0b20`T`SjK#1Z0GsDg{T24r4Chqfi*IeGpi%ur%#^H##b>S?}i& zgVWXl7Pdg2B4vZi-eTx)qI)SA3u?G2|9$hY4eaJG`pYT46)~pc9Q>`K(O;qqX7d3qI6HG#(v4ERvi1>UQY2-3T9BP zla#)SAaOmAxB}4rf77?F(FXwfasjU(UXV;XY$vXP2rJ;7`4b4wF6($;&9b*Xr&PeP z@SdGds&T3>gY!Y~Y4l~d)T2(cTUb*!bK9k`3P{sD1a5wP{FCJ~J(4vjJdME@4}$aK|A8 zOb_i5Hn4_X>DIl{4Jj}NoGc=w0ZvH|Q8E-r52Chd>7lE~+)YKPQ&tZ0@0~$YQZ`4q zq(*U3bS8%`3Q8~5Qh!$;uu)L=Eh}`d6@{P>%J2r7@7KkEJqhVOf-c3a_TY$HM1T#l zW=}Vb6C|1Kplp?l(DWK*avz>2K!vLw=P%GCif zHP%T(jEJIdqux<77AK2E@RP+b1rqNo;ex&qMBI^D51h?JIelYreRW-dLWg(e+68rFyPGo%;Z z$KY{ybw-&z7;qNBYXO)kEA+_2?~Dpiv&m6S30ngo2LKf?cO2S!bWIltsBUUqwIpMM0-@>71f0+0~pM8-l%;3X;5kfXHn0vT1e%oSvn4eunJ?)O@n#c+7|o_rcS zkdKFE$5nIyTlzU3sJE9xPdsYCfV-8(0Kad}v&;oSPt{?jWcuxjp7-d1HuWH{fd!E1 zH^@PUtW%VJWkj3xxJX42J%%g*cRszyr>K8JhBX4irB#4~w6Q zW&?X-{>`WL08}GGoPwo2(gEp5DMn3s9i}id-T=r-inRg!SsOyned{7RUzf}#iqM0O zQb9)*0i*>;ZUtBId(+Np26$kuMb9v&aw~B#YoaO%DQbu24qSQB)laU2${o?9jn}YjuDEf>aZq^5~2Q2SlRaw7Zta0S&8+k7shu>(7#Cv!o(RQ()iFl_HiC9eYh1SnEz+0NEfFp~}cmUb0biz(sr#2by*4$wYMkL(6w zqNvdHEKnr@UHX`;VMo-kV<6Zb1-1{wg@HEjrBxJ!nHo~~(*bMBFXB$%H&ath+E6h- zg_)wmOf&7D&Q$MBLS7$}-K)6=1FWTds=Dzh83P>Jgz+#AEKUiocQl;@Ds-Rq^yYbg zP)dgllC*CBUWxAEkxr+28n#2*!m0Cagbc=g@3QVmbd0X>S5f zW!J@xC!r9PBxOitI*O3Y2^o{&IEV}lhN8^#tU@6vPKL~x&M}-)G7lv~$5g_JOqm^H z=GlMW_o3l^p6C0n>-%4q>v`YKu=tC8xBOb;`Q z`l+B#WAm%Crt3=3aN>dxrkR}14&Ewcd{H~hq+_WI>btgVn&@`w)?<(vVbf*wG8%N< zJK%!BJ_1}YNG!;S*<)vPJ3R20Rgy- zTN%saJM)s9-rI#?Ets%|k5XL6{qb&h1utb>b z@9C4!GW-EbfdGuWISiz#tWG&?XYXj^V@pJ4Hc&CP;IfY0QQ!xmBo$k*7h3?ovt7T; zhwGO_on47Rc-+^X#w*ce554ME->N|67 zQG2&6VLbO3#2p=+^~1oz1H5mSFHqULp@sk8Rrz@GsP#6sjkd5I^b6Z?B_+*L0WKL# zPTzG5w7E|*o4C@uFS@Bi9gvP`z?#3GWvEslm3s~M>ZHDt1()SRx*l!Xi_Lf(U-g#6 z&*2h1PY(M<{{lc7?-xBjsAKoN(QbVosB68z_MOW}zoNA(BWRTeYyLs&0yG{cQO0Mb zF5PGStcl5;GLr&^8y?b=IQFgt)Rzg5xO@$twK;H&M~Rfs4{&3IOpkx0&)U$}p3S-; zlQx3G&+m1jGoMPWyG;bXuMHJzd@yvT&i`&sz!e2j=D68{EA@s_*_}7ri(B_RG^b*7S9!?&qAP1xex=e&9dN|Boj zqq8rCO1>mC)tq@ZTC#g{Wun|?d1H9m#>Crmxyz=EhGNKM{X`ml+nRf0-P@k5;M{lt zy$@r#LYbLSsDJe8HCF3s)Z+DWGxu^0V*dIVw9ckc^yFT1em&JUV6x8F|v z9CGDaC+W<)?(gH=x?5-7StcdtZ0~M&DPi8Zt9K2(3(acClS(=D2_+ADLkDP}bMs9c zJ4s_W{~p8n?{o8KA}aOKJZCoIl8dx=J(QQ0N%WCs`m+o5mLkiUNm3hX`tLSWZc_j1 zX}U#Lch_^!aeq`wRv0G^L71HJhr851?;nBMV1FGw&#io}m3l-X`)aFN>1D*>#<;QS zDgCr_%MA{dvMn>;^m;otCoLs??s{GpxBW80;q-V($Khnx82>OeV$oWT;ym(sdReH7 z)>Pi+xA>>g<->;W>SCiN_?M4nC~yy276WDEa$}REP#bY-x-llGAD0YlR0JPKPdrPG zX_=$DffPy8J6HTsz_t3eduBei4HS#R@Ft1nm{E^6kHX8uUg$icDDGUB&0|E=^Wlcj zfy}q1Vzsodf7t&jl?ml*9QEF$=|EjFeS?Rz*VExv+Nt8xl>%EHAV$0-R2!4c6? zj=TQ1yTJLF6RB~aJl=*l)o%nfhDEeum7{If4(hB}i8~Ywe=d&?hT4_iY~$pXVueZV zf62B6Y-i92J~Jy40UD#rAYCo89REye`rB|X!<0WEiN?bgHt6za+q1kMi<`FoG-dRH z;_|9u;W>wl;V>%~qg`S@#M3Xemby_n*^GU(gbn1PU#G|SEx`^F#Rmu^TP~RTT$w$} zVWyH4%Ih^0^fRKaELFc<0O*bdL9|SeVBYqIh!a zwD7TV(nt`{8eyP0sf`N%G+cV1TIllSX{yi?EA;1j>7Op**kbpeP@|~Pm<`&NO`K6^ z%E;`!r0KMz8T415#7tJ`3^h~!Zoi4yA7%ot(R-k9y>_SV4o9F;sKXI`Aw z&^Z!PiJWvGZSmhnRe$$=+JlEq{{osg1T=hJbft9Q#=IfC)EcP{KcZ9%7wMQ6a{g1a zSF!hV2gvPz$eVqa9GIpW=y=|&X5iS}NY^vW178iQL~e)`gu!BdBvpqMD^1e0BXr-eNrKqN^Y|I(@tjRL+4 zjgo7?$V(HNkgN(o{M&-UJlMAv^>YX`oqz9)4FrPaP5{BE{uB&c3J@>9%N=gU{d>ND z4|JG%pf(WymcI5aJ-&w?pGOr-#;{N&nE`r7Z(7?qnDE}WpaYWU6+@A!x8luE4dz6% z9o*K-Ot$Rw?~SX^9gve=a_2pU#(8xLr^k)TBw_H&)Htjer#7uT`H^V?7ZcNP4f zoYtQ91x)S)gZ&bN{oQ}X?0*kLOJP5tZPvkU+R+O_d)fl%c{SOaptao+jHGO0fguZ= z1~@(4xoYTiQ37trID2B-inhCAe|JqKb*?_3T}3gk?ScMEQbC6ryx0Z9`}{~TGRz}k zd*w8x{%0V_upx1BC&Go6!vF7v{VyXyh8+(ZHX{###u;250l7`UQ4l-5Al=$+H)M;k zNrp+l5K!B`7XpePdq4z<#6${Be>w)5kYdth7sOweUDQy+7gERt|9eQB-Af7s z|I#SAPvgjJV9#n=paDuCBNM7ME)7_3+$#m!3utNZR(#%lLHg~!$qxj9tDlh{y{90;&V7i zt9$7Ny2J4~#s7DcIpucmjt8=RVVC&YuEKZ!Fqtcjw1taVTU-eu+byI3y#-{=V@mNl zY0~m((%Kv6wR5Cy2hH!aHeq))=W&im+W^%*_(YLOtf?;%A^K^ zC3xDAZrD>;ghTvG7p=4Q(cIK+aDVgEtS-J1<9go%LIT6qC#@g-d9Pap0_B%~e z;{t=-!lvKe;Cn4W5ZqfPNQz*Sw+L>7% z>9NFD5?KCR=A~owip?U4EMJAmGAH#~-1n&>7gm_E&a-SNcK-+OCijtE{F5xh9OiGb zJe?AxSGdKN%y(_m)8B5KbO+FtMmc>U&l8UNj_>v|ukHNHj9Qu)rp{1v%d3IFsFBQMyH z&kqu#nk{k)@~cs`rL8VXtFQ~m)OnfHf0I=(ncyPtI`I47og2YuAP4 z$t|RMZ;K3-8a(|*9pC!SIV|_oy3u$0wlO}(jJNVyRkAI)atf+z!RyrqZg<+`@wsxG zjpzyfaO{nMCZs%E+V?WE!%$%M)ecWiG`9(&>3BEyF2Ad~Q%|G3bmPT0~CG_iISM&519J6OX>se$F%8QLASctKiLI#oj&PjUr(tqAX)iosOXa zz0RDvzW^s#BZlN#tOp{q)4y*C(W~S@muVJNFv&5^vo=$dB@|V-s2}~E(|A%L;r8u6 zv$cP^6~B599sOx)<~3F5PwH1n^ZTL~z`98j_$%)NBfTe~8H!+DTL?A%M5Iab+5)K1 zILWHETTy@C!2(urQTF!=_AT*ZBdml2J?PfQ02KhxNC?ua7&Vu3~6B zhu_NnGlA&E4HG5Pz2FN&f~eN~Oa3IShpE@lSH0LB{RG1J=O$YG%N#7lS{#;+y8U+& z0Y3hA>Yqe=yV_8}q{=k!|M@(KlTceDtKa{K_~bX+)a?HHhUI}!|{!c8+=_184@6*_A+wrsGLT^52C!7xQb~14P z;}(O9i_9%3v5X1@RRM7G1+PHdg~8#ne!?ZAI)#>Z;_p1b21jY2N9Nj{WnrRvN($P- zI`gTD(VO~RwFRw&%YkZx>vUXkHpgnL#h({a=$8y`-?;Gk3#GU-LH_*m7~#|?X4MvB zb=!@)C*6eZN?b(dMBZEBdBd}_hG+d+*9;!%WUF!#ol6%|HEndnvO-IdXah99W$7jc z|F|eOD`%k7_>!bHPEr`nJoVLdCm$nOs&1-~NE4Y%f7jRg+zv*2>q<$FDKU28M!%bl zC)CST1toY}Ls_J$LK&m@_9+h<+a&6y`&fm~k+qPErTBsdpZ=nFhI)dE!A@qjx5r(Y9?UAXJmyj4Bc^2>)znCizbI&+rJ>MD$ZqJ5J~OKN zx(Mkd&5-7tlv82ocR@AIC?e=!$)Qs#vFP~ZS{B`yq7jGZ?g7U~DKcnmmC2mQ5JrVe zQVd+#R}=}e709Ls7^9p3M=rzBdJCu29HLsmP*0q7G5#Tv%|Iw|aAl)N3o(qa)LYg> z39{oqMv*D(e8&-}?H+iCXQ)f?D8Ajk-p88m-Rv7qUV$tF3&rT@rXA5SPnK$Lq!#K= z5SN}H%;ln^;-d@qe5+o|vy5XjGjH%8Rew+EBhuZ{=a6a}!{T1P z(u7=m1S2N%Motjf-OgDZi-03OpFFAOHBa7Rm_J5*-x5WoU|H|cT>s!)L-QVt2n}L0 zw+WFWKBjUOsUGfcOQpxfq`Vqm2Cns_`-bCvQ zU11Wbl!T@1s=ln%1!Q#WS`4nLhUNNgN z;p?C71sO9s=+NH!>a?Tj0fGj-~I=>-td)P5hg=@RVhfLkdO*_jFt|dRTNA zd!FHW7WWtB(bVw7_1e7H*FOKInpRT{V(H%Zv;}pKUTiFN3x(|FGl-k!rezjons3DC=W{0|)Nk@=Q zl5zPBZ2i*MOV!f`nIDVtKRQcWuQ@loi-+q>c2I9R9G(+x?71ogIlePF1Y-L zXrUWjG%C#oK4-=z5l=8NqnX{&m*h(InLc#5Ot-I$=xUC}sBkxzvc4Pp=}2^qxE zC;T%@SjYy9qVY{By+et6{H6B9ONNCnpH_Li3ONL)1o#IQ$3HrkRreqoX26`>TiDTJ ztcZ98GvY3#CdVk}>y1wAsrlUKMY12~@e<|xEkq_hlyrxNMgNSWjE>eZ=ZX_sbpDnz zoMu$xpfz>cpm$v^*q#1!Zl$>8uxrk%C%So0biXNOb|~?Uzib_UxwK2p+*pIo)cj6l zr?u{I(Vj*phNdQNAN@dqZZi=~IokzElb_Pk--$okb#d{hFHb0c0-aLnAoKrxp~?a1^y>kvfpAj4p8ZB!2W* zZ&A_BdFK%DH2AYi%OMvRA#!EXkKli!SC9|Bg$}M z$5h!F=P51Ql0?kWs00L>q4eyEfNpOVsQJXxrFzY~5n|P$V zn7XsL%m)W%i5xlceZ=c2&-3)j zs?Z^%QbnlCU^QlDVCmp(PbEc9%d_w5q*b66i9(?=LK#hulH669c8=44lR=gWiq#k3i@r)fUk8N(uz-V4Ca~Cm@ zu2)8$HIZ)6qpxX84$Y>-vvUTvv5{qrqjf|Z1BRGPV<>fPb=<)kat6acW0Opv}mcj@9ZN(Ysf=q zmBZe{Dqj5nsrc-hb1*o;N`u|vffh*Fyg6a-fv&GXAC9o9yed@UPN2-=*vUoEjd%fY z5E}z+Kr8GJa-E-~ff}6{gKG5-{Ue(8hankdfxMGabb9|;v z64PDo%4OD~FU^(D(9EdNd#Y~p%IF9|lfl*#;WO05eOai^3}Mr2X|(lcxRIeZWm9SE z;rGq1DRP0Nl_M^}2g?Pz78@)k>KGFWUfyqrwH&4AGn_41AC2;;dd4Ji}mvU6) zT2%B2AHnr72T`%SW;=>ZbP?XMs&4*t#%q_4K+j60^S)2#&9Hv9I_!GudmFOo2(l3j zG$Anb`{1V1ih`-O43o8q+ynBIDBSu%#^?yWk#>DdfmRZsJA=@jSZqEhb_j*9@I$FE z&+1UpnIb7k6RE;ee|}H(MWfEOR~JJjv2=me(>Fc_4Q8U@pny#YS&k)KD0TKVmVCHz zF;}G%IWtGpss%%u^L+=;1*WXatSK(y^7>4_B=p zt8PF3X00zVFCiI>ai2bU*8i}?QliAtj#B4DW629H4XWbQ2(xSOlo8}I(?`dpnbMHP z;PJ@`0g!g!Cz8*NXGOeB>{A1JThB$lP6UGy=#tCfPfV}!`+4_pUeJKY($T#DiI2_Q zDa4C|WCb6FhqDTVhHJ5+0@@hy6bzuvFqRyzO`(P6P^F>$OJMO(3iJ%HBxJQG8dwr( z#R`xvBY7^wJeLt~eeeNB;a8F=s`#iTX4jygo~x3M)5Rm{907FRdaP@7tZVAvztSRn z5WM{Mz&fH;tED}wSD=kVfYsz9eSET51mQR>=`=0*Te`0D=~Jpz(CToI|5CtI%X_^E zcSun>Z6Poa%o=J_O5}jR;G+O;-b_Z4A0fCIdjuMLFs+MJhmo~fP0>IICTRfZzDHqu zWqUC9dy)X0S%9EL$4P?1$OF)Xk%u94Cv77yfP}nrzmS)TzXu+;einKlcyv0QcOVIP zcq>@*2waQR)Mu+HusVm`CyeGh=(V8df#(kg3z}YVnqCc6!=4(+A(_GS(J@GMf9RqG zT4|&)J)~b8SO{R`(vp0PdPFkTHCfg*vMvF>n%9XpDCq*BnTeAJ%9|$^QXYN`bP$LJ6Y>{b{e5yUW4{Or$qujjt`pF zn>R=>Evl_)!_)HHOM=fG2&km>Mmx>k7WFCvD(s~v_R^C~G_{11q%YOd1+vlwjuoqi zNrdw#oL7ZS7W>@MF{(L|S}C33j|sgx5ssj7x76K&W8kkPpmLht`Ydd0!2i8Yl%qUE zm98LR$CeUa>eQ31$vJ2$M;YTR4FJ^o)$l3gM)VvMeysvPRwbVVG4}P@WNa^pgR}qg!>DwMZ37gCBWx(Y2)~mqt8>4lL zt1`kv)+;>VlvdJco1Owg#9~WiFgLN&&5ve}aRkhAvo3Z#do~h2{gJzakskq@;0ukG zG2lE8nIg^JW5TjfV7c|6FF0^RxFb@#r8Y@8@OAP+t1G6B-{CpK&c{fDFx#OX?ATYY z0y#74^ioNQiLSf0P4J`5?!qBP2gGhXU+icj$qr|`@r=n-_Vh3 zXAwZ4K}Lxs6~~Evi(N))MV-!Wqbui3# z=oH7>vj9b1Q-qC+99Vj8;{5~=LIlCQh`rn+z1+}$;V6P zSuAWjx-s(A$x}@!$eix?11CgBdZnGF+5T3yvGjZgoBLe>*!&i-;CE(-`%ybkbpNVA45 z$c3okcK~Y!C`Rdje(&)`Lmq<2pR?h`(ZEx8yK6M-wh%Hc({EqKi;)VN7Z;*#{Pcj? zw6!2B&+6rn6>inUVJ*9wlPP6}r;U?*xOI8fWNcZ&^+4CVq8y}MhFfWlVNSUBda;FZ z&Q~v7LF~{a#FHDPk+iXTkqqkVtuF-zQD3n}8sec>_m&i!ny42x3|FoeQ7X8ggRWBM z@O3#I&z8}+Qr_5IZx=0s6$%p3oMrBf{;s~e36CiVk!uy&!M)*T*Ow5;uzAJkpcT~ME?fVZq06Gn~X zK}rYQ3*vsmV=z-{odw;EClcbS2zE)v zN5#0Ae(@wX|H(*_d6zDnk}!dJ()Kh$ILNVl@k}7lUQ3ULJ|whb6+EyMe&D!O(_5Uh z{36V82A%#08?Sr-4R}nw+95n))$}SHgtIje z*lV#Jh1g(_4g&2DGP*nKB63>T#pz3U;DFtG@UucJy{aAIvgT9fTRCKkFToRUn7!vs z3>ITQNMh6)>Aw87iWx}Y!gz5EBowC_A5|wa`na5USRPlJ0se8)Xyo8$ipJeKs^aI> zt5(zTkUhgbleOgEMzTu-B+gqOvt$RkKvz2=4~d(zk%m1eAD}};&;5+wk$PmO#RCMy zgh9X-Xr!tl5zw!XQfOjju@KG2gBvX%CT?7p$Gv~js>+Aqvq7fAzzcWhPuksn{OP`J z4t>Fsh#I>tzeYWNr9s{KY^-{$QqqBz{BFc-M^X<$WGn}WZLDWpJUGmpc&RLtkAExx z8*;-aV=8la!XP`-B0k?LFV_GZCwEr8YnC^Yr;W+dY|Y2UhR*V!vU79JFIyh!X>n2V z!r17HLPj*RQns+-5E|}QWW4g?vk^qiSGw=f83SDldfH&<*#1x$;EPRwI8*^;f+YsZ zka+6oC#;MH89|URkQ(B`^x8izHv0qJ^oD4rveW=pMFEu4cTqE_*!o@&$QJgVIRezp z$Y%xUALB2-3UVF)ZNK_}q$JFJlcf753d1xY9ApxE^+xjahO84t#fGneXzE&AjDF~ z-+ygSriqmz!C{;7zP(BZklW{}8FD?}FiyFs0zf8iXHf-nk}53gI4Sg9Q{vJ&L~`CB z(fdCy!@VG8U+oJ_cISCMl7spTg9?)b1z0ONXsw91bD#ke_-OuKTPXF6l?#FrI1C|x z^zAAr7pVL_pY7~(Ru-1WarzG}&JbZXhtE`k>=)2OYv5jgDF^l|tWvT2u@R(H&lOA# zPO0hQx8MTtGPBd9NOfqw!`68CxcbaTkWo7wAJs+?dw-C80GtQd9v_w4GIxlE?pSlm z*s|W|RvO1U^>odqjIGjJ#D#W_4yYo8?obIPT){QgkEwg68Czmc=v#psDaN1SddLJU ze2t4+70^9%Z5_NKI+k4MR%#uuO#EoUaF25x&Z^GjbcFVW@3gs-2*yA~D1U*J1Taaw zhy?6&u6~OTtb}&K;zR$d((@W3KXyqQb?loPH9qT=;>9YcIjjkR(wi}C?O-=C! zf4Vi~%WMp@Zw^24*_`ztE7`2uT+N>wmf2i?vblu&zBarf@!V~7cIqenV#m<(x*x)4 zGhZf6W)ob`G`wn}8$0Wh^TV}p-^QB93jJi>1~_@Y$lhaOWL)!;ZMCP|=kA#2=>c3r zPx(7F0>RnMsG!U_-nv6Y;hDeaDpweO4KEZ?2)mF3qBGkR~HZ{ic z=Ne{R0#(e1dN#hxtS_4&D$C!Q6&)V#UCj8jxh%T5zH(=zhiP-Td~;dAVqMK=11FPa z6?w{o|6ue#GcZ6ChqKd>rWqv62o*cRmD!ToK+6<-0HBFth zJu*AF+gV;9%pK&b&@bm-8zvv)RG<#+R~3{xZu{(0VGYnJ|Wa%$R9FatrF@_jy~ z=(pe@sUFWR2h1PQrmy+Qy|z2{BTMa1+3hz}&L>jRVuMI?z81<0KiW|v_md{MJki4? z9+vV`U#HgS=nYNj`lEyzN1%hVDply)t`~bxzPPFVleIdz5ARQ?0W)}Z{PI7<5!K>4 z9m%7t5{@#A4p7>qo-2M1ZCR1nhbO&08gCkI_f8(`!s7GcNrg(iA9^-IrH+#tS;QS} zD$sNN)W1*eCUIPhBqh0c{PwJcJ_)z@%Id&UnmXJ;NE^{2a#*sTK`_E%m;TELSa0mI+^k7+k^viX{uRs&cCmHq9e(d)PzY}^n^~jlw z0(+8%kSAX=6;2d5Ls}IQ7e!&o?o;zAtv*fz=yB8#`t(ZMQj3H-L8@(;7EivQ9TQ0l zVr`tTO_(`hd%)pX&D)+^ML-RUC&OtaQxEA>B}_xFpQ+hihj!BpKb&@4qFB|F#PFeA z-wHv~Jl+1G=fn(w8OO_BkHqWwr78AevtC_TO@^NRCvtU(Rc^UT5*BfDFpb9A9L!O$Jby9jydRyg#OsF zO><}EIMyompCplm&6>At*)0HQl*Q*Gz#e#Vvjc?8FDqAIFrNWjvkGjo_E*EbI;1>7Md@ zN-=z$uK&h7C&ir36vwk!2_Y3qEm$}YoM};O3Xzo2Aty0rQ}c2V^E{%^E50;zd04@f)de$x#YL!%>~iqM|59*sGo!M$tv(^zR$xQwjf& znHe|A;1@m#ZjWwiOR>&*EY&ZaX!2EzKun0**;LAKWAtHToc@Sm^p#JdEDGBAS%ds3#|aoj+7LNgc1}m{$hSc>=9s zx7}_ro3@~_T_O%2E@f5=!jTEt_AFES_(;o-lFf#Duvx1G$urI&yF1hZsru85l3dxU|<)QXdcS+h8JtAM)KxQt3s@|J;yMrc3k}8ifXQk z%#$P69Cg{G)-Opa2nMH!h4+6epJd&N?=hoM)a`sEXBZylfS_Vi7rz)In=5`ZO>g!s zhD_1Ka!>Oc-X906PBlw&TdB0t?RP91mQwXE376wX;>Nl+E&T<}O6q{K;u=Oq*%0i2 zr!alyeY~~qi++Qwdt=GY)Li_Z-(5RJl37K2XGlH%e&AH6&Ou@2MV1$<98S*mEvYQi zamh;d8ZrHY-?H#iLM8FEyWTxj3+hq%{t~ zNL>vtlE{Yb9htLbI}2hONY*okHLzE3i`DwlI0vsdhfd=V6^2fifw7^DOhh}(4q@vM z!}dwKJywumvX|V_)hTZRM!3FP0TXWW6g7I1_X%>)Kmr6X?Ldc(@0`3A5*L$ChTqtC zor@h*C_688)WVon7m4h7C03JsBZr*mJM%j%_jlULC1Sg7n@N%;Gq2i?sx{GKlk(!0+^?(>vcBKGIDx)^wbkjO zdG;5S;-LF_RJvu|wGS?RTvabM^Tm#;swI`if)Qq85ATnifW z4tdo66zgPjg18!{9wO5Z$n1TGOR2`Ik=oLx;%M#1-p$DYS+kx#yA!S9@- zC?n@u36092j8Q)~Y@v1ia@zFDH<7yO_p+9YV^7& zcpt{6y7e~IC6DIA+S9^zdD6XJsFC-{Ziy}j?*mTGcLz>+<1_Wn8A%^s;!blFf75=V zYUbe9(Forw9w64-3$j7hL#oxVfezanh&$fyIZu zY{}1^3Q|Va%3N-K7P^J+q;4{~S_`l@s40=piDPsQH8`~zrn$A_X2p1DmeBs(*hBxH+NNS!GB>7dH z9_*0<&kJZZm9tAJ1{8ez^uEpG@o{k}jdVQZ^o)T7>De_a zBr~78>)xnnZA9;Jw8zR$y?P~kP8|>+x}+M68}ce)fhxbM9nBAW#)T;m+6yHs4tKCo zk5itz@73|LduP%QaN=SZ9gOOW_0ds<*B1cggW84=Hr?~W#ADAJZg&ggce%CnmDNT# z6kfNNDkC@7g=n)*{Scr623`XP_%Kp?Xfi#UJRd!t6)7C158X)*Tae3(f=Ifb{x`IX#>Cs$1B>ZOQv_2|jXIyF8~bPTScDQk2sAG@Y!s35I8 zA(3d=^I8-ofV0_-$L(~lOPx13P1u|^SbLbj-5@z}mAGP{M zW6VI0nfD{Up;>Z6KAHI`aT|=WaSv?g?y;fvY4Rskb9rwj57Vx3woDT(zjL<{goK~0 z2!#)?n5E@~F1E~0F>t_XjauVgNKoSSZd4VCCJKGJtN7R;zTM2!)yu2eq|X^e*dKlG z*;!7=AwL|)7 zDwtMx9p#K=dfe+vK1TOfA9`-2B6vk-?$ob!RFx=tJ*Ap`INy8E_7(cw`H#;iKx0bB9f$@C!M`PAuU-q#B2 zj#wLSXUO!9oak?2R?zp~74|(_5<(w0DiOT}A zLR*ykm#Uc|Ri~)1h;FA_^HF5?gSOIWPK6HEs>e6BGc=Gkyt0=hE1i1#tSs${sH zP8|k&cod(LeCjwO%va&G#lKbJqb2KPrJJ|<10Bg*>#N?6J)Wu(kXHuRC-}zCr9)o6 z^r-0&z(b8m-+L+Rs2{Cb_aT7gL6wL*Ey!%J@aq*JPd$u1;tGGPubN2b2#e;pjwIgD z(o5J+<=HaG5?=00{Ek-e8alwo>qC!vF7Q&uB3Rt3Vj^R*>zKAClsjDKdTspTk$7G7 zVfQy1o2l{KWO9bfMl$c~al=#DQbhxsG=_o+>_052h0Z6tyLo+mr*TKmxLjxKyNZ|i zhA)rB4CjqVjiR;gOohDy+2=_))H!Ag59~~w|1g)gUA0Ls{tZnqacDP$&8qOg$dqkE zbY<&5y={oGX0?MP(p}vGewUj`(;|I4r?U=VJmLmtdtnmVW?h<+uycU%=y_o^&^ zW$-SYg`EM+lA{maKa8ThgUIgMxy%B+1F{B~x81=Q0q|WheV@qN90owaWKvun8{0tjJ9UQWp4-GV|Nn{b&^icYtg;JxxhY^b zSZ`T#a9&2*nH>R%-KU{%D8Uy;0jGphxM#<+|54$}N5T~@sKE0bqy+y_eG~m%eN+5Z zee3?u>f23ATT(>~syt~#nyCA`?|w@p`KLb$gHu;28OQv#>Q#SYgjB6^CeN}#a0aP50@b@IVZLvZuD{z z2|pQUUeIT-!kl)C6V7z_6R5UH;X4ong?K3iGibk|42t(aaDa1OQf3zN2uo?5QQ{od z^b}71;KYC!rwe_n`JjO${W8mzb0Ch6+RIPC;JQt1!E7%+1A|l$6c^JP)%hUM-KI8k z3or}?r9F`KE5~8L$iL==O|OH{sC#PwCgD}TNO-Gc{a$n%-2yW3KjB-U!rDkA)ek`O z4o^Q$rOt>nZh6%4)Y=wL~0mq!YcoFhmztv9rVTM|Zr zCDgwE%dFrDx6wIE|L?p?D?0(Ek0qQ)*d5#QW1J*9aEp-lQ?;Thj+ckt=y!x4@V8g| zRZ|PxqS$g)RIB0gfUY?J)2%oD*&|%=soZqR`@#*|NQ;9+tfJLfi1su6OkQx*(mxdFaJ0t&rd3G3WKufH`KSshWBBafTP_;1nd795s*xE ztw+U3Ii}9uPR-jB*9dka0QZ2D{wgYh*SApw7GK-#9T($*7@@KY%1tjP!4hpT>OUp= z+wfAXU)2o5h;nl8M%7(LdM7P?Qthp^d~=( zV|dzgeG;}OG02`kG3?(Q1JU-HsQs+{JSAKQJbV#?41kgy3?+}oFjdJ^mo2ZKHr)Y2 z5%A=okeb%)-j4d#-)ZhL1s9NWX;<%Wqy2XJTxf?D?jzb=BT|8qKn$ z!q%^YuwjM%pA3tR%K1dTPEPk0*td*P68;WkT)!XJd=LivR#DYJ;03iu?Drv1GtzpN zruqDOjok<-k|BOuR?G+eUw%z3^~fs>FcJz_CJ2EVk+6+OKsEv;+rMN2<~#!_19rub zOp%$QwxkptWPwS|9q)7cKLeu!<=$=g4ZXho9Y}#QcP<0FvJTv`D=R7>(U!aTQ=&$p z0eeyazKLk{RoVNhhI!!MyoKLysDoHB^K~#3Z^dNH4psXh1y-IE7T=oSjAT74aLdmB z0Q+xNLGmz^0{^eJc&69`u5m}0ePd^F2UGYTAlW|Wh}`xs7(hA46$7eZ^8j_E|HMT1 z_21zPLak8N|0`-~U;J`rz`OikZ87bGwdwB3ZrIl@9sD8@D&oMISF?N@b;WFjMGM+j zf_B)x-Ot-1EYRkX`}&bqvPvhG<6fM%4`e%%>TRrao{hJ+YB_@vW_-O_`g}PIEo{T- zpkjmPy$bVFuzA#J?kN9@0HYCORw&bjt&z^gYMmoRM?tj3DmjW?|0hC8D){$GmMw^Dg-jjmhfB??#xF8`)Q#~ zw@@l7dKQw1`lf;}kN%^I{kw`e@GFkHuWwQ#vgdYXo`o36Vr-UFXRw~jA%E4F zYM!ZkVIEY4k;>ygPk3=gr*LB;Y*N97m2_k3wN_;}5j}c`?2|xQc^~4kO5Dv#p`vxo zz`NpQL4>J)3j#9+{(NV6bXtTz-Ytz$|Gg*TQc@ACk~g(;8LetWB!a3ej)VtOibXl< zLStmUv^DzI!5O755=}YaGlvjN{jyr zVSPA_;h%dMVA-jKE^f^w+L<&LjpQ;P;TxFZtC2fp@}J2c#Gy+*zP6p1Fk2EOd{udNLO}OwJcN-zWA)T~oNGj@bxncM7g;M&u1xg39K+*faa;c$T$b zsHXYC9#KL?_@M-CK1{i$8@|f%xOkcS#q2T0XlZ!o>mb;V2uq05#Z3-H=%;w7x6K&G z+CKz^@YxONL)&&8LS7#oQJcA>n%Y)Mt5S3W@84XH1~!hgT}&y7;WJIVB+wvx9pVVPbAcT_mMM4#F`q+K!zbz?4ND4s zBvnLKm8IM%drc>zZFhO=Xlcl&_x);Clrx!3PHN(<7o)FFL=$&GDz>k<$T?}^nTq7@ z;fQ>Bg(4D~_cKy}Ce2)LvaN`oSxs^d^QwMz~eU%UZ+D6zn0Mw%_@>_D<_Pg9QDl zp0PN5Q@Ot1eUncdK?GIG>ImU@fJ|wJxWpp5VPqIHvTvgbJaLA#nVDdLVoN^@_Wp|U zD&6>8lqoYWI5-8?XJ%?-jfuW6@@_NDtBXC$8Fzzou%sh4>-q+0%f>w`qUVXEySLM> zPWJ1)BXS82n7#JCSm$X473`RHuJb+Kn@=3Fo3ey*x@WJpS}!1bU*-G~*ci-2ZwTxj zxj40|P7DUY`=~d(^2{r^j4Thm35?3f<382D6KSEzCiDP%K0oLgijWRr>vc_`JKlHE zt1*=;V;{024xDX&#yZtA?z|lBR2^zQAs5I_F$@kEIq*ga^H!ab)Ns2~m_Ga1T$~P7 zw!9li;3cAcw=s3`SYZZTibP`3`N3u~u?*+L$qQXZ3C~0Ze1TUc6WT`^amfZqw%ToJ zpgH!&<~*8;V)3=O{lmUI18BXBZ?~y3xG=V?jZ3mq)@da;E6~)W4(}h!6d^yy%O~jZ zFq-&?XkyfuYF@jKx3}>^905Fst?hu0*MUQvm>i8Qd(&Xf(D*QDBp4oYyPKiYXJSts zj5aj+ao(TO$I6hH`B82aJ=$mv$W|DKhb>FkpH&87Rym+QvvFoBL(x>1`my)~{o!wG zA0>jF+sA~HZv7~jmjbFBY6YtF_u!!DWXxDrc~#QC;^oX+@T7{@{UENbBvgC~+J4OG z(Z8%m>>Mmy-Sakg*vIjfnLgkB{-4hH| zf1)QwC46*76f!{Dw-L>(yGyCqzF~t?^=V8=LbIKijQSEAJA0l0H|o*~{_0d*j{;Bq zSpI%~x{oyV+R(R7B~x}u#fr+! zePHm>%Ad%ZrQ0=n`c(FqWveU31lOX_*eYP}oMJ9cNIUe?AeC~>dwvN;yd_I_?`ZF* zooEsH)32Y2oRK$cK=r`W+CMADbT~no{a=PciE(U!7BvGNt_3^V&p4eb7bLXBVMcfZlcS6xNY7FdVBX zWmne}owTvbKsm*7%B4ahC;GsxvgNMnfi~&2%6ymVw2z+th=VaU%M&HxFMK2g!j(_o zD3de8f0)fq&~&TdMzJ}@E3`f~y0LQV(;__~&w-}T>$Pb_MC9^aM8)cjwmfdS>9Q;O zsx&iP1us(A)P?GrP6bZ!>fgLfvBJz%q4Aomn~CqzZ9=U$U7y!al#>A8!^NuHb6KWd zB8<00`C1mMRE_-Pslkr}>m{?PBkA>1Q=IkRT&8d}DVaOTm$~85@Iz8n_qiq*Mqq+9 z>-myiTjipYQT7q4pJh?4$A=BP`Ff{WMd}LAG4^^1j_tF}AuCtPJ2Y^tKo)6{k;QEJ z2%Y7}jIc_>$0SjjUvWZek^^0Q4yqTqa>wtNK1_p5fu=myCk>KF}f6`LvaJ7r5PnLI(}!vD?Xq5zJK3` ze+h5SUgx~}dET$*l>5EgBrE%j9d56(T@~TgnNVz+8aJ%AayUy*8zr zi`#}a<=+Y~5k3?LKf=(X!@G)d1vhu7`s7ALxGMB2nRFD{vYoq@cW*3IsogZpR_RN6 znU#qalWH#J8QL?_ZLN+NQo>YdoamLq#WCAknNd1gr6VussOs7;nffAP`DG`TA`Mz4~*5q7$gT7G>J{`k~j|%V?h$s5! zCQ8+ujwDO5K?TdHgs+;g91}HZp+f{2Tbw3_tN)uuT(wPc zR~gNGE*!=4)Q`(RJ8oARmhDjR-JYo&{AiA)9c@pS`^Ns*<{4qfuv%pYCQYg@aEj>qqcf5CY4uVj2%tF6)4+&E1T zOaAOprHSEPv!_kYcKU@Thu}7!2l6`mm%P^&-$laJwY=oB!EC5_lG&T@VlEDvO$=(| z!v?7MK9%GXF{Aa5jB?0fE>H7|GRB4tL#HZ{5u!1-o1-+P{gWXz)gt_fSfPLjM@Iuu zi^QH^OZ<4H;FRs;LAM?U_G6EpbiBe^0RgTKSqH(c0~;5IJ3}A!Bx_ zo9jhvf}zIakEhArNScmOj11q|;Xa_4-gOu0*}phfu+ZdssDg;~@7_$6I25clvRb0v z$@o!EUX{+4rQMTI9q3UtE=Y-MDN?7JF>f15N4HrFJ9x$7FO!7_QV)LABEL$nZJjy9 zJ*+{e^?_VigN%8ShWNBdk^YtkHS?6}T*!PQ6nT7$hT6QJ779kxIO*Xg=?ofG={yYZ zOK+L}2o-^HG+UwWVr5=1{ShgVDFImRa~Q5NFqV9TTGJHsx!Yx)*8M)j z(KEU#h^hYrxl3D84{P5WlsZ{;#+62wRHlC7>e+vZV?Og-W<)(0e7nV&9Oni&D`|D2 zoU{rLUN6c(>>pms?YMcix~Q~!Wk3ujllIt?p(rgm3rBt#uHRlHQ8jeb)}di`C^ z$?G*w9H<7KT%8X=Lv{Izm}4f0XS1S*zY0&S_8F+iB?%8vAigcHpZ5kCej0L9V<~b8 zNfglt`{E5w2I6=FDgbY|PviEt>_(blrV{EjZmq9yt3(m;rs#?dmE_BhVjOw+(+!#h zPJn5}x!{L!$IWx#)XS_f(CiihJ|bz#RrXe4`PxZFVBF~VSLEAcv_y?sx&qN>iFvOh)OaBB981ClH2R6;Zo|T_Q zZlZ%hHi5@|P7yr$7&G!6S&Y-KIH>XyE$U6BY-*yizJFRZQR!rsCVr59*(Gx@+=!*o zwobdM)L#t%Ofv!d#i6Og^DalGgL!W>_59MX2-vm`9xdwi&uFzDi{zy z7(XCt=e?Gc#WCXOo=24L4g#-{b!l4#Oeya6&@F_Ywho0cx9aC)qwZRco#C}_az2mt zooK{<5{oM=rpSBSGeCIC1MR(xYAIwz7Sn<#B6{6b(b^x2dM?YMse`I;mZj4;#Z`Og zVwnGNMEd8kao@p4D6ou*vg*BOzoqn@h)dsd*enqY`z z)OQEADRJ+!*SR8AVWsoj3_`f$^nZHDyvf3d50zjQ5l#hKbo_Y6K8?S<+dn#AwDoeeNd#n;yCLj5y=EJmryN=%q^#yqH8V+~d5Bed)u$CRZfqDOUz87R zrM~GW!=dMjT~^{7E#e3VCse+y+q&K5#XdiP1T+^Ew(x*%H z58CBHJLp;W$q{bq5Op;6G=H3M+r)WX5YyF+f^O& zBdoFiIwKyEMTSi5uu>&P1QBNiP5J3G*K)XSHDF?RxW2;kaQLgv+@oYfPZ1q6@R7zC zZD-XTF6J1xf8lII0%?@_a&Ts13^Cwb&VqB1>iPg|yltgVo%N=#Mz^^705`0whoOMe z4+{&K&?XCaawLv+Nq2C5nnx+E6yy^JiP7fdv3FC$a{o$rNi`dqs$VQ3=eHg>EGn$8 z4uF?)*jT2h>>< zY#`zthZ-(m4Vi3A^1T$I@5Q28WMBKxJeS|6L}ydqY$ZenKA`!dE5YNy+9K2FDA`~% zRI{3?&l5AIAnv%9;Pk2llfHzu(l%@OXpp`Fmku$3yxo>XNYUsfiN43X%Yt*Fwztv7 zu<5#D?G%Xa`4M~-=M>aHt}?_J7~6YI?}!&rwl7tC6_%3{apSs#*=PgeSdh< z6uiI*KL{EAsc_rz4*?Z;qO!kL@8x7Y3eS{uV%n1WEHwYZs`qa9^-K(}M!Uq_pNOj; z-q&1wJLvH-0&0FGj8$?-2>q{EmNu5C>^8%X4ly6rsDG(nXV%^#lL4mVcSE8Q*It=^ zyK~{oO3PxOdcgsK$=&&bm$VhR^PDj=7tSf1m!YaBL_7Z_-ZY<7t$sJ~;Q~h2VhxNg z>Kqj5tAK4dnd6II-n#94?oP9}&M&8D-}AFsny0o0jFiY;$MRV_3p~zOCyO}BTU&Xc zq9cfZ6X(r4uQ}*sFN^14h~c{IIATD@JO5=3*7R>{xd{JBJaBa=v51sbCWIa*xhppr z0T-dT%`*TDV9;qy0Zn%8=Ee(J6>I0n<(D9kSoI-GB8Ul_mlRW-lB7bw8za&x|NMQo zIx)fjRT1dQ(%c{w5N}XHTdlLzY0Jx}&@az-%Xr!;bhVP^)Nfu?05&WuJxVtJ2K6f+ z^R?Ran_=eoMjhs@>(Z%_N_pC!nF_%XsIT<-X&jG!4qt$ct~|w4CRuLlV2UY$i952C zx9#jBTV$_DxP?8{2JepYG4LK579mxK2zG>>GYoM*{jnq?M@B?+v>x|k{Ut4thu2}kb@<_~CRu{{>zE93rdEC4v|h>WyN*9B|FMYDh9`s7%?|!4TJDoFDha+ z$^7TTUP-SSU9yE-5<4OaXf(JA!syv;Pr6)Qm|&xlCRs2rJvuGFj)v_`WL%Ym7_sK> zQ*Ynwg@_+hYTh@%fD|AWXH+-xTn9`W6K?Ae6V@^gSQ{uRrx>*TBLms9jdb|?N`CE0 z^i3fwS=7ytYip_)(II1m2kD8*@0|#RJV&*ntV_eL4B_TK z!P`BQ*h0y`vWS5Y?rs?q=KGLni`eKykgHEXiaVW6^?TNPKs-lA=6vilLr`P%0d2@3f!A2@D zTtX_H=G*LH3)_7qKhe=b`JPa+&9S%oJR9SP)^L8Y==0_V*dz6UA_Y*;Y_}h=%W97#iCU5#QE)IpC|-3>*nxzXV>6LiMw}!f6dimt^W~KCoLMm_uE<> za{AsNU;dp1K}Sa(Z%tH52Px+Ll2(VoIcqBy*Q}Hbn##VJ#tZN>kjoRqb`I=>P3TN24=C#XWr-;tK#TTw*X5#{XE><} zCdac;64(Y+Na6hh;^UdP0n+@nejaNwe>^Bt9;n46CG%IC-zy6Q^WLD`g1WsC`%KC5 z3n~ZNSS%TQER{(V)Q>2}Qk*z}P@Q6dC3uA2fAgy+qp9_u{(uXxo>1S^L0r3@$DpCK zOq|-7CGWG~eyBS%DNIwctK95S?ditS>Uh@8-j6Dcf4t zR|#3wiegs?;;fnPs=7oOCC0oS!c^tM{w{jGCGZ1Xf9&LcvbM?IzYUV;m%6-Ya6B_{ zFQddOg*Cx`jUSK#q19{W4@aJt#S`NUI+HcbRJAo4{|J^;F+W;Y4tmtTJnoJvP3&>^ zIui}?rD|?GL8759Nwa@uO)8YX{A+haOV+`#$<^&LtJePfthN*tc0iTJ{_&HZh`b<` zM6NRgZSF4?-7ol7QZMU2)1cT*YU=@UM<$alN!w`O`2ppQ?N(Vd1rd56T44fc`OwF4 zEn%q4?yBE$G_M;DDxRr%V0eyuDyZaD5)nsj8!xDdNf9mpu}{!sblzY5`t|rS8FYI- zGaDJTK3(TJO9hdcN@Ef|h{gtKCHwVt9qJ#vM8o^EB>gsYOdI|x(pSOVt*_uQj2s|y zVzSS#j=&z-=>MfNsSX&apNGp5b=cr~l!l1+hm||1O zuaR&ZMSooUzcH&=&~3V63sR?3gz-o9%KlR_QM;weJBBDDXgt7af(Nd1eV;Ip!ZH!j z6r2`030u%%tf+JJI`I**x}&tupR(-xe0$HgO)TywCkjfZXic~cX`xQs{T?TNKbV99 z@PW8*L2jvkHWM@d9g57=BVkDvQnFFX$lN$>*{69-082OvfS(Z(2w=pLlEUXcTJ1?G zi_6b;BVR0$dhu6Onz~EGK#rkb0(uF^n1K!#D(5$%q=WPYaF0I`Q6l0&+9c)>xXFWS zxCY8?4r0X&C1b`mTyx|icBcR(V$SO&2frXeO3!{nO0Sjm^JxCUa!z1n&QwN#HuNbR zzC1Wq_BrH1K|~|&{41Qa z^P`$nO4*-DRF;ONkO?Ul;*WUCB$`T2OVSn*j(c-d(}@BAb3XM5F|?q$k&lxJ0X#4F zn~52fTPNp#;GM}I6fFUZ4^t}%z%)4rxp|ieF{WgyrjcJm`UU{I0s+MobBzQs<`B-n z1V0?v2+=qjf|!0CiGzPY+zEaNYOu#NxvISlJT9t4#x@e# zqtCnG2v+|aYI35Hd;qBQs85mz4HbcQY2Hey0-h)}EiRy4_^}OD5_`^nLV+&~Rf$x2 z`h0XboExHm=}Ah3piY(yKjtE)$K6cy4mJ`671J+(8!DS2AaBc69b zkaR34a^c_3e*aqDg$0UYfJ6b#h5qjbUuZc11!Xp>P^+p(b&j(7-T$W2m@pzSls47I zZJnaVKZvsPfKMvbs`|tazRH6ryaW+r)A>vI_Lkp>bM|uviFYI-BJigJ-wjN`O8<*i z!SY0{J_AAou*xyg4e>bpNp%Kq+!pDlGyfM{KEp(;f@K*0AWl?o(tQAWHz#kCIqGqM6J#^~BR@c^Z#VqEw0n2q6rg(a zhzIKO-MCHm_wh)Q%o74gvLK|xCx)|QE{cBrrob3_k^dnLNRcEWMl`u4xQggJx{6Q) z(Jub(!p)=AB{IRwzelUTRD=}%j!>klnSbe)@w3sTBi}mOEKzvUg$t>jN0V!tYtj&R z#Bc`$ix){fmt6ilBB^^yKJcBo5I7MjjPxJz%lXp80fPbd2VnjAC_8k&2KBEW$r-aH zIvwbvlG&cxZqJl2)CXSAQsnhpNXMz9RDwX64ZF5l=jycc^QNl;#z(c_!6(iK$RHy zz2`*YO*#1F)(u!<^o6m~(xWm=N4H3ure7=p7M>_W^>#@*4-2$Yc92$lXXys*UZc zPqt@?v?5K%ZzQ;v66KNSdmJS38}Li@(XYWh4(T2P;WT=v3PT>9*#Q$AmCN=Ue51pty} zWzj6ZG^2QfH3r;l{I&E097~Cd{$)%)?!_dc&0*nbK5cA+E}3|4C@VC9`YR`hAaS;AHY+=4cL39>s2}bTy!yLN_9pl z5JAD@X<+@-YCnF3IzgvK%ahZNt~rhj>a3BPVW5vQjO|N2ifuaZM)rhco3mtE#l}_g ziVaO?AFZc(c-nP8Y}Kwf*iRt1Ub}ZqaL+nb0E8mCoBp>z)l4LTMj!ko5S@ZQ^~n|) zdvHmuj-igUR!fWNvxNDebpZJ9$~s`(dI@N*!Xni`Pv~y~MI#O3eeAwi92OGjydPIx z!*5xoNZU~b=ush^&i>SAe#acJS2hb@>Ko6SbLYE@z~vg#EIt?9Os0{mE(Ux% z9{Tgi2<;LhY`;>*$Rpfg5=FX)hydSvLk9&ar;O481|K|5CuaSjOCxt?z`8t#Vo=5Be2XjAf9Y3${^wsnz zx}7CnncWEW^icp+L5f8{##U%?PH$H}^GPfFt%Y#!4DP7KG>rKYZmr1rk<`J?aKde} zTvYbUB$gDHuIr&s6h@1cTGLIsuYE1Yq5 z{P7F%oblnc9&<79pY%UVgPdQ~(4P5u#%9hRJ%uTonkZPa9ixUmz<;!+R9q_A5@O|D ziem{t1lA18<&?1qXBF>5A8jKmV)~L5Un>TeSSlIbV!mtl3R>$(hh_>&>#SAxr#5fw zcpdATGJKX|5s8pufpS~V^$$@+#pyk8(q8k!m2lSvo@9+OGR0fP!$_<1^q)4vISFqj z7bqpJ;CB+<|Z$w zsfkbABPVZZIChry{4=l-i_}t_leXbysaY|l+l2G(%&1a})ShTx#YZ|}7f_9Qe= zc=Mixpgp{fD}O#eU^(ysilRV*5{c*BR`5Oiee^Jh!`ZRV*@q!0E? z2+tIkyI+PVE|1`?N;111f)$4~&di_0p1vNDuG-*0i3;^SEqJqv`kj3T@>C@{=D$$05) zXc|zRKXqv9F${HX!juTi!@YJcuCUC~5^WQwAC+AHGAmU$6>oT9vm+$38rYg(10P{Q z5QRYFf#JYXyIzYi2YPoWjT;$Bphs$z(UD(9O$vdICe2hreNQqzBr1uL@y{3H$DC)0 zruHE@K33Q2LkB`To~8igiNl}G^#@zc?2X%vPnp{A?;dwsSLO%Ln2}q@2zRp|?l&9z z?9F!bI|Cc*Oanmme4dc!@f(0=ooa@+HE%WroM9s)jyQ*dIOI>#N@@37R)E+v7rfz5R@gc2zL)ZgNb4TK!UE-OJsA!}ZNOhii<` zxfHhc+gLG8@vIadMPt8m8jE!~8!M+@gzp>k#$7CubzP604z`;QcWwc)y}nAfgua!9 zt@l0$hlkq*hodXThufpxfCY4aO1)z%3jJKOE-|BkBR6gjf5(oqYo&ctynt(5?SA+6 z4^wHf#OM?s!Mww{<;&fT-9Fp5B3)1S+2I@P=JQ6&v+%AO&qs7mJ*wMJF-_)$=;Q}d z?`aP=omG)LJ+}~0_Mz8%Y6*UQ8Jjm_T(&*J{i}6wZdcaHlW#ov&i&!_Ef}|Zy7A9w z@FJ1(bA9VxRsj||o(TU(w%Zr1thv@>S6U+BqHoq8;5RNrVeISm1vEc0;s+5IQBAj5 zYb*8|H0nO?!)qPLgKA&O=P2wgw=wEpfJ(tSm(_DdW~FTTQ!Jsa2%A6!rdykmCuZ8W z1!rB;cz)fKJIGJTLJ4+z6XG)a=OAG)=DZRc!^1n+ast0IYdue~gE0HKpuYMBKJmDr z)Zn6C%xI7G&U1b8UWF^(~$JcQjfV)d$*O8#NS0<`gs<^@@4Bdoab}9JK}J zIxUpNm_*0BxBz|Rq8k-NuR!H{LFjj~re`nCGIzK+*Sr{Z{6#aZkofa@BHSsb)G(@b zA{Qzuv?pyV{@zCRLGQ#9$$Y_*Nudu$TB;rfeBW}S`{cMgu%42^2a5(C!KM$Iz!Pnw z`DNXa2oCA)a(_B9h+o*xu!?clD=?^8ErOzX0H6voZwv;OSX8t+m?n?ua2X3s{??or7L|Yv&m+ z7sk0sD;353ym_yc9<<#vtC@*F^g(^&4Y)5d2|kKj6;Sd*8zT4#KT7-OHU+zde3Oso zjB_BZ0>0hE?eeDx++Hav*+1{mArO})>2$N><4ub8Qa1QiBQ-%qt9e<$^evIR5aev- zOm@=*Az_jxpC1;sf>PXH4o;iFtquz7DUPqL(45VGD^bqszPIgqz5AGk6x}&0v~gN5 z?>^k~#cJebQ;fm;L+PpIekxjPrC>G}n^v{0uJY$?Yqjw20`xPLXWhNEAIYUP)9HJ=_VorO znsKplTNGs_vxhWW2lowkcG-(alzU7jUo0H-^h(iNIK8E6p_cSQoEsDJb=G-}ql{3} zZsnA8d?=@v`N1jnFulbK^E6Jq#(6l^ha&Ou%e7uzn?)jt0-Qb)9JOh3Jb5LW0ah+z zto*k>DE78vH;dTmvhsc5|;-@3tc6``W#JJcL3giM+bCN4GIM`SC`#^x|~883me+3m!V| z!7vka(qC2WZmz{G;`$k9wV6jfb`yP^$==ATAOe#UVz6sP^Vx!$0uP;82rLoY$T+5Q zWI7=MrH0}t)(z3pLtzAN#Vm3SR>{o^DOZ;%NuJDe=fhaV_U6v%v^ZbjkMh)x z7pc1k+ijxgw<)Vrx&goEjlIX0S7QERz7+vYo7;@ADzOY>U`#S(*=-&3=$l>0E|Me0Z~b(;Z^-^VeEDoUU!b?GJr;hATFl z??-F((+RDGwkNKit#_S0H9MD`%0^9?MuU;o`;_v$rMa^M_rKaX&WEjtg++DIAs=2> z5PbBgJMo8mFV|gM?@Cqng(y}h>=P?3PAlg{j@gW%AClb2<+Uf>lu*|idr9N~a@gr& z;P3d5IdtZ7xCpX!!)Q!2(*|#DEuz6vAQsx`Uo*Tqu>NhLV_J-Y_gARpjHyVDRMneIOBa-x|HVbQ%=rp4OQu=9gl)I*~1I>Ze9^x0R70pJq-#$L>cFircd> z_#0B&@t+mZT>=#_1zN}OA%^@`GmPP6C&ekuH`h2PkEM~2R_ox>>v3exu*d@&U%c^^ z`SQi91=Gy+pUR788V44YfAJR~kH5eCM5<9Z4_e1`Df{|~*IJh~_0k)?q9UK!X`GQV zby+{1T{^8-7_V3O=|)9%nc4OQ`X&$OiTbJ)V?O#W&NOckS3k3%j-+NvD*+E^^)|GN zzb}#bTH?$|>Z%BP6yZlCp|m|4!CqhK8IUE?0_%L;-rZH1(xIVoQMzT2k4i+@scU4c zqpDIUuXD&&+6p~|bqW~C4$7Lg_z?2m@D46_BqETBAX#||g83$xA+W057jY{FXP3Qd z7qIYrtyP$%k3R)h<+qOB>`#l1Q7$7qb8Fr!ws>!^5uG0xKa=#R%?N*g_?<x6{sUC6Ywqy+MD&aHKBkz)bZq|4jd8X>(@Cj(8^wXkgdm zH)bQ+=V`vk1>DMhbH{s4;LS$oYqVGWT|S@VSL;iK5120{5z_L`_5S(ne%}68f^(fx z!eKFLKxfZHWc)K`>Ql~k9zg*XK3YeSJ;hdCIztn*@Nid_~aOVKxTwg>$B5-d&ftNG7ciaD*RozF>%;9m$tU5gJ~QsHu8klAk2mhN zSFXFpK2xgCzo?FA-jH?@#u!TR6hM0P@YVkM%hT%~*LPxCFajww7Yt8xyHsr)cS#@{ za=i8V%NfEFrkze7N!1rh8R4^t6>Csje)Tm-b^>BAGG^O=TSoNJ@t{Pw6}tR`_7|J* zpQuh{T3tk~GNkRRX(fK5|smUs=R!vBZ&Y#;wzrMRD|e$TJcA+enk_X6u9e zJV@`tJdyJ|Zcn3Gtc>mm3{UCb5(+oiN_bV&jS%ZSHBGZ|B9Gdny;2>5gg*SKM-a6y6&COF0Ljuu`j`#O`& zo~lapqfNDM-pd2((Nn6(*xQBbZM>i3olpD9>NjQxnGxt6oei~SzEop%AMjeJR? z-1}xOo5j$YzijPh{6s9l@XvE<6KDiF%@vso87Q%`wCq%yj?S%;7G;87qgd7wGMDOS zj9Vq=SmatOfI0q%E*HZ_Yv;T-9B7j`_7T)4AN2v?4}@;X2$fWvE%NgmGg^lPU%Z zJ6FMX{Jv6-xvb7yYuRhuCg{Cat;daw?Wv=1nM&X2HD+}2A5$umD@sU~wDcQRP=of# z7eab_a`L%U$oeMUy65)Lu)_`*;LSlgig`Af;gEi>Y1wa^sFL0lawHFJ{)zszvB=i> zUF_a03k6RGenm*+a_jc?otc6C9a)X;^nvQ_T){zGx6!e?ECR6#(nV;WlVQ9W9N{nX zI+)q3w+-s@T)4n^w2Gvi{aSjCgpt%mREXIomfm^U)HQM<+VTFYha;)iE{eUIiArG= zl?TK|n`|!fVoTh8pC^TWy`qql>q?o@nRqbAehxsV+n%1< zSGS*@9OTDecHXMquCY8Ox)gt9!0jr2tDm4HR$q4sw;Oc^jXmTcd@K^_zt(#kRBF3XD>D}>`WFZcA zUXXI3A01sT%2h_{UMc#$b@{!1I()s1P1Y_GkjAhBx%{Vmf$!vDH>oCxwXCYdpxG~U zQu(0%(5DVjGucDirAqko4p8VoGeS?Zfj?`T)7Bq8K%ahNlzwm%LC8#s% zKykWzQgz}~HrgC%QeJaGN*q6noUqI4%0e^-zN3I$t#e(An`YqVd=yZVHSL!M>IYIh z$xDr@Q_YKRhltKKk7gHlCtIfT%&UN$-BaAFNHG%pz92bw#ME+76Q#*{HXNz|9o;_8 zN$AlT(sOa3XO`4g8TTo$iSb<)s)*(}uRZ%SybVz{bgF{N{?X(&HT8OBR^N&9>hh_p zv%RjJy3AYJ%m?`_L+;%Xm%QGH*IbRm2m>`1%ddfv!tyD7SS z6btt>e5Zvi;YJl7Q0gQ*p0?JyFu&avq2uQ`j|+^<#iP*kel^3>A4OtI-1SrUYqXb8 zmR&Zr#$(mm+VneH7hF#*Q5w`vJMX8)LrRp#Z(J?zKB?R3C7{vjT(+L$(;0QHKFPxJ zO3w4ekKC+90CURM86Tiqz{X-Ym$l>10Yo%yS+LuMc@1y4(j=)Z;+Y+ab`F1KS8WrY zzb{H)E3dJE&D@9C->^2r52$^>3MtRQ4iSMi2*2jGcLxw5T&$J)#vhN9nRI&h+C)s$ z0Y*gYUZ|#8cRxvmL2bvK&$S6nZ%=POr&Cd)eK`W_9T&l#)X%McvrGrO5pto7xqiO; z-9;z-N9 zk#5?=3CK)5KD{Yp=2XEr33dwfrO&$`E+JYFY3#X@+zcwW%Nvf-srLuV#4{*e2-CE3DcY`j);>v@J@ zL_h1)+w&EJcJcA=&wDNGFbYL<4(xWo%O}b`gwFH7bE{jst5K_v*Zct3rNY6($PTIZ zeTiw#r)1{lB6|&GAv^^f4|y^0R(MK|Vzn44I5i4|iaheymSIn-+!+RUj_R0>9ajua zwacuyIeZco=h@bm!`y~yxm8PQg7d?12>5u(yX&HqiiQH!-d&6pTnwE)k2H2Z*u-Ko zCGXr3k+1;9m=HHrF**EFB?4joNUS3-QCxc{=&joUwj7*aWvXgEX*g1rO*y#IlbNX?8fMo7KU>%7T`5HQa21%m1(}=Cgyx+jG`?JGet%@ld5ycw{%ZY{P!fh? zXi9iLP=8SvKIDiJGBw}j-e5?n*}qUUQu!=(Jy0lZ)paH6Hh!hgqe)}1Bze@-`h44z z9iLWluzKG`1p7yqBA2+SVXL8>f!1#k0mX|!-FbvP9y>@(Z`vGdu^8>;wJPW7mYR#s z6Q>r|-TY3Ej+9-|8_bMmU5hln6UAuXc#DI>&gi~HF#=zeY(EKUre_aJFs*+B9~I_@ zll$~0T(;akVC}IJrrzfBk?)XhtGb}SDweP(9lYco_M}GJaj}}`5l#yib+J^X)ZklD zhnU`UBLB83BR&_>ah9i*L)$8e0(_%&cAF~>_HlHTOws3QY5Z2Jjh#OI?x*{OgXMU` zG?c*Rgh$HW<9_07 zE}H`KS1W}u!@HXUq(zF(S7_SVUo`Pr2ywbTa}nA4z%uG1Edr<^wD1bE5 z%r4U^>|g%nI>wT0w)_oxE4xhDi|9h5{EJEKqn0Izh)3rk9`k#evE?eo21rn2`#ZATdxNcg4;mYEzc@3J>KRj=L85*ki;n?2wse{iY zh>)CfR(JYYtdm(=NoyTN!BoK2&8Y1*m>NnLwX}UUyl>58ay$1mr@FZ(`ihCRqBa^7 zN-?t9HWxhK4_G?B+{TtpbiEdLQetymY>kh~|ZCG~vj6tOwaFuENKiuo$GmciG0U4x2~YZZce z#t3^JvY1VCQ_AJGG#Rc6lu|u`5XO-AhF&*APgDa00 z_xKq?N_dLdWIuX^d1krSW_4`X`tG{t_4#GJ_vl(qv+Rq&5PH^%%FE*QbZ0v7oP?OT zk~kgujvVeT-c7#PpN|?akM_xfY`s61c>^f7T1cfN;6s0-^<&K7%3xG`8w=>jeI7YW zom}Lo9k=Xb?vgIS#HAZ7x;_`pv_*{uqW_Q#T`NrJzS?WuMsv2y(oWso#lvP#eI0{^9HNT$K4JT@#CNYLKFF!NcUg-NQi~ zKhn5#y;*81{?F+KDl|Lb?Io7yAe}>S@*eU@KMfHjc|6AML~$Y~J^MY4cKUstYNib| zF8@b?AQZ}fR5|3MO4=LvoKumcGC(%4U2tL9bIy#SYbD-Efpv(*?e5~=zM6KYx+d+@ z+X~hz)5oI{9-aGgRt-G%WrFk9^cZ0hI>X7K=gIq)xV+ zgRJU@jwY9bcwtaFiZvrTxhd1LLf#DTx1Uv*LYBgjRofcO^ZbMo75SWvK^7|yg`^Lv zTQBuD#pRsmOtrGanm9DiSsvqwi#aN5a?gEE{uH(#$6CPs;C(1NR9_&)23HvhlY)I) z&We7w0@u+HV@{E~rO=v7yNFtWWsY`SGzcC`*4OS@EzcWpJ1@t)eAJN;V*iM;S5(4# z{2(}GjYOQYOwHw$%Va!*Lkdb;5EdRUh;jHVt!!SPGp4&%mIAj<+{B_U2A6sUSy-;r zwI>woYIV~!PZ0JlxC?WLHY&#sDaYP^Iqa#A>N{UD;Px8Vrrs!guw0O|tPi^J*!*ei^Zq;S?!b3t#FYXjwRtaVz!JkH(sCU-AhyEeFC26ZjRsH-FR&RC#4 zKabeH0tLMkB>TsM7{3_n;(*z~$#-i{0~BX^A5YIIbd|MrgQVzQ7ooA}eIo)E6!)z< z)D3I$o?0XRqlay;)#>_sHqC}&Vw2V)ZR%n%KZblPDt6nJY&%w6ZTL3d6o2>Mc_Yz# z(cI}G(!AE&!gc?gN{n~z;&^RF^sqo|rRMTOXd|rXfzyzt(ap|Vi$hgj&DyTEdZtEu z+K%$y{JUM`3L__y9h<^eMAMRedFvUph01t4Qby(SD#tx!wGoG9X)ncU$~QWOI|OoQ zylHC3;3tEB2v&c@I0)(F=f6+o)Yk2mtR{2_<(?!LI7f$$_S4Sh8>+;qlZ z_kaAu@W`73j&i1hQsw38P+t!`3&S9)nE^e>x*g)wO6|d4pSE+OG0d3wFz{0?uhMd8 zKc73}9EKEZ97b>VS8w$krPXl!hQYrDq^_)4Eg}QJT4h$1n7x|+aCl4rDcrn0Uz4J# z(nN8Jz1lna6{7p6@wqb+JbLv={M++(T(0L04?vnuc0zyDs8wZpsuAxSpOV4Yl1EtP z>@J)BOzBBG{e($KB&C^e>UFHmP<5$F+w+NI9$b5>w(^Du<+j^EbDC)iZs+exESVs~ zTM-5sQhHizSA@6vA3X|o@m+qWcjzt;8L4kJxX$9Q^+Ssyl~#uJoywmOvHa%ppybqf1}R1-4RCGpfoP>KcOvU3DRb+xBg; zyR5eBCtMO9*>*0Tu(rKeazNO;^|MNV$5-A5dha!)Jm`_rE}vj-wbz$LWWKz4mB*j* z4z8yQUlM+wUOaxubO}{xh&*(bQ&P7AYS_51!H<=C{Qyp5Qh05%}TgTT)d? z&Wliy1#vccZu%n)L(}KQJ^OhJkqnN|4xau~8;%tOaPAdTu>ADn)Q-| zXhEvf3zg4=*<+M-MD}S*m@$3H)+ob}VET00iRF!tzpje(Fu&_L3fr`!E3x1*Y=*Dj z@Jd3w#WnmdV|pR1a7m7hCDLTW>*T)DWC*);J*(aC6cf2Oi}yH6J=XXIL3<^C9yr_V zZ&T5GO*xtQySc;R9vf>&{GBcS2&*AhSsc%&NZ_tatq@m2D;2Q@E01J;445&qtBU;K zbD94Q_1vT|0=9ftx?m6Vnc^(q9gA-vBmSftV}J{H_+EsHxTtg2u7lbQSYbvLrEF zdWpj~8yyYqt>#f9nU=GLxMR`@kHf<&XU>XRTD_)*HNV5?tQV5agw{1g0<^=EMNqp? z>AuVSGojoVXYYG*9S+_J29fzWyk1EIk&isi&G>@r(f^OO_l#<)>)J+D1e9h0M5+ji z5JV6NND~DCX-Ww#^o~Kgp?3t8DkW5@p@h)EfDpO@QWXrn2~s39r3wgsdk63PdEW7U zQ{Osba9Y zuX8M!Q8FAIbcc@+j*ribJc?PrI1c|RSDX@CAkIA0>F)R7P}M4fd{zIm*iRmbN;#;~ z&``C1JcgO?L!{evc^>@T;Oe=Z$yscHe~oa@+l(vrX`YjeClMvZ7$9@8#FPvGek>v- z(UX1?D8z3Y9Sj$NWv4Ugh4z(F9fnV64&OyBt(iLV4u5dg+X^PG#b>7;bB&qiK3cCT zwAajEX|Lxh*)A|}@5Xm_N3v)_5KXf^yLL$CHa(s$+jd*GkFhnN0~T4dPOZC5PY_B^lf&Xjmp z;R+pLM3gT(FQVhqOtaj-?TonzpbT3*M`YLus@mp`v=h5$u8q)IK=Jo6G2hL_8B)m3 zR-!)od>5YKy$K~_%wa{paCBVhpVt2AT_vZ$XqSE>P@jt;uPLpFpP8~lP?3v)< zvHfn9qS+h%vHP4R4=)9zCFS6R>OXmnBDtm<_hVxA@FyuM`3GNtbgJB;XZnBU8f59; zxu%o--*fG9-z`Cm|BBi3QqrV(^EYS$9Y9!BH#HCkF>iR0=HY*HKyWURW(;^Kbhg>Y zgls~~@ufLkeHJh~ci$WDANvR`CJ%S7e|TB!YzG~1y1#x3`3?CPS`?(Gua2)9{Mg<> zcXaNt%kEK5=dUaPrkv@%tm9!m41&omJ6l^XQ$}&PInjeR3*YDCRu-CTJ~F!k%Sp-( z`dYD*$h=R&KEAL$V@PDCp*mhp!5zt{A2s`uEjQWH#5}RY@sj?Z4w=PNX8-r4p1&O_ z?yYW!yJol7I=XL3a-fzJms3gP^$*pcF>{uj_y3~26L^5~GM_x=wV(srw_C@suH==E z5?4@vY4(fW#lMdj*b%5G@SkU_l>6(ZEvNCXW2dccn-pXSDW0DEFV}qcKd$*dhk>N| z`=?uF|1~sh7#GJ*n~heGQUk8;dznxf24LukUjOTI|L5pXBHoPKDXsr=9EpmvN?|Nb z{uvWxV9_{}FgIsOERuBIfRkyDh zRM0+${9#an2jb}u&VT^`mW%5lSuU^%(|=Svs?A^`$s~@EKFZB-<-4)x-x%aQK5nAmAmj-bcXjP1xE_Ic0VY7KG>UP3_DBhTB!J@gJ2F?yvQrFa%OH`x;^ zRmyA;Q5V|=d;r^XBD;@UE5{L5u`2j3bsj0o%!}PpW=ADF){O!dy4Ymde9eLf)}27! zCn^e+*@>~0#bt{@Q$Hotjp^46DlWpRE5Ki$HPYRIi`q>ShE;TZ2myM;l}2(mIhD@@ zOx50{o*hG>Ymvx@mkkL5x)n-?9(lK->+Yz04y(INv?zQfME2^(OSB{NdGJ6)yS{e& zNRDGgxD2sr*~=`js@d$UNy;9AV0Tv=n?{Ca-NYDDD2h-jCX>adk;Q|**2kxi(f0)H ztJumL3sqwbi!EaI*S&e3xtY0Jav;%tHgw-j1v7SE`a;E%jZ)-QnJA4j82QQyx=zJKR1`AM)KR`wf1c$df&9*+lgN|AU|21ME`rOa z$7Gb|3CM>$*o#Ff}C-D zUa3PQwuHdQ%O9PI$j>~sY^f2G0;i~yDZ&o;Y5%xs=;M8z zFu~P3+NYKS6 zaKheh%7-jsO-WWuqcs$<re5qom#BsAGWydoWAOc@e~|76}`EFadk z#v+`YUOZ|O?dLv_pjG7uk+st6?bYZFZ786qq8vFP6}^P4aG5F7qTC$LeX19}<*HK1 zx<)ITY&!o~r~MJ3H01u0u}sStgR8yvnW2c6D%bSnZ26JS{EU?Pg?Ey1F9%B*mgZsT z)-TB|GEthe;RXw|FGKvu&?Zc*9?u71XoFGMs!FWMBR*s>5*Kf%C)EPi(|k3j@_j`S z>9eR-?$KwJaj3p1RiEO&*R^ztM&$Qu?-GCd$ch`NJ zTF3pyyi!6u_~VXJjPPYrDG^f$2Vw z^~WNG*#cQhU5CDjysm28siiB2?Pt$}C6kTz1krfOBav)!y*6)!BNGn>S&$t?d8PZ( zVF6J3I9>mRSq3k>U)8(ovgx0m%C-${Mrz}dhU=oU_Vgf7#MI3}-af@Ow)kw~{_|oL z?g`#8poXFIUcam3jH#gj#gH-M$^-^yT}s%u%Be1{eh>vLQ&`2YI4qS^=rXPz-F~aD ziZsoMc2I3xPjz`R&rH1!GJ7+5_G8*@-o=!z^q~ zSAAw#MEM8aHRNYe2orWbm}XdTDrXR-6s8=R?`*#_Sa@g9j#+%3#Rth7sz$#t76ZPK z!C@^Fn{G@Lq3N^l+)H@ppaaL9k;FbotUHAyN4OJc*kDCk5_dVuHr5=BqnaTjW7Mc< zT?ag*sxL#Quo$?ZRm`Yn6?&nR%ZU}?P|F7h)H)ptCK#IS`t=0<8iM3pS4pZjP)3B& zmchH0)$P8;CR&!E<2H-pu8nOn6|OMf3=f{%Zc5SLtBET-pQo5$DrI7>^HGa)=qXn( zPaln@ZSDgBg8PTi)RhWRbs5IWFT%}Dd&o;PLX;FDeP#tpN?t@!Tlo?o!E5Oz2yRZ@3Eu78Lot#YdS`DCTyUgUo|&p3ENaYxzsIUU3^;N0 zdySt|+CU|N7y=)iC_w_1h4Vt zwX!AmvL#=2!jww;CrYMC2)$=ZHeL%}^VC7aIX#(4by}gBepoPoMvsfThe-&H>))TeoS3<1wqJd&H9KNPn#a4d>!mhJ=xgi=T9ji9>qUF>9s;G3K z8p;kMOM{y8>v9OEJ^u5$q~fy41{`X(C!s0ZV*E!GFbdSDqWb-AJD}P^p&zhFc(GAY z#xn=&icE|5h>K`o4ChBFmRmF^<=F!z0WuWjeUx)GrNk)Rp-9%iLkC!`jUraeAwx{> z>1dYc0ToRcJ_CeGV(LZEiV%dTt@U@m8ovHcGQ<)>h8a+KJisQZQ3m#=;4Giq=(?b$ z2BdYX+k=5JvJ!#;WGNJG&n`*%064RHaaGBZgnYJ)2Fu4jcn{H1@+AK5A)_}qu7MLM!`ZrC>*TKQG*&Oqf;W=TV@z(7Ql3L97f3q9)4=)MmTmT?@``*L!Ma6VlrHqfB zZ4LE9`rY3<4SZ%bf%WV_>E~qMSbU1=4UaJV?C1oep--@cSc|VH;Vgz;qX2}1DELmJ zU4Xf!Qte?V`7&_XQbe^xgUsizQr}SCp)0Twr*oA0k-i|k>@t4Q4__j|a z59jhQL){1bLYg;-%77XZuC|8bxYI)`mSVb-*xZHNX9jO23J zw*h!ns@Emn2+|o%L}U&0@)yDfPjeLKXW7sft@O1Wddl9?q}Gbc&#Kh2KmEa|I`io= z+^h^sSs*S4Dbp?WtD5-;=PLuMSW}0!ViNZt+fN*NLI2^!F!bDCYT@$iG;c(l|6M7h^Daqah$bJtGz`5Z-(nj+wP>p!6H!OwrHrX`0JV8YO z>SZ&u@&js;u(JgchCvbY)!M#?@I9#&Sh+d{q8mQ?X})a3-nwbbn<)gCy#gq|{*Y|C zFqM1Pm43q4O~nUpY;3!vOUK*heVRn`lx?Nd@2$MMiUjIG(@hP#i6?JP|EMU@1Wm!dxFD`htf|E}8F~ujNWaSoqH*T=u{7M*x6Gcw&^CdG z-JayVe4E=5nvY3< zA8vZ8R~ z*vs-cda8eD0=2KP*Z_K+-7(JY*(TppAevVsUjFsF%ZGh)Psjak;siM``S(z};tT!4 z_>($@9q++8IEO*on2A01G5{?K5+5`wJ@4*hbmgne(tUEgUybu{^2w>lyUF4p5biv| zz7_ajHGb=LNpwEuHN+CBkdp!6Q~zwDvPjlns=`AixlSeWO_~8HPKz=6{E2FKkf*cjRg zLPNPV{yI_$;#(->Pn7U@B7$Le174`m*)uESCN5L@yWC%c9N&BM;8A8v{fu8=O|DO< z(@*9JsWF{R1AJrJ3l^oObC}A5>Jh&@8XaB4(A4RhAn6Tg0rbv(pqfiz>3s6Fwq7^N6;zBF2E1@LgC^G0#VhF9hwm)x_aB zMgFUUTBUpDZ*$$>(Bh(k3Lm1=IoJmq4Lfb1@`g$HEGgo904dNZWIyhn06>HadF}o4 zr!!JlCF{OzzbBk#E{9o7_&mHt2GX{jl$RtZNR{lCz^8#vQQyH39Jd76K^CMpw6}lrq+ONrS2jqF#AT)Xx(n zhIYDNIz%xt9tjIGWW{C2&79Zh)C|@o-u%Q%g*#&DU$6OIN(Giw#Cp0ItXAw|89my5Pt*`aJRYg`(Lh-NFG>-2Zt zcs+n<)!Q5sEoPAu+xEH)D~&ZxjDx}g7xwOom{21JZ+M4xq505*Q#R9@SA)giYllMP z;V{+O1^Js-a=AnRp7uQoG7^@0dnoEAQlz%ZeR{m0khLeMw>OA(V-fb_mkU-UX^80J8cSSBKv{Xxpag$+Qv4}8-*W32-t<593a^teK z&|OZ5GS5ZZf_ZTdhjg*K`*EB5zJ+|fVE}Kp3iL4SV_Uw-c($4;icx2E9?6rHF9ruz zD}i$pEEX>*K2-bQbFJo^1;B)!<_`Id=ITwFs-rR(L!uD_G=%Dn1yjg!$ab1ODZm7r zNi{vab`3tbcmjIRSGelA<)J&>(>x<$zOCqz*zF6dJ$ zHu$7wmB&%P#+&uX)o&(4TXBG()8eR?43C|f^J|6wvBo#3UIt*@`}Lk=%HZ~^cMCu=W*>P)J}0poKpudTEJnx%xmwktEf7CejS+(gj6Z|+nZ>m{^fK~;_!yvEZHmW zb!wiks^*OvUycT1jq%!c_*AChw2P@jx+U03MC2+`n9vC<#bumbPV=`e_FS}< zp%2gh>&_%CZ9y4f6|mRGs2c@1ry+jV@!O-Lz@s}71&TDz>{p7+l|T+lDcMmOl({8y z$lH&L6~KTB5;pGpIqfIDjmxlPf^;+r5WU~cYdWz;=EPZ#cm)n~&e*z_mZK7xvm zt~($L0e}Z;K_s!LH|S}K5X;)?il#?GUTLS+uoa&@Ni8CH54Y$g4^Buh7?xcHZ{9n! zP-n{gHM7r6Kolrus%m&h&h5j~?edEB4Aw8z%;6(Zs|6$8S4eWslyx~z zZy>~46O=*JDEg*Nr75jqtQ@;ls%DTthhIl3HsI42@wu+R-s&8}^ zCDm@c?cI1_^pq4s!z~5EElZGeDP%_5pY7_SRTcw{4N7FTYqE_|Y_Rfi@k_fwk3uFX z;jnTX6C|B1&%wCj$U13-fLv711L@UWHJ~H}D=}gmr$D041Yse2b&o*!kFP*%uXJ6< z_~>ah;W;=e?4cFJpKfoXpZCYi(dnC&(wV6EX?8;7?&1z7^U2`ZISS5=|C;l-SVwZODKe%JMrYA$C;;m4kHxi)`sN*90bEyixQ!7p`;H#9|v z>@0{8(@~dOEYDs0vTRDj8&k$pPCsOP}dS3q6T+CIB@e zaay$wy)6bx3pX^Mc3;Q=!~j(a#fE(bEMDw*)I`ijTf7vozm4IbKXs5V5fBGg=;e?^ z7|G@McR{-kFa6Q!YzQD|cCH6wd7|F#ytx?117KO2eyw$0Vnc>~NvgvPx^CkZVZb|4 z-^JrwJ{ai=44u=8NAoDD|2^&Ak%I*w18iuz2$r$q6e23dMoQ6P+!Htf`sIfkeu=!> zUjd_l*8G&{6dCPL?R}{a@KNE44M8DQc0J$)vg1LFNKepcZxHjwB7@hsMtlS^Oke#0 zD1DJ5`Vz5=kyuHf0nT7)m;<}Jxy_pwKnMg1Unza9GQ*TH8_%OixI_igYYp+^6Xum1 z2^TL%Zx_A;<7Qi+DT8`+DiGpl7HH|WWo-VOn9B_0^^c5r-)|= z7kGioYIad6v>o@Fw_8rTU@vuW^q}mA%&SBT3^f!{k%?f%rn8RrGUmY$PkKFW{Z5o? z^tb?69Vm86-0t?U2QZe@JZNWf|2%SN@K(sAaUGwGVwsdmA#N33yXe@ytxjnHgy$eD zC@E@0m^QjzGAuI#k)V=j&%5rxmTaKtbvYT%$Tw_Hg*btgj!MW#<909x^i^~l)L9EG zGXj+>(D+rnp8?ex9EERTmTbQCsTb z;F1Q7Cnl=n`!()-KUv9b^UGDh7D6X={Ml7Mb;c5PhWR(#5fwv;2DN|v63|D-+tQ*T zX)5_6iF_ntkxXlaNTxx8c8ger>!I92^F7(^^}`1WfH`$V!~aZ`?i2@zbch-FYhT2D zadn>=VzUKW{KN~f-q(g*EGk|ZqQU%a>eGGCP;e@lz)SWc4GgB{FlQ~)&+{vcYrJkD z7}%#OLpmqKWQABw0B#KIj$OOD8vN8=5XQtoh7^OnkL9n@{x$SKwGf6$yrC!XSmVhK z(cdX1mPf@^JTQLv*wdrJ^{c;>S$wmTw(}j&zX^aS8VR$zx$Zp94~+ zIb9Er$I#k=cttDHUTnC8xfF)s@t8y~XbcnSzsdZV%WhRbs5BV%j3YzeZZ)sXv! z!h=@!ivGiC!&ma*JdrCau1tVHH~3bjlRC1?!qs+FLO!e|Gn<&ca7qM2GI@u_TSAnV zlFG;xCkvg~mcGCo3^3J9zCLe)@%CFa^2>6_=?~-poRzDa^!C8bYy=#6$N}1@e%YQ= z69`i0278BTHlb-3D!_*^#4ed|wuvvVZ$h=aVq4-3seho9K zv0WziZt=5X29T5oLwUZ(^PhU-3}kdbg;WdiM70uvP9$#Aj;ezqz|f_fgZf~h-X*O%YAjAL~H5`+<}Jnrd( z2D9#{uAj;_-Oq7Gh^csl7wbs2WLf!bfk&J{G?9K)}<3Ytj zK}VjTtdxzEOdTlvRuJhw%gLnI+{ghyFL-i+za{|%TU2e|c392(d)-3 z9GHr^P0viVaeFN*z8#*R*tN?!mI^+o4+w7Du4WF!;ta$)5?75f=54P`HE4RJ10n*V zBEvz6y$HU|4n5Tm0GK;rRMS=|os^%#&1;EBRUR_nf8wX!m|QEfUH&j!0^d~kowUf) z%g;iO-P9TW?(*0eT~JpP>>w=kCxP8RSFgH)7~Y0K4>&#D3~=opKQ|hHn_me9R62o* z#3ApYgcrk}Nr^0w@nxD?6}38*=#W8zJ(XQV&tib+YyNMfTB>(lzR#@Uj4 z?t}pGtTm>fbos23Nw>61>BLQHNr=JYGY*ek4P;9kY(;Jq%e3?;1cXVlE*hevJ0GpNonr88YtIj{D>_vQY6Zt4nvH*l=ppXSQaDmvxts5vM2|2{|Bc>A5 zUO)GL04O<@hLeZ6)gD*E1$<$8Q!+X^s};N>hn98~)w>Ta+4SQ5seuiVL#R4X>_D^E zhd^UC2}oY*cPeH}oC(RZ2WcgbT64-f!CH>)KrJaM{aQO9AY7%I(^-jA3In0l*M5yj zJL_C{7gRP&eoyts^LWJg{2f9mwyt$s>Z05l+cT;re{Fr zz120ZqM9nkM5MHUC%VmABv7aY2;nlkz`p47ID&9~wY*ZcjYqWU#>wm+>b<|xTlP_tcoCD!$Z_5 z6wMcnEvi{Chiqbg_d)1EHXnY-dGQ#x=gXfIUA=V?`+R)#x*mfM_^C+9-y~hqE!zMtrNGj*aZG+^|wiAo2z<>&y^*y*z z1C!py>yQYg%9Z@YYVY|46|70E0tmhAPzfNf2{vrpA*=vtVK5P<*sYUw19R_jzH0>7 zq!IHk*9U$730T$*?Q<0P^%BkOQ!=$wTc@GsWx*XW+LLS_|2lK#6vww&-pe}WvX78% zCm^5W3n@cDeHB8$-OwA($l_Vi0mB2j;(wh#*O%Ut7%Lyfr}9WNuEj1TTy(_GDKp#Av(F_52w6Fbc~p@taXE4AV-!LkaWH z0YnmnEAu^Up3&wZn-JIpV~D0flllj@pK^)R) z5rffBc9!6;Q3DiwHzr$?HBX2hC~V0At|$Z8T#%%m2g0ZCUOyz3Z5j}JFW2yl&^Egqm=^l>*>cCKcI3d`lAOp{`<@Rw z+JIgFhQ2mgZSGNs%^kDlbGp^WU{IhGLcA0Y-ev!=cgdan(Z#yB9v{F9P?BC z66qI%T{s701DQ>ZPNX#sv(U2q-Bee%Dz2VN{OZ}mmtYET%ot0})OV|Dk0ONDmT6+C zPIJ$zMLNyisDh8RQ4>%;LTpZymg_4!khFGPk978eo0iNwK|bfyQDFXdgmTgH`SUiRTjlS_;*%x#DWR z%^uV|U7He~D3X|8n_~$rtZMj@z%C+s>fK|&JFLQA&mfW~2Q|RhtC#IFAg8UoY7x+T zx2%YCQDgN3mIL0<+$8p?^7lZ&FqAA&`yDtX?tU1+)UTCn%^{_q8a8SIf|HUlEfV^M z5mSUdT|&_Q$$oX+yJh!z@m8bYcg$9XbFbJ?@9(g&uSw@1OY_?_1Ti?PQIwcS-w@Et zb{+#C3*`W=`=(>?OKZ`ZY6x4^6xD78ek6u~JaVr3RY zwPgXR8EX8IPasFMMHB(+2O72^p1ewM2NkB+CfnbUmRiZTsI z${+1yILFEa$7`$_XX(wY&S6fgndL@uTm-sg?BVaoLySOmgOWZbn@3(f4Cr|3%up7u z6){jhRDYw_-d|r96YQ{&nl>CSH4Z;j1g3)b-V>^$-w93fHb0^^0f_jZGZho)=U?d4 zAc01M8o3nn$6;g~3QMhbLz$HP090(prdjeGev_U$&2sZ53$qhIi^da#t7GM@o+;nh zzM@Y7nT6x5b`G+(wYX_hJg*V}dtkA_PW3|_6wUh&fOrHcY!IlvYxvQ5NMCKI`B6-? za0StzPDmsJXHE&AaQa{6g5)GI%}5>QHyQB}Htn+==fdK1IW8@jYX zj?*j)R+2|9p2R%4m4E4_SWkt<7o)7BvFuzWJ!7``0-l$Q1`Ml?Hfj{Fm)hM!G+iJg zK=%%L)`@XZK)M$5!U2Jnq;;6_4Gm)sdTkMyN>x#U4aV4;k?XU*tU}vf>RE6Yb~mB) z!c`H_V=~8BX2?t|8zl&|tohi(FbOt#e7zdhTc9Na{Osg^^Rp8;RbcHA;Fj*?iKY>G zNe+l7nQSe}i=w9mo)SQiraF2=$nnc z?J_E+Ia0S|BhGw-MMl#e$f{{;q_x8j>D@;CD@$;8Wh1f(W9?L?G@WF!2q0svc|A*o z{4Rd`9TpGf{j0g{VQyB%!22-l(PM<;r_&>eqk&*#0nQx_`yoo}JTW}DWF-ZK^cO{> z3A*E+Y5+O1lLjF@uy}raK9m=5HCpCxD_KiuzJcth*x7wv66K2Zd-H?!lQCo{t)J56azK;%;-qLL7!b9S7USqJb!5Z(VCJotzdF*g zv!i~`KCiyP>>i=tOLxKSz2k*GK*PBCP>7;4vI>V+vR*u4QlpEx2jt3W#9&#&8bK!6 zryA<0wx|XTNi$C5Z`#qu?`3$;itvd&w`03Sv=tRr0FVtbvv55 zOZDrDf=>1kA-Dc%%EDwF@v1EMC15d?$)w%=yk}6PDnKWXrgMRjMCwc)KbSDUL|I7y zP%1=XtT!?5ypI{{({i%+HrRTSd!-#BIs(^2!3f+Ez@p>3Pk_g)FE%TF{BP1~M*hP_ zw~yps0Wfy6M~Y)!dNWGaLSuOzsfrwmnRX zNCH^p|AsOA*0DK2^3n>0j?Dq4BCf|b3Em=@ZTz1=MiTo-t^(8KnD2O&WDt4J+)x9w z*vNl~^k0Ke1O2#;B5AMyz~q}$o4g3P@yFWPM|HLP%M>8w0xrP~*sca(>hIZp0Xs(l z0K7U-WX6hR6~H7o=C__9O;X@kqr7J!;LVY+^5$O?r3OuO45Qbw18iT(OjOb`2J*UIemkhRX)cd`6%}P3v`5N2(O$N%WB9^{|#=jWdz z*WbT^5C1y%$C^2yFUEl-DKlV2_IpJnw_oVy-v;Zcf7p1u&(q2-*30lNW(KeY>~5b6 z_|x&{*U#;xUnA8|e(iMx9PHP8__NbCu6R^a_{DK1Ag#~6_GldO$3fzc!}%+=H%(iL zw|>>#OpGB?#*|5wyP;FdJ~h?%@3p9X$Sf&*{$slzCcCeqeYnzXc}V$0`j+VnrQc=B zsfPu!{zqg5KEJzu=pUV4e!HP{lwoyu_?>|d+tfp(f39^Z0$cFY$oCiHY|5N$x{{Eu zpS)6PK;QCCa?*Cs*8i>bddQc+Ft5YukkchW9Iv08akZ1siW9<}xN%lQBuk6l^0hp@ zr6{BHJ-X9r*15Je7H4i#&&t1c%yQ>8+kyw4I&pcxx$R8EeU=%j-?8=7CrYwaRjnPZ z+@85wn>$be@0=_URAR!MLY&|maZ$0`BLDtX=prKtpAUe4B>f*R(w)>MM()>co< z<(xb@4Z%-{-4^B)mk>6l0{-i2?f8rnJed}ipq90p6Vlbv+Kp3M8aUF`$x_?;8K9xc}IDyykfx^O^!0Y(^Z73)3I({$4DMosC_bwIi5|jrH z2ENY?xPpKF{LlS>M}YSuEiI^K?P&YVj#G?usG#DLr_ZciIRzD;nm@CCU~TDSWeuF_ z@6+&nGsxQQI#+$$){i`93_=?v{wn00`$fIlHz8HJ5GI{G471An73sH|`Uca9O!&OC zQK+8QPZ#(kW}8X9=1vu`usqw*UA2BUH8^5+V~9;X9-U5L)9lml%!S-qlyRl@xgGj(Jxw0Z|N2xQ_QFdP^h?|P zVG8Etj;qU2UhTNzYZael6@%xoJ@47vdu^K5b`BizS2aqd`?UCivch~mr+u^W|K5_! zQ(T9=Kr`iPW_((xmF#l%`9S(+^HB=50Z+AGOeda>%-9UCj44dKIG+NSe9#(Voc?Fz z>7|46q{81O`K}{Y^Vutrn?>iWM^w+VKL3_*Ep9dz>wK-|#m?gZID3H8ZY+y3;bF{+ zz`(B$U)^{x-cq z$|3IIbTC#%bN0`@jP{;$hT6t9V*K7LSB4ejyF-4R?R0h`{0hF6g37WHS$h7fy*+4v z>u@0WT<2*&?u&v{8nLIKYvnScMY9wS44(Pyb|1aFRW1H*qNe{fjX|6{(BJQBKMjnN zYk^KBPHw7Za*qe}!|XA>9kMM-7BMtvwn zb+s~1i54AJ-&xHK_Pv7CxS1;NtdX-2OLO5+?{(RAT(#W7*^N?%o$ra+TL#Ze>&PKD zus+3*x?XcuRHnWTe`b+h>}zA77sy!|H=$svh-H0WE46s;{CUNX9g4~Q_t(q^R~!#4 zUj2g9sw^dkP}fG;yoY?D*CMZyxM|7!Fc;QZbagM}U_lixQCjBn0;S`@^WjDB*}ZEf z*FV0Ps>Xes7cq5+p-$2hU3J7ymxixSW|Mi4X%T_VaaaAU_ z>x`eOnj$Z6t-!9`C=I^9cQu~ooZR~La^}t5QBK*%@yrzc)NF~WHWOnn7+S2WbwAzA z++PXWlU58F_Z^q!5f1g$$~5T;^y3OR>9LSTRqEs%>!zHVq3XY?9FOW5n(n!Nc9bLc z#DfK4?i1!i<$OoeAKGOZvWuOY`kaH(X8RrZoQGxW$(HxZpO6`ywXHjI)?!OhoRFg& zA)|(Ui#4iP9Ll(ea-J-^u#k4AxCp}*JIFE30gJZ8@|doa5D(rV8> z4YUE%0fBCB0&r7ju*#hA4=JF3tZZXtHsb2<(%{P`VwtkYoyDfo!{_^F50DHev zZ>1=m-k^{VDt2VOg7=V|?WN)dH1LIXrMu&k>27tK4nA&QdhzaV zm%WUvvApa}I~O%kokN20(ZaZMk2XpoR+>L1hjf{*k{6tX8F5lO$rp=X^V8W@zRD{b zvZa|FpZe2WH&B^r+cnDNY~-!bQ0dxa2~SSQbRDr~fhF!oYW1bjzBAWPPUx$rZ8M+c zE3|PeV|M>?&FYbeZ~2`+9rnLP5Qo7gyoP&2g2Xdbjg$6a_LQ6I6~S(099?7Ly5}x< z3wb{b6gs(g(-vx5I-vdIA~kaK6YEEdW;!?B(K=hk(pNGX1vJBttxz}fJ{Y-u6#VFQ zb$nB~`Er2&?$vv{|()@s5=ku;I^z&^?>P*4H_v(A-};+0VHqLm`js(z%BS zO3n(`(Ki}rG?#xoyw{BSRV;R)?$W^5$GUBqcZy&i#N)Xrlx_#bs!9aKDr;b9xEJfX zgoK}rC`Y=ULSMAF$jy1#eCu@nWz-86b6COcRyqU~`h3RzNkwQo?;}e>!R=F?(9jE* z+Y*YHYl=oCtIClJ42sdiEZV8>lPfGE>p09A7Ou4u85DWVL*KNY@rQKq+TWeU%J{YK zGbnbRoEKI6+(W}1azeD#Zc90G=Nho#adE+I;aE4+**w=sIf=+OLb@j{MW4M8e*5Rn zdx8zi^==gEwv=3_j)rPieBMCW+ULfDGe@FU39Z-Z&)@z1usw3PjYiPo9wHACer4bL zsmlk=ptlz;Ns2Wc{iqnh)tq^-R=YE`_iSv|R_Ar52AhR!Wu~_#;iC?LvtaFs7Gp-E z$mb98xj&yJiEWJ)woINoU$F(Bt?0j6ck^;2o%KVDfCJ``yWznZ8|Q<)UgGC>$|q%? zo*2Ld>YY0@PUId9I|$v&K5(6-P%hYH!rSyim!4}4iqA8S_6$mVy!}Au(HEV(Esv`r zZLokS=d_h;PZCbVbw2yPSSK@4}Z^5=VjZB%+UhGlB$3M+?ZB=eely7+@t;CVd&Q$B$0Z@(CLV1*dDhAIMY*oXt&X0CcyBo3eB1!P*p!jq zyJRz8vnQ@INh#{0Q+8qlUAdDpnWf`4^mf;2jO+)dB<mP3OUi{^c;*33LGM^u_wf@18qaItbR9H`ci$ zT0b6k75uUp;LDG8bueBxHj{tF!~TeIV*>G6lw-s-v;X4PH;K;ZiKsVUTbBn@^{+dO z(xZf~E}PmL>rR~NVp-|@x*V`!a9^&vC0ha2`qVpa;}B9W$9sCSggfxi!(FY|UHZwr z5vMN`!CyjNt^y5A!c^Yg=@b~#!Z17&NeE~{pU!Y)ZEozoZ4Xo10IvO>RCC#t6Tc$r zy}M3ED&H5U*9t9eC`KG%U{?>_2r>%TR;I6(*@|3wAJnb5M%UfqeFer{{ll3iQ*Jr? z-}^ej^-y=@Vgh;hwn|b~$xPDVsMDwK*~$yP9l1*`;x)SmRk~xn1jPXHl6NZp&l8x|@8BWtK9o*{|fcP~q`x z&uH=Z`mRz{4c6L|Py8tE6hdaW>g+|81r2vYg9-QA)P}!a`N=aG_UGi;#-+D6Tn4}Y zZhsw${)(c$MzPwfzP!0w7=eBLA(x8#8AGt?u>Z9avK5z$GkKnOCKjETF5udoHgPIg zI6Wg2>vZE{-w)^qk+499K?BjV>a~j;M6OhWPGapHkE8m>_v7~6gnS2!YdU(bp4ztK z#kUzOz4o?213OSNcZ}EO=ft$nz4w%Y<1;w)xEmi-FJ)DCZp}~cbbd5%*OyR19|$}B zO7EnqoE_bMPxD7{XH=uf$5+g1^2NOSZKzIRJMZQ#r-_2hUEdZaiRVr~6#BBb&pisY zUy#~(Cw6H4)2yUPlKH2d(o`tN%W!yu%j}V9g>!vWK00dQ660e+zk%X~al4z01!Y)` zFjxtnI(Gz@f7E$wCB5Ud%g(|<%!U`l(#0E>+z;&P-wVE$3*kFBRTxvn!~Q*rKDiV> zi|6J^--xfc{`y(i)9^Ek$P767qQ1rQeTAFBjT5LVDZvEk827`sFvH7bm;#O&7rJbn0Z&xbG8> zHIcyAU8Zk{*Jqyb;^OXn^Dj=M9X_*B`RHO|{@$>C_Md(Qu{ip9k4BecYCJ1bF_}!pZHj>> zyj8@mfYejcg}!|3{$3o9A@gzEpArT!!!2>>-%U2u1;ml8(^=}S_gVu^2x~7Q{&$2A zhQDA$EFykK?B4)i^xrV~|Nj6VD#QuANP+x)PLbn4UQp}*bEto;1pqPoKcW7efA8Vn zP+tQ4n*Y~O-$2!gt>Z%Ddf9hwYrFPCf41xI@A*EoN>lT_YDVMnV(!{OmPb-9O8!Xa z$P|k&x*}4=tr~dh+Qrk+cN(@!%NmJ!0^Ec@ZJEoH#G1j!Kh~2_S-}^x`9|B6p74#9 zo<^gU0?hEu_D$Nb49w_>e$_Fy>3o!yjxO3;Zl4CD~~$O$fN~RpPw{!ClY%M z@2zu>-qoI-btC@-CvNAecBkX|vFA{&>yQG@)QanotsMCjBUvZ>)n?cyocjk_VvXFABJ~rJ>kU_ zW4icGB1<^jB%U{N1L+VHh%Bt#?b@ZASj?e4zqkH-?*!z0#`&?p0VwIMm)JmC{2*In ze?%k%-1ZNlF?tl{Y$Rfs+>#U5m0cv+M*cp5Tv%}3J)|06#Y*&wID7p`2O?0Vzd)M$+mFppWz0@?gre6e6eH z*%hG%NyvnFJu5{2v@}y?Di7K!4t8qKQycZ(5;oJ6qRdK#wpF}Ujq5WyB-SI+OpH}s zKf+dKAgeW3C9Mi@MCoLh_v=}$$d^PN?7%W$F@;a;(Q8Ae2LJgvmf~MM%XNtfv0Z}v zE)giuz*aa7=bPG&YZGIWs#+dkcw$+(%OV*J@6Pvt17g(7cafbv&C3b8(dm5rDgLXi zxIfO(rMUn0ln3|Ga3$f1kLLRwgx#HY9CmL-QIcpfm<#q%gXJnES3@;RSQdnaQ|D-v z#0NS^9e%jJ&;)gaD2F9uGSH`xW>HWeN7PXf)H2dFmZe0*T&)PQ9}hMIIA8niIis~c zK#dePJ#P-g6}8PaN4YpL!NCG0WILQ(3X|X!nM*KA%O?ChJlPIW<`oJ$`F%Pw-M;dn z`a<;je)S^4M9{fC_2VA{t1U?&k!y;Fro{-O3t%|ha2~gR7pkX+tuy}Cl#sLF4`63d z1)&+urgko|hqyp`l#N4z`FG3L1-H!a?>cp(qHsoq4W_C`LgTlbUNv#@V+WajA2q9c z$G;U3^OV@n=Qf5e`$2FN-@Jas)A4sbW;C91phf*2#2t%Be;Y3*WSPxi*7T(C#3*FQ zsCXtv+iIS3kYS>f3RVK21ooER!7)uNMPahFgvt8oE(980PnT{*IP3bVjJ;emFH}IF zbeOOVP8YGd!x&jgQZ#@}nnsi<1r2O6ol0EU)z<6e`a0xc=6V|TA>a5Rz#7DQrOo@* z`Xe=@OI*lj0o5hHi5fhf@^=wM;yR1xo@ZYd_hs9qbE(s2i_M5lGP1R*rN3sq&yY@nRe^W&ujE`&MWVU@W8|`R$f<61G=%x{|ZA0V`_w<}RMO>%Cfg|JniW9*`N-)(&ch&tbOd(c%SSZN_ zPa~PV2S_HKcx)m=s3NCeB58t}B^xEQUxxy6hEg?=ndSM9*PA9s)9ZeXNBWh8sk}MK zuvA2!MnC0vpP_%6{DwF-20Qj6&!>078dExsSa{)J^>fvISTy|v3SdK=`ThA0Y>Hz^ z{`xq%-g6Ezp2M|wIX%U^#np5nHzX4D1B(wQ3#(Tjg0IJkbR5fp+=8g0x^mvR2}e@F zJXx*AAXa$#Cxwh3xb=*yA7*8Ew4`+GLK%IEQuBDDFIlnvba5ECZrc_6^e`X85*F^> zFaHFa`JAQU-71EBXjXGH$}s8v^Q)V9l|0gLtDgCAZ|yu%Yt`O9-Bg3JxiA@o^D*lc zmj~_izg20ESJGM8MAgDb@uO{Kf2jT75Kc6dj0J4*hzP6XSK#bWXt^maR8q_kCJYmh zUxzCwqSm0#(`JxZ+v%`Cz4b{LrJ9AhU3KE?;!N1+kt=a;i)4Iof4!2)r^_`#mD2&oq<|L7H3e5vJz?1`);n}I&|ep(=C2RM4JMCJUsm;2-oXnXd#QTTE1`Xg{!;j48RFE59@F zpI!Fi{wD7Dx6Au$8wskyetv|vlaoGhv83Ah^@c%x=nz=u8_>SXrz(ydpDRA=k7PO7 z^Q#}kA3RlozPZcO+|1o?Xg`|x#C2Mv;HH^3(qTp^rr!~+r}>?pXi`Cd7KGj7>)YF= zX5k5HKJmnQUfH_F=Nuy#s_tRWeX2FdFx6a<98$R+AF4vlu&2X_LT}-C2Pj?+BQhK3 zk(C?DNWa^Y-`cRLb$dtghhF54c=@^et_PkMNC^9u`S#Nfkn%`jD~@>?pC8*ENh#`B zk7vPZpv!)38(}$+5!V@}c(%=CVL^$wHvBAEWS#&7KleN4ISFz^Jl|Uj3W%~g=Z^v$!8~&ZDQF*gdjD12j}LbXYvlW-3RAJXl$E#D0O>M^#ws*!qV0_ zS1Y_k;B!$_w&y=g6ckPG)x9U@JGrp@R~;@-nIzNSt*nb${3BglHI#9ICWaky(q&hq zuc{<2m-o9k{+HKw!H=#8j6(FV3ZOM((Hwo%#27Q``gGBmickh>WUeq+R=rqpCW}Am z=GU26U()OY1 znr5l$C_<9jb5`oUKIc`i5pO1d>mXY~ZCVVoosdfRw1vTsiZ9OZon8X4ytIJ{kgDoH z3g3-I_2NA#rDm+^2FcYYFe^KBOF7W!v8cVP{kHzR9$IA zlX^#}26DUp-(&56;?I9#ZDuwA>wm_n?Ee|3{{I?l|Cb2+{}w>|Cx}-32UPnXQ8oKN zh}wSz(AfV)&;dQxlD9%mS<>z?X}QU$E#>2N0?Yb7aTKeSZa6$?ZNi3!~tC{$r< zr23dboWZ9WAQPKR)~ZMq%^G#p{dM@ZEFiT(^v3_(zNXXJ{kr=8wXKFqw4mVEmgQpz zgB_ZO?snWi z&RWi!*V(TMcVX|YCy483^NA)H&YmpP{Q|jx>A>}z!TqdcpM+L~8N($~Q{TVg0)2o! zPcIImKqDxSe;m&|lnFuce5w+@nCY~7ko4XHbx3sO)4ILi%|{br4*F?*wL3;FID>K> zN&yk1G2HyuTl2P6%8RKKIOh?7gAGr~oK;J&RE6w82Q7RZ!$~|kLp2*;@ z>}HVo;^ROeMBYcA`((nle@Mo)t!60`aEL0--lzb zw7YF$1;FiCpc*@^@Mg*hNu5Z_MPcrUGiMo8GF5%pHFM%8a4x{h_&TWPgd~&iOD4c7 z7h@>kb^n+*@;gOAoMhr9rXtrDoP8Q%i}_@AS!&lkI{S0(nwy-Bo8R;&R*E?DC9be0 zkT?AjeJGsnP-@m`dlMgFKL91;Fll#4&JOaFeTT;+@|QW4!2QXD9tb>&Y}v#wm53?2 z>xszcd_FtRUoMnMW=z;5b6kF|H;Uao;z<|v`DG_nyLk;ai>N$fg=5}IxFc6V0 z`rq~!NB0#7uHkOTX;mP&f0jRfaNy$?cV!&zmbx&^4jRB*WxW1O3GOj)O?k7vNlPEo zZhs`VHkHU!K^BV-0uozzM!W|1fFiIClouQ{RR}blwE>QPxb?==l9awZR@@VTk-vZA zdDK7$#-UUW6eV~K>E|fMCMpjr1AdL_JUmXn<@nppl6O)g#Q~g;y6vz0>FtWk_rm}d zXN4vEMStZ+ti}m~dxq>Hl~g8Fe5Z`Erhms>!)XAIJrvbtzB2ZXqnn^CG1c%+?Kr; z71S|GVP%%|3b6yT3JiYDn>XXY&uspDnO7Qj;*}5&{{Rwqp3G)FXma1v>{Q!gJ6E4A z;Xj5N!N`&@AMRH4I%0UZJ&?P9P&ySD0$Q`i+X+SewXp>*f@=&~Aw)N#L%g#J&777- zRy~(Op?jcrt@$COSMiqmn+lWj6s3^#8RG9CLladLlTjf%>ImoBIx4JA_5Z{| z!2=5dMzR((x*Vx0!bQUs)hjt!EuKkHo=S*b#i7EqYfPCX*pH{Pz$iZ89nws43f^N`TaFi8)~Q?Cg%dEUkJBxa;dIiOJ6 z5DNikan+AUSP>2h@*~5%*XCp|Hhm;jnlj}wfGrp~WR&5@C|D7RB?cFliLl%4>g5bn z!B%}K!xzF5Y3^Ss11m@FM>DP5<3gY#rh`(R1DBFeSb|n?>f`(o>%hZeCnWpM4!X;f z12i;tx|uav%tjCllkT5ST`Pk96vJvEDA`fOAd0E7c!W`)wQ^F0xPPWAyH&x~|GAJB zJ3>{Lp7;ZLzr2&M>H`jybyCP+oyd}t6W1;A&7k-@okfS8I4Vut!p zN-Wv8C0LfZ;!594Z+@i(Wf+T9EH~Mc?ijWr9WQLtw+LPl2D3jWHfWV|&s3VRZyHk5 z6YI7G$)%J4HDhD;>f>@OSabVUa55til4TbCFqILrbdRM0vy{tE^l9hG`M;u7Q)bw` zRWm}BBpY5j-t>aj=}r{Fe=4}sm3Lj6v7#N=B&fpJB!bSP)All~Pve=pFcZ-gZsdy2ocI$5$R=m4rhDx+*K4J(j1i(2 zvQ#LCvALWPv$QidN#P=Ys?J{f$Z$6~g0RtaMb-Lh{gf_3O#6g1PZ?RDv6uiIWc~37%G^(uqwrGg^3RQbZoCp#Qxj zk!Lj*#c)PCyAgiD=`MjZmD1#xpnEKxqbMhs+J0g5KsvzPC(Zj1=^l=C`MxKM^t_iz z93!hB01!q>%gl@Fv})OECGUhAs~2Ap?)JtfT8z#f(U&hl{+yyeqd*7CUKaBbwQHlN z08!>qkc|v6JRB(Nm^iz$r=A!11rDnkV#i`O{b*1jRx5D?x_SSQq1uwKkJEy5C2#mc z{nd7u&*D-DSA%z*H3v~0=e+JJlu~C$d0;IR(CzKaU0Sz8dlKi@#n~!DK20wds8Vi3I{5gOadG&@ocW9>(AE<1&H1Gg)1mWw!3=x%yWD7o?qb$TxW z7a3`VoAmbBN&G0=uM1O5fKweg4*GuTIsAz9zM$K#H7XsZ*U0a!fg6{=5_6XN6ozFL zw(L?0l6{nv|L?kk61Th*cj|xw_j~;^lyQE--bL*?o9j;q9*#pyYM1ICKhW@TTsY*N(}CeQcxW$p*t&6ZBh!E zy9~AR&At<@5iTW~MX{DhS}Z2Qi~7Lk~8ON_CR z9qTOmP9#mgDlRu-|E%mw=_ny#zZ+R@f5rc-yXcG$t*1JNi$+4LT=s6PtM#&=)Cb9B zzznCvaTJ)e=5K0{mTsg~3uF1gC1+8E%-Lxxxk~*ahwo5cY|@xRe~2JiQYT1$_Gv%X-j$4~-h{nujoj&5{>Y6czC( zXwJ9R{y#QQ6}}uZ!+~z!$U&`-x+1DY!Yx4L+b3EnAPJLclq21Kx$C$ zCeprr3h*7jg-kTBV%t1F`bqbY-3|I=*7T&lJUnLO&%7>~jq-+j8V?Q?fz4RD69$7a zJ%N*zJ39F(_oqfZrm&k9IgRKclrOsRu(1TlmX{o+dd@_q#EiB}10ujkK(c~o4PnhX z8qNi5^xRu>Y!WP$3c@tIDCkP6f4ci{4D*0uR+=(lc-_NTMD1`R zTUdCbJsGSK9Uvq<0x7LNRq*IAjDvq6w1hIR|8FVyzsc%R4Z^J!yNuPxpsHC z|2#5zej1P3%LEv4t```b>LY9UDr{Bu;4f1>i6YTakGWXM!9bpdn;$R_7vR>OC=Z zq5=;cU>B~iK4gF3k@X^2y~sRm-icT&LnaXmCI8H!H8Ss+Lg|oO5nV8RDn=QTz6FDSLkRe zVUg8=baj5xtEVU%X5mYLbW6afUb6#&z?Nx9n?$r*{68?8`IU%>lwr2wDYv~i>jM{2 zgLr&Jqb)Zt@txkfW8|i84r#bI6Pq_Rp$nwypS(?PE}G z>_4J@9MviDdK$8FckwTW7(1P`p_J$3AZ*&K>qJ%CP-IYptt5z0t}CpI(xUv5TZ6v( ztgwRK6>tgGAhA=s9&g)+tg3_979H&LO8Aw$>sVOn^7ql`y|B7rta{5kX$xA2!RoMM zq~9BW#ro&|I7Q}VZl7Ce*HahGEM+X^Z=L6(#cYwTRv?cna0Eo>Zt;@&jZ;{|YRG9MP`Bz~wrBcc?a7f5z#oRCOM5vf8G3c$T2ex&VG z#oLj}Yyr(k_p4(M*|Ve0zsMsdBx9TG!iJ6pkPZBp@q!*tm}uY|u-_G$!J52ZgR8`A zM&foO0T26t*+N;sxu%D)uBLs4Il6C~U{8E4oXRNDVS$mbGuzHGO~KVjxaSH&-X)5R z6{%dmFIrWO+;oZb9{j`1D9PB~X0>bPVyTGPrBfqhwlRRHr@#!!jAZ3IL3fm<@lyyy z{~%al#8}LZu056SPh{j3k)mBqPyTgaOw)9PSsY08t&HO zt_dkGV@=ve3T>+~WMf;0brwW~%k!bk;A+G60NYvzm8a%rNx>>rMR6%t-f@7Wl%!Uo zN$y_}KD8a=5a>OcsDyJ|vyP$6SJ6iK`z+5>Vl3s?kEE}CL2=}>nBan5MCcHEQ!YMs z3)_dL0el!;7o{n&TQ_JmA@Z+S z>-nuHoVAc%)y!A&!ZYC@o={jqen2}vO#}Nlz)3Rx(BC4@CxGTU7FK9Zeb(omCju#l zBMA1PyUI6v@Z}I9^W(SS^;-^feuQVmtbepaZC^TXSK#wi-7u`P`fg@4EN!_(Rwp{n zuV6go6ihHdKuolhL902zlZn7h?vq^XKZ43a&hUj2oWpNfEo+J6AK?<{$iEES)>;|v zJ($m_=7?~|?t3`$52~H!W#sXCEeCBmF$x zkx}_0V9}K{cb;3UKDS>EEG}-gDlp2Yp0R(kc8pkUwzrj9k-%M-BQ^~&Ec$_%clM`i z-%XhKi{CLeE62yE!C!%*0WWMq{y*1da}&eJOn7oJAXr)1K#b6Kr}r;lN=R3H{g@uJ zhR8Bd!dSSyu$r#!cf-;nGzB$=f|uTP4vhNUw`vt4+N^WG^-Bj$Vh4m1iE*M8&<(rR()W<+$UIo@T3gb9JI7SpHJP%nud*1^IK+Q-r1J*s*MeJDWGN&q|ZyuUr6;O0Pxf1 zDAstNvxPjFf_5KYqIXw^mfKal){HtXP*Mh58o=6@vejodKjc=+@;ZHKIK@3vrLZQK z9hQ{Ut@r#&FedPSmvN@GHL;$%#hv!06A-O$5Op=1!hh5R^SF@n5od{njjfqRDUX^zS}ZKoEU^>$w%*lA z11(md7K92@6^1N{cv-)9YSwh~nh(D@LQ=`XR&IG#rt`Ns$Ah8B!TC#GtZA zVaKgD6*6dLeL6Eu4wy()CV(kJQ{iAA*lE&QF5V(30_Mb+g9LU9+H@Bhn|%fk=1d$l zrMC`ldd&5ns?{y>$9+96$3W#5!5vTSJ;U&%S+1fO!_w{jn16B2*nai2$BRF_NA{Xa zk6)2{h-+M*FSSyqhOME;+N}*B9L&aM?Ec_x0yg1x!m!5qYp12@OKyS=R|1u2F6p}7 z<2O09g=WBi5mQ{W#Rz2<#<$-PbNSNDSDB99#9}(#4&4G*P7JD>-{;}UUJ*2*YAAgN zVI-{nD{{USJ{!ZpmpG1HeiyG1s>G9?ox+q=s!bX|(c1~8q?yip4AT4H;F0d(ih08g zg9MYw=fGbmxaZ+LhkhrwtW%1JlxQG1wBOP#dy-bJJl*@rM&>MwdiKcAZTR?6?6R-W zudB?2g<9f5$)GkbK&AS$EuY3e$;#g(du_GI;4_iHvS(WnZ0A?-8@P@LE2JVcfWTkv zfFg&ZMHc134RXuLmnun{t37$6@U}3jxV`-|Y!3tkH$7@6w~tOu(T^l5d*xXP=GE|S z{#n@&nA2F!6fB)xO#&hvGs4f`EhGD9$Kuf*AqIImw1bOG4AJ7aq`)gf?B3qS4gh;! zpS}p|uYGx!X`w$Zhbr~^c~ZC;K66Va3JR}A^eEHBfEGO`6wMZePB6NsOFJeAU(#AS z7D9TamAE7&zg?5SX-~NcPP+fcxd{#@UQU)(i>EW59N?tFAD&k_XZX+>(a=7c#y(yO zBQ}tZ0>2vH;e>Cm1*n|K`u2dEK)N^;)c26-?fhO1R(Y2JvtysN_zEms8Vd}9w*w?O zoBx;|l)P3~e8>-t`l&Es?KJL*vb59oYBG#PxmQG~*^u*PqHiIwHeywf&AUw&DPutKAM$4Qos! z{u4$Bn*_s?xO+6LdrHi>lw5e8$1_tVe=*kUv&AZV4HiFlV1dN_mst`1?X8(xtzZ(pb;KSBEb?FI^t6ju#Z z{{&Fr1NKBD#+jhCA_g%ABn`kkG{lszrb%ijfo5RPHIUefTK|-E%osLscjiJ4)>Gt- z>Gx~{ah9rZ{JU)%sc?2a262|j(Q&GN^%=rsuJ^K~b@5R~I2;X6Q=!hbW320SJBr7} zT9b#~HtXc>c8}*-iYu-stguP9we@P-mO*t0#I769{qrl0>DZ~PBT_5XVW z`2THPCHp@a=6^{!{}*2UpDE|RDDi)ra_Wp*f3u^zy|t^AXN!0Hv%#~? z?X$*kZNp1sQ>{pw`y^nIkBTmix43KBcy44v8b1=MQNs$@MHDWm5-v!kHFvR5uj_iP z4|D!XS)y%*_hIOK4X3({S>|jph}wz|FGntBJZ3oLZTRrWx|N5Qk6^xA4xxDbczFNv z&ec7q?Y5!A>*G6_Cm@iMi{POjZZ8-4)%mgLXQQ_2?)Prf*45ky>Zv)eYp&Fwcec9y zIdDvp74y(RDuS1j%~!?la^0F%Xv~)3ooDvS!?#S111AkZbSd!CVgsBmnvN<9N)l8y zw3Bw%fBL-f7HGcA;?C}32^JSg*rIW{3XvV}pL3mq&zFfWx7u@cm6MXe3OC?TS4^-r zq9hj>x@aTr(fwxo6}Jwivkpc#zB#;haA|>+@A^h#ePm99BjwUiUP*tw91=5KTn;F* z7+f+xwHJj`eRFMlb%hqC$t%#ST(TgO_CTrlYPrlEo`s*)Yw zO)Hl&yl%;GTD4uoXf|(a_#_dx|H<^_g;QT~6XNNoA<9D2NUgm$6nX zSG@m4e?7ODgZ`Kr;DAU}DM>E;>o5|rF|6#hlaaXY~5mi{;rH!d$Vp)DZ>R>#n^pum6q*Qpu{N|yY2?*8nCvU8CluAHNMU*qaoWhLr zntm(~9}mwK0R#U9RRE~7+7Juqc+ms8+>xI`hF@BdD%+ObFSKMwbD7roB2}{?9-PPS z-k8YZvZyW3qNx^VTEg7uTJgEA+FCO(gZJLQvdU@@3aN5jj~Hq{;PE+1(Z&o`7e zh)OiiiX-_v@5_lzm9~NT`$_kSdKNmT@ApM|avho(*|c#sGw-i@a)XMgr**d47@(Qe z2o5BzE}F?i^qJsBNvvA8Th0s=1`Hd4GPu#p9Zzh^998*WIH(dR^Oc@ilC4`dX6cVY zToPeA8S|#vNI1X?M*O6@S8SB6wyb7p&g1;1v z^ltyMwz}=;p@?}DWix_@#F7W}q2D{ZGbFO{B{SIZF_k@>wWlz*7}0mWmalY5&%!`gLM_uncEVcsS?@ZcuJ;?>9AL@#qB5y zeZHgQIe5^KU7)c!b!hQ?UQvxL#Awuw|4pd&Iir0XRV+ub&Gy5!o8JEA?b}1{%i)B? zY?Ao%pBUyH56#7nW}H1x87(wb|D6*~f#oImbe&Lm{z`wFTNz8oelGAn90g4F)?GDR zqkzeImi8wJFYAMgHDt9jK2VR^2fj=wCW$I8rDj_bKD(8U;cM(`qW-cy-A&`&zI|SC z^NX)mV2On|czTMV%8@YFu()Y&)n0llpTE32?U&J1$^3lv9D5nM|45UM&9cp=1S2ae zw927e$|x^ipLagO)|WjWDb;XxkTsh%u+Dy3;`weJf8Qr@H}T|n@9McsZ1$%G&2(?6 zHfYXqdX&qC|5qV2H^YE+Ow4u01O8eKG&Y-nv_Huob$V^0z16^rFGsH|fBklD&G=Dl zq<-T%u=(SMHDf{4TFqq6lTMJ)qKF4$r>cztR4`Zy2Oq_ub6&C5)(SGyA6b-AH1%oh zs8|v4dfGORriMg~F8c)nr2g)tXL%2TMH4%MYkW2hhn0Us)ae=AXR>++%Tu=_EtZ*;zZEe$md$ z67xyby%1a*O0-mc#))g;l?d{zX|PF|Q4o~J=2m1?qj647hOEZ$R-@zRB-(_IYV0^_ zUqW=pd^^|?S7UQJvq_pk?Ayo-S}%^Jg?BG);fIzr%IYuPr+g&^DSaaC+jeXDH+F*& z(!bcyGd7=WvmL$JFs9AmBgtP~;G{#EeoADczYJ~tE&TN)79yec+vQioSW6F?yoO`b zNN?k!dVV26pEJH0v_MvJWk0rOHlFFJ=zdVyr{0~Up9ZvtQM0|X81oJD%ekR_@)L zU|rfZTVb(7nw$M=(~l8{^R(7L$TV64woXM5lH|I=H&o{*0ixn`r~n|6b7}XW$%yH^0Wq388*@HcMI!GjvHta#zk1h0bzC*iQ1xboJAYam4}1lRB+9I&a#Z5ov|3M?A3~~*?S1H)yh+nvcM4sVA4sr z`=e<$bUAHzm6hO(;uaxnUboyn|F)j-#7?FAVFAFwMk@{RT8sZl;DO~-k&>#K&ZovO z>kw@y6mybEkaS2uL1%FL)fbxF*$ZN~0>sfC|KY90eGl(DRGHNUZado?`IMsOW+r8p zQnT{H6i#vLrQS%X(!8kfcp_0ptiRqAVg z?rpDS!n4J%OT>kMWjEMHx}$ID?W*_VSI0B8R=^vtir(3&$#}ItH7=wag7r^4=ZZK% zF2JUH?0qGy9D<4K@yx-nvTGU6eHRi#B74^7V=-vpZpjP*0;2JV`!B_Z#9+~dKs}1i zn3KsvZ@-n&%{5zwHLwb}-}qWNMRW%EUoKuQlh7iWC z2mAacZ~Jv)4eb%8OIp}(^fKtWU}deZqL_G{@Uy6?`?#|!a3cmTQTP!!|lfe zN6?XH6@nvEE`M&+#M)u<;V}EuH8)( zciZF4(LnUR-|q`DsQ=aK(mgO&ox)8 za$mB>jQxoG5Wsf@8)!q+h=NY1&}qz;pU){%a&h?G9al z)|s?Fixf!%NVFFy%XrA$4WVxf25XTQ`{8U}-KZ~Isk!}~X763r&w8Tg_p6@mvpB zdZY6YsTI(Fkb-T%u1&X_PXHpvObI_kkH7*XKxd8aw1i@*ovsDj_Ot`ONk#rkN-IY_ zBMo|}P``H2d8kqj``;-jzX^SF2ttlYV#=z|y1zsLEX^p27D0y&Feb<2N*J<30#wa4 z!tMIH6yq`Wwwy2;#6S9O_6)3PhXBwbS_Yl_vLrxJBER`4gwx%$HIDBA+s}Il)X)S@ z9w{KkGa|2D54SB*choil1q4kks1K`>zyqwk?0XLUs3uYicy-zTj?O3;*R@wdy@k{1 z&i^B#;m@@TNqLWfN;%|IRK`=Rga#1WS~=!91!Lsz%i6<5hEPe7b8{s|3dDB5^%by8hE~; zy^g2~XF?7w4O6gK1=c7g?KQ^lQ})fsbEa^XiFt;GK;*OGkfSHxUh{_b*Xt@yiri)0ZVY=adM{0l!T@u*?g~{VKRD_jJtV$K z87Gcd2{wLcPh&E@=~T%j0?vQYAhfJ$SjD7T@u;znr8!k6ZSFA|Jh4g_$}~o6V_`9^ zyK>jdB7z!V_W^B#svan@fo#`~U&FFb~>!q`6)W@@--zWlSo1PBvivdm)P33Y~< z)GS0NnCi1MD8l^l#A6>HBG*@L)12ZdSAdoXqf!k7s-Thp=L=&K>V7PGi?#;wJ){DH zmfu?hhg-sADNB_eg#2WQPhc?jCn) zwl~hw9L2JTt!f!N^ZQ=nl9WBj1xV$75+Dg+X0v3LcwyQfI5h^{7AD_CV>>`ApeXu} z?eD|(#+w$0O)Jx>!}MPY>t`+xkwL1)5u1^h-z!lfpkYm)-QeRRjW$c;NmHVSCE9t& zUKhECw5=h`S11MFR+t=x3#FNQ1=N`^swFBb_a9LvSNvJ@=4}m_zxRcpO>J5&Rw@f) z?)R1uz^=tkC1sR|4Q86Fl_FuAyk^PzR@o^~YD2XNE(AG(G=9M*`Z?BHPS_|gie$g3 z1?XI81{x*Tx1Q&G&2SeZA9@OWCHxw|Xn$hY;--QzhS68rBRyM z*=#_PFd;H4Oj8Ayt)&S8U|~E~pI2d^HtlM9*u*ihf*=i_D!&H8Mi{jMFAb6UL;T;h z@Q-6l0Qq)`zAXBjjL^FNNa%JE{eea}+;aa|kQk^a?gju4ngB_TFvlp`=g*?g&ZwbV zM+j#?$|6qkKUgx4_=tRXG8uE=Q+Yqbg037uZ^s(A&Ef{JjWW^7MalF-Rd7h%yPm*r_YIs1!sylmufFLSWMMj}ir52FvZPcC ztUBPVTi4S-@`3g(t-Pj9ZC34zIXU>8xp8MO;G9&UW<#Ib-~qq{t$S80ra))jxEx&1qMGIcIcH_KP_@AtIKUZZD>^p z#{(^&-H*vQcg;lyvy&dqdX)sXMB1`K>!hti|s0@(dkf1KYGL)bJ|=>2kt}t7I3k6_}eVngqkn}dEeHa0-egNUy zb0=SfhdfpME}d(5FyHu=g1TTU1)o|wR7)l@re$v!tucyasSvRl8-k$mES;A`=A}5z zuAHZ%<+DMl@)Rx0fcO(0R?@%4EHg&4QtVm^p%HFCX5VwbDJeJEA6Y%<=LXA^ zSS7apw7880q&!+naK37P?Ax4&oBMb3*4>gt*mtbc6r%;~yPYi0j)UIRQDS^*giJ`A zI@3f~jmI-WrHxUq?%z`{XlZ*X4pS+{;YiGbSv>R8ZUp-LjBdJjCIw6u!W%4~ANI0* znom`b8sNuX#zV%s%sq~>?i61aX@{)1l^)AVzTn~{$)NMF_ER<{b%cJcCz+$st2C84 zQ<65!tBmzsEC@r=OB2uM_dD0ae+MJeW0t1HpFC66*3%xaqn9LJwX?gXU*)n6y8}<( zj9$7OJAZ=CNB?y(el4Uy=%z&x#bK)d)j#`+b?T#9^t(;)o|rt;7c_e0Z=U8fKgm3U zs!zPz>;(4oBKDGN??QKYxuY5X&ds91Qz74>aCTb9l{7et(x6IP0|BGj@?BnH>e&3| zfU=zt@deF4A;aQ>viESGblG{BZIY_@(1c-o_Sp4D>Zmg>Qq|njRBD>wvJ!O11ZrD0 zl-lVZ;|Xjv+BlZ%dCn#KL15d(x;cRL_vRsH6wwVQ#510dUUMXeLlO$`F{>f6GTunl zH(>^;sEuLNi;w=Ei-s%Vl1-Qc=&JQ36ej`nAAgtHv)n@r1xQH98ZDhVc!feK!j8?f zGq~#k`@9BW>~-bj-#_Zr1;?-G2|#n5sY3u*FKX6I03~DfFoQ<&tZ?g9yfG_*(S+)P zBMs3EU;&iC#v^spkZ1w^Mxuay^qkj7d2g+GeMJJjKGcMZ$TSIO8p>{6ee%^xU)!W) z`=O{&;D7v*G~#AKhFwJ33ogeRV1IGJOC&(T`K<(J>VD5O+B1Kn*hXp(GoE@8=(r=} z-PE^2dDQ(NX?)W(dwe<3$AQhNN z>4VjE8a1tSFPlFqHSG+C+EVL*5v2nsz&5Gs63HT(I`5h)dAngYTYnIO@iI5;JEA;u zFYDeS`?jrcizE%dfpMLV+~4GYv2WWBv6HTRYw5(Dx*W$Crsf!{E&F@krItCJ{X>_Y zg4=Mooid|BlZ|hG_-)c2Q~|Du)U<|E={4t~@1LkECnIr`E~G^rzdz}I+tivHc{97< z@=}v|^;uEKJChf4p{^Rzr9PLI8{MYM}YjJ$+e7t``bp$vn_@JdQ1xNLaj+Bxclw&toyCEYL(YZL{c}SGO#mjx%m=p6 zo$D!pBnOw)We5G|UuFv^D;$@ys%AY6%j&5hE3TN9JibFh8{%p|uo3>;GMa9DTl^IG zAG7l_`!&y0yO*=*gG%qvd52Q})!G;%{SJG8$bqFn(r^bT-1ExC5msEtmp`h$t{UAcyS;(49$u_-^4WhfS*#zzUD~JsO?$GP9a$XGA#; z{;`9@Uj9Frd&}6!wq#4V%*3H?`2M!fu2=87PbTk@^_JHrvBUv_`# z7fA#z1iJNMJ>%$uAO3nC-@9)}ROmvGlg+ws{S3}z7MS*ECW7+NLyVJ7CLS+>MyZ;M zxC`?(vTQw6nN)Tv8&|$9p^9!jkVy`An5jrDJ5Wq68~#JZyREBc^VeHQ+OtQAEAIR{ zvav2a&=?iyR8m`a5jwmM-8z2i4jGBt$nK%-}&ArC{WB*Jv|6bI;u>2P)-9bCVaC(P9{sl>?0tBjF z-VwvEP4((*D9rzBFTzjj)#7m<_3QhJk@)#iQ$=BtUm57v^++8=R3YHw43h*2dDnjUjhO1>lUo}kKIX# zKPx5U*~dD=J>pdS3yi(3hw5K@#e&~o2wU(oN&iCFQx>=$Hp5r!SqR*+_(I_(EaqLI zpuFeT%ZWw(Xpp~RnrE%d7X(eIqi^egH=Jlp|9U>XV={aJGG}p?{0oA)e}KMFXs!*9 zm4XOE^7QFPh%ONZ=J*9j9`%3~c+9T|G0_)Ds$L9gg~RX_Cz1k9pl1`m{q=Pu0`i8l ziGD}a{i^NyVco#_HJJG|-~KBalcblD)z9#lb}wlEu_8)+MS^JcFH%Jog9zft3r=ks-RRGNrkX!7a=Ut zQ@8Dn{iPdutaK2$EN$JQxMgZmj#=xI3}JcRtdp*=B^2|GsEPmSjdR3VRuEroK9cX~ z#-PQkhi&L-{&?fC)QIc2YfMkB!_zx29kRSsFT{jSnTO(ZcSTzqH-Ikb3T@G8Wy}p5 zPH&{5VFl?nOI?MFwEINtZQ^MHchnI=uif8nm;N0Cncwmr0b%d~`~>l6dHE0lyj&n> zEn<9OWEBCFzl+I(L;K?;k8jm{eDe*$oBwuZ6rzNLo$?Yi~&e8qS7 zl=&U3>cDQ5^L%;;lT^e(2Uj@(s;%Jj9`IRCI80eJZmw;f0V41LYsOJ%qWOJ*UoJ=3 z`Z1B8cUfzNl>rLglj!*zRIEC;#~QJSOwVMJkRxidqf=PGm2rt*H;qVVtlFki1SBsipMqOn zQdJ+RI&064T~1&)%=uH>Rd{3Z=zHA)EH!N73Uu68OV~REkTI63*sj=kvUm3076Sn2 zcp3-x@YzSHzu1TRg14)#m25I!FlPiBorxXu#D15Z4DQeaPHI8O1A0vdsy&9_SN)_< zSSwa{=$QL^+<&1AH~r$+SrnC1M{7karY(2M%M~fw(5bS?g`!;{BX7weTCtd=atk-+ zNTyKnl39?PMNL`QkePF?2J@b@xS&cGOc5>*`hRN3dQhy z;J0sPU2FfWj3y8yB2YT~bL95E$HHCsqw1RI>Q`r$wn8iVG?tpSZZ9IG3!e+OOqBrW zY9ul<9Sxk*r_xSKsH+@ZL0t&3#Hn18(HQ@LnSJ4u=8}ID#sHaeO7F!xc3c{akbz$t zGWm3&)07OA@#CIO&*h9KCSgJ-W5|weQ27YQAu}&5cC$onRCY+(@Mv}8SVV!42Qi}} z#waQySiFepHmbsNi_rdlb{BtwtTV3}VkJkOfi6Ncq$d87ohwytKKL-4sjG-d{n`C^Xe&ZnIl}}hhPf(`IL9BDG1N@E+n}gB5RF;c zWQVC8O3$?OUfyh@2&@~vngnW0wYE0^i?i_@e1Dq{9L*1FXm!Se&M~U<8Iuz+u!$Rk zkE-5DgY(X5uKbRI`R2f-ah&Hahx`$2u3SiiotR%&yn=^+V4F1AvJV2%DI_CMUwG z4^BTf-6`YrGx8U1=|;o)kP-3B*;{IQk;Q2QqbAjXA+X%*FEjRZwkG*;Twh=JEL&{Q zJ3bCfo7C?CdwFY{EU~vnJ$85pj~(79yXMo4DXtTZy~$wYMiDsK&wk{Nf>&2}2>c>S zx18T)48N3x{F&O4aZljF>( z?mGQ{DqU3*Ob_CygLFZj(^FgSHXptib;lbADA37-lVFzXRl<{~-E{~Wi7*f$<4}d= zFjBa>sTSh&I!VPbNyJEm3qWTIFUAbnc6>_)%qT!f&dB(&ULotwm?8_6r$J`?rh9$G z`)J@D-YiJpyTCoQXY1TE3xHk#71K5xe-Vyb#=AI-^eI%>AkKxH-5#Mb_NlBG-jy_` zP)I;yLe8c6Ei6S}600YxvCZIsa+oB_Uqq9yjP8Z&bmp#0r3c26N7`O1H1Z|~DodFw z1`ZcDX_QK0vR3J%VPm()q#ELKC7&wXe#~ki#2!@UB0P_!Sgy@}5Dxx~VFj{+nf0*n zZpo-eu8#^DMPxlRcuu!co3Uph83Jliio;3*!xkD(W6v}1u7%Le6Mg5Y1Y-$dHoeetCl7>FC>SKV>okPO zm8-*~<9m>b35C^ni$`aOzTB|AP#*SN1vp;bBD$ipFccw>g{_g0jo=k&-cKxAX3Gol zYc5&jW{?Ez@7K01UhF^(QmPDE*gtm9LS1%Y$g4tU@#JOMT!s0F7d-R8bVWQ_?u@2* zfTaj0>T+(WoA7u`etpdU;CyyW3F(*ewU7`YlZIJ-wgzKO{N6bJ|=rk8B zxnX=K#Raa#_h6%+Fl(M^i1oU80)*LRO-XJHgP`HmlotMup!WF4&-m zo=7xtu9gZiUW--fb+0I|b60hTtP_Y-1Cr|2cMogv=Hp4i*o02WTMsJv8Kb2@6%=|C zzONT__2a`XG&H>)UFvcEx-tT%H==*X_OaFGAg{4D6aPZM2BYL%I9BEEQmv)Ldn>Hj z;=|ecE7k3mKPE9ys3?OkhMdKFc`v~PbI1Tf&$}?{(Ji4E^PC9d+%{5`E*(b~S~h{{ z3vDtQ>o0M48S1yMr&2Hu;DghiT!~y*SF=Ny`bpzadGvI-)jY=oMU<%s`qE$@{lH6N z*SCoD7Gp-J3WpepJ~W8h&m{eOvOES6y)&u;(bbI$PqhqBjd?7+Ini~njPS8h)cde? z3+{Jpe55hZmXR*Pj|>vJu!4Tn;0*O~bi#eKs$H_0DtJ0V&pO*uB1I~ue*1%d9|G~< zW2GZmDn!?>ehO}gU81{e$Yg>_WR*E6rN`@~SU1MQtXo)mN{Nh46e>Hce5dLduo49& zIRyJ54a6U-uN_cO8R(aflM?+Qz$jbQ%wg_6zCBx07-OYW@&(o^H2XB=&`utvH=!My zl+S!bOOn|sVZVF&UPB)3W=I9<@_82XDh$CmBX)hn5eFMeFGiM3 zlhNoZB7QZxtQJY|Cecx8x`WvqahTB|*i;Gdpuc+{3MvzAO^$5!$Rbx!l_l`>Prckp z1FIEe%c77b0g7=z}Z~sPM!Ju2mJIZcFr4$ov0LWXBumTvb^IrRc3#(FzN1 zo(h$BF%IYw&c}WUBf;b)!)T`-+4W!rio&hKRt>Qon}Oo1M~^_H26a>FJ_Y~^ZmW4a z2AM>>+{<}iuYSX@L}KvHYusM6DJhQFp$ETZW~W_E@xdj_Pd<2byfr>oyQ$?V-A zE{2c^i$qGJ6@|t>1Wi4MPK0tTDxV`FuOzs}85D-fr_?!44Zy>$Hu$=$^`z-)p>-mA z$bXa)daaJhqcP4E-)5f+esfRzA0II?ruD4~_Vls5CEc(^%N!zYo1>3) z);JD#+`)=d2Xb_41x!4yI(zG~*9bME+hAFXj>$3r#rK zYa>Ho-7SngGbWLr(vaAkT|#tOL{sI|aISHyf;tuu5>$lY)7-OhN_(wQCT)4c^xgZ$ z+HA9Gs3~=MZ){s5y+gqBumZOW6ELaq-LEhgZzZyD}4(j>r93}rNiozeQl1nK6|W9zj>HG=Mrx!Q^8rJqOC-gXnUGcG2qbiVt=!l z#i&vM+(K1DZYKv2O=nY1e#=vdx~EV2btmB&QCL!XP4&AP_Pv-9L;4-WC%?ET!geve z3u{L{q*$JRc}H%m)RHDAnM@M5yAaVb&e0&@%Nt#d-p)X&g;i{bR&Ia2Sf&Za{@bE&5>O z`C`u^TUad2$UVwPnO)h0;R3r!z%c{Ev0^W#=WM%1T1qX8ibikvf2JxWG-NaBT zZr1`sBY43W1JRf|^n>FLpt9NFV)m#X+vivyC=|wETe{y?GHyrvJGzqeE?nHnqf@Ks zrDk?5*zROQ>x}K4aM=V3NPE(E9?r4#=!)g=^uAR6_1>WTVgh=>Y!PVHHSbJ*ZUrHmEQ`esIqG*t z#LjW;v7xwTKQSMw;vs-iJqm5V!+|RdFT;)S_1XyI!l+KT2-9t5!pHdO$L7ke-kxw# zUInwZoXM8_dTZp`T38jZ1+vOfjm&v6iS>6DcHP3QDg0sD@kJg%2ENS{%Y4@osKx*| z>OsGaiZhK*^%nC3Z_e>Qcnm|Hhj3b1jAxA*F^60#+Ty=-8yb)KbioUYb(4Uw;l{yctnS7^?z8H@_s}hNa~!!7MuL+t{@o4G%}V^|FP6;D)_7W?Dk0PV9R> z^|C$BY_JZS=S@=@n$aBVn}Rf;VT1-?3!CQ)f6lzY(AP>Jk_*6d7$>d2*FCK~W;w2ZhE{~XnOWcDJL_BpKi03GUU@J~JF(Fu ze(sMv9dg>|N1}u}GN_;hi=j)mTu+2Yl!e2`Dn>{C{ zkVd>-R%OX5@t@X{H0K9NoznoO(&!^X_w=4@&$gY z)fS&Bcyt;Y?JVn^y{{Gz`XFBL@7xV<6N2$0Jv?s{#>s~cMtZ1-x$rw(707$0W5-j; zUh_54ZNxvpdb9w8|52~{M+N7vu_G21&VO0EvHvYm`9D#w`ahjT`bQb+|5KOx_vF;S z>QeuhSNiYjQs-LIi2yd_?wOkHx$1h%PD#9nZH@=q@&tDyD{2fq4rH-{Xc8*aKXu-t zc6vPRK!~Wku4HwOaqH_?g^)neK3?xGAY`PpVej~FI_EV$9e*iOrcld4QnnHe{YDU# zjo3sh@nUI2aaC(k3$56KK2h!GukgM;zd6ZJE6=S||E)b|xYLckQ4K(ycqgX9qyPMQ z@1^mE^GL%HOdBbs(9v4C=015$ekOUIT}YycI+6TcqA&7~PEtOj6|zB*dlzq|bG)Qb zS%yF*jgL(5W-?WL^m%5iv@mI@ABTdN;SaI#5H*SkH`ORRT}JSpQYkuj(y7HiFLU$0 z$~zee5q&M}vGsZpiltb-9_$|`I>>U@Df0FBH}!-DYqw9Kd>1TU|Nf_JAEacZ>=V zjmX@}jv7-&r_}hND6a6k6OwsK+|F{|N+%PC3WOiO@PC3ih}B;YB$;S;BvJf%rdLgN z(D41J<%aRQ1APw<;8!?l)bQ6sNXf*@;&SJ;>GU}r&IowE9MPp$-TZLJyW@JI)i);A z_EH87_-y30wvV~dN{(pb#5sU%!7^naEMPzs>Nppquim0R(~E<4wZ!7K>#HbMXJB`$ z2?f~dY&d(@S-nQny*$*;l>q0D;HU|DJ?|}kvtj-~4R}M0DYN7dIyYrVbr?od{-gF| z97=pA?4|Z(I#lpc!2nq`AsNOwxSfB}Jn}|cYtaZ9E){gdBGlWB>v#H;l(rR)B6MMY z4QrU<3Qu3R$wnAZE8~S=cwS}T?>n1st&>^C@cGK^v8BrwRTqK*(EAlZ0DZzqi@xHA zPGR=Oj@`xY1?VLOx^V9vdg#H)wOxEJ?{nd`e1No}hLlwMBnVWh0EsASkU#U4HYuir z%!GG81U$wwpIhhZT$q1ZQZwVwTah7+1>UEwfKY>}l-;KSrGcT4eHh?X9^8Sc_pF;i z5JWqAGFvRkq_|E8$eD~tklTuD%(pWtw8e#AwS{8ukY>1h(D6)f&qK~oiv~2AIMv({ zaI*6`D>xbew=q5K{_zU1pVyCbxsY$zWV<$YzUYIDCzDNBG}nX@ z?|W0{S|2K$9NrZ~jZ!$FNJaKlsCpQKZ;)qhoH=n06+HHDSAHH3~+J$vO(HL298+{&$+D=A* zJ9*O@kyV$Em&5CQ##c$vPWQF&U*pUz(1#7=b3|G%k#UZmUR5>c7*lSxfVp`PYpDo< zw#E8}>cV!B%mxeq_eQK2p$=p5@UqullGb|(66*cPHcEqStfd(+??;Z5EVF8Bs0@na zW3SfnmbXdc$5PuBoEu4vg@O|C(-!qm5Rs!j++N+4wgUZkhl5(!7bi z>JIeINJ?AIH|D`2kZWK$f=xoO+RY~2`*z-AB?8jq2os(~ZZ`nXV*#qAy;PUJSEF3L z9vEn+VRw5_xZAmwH^*g-OU~T7q9S=3u;)g#s!op_0)uG`@@bCkWQT+lrf;l1M7l}# z1GQ3C9e6X>eo{(Xvhf-Pc6*FwczF1>SCl8#0EJAP(#JHAqlkmN_HyaF_7(j(X%<@dvL$)ymyt*_txI|YB_0>P>>XEMfFKT z@rWQtzvAR0dYv8^o}6Kcooze*6G1ocmQywW+WL%&aP>!px5uyw#fI64>>~climxg|ORf7_`jrYJb;n zo|iu(DXWxuXh|0;e|WM$oM($w!JX*8e#V{@*He}Z^f87Gez!1zvTi&q0Ob6{l?*hF zW)RVjmc+mURDBw!zcj?gQjd4X<2WFJJm-k7b4O5bJNM@%-t3qlq{+ACWV1rCPzE4_ zFGDU>y>Vpb9plY+L!LjlVA*b{`nYSQjRuLVC60c>NAK2t-96;OpbX?Yw`32-a_4-` zO1YpAAob80mYY&FGv1)Wia?g0b_uJ$2cd)phry-lMPXP8#0zr$*pSI_(P{|sn}(Yb zijjeIkic8x)%kIdy_A1kax;*o9c#uRA(MIM zd=EQlK+MYEJi0)cI_qRQ;AyNgP|dSD!KOg=w=>!wTo#isAateB9A@OPog2PyrUU!o zn3-th{L+SM~2 zQvdC)^wpq39)-`J7n{kz>$J+Psk^}j>zq_R-fOGs{z5rZ{?OHo>it#{w0XJw-Z+GKBx?taZxKmXmoWISa#G}Nu6a_OOTfw zk+^mQP6zZLA4!3|k};1@G9+287x5K%oNYBIhK`rjI)w|iBR3xH0q-6UQ z0(S}mln++~yU0DEC?U-@4fB^BA}M9g<48 zVRS=J+wYf)>u+sqSJ;N3(LZ6wFar(Nr_7?EO2^xZ@K>s>W6#hKK!XsjKm=%U`||6hv{Fc(EPl zXK17~%v_ngW&#MU7ed{8B)Tm`*j#Ylhp(awuca(DA+M#az)!!kY<;uxLQ^ft?q&@F zYbI2%;>b~&VlpyK1HdBv{KR@mC0M(uqwl?!fdt6noxk0TkZ7EXqW#bytq7WpN|)nQ zgi0Vr3(cItPA5vPtGmu!vZ-WtELHSaLKz?PbWS-Ydgw38_`!B5i9z5~scjC8omWuj zWu6MXw91gIM{0H~LcT z%3GZV2mO}bWWViEJRu*Ec~azHP{iOOkPX7Mz(&FCxII0iQHkL|y$By>grsfh(0ua3 zB>9mdnK_>F-b!J>BRZoXh9#Tz@tTU9vW7`9Sfx)~LWP-B1yobdWI+7S#Dl(Bv?l!8 zEAyG`U<#_m2gqt8LfX2|BOd#NF4q;=GTyHq+xZXFq2F5+tZShxPRUHB4{1yofPRm( z3>EuS9lovr=^JCsK3;y@me31f?gByUUUC9)1KbmA%hDm=ruXCJMW|DNz)#2A0d{lr zBdp|aI@_AWnofM82h7LpQB9-i#|3Q*c4mn?7~U&zqmg;arIxkUvH>PG$UZHbCBKsn zcc7tMMh9k{sNRdf$(#wMIr#u9bd7mCe_(E7qtd*g<6|~6LwA^qz@^M@n-Uos=2>#G zgTg_nrOhLsYUrn#KZ35jbNE#rUlYgknHstMJ^~LfS}qT&!EX9d{p%`?v(WqSY)t#% zjM)C5`p+*QnY&;sB_g!E+Mo7I2pN161<}s~7WBodmiY#1u60_#SGj=gPm{d+YBQR>f z&;+oNH!xVoeFDPqt>S)e6$==`y7Upd)AKUK;;e9y=-B9RH)Q2K6v}HQM6m;d`6njz z%tzSx@NS+=9P2M#rDxwM&~PCrvq}FD{!lGE_v9Zp>BZhBu5Kp>U&>fnXTa38kFnbN z{$t`8>YN91*#NN~!h*x4X>kSQ@`P8bv%ac3b~!9+F;#s7M@@y_89x&qO%)s!fnK${- zdO;wh`W7TxY^;Ss0YeJ*dZ$mO1;ChPsZx@A(Q|K;=g`e5iGbwJmHCYYE2NNgCHx?t zGif_Q6*eFH?{q2LC6?Zx55A?eDZGZl3!gNwO!e3TdN7n|x40IVJpH5(g z-BtreeGjYc57u;84cwj<1IyLf<` zdT&H-6U}U!3F1|*GyAbO2Cw)N(((DFsx7!bc_0G}h+ON`RcNxgDg{aD;@%-Xv~B45 zblwa<-eA<>j`4NpU5@(i5>8M9!|gQkYwMSotG^~xze88y*ID0c-7O#~-Kel2?YGrs8@ATKROH7KH>MD?xH_gX7*;P|`jo%y ze9&{JhEO&w*h^A2EKoc)lp6rf@h+k_m>@|uU>be#=s<5!2GqbUnQPc?^*&V)41mGB zON-_3&&|#X$d-XsQKDMaR^`=KT4cE|B6_RC)KXp~$GXK|Dapm2zhe^@o(yP)y*43| z%fVU~Tdpt!BGy#DOEH8UU6gl!zi64FsvOd%J+StYl+DyZra!5>sOTu}qUK_zD&HN3 zu5s1)W?%?QnHs6dk3Kn69$hk)%FAi5u*d_BKvr+8jNX6Y_ImM>r4slH73GS(`Ezfe zCN&UN!%>#htFsZmi^d3(Iz|#3oZx)hmz$e?H3(Sdc|gv96d$A0C#Q-+s%&=!zk~>i z6&``#EAIjnusZ6@-lHPthHV&tp0fDSj0;wAJYC30xoFDhTwzwD+pOA)vz{F?TA*E(C-WJmqw2ZejA-C5UCH68h z83LRfQFqm)1Nn_e0m}tn?z>J_1O3kCGA3D`GfEG!-ihx!fw@tNyruO-9djEQvGLFtltCb*OAhTZkhfVcu zHIx~J23y*PPScQ!6M22IS29C@P}MYiC@GLmq4&`aW7f36wMH7qX8VODmokWGacKD4 z@5MeeYKP<3E)->!V@m?9M4Ew>30umklRsI+9q7*KT7Uux>evkct?mPTR{ekvD;x>@fH@4{LD z4iuiL)e05ZEw!_Yo=G2Jh!rY!`~ao|v|E}TqI%WjUuHbmD(PLQF6nn#9s8@eY1r7F zxTvL00<-u-2`7qb-rBs@wwSh`cbqehP9sIeWf{#l5~fEZ{RBJk1JFEKP6A1A_u+7) zBBArf_K;gioCx5*z4%xl1?yyeNO2QGKFhd!T7g>l4!l~(Q?U)lZpju=nH8x~Q8!XY zPGd&fABTm6o0Za{>B`2JX`!E&I%5&Z)9?MpDIb0^B;^HB8M7!IM=l*ly}e2@-n;$b za?OW;nS@38H73s9pF=`%E%k&#mO9QJoD`E0b!LdF#?F zFs~q|o~QO$e$9IHUuC+0@9`OPzl>-aSSP-ivMicsl`@EOQ_RPN47i#^zkC~x|Q zr*7(29`Af#N=jp5vb8VmY*!9|MkFC4P$s17jKJ{whrDCjr!6my(PV>zTSpVTazZt> zb497_m2I3}wnu&L%3Jk&S&S{PTd8q@N+T6ivAB-8Lav)RERsGa+!DU75otpbc$PxY zDPzqUOlfw&!DB9G{Fn;p%VP1^VS#`|G^t8vp~<#2W8P!|8k z{F_9_D08rY$(B1IO5vzL8mM@(IJj*kuS1avn<~8+ctldCef$&Z?lU!+9SFqJorhpW z?&>295C@D?ltpRa!c_%70vR!h1u+zD0(x@AbW-qCd6^buPP}X`CA!?XfV1;gH5fu+ zxc-_sleJBtZ01@&vf=J_rAvPVg#Fy4R++_|!?ZnWW4yJhjeiVw&j6SRGRHn@>0-iF z3*kM*!{?C(NSmi+$r6&?zfSe4u=uL!X}g1WKuwy z-OzXXwxu)I3st`2amF5B&I?Eo4)f7OZxbABY&N3Aaz$OMmh<)W5#eUxDAJ?iIEgW)bF7x&i1gU_t522-jHq)|&h* z@f9|+YSt|$qpCo`t{cY)!lEBuaW?_cfD1dv3}WU6Y+jG^1MbF@#914cezV|9 z+R(`bnA?-_{rdQDo;Y?*rkz|Z!uTN-cYzA2$fz`7|6T4QwoU20 z!`r=w+o8=Uu_=6%JNf1bWBT4y7yVP5FyF?n?%g!^N(oyc6Gzk1awh)O9py2JJ!Llc z)~MOW6piHSRcS7&lpFcB>QH>dO{!P-U@pp=9o$Qg$3F=06VWv5Ovz{i@M86S1~mUP z(X$Mw$bRIl5(sWmWY6aSTzUP^VHr?tAxK2*@ODNC$dAQh5WLlgcx9ToyKd_b6 z3s+FiJ!uNLIdLg+5gt&A7*8hRM(ZuLJ#MlbqO8{oLi^mE_M ze@H=g=#P!3Iy9Au%Vc&Mi-Wx3 zhHg1)b_e^%MFldhvwHk}V%6glT+#WCzJD8m#{Oda)Q$hr=nx46I_f#a-+rTRc{j9` zy*59NhIan5O%F156`nN&B19>Aj6}@`r`$&C@>e4iE~Xgv%fQAw$$RkT(2$+L+iO(i}T!}fLeN{w||gvzF9m73SIH;u|T62j#Z?1*7b-`j^Joy^hGepAdR<&=~*8 zQ2*A2WM*My{})63TkrD!$>ZdIdX4`VF8c4o@4vYy=Rcgu|2r57f4jI6VwWdqil(CL1 z6ChB~aqZ#@2TSeIcg6n#sHXR6dqVp7jD;D)q%JfVT4z_8idYKXcbp%DuZRRhP7Tq6 zxe*8RpSM3<-0Ysq7jNgcc6M(M^>@*d#8^d6+*8}?>V3TKzMEVVPmO`WnpF-->U8Yd zdJ#S~o`16tVN(JJ`A_u9NB7 zezwFtIc7wwB|lAfy#TCbe#Kh6#g!`;SNF&9yvqG*N;$4^yLPrQDzy}gnM3dV*VOi zqpacU6-`u|pt5R1SVf86pKtxxvN=6Aa|PELjd*29c%{R5tAV(pJpW45tT2t%XtO-b zmvh;GV_m&%6z#}9Q`raxGEmF~GB&VbXG)!7soiF^vRjXhwAIr! z$6&rHCt1;7ZG$|4f|DwLjmB)8;l31hg=|4hW!Wd4i3BTPu@6~NU1RUlx-Xj6N&zBo z{ZK8MXo*5aUPVboFd~1=C3s6EQ_^fa0V;44?2(}1)Yf&A;SK=jVyyY(&=j|-pfutN z(9wIe*|K>U$lxd~7Q7}tlFs!WB$&VCJW$?#%)gbeU#yJw<{RN&Grm`>Ulg7BwtK57 z5f^-AN0kpK`7J;(2pmnhtC+N6zz-UT$rOe(9xV*MwgnDg8X7}uy;OL`)32@Ge9STI ziFi?&Y=b=`T)C`XJAZXW>u@+3_GXtHfP1%_%OLScOrp9kHgVguYbU)|^h+{ONzgXx zDMI3i-VSN+QKwMf6l&#D({X44{I(G+KQGomdp(CzS-h7)OD-fGS4Qao4}sR9p`Cg8 z6Kvnn#aCp{s^%^V%}$nO+OrwhDwvQ?QkL}$7JXyU!ByFTQV*&ku0gQv&I+|fI67b5 z9Qwy=gv*08Bb}8ifh^ql&lG*YVhK83kMU0C%G`;;+_^0`Y$Q+@5-rwSl=V<>q8VW{ z6y3MprAcC(kt|}|kf-Jw1=&RnEg!THds``5PS`!R;}#`Y#vE&LrVjU zRJo^Iia^BL8%Z)Ufa+L1Z2A`%9X}Mz;Ac~VR3LFRhJey0(25cAipZQD4OWi>77Bv1 z;;in`^f-q0Fh8U?qJY{_w9&3j6zTmw-nDHM_+A|+#^b#;zfdmzI66{<9EB44@8TL~ zB!t8(wmk0FF@}MMm@rq8k4T;0aqAs5h*rLiFF=YXZB4-n#RszMpJ5KS9EF&Pc>Q-+ zpg}(Gq@ZbFn{nDdf>Qd_NI;ZG$DzD2;o)?AM(8w?10XU#yfepbih>{TY2D9%3g+;e z>Ain1jm(i0gofXW%iig7j@Zq7AdLb$aWP`_GGYOL-!FrF&w@977mu-)vAB-b|6@$0 zWD2fuQJ0K)jH2V~mCPM<$dT#%wCwRC>qobe9?8MAk52vwM*dCvtSXl#^2Y0s2hKU| zz60A0hYXANixE#JalwFcFy^MhNwEuBSw^*2c8p5&my-$)ovpGOJfyC}=pL#-!f;rM zX*gTK&n5trW(V-t`)yzsVJ$n&9yb$oBt`UU*BP5|kFUUy+pL_QFW`NBqqQ-7l7Mnt zYCOyw@Mr^jk^oB@Ew5aG*oY4fc}nQLo!rt9m`viV8?71w>b!U^70`~3PnU(g$SJINWclpXD?pR^VK!8JRBvK zi>VKhE56hWle552bxS2gYQra0)_*{?6jjCg_*%zk$K>Sn{cbp+UcoVhm6=c%uz!Z! zHYyyMWI4`$9^$B1P&WfDE1zwORgGR(V(kpRZY?Z~RGU2Y&*q^#m9j)wpBS0zz%hSe z2{BS7pspBm{%``fuPtJ(iixt0KG<`FFkEHGzcdza(l2Z{2s>xlyoUU$Vqb;$^rcCVx z>Wz#cPAO(M5r}F;GahLWkVO*$RWMgew{UG^XRnY}X)|rg6&s9b@MbIBva4tKb2@r*0I?bH{ZIh zIH^fvqP1+sAF|&Law1C^$!g>g6vSoy;;qgZZe%H?;VhxywF6n-DLosYclcm?S^ECb zZ1>r49Aco#gcOD+MR{qly1cKWvaG5H!@NCu!6Q#;cK9CNy3YXBD(F>qQnIUyhv3^&%(@ z1tOL4;R1YS|G+%-U^xbD$M&*^cSYXXIqa)EkF~TBM#8Lu%#niF2_O#kmaDCxI1Oc@EIVJp~GTMEVzeM5>=^9%{%#;=EnYjz}4< zy>&gQCMVn_C0v82BujKLui%vaD0@NaAmz~U?vhDbLR*E*Hk`mScd^9uhF6y@yLFNy z2eB6?hu5R{op2oK3dtDOmE3HLxPCJWm#mZ3wmW;8wz!5fqU@9_swuh` zaAQ`^-gcYe0>zX3A}2@#!xSYLcrKZQ@xi!_Nw_q6j?4=Z7_pyR8!Joxu zo!-B?#W-?$axTLlbrTm==6(!a!wK7sboJAC+a_n}>-Ds0xJ2gJJP@F~8D;l!RaSy% zsq45*oKxa3DB*lFkWG*UC&9&A4tqryVeN`*g8bD5&VxHgO)jweo$WAQ^mwFCHggN5 z9}j@imT|Hnn?_PFo?b!%tj((_pg5=Wf@R2H1q)ZQQIg$?@VJPytj%eaam0tX*vt(b z0~3`=Yy!3I&cDkDHPFQ%*yT1=4HOvoa|q<6k-^g0SiUb!lDP?zh8SJ!@FPO}dee4G zSOAwR({if{4;t3f+`TcKJzC8Nk|Bhm43aTr&LY^u_fr$i5G!&v zSzSJyen{4$*rt7pQ1^C6mI`>r3#a-Mp0l9Jm$}-48};-Wj>08}p@8UZ9CRm676j(e zhM;mDJofWQQa_DIjTQrhc53#ist3o$EF2oRVX*cH{7ZmCW$MvI)s zXy#f9&fgt~irs^Ghp^B3NCp?*ZzMZ6iG%K2AaydY)Z~qSqnp_k=7{l8R*Lg+5^d=P z+SdM3z!?Y3P>Cg}h|8E)E1%QLTA* zeGmL;xvDw!LmQum7f!234)fP8VHsQ-Vv!KdY_>$urENwYcQ77}I0BjZD~wXnkv~`h zilkvHE{1~~82!~B*w2TKYd@k|!cV?lZD!a|mwuYCC~P*$h|D&OTydeNPhVOB1X+Lf z;n~8XG(rzZX(d|A(~6h~Q3kt~(+*)GM_2W{!$Wyac4M>FouHZ}o{1aczOhKk16Vy~ zGmt|CyyP|=$k|YXB#ssT%uR&@!Mw}}&%!_-xVK#;WimWe(GQdppQ!=hRUw##V36wf5vm4JC!6hFa_?+_$2O!rZkw z)BhK9ZyA+W(5wsM76|SHcL^3OxO;GScXto&?(P~Kg1cLAx8UyX%qHJC=gzFVX5F7N zYrQ|%oA>Rm?&_|pr~2vcl%d^#!CXd1Y?X(AVij|ou`Au z+T~Ff-`DP5i?qHZ zcxl`aHFkAI-;=tRyg?vZ&sM56zko%EhbzQC!l1axkK}4Ot-1U%64Qn0wfOSF;-~is z$NDM#4`1;>x7D!um?V}&^hU!}Vy#X>z}mNGVez0(68PPL@Sd(vJZ=eaojzvUHK@4g zF%(1&K|fuL`EZgWT3EGysJNwjk^hy6vwx>ycj3B92zR3&$(H$HZvs|<_Zy-hIeou2xnN-_jXS)@N!~d3H_=m+mmb;lbnEqFW;lEE^ z`2S^w;Ul5&e-)kXsGAMrrHl|Y z64&gMzIIHa7%|hts>k6}-N*Q_yxUwJK=H|DEX)@aSvrs+nci$4SK(4NB%s|9ysTwf zd$&Ihzr5@RVG8rRs>Q_npp_90;{JF%nflDW&h-~qUPU=F?%{1keSCY{Yt5Dvz;5PU zm94e=i(3|I4kja}sqK|Ag8{&}T$GFw+nj)}8iF-dBXsQgN> zXdg-x=13H#v+N4o+cLeMx<{tF2krGDtj=`PWXe0nZ4jYs@Y3GAl>)Db4^NneQ|c%C z_G2^lvX)mL%cr9STDa2zab9cQn|%Z3NWGK*y|`vQH09H~Cc=Gh{_*w;b}$pl-`Tl} z)|TdbNu|0Og9zj_~#6sIgdiSV;obxIDZH}yQVI8tn^5skj7~)=i+KB z8TPJTco-z^*_t{lJa-TYw%gE?93t)%W~KRV?4674g_nP;)KXq{&-a<{dHPaE@F(lE zD*8FUrV`PQ*pi%`nC6$2Fbh@U^+0#n=DO@1WX;^b3h9zF_cF?Z4k=Shi_(3L86ks* z%l^9%J!lM%@)P7tT2;q#q?MsLX!tic{=h4eKcorb+Ta3RRHjX9z$&&qy`ePGbo(2_ z<~@3dym%u5T-Ete^%NY6dB1C#E53gNDd|@=*M5Tmt27p)8YTthTz>ddMFD;(#Atpq z2Ju6daLs^VVTdB`Olu?e%3_wv9*4>vtZ1r+i@&U$(pHUiu+FhMffH5KI|~q@!_V%f zk;6J^Ps!UfZf3L2X1PP@);)WyggES6rY>>NAFe?Q1+Wp4<4SQ;o zcQeNGFou5x>j}@%w@;o^$r9qzx?RX#L^re?L??9Aq6q4V2ya?eb6-O2WDh__IPxGW|}CJ=y~y|o8lsZl&2Jd0Mp zl|bf;&!Q+=dWYlc$s<3=3l$>yld)?bUdVxY7RCg0Knhq;vgrOL->C8^et3I|H%DSv2wsuYNH{GfUV)f9zT@@+C)&AXd8NuCL5k&=c=gKo^wfh@0WLO0S9o@<~E?D~5ndo>r?))+P zIzjgq-Th`5ntsVsbbK(TVwMhn9+iVB!R{Z~lLv7qi=z6#%}8yx!xA|(TB`fJbFLc@(E+o{z3YyVT?NOr${%N;B|yh z2v7^W6R49vm1UgbgSuJW=Y>5f6FsqhvW(>uL`y?=G;p?I6FU%DV%qXzZbM1V9PT~U zG2480C8Nqk{u8&OG+ZIufh#N{GsD${8w7iSoY$T927>WCK5u{7PnvYw)TwBJc z%qud0pHZqNDRr>K_=eV(4fY*k27{)d=Nz0#lC}ml?deXPiclT`X7h{vui~AJL7CHM zRh@lWMIZD}ua0g~H0TJ$#$TN>X|N!452!FbFH~-RPqIm;KhWf`|DQha`Jc zYUn|TS~<2!GXbMdds)=15nbIc3neFQ(LUnb)~~SBvI(U0C^u}>D7CbN*R)+DDb!;g_eSJz+ggHNn7=;TYIEC{jyc8m*-M6Zj2*HPN#S3rPrzs6~i*50`K0 z#|!Wj$w7jCa^vP_E}Y;;tvYE$L*E9iEHz~-7JJiwf5X^zsfY~$eF_yJwlAUQfTE=K zeaM*4cfAPK16z%M#BT-pwQRtT2l_l;H(rdqYcE8X^o`uavVw>8Q>HBCvOo&rpQR9e z{Tk=s9#(gYtLZabpL#Pdyo;&Z603vzWV`iWS&)1o`EF5;Ub2~m!?v0es$ueinTk_H zIBswach%q7EwZfrqbugba#s>&#S-kk38v!ARMv}|pRRriH!Ag_t4UfUfcXq%IdWm1 zI2|*(c%t(1X-0^!I0O$5XHK>3uK1d)LAo{si8>l)aT@+xjM*Y`(*nYRZz%1ZM{>E7JWGgP^)0gc_C+AVZrk$%B|o_`vj zCeGp6dJ11*%k^Uoq3%sgU!`J*Qz(8A5+uAgAT^w^J&btj;X3p}aSY9b{aboQzH?nD zVqM(*_KjgGU(QYyMZnMPm!0ZWDNiQxE~E~6$GIP+OVil%qC@mR{k83LJ~GXrvk9id z7UMnG&i>rk-)FP1b_R9dO6m}|NUFlJE^^k0Ut$GF=y+I_SfqjkE)QGIXMw^{p60E0 zj<9T{SGattW#n2NZSPdI59&7!T^=LEvp+9?qRy-b&uG!c*p1+5pcA$v$UfJBfD}J9 z@=|%PbLNsE9oLq~3l)?#HGn4B=x$=bf~wb{k6J2$w*E+S#p<=c6L!mvSfLHvdh%`7iO67v6zM$AJKNGmp1&c}9*WxP#2#H@v#&KPN{k5rDZ0}|1> z{8p2w{h<5TH3)}dA*xKlb*(%TVXk|G`p{Qm?j#+Z9Zk(WBCli|r1#3y+al)(-D@kY z?wAW+Pxq4q4Lim24BA(B`k1e0CW0p$`th-UPWdbYp^Lyu%NOmL-~XoN5$qxuw!x2Qu=e?jWD{Sq`=bpV=B9NC(mNq>oS;Ov%Uk^_cPLN_XoM30%tE4 z$28WRq-jh2ve=$4YL>|VWTR+7LkNpE|1+ z3T(gqprO{Nl+3y)lHH%as^(;01{3d86WNZMO7f6<64BzVW#{2q`Ng3J(z_{FwBjo6 ztxl0#4y03DB7bpg`fU=d-^H{1@38N`H~BI%GqC^n!ZOFl@pJ!QQ=k9eNY4LI-v0yk z{jX*4|ABq~7N7r5u&=*;t#*$!?u)yQ%%zrdcFHmopC5>giT;lOdXw^yjzgGWO|6r! zqE=?=@~vJkJl+tUe%Yg>Oe%X47c26KMbR2?X8ZamG?#)X;`Uxb?!(cJufKeF+d7`F zTYWg*pVwN+3U5>!Zd}nFP7g01*W!|OwK+Y#?~7gjwm)B!Adf$N zb9Hd6?+!k1deLH@zdh{TvNgZorN2L&Wp}#0gb#YsstNKeC(&OmOV%g9Kr+stUwgTW zJGpsYcjxcdb2WGcyzi~NUp;Pbm-RGj5VRI1cVrCc{7pPveNN|nG4|^Itn_kwl|_fM zzS-(0wmJGcY(Kl>-4!pJ$Mfl7O@^1JNO`Zlu)ZQ2V@m61B`%GSqg>nx67#b`o6hInRWBoK zvSX!wz5LO6vSov8ojETfDw!4=!E?9$-Af z7r?GdQ_;%?je8UBxA)T(f)20OhnYbFp4Vs_pQoEwmv>#xM!A}XA@BE>{Z9DKOgi`P zb4+;^;?B>nZUR=F?-g~k`b3iPUQy>huD`}tD#qPz1<7f;gD3vJ3rD3fma!-DzTIc@ zc-?Q7k-AGQIbavRJnwQDukU}Se7W&*15~j6y4xzVpIW{)EV}Kk4cgccoo}~jKb_Pf zE2edp>t(BROs=#Jy{&GIyvTl((zL=~sO%3FcQ z8;^pPj8ZG6|kv%twg|y!i<< zBR($|mzOdNWN?@qoSMsvsL3^dy*#v?d$a6^6OVi3jjDWJ?@%jETAk0c(!N=@R+_vn zAMacVe|McU1WlkWrdsuIj5JK#2)&}NPL*raKD)*Q^8DMQW>p9 z>PgkXH<`ZV8;fTP;M7)0%ZjlMnY*gPs=|An1s#iuc^!R8rTL0~uYOy1HguXVS9JCz zjm*YTJTKg+{F#8ddOzF2tg3Wuog;9nQu+NBq_SWI!SSmodG@6v+@N9`r^)QDwT*Uk z@cx(f;0}h(OvLYu=28sx0jJwBy`b&aJNf(Q^JG;C`jJPYU+#f6zce>jQb_q*Gm;O3 z6W7CZYHJ4F3L92$+Ca5$5Cui3nq^`PXBEl#S9C2l?(e@|O`dIJ)_r_lJ#POV1Wx*he^tqSuk?^=3fI)X zsSkC@nvg*lGcjf;XiSu zafLxYJOKY{$IXqUFcVZP@AL4`yENhBipT5u{!~q2y}i$GN?sneTe&m$`FLmIf1fO%X0c?` zMqdlWk8>0iG-R7S?KYi#3MR=6yxN{=Ez~}TJW{Wk$@#j!LwV3fQgXaYHGI0N-B(v% zlfB(72iyXvGcb(qIv($>=8}L~FeQSWgSAQce!G7=PP&dE=gUSI<(Q(P20lSvl1Exy zZ$y$#g11MbzK~k1Wg05x3Kd8cZ5xAF9$TnGDN0JKHL~jw;NPYj$@P5k^*JK&_{D%# zlw%BfK6IZe9m*Oxl?^$MGWZedxG#=g#%Se1(fwMiI9DN5z;fbG{fyoh`Gp};lRt5?6uQEO4iUYc?$&FrvsR=}1c+X^ZIj9kY^?Ao zWW9RZPyGn+x3Y3yGX?Sp*lPFTJ*?ozn~3&HO$X}%wNf#wLmFZHO+tbvmf9QNxRrh` z`EiCp_Eq}m4Dg9cGC3RFTk=MOh~BmX-_X+0jC2Q~J?Q|-alMZ2?=?G{;?@RxhxW!m z|M$My<6^q*tXITEemCBwl`+7p51wUVD5XG_7!vS+r5xax&5oaCVWJxe_zwCj*)qy5 zMMm^^z~N7GY2(jXd=iiyX-?yA@W(79+~o=1`jJ-40p*z;B;qhZTl?_Ej1Oe%)bT;h5!-hlqE=&bzL@Z{t`y znqj2+Q}%}#yM$H1o4SD7Fb0*=h4Q12ZM=(-HkQlsd`+^IE%A5GA{gk$!pboP@Myxw zBBSYe;Bg8(){LY`&p>3w=&SRX-RFDBHypR3xUR6FD8|p%TUaTn%Y0;np{4r`#L;#! zh}=kO-xG0JjgPd9l?L&)Z9B(SeND2hwihYJv9>R`6XsIq3--r`M!tx1&J*E7rfuWx zb-L>skA%8Gmi$r=q3 z0Ie^imbUw%7n;a@zW(WCjO}1e4Jt0_Xbc&aanuWFD-7&-uxljCg;<)#ot@6Hn1+2}bCdueNj@}rmSHMnJ1-MY5c>K$R0#waLflE{;*NB*^+jWGb1!qO2zT+j?+R zi|o6mqa>UoY*SPw{BUP5QqWlH4L=P5I&wN(7@8)>0OmOJyB-hFJu{^Ri>AWK$P6cp zpReF(>P{3mbj=2{R-=$VU+3vikh=-pLQwD@swMPtjkp^OC##&J{!Gw$f}^xAlX-U1 zr;>@e68#|n?biMMGN6{vR1}s{W=weMIMO85^=F|9W-Uk0ziR5_hxJtI1t+X}@waWy zo0!9Bof;x@e?&0$YvXDRlyrjEzzNWT^X6Zidg+$Tmw)M9H` zCT4jIM;~to(qe~7QT_xhIthFn)rRrq`z38I&uAaB@f=$o-X7-sP<_!7>-e2>#6NS% zasd-3H_M?U7hxNt6I~u^=HVAm3Z)%oAA?zrDnt3pv|H60bS~6Q;l_R2tj-FrqV3D3 zZD%c$3@|-h~Oh&=^{qJjRI&mZ!9eA8kC zN9|}*A>pTDA<-_H9bnl@j{BI~*n|U*7|k;ianL7j=Ym_txyrmk!r+dxE7l!xibfa9 zj+ux@WqE{Hgb|LQlucu(!L@JrcCbf+ONv$f8uXe62_XXynTVsgq*Kw+WeqeZ%qcR1 zsF?czF9E$AtR|OhvxQ2<%oPM2iIn*=7B^E+Y%4v0^xQeITu__xe5 zMG2>1v#TwKxjn z-cWo}&Lp7{RGYiCG?(Bb(k|dM)s` z$Fbj;t}EwG-FK48QY*N%01xc&*dufOu0oX>sJ*| z?naj4*K3JLEl%s`iM5YHhJiy+F)BeUM-6w+&+BOewL?>owdCiofrRWYCBv;1Pr33KAO5I80Sm4Qezc!H4H;E}3G`f&vW4Q2t1;xSZbljZmrHNW`X+ zmdJ+hmEODp+HD+@KS_!=*wRX*XgwkwVI(052pS9a(F}fyDu4;}UgWLk%{IP+bRIDQ z1G*eE7o98zs~;VWg_6?nudv*#LXJ0}8Au#JRm2mnKEx_GzvbAxM7P2a!uW8)GJy_e zUe78?6a0o$f|-DDY6dSadoqlU<}oQH>>-KfHpqLLqL)O?9 zXlTh-k}JnK<)+9Mej>RnAzeseGRVM_X6UR;794eQZs4G1xYhnYQd{j*)M&AP>@@j( z9W1uwPQh0o@egShEEluNb4m(wV(bO)FEpizjEp0L_JtM&ov_Cg1;qKyX^!i#%5x_1 zQ&Ms~DN&VK1l(60aW>Giqvj(`3gav$_4qb*7wF8EvgKmxW&BW{$87>Y+N#(+RlWEq~ zM>T$;*YDS8TU2uSxx3{`Xo2Wxi60%C2%+o+xx@&JEvZvRX8z|%^70VN=&dK%o3621 z9)9!W{g?7=5DUXn#UGaSpm4CdQQdH15^!)!4(SqLzdDGUzZj(W5$Efe6k()TyNC4+ zZKnhY%;Cot2FqtEV#%_uE~)YRdS|){s1erZL-zrFEa&ehaJNd4B`(L$Dr)-*@#M5M z9O@pNgm%J?Eu3hep&40uDaesk-t#@ng$ht^64}Dp2{_8Kajxzb!g$VRz0jGs*-Orr)x0PDqt8DJ0e2 zVEO27PwDP(^I~Iis)F4>r(av#qVlNg6y>DUP*WdWvsY#_%ny+)2Lt8|+qYyIgr+TT z6oyvkS9bN(6EUQ)kU8{v;|(ehfJ<8LmY0f6ogj~^8H5vG+ z_OEc4)+OCi)MIyp3SSlmX(I}5$fetX7Hn^?p4luyCB=k&Mpa(W`Jw4--~r-CRM!)1 zwMf=0th}(W?y0X*0%E!u%8uH&aalmF=OPK*5mZh$6JWHD!DEdM@L3xobw;rFunKY( z#dtySFNfmM3AuK$TA)N3;n2{O)^UDFUBMTnxq~d;B2;q>08Y4Tj5z^u*`;@Y*`x#) z-UFEPL)ZIVOp1uE4M40*RmZ(e@d}X@|3j+GLzP5;GpL~(Nt6k)ALj z;EFC~AN$zo6YPcNgs$>)dkf*5LBt!I&!4zb5t@x#iw^<08UgQ5y!@$?TqhNcl zpjex~5CisB6fiWD1UKAg)mmyqBpdDs;rvgqkM{DqRO(*|+kC!^0KE%!gDSi}@Ixw` ziE)HoM0l;5HyrFW!1J%wp4?h5KGGhV9NUcvV0DO?$NHEZ5i>0pOd{SWq>#nTz zt1dzLm*LFs1Eti&c?+Z}-sZS}HYJ>l&xyJTs&sP1VpPI0FdGL&Y_kZk4=|qA|8GA;@tx5_s7@>s68p0XIOFk zGRab3474g&JsQ|MY{6Hug8va?gkb=qj(pfX9xkMYi%#-!}}Fylhb5u5+a z_H0S{qG@o}O65{DxA;E=sJT;;QJUhS346=Sq|B2rg?{u&1F&T1p9feO?k=uMkC2kC zbo}z=94{?iIe%|~k=;I8H7AU0ttAkl=U8unYv0sjB$-e+1giZO#4v%U(7+Bp(Eoxa z@C!2a$tBq!GbkxPCzHqsqk#@V0d!LvB=1-7rOZ;c@8myXmnzDCLox-gN9e)}yg>y@ z$mLp5L;-Lw=fFQdU~K+@Zp=bs2kl;k5T0O{ssJZ4`{nyDuqp445(fKFM+6{!oo@hR zen?^e02X+4f{F;BBMv{n2Uej*QxOnTUohoSR%Vy*^AZ)>Zy*(nz#aOOu$XrGw=Gwp z%D@`s`tflJt%3B}De~&6M-SCWadmy*@c(fnAh~oFvL3Ez3o^4g*)gxwr5t%se&{I7 zyi}CHrdroA!J*&ix2HhJ24bPROim6UlZ8+R=9i~{Vn}?#8vwNcCN>Z1HQ;1Hur#MA z<}Fy=|IXkRB5Gl%F1S{fKj%xHHOLlwQMRm-$Ohw@f6}*dN^Z?Meq_L5yt;1>Yun57 zSBnr2=t4psQy6w$6(#k|A-i}h%b0eKOXc23%OHOk14u<|UjVU?vp_E4b4yKQ>!psrXTi2oYpp z84#RwmKNGN^<`$y0d{YwzO%GQH?R*c7#*z~uvD`7=}CDVUx08;j+gOH2@p9#9q#Zw zXM#cG`p8t8>k(Go3bHQfV`R<`DU|FK6vo(BE~U7JZ!U!HAJ3sWqj|=96B8R*O&C3yD@BdMM4EOUNDA8l=onM~F zpMds1P|67}9z=M(H>j>qKHJ#K!2{0x0gPY)bWmoL2cOV%o6mZ0!U^@$%lNYD*rSj& z`D>JQdV5p)3_1^>Kc=sJ3MMxL^DswUQOM*GFpnHkq5&`iK&5e3EX9?{?92F|ym&tW zx1h6bG%&x}B&HR>QDie9h#Si9f-BD=85(^1h7!acNA(dTZQvsLNxg!Wum8(y6|3~% zPTb-_9U<1x^24-rY#=Ck5m8|{qIKqf=XSy+KsMY)rW`>`KB=e2%Oo!Jx@-T?@M4m_*@XX5|Seqmu?E;GCaczNj> z%b)h5prPMc{mhMH*s+u1uYrKAIhe;l*w6!BL3ZQMVWg2Mfx3`+bO)Hd_q5DnGWQ3x zJgDKc8>mDamY_32JMkdS>ziR~EN_!qO-(zr2TWB4gyAtj43t*)^1$30lsUQJc8oZ0B%m@`IA6+Gst3 zmQyx=$;aF4H~k~!KA!RhuBtu*IGSAsL?Cy7Z6ho7N+k9;2!q80v?wKrwDzP3!j6<> zhK(kS9qf=oN{|W2RD?;v)&jw^6o2mDPq18ho-xP8%Q%QnPzo`&fC9vLkX#2=;(wUK zX%gjHGT?m#qcfP431)3|ifh4(C8ZrIjClD#-^BU}q$ZWpR#PL#tuTfiQe3ph;Lc3) zqyU%B48$OV)B+y-V>Ffa5jP0W*w23s1L3z_S_)6&Txdp%l&3Y{{SRZpH&&6P5*sbqt2oTEveixx1fEh+qKu)h-;5UMW zdymW$?8}I$F-n!0#K!>n7*aXV##v++AVfzfF`|r+{V0H}A701LPhXtPSzb1UiR?;| znu;3cKgdM@E-VlYO;T1?Rs17;gVp;XSZb=eE|`Eu&_H+0AS0wOEKuiRZbD8@4oKds z7{A^~La1n4(JKg$>=m_pg>cv1Tl(7-mNmct8Cdg!c9Lf&1gpc@to0Nx1-VEF;u};7|5X=&RKVGa$QVF#p$Eo}s6U4Tvl|UeMFrc*)04KSozjABzL zu_D!1ipE!COFG$Agx0$(sKQ&xD#$_lEvidZcWNG)%BVXn>-Yo)nd0~t2T5HHY=mt+ z&q&8cYP1ic{0Xj><3EV;x?EA-5y_P02B8Zd&~xPcg=`Xz1SEGL6VJBEYXH6)>I{a& zUo`Z?OQBz&#+M=h{9c;2#5M5X1f!v(rlK^Qz<2#l^Q~UW9mN;W#$AXMC*!FckY9R{ z#6b&2Lo2(3;Zhg|pyI#aCSty?U>UmM6Bm%u`5~zGXA};OD%pk=%fT>%xH`xW9j(>| zmdrm*V6=b&z$&>w%9u_eGpVbgU>_JPdI0cAI}_trxrPCT`TUT4C|MbyDhcBtAwrY)(+`v^s6|t@ifI0QneFV7mLBUryORP~mb_4(Q z$aGp~Mf=>hOfi4CRpI#f<(RlmCV4+}+f}!9Q#?DWX z4gEqmTY4LIYRjULGp_|_#MocqZ^~Cys_tdnQev)M)yo@3`6*n-uUc-oJ6CISP^L5#K6mPC*l`CY9j$0G)$oljj@!ae!T=ri@qoS1wEXnye^hqHRmN2ul`ZK&lO^zU35$ zVY>*aY(`b%J_Cq^Kdj^USe%RyoOi_^MLh*#?<&$wZG<}SI0CZl4;a*2^L*{Dw2SyB z`yivb3w|OtQEC@3pjAyi^B(#uvBY@^l>7?^219;6}@ zNb)UNZlA2)Rd{&#uj#LRF%e+3nOB`qZZ>A#atAZ2i*(p`Z&*9VIKe+YWJd)vp|^{0 z-;_&5zW(>WaI16NMrV;#=N!wsiG6sg`3P=C{7YAO6b3=|EZTK2(*$^9W$-Q%_e>EUsV|kws&)$ooO}DUz#TGO z?|a%jxWLaACtwygV7H5!%c}PRHF$D+UN=k;ntxqObWpd&<@%Y4IKH5ONv67~R8<+4 z4xml-+&a|<;U&4^M&n*78no(dS^G8%YwuL{glo=KhOwP&L*a7St&;jE&EvC^_q`s& z&^o+Je5PrO`wf&e20XH@{~45KQZWcCxoYB27u1$)WI4NpKR_JG7EH*tnqd^S*`A7zO3}jAc|(m!oAyuXLa4OBX6##b+&#Cz`6G) zd2u&AgWhTEiSV4?TgSb7>Vc9eui9xEX>mZHm~HNenvc2uPJgATcSaU9^JPX#Cj~nd zn3K<-%@voc)%W0*7k%D*+VV41qZ0Em@5`ukp0}7X^)Ks6cEmR?;=g!XzqDO_A~)&q zhTUxoi(4AV+cmaq%Tsk)m%Kmv_acASc=Z&)2e$2)?1@D?$FO1dN!@y2;MYW3qze}^ zo3`*<`KoLEYDA=pJzF(#70qT7*fsrXg=OfIOY=IavlkAP%xf!;m7L-IKHc2`C3b90 zWq*qH-$*Lxa(#b?-45YWY|dY8!VnfRxi=!8i4Ru!Ht9639aA^docWUBYYc$RH+(nIz`X^Dd0jV* zyu~FWxngE>>l~rS=z`m^Q2nuQF2T$+FL@2G-24ZG21ykicLETo&RToHYr6#u+k&gH zz);9}yvWi?NvWU~r}q50kES9aVn~hcdu`DCxT=Q!4<24Q^8s&e%kfm)1@xgColDQS zIArW!<{}A=wAv~)-D(d~0ziu_=*O1ZEA??L5NYj-7%^Jyud!*)^AnvmnVk`ANEQyQ z3Tl2j-8xukJ+3lAtg~ck$TJa}tTk7%xM}r6nd~yd78+ZY|0drrcf`PAT4!&S7!L8= zyJB`;dx&5$T(ajfC^Qt}v1xz(#t@t_$k3h~(y%M?L}O|6rE^z#Tn{%tN91t?0lWBZ zON3*v$~nPdae%5suF_s`BY@ap5VMjC7q7v{#}8+hip?-1&gSR!h;$c+3M0-^nYR_{=qKBg)nXXo|D7up%BUp7! z!$A33wmjmB8s~zP zI03OPzw7l!W2(5Nt(g0QMW)`mjJ_Q0_g8vp-rfS-=~4T3PEDQVUe>RVg^FE>`{Vnm z%WGOCx_0w528k2b3Bl+%6A9g}eim#96kjVs(BN)gY?WWlcXg_WS0q!_f6^Tq{VhbG z((!qg{8VwE-1=5~Rxg^0B@x0Xp*wmfPjAgot`IS&pM%jb*jFvZ_;z!~+df0lwJiu$ z6=m*qxU!w$bN{PxhZBkd1fj{xna_c)c@>>3@lcRuNe1ZR&-wTYj`d?4(^JhN5$st{>=;+$JYwenQW zWFQZ^M*VC?Y9~%68+QD_f0cP!*k^9g>!zq&dOwFM9<5R3G2gNL3vaVQG!u(D7z@&| z*9j%^O9J0#TXV#L6>2>XDR>QdJA@GWVouMh`pxfg6E8d8^#^U#et4WPcLmcpHQ)WD zk&89-G-w2+$Dv^oVAn}z9``H7MUTzP%_0!_JYP3IcpOEyJ^3ZTBs#;@vKYhg*VAo`lpjAiXfhTEbzLhzgEK@<~7N7mmD^ZjmHdhSC^m)&GgHm zCQ!DS7<>5gZfN~!(F9Vyyp`PArld-896qPvFH<-S1ESx@% zP9D&2Bi)W1GkPi;`iQp)F04a$AmI?y3YbbG65@HQhL}rXcW(oq+MF9{C(p6x0C8&bCAgrsb@5xkD zhm2IPs2&L7;=j2H6y$4@ViGKgs7f=o#onUCwx%Vlh^W+hmny>lsBa=8R7CV}xPk)IBDCS&AI6GlnyZqV{^u3VNOTy)eZtYN^MZut@ZlEr`(`Vu_ zN-8$#q7SW5Ei6wwx&<{^@vxkXTgzB%)LnhdeL3Ow+qk>z{Baon;Q4Yd{Wd4JM;`s_ z--|Cx)F49wlXO`Lvm>PmQe*4PDJ|TIJs-1RgR5+G?AUFVbyqISjVO9qA0IMk9MrOj zg?~7W#2nZY;-4U4_m!y-SQHe;9!`&0Rl}L{cEXs$&y8Xo-~2Q=Y2Q{e&AOsaO`Nfs zu$d#uC5~H+M`p$t+A}OIo_3}yo`#|da8d*4wliMucg!S^G;&>%Ny3+FjY*UJ;5+dq zcTD4Tz?Z#EqF;FRR3>6eO7!WiW3iQX7lY6FbDI7k+r zsx5^qsAoFbi%RyM@$M4F^E0VdE?n@!(9J4)6lF|(V$nG!BAR;=x^LLh9-&4ttJA#N zwwu>GLW1byrV3s;PN*_XIA=~G^TNtax0hPiEz{cn?pTJ>%&>#Qob+r&)c87?&nDNp zXCivg5(;h-csxp>)=DefFviu*c%O|jG}4dhT2tgv6m-7)#@68sesDJ|9+JUfXE_R2 zs~8{T?DX-urD^r5mts1ZI>@!D%;+ZMHEjvXcyMc>^{l=E?&=O+tlvN2>rAw!(HW~~BBrTy3>})zd@$h{ zv{|YU@RKho|C`3f`&ulLRH~;la^y5W9#1bwkxlqQGrMUqZJfViYSNi716_fB4WY-& zuG|vh8s?hbNUb15rnux<0X4WfSxl?bCoa}1Tlq7w2=;l1f+taYMrij(!P;T%SwDJk zX-{z!1*H^*%~iuUY5WebV>Ch6o&dRCN4d_VSPQR%OpO_O!^Z?Y71?%~ykEw}pLf;w-5*@K4o}C>0L%Q=jNK}bc_9-|6E^a;tCcz1Ff^)3~uJq zIeUHMI}Cwo*(-yzSI5S2D==}#HG%#4dIQk9LtTeoqJ>x6bFzz%_kF9&?)TDg&tlib zU*5U566lLxuU@x!+n>+YvI#i2D}8P!f)@sPy|2%BUyd8Njz$}b*9rb++-B56NBuqPF{Iv9o=vNq6h#-e$VvhU2>?j3wo) zlSZzk1|BL6w@&I6)+Oips?L*rt%WC7A1^$v(;f%6(YxCF)rppDjeu>VzwYemD2xZM+?i$F28XUK|!J*;<|L z1w7PGtpG>*p?5o*$LBqn_r;V>VqsmSZd{z<+cET~h7L^v35_b<-PM}nE7#7p0>u&U z(}x8%^Er97Lgmx3m{D{Sj__<2Puau4bD!%@ZJ+lQlkOi;Z4v%E#2gxKEZd|U9u2pz zQ%91^bp)p`$m7tbM~ z_f^Zi%S{5u#=Ab)7s&P=*Zm`@G0!|O0JltAQ6-l{_1;_hDBEbq;f<#Hnae;ooHO^oI8Xn@)F)A1HqHi zUaX<*60otrGTJT$x}14b)v{EWwBc*%tnr(_r*0(ef*-2a-Gp%n3Eo~}i%8Zn7A?Xqgg95b zsA3s*E^Di3UomBv|w`m%lj2zZV zQhONzb`f?@#O4-=q8ihbFGe3Z^IbK7GsUhAu7Le1I5NAeEb|Y^Zf$=7d+_t1C@*oe zCl&(N!|ZbPVQM!(810;Q((i#@L?NP$SCW7YA^CDdXOAJp^>m5ruf(bMYgobaIECjX&-4)pNgK1s)j#C#;|p&uF5V@oMuc=5z} zS?Q9k0UhS)kO2G8eu{Tm3b7+QUw_FMFXhfk1p0gh-_Bn8cn2#jlT5&Yes zGL_({l5$BvT8>!KGm!$2K|+fpdJO*IAi_X+*ec341(BQKddN?MjLSX`B;4>fK=a)F$v(iZJ5MFYu22Dx2 z5uhDA)?0ItT~PLvD;qIV|MC~+*oZH8)t?eJHpFKM2$9t9`%k}4e7^*d90L-xz+*0u zZkC{ZOAqrkl=)x=RskGOqffwmu85d;K)l+<3Xw7(VjFu1BhCAYRTz?wxAQ>-`#}~Q ziLK?MeEvb{)G2^Y5smH+i7o0{EY~H;nh~wh88BNehF|CVn4FfcP`byv%3MzVL%LcgF4h_j{qiyc&TDLj(G8V=fN z*PUTv(#Aaa=gd*5sEr-boY-(v6otD16_4+S~w&uLul z90j^BO_Lp6`5j;nVjz7O>Dn$Bz|LQ@5^)_^%}zffIojlLUS@MLk>1pe>JT%@)TLOu zOXHtc6ZV@_=fMZ8NY!QJ?p7xy7`MM&@8clqS(3U_cm1w%6YtDQNYbKksGBb8Oh13_C(h5hVxTQWKtL%{N`& zQtKUq8Y&m@z~bp&_6nuefXDjMH440&_O#k==6fj`CHh;wCkE~=BB4$5`>m|m7Rw`T z5sAt6X?$~*Fq1r^zR9!GZSe^=?%yfgLu5NWn_o#KAxn3zh)0UP`{pjy>wSA1F%8R2 zf-`!z<=(QNJw0OKh;oToj}tTJA5s#tZ-}V5K13nx7Ts-K{_LkI{@ReI5G3F~@NqL9(oy$APwjnBW?Ya>xQ)Je+Gu)T_M4alM&62It9Ibu*sBcsd zyNc<6qrR;GAx6H6S<{5^19vjw2LnxIR)0_dks@x*f&2~XT7&C})-sL4>^b}{9xRm8 zbY5}rz^#}Bo(`jgbERY|+Z?vj8+s{Vj4^4?i=P{G&TB{RQLy+o@} z?L3bp%;*9w%PTDWzBfOxN>ddglV3q*C^zU#2&QoMOFWPVr0U?eYs=Y0G)9&&(R$bF^#wa!-1_9S(jD7$M@C`dzSliM6(^G>oxDQD z8|~i}`)og~u*%msWS}Labi4KMt&-D3%|oy2rxKnuHc{oR>Jn!nyU=bYkMzYpRc^9_D_(6$mFzS2L6QEePZ==v?B5Ga0^Q4H(nj|VyNCZ?AcH!qV z^!|rm$S4K+8x<%<-mov+VVNUz%NrwqHN$L{TO`sgdmtpEhRNDK6hUZF%K5bJ*=&H} z%-5{`wG6Z7JL%;wX=-QyZuAwO96(;fV|P|dw3-!Wr-MrM+GgmRbwvw#QMjy3!V$<$ zJPGOX(5kHZme|~9vqOz;;teZE^4Yfr5kjXN?kkfkNtD_W5`hMmU9V?-YNBg6f!0i4 zx$LGv=(rBh1=cKGL&$5q6Z9$QK~$sp0S|&W_TF8gK=-cf#ztW62epKpBc3F?nc#m@>XKAdMz>2Z$A0XVyzpvr%y&XyjrON8H$`z3<8p22<0r09or}vd zfN*gMBI?%dAdo%tz|=qAkWJbH_Bu-*mL<*rf`8r$p?nKzEYY=Yy!DLO1b~`K=;>p}hI62wt*k7Z5CQQdOCFd^9dbtTJHT zq;Yy^`Yc5`Q^?n3yK|(!pKN8_H?OAEMcmCV-RY}cm;?9Azrvw*%|0fB9rJTcJQR={B9=_FL3e+OUSt3hy7(7MtBKbqFLT_u73qpHTJQrOj!AghN z>Nm{1gNYKWyQV*p%n9yNRys%i1`hvdY>0yjh5BJveZ_CB*w0no=r({}FpstgvT~F>iBj8w7 z^1J-CaJ-e|F_2LcwTq@+w70Mdh?9IvG;C8W$1>uEEq;Asat8OI1ch5q^$ew6U>lb& z{Rg>}=KjMgT62{RFB`^=tG7w4Kf2cpr~SaQ@pIS5)Siyv(NSYsiZQwBBOA43T&_q?tsX9RBAoL#cqN?siS0Q>+QTB*=2paBG;Z16RBKex>--&G{N_>dIzev& z@*}dzyx)5e6y8|wVotz=a0;&~uQ3<3*8wXLzAK`eQd5)vZROg zk_6Ii5)&?H_QaCmI-i;8M@_6Qaz2KJ?)e#R9aHd&cv_t|&oj=ZD*IP^p z`4K1UrMS(J_l;-FzTh0sT6(7R1wlDg zM3D~$IaREwQTOyPq5TwjtzBPUrI%hM8r8{L>HNvW|0Y?7v2?WhZOKlYkHr-ksVm*o zOhyLpi`WEW3h_{t)a>|m&$Wf)_T;#HYOls{^-ng5OiJfRi!Dl+>3&{6Z0lRSxmzVq z8c8%9$z~v{?Aw_1N_(2*Ubx-Z_0YmBP#0tBlU6DB2F^UF5=Zh!=49UrSQe|b^a_K8 z=ti!JjLFn&;A)sT;?9hvOxN(H(w@o$@xn+@vdvj zF3CNK&k?`AC$k61^O>EgFFsyP^l1Ti`e)5H*_c~lt%^-d{h9B1HjsU@p^xhHOi0E^ zZ&lH~N@4OJ(~P*^r}&%DB7fr9q1ZT^EydT~;!1?PhRv1IXM{q#46TWUn$H^XvY3lrM`-AF}iR$ozNV;kY=F$a^1%&GR@BXa8aO<`CF{9%$qlUxn>zg zVHS7|xvoZ({6jRvW!Nsu^pO}R4V(1gE1@FpPKsQQ-G$FuMY9E_C>n3_w;B&$e_O;Pl$O3w zJ4NrKZVvRPbdzQBhmSlx7m^O&r*t^&W9g~PM4yVGw{Ua`g$^HkTY3$@26*JyP@9+F zXVF-^8h{p-UMb1;V}AMND6AQ`Qi^XNx-0l+@7kY++@BMzKIk z$FqM&bSI8cs?lAL{z}jBog1PjEs8>-H1tT54}L7IEt`HR&}@K@MEw-{HLa4Ytti}1t1TgU289(Cwp8B94OjJ_sV5YnN-ZX7 z3Cr5AY=$WNuJo8p>F4P`IpnY`RERQ-r7fkH!mqm~WgmWLxO^*3huW6rbHWKT*+C4q z{zgQ!h0me|HXO2Coz4fTgl;Iv>NiH~GDX*?bQB<8G^#A}Jpan!LQ^T-bb^lW77Bi* ziqbN9hf-V%m^Ghe2sU+!b{u&*MF~6>Fn#w=NtrK}!`|pt)A?8D*!xiQkeQra6ff8$ z293&Q(Ug!u=_hmF5px~an~o;DQZN>I@`#?;(|6$a^Xqjgg%w#Zd^pr;-YUHDx#(A4 z%>T9FkYT&!+Q$8C$r&aofTtXTS4$=i4V25uxCfYc{GfS2_g+ZA*Wc6FWol zK)oeGOO>WcQZNMVJKsC4X=w3?A<&w#hL%L?o5r^1!sxO&rqyQ?4jKHwsHwc*e1Ks0 z6!B?Y6Zl2dOpDU2IF+N%RAJxllD59R$S8Zm#P)W5Pn^@Ox^BvGBk^pCsSZRLz}O&P4J+j-x^_=P3UA@3ZaqAziFNO)0&a-o`ccbqxZ8bx4kLq6G{Zi17zoN&h zGF~p76UQ8^qHc4IMxyLypNqJq%F6Ikv3amZQHv+I%A-+p@rLvQc9dS2m$LrLMp&^S z5uQcuc#4LslMc$1rD?UuJdiTiY4-d* zw+hkE+ZkPP-H1PkE{~VY96khLj z%Gb3c>k1%S-~}gdr^heC7pc&@CiuID%Va@f;72_NgfG@ut_e##>bVGcctnP0V4fiE zzRz-vN#fB>WD?7@Ra8iO{V!~QkEBUiCCfE$AIXmeEZ4$X`A32D;*Tl?rpbbM#UH)n z>dxX3^OpQ2S7are_0s7uYargH&r^G)`O~WpWJR?U(rfmOj|J=xy9U%YkM~25B&jo5 z?It91+SEyR9G;WTuZX8IjiBQd^nSDP#M`**la~G9v_yR}QAldAFe%K$dnkK!x+W7{ z=VgC2OlEO>Q{ENT|EpxQOSEt6;U{=emdcaI&LQLxR2Rg_hKU~Ag4-j%jS3r{&uoSw zZq9U^YbB!42x1lCkg}^pvl}IT;?-YcCMRkq%LoOyKCt%Mlk6~?Uy)J2BJ1RPP<|pa zK?~6@{+DP^k$i5n@L=w~iPS{8PwUqnmQ%&A51m`gl8F<}$dc&Vc^`$khMTRHgC0|D zG3@=m_ct$<@Lu)jRCaJ4{Ps0xQlZzqe@v3yfbC&2<3GIQAHkEzidW=yzEcNi5hu&{ zJMXr8EoIAVU@wIyn^P3V`Hp>P2-5}B#f$osGtqJaow!s3hKY^v=69 zX&tuI9}bNVTS5TU9NU!5I<9W?yuxeT4lsDoXfMs{DM||yc)qxn!mwMS9A1K@ms6xk znvckQxN%m`q5`T)F#BTbX3!K76}j%daID~kC9PG5(FecuRXv3dI}FC@=(Ow5tuMrk zvE$(mz>FnsSbsBU&4Knas;K6m@^kDYf+J^A+?V@&xtd&j>#f(LoA%uTC|DmXOt~-H zmawcJtu2co7S=!5a@W&71!pFT9b8v&`uN(_`g9P4sWI7x)xQ z(nqaI+5FcBmCY;(Q5JP;a~`^#91E)PrC=oix9CGWsrpb#csjn5}&OiSYQ2oJeq(z$lu7hVXOSy z@{M_67IMtnIBSS=uirbHS(oo37H)H-psYFZ3|!%l8Mv>!;9xwO9RP*Ke6KqZ1{ z%J6_QQLTyCaBlvee}-8W@#}4?!{FZV8f(uz;pUTo#Z*7$REtB4@0u+k*vX3%GDq0K z7)`7=HsInm;Uj~`;r%;Ug|gp=i8R1B-2v0M@Paw7pV6X@Vo1_%Xe|~QGRqy?w$sH3 zO6KM1#m5 zV(`22jU@L2U&jX(^9Kr8qxP>23ieeW7Sk!+liNrbIJM)hmJ{d`tsM&Py*u90MB}m{ z#wOd!2j@KXvdyFeC|2$0-`Km#)7DMtp1aVs=5=*9_#%iWAQJp8M=7|Xl4Onx8e57; zgxsy}$~q*m%5YjbBr(l^t$_N3AiZG5dmh5)7P!}+Px<(!lD2ibYAO%meJaN5wnz4z zJ+arAS;4wC$ro-66AG+taS$$(73G6<=1%h?!ga|=FbNyBCB*AV%KT5U zv8-6~MYs>t>LnTfAZ@+fjpd8G55iD9-}F$1D@S_`nD>Y3*y}eZ*Eh-+K|8@`V#>rh z`E{?i0^`7)){>3jq9$f+P!BUu;YYth3}UK4c>zbJA?wP>aK6#OpAge_uiFvw#pt(r z-+DG>mTR+89G_7*HVOYYQ5NhtDDpUX@Iqcq{X#k}!Xpxlmtv(EJR0yLsxi{KHr9fc zdwlhz!nwnT47z#(N~IlXKHYhK7fV`bE_CAF z!NQN6(I!`gxx4+=wpHM{J1%SzYv;)+c1r^j({Ian&X1^*fuOiKa*iN(mwo5CQj_py zsTMQhfoeY-p4uWjj&6tP^Q`hYMMgwE1f|T9Sc3LLI zj6t56Vd6HmhfbCSt}LJX#W5~Y`Zgy^j~mCRLQfQ^;N1vBtf}j3-K5B5Yb_c%Da`#8 z%%BED+F~Wa^d4A@JK zZJk`yFLHt!yGr;LpoogV!esCA!?fW6^@J@jMPy4pPN?(TVE|q6qcbz?m+r2^>$x{6 zvAit;d|Oa-MU5eNH6W{W5D6mLOs_%O`kR*glJ-_USKiqD#HJuMZB@h* zdBZKwZXwKaY!H&K1VmP9tc$sJ#PSq^cU15cLUd&P6hgJ^^fp1>5{+{|*(x|t+!%w1 z>)?=txB>;+qoO>)E63cVVLO6OyhG4Kr&on1L6{4b)#$sE-DgEzG<<>JegdcOQ5PDJ zQ4HeXwBXBG{Y<**g!17#IqQvz&&z}Zp9}OZ<{2%1s;7hcR7Mxh@Sl@G*HVujkwL9I zmbR3)qks9jSsgbA1T({&tB?jL{pSh%j`#_^?RUa0 zUJj*6+SA|Dq9?9DZpQGdDeM)I3`%?n_i=YO*{s8^%$(u3++W6$2U$zJ1CIRQ3g|o* zl^6;76i|}<*sTO(@zRj7*s;)uaa>WwJ+UcDEm`%ldtdz1y_$(lVQQ1F5RX5OA>oU! z+~Y+e9=l^6(`hKPx)bJe<%|)^(>0~veJl8A!%=d0J|w%D@P#K?(3<{~K2p zDZ7t+=>}U>Zb4@xaMP5o@>Vbh$bMu#B)6GR%9AW?&HexEq8i-d^^wmQQD2J6BDFqF z6v`{;q?%W>cqlkD=wQ84bjn-3$i_s|RZ-bG0 z@3tp5aSegn#%QPhsl~0|Qn;chOaV6YBPPudxAX8k89OV5YAC|p`G`@#(NUeB>&^^A zSh}$4xXefA{TYyj>(!7=7`r({$qnNzc=>$3VN0-a!RAo>A!ghr{-<#?GY{rFqCzGi zMdBa!*|UEZu~~DG8O_WFu$!kq+UMizYsw~A@-?^#_SPDA$0f_*9ci0hvRv?)9S6iZ zPfi|O{hw2q{#y#~Jh|7c@rVVRc(oItFrORaK$_Q?pB;hR$H?U7?VrgN5zA+0kFm*T z=8REY@?Afx`}Iq{``5&<0tyk29~+cONc3SSN(XA^{-Q`dQAE0kFHuD5Z}RL*@<_D? zYDG!3H-B2^F<%LcTG0%hG_HKfd;kX$U2@=!qhvO$8f)u;Qm;{+7kmd@1>tl@z#dpY zGA~*M^PpPe`~IkNh#!C5@#2H(#kDdF2GtxeSc*%QSj8d7Z>~V@eZr}O4q>eQuu}cm z#6Qoi3URTEF=*Ua_(etD8RG_y=p6PP>r{$!n5PcDfFPu>f^SN3+Oz6?I0fh-L~{%$ zTzvsWf5e^JF@405^q*s$+9(eLW|8U;Hl|*CkyZ#!bQ^pQYQqJbJM4nlJD{^p<|nwT zi9V)N$|J_FHxZzlaZu}i!^n&Hmh~sRC=m~A2M%;idf{gQ1AMP6;A!4M^G|-OW7+M9 z#q>}!Wl0ZI&eYao-%X*tpaLaERJ%G$160(V+RYe@e6-%C4pd6LaE-TR4*~i<;783M zbcAeET^T6gQAaXQf>AW7BcQlRWN(i;%rM-7&PQjlr{}2IUt>krgmG`m>A7(DEX+uv zVB45w@O=8Dr{e1T=E(xrJp*?Ve_j*~)p@<+*^6!c$CCz?T|5kX+uZolMinlP_oEt4 zbma!93btkqyirh|W(n=`timxB4ZarJ5owh>ehrQ8M&5Fwin2&!Y0?y?y@Z+47T2 zpj$R+(I)wBr=ZfeO&EiG_0Y1nO8(pYsX2@6(ZfT^H2Og5+oC5a=;4SGYTd1|?-L^P zCrqk#6~l=g%&F!Kkd|U2QTJG9xMB zkD0=U6}(-n&|~CBZFQ1GidRkut+g51g*Z+%;*$ECqD%RGj$P_xP6E1yd@sw|Ku!Ka z;p;-o?V=rFo)UA$4rvJIZS}gYZxT9ovXoE5rpkwUbo=<8gCE|cTD#y?| z8F^?4zX-&jY-DHMHd+c)%6|tJTqn~2JY5U;N$);`GyT{`RRU!!HP*o}RQ`v+7+4NFQt6xO)FvX-dhoi&yv>WshpekeWXquWDl3v;GXi%sZqzLlN z)W5kC$$;$Mo~&4I+aAN|^k4;+u*)B-Ja=NPYp>^(FREoay@2558)MiX>EXyCs=(u5 z!fJ`3WH!pJywfQBN{AvRA@H^NoN^XM27J9Lpa}9Ld%?Iv4-Kt12FE6!#xE+Jy|tI$lk+^S@J!Z5%Fkvq&?C9(mtASHK++0(*_A5IrE$q?8b-%W@`2S&oZ-eSK>T$80qrj)YNF<4)Pauno_bVNE4|>?@E|I_7tp zPE$@bHH^;Ht}kJOCu=E<)~!`{wx4x1nIG-msM}pZY(FZHFA%Bj7aND&KJ-^?TZ4$2 z`E$;tfft0bCh*VJ_5;}Iy%%42E#ftFw|&884opGOi=jH8>tdR<&)~?1NFV7e+ZjYb zaE5J~1>&)POR1Qr?iJ)4zhts14*2VDB0+Bs&Ti;z5+J+A?~rUAZJUN!Oc~B+7nWef zQ}kgF&k`i5{yxWY^GQkaL0a*dUo#li;H=<}v*i;>$#Cl3h4YYXsk64hrXc0~U2Tg$ z2L@7eW17`mhR)8dTX!)+o}TA!bLDMDF0&h|j?&Cup>2V; z%^2}+uc8Pil*5&SjyflcLJw5mgF_MEUW?TDuA(kw9y>z_r`HMCecm;9a$UD{!mv{}UM3+c`zK~p+Nz?V zH1LF_C>_Wh`BF_#^jH<~-;0|jpb)j#$L=*!p!}>?2rHm=hAIg1e@8(7VWOAa@&6cL zM2CKg89-Fr@lOe`M3Vi3#s1(c%P80kOid0zHJ$(@O#Y&TSqw!&V)r4`7_u%j?))8A z`l1UBdfEm>KwcFl=VN8xFE0DxFUO`9LhFLTrd|HUxXl1$+k|ae#T^WlC1yM6+JKN0 z#F7>=G~m@_lqqQ?R(D2p_1StRdbqS;>;5f^h0%c_U#+!CZ^*Z(fJvv}IqL@{M@ipc zA*IG>NSz_94!fH)_@EBw)6f=%MGqC>1QW4-;pXRkd`P!oSAV*K*HtR)xLTNu&1!2t zfN09-5J&tUG3{D2{9@ezVr)m>_w zrpPg; z*CmP(XBygIbCFSw;JXAk|A3jlkjYSTHXN zipE`=t{BDPUQa#VHtx+rp{g zMwBN5Mtc|ewkP+NA&AB6)v$rH_3}&5;~0hUMou+}nnIfLA+bAXwThFJ7U1J1pVw;W zlJ3V}08Kw`PC6QXslIQoRRD}9&dlTg30BknI3KEm9imT2Z2Rw>347Z-a+|XMIR!A= z|8YNn_jn?TwAJQ)U#lS&%t_VZ+30QHNy6A5kozT65&r{K$o?Iw{L$oppvt5Qf?94K zD5OX>zG>P#UQHR`Mxb_Fmqx<>uj1E=m3sxQpij6|{MxZ{uVK|_!b`mmDF4497jG97 zX=Lp(Pu(^dfbr9G+FYcmhAClpr8c%Uz&t)qb1mjLlBW{sdf;~d)T^%q<{)4V%v$F8 zYMm&UWzXj=gcX%nAwW%Ayq| z;YB^R!Wo^u_=tJqG5dKt`K%5VoH_+Y=1lFK1}m_%o^--=>O&Vc&^0Uf4c+irjHnV+nYU=9idEeisHU zhlghGiy}dIKNhR7*$38v(ZCmY$0vTj(yAf;T(=zj>ux;5j0=z$ab~Ip0oV31fYvbvoXz<@9VZQie$5&)bHyM}P&%-hB zaf|`9EB6(Inx5#=)RKy{cQaTXxxpdjk|W znTx<5;1db$3pam4jUE4&Af1bJ6nvTBAwD&_Z*?)16YG890#JYfiu1-L=qxPK>HO^I zbUhL>iuJIxxDf1Eg97>7z?mF4oq{;9jX+*B2Lu$jxq$LhL1cObSOqoT53#@!e8Odb z%P)XBuflRjKH-xX-I}2J0NkzsDC`E*w1I*EmSrf$}ZM){_Xp6k6-Wiyl{}V*YUl5IQHWY?PN68X-M9(KL!9S z)ytH=mD?L=!t*s702g??J#VaDelKCjxfG%QAgN5$=ZdSlEWtzN^OHSspqaZHC=mF1 z>UofR_Z!?X*m;iu*o5!Sj{mo&WlHbLU7-t-2|7b)iD=9z{#J}5?0qb__Po~os!TV; z0hfJ7P$~+5jClZLAYuTJAqs#DcUb^rh)(oP&=p9aX10d+EWsNKZ`A9zH&E)v;!5s? zh$%dMcl(Gkk*1Tz;=C<4P1#uSas<$5UuY3DCwT8(fXTE=2uR0+c9)<(20(RxHQ^=% zXcfvXJI1KXvO?Eu&iHJ911MDqtnGO`La-Hs#dogA^f`60lx={qX`=V{^N3;@FWSE^ z-vn3g3(0^u#G2Yn7Da*iM;sd*fQ$({-}H0`vi#khL??dnwK{JZ?!UWng?zirlmtc; zZoK-PgcA)=e+Xbi`;5eXkPts!Um}PG>m1XJ5Kv%%uG?5&uGng%`_*S^2@?PY7qNcD zRTB)f9(~)t5+Qg&q6JWuA}05I6PHhv&p|~0okN#f`V%Y>z+FL?c2M9MVA=!&#t`7m z1uz%Ur90|hLR-${ETQL+C2m!jv>*ETZ`%JboS1SDNg5|VY4R8FinCt0-+t_V>C}xM zd&5vP`UgP;{hJ{D%S-zQK~V!=R29`cSF?`$?A98D0 zdc8Fy;+Ao8eEaZn&@_j_m&OWx6Uxtw1gt2lV`PBRLz2)gCEy>cl+g1QB9XNjk*G88X)355_GSmVBuSvSFb~JBfhUZ36n~wExV=RqK$Ya_x7pupi$Tqg##UkAu0jY7g;_-%DT9(B7o$*^=*eUU zZV!@Bjy(Z}2OAB;?JOE$54)Yf5YevS8hT^g#Ssj0zFNBa5ezx+P@Oa$qQk(~_q#J* z6alnJ7qMJO;j#X86&ZUWFRRjhPuN9wcXxv^1RLAG(_8_=9v{uT6tbra^z-!QX$e`w zedu~Xd28oXQi&mk`_7HVn+o5if<9R2JdS#1Q%32XCi+;L?BL#;9zW;E>ag!$7r-%#jKJ*(cYa!-D^rY^yxX19x7bj-i4ydS7#4kQyt!3QS?M}Rq?P3 z=O}t{T3;{WrtX9F<+0M;bvff!$2xp|hqVlZvw=95a3ONzc}H6fCjPwuhbL*rFf#I` zK?MU#C2Txgux{UMdUAyvMV(Zdn!8r>`Fo>GnER744w&M#W>=cT7vCH-iC^j!8GSx6 zs@B(VcXHXnza3Cqsqkqmtlv^(ks6h`GuiUwLV`&kxh(p4Ehwg~XlAaHG`RRxKve{S zf80yBXe#yzs)T~BNVLSWCo2!%@tPxzcu6!pZ@KEog3nE4n)VM20@&OlPHUUdE|yrZ zS#JEZnZuVv773-b4YJ$kwjFJwg>|-uEn<%!+#9jujdA{PL)oxaS5t%aQE|@Oljj|E z@7+X62y0ClofR0aM*j9?vIsR}nvcPv*gkKjT@u_^>)x97V-P?R#kc^$A^2 zzKnFz=bB_WUp2K>i38VVruR?eLNSW`a;p(gnondvQ8J2Z?y)TyV*(SMs_lYNbmzod zo;^u+=(Jgo&HiZUeD!A!Y5v4t9Y&%mj_bd>m|hvOn&!Quq~CYSjVeqd6(nL+<;f3E zkoPA}8E$wNH}Bh7XnT^OOObv$UF%o;Deb;yd|`vF^k;M@yw@R*Rjm_WkOAZ#p@Y_7N+^{;M2piH6>fw45n_r_g+%H&|$ zI}{V|X{uMhi7mCw1f72UGgM8Qfrj*6LaBMOQQqAhHz4LQapN?9hH7WRDnJmM2KX8> zNCxGmI%*k|T$NjB=R(B4FTYBWfggT-kn0nCtFO7Ca0*UwJ0N#|Q+nRfKt`iqj^=vC z@!zGn0=4^ihz}CvVk}2jWR=D<#-Vpk$FAN1M0h$YLGjAl`<{ZxJ>{0Uue61c8gpih z`CnNi9CQ6t?sszw@U&V{g9NLtsW7pL*pV@9Xz?34nh|EptLfS2zLdIMujzexGc>^* zx!Ks&FZY9;Bi0%}zp|;uC!E6KX zzB6wXOQ?&MPPYza*T~InK`-ea2N~04gBMnMMko8T26#n5A)aMX3~Fx57juQQg<&h6 zk&O%Dhpu^QpKX;Y1^B*`ku>PWX!J%Po1Uz7vKTpP#Aqn?4Nbk4Q}&y)5>{g>D4byZ zGPD|zOq0Z@nNVDpss=s%I_UaYUP-;o6m4S%bXXy6QRG-ApMW}=4Ah`|N8^WTYiatz z42Fzbut&Xz&bsC)^eWQOW*}Z@TVTzV$J|UcVasLEXO)&n!&8d}L>XI)&(~4Zn(lo^ zYQA9Rkd3s=>hq?-ggSB5k=dAM4(L=jso)||?5nqx$}RT?wtM(XaVYyh-cNY~oKrVe zpvMae9wiKp;>ov$tM9X3b)(Eevwjett$P%%S1+pOspSiD*9_d16)n_k7qE#L&m2eO z6p8fqEaaf0C21z5_9R{INbioQ-uO|uX90V0%)k}55=I~b;dr!ATXSuy?j_Q3RJKN02y>H5UYl4Q{g#x}w z49nu=rnCwd9udU+=D+VdnyX3(RUO-rNhLZnSi$F|4)bR@zimblXYxfV?1%6q(6<|z zv1YbB=Dy)#=ntyD^4Xx8JffdmzI0UX*~8ZO?{~W~qbTzBsm}-OKhocR;6@%}oJ|sC zKmc@qMepbL)NrQmQH_+rr(^!Ww9B?-VDy!y!vMlqxy$(30Pn;t?YOOXXs%!P>LhfoW$E)!X^2%dZAA5>Rz*fcfioDA-0NFU}w+0t1t5wSF@Y_u>F*kK;T zWS6bT^Q&R!Q5wx*@$j8uqcG~6TGx7@dO(Li{vqCP4r$MriQ9RH7_wbwd=ekEL&t^s zB5iIIx-U<=M8Q(@NgZS}5a28dO4<78dp{MJC!s!yrMY47RR5A5DeYoQ#hsvHp{ueI zc^}DId{=_q=v=#Le*v{d3?XiF6`vHk`8C$V`@?ioj!cEd`T=q6yR_Q1%HSI$=U)Ycw4An!h0n2_3#wOqm*_#$ zxn5RTN_mvXp4*=xG{s0of`SML+))+Ze=&XM&Y>;O?6()?7D`ThdGA++`6}eSdWw~L zRcf+r?@07BC;dtcmtYMJDoh*AsJ@;jaqv9#PK>KD&*V4NwaYeWzC4Z>I|P-wny^FX z37L~0jjLS9Tpd;Ta_CH!|8hKIL+g6R!-l{^mp^y4s_hYx)Ne~D5Q^;sHjC2%icy-5 z5$glhQ=QyazH25$(yB}mK9O24i{g*O~d=r~%Ye;{Z za(3qqFXET5anI_DbN;ILud>LB3T&k5)6_J_H@a4JEmR&7W}Ryar~<-PP&G?9I7mq1 z70DNvJFb)1QpMt{aY*AWVRI}VYZHX;kcD?1{yif?lWdaFZcTZ`#WT>}0PYj$Rh!!^ z$|&_{8AIA<)sy<^_O=UBazsaQBx}7kb)h4W>UQd)?u(h73l5Lf`oZ8QZmhg*`V3&? zm62Dzjul540?X-~zoJA&&q2=z8(vd_rpqD=-JJ`u_Zw^N{SgJF^03gQVZLw%c!P@A zvC4z=tyo>6)Wz*zI`g_aV$akIsHmJx?+6_=Jyr3oBE1^rA{fac+dM$;-G?g|GQ{;H4DqrHz~`G9)e$Eon{O zrjUl$#?pq))%4`_eC+>WyPi|1*V|)NF10&WE|lvY`R;f@d7gD8#vpX*SC-gu+|ttz zzl%uT%g)S|rxdBMo;X;Dk@xvY)ggIuM~a1-AoN{6&qJ`P509e8hk~`;_h&>%aSjNjBP-EH94&(stZrZ@;9hh(23)2dpf=v%v3_u~`cg(;RC zEN-mwSMZ7^J3j;VblC^R3)_qP1*r~+YM^!r(!#P=FsX8eTpH^qi8qC><>6j_g@|tx zNX(eQCH7M`$`s!Y*rzNs{S+M1U`@f?6uy1E=9*mV3ud}aCCE$1HQGp0(_Y|QrXRWY zoyu4SMq(2c{kCOGmnG@^@s8NoMsr>kYnwtVravz-P7+Wj6{@<#>)jt$s|0fbJcqw3 znz-_^O-ink4n5n+{HfXWljJus#XcKWFLwdtf`YN8tCLHI%s0cMhvI<5nc^mW%6JJc zj)EeWh24%BEy+OVcelQ(yonePCV%B)$$@v_S z@tHk2tW-6WSw2NWGd0%YRvvbItu#)9Pet7%o)PeYq8NsHoV-?6yL5@J*T_FA$Wi(7 zxLB|!+j-$?HM#t!)H~OCnSg2PrAbCL&2Fn_zr?c4Ei(9e;Or^wHk-^n7BFD*zYdjb zEM^3fVws9Pds5B46!Y7x_@Df)dEYeuHLCE_s36e}0X^$v&hr}_Rw9W(XT_X?N|&VXEo)*?dJ)Xb z$rN*^@xyzggq(sm*Xxrd;v@$~7$4$O)=&|xK;wOaH#7mo@TOo&R?Yprl6pe6tl+nE-xaQ5cqK;le{l5{U{QQuz`ufsfPj+HinP+* zAnX!S3oIQ1vUIL=2`I62cP+I`r-UFN-L*6#-H5aZ=sWoRz3=n<|Ifp-JHyQ0x%ZrV z&pk8qIp-eudTQlUEr>7HLAI++K&`K)FxIH_gcHCQh^Hn@QVuT>wFD+;jJ-kblafts z2q_wvYJ%p7nq+$TmWnxI7hdlY!pH~BDmrC5mJF&>G(NrDYfbq<0lFOEZWI~dr2gUW zVjx<(`hswz#(QL*t97%)+o?{j+uCFzxWLtSfvh6ROSy z95AvqUDos=v6@PVaJOAJcR0<8?Qlqhzt4nPZ6b#=Up94viik3(B3Anf&GDlmPG37S znrJ6{+U*Bth^Eu5loAC~qbXg&HR=(b`j0I)+24Hr(6?xoWA_#1K-L<%ay|P^TON;~ zq3_QlHr$Wa5$*}bZv!5HE<$t98^#`5jR%#UH@vwJ7G8KJrVlTFrF$@@D*kSPXuR}h zcJG&t8wkoE?`P{C4#}W&%(@YV&RIlp)cmbsRIa`e7JTfa z^_aSF)q!Q{Q`Z7c!;5$bVu7&1(2?TiSteq(hW6LE{Zo#1jkY5KlZ1)HY?BM*Ke#Ef@2yq7<|9Wl{?@M_ou9Hd9YX z2Iz1cE7EJNAH#JXTai}Ien-rAMrvLe@?IJ0p9`nsJ*x?K8V@oiZ=!b8T7-#2P%IWT zs=`a3%#>31m&f1arMt9pt$CAQfuKG?P=wuiMDspn{h&L_c*bWc=o@*Hog?X*oYwOo zDBlvSC-hS!F=wBr;n-2RK~*p#Zf6vNh7b@p4Y@G2WA+tj&{ds>13E`k5XSc%++{>w zIp?IyIcqEJ2$SCQm?Y$C>m(E{%{Hn_vuHGL+qPA&Qa%rLJdgOYPibsSd}h9CSofxM zFVEzmF74K5u^Pj|Rl(lNFTnQv_vX1a9iXIuJ@0@{*65$Vha<8rlSpsuIglcgqtV#e z%lAPO121kx=?W6hjkhnw5odGd0opq3Ou^Zx>T=c?eRy!ML|0H)xjtC95 zqYe3O&5aseePx)fBPjOE`sSQV!x~B+)N^nwnXlIOULrT65HmC7GzTn(CcPB=PTIb@ zi;lNqtZ4M6FZ$r+C$Zl@HsCQu^sO$qRf;R`fg{AIyk;Hf2qulj&Yu}=rpOwo9BYl- zBu$6TuE3+`(3z8NqtO&pPpEZIFmyCEpPB(l#ekgsj{Hw?0#}Ac=fZ;0`kTH?6BL~D z&r03BF|!PxV0Cl!51H}Vj8I}SA-z6X#+tz4bmK##S1RcTzzK&~ z-6bzmbHn0UNv*u&!fHPUzp+Q?j$V-jkJ!mfzT}43m{98JC~>hN67J zmxw4m58m=vyL=)t@&ha~+(Bh*Eoq6{O*U^S+7Ll~p;1K9R9GIrkd-(HH=%^`tJH7l z6{f24WW4mEX-LYxyFQX#zgW-Q$*LHYKbDu^@zQkYYC+TyykA%C&^D_*TB$?)H{3p~(o325=5 zc|LxE=o&))7cikAjw{xo2}Xr^(8VY^OJm5MV}!+A>r;3wS|lU9_63ZR){+LMJ5&Kg zRb0IMRR2kkzw{t`*gcfW0Os8R`DEtZeHx-qUW*SDSIYsL8ba=x$otior-7zgQ=2IT zL&$g?trvKvo@fp|dBtC&vLPwj2t}{?q+8Gp_aeWR3cz4q@(s$}>7WArZuEIR<2jvW z#tjN}gG#*#gPE~HL9oPC9ocfk+{0RS1Ozd6uT}{LwQwb0tNL{2UTLdR0aK|c8Py#h zt#?QTz9+YArjyXd)6*Q?2SM}9wdkAHa6h93v5}(l3)s0wx`U-{Y@B{!qpU`-Ik+`x-ox?3zzik21QY{MCI*0=7*{pEJys(XXQmQ}>K3OSK0-!2K@}%7p z<5Rf9-oX+y=dfsWvW!D(Dk%htFuYgKRwPE@;c`9oDO`&#;EyK~BBf!f^W9zg z+L_&5=t{zfbf|t}!lIW$-$?{EKB$ z$r%Qjtq_JjrLF-4e;&l5XiZOj?p=Mzma#miELf5gH4aPS;CM{c(rCUGSImXPc-Pp%_p99?;&C?ja_H zI2RT$@by^x7X{6nR&n|e$DV(7C~xgRb1+gEr@y(@97e=9a`G}#VUum`-p4~U9-o@d z&`TGRqdn%hktWQS{^neR{eH5WTGStXmA@}b0w~6%BX)8GhecKvBT@^(lz`**Frg{w zjO`rNvr(4cR$4c;oHw3T(MRN0)9yI*q-OC`*>Nd%iD5#+z*;8!Zi}M^%a-fSZXc+v z3iAt%JGg1z4_wXcg}YW~?D*Peq)SsiRkt{DkmjNM)_{TF#q&-ce>Z4}(e)*wK-{C`XdW zBZ=nnrJZZJP?|-@GhCYrLGN#Gg%+3g9}kGi=o$82xn-Vdl*`khvh%xr>kn$`j07DF zn-1b+3^3vTRQpQSCRcYPIYJ=7bsV3jdXL@TB|Vm{NwyP9Z*mK8v(kcEa}eQW)XB?G;e5T2T$}21%l- z7se@DC|}dI%05<%XddIfe5?M-ZXS0V!WJt&R@H{(Gl$?Ah8B zjw00q{~{7!Nz*$&DqA6Olcl2JH@|KE@XTk=oLRIm@}S^0r^?;3m9zrBEuS*e?WTj% zJp~p${X8Sbe1ggdqFs84R}4z@+Q+$q?o1%nP6w^MSUjJgVdWA{?N2=KMpNHyrf3Xb z{y5#MtSxxGVjo>w9^C1-{ltJs_6AGBeKBB!?|Zj_+|!di*7(`>#$<-*RJ`Lo)^o)T zvZrO`Yjhb~)(8l%KJISRSo7BN2V*{YXI7G)SMTProv%)j4+<=^wkhpRm^^=S?t*B- zkju;>|5ISIZA}_B1D+Z!19LkKgX~C+!4$Y0D!6)mmxgMlQ1$(KQ}`Hn(%>*n^EZjC z`+fSjw*HF}0>39WSJKBe@!s9bW8QuscMnqoJ|z(1B56EoQfu+z!8Zw70|!;$I%bD) zZn<1wK>R=j$Tq{`)!<;SCn&(7i>h^&sKLy)pz$t>G%1 z&ZHfbYw}aTMK&_0q!JV6LR~el#!`1S-4fzomDYq6 zaeL#jqFlFq@$tPpUsOG=8afK}EmKe*(mK1u6^Z`Yye1o|MASGw$DJ$})>skdVV}K< ze%45I8WH?lG4TGA8x~ah7%!?Fmil_^ZuSG;_8dW^>GFfGAC~K5WM~remzmR9w!N1( zcM{dEWIr)z3G|vZ_pQBS4R}X;i0RQ&GrTjC?IiMK5J^2L0H5MrR(*#G+Z@K;c*I!o z`Y76A@@DZ!>cgpp`R3RxlZGV(&vsL7SoyVc?ejnZ=!f;x)U?vh%W4$9gBMX?igo(( z#uzV`DtAC`)2GGd_#L@xo)Efp+`+As1M62dVWLMNmZ}v~ETmRT$NGivppfYxDnnRM zCU8p@eKa;Nwgg{jtffw^7~7s=UgJkanOMHJwOBJS2)F4UA1HC#PT>t3|6t(gti)~* z#%1B6>Bx0=>s>;-_a};LSNBc$eCUI3XdB51xIs)xE?fAU-Dg75EZ1kbRu{)}hF$wh zp4q{$vXInTAHC^y0|!1A_rq9QckT-|s|$^hIZ2MKI~)5;Z`U>}=>kHcFymi{Z}JZeTRFUOjn}3(z4o%|8bJgu<6$i(|kAF}?VII8pn%cXFUR9cD7VZLjBy@MAYJ9VU3iPtn zwOlMsgxE`Q*21ftaZ4C7(xk{$e83R{plxK6TK>#MoCMASsa@1No9b;Ml8 z5z@?Y7!2CB*hE^XmwdE7LFr@U2KBY$;S_FM%g%=*wiM8MiW?*h5_A4@03=w8g5Qlc z7)Gj5F5dk)`F?gws*Bh{ugFW)*FSy}7cw%Z&B0*$tiTO2G&i92iML?%EWJQTGzDS# zgt(%3Z6hkiYc%VNED0^};6EzL&Ze6RTciPP5b96$oNqWf`inmFYOManNYyck2=?Fy zw3YY@w?pJk!kw#DYtC$;0yb+r1PNXdz3a)O5T1m(c(O7)JNf+U7;M?KB6;wrQOz#D zz{m6iH#Hg1Q5Kp0Mq?mUE@m9rfm_Rl4B+77Wq)oMo`zPLo5FhIIQ$*%+z_ zuMF*hZBeWe%HcX11QG4aKjkzC_YXu9veXs%jT!e*{cq-yv%d~A{P1J-h*)(P%OZbl zk!3)XKw=PB*6%^{_A|6q;HWzIBoYm`rFa6^THp}6@$yJKC@V)46^+SCGPE~%{bK1l zF8V9d4Yf0M&3EWl>o;^=qxaPgP_5c&M7pWeyGg0-uMS|@*UpQ!{$9VAhlx+>74Fi_ zZR56>g~MBU9(ES6M~#WdMS^52DVUP2QWW0n4{?bLx*d4#Qd^~>MRt-BLM$kAx5cJ| z8M0Vu#DgIahj&U%5p#A^uP`{vV^RFQ`7^k4$^yx2izh};H5g>?{OeY<%{J%rD}glQ>W>2gvZNhr=tvTT4oR1_tGI}y_?}u+y ztQ+eKP0pb1|1Em zk?h);1wC}ZEWVHtJXfx*i$7oIPbW-RH+!>!m9*0tdI?qF{fl?4{WAxi$s47tZg85m zpaO~ESL3?BJ@+c+sRSD&RCW1NgbXAQV3eDV8?X?S^HAIpt=gSc!!RV$3DiftmzPP%UNH6Qk zgO={}^g%1Ey_Z|Z-&PbyHpE*3_-MlKll(L5Pi^1R_^MP}rPqB$?>~eyuDu9O+x*-W zuK>S}GDwAuxPa=g%SA%QXqjQbzTmDMAEJ=@huR}O2^R~RAVg2RNrKh7aAxMn&jIVq zJ0m}V)Zlg_Kl$`ch^SRxD)WytQqKz%N19D66yD7zZ_QcZt!<)uFe{(?G)?iLqYzZ~ z_j%aW3pC#@jr#6pbZuo?8-x#L%P)C0{8~2uC9*)>p)?<16znGHG%p$#a2e#Uy?4eVy>Ze-$x4Yo z!h@qr_+=eK{ZyfY>Id?DYC{Uizp9!Yd%cE}j=np)R>)r>0<)ki9aE&(+(8 z$k8z~q$8%YS4>!n8)uk>qJWCQ#Aa6DN=sW>CQ>I2+iR%IJoIUIVu|Ea%Mm6tehA@? zWJTC@Pb~*?XV*Qy9h&SYmDQRJBHsK5ckq$`7qf zpAUDAi^#+!C-fPiF^awcr<^tBN&WOrZ^Jh}z4AJn82ez3^Tjje4#t`Ha5J?X#rca_ zxQ{+sIW%%0?!ws8*yOg2$27)llfA7+{N0K>$AulPO4bt9Jf;r@lOSsYHFuv_3gVn) zN^r~+(5bYqV$nR;E8VRrY>~sneV4lVF_|NEGsqesRg);@d-tO5bx0*+W+f!+%E-DRDm;Uk2mDzc;@Rj)^aF{#@U1vu-oA8Tp3>zn17pP^{GXg5g_oNH-i4YB@gb zZr7~b+P8n-XMV!j&0pgw`M^Qmz09rdl2@_O_0wpYyV1a9T#7}Ub2RVY>&}>f#(=Bq zQPZ}ovl%C81|WBnwBH|wi@%o#S2-$+e?xIWb0t<|KOW8yAvzdnx*58>9c&`QrB7h} zGx?=S0%AXE3_eaBR~v}wUYWHC26JP(oW_@OS6?_hvLZg_Kn&ilcO>QicR`g>nqpWg z=NwYFXEqJLy57(dyV_0zlMe_sjsN}o=QBfF+plUMctyMZa6X5W3G zidg$h#Zdf;1KjR?SXha_WntoSgMA=_x4>@uo&ryX@RnB@J~3}fcoG-3VAs+WV!9q} zyA{Y-o!m+}Yi?*DrN3_IdDeb8?pe49 z`P>VZbFcC~g)`-*kK*3KevZYfYrjrA@TU)}B)KosX#g0N^dlXaAV*1I0WP(o&E85u zv_EmqIm+{4;HX!Xx2g(I^Kd^Av+pJUKsSXY)CKC-;w6BiWr%c@BWy(vZW$UEO@+T9 zqutsPA?bFFiDM{-13AF)_pfv0tYD2*06~N|f0pG$$XFv^vi+CpJdIP{tbMxTeZhWG>A<+iSV!;~qQt zBy<;de@EWi1K#y-cam^7t_0qfmYp?$1Oo_=Z*Cx2!+-Fl5>T~?e^qO^LwY6ZOM;lP zGbaIxPA+F82BGay`F|%uE5y#>zfXw(oatkV@2~?v8JX#V91ynbH~$wavQkOX5GmnM1GI8(;M75+W&qVtarZL(p%4Vpq2;<2(JM84}X~1Z$ny z6n+8#;5AhVNEoO-@mK~MZ7;dl_yLuy$zc6->VJG_Pcb?QOWCJgI&F4O!Q7Ra-`8>R z=kqJUO0-Be|Bd(m;eNS#8b}ZdP({u4vut^E->U07|8H3$7o_Uem6qcHOW~Uvl!K!iTxH)WT=oe4+Q#8UJOkVBNYBs zjh9v8)a4(6y2!rS6)NSZjnE!e67SAD9qU!1^P{YNpxN$s$4OEhQ1%g^?5&8?ax4ar z*APPg-iAe9T@)5#-Xamec9}~y0XjGu*onE_S(R^qw2%9!@M9{_A#1_|fw-W9^nqKb ztO_Cn^@;o+Q`QJ+hurRHqPMW&v=-Dn6B%8(zgOWf69D%3mY>FpRs!g*mqL&sfAbcA zu$M_HXr7g44@sxAg=j0;0+O>uS?1}0l9;?7SLw*_s$XXs?Y4QYt5s1hi+tFnbKPP# z)w%)awUz8LVpJ1JfF^_UaFw6{O`M1dd9GXtPP#C0H0sgr48H|^|DnK|6aP9$53_td z@G=U=-M_spoDXTM3=m7e8?Qb}7cAASC))@X` zDdL|$7K}{ydtq@%r;aX=I1fBB!k-5qhaXv$spIoQ!dFV?1cGcOOw4xt-TSOPgM_YR zu7$)K=CAAu)z@k$E=ijvXfbKLW>9iqQzz~p?%EpDGAogTONHO`wODGzKE&*Me^HF( zOZoxu<61)eDF(j3FZ_mr&qfHq7H;_z+j1Le(!2mA+X`67MXcv3pC(urpN-xks;wzs zAYGEu2AV7UbE%<*;xHbGlfWaz3?GVhwsmC&dTD-Y4S)~x`vn~j?R}>HY-Z$=6bPmG z4+Ycl8&UyqrUJGEUi8n)uKNs13^~;fL~zQUc`D`8 z$W7*-WpsYm?tluM9|KA{(ZG>YU;&`G#h2aJcmVt=&Y&9i*51i^bTJf^$0?E!gyENd zCftYkpb`S0ysfaB)q}GS)b0qsdxb4|J=H~hu1|Kkw4aV>IW9l=A7ZXehF{C-n%^Sa z2m42Rx~?*d&X~O|F~5ax-%9_C1xT-53r2~rZ^?X6%FjT~3Wr6R!oC7ckdP+;EtmvY zj{{0)wG z$s`Qc+J?jc4@FYAQ@m!HUWF0kA92F-_n|9SQpLxLh#RI3ioOD5xSoK zv^lzeX`+2_Yd+Sdth0=e1YBuSK7H6`|?FSQ_rj_y`6glUt(cHAnI- zoQ``7alypa?_YkPy9oTyMBqf)sz-D}ON4)37JZZHI;VHo`T+_FSt4-s&K2zpJV2q8 zAe_w7V=@B(jnk*mM_7X=eh%-mv;dgYZr9N?Hvrs)mOR4C}B^%tQx;%;$sV)jTU5eu+C2&dZgcE$k*6#d-gmO@1_sZT+#>z(53&(2+t_6 z5Sd1o1TFxL16ZEPv7oT@Smw8OcTLQAaBUwPP#y+=rvMpE1Ew5`Hb+4<1h;%S!#;(N zXL~NIgf8;PxvY!j-ctMjqE3MElwXlj!Ft z{L&ow{P)POBw#mD_V$Rl!WadY9V!{a@=nR0S+_Zxp(y zoZa+4l=*hz`vP6hdod;8*7BeT;&0Nvq#|ks(1jjAGiId6P#+G+re2g3ez;Y{e+28% zzo{np;m5_NIXrJnD;R56IR8IAK>xON`Vlp0kZjNYkbU6oPl=f=LqpR&&Hv%6d#}3v zRhvGz(3-Nv5KM`$v&{bxoN-F*b4ZmE6g01_%-s41s)v_(l6iiO1cqSl?GTiOFtc+C zL6CVNAE|+8lw)&JW-41FK;!?+W=&qvM`fS8(VUOZvG=(Fj@>F6;NJl|#U_&Q3S)~( z4?dZS0H3uF-qLO&{Y}tkwLc_*a2`#qqZz()$n!DOM_6 zk8g+J^;f#y`vV?dg(U;MzF(kuj$fHWA`z5(B5mi`asEp#N)K$t5N z3qzE(hi!nslM+<7Mrod{+IO~P0l<7BZW>&&|1t6`LiNo5rb}t@TFK9a$G0ZGYF7R% z-L}QKNX{{Hhc}v+zj(!=W@~$Cr6}rEOb|c2%*U4>@6~Rk4#qNWa=%A<*$w3=z5|B7 ziXI5VCnEAXjEXRPGeH0FW*s_ie@Wo@jcv&9!Gr~5NJzVNfEFPSFDWzSRXS2x>4PXL zwFH_2>^HG*U3W!gTI$>zGHJoX#I_3bbA@N)nOvLvOzFjMZ|+l(4ex$g4vC5vB`Rn! z2fyq*5Im+M8IC}DgP6J(c5wt9$mSdAy(w*B;sp}5beh?sWQUIu!U$4v(lGygxDf>% zCaR2~JVhXsg2^+Q;vg%O@rf8;nsnUu&T`y%>~_Dlwm1V6Fp7uHSKxmpQF};B@#A+2 z-hJ^or$?W|>|kO{-XY|0Iugm0e($x9$m;ZL3qM&Rz=lB|EWFs=z5v0*nLLBy0jKHF z;5Qz*XXE^tsl%~shtUA$xyZH}{l_?~FIO?vO96;Ks+)!TNWv)W`01`B_v};kOswwX zxRe}gsAA5-0j^pRx+%)k2YCxRIL|Z^4cWo~LnQyj)Q4slcEG*krzv|i(q}(=m8%l^ zLDw*GCzdTg?u_QG_MuBBc9b&U*(n@;+*cohDaNuY0mkvsAf!SLd96O=u9(Q&?|sNz zfvAx-bw0t4nj`+Ih7kMhpFl;1SHrE}$^xsV-4J6MVDGjMm7hx~yD%95xAy-3y*!yF zBD`Z$-pOaOpV-jCVa6{nGIu->5|R5M=*&ECAnd40YY30nPoqcIE1>9S$m63hiNb!`tvA+%N2mtiG~5mi$Zu$+vjm zZ9fOxZRY(Flq!U?5HJXz=zkhN78UP%`u^srcq8kNB^LMFTE89ADY6fZOl#FTYytRE z%dMr=5M1gLjt>Xqz|>#Zg-cz_@CiUupNRu?pnEj2(8ZSQGcsfdqOZ~X$MCDoajXIa zzoQWcKUTSS7ntu8njx&b zDO9B{M|U$bC=t3J_v~8Iilu%XZac?u45?F);{=>ax6&{zhTpkHp^>6ji3hQg4j<2T zV_yKbFblvO_|*|HPd=p)1VmCf0PgWUG(q=2;Q%efJ^B=OJCDnr-kR4&t^H>ld1AQFu;oB=snngCBf`VhX2_O1~|DL>~?>Usr{tL!z3TFnQ1mac! z)A*#s6ool-A$tN`>Tm`KX`~ft_Gt71CYNOud`JRdkmhcExPFc5ztLB)*qu90^9r{C zKEUiEWXIojJG<0#lrXLIGS-`G2CRl2vxb!@_KRAm!~FJxzmvI?MdY{lS@(G=L}3gU z#n!xr32AUle4%H2+D`x6&7Q^3mWx+SM4|&KxW7zxv@6qOfxemsO#MuS$h_MCx$(m! z)yV5Epq-=pc&nIh7BH{M!5T|)>Kv*3|MhoQ$L}7}$$_!`f|D`g>m2hxn1w$Bme7_) zK<*&j_CMd#U3EhfX{$ENcKQ@O(ECqntGBM|SqMT>xQ6vH?oV%Ml;l|`#7Jq~^ zM?@!m>AbJ~`yC~)Uwykzo_+r=i$uhohYq+?6=i9U-+dn8)@xtr3__hC@1>Dx2?&ae zW1+$5q)y96YMM2?+laEGkKY%T% zoP?|%dWl-}A?a#Lnjj@~H8!Cwb#jp22=i#-((JXj|F$TZM?7CAKBgvr+fo)rlI)of zCWM}ijK9KpQ8asl47({uNe*#z3*I8G4UExFAi8k?kcIoc7(6Q1?kGpR1@2!u%aaYK z(rlu2R;ijn+g zQ7415b$2)VsbMc|%HGS0=zTDH%~$w8j#b3uo!bWPb&WkJ;aRQY3FQ@^ zBbt72t^RIAy;ueHdk&wu=vTzN&g{)IBZ${I77-wa?7N`4UN-8-)hQz~9tv|VGB$$Z z>IM)QgfsNtmCJ$*$(2fxjor>$@Jqri$CXxAhmj+eR9GEiNzwI-q5_*FwnUS_8o}H2 zHRkyey4wC^{`Q1HDl^rQV*otoht+J*{#>6Z<94>mP7x{1K8okG3S_1Hj)mDY;^r;G zNBR{{@OKPtq z{%61B;mY{F(^o4j>n|w=Zd35jadan{H=v}4f>Z-Y96>x=O$;&>^f)r!&#WYMV~Bef zW-ch{HpMv2V(!2(U6E@1I8w9Po!oAw8ocBYNHe_DysN|_zA3sDF+fuyoCqQ)q13Jf z(DY!&C(MR#fFgWvi*R811R`)HU1UM`*U9h+nw%A|jAJR)-x)gP zp0J=v-BXW_gZT7_NWoHmtbEL6hc@rvoH3>Zr>3M90({yA0SZwBdDhqS+^HwA-B=qmiEh@JwYpL+mXj?s(8bOg=RH&L3s zK^4(B-)Mmy+~)a{^7u6w-8C6u;8P*BBAOjIU*&cyhDX9G!YI3NqqGb(TKZi0f-}1o zv_UvU15|&CphOq5%)~FE1dLINM;s-W2AJWlc@_HzifW<9r7iQzO$JDBtu?562_@$; zl%QROlRqEOxp%S#WEg`SVVSl!H>?X2jL@q^)U&}L_wu#NK-~r^W%avy!_e~*oF;rn zCRccI`!scK{(-MjY@ZxU?-D-2{zT~_yBLV_i54H65~$fx#S?iQg`T_QCxz?atW zlnbwJCyiwP>TV;dbPZWy5z*{woEQl;?xld!Mby@)B=wS&u0IB&P%uk~6=)cd57opJ z0M0=KlA?Q@{C+Wc6&jz6AIiBPCZ?C;qr>X3~94ma1OZzp`I!W~T@z zL@3W*yFV>%DhL-}GH%!Q#l?c_zes9&2Yu%#k*&SPdq2l>jrU`{X4-3AkkL>Y?6@xx z#>HVq`f<88eRQLiR9m8y$KuVoDjFBQBL}(aIk6Fp@u*)Bz0({4<}gay6vy|1%F~Uy zKNVbAl+@6FCb*O4XQcI_NQfnCkp-p7o53iwc2^M6oAE0){BU26 zZL&+@?vj`SWR!}=2@SzK_Ri%e9}s7d0U$hOUJMfbYn?^2mo!@uM1#)t+_!_hwQn}= zoea)i>V3J8MDChTRg0vqMbg%49`kGZQa?nO#ipM=zB_|KprIP2fHznkVxSActilM$ zSPkEkYevld0MQ3Pc%f&3jK5_dez_QI@oNo!VDDM<+3ol-ZHF7{)q?k7(U%z_ZmFg89aR ze|T;3qMeiZn#z(GDS#6W2)p+Q0h|vCd`_oN8w$9N0+sy8pVV(zj`1xnG$eQV?D+k} z7v%gI@Qe0)6lM+moyejHpbdv!BaA&Cg%&97kz?KwJ*~scO${AX zgNqA#FF^bfRTYrFkNj~;Qlo|}lu1>WrF?2vZ&Vk}8v*wLh`?YEF%+O20e3x_+t3S9 zp6$vzqlj8WforY7wJ0#ZW>=6~)GNpMUOWkpv_+;E(z397d(@!ClEx|L(p$HL=Hue( zTXC}Dg}{1EdEi{eiXCFmSt#RgImk_3>K_f202GS?s)ROAEC&yiAp(s#(jskOx1Br~ zG+>9-M}0kd774-6zLO6pPl_6{_?R9=wMXSc9}Yx$ZHIBdM!R{_MulCnKu0cmzkWTc zz6ZkRZsgmwatok<*OW722$!NvX)TM8h#5VuQ0E!ipub!qX zPU%8u2L=14^x=X(aSto}em+_bH7yx>6ddydo%%I@3VLmNn*mBXhntxGbIjoLqL@oL zju|qp-jxR9lR59Tv3H7ZA6}mM>brhE=NZf}YEV6%QD+*Qsvk5u+_p$C=m9`uD=ORv zdpn+O(fnA}>QLP4jqTti(;mYNLutXfp)#C$V}~1q7Cj`n>Qhczxwdt?{S>7>)vG%< zXOodwDXA{l9T))FbX}7&=q|~7nIAYgH|8jSnPUr;mkEqYFrpoF5zYK^G|vXCIw1XU z*XU}tmGyH|HJcZ`C4jRruioIZ$`DeUPY3$5=evxi=wuT*Z;!u4(l>hb*a@^!zV1Q+ zoT%}3N=NpG`MQ|-K3q`8YXQ}2x6sT~*_RyZa_wng`YEamJH1oVh3r5D_F9iOU;W*@u zk(~OQ+_E+hn%_9-DR}MKQq&H&Y#_kD=I#a3JgBU8E+jtcv~HI(x5$zdRd5xf=2NhL z%XSO9kWnjIpEpfg@AmKW?5oA--Li8WOVxp{NW`$%7UdaMp7{Zq60K zz_T*aKUl+3cw<9IlaIa{WOesIO81P3XJ!5z<6dj1aq3CN=Tq(QNb;fIn6y!N3BAXG zRFJR|spGnq=lg9LtZCm1Op0z?Cm^Ub;(fh+kU$gIxvREViTY`OpWU0S3261dxRZPd>cu}@P>7)DymSE4a#axLGw=8C{sjPspQ z!tcp_^9?SHp}l|N1i`&y&o-OxCkr;|STJQ<)0RZSMNQbn?nWNVV-JY%=&5)2FVGy8 zI-jm_spPY!Ycx&u)Yq-T-6f6(!5s{~48xBDsm} zoqL8IBo^>Ya@5o_oJ#P~JI+lOhT?lomR|S?hML7Zzbw7PUgl>O^B56%On5pZ>gRl= zl}2f$9^owaa~+f2AAH*7h0mW>wXx!;nXmG+<)mwLzsg;Fqik6By{G0g!%%;v-SzFU z-Sx0j3DNX_9jR7SRE$9(o>d{#aUM78^9Y+~coAMRz4_WC|NgI!`r6EMV8hbgsYf;7%OAtWDDDUOCKAgLmb@FQELK|nlGo$K}1NyF4=}7~w z3)fD+Eu^i3jV zIVdY4KbM(JnGpa_-@Qs6Wm)kczsv~v-OtptKh77BPmxos1$Ucp_6EgBDq-$l#iv6R z^_|y)wdC_i1&md19!y`UT;8GZ2Ua=~49T%rBfcJE#cbbKCf&7{sK?4m`?-r+zQ%6j z(qyv6_Ury|s0NWiy{lR!8o7>-N3(&n{wnWAUiI|){X#sXwLEIQQIj}eN~VqyqRb3^ zXFy0EP;r+&5!opjSVkf2NAEn9uU8g^-GQKy+N~vRj(6$w3I%APae~2>1nkp^pJAcG z8o$!L4Tz}KUn(nrOb+UHl!z3)vrHcW2+c0ncr>09PO!`v3lSnrp0t9x>s%(*Ft0LgwyMLL^(#3Z_I7~Q zc-2-*$HuHvj{n7udd{DX$!fnC_@R`PhQL17#-*=;?7T(Vl}p&=(PR!+Z}huAozkY# zTmgSKCcockg{QcdABbcJH2EF(R)3)@#xngvA9~CkAgcCSDyFbflHO;^#cy|Q>e5xT z!D?{lHcj8sZJItTR%2ruoA=S(^Owu*cf~65GsW*`tv&Mb?^{0JxcctP)iN@DVP&w@ z$OhjEm5Om&I)`UwXfv$-O!$5V&+P48`okezBel~uMvN&YmOg4jORco^#{{etXYalJ z+sx3oB3tvVl;dgLwcwa>%hB;%%wBtsW4`#RRGoMLm7j*E&d23nBK;Enh+kTpIat>u zU9ac@(j`9|XN+=1y{}ZT*x)a-_}dCIHGjSEt^$cb6hTFdtwpQAS4i@k;%?!V4| zcSgVeb&dZ203k(snVGzv=kXl89kzoE)q%kH7F%v+VXnm?UkL& zx0vl?%Lc@rz`A*#ZD1G98e*eL->N$qSR-eqN9M0@Jf!^tcJk?qKqJKl>OEWU z*cG}5sAey!S{P_9-iJC%sy+Dq^2zYu7*nn`n$ANn^mNR@vZ2VKAnn#^$CUf!<-*4H zn;#-)7p*y}i!qLd`Jq84U;BWpfa@#pj=L4cH<$V=cPKwuui<4%e~%(D2#j};Y+w@$ z^7^IXZ0&inl*2#{cC$(nmg1o(J$kj!i5nu&G&vavWBxqLWoo^4HOPvSA4j|Ji1r{(EPj&l2ls6fMGy387XA}%%Q96rQ zu@ki3tjD54XKF?oj%T+og$;8%6){I{On>&@qkfd>NP&=31@u`j#hz5>W&k;$IP4`f zUK$Mlw$k%3%D93jfIY*g9TXsj3^w^;qTsykH!meJ{AWEr*>E1*eO^7UMQmM+ba|Bh zTEUNU-r-t9LPx8GZsy|wIarLmRVorQ^4idT-r#N~D0C*=j0q~*!ojpb0bCPmx$E^} zFbY>4`&t6Xjie_`&qh%WD|@V@{dZmQoBl?5N)?Ciitc;;lx@Cx85p2m3SzPdomw3H z>v;C*UEq}Rf4?B8gSWnl6Jp~gdtuY?E7!U%ef+$mP*2>I&0s?OR^X!Z{DGp)F3%;} zan(Yb3CKUuKc%*T7i@)U$a~Y(#&vW&bYA2z zj@yF0qlK0rnLHd`3UTr75yS}ai|BJ-3$xSIQL1ItP}Je8!?3xp$xCl@w)t)HDrA*u_ielp1Mjnw+_<%E9BoV^3 z&9(Dh?{9zdal9wy>aU-lA{lgXR(z-SfRt8~-t)ITm#%(<*bc0&@XB)wd-wAgjWlh{ z6d8ASa{#)$_!9I?)-e zb$DISy-DvQW%-DmTv~oH`(2{tfsoWwdYe(5b{Ev0Gl`0hJ@dY$lRa~IrcI>aJB*qL z%Qz$hNWjAHmR^0Asy74S5PO@+rop=-tYG*|T?D`5vfb;o(AVc>Zx6T0LV*s^qo;+& zaaKX*^X_F)B6@5YW5&ZqaF^Gj0Wp7$%2_XyT*!^Ae;=MtOdF$rAi3V1?Z5+mE;ji7 zb4#3wEidruYz}yJb`&{~bLu?T)n#V`cU35lSNkG0v`D91PwjE+l2@K}84F*eP>0-L_H)t}4AlXy)UG*jGa2&*7n*a;!dTx`7Xtx zth$&4d@B>PmRzpPLuR`3EPJsSzYgY`bnom+_6$j~$S486&89uC-c`Mn-!gIxWO5cj zVi^?nS)de|vv_hxe8IWN|KaH^!{TU~wqcw=f-LTu-~@LT37Qbx-Q8UlCj_?ycPF^J zJHd5v3GVI$@($PieBY0qJ&vB~?wXpev$|)_s!pxFwOI@qJ?xds2|3KTp0CZ#bZ0Wk zu66h5!vfeQJVU=i1tf)egDP3)K^r8Qv+(5InrV&m*fe(93xTn(7oH6&vWt|30Z5%hS>H)B64|VV_}Ma{MYa3lD=t$u5pHN1ot?L)wmX zLVC$&MIquLkcf{#s)XjIO7ZLAXnM`m@(&zGzgN|Q)#B*e5T`t5tSvj_M)P2Yy2IZvcCKfO4scY!NkfND@Nz=r5 zc=8gwgb|nHM0#Mlg|+CZXkqI~*(wyfFCW*DGLK>}{H>>%K*GMwXNNJoV z|FX}0904yD2>P71jO&d0#UcGj;XL!c%JN$274sJ1EEU8ndKKJr=*&*wjjQ<;o(=2h z;|~3zWrHQ(sn{LS+TuvO-BS1*efi2VNn_8(c}4365n`OUBTV4iq_QH@EBv|U;`vV% zp6fn1+c0>mlf^GTS`r8E5ymPz=xhiKyAl9K)gjFCfD@+XUGHdyy%7&c6liCJ)>=5TDub(ZvaFDHS};IAKo8b*$8C(#&$WIBUPML&nfVs@dAuOMkBTFbR zdiRjeE*X%BkUJ_fTt3dCKW>0++T}me9bKf>(`!3y0!AM@wsb;Z$Y&GeC7=}wd!cvpZhH^G_!E+siszq7m9e00shRdxnHSq9o{Og-2Ctp;d z9mzpHsNGEv+h<^Uy5TXy$72Z0T<*L(7itj=-u2K7qM!a2Q5rag#l%MJ)aWWvQk6dBW`D9$XMi$@2zs9QZr zK`lo;IH3$ezGc`f+4qn^mJ&Jkk8w$u8_q>r2!dUEvQvf51Y0=_(UHf9_02Xm9oomS zqGWNDr=Op^yNh@)I6+zI=?s`hgejc5j#)+e_uJdZJ7niSfqb34Cl8QKHp3hSZ{0am}cIQUAIPhxfK61b6oI6 z4O+t-(<$$#oMH3=~Vf+9eQ70`KLLH zU9_h(HLxG*wqUyZ#b$goY)y3c<(J()rm-qGVEl$wqC_G#!v%J@UNM(naz2XJSLxv@r6~0uGtn2oBs9d%`P?-(l0p97v37|{cYdmym`+i z(dV%v)L^bGaJ)E+E};H?UobtW{G{Fz<@R_Ey=EbuQheG|A{p{P#u+VCygW%e^%*2plH1s(cSD|0mhgB7}le4NV z4X`R2h1@W5LHGmMaha80TyeK>nep-*_^ZYTg%-SURg@u$Conts$F4o6s(Ne;$^s;l z@(74{aR-EfF>X^3JAl z5JO7Xv%8gakuF9tHV@b!7Yeu}Ek>V|jf%NHO^%N6FD%Uj7Wy-ADN-m9O2#AkN@B&` za^=wRs$5Osc$eH`a(Wpsfi%lxb^Bi!zGK8DV01Wk#XOs%z#!G~k4K;$Yv@u~!X ze53`}pc-kp8`;~CRvNY2(jF;F z!^I|tCZwrqq|<7`*H=V6MQqdmaNZkmf-LJ~RbyTI5e{~g>CHWMcSvla@KWIv|AoC! zR2I5<^u%bi**bFD&K=I76CUAW=6vMGkWr_K7@bA;1XS7PSuX~?dFv&7gutfttCU+= zz@#jhg4_8h_Q7552jU20Wa zLqWE2+&j1sf=RMpN~#wt z5f*x2h89#a#?FE$A@lGo9|L7qVb z?FYc3q}28her^sfN{IV^ilhQ36$<*7s2tIc~-mxLS%^)U;ff5?c$5>?JkMyXwL<=oRqzf~olcC7Nkn ztc-ArZuhTBdR58#!F*_1kQbEZTx-w@UdyBw2M~?lCOai$CE+*K)iA=Zku-MLL#G7} zjDE+yArna=cgoxFv`2q!MXWJz)g$*zEdn67BZR_h)0Ef-tUrl^)6vU$6W|*I z!+AHA8y2cB=G_zivgF?{@95@MkiQ12Z!fayU&({xGp?z_Kf`a6&SNV-B0Fz``Tq9V zWi5Q3=UQ4bhkij0IK|%k2J#=;hdT|o+m;r(ER@iba<4v6dQ3`teT9}^WM3;;P{n+F)(f1$KVynOh;P9g9vg$_tg>y9jp;3;2bwpz+ZnfI(i{)k8uqo zuvEr67CrEP<_=9}c@$v+7p_TMBh0ocxMv@!VipzChS5_EEaM=yoFUC31BZ)I88Vx8 z^k1z0hXrJXo*+oZr3}*=)H=Hu#Z5B+e&UOTY^aMwZh9h}Np^JYY61TGiMri(^H+pC)1!B3_r53Vkoy)745HjN+{uGl&}w9ii%NDFaHwDVOM8t@36`Lk9LuU8rzunHuTf7S8y~P4+gb%O?~|Bteg-*9 zzCtyLCpL38Sv)#ql42j7qMba9j!K--DiBOZdR`9(0TKaz%aL2@8X-h~9+n7?DjIsN zhbb=}iR%RyjTLt3Z%i-Z%)*=*%KPa(P_nDw-W7+@pBKX%KQagaZOORhA-w7yOhH(T zPu0!X8!x!IT}}Y3oc$$VovXysDL2W8|Di}dU-*BXG=GX)wp+1n`cIepjkq)Uo`H4Q zB(})KOdaxMe`t9rk_#E8jQFtw^|fNc;tHB;n92(aEYsf(2ve$hyL zcao0Z+=zh;zW&pFA$?o6fH^KZd5H8Ty&l5`?A& zFFx+wjvq!#HGm3+-5V44>7u2bT#+FJWv%4WPP(FHgMmY+6uCKFQVcU4cD_8tFhUta zmEfJfMO*n^xE9<2M(8OFBWh?=>i&IFg*aZ)48OF!e|Qk}K8DNOxBcL$>*OhJu7HXJ zm^t7eB6v4z6dnqOQ^X+wOy&mlQigocV7b}KJ@+^PU4a&KV1?2iBPeQO`(MH2Ih|3* znoI;Ol`aeH9kDJ;&T5KFJA$Y)i)$bz<26EaG8FbOySH)+@1E;*%J@kh##CvBR3rs~ zI1YG3pJVut;Uz?&xCEz)=&H!DV{NRdWE@&6VF31+G;a2+z#G4Mu2oC9O29OvKzU(8 zm@+Yo?w;MtrwZMLA+=W;B)QX~T=FR`EaKVsjH5*np;pLqf})V@RN8*a>!9Sea@V&K zqHc@=CXF?{94~;!LUO=2VkxD^P_YM=2vu$$YK8)#0nbc|&_(aD*Q`i_-QH}L~bLl3z=p2Mx+mSY#lWfJ0 zI~5iEUFq15G3xio-V@ntALP(YK8uFGx_69b#-9>+b?9m3Jun}XQ4T9Na(JT&G$;A1 zvgn85mp^ZM>{1`LdE3YxWw$ab1O?BABeM|6i)%Gzoqvj8HOMx(&FvI0g~Qd#m7P?j zKq!zW=x<2%8AD<2@$ZkAv7yJXP8?={2JBa97!|=ox({$IvYayqLk+08MKgAfIAs&9 zNb}{jX1@6i5a3!=@+ARoNcGJj3&Z%DtPBPC#Og?WdO*`_OlEZL=`A$-Ur7dgDUxYo z&HiGE=#9h^tQ!UNvJx&j=KEgR_&-YB+Ba7z^--uwiD?rw0lSnb8 z0a05MCUc|+UF=2?_}m_U7ng3kP`!(S4^6s6ejn#{GFqQ#SP!xr3~G^D-;_Q58OJlP z=$@pE;P+HnVY99LU27!dbf-VdXpL6JRRtXyo>IRwvkf6BKXz0yTaxfohn_BNz6q{* zw@}?;%@|@`>QbHfu>nME?N|*+cVNV#v_A`!KIZ%5X}cnbg&Skco~6{ZRE0 zY~9p3oY^~!Jq6O}eRe%Kt+aOc+o_1%CaP{=s*iZ7DC2Y3?V6;VMk)Fns(=hf;>%<>G3IUZa(;;8qLJ%!0#RSvYKc( z=ZvZ~|HG{=P^&e?RT`3bB4qG9I_VA??Re|Cs7^T_T8}h4UU5bxy*J)nQoCnBSlurp z(Ax19(sJBhR!{GA*Tvqg)>!v@<^tNKEszN-utwxzy}f$zk#>pKJ=&|Tm17qZ*e@>q zMr(-C2hTPK_Jr#k8r^u?#vh{7OX3veL(uESHF=aXb^(1MtzxxX@9Uu zTz&E1KQrapbU%;LAn_)%Zd(h#M}lgHaVt@ED-X%bXoi%ay@q|$@MCjkp45x4aVV49 z;02h#^c1MQg?<4gV0q+>!u26&cbACQd2)TjRBYY3KlkPgE14h1BPrUQ(6e?6?QRJ@ zSfG-!iUeGF%CnX{f2t>7)Ot5fBOl(jSiRddMLADKLM1a#HrWbVV`jY>y0RlZ<32yl zA-kFV65Cb3Uf{&X$)=rB#j3QFFJ&oFqx877*kw0(}S3z2sGn0Hs+Mb^~1N>1V{^(-oI9@!b}@3&P(D7+#jdNO&y~tS8nl@x3m#BqBWu z{sbnFL$}1J+&KYxG=lloZ1v$QH@9Qi>)XI^l|x8T4~hQ>SrnACHDm4jHu`P8UnXvD zA%3x9#JG$~K52aP`o#qeGFlJufM!)xkR|5%lv1C?C&%s4;bX272iSgdl%b|ND*noI zcAzoQ<%u*RO6z(r+~xR8A@*$|wzJwf-ktg|K;UKNsIS@?6ji4o zbEV#O;%ZbiaEueDmE2Totv~z2n-Qw84j7m(itE2?f~cy(kAJqwropLIs|Htlpabn_ z)^3dosZs5Wu|d;mL*-NE4sopztFYp57cv?DSi!>`Sx&%>(+Ax|PQV%M@IBZ1hnBr) zQe2gofZ_KD30jYiffM7Df%T_uxS{3tNI4k(I@E6M&3jio;qXhg@gJ8q#h#o7Aa@Iq zxI>EqkFH0?f${Z^i|?bh$ zn9p5)D04n)w1?*H6&mmLPTBLC54UwYP@gL&3A6RjWSVo^A1#?vEo^Pi;m2g7`7CGm zYL0ZCUZ6oIb0Wq4DZ;B&XAV6I^Pi?s^O=7pi=5l$=Fbi#=lj(%IiQtB^QF#rt3+qJ z;qcS-LPrSAz8M!^*2g?>kxldw^Fhs-8Le4T?R`YoSm8tOJq2(c-3Gkx{zT#rEt(j1 zz_zYs7@zEZ#X-*3@eI`YHx3SfYIKIf*Cez|hw5NVcud^4v65h>$o*@hK=lzE^hR2n zsm=_jZM_}8Zxi`93g&V5(}m$%<}|6Uz}*s}2iI-xwe3U<)A|UNl&uhu+I}vQ_c*rs zM(c55Ji0owW+tp`|8wT){IN1~k7Lcw=ECwoI7%Qm)p79DT;TTS%B2_{{}g%RU`L0p z1B8UOu};^Ck6dbP^bopSJ@x zYjN_PUZT$1tXG}t1yJ6kJwK;C^mHF`sL3xucj9_ln;u4#&a7I_Uw9jd8++Kjpr>=H zeoXzOlD5`vM(S8EN~c=f-)$Yy5$ZO(I?2rXhR9_6e@;R5ic^BIJfz1mKdhhB$#(0) zOp%N&r(F5yZV+%28Vhxe{@BM*YEEsuNr`OU==-Hll7tyI-@hz38m4wI+@+6Rym(d8 zSjwfRVYT+9$Jtq?uF|?k=}i(FW-HbOezA@zrky%XCRx-c<@7kpMEIhjaEoj4DVXIG zv*wfvs}_eA5xX3o^XF5c#$~+d&;N9;-Yqlo=%z}wfb8RR9hX2gBfOue z?GHn6Mv$sJ((_f7WaM!*0xuz>%Ui~ekSEc{FV>bkk>%w#HM`h2<&V&n>2nRIW&~Ew zfVAr>PJBs~-_5^mM+7%{Hw{lQ?FG0>p+6G>I;AJ}y&9YC(V1Epk&nE_mL$WZ2JFT>{Q#@OZqQ0!d?8e!2Ft{7(^KlS0tqdT}m8H3wohwEHM_d zPDFdbRJP-3GVV{H82mBv!Jh{{z-g;S2h*uS4fG?K%#q}R)jhN^Bg0rswu${5zZpzQ ztW~iRufwO|J{S(Iq)!~mUKp;kux{7xWZyuobGjg!qf0g#0W2Yi_E+v-k`ZdXB~@St z)ne05j?cDSbGl}#dX?YJ8-m#B@-ItsDXogJO_V8H0#O{EzjI|s46aj|u#=x`#Q?m}*`HLK#{atFQ zuHrx#aiwRUBU0!J<=PWYf!aH1sOIb!^iw?pDWu$J z=E#}f|6%DC?`rj+BR}Cs+LoqVS$|nE-i&Vp%0%UH-BfgZ?%ddl>c%SvBgZY>w0l$X+Od-)ble5O`l2@ zVY6n4S`L2m$8VA(=lZi8AsZd^G2s~85l?Meouh92@goCks9k;(c}e)_c}acTUY7JG2vY<&?s-W- zU^I`H=N}TEeV7KxZk))=H+f0BLA0Gw=uW}>)iK<^`e7wB1+6R@?MZ$2mC*AKYu*g; zTY0iz&hc`}D1MA&p870M)x<=EKf!uQsZ<6+dPV@@V#CW(=gLv%RMe8Aw9hYDyK6;? z*BEJnjw208lrfCcm1~J_d$aLv#H}3{^`?mgJIM&L@OHfp> zmtBa^3ZZl88eNK)CGscJP0!EB3q^s*d4(~#1jdrTHow#DL2i4EQZHg3Yapcv15Nr3dAq9Km1J(6&1elz(WL(n>N4d)HS+_NiHpOCWSE zpd-rq&DR`IP%2%sr<)E7+KFeF(hivWsoHX zO`$f4l)~tVF%&!I!#CZ}v(F*9Q)U&RD))h~z<#mhCh_ppRqANcgk|9#W~|{yN=$L0 z)oQrDye8RVDABC5Uu}B35(7nlP{#LUy!dcslA{*D2Ty63Y;F_=hfV2#ql06T(_+~! zLzv1^1t6!#g8_~mGeDL6{NLC$U4f=H7)46h{aG5^DAs)<;B44B zT|%CWKV6!)k;>nxue8J9f!Z|tj4r{M?7h>+@;iZ#0^S4XGsD==WOD005rCnL%OyjS z`CIidAS+{yR%?B~u7pwqDS{q1X2~FfaAv)yYMhsAb)4i3{1=Km1`_#>b4ugdu^LJn zl2}LdF@zyUm?u#$^VInU41Zhd1-GhiWt4gXcSV`~<|;PfX4FO%WLGQd(9}6} zT=Qw3-g8b|i!w?uGkcS5h`i4CQMqHQ@J{LVuY{APBDx3HZ=R0~1typwOaTHH8qw8u zOhkSfJ0wPBT6hZaqU&bM_q^x{$>kneq@EK9jeS(Bht?6nPLV-qvS%WzLg*iOGxT~Uf$7od@ z3ox8WG?TwXF=YafD1tU?mPn8@n{Po<&8A#jvYvCl*ImL~>y~S{zg^g*nC?xxMA7AD zMAZ58X#EUUhJP!B!=-la@D7aQeAEAkn11@pZe*x?o%<}iw|SFPtoti1?%t23U)3Y1 zO!}tODx|b{C7~{}_aE$K@f6UQ-a%s|&OBzqf=xI($NJuKVu&j?6d&dC0B1H<)i+t~B{?}*i7iFQ-F#WZzUH6K56DZZQkPKtr9+Gk|N zw3Fo6@@t)qJ;@a|9ukSNJSI|-mv-0`|BIKVA&$pvr-J((QmLgOX#)F#7mdCH6!WVq z$vd2mjJ<0A$oH4t<5p~)#-TEImR4Jz7beVY51PngWN1|jKij^M;poXQ!)^1(MLDpR zqc8g|=G~-VE6ud5bgK(XC^K=zSJ^)%;dqLCg+UrKB}>)NP%k%!QE0fHfcL}ce$dqB zO^_fKojW-wH`IaSU%YDgH-GORZ7Yo+~aj{HIp*ns}3^PX{00*&ZV>jyAg} z`Ft#n%F$3W%Esf5F|^J^KiYK7Vy*mGZ+E5QGxQxV%1~)`w$?j}L-JpAH|lC3Vjf(} zScuJ2@5;w=6=Uh~fHz6aln>nG0vM|DoRrV$9C-5882D`)pRWQdoHJR@t&YzgJ1Qa1 z8~s}9;6ClPhK*RVg#Fs{j5W|gik%FT<1z)7tfjCq8Zk_8c>t%u`2ZA*cSqpa(RFC# zH_v1KRpZZCrNi6&S~7m09i=Zj!F}GeZkohBs2_fh+0ZM-5Khy!eXP$RaPVIKxME+z zVngKF(L=Q57cySf-h=zEq192}qT>`7vW)vwB3XI52M^GGt)-(xEg9ZqY~jb2iO zzslYfmw(Zvfmm~48D-yo$%NBQjq@AU{$$b5227xm?DkB-c)U?eSJAA+CRx z7)@HyuO%=UC)g6yvOc(-m5ri)OJiRba{bdHi3e(>X3@ZxMb^eI6Z`f3r>9?xgb7pT z9%DMCnab*?hcpPe+)J=RqrDrwE+Tsn#837G$h)n-i;QpXWMcW=_qV2)$ebgq287lP z!t5Sw@;+|QSuKJvVP5afWy10J#pbNPLAkM@wq$1emaH`8PXlYKfhMrQ4p4QBJ{TGs z>eE#9^TC%K^|yvs=7cA+oyz)d!|YDO@0R_jDs>~~j zUeZ;g$^O{7VZaizB%`xG%-O3 z=UqA%Ikx+jeC;dYcLj<3C;ZNhYs3#qiOgOw5o=UNl=CPv^ByxAK1Hq5$37`fWb+F( zVpi%2iDC8)UnXtT3f`qlme5}?%6Z0^N{g`RI0SZ=IMN-nvHJwfOGI03ACWi0?8wkG zaFux-=gC+n?APo+G1u~Fuj|{_y;igykA+rY5WIBd%<`#oWJLPlb0(w~+m z&eo^5+8))GmnYUMA736S=RKc_3w&q2bZH)J7wxWIoSp$_eZ0Mj(JzqV^L@VRT+^Iq zE_fbq)eo~$&KFK}F@1W#P_Mx*-rt~=b=4`xEA*1v{W&*pBK=yXrx@xhl#gi z1v#cMYl#R3GUE8JMliaDXB-lo<5i*lP-$!}(Dd=NNY}T;I^X1hKBic%>Z3Wobzb@D z{v0ux6H_VZ$bPddqv9&=GF6UGf5i2$Va21eR^u%9`DR&ukMyyneU*`x#Qo*p&2!e; z%jwqo%N52y-|J=nD5)3Ar&} zb&J)rrV1T(AK?n@v=Q0r)0h)A4PDx^h0}p+;g{!5-@o@o|L#Zp+Mg%Z{r<)HJ;~r7 z|J!jpW4yHd*{KI6yJ_Kvy7-~5<^GMx3_oI^n=f4*W8D>~@NOLa$FO}9+I;yu@)xIK zWR17OPn$d`Wmqs0+l6Rg`ONobUD)@|`om4qg;T|z)0bM_$_m@k7wswSn5z>FmaG$^ z`?0fs*CCBNv^uE=UW-dhTuEd}niEX4wxux*<0WPmwiiVOy0XPB@DX|rWg|z5)hbu2 zy@a}JFFVTvY-hIzP#WsJ6I}%E7By`MJHFsqwdw%Eh|eYN(c1DM>{CzbpufG^C}xI~ zu`P#eQ9gJ@RPWso3EQn|a@R{%!tW$uVs@3tOdBhnbnp%=3 z-GfZ@M>Xk5vl?Od!-|x_Wi<**X11!vvU1ax;m4I%`X35yW=XQ}qLzEX#z~6BAvNp6 z0+IdhOLe*4*|JHkuz~Oe5U^#^gEGZYDAcfW-IV-Dk^1=Ns}T2}U=wZ>>z`1X&&}Yw z|6LPMDagHKhqp&%nU+ByvqyP;KO|%f_RIX=ZixJVku)^7f9JC%qvUT5R45c5zE+v1OQ3J*<@jM@II0b`a)V2a_4M znlJkc;fx8U>k=~63}{dKPT8-0X>FO5r%AncU}9^itg669@EbyoL0>Ji=q5hOuD^?N zrJ(caX>J<&hHLAAJ?=(o^TW+=JVp?t`7q_nlh|2*8}&gb^Xb34+A$X@*G+&z-NPt_ z|94wq4Xw3mrq!yF3jcSB#PXUZvMp_UMlqtSH*X?AT2<~dnG$^Nzr?y5K4A^28X}RW ze!W2L<)FPjtsZe@@_^riP>+d*i3eCY68NGk-d8!f4R5k;ZOs4H4W45QV~gw6ZH{VL zoPasXUzuv}8lX%aL438W4Gozec3$E$9K}s`q~4B~1wf%3BYuK+pk!~Go`~D!!idJ& z`Wq^??L9IQsmQOq%P&>IT;b4Bp}NiDq^_Mj?A=>$x-$4W%Ucgz`R8{Hb0^??7a$9% zF;mg?N?4``U68G-0`c1;n3EJAi+*R8z0ie-%JQ4xG+4JHfdc$;i_<*xhQ!W>+mXA# zLwxZ^2aiL<3vobNBTtTB<@GWwTF10xiQQ1G@*0aDePM}AKDrW-@4f!xJ@qViWEo;~ z<`Cd{{tUKBORDQFQGctvSxM3a!2tiiTCa-B^xv zlr4kxuIkM!ULJJarIp9b>mOv8UQcXSFNlc(>+O*Z8)!cqQOdaR2vx~^p_0S`r|YIL z)ug%07gH7o=yKa5zBs&g$lnEN{Im4fCvfXoT8><7aTs*rk>*-O`+)G7O1GPyK1|Kw zRwxlvUKVf?ThJEl4v#%!$MOvDK`hSjba;wkE%#i15-sRIE+7Fs-1;?Hs{Vxf&tIqp zrk@t1>Z*~nmRB|4E%u0Kc9VRgQH<)!(ax0MEe={|MLZ9vF&gH&7B${0`C`$~KO?(x zkeiANSZCL-W^nntb#U1F9PFi2h_}|^tvpr=e8a83xxoQnC?acH8(5a(KhOJ!%18-M zoX-OM8IV^MWI3&#tS8*fSGwh+Ygin574L%Oh*@pmMINhK6OYZ%^TBYhLo- zH2^9RKh-tIU46a&HHv##pyrexyWmYwC>5ZJXCs}vPd{qenH^I-G?A7M0rfGYTkNR< zTV{aEg39--5;7K*j@otK+=eVzmzPDX^#TkvL86GhFjCNud}^bPeKAfJQb|D`d!eTF zzhmj${j(1RMaF>y_IxH2Pid-&ys{CqqW|eRqqMeKI-i#J!v~P@floZB`p(V%srJL| znn^9i21dx9?>Ne*y5;uX#8Jf4n$=yJTHo-@`(Lkj^ZP{$B`+0U?K;QePz>OOweu{} zKxB?PZC{xzdB_7;ae9bp$1w@q11av3XlPSmO3qc_f22n5e#(8d8G*dGe*{9DsYi@315OdT7sjQ(f&&Nox^0JJJXUka_2kI;s>g|j(~n({g3&i^eEzAZ%N}2R zuFD=bbb23tN<4q>trp^gf(R$tWeSWK)1^FGdHkCrX}zih`Lx#B~14JtOJw!pUSzW_-L|mMjOhg;Kqr4;( zD%$rm$pVS}!KR6GBV`Z_M_F|8lzIN`-gtD)3Oisogge+o^s6GqMYl&__lY^7M1cj8kN`UI0^Oc}_4o;cDK7);ixQwu4t zq7mcG^txt@C6Cl&vcm((^RZ>UDb&T)kS#iA54dE-c6A68h`|1|RPCK2r4(=ZLkmTP zYVp$;K`wtofzcnIbyWNJa!NP_fs}*XAUrwiS-H52i%@(9IJ~Nt31o@J83mU#oShjU zV@i;D-xU{HhnK39Q>G_Ind&EYv@&R*T{c-+Q#7Z77JNsQ&3RM(6;m@uuORVPF%jyS zq{x4Em_WXyTH>2p60oj}Suh3f0k~Ly--OhxLQA@~L0DNqKw`WjFqLlfHYd)Gzi;;g zvEYV=IG(jOla?!|&RE*lzQL7=P?a0w(!8|r++T;^cxBt-yBjP_O_3!>T*(On^l@|V z9MKz~Hp=uk0B_wwA*vCeMFW6rY^xRg$@WWu5=k{f=DmpET7yP0t9e~6n|Ya>=i z(lXU5dJ%l(Y#4{q=2TGes&EUi87M3%@AW$cS#0nX+XCK^<1am8FQi{-xYZxM$e%)0 z&ZclgfLBJe2)anPTch(3J{o|qjizvk8vc_AiDLJteH*s8p+#xL3N?I&o=ycUcu$Aj zC!GctI>GddP;Q3h*WlFK+yh4iMFq{T67a4~--~>aw59Zg40SUND9mZ=i*vIZlEc5x zaK7t0z#i{^C=3rIGGHK*nB-^KKZ zP;Pc^HfnM>5`!7qL>tNL#WGa?-^BoM5m_wpN1xC#Xlugn$*`D;i%N*1vErhsj1pyf z@*yu& zDcK9@&<<^)y$oA?4eFIMmYs@=`aMagp}XO-5n4L@?ojLCpT~hIc^m_W*4y!r8HIEO z$?YVe=+EB2346RHu}zH)=@EaGUBDd2Nsw$}yYVU#6kO#+qh}6^JMj3kryE0F zIHpi2C}A=z-`;klSTv%L$-b~ncjSz5cG_gc9=}IoX71ISHU>@S>F7=zp^Ads2r+0R+Rp1MBNSQ|3 z74hiy* zl@<2?CYH$*)Xt}k2^j{{J&-!fld`Lg-@I2zXj03nc zt&yWR+1ylUG1<)f-$g@4QKfkixuWKqHRVlffGFa4jFKg;<=?nj@>^g;u`z~lVvWHo}IC`Zc)b$t_ZmDqbWwFZ^|Y$QXjs-M@OuoblQAUEbQ)FqxrD zQ0|%DMeshMi?94eA96GhE8`T!sjPrglmn0O_!&dVG4 zRu&Vow$e8E>aIV)$i&3RYtFB!VOU)4vKc7L<5+;T1VW%ZUbo~*{;9*IW5uB3&dO~M>Dr=xdx-KZC-kr= zn_c|sr6=sB=+1x3GQ(%BhSTbi$VZMJ(3*VzY4x3`4sF8wT|*{w2~LT!{LoKqZtJ|e zs>sl*v{||;9tta@TO@xoAp)5gLPm9_FD02>K-eJh?(4#5w3L?Bp5aJzXoi5>_&^YW zj69{7R_>Oy2@m0kAiT)ep=>Zx9ZL5_PB=hQCf8i=bw=6_VbT)_;8S{K7%NKl-Q<~M zAgh8L8xky!WQ6w+NcI1eAD|#P36+{B)RQexZ>C}%W7Er3@>x4|2%FoMin|Pz5{Kf| zyW*nW)-;hJJZa8Nbare;UX8V&_V3e&o@m!g)O;?ZHg(ob0QCCL|Yb;6q*T>$)sOLRJs#DAImDJ;=TwVVvNp z61l4|(&ecQtnH3M?`1pba7=_!wUAPpRe?AWAh@s8W_Z*~LSV1093bBM1a=IhWdZO< z9#CKZhvXWYkB+#bD_NI+PTnCg?F-U4GGiu$o_dq1kq*acl5c3V9JmSRsvDcIPom~| zQ{%2{-0jy&wENa=BiH~I<7k-Tad|!?>}JigaD4ojaY*Y@fH2;ls}jDa2YuyDS9;#j z5-cH`+XuK}0BC!GAQ0TUA$o)TVV}0D;?oQJ)}Lv`AK}uRmGTq z^pkleG>gIztK4|3)a)3tQ9O-o>L z*o%W>a-unm(5<)kS5H(FI^-mW2@on;F0)9jw~Mh61gbJg0TM1eMjZyI8@-IH=1{T9 zO|Vl(LUiq47AMXcjZ~4mS5EFZ5$b2iJ8sSBXjcVVOVrAo*gDUu-#-MP#s*`6D@o|4 zktvcpZ1cbko>!1w(yz#7g;rY7Q3d82WjvjuqShcKQp;j;;s(q>SP_8@!3WVSNV$b+ zsh>Q4)xa6=!3(Xm1%BEytg1y)KAULwFX}CE@1m<$R>UdF_1NqN;)UA22STDv(%LZv zEa<)zr4X=bHajC(XWyp~{Ac=2%8CvwKe+`E(0U*Kd->#vi0Dodr_1%ed{l-laa?TU zBF+;r_>?cuhbxxI;t)}g6kx(P{Xf>;Ix5cQ`4a_#yIYXKEkJOG;O@cQ-QC^Y13`lY z8{93pOMo!AI}Gl6$@~89ckkKX?%Dgtp3~<{Jw07jE%WsBr@E@!BV1L<&@61X6>bQF z0tpdO&8O1e9{OKf)jt|-IlC#2!vFdD3K8)XrEd8d_3v66o?no)I)9oV*WMy-yA^Ne zn5A%6pP&gA<_>yfN`O1wUjt25$Qj;IoG8uhp|(ulkH zwR^)&8SkDA0EyPpQRl`zn|7%yO{;`q! z{v2L3{JLrn|A} zPC0EG5U~*Sgx@EM84i>a8zF1jmhGX})BqH!Xah1{m@we4>7_Pcx8uJyCxguiEa-&z zA(g zz^GS5UP=D$BOGlAPc6@%=HTYG=!d@r`BT5oF++dn7=aq+(53f=HA%d(7QS67abWw# zR5*pMoUh1|V61NoZrUlPqedmLd439-O<;S**YbY1#(^!ce1C>-Arm4JP)Hw+Wv_ZZ zAWfP@f38dFg*P~o7@ytJq?qCr-_go@R6>D~BrUVpxG&tQ{=972ZcS^g86q-|Naej{ z^6}*IKKtq$*^MJ~gGXf**jZlfh@hps{JkV;)}_nZCA8?<#tD(;a!LU#N?7G&`GL#e z)=cMKrK%VjM}ECYRXoSJ(%m%Kd1RB(k*G%ghIZo|n`5K)fPo?Gdw}b2Aup7$6OW>! za2mmP6I=RCu*-MARSisod*yeNIQ}PSf~nUzI2>%#IR2q``rQBb8@^g*FS0cty!`wnrXdq2jIu zW^&#guNzi;U=n}mUAR;cXdY>vU$p5-;)~=^*8BWL$F}3K;JFn-h*&3)>k^*2?|bww z%_};pn)jF=9$Xn@AC&TXr4z4XQHN z>e$X~k$2wBa22Y;V#(+IaQ1k&kD7PCjxu|3YTZDK?j7f%Ffdvas<~ul?@ME)zjLXo zw+_!=Yd0P3@R8T#ntFWw_9xMYsdpZ02L@TN=2TE4tol$x=^8bX>pSTA77SGxWOZm~ z1_oA6#vIZNA7!cs>_w(p`E5o#BGgHgR5hm+x3>kO%_=7TxjN~rB3f;1L<7x}0IPnv zUN_Yd5g$96vA}2wsGi!HjSwHR)a<>hl6hCykp^ZK8g8X&P52p#N3?`cMi++wbeu}R#WR~+hofE$?JujB*CTB7+NZZ13>&Z ztafAectaQ553%7rMpsn#Fl_sAIQ8Q?GM$~U>U}$!6cwjQ4I_fa5e!#>x+t{dvOk0D zwtZbqR=GWv-=iJ2)Wp*98E%&>vlna%oy7R&0{eCjtPNK=*I_v)LkmD0#&mawwwL|t zHDOJSImA#sa(9Lkl{Z{DJDng zX%ulFbj`_E@8MJWzEgC=qv<^_7mu9XP2Mr4H6rp8rARK1i#;;^%4`7W?9`?~vdbSO zsknOmA8C@gf2AdXRvl{KxH8`(2HN>17uTI?o~q90`#_cv?griAzv?`0Vmd$GD5SHO zUw$+0T$`g-?8smY@;LOAuBeup!hMb@tlaFOYk78pn~M~ExcM4TPX3&bD`jm^NhMn# z^PW~ALqqfeM9wnZ;m88c9ER|p)Ia>WF=pB;Q8vm8Z{#ty`B0NaBfiFV?rvw*AAg73 zVX>1Y7+)h(9Zn>03I38)cYOo!BRc;dqoeW2-OJEPX!nMZvuO<=kC|A(IYl??;L+6} zM%2h8ue1G79m5p?&xgG=q1WLR`Cr95jrp*F>jLxDH%_(Tz9Tr1A@g09I z!ujM9pd7%SHd73KM4MF+)xS}}UH&*pW@kqlPuy{f?iG7EHos04(pPTG`OH5s|9^*v z;@sV134?Eq;+!PuJyK&+uiXb6306SR@iKm?OZc!>xJ^*AEdX_f;Z>YKQ8`obdtXE> z!UipT*!db9OQ(exNr#b4{cI0Wf%`gb&4HYSq(R-C?*&@b1GmVY%eH4OB< zi{eS}tegV*i}}=`-Ik`3iJgHQZK!cVV=Rl&as`05FJ{I*yCGca+!& zqN;1E?n=d>&5XNk^;8!hUFyPDp6sYDfW@XsP{^NK9@SRi*P-%K&o||q&%a_EOMH)w z$=qI4$>xXBAhB&X)|f)Xsjs6~Alc;AgVWJEV+yRDrf?&hPkL=g3+wz z0rA*juhFc#J*WcMova#DWwh7o!xRs}#E&#PsjqPF%cm|xulHt%o`r&x5kbmFK#KPm z6^fkI8~M~m?nzAim~DojPS<_-PQ*^O#YXAn8|C4;dz)FMgN#Hcf#*&I<%7b1b*Ck| z)gMPT9p@#QT!E4brfHNV-cCMaKhli4maL%)U^<_^F0o^K)9fsQmx@+zB(DYY;;@>I zGZX*mGz!!4S6)_ZZ)(%gk04KZ+EOE?V2TI z2kI53wMd`5inW`EoJQL|g4n>m>{`EIy4Dj~-eWEV(sh9_!FlONB+&|oPL&Q>yK?cT zupS~U$tG=qp*!{X-3Bb{Fi*!h6hi8xyhh%ib|)JIC%q;A_fsbLu`!*D$4<`Ue(Ty3yOQ$U_gbUGSkk6=Lr(C{L@=WG!i8e=ET9UV$CWCiyMW8nsOTwt7xKMX(x{$`O~bO^JV*&MH}}R8WnJaO z!W7_6wZ*K`I$Fc{duVXBQ2BG%Aj-RsXLjxfHlJ({8m4`dF$WNmZABXR^im%J8FNd2 zc`?zXIa=KXfm?a`%R|x~*O=?-TWrnh#|bUI!C#aHk@Y!vE8Bht_XTs3)|*Yi2AcG% zz57;+HWmKzwIHJR$PeZFzKfrXknof4P2&SmAG2V3un8MK_p1y`YpuO%k)E}$Sb@E| z^T6|kXq&`(7P`KCp4X7Tp_H-Zz_mY+%Z##D#H_{Cl@TjbhpO=`Uv`i#)+}fnjX&M< z9P;;`nxnewtum1B9I=32w`LbWsQx_5c5-?9PXu}Qzksqv??1FJCr44;4Ic|w=GY#8 z`es{U%N00E4h(|KZl zESUv`;``d95Bl1VY84cP;jrmua0w!{#6y=&gentUnQBShk3#fCr?D+e9jP2?bmxDU zs6$(}R%_g<)udzQJq6Ay&TQ*i!MDC#iZ3Z^PgO7{&U1}rQ+Sy>^A25{T$xM8&US?p zbGE4PsL@21TGk*b@_93L1>g618&sS;>be2Yv??eC!+-nLVLuTNVB3gqMjX?31Jx*o z3lb!4UzlZk03+x!n+mVO(wcRs3!Rmc?dHE}dS}Q^3?Z~>Vuxz+D|c`JehdrFoz^9s zt`0>wVH%~}lMqzRF&c{ecp2gZn6{%lu8RpI1(n2mP$a$^)_)*!og05RxNT0{bwyT% zl+sNHsKO3ZQi`-{bNHYLNEsimX(7gG;`<_eww?CYxt}jucG0{;8tfoY)la+N(ld51 z(VgFEVzs~dnO8!j-%nsEWVV_dRu6+4YF)YUJBq+y{14tSo+C9g=bx_8vel^VIHWRM z-^t#o2odeFFY@*R80HdFAr(Jxn;)w&iwVH8^O#Wd@nJn}Yw~`|GbVE$s0lynSIs*SAA_ zFF}hNr|$Osy-`V>_L$+X(Tr_(zl&4LXZuexrR*XBtBS={OtjIGR5EN!8I?|}LVbd| zvnBUAM&ZUK1XKGRg12`y5)Wt|-}mhToQ_ilZpP1!kVe3Vn7On#T7Dd{I&)~w{TA7) z;gHcONFe$1L>DbeS_T)nIy}H*8g6bR-PO6OU!!o9vu<3W--Rp9-t= z={1B7N%2$?GPbtw!r>HDVbJ)xzyKNS{pF7n=xF(q~Q+|Q>Db;o1LAj2-@U>S&8dqKO#9?CcG((y&I?J3t@9J?u zIj)^?%nU8PZRzD}2GE(V3R4eO5c-?eyae5NEWLa@eOv=GL2H+E$3qBQ&tn8)XZPK} zoTYb(Vy52C*}DG|cxwIiLdR#cvh2p-`)WFS_ssmH{_e-T_prg)W}$Aq>^ss|zqgCq z?|I!XV4)o_qtK}Hse_QgSy+OLw3*M-!;@RNzcm7BBgt~o8OE!mPMzy2>9RM~!$pN_ zr{>G!en6*7m5$6)j$MFG!ccPh^X(NW5Sk`F<)-x5vn$?ULOy;9{uCO-pew6H13dwW zD*O60jH6%mAv~xxv$%%U^XX%s$0fW5Vfqe`{&iR6En_wHk!hbGY?O- zd7VHL*^bbq(}W36uj@b?%j;>i`t@n(%)hFrtBi5qo2k?> z*GB)2VBa67Z11>ojrq8EExY^SCGYjT={d9nr-JPd+d8{Y4p*Od&W(v*rECS}2xwBZ z>*GLIN7{9Z5PUwR<{uGn2G#=r*`}EQ{KA&GSkQ|*x+=xeFt;szKJQQ zIJm6Ib_z8rl_&*GOH|?Ti;Ef6=>r`D`^5t^L%=X?*IpvXDPvj?t~S<=1^tCvEO9#0H%Cfydf)1O0VIoE2DP01vnfGp znL-B_g}Lp3&qdlW>zq2tho#QQ%vSHaC`)2}m}nl-_n#dzz~iY#t4a6X(`q^|PEO@7 z)F*-Ftvg@sn_caC%<(j1QSSSU8lVg4*Cq}w{n4LE7XX$>X7;8ouFhsgc8KqkgRwOt z8~10xXTV>Iot=l9>p$6C-2au$&yUFb)yvTgz^r6sVTQ;oZ)R#`B;w!+(D}>A$-)ZY z;$hW8eE-(j%-$8i`ktwR$gE=K;^5|NV&($i=YQvPb}&&ja|P%yD~U+}n7^8Ny1sKr zIJ}qtD_(_@4e*}+Wn^Uqyr+L@P5|dWl%OEudtw%SXL#4)0$}6f`G52O(~Q47f1AP2 z&n#zVZ{cbQVB`KrCbNW|NS_b%SU2A8lEel@^SyDFF|n zU3!!_u8}?x+acgmD#Q22T}n8Ep9Jv(CmrrmTJva=Z&F;-5W>#1Bko?!Doh#NP$j?P zULTL)2H1MIUkmdpR=4g3s?XmHkOp`xMxC3k652Lw+m%F6NSylIo$42u{VjT>5rx$G zZZEAbo^#AZ>MABgYKnEt5O>p0tUbsE>MPzp=^NAAl+ec3EY?6aUE;bSXh z^P+a^0jeWq9*WdfwCl%UnmWg6e~YcXBVFtCx;WzSxwzdu?tTr{<{1dX>qVjowFtu_ zcWFuu*Q;U%+FOUWJB_qZAjMH6d;*4&j7^26Onas9_?dDYt6DioDd$=+lB zST8DXc=SRhI)R?@r(LP-*ceR3gDGv^KBQd9%3;H^AxkEm)|~R4sEAR9+EL35H_Mz6 z`7F(p!!j0`v@h{Yj}Z);9<*n{HQRkcRv|2A4$2OW4Ip8|vM@8*P2aZ!yt80$8K0Nb z+dCPJfN~*@2*0mMUrYreH~8#lhhj1uMc-Mk89!9)S6-DlJlco7xCgk3)fV7+e|toi&VYwwqnVEY;|L5 zmFHI!!UpzX8Df(C&nB=DYzn&gdc+7c69S27jY_4nhh1P6Yrgqv_L17qw8pV{eXE^K z)8d+cnT{cuVTvk>$dRmiZ4;{Um~6292ojne?^#WzaNM+T!7@IXKtv`syXcQCDl7dx zW0|iPZH#oLVIJHAGp9{p^8=aWQP9me2V5JW0UMgfh)Zd6iJzL1#9;?qxC}QlG*VEC z&aq!lA#>Y@zDRDh_N{$%n%U0P zO{h>1Bh5zGZj2w_I`aN76UJOsG0J|Bh53=u>t*Nmlk2G!h~Pkaz-4BXlFt7!rV5})}R<23X5w(Ji+Ue_c*js@)vr66{=Eb4vi0y z&vYDt0(pvMa#!wU{t{f`?@Lt5Aa1WMowSre#w6na&&OECz#ZQrHqCUA4RG|PBh@M^RNaw5HI9^ z?&7H=m?OmR@B4&;48CNCZcyAp284lh+}cHbT)U*o>kingq2NW;xZp&2!V7l%h~TL6 zkp+#sgpLOH{fsBqD&v~p~-(-r?QfJS~Km3I>wKGGRtEy=GfIG;-!;Wsmr(F z^vmMTIlA>+sAj?V5+|%JKWn7LPenXBG*jUJEj(t(iu>pS0tK!{P^Qm1J)ALZL;cXz z0*630kyaJ8Eg62Peq{9AiHkO->>={z3J>{DD{`05C6ywZ2=~t^_?Lkqo?Tv)2xUde zaDm?~Pu?n5W_dHdWjlcW7)dro1uqSUCe2GfdtD3{LDniF3F>G}zm0*WtFPc?z1b#F zD-+2btfD(x7E2o<2bfRObE4R0OWu-D_Ug6JM-)rR#>+=tsEj&!XwD)7f!tgZ2wC4F z`;v!cT4;Xn>%CuUk$A)Eews^gR9u55Ur;TwPk6mpVXz>GWx_ zFg2uYOE#j=@Y8z1TMW@^0@`yT)3qJgNGHeKlV2{>hXgOWi8c#xkl1#s_lL5uYoX`i znRs-$Ey#yk{_77Av@!c{d=2X!u@g-T?R?3n*h3|;r1H_!!~P+VjQtd)8%{w0VHZZo zc-ZXkB9U8UE_imwqGW8#`$|7Y0v_-51lXkzE4X1K%WtiirXCmm!=*6F4YSt|k)d{g z&AYy7cCpo55Sox6fRSfVTc81D`ipz5;>5mpLe867*hJUkeXKAsY#s(h7qsE@%}bN* zEjre8;ozY}Bso?%u&aZ`$T%xb*xWr zWGuU?sZ`tRlD&k*b}sR7pCTKpL7mcB`#RGFWElOlyg5+nek^bBHz8Ko5l@zdNCLqU z8C4C|0~?whW)0kcU1)OuAlANVK^Bn~91Gg03*N}97B8uEhTyElYbTxRWO`iTo~K8vz^LUnbcjm&MIryFAG0Ept;mV@ScCJ`tG`6(u?o9=~CZq%x#2k zYLc_Z=<5W3$VUyf%;vPh2<&&}N!jd;W!U7FcLW)qj~1@kt~eG2wBoMa&*+RM+K(Uv zAxpdQ5WRVDO&m1~xLP|wWzk&W^Cqvc#A(fj;&HNu8eQU!b~kli`x*Fjhxk9aPUW8+ z|LW^=IzO!81MNj64{<6Y-VF)%mj8X}{KBdntgmiu3-rinB(#*7Ib#R|PshFr_LL zk|`|ct>_Uk`O}6PLlLFt06(3~ycTiC{ClH7T{&>*=1ZOFi6PlH#rF;;t79 zAW>P4^=bvhe3ywIlIbv14Dv}oR$1C|{_w%d@I3YBPooJH3LHfba4lmZ<~Mt@Z}!E5 zhlq>Lt$r?T+XPSswoLun*4ucMy|J4{-3|(R0q0lhHL0kwo0KNKMfMwhvG7mdSSv-I zt`opXrRY>YZbSQ;{3Ys_2M{=js}LpYjRx)58afhw?ItbFNOjA|R}eLIL~r;NU9y>e zb6O`-Tr~%wo<)}>Hhfu=W~LUx)d!5Grm#$U=_}QIpSA&;;k1ggLhWq?G%0CU9m~{o zv?WxtFG1&8nn=ie7&4}xS4IrSK`u?^{QM-$$Nv=OqL0?QJl1|Ink|eqn&jKoXMR@` zrybQjD3E(0=XSS6vS^Htoyp#tZB;3r&10`ki`)Smm~p zKkLeSkIOH$e^L~BipY0YyX90ILbRVOsV%W)(XptfuW=JGyq>nL-j1`ng`2HzX#Cn| zKv@g9|J+b&*)CS$q-O6?D#(kGWymn4AY6)pm6_p|v-~O_kc~y^4%q7a^g{t%G#luw z$g$m@s!Ob9+q2KoIbMkP_swWaOeu2__3^N>Or5a#gqK2yv@5^tUj}CFe>}ok(`2>3h5q#4y20$#y)=| zgWA|nC21u9qU$lpGuR_6L2^RLwKRBJd}#nvL%%SdUXB)Tt~Q%kReH-D9)swz<4J3y zB-sUJI5rN)bSKYxrjC$Kgfxk#97gEJ+(Mj^Sf%J!Dt*74?-QB;IrC;M-bly#kjR-_ zA$X+FlM!eiCVzwBDHd!<6az@V3K%xO12@BRt6r%LqewG=i6ob!F zu;LN-kIeT(!htu2e=3Vb%QpE&s-Xmx!p5y~=>_|hSgt66xmM$zeU>F@cdr&);XFlN zJr>*M#cqvb@L3RwjX;RRL%K)Teqy|ATFHE@`yACdIxEcIL`2Q26DXdgeOB+rz-VLK$H4L5gHQXK@-zqlqv69Wc=Dsec140m_NCe z0N2PSCg`RzEW|cfn1D}Hy@tvVp+O6_h6FLgSC?3n@)Qj6p^;Mk!MDd{dl^gd`Rp#7 zSUcI(Zi67+3(V;u(`T8kc~pLR{+Xw#L5)x~ldcj?d~`sjK|uXZ3_*vOha#Wa(w^`t z-!?5D;xQGSfOxunv(JJ@#5h(y90Hr$c{4Uvwa}-eZR#EF87PbL>})#^XsU0s6wYEk ztDHXW(xzixCxJ>M-PHucN-H=lr}mF8FCRz__7={NB$^C5;JRuZ58wrzqZ%1-;L^%O zF@jsj8uq_y@l{x7bv~N6!$^5Rk%Cs%NuNmh$`K**ZKA(Nh@J<08pg(vY2}QScojfI zF}I^7x$dS!KfFPnR!Hi~R^zIZbNRY@K=y1;2;`TV+2&{crFFJU!M8CUYyFu-)w+Q~ zsK5O8=?~zLX!dyrLBY>tD!65>LN7c3kT58ft`i|gu#Q+Xk|PRwrF*Z+q7gG_|Ho`Z z?Rg^`*@@{hA#C755ao|ex@15!DiNIa_x16)dYsZ`}fu6%g~i)^mF2j{m$ja zbd*(P0nc_#jj2cyU2K$ANp`G(x~XSN;0@5rG@(#LyKnK%5hOGa+Gh!MQ9hZ{Ijh&lBH9+} zmbr54d6Llgzz^YEtNB|xY6AMj>9at{>z?mUiqHqIIj9{vQRtq5hDu4dt-f2MdVK%J ztnl@(JMOI@!Bz2LW};$s=m&y`xRAMrqB$qP$mmX%#X|OtQ06+LnYVHF&!MBV09nV) zWliTq-U^(bsXqM3j7aLW_VAdMQtu7`IYQIzVZSW)f*i^}{P}^pBc&EhW&JU+oRse@ zvnVSbe4JR0Oc2@TsZBb|)4%kl8-u!CIYG=8MrpCFT7sE9{PR(hC4_ z(KxzGN(^Hc#)#~66|#`cI&!FU7;f#jDre-WF|R5&*ac4thsG-gNCvsJ zGRkkKP&>WpQWY0u)Ui1mp#e%x^ScQuor+SKAalj61bMk=59qUb}!31rL^K#fnTZIeLo{ z_KCgsJ7Y`D1EePEXd%8M(YlFn1bwWMh?_JYk{)5V+vP1*)KRtZoR>F|zT4j&-@$~| zp3&#SnXUvY38r{vRT8IAs^xKi>HFM#ZrBkYm!U*}C01D(xmXJq@y(8o?jhw%;!2o+5 z=kNkoDIjB0f>Ty+vC6r&cy#*wJ;E>O+r?mLrmEO2@|TQ5wcVst7z-GND%bl^y0^@H zj$g(8_3RY4F~kav3tZ@k$mk&_xAM|XaQPp8cDs_)_PMa=Avzwnwp@MSrY$T zJ;z(e&JPh`{H=JuVZvtAL2(nAWZR9flQwg39!{P?@SG0pEZAvZ2Cn2izT?b}a?354sUXdU`I>bNG_h^0i89 zI(k#2p-}W@EciMR;NR~p_KS4V)^2ohnn28?{PG!#WKSoaq5584blm!5oOw~n{TNBL zAYg_#+M#_J?%o~=TDN`Aa~T(X)d5lttGxwX$o^iYOP1sGK6stHY>xiyQRKA#fd+70 z{Iur{YZ1!%zTwi|FRO}jQy5!COIM~M8h``5e7_P%ju|#N3g(wWFC|Hw6RttZ&QmGp zYK06$HuGmd`)tmubUQt@X|3K(aJJn{>1ODyZk~ix+h?*c4Q0GPXRas8A7=fkJv()F z$ECsi(j0nL5*|{1gaVyqUtaI;kR*O(j68Q6a_1>ZkA)7tJoMHN*T)^dy5c$bn}Q-# z$p`jhK(gFVWi*S5E(;A0ZndhO!Gjmj`X#ofTH{Fg*EMRxi2p<)F+UA^8FuvbiHwj6xhenS! zDso?5UZ<3_FIDspTGozjh7F<1?(Ub{-8bKdv*Yf!OR5NT{njuL*K2+3`QszikneL8 zsqf3>6LY}xWq^JX_u<>~?eekE+xf20OTumR;Z2{S!Par!p@9K`@BVRw!&~ZQ!2RZW z*K-D`{@d!Z?=G!;mv@Yzz9jG4j~XY zvjM&@dkNh-Z+zPE*?@DThX3dMC^{$;PjToWl)4Xr%0dodshnn#@{?y%%4?{w4H^&CA zpSopCrmJrap7-`iA4p9i?}q}IoVs3les{k-psl~2-*5?a7spZRNw1_#BI~1-Df+HT z8xQ4G{oa>%;b?i27cy!c0+Hf^)D0330(9P9ns4Yv+XuU9APB18QkH)5mdVhbvFty7 zYV4BrA(jfrXu*G*`cu$7RjlzN^Gr8P_V|moZ}r8hvsIAgWpbBeS!QDJn%`>DqXIa~ z!Afj)U3y_p>X&b+>qMxPx3475SNhPMyUuKK>0*$_91xmN@$AfzFZVf@5-hkLv|BX% zYloa?_YOaJ+5WkS>Fqm}*m?P;?r88aEygeMn?k?}(*dV|Zy8GEXXH41cjZxFq& z54Gvbtve3mmNdKF%ZVF6&tgb~oGj$YXNYUNy`*K3)>b;54j4cOk|U3z0uHc+$>N8y zpXo*h7x|8Gby<*QK^Bh=9|RB6M4c%ZOUa5)*>uG{epergIj@>qZ%{u4+v=;PQ>HEP zA*S@}9j@^R5Av-bvPFNM^_?Q~{eZ%|uCQB7{L{kA3Y{d6OuSnXy>++EJ^Worm*nYL zQkcUoaN@2-O-gu2{roUgmi#c|q?4^^RbdxkOnX6(c| zW3@LQS?n=ZtTg6kHS)}hzIY8U9a<^>sDKhkoy6M1nHzbQ$YPw*m4a;v>nCZuE!yI` z)y{e7dPgj*dhoGIo=;&jIrD5O*@22CXbv_|8xX!7$?Q5 zPC^k!cmyLsQO~HC=+%56oMLr(+oYa)j>3M>Rpk9d@KHzI3cMX64w}!VqCC3Rd_O!R z{x}YuJ?i07;+ut^B4%I98oaQm&P!c52$e#Yb)uHweQZ?Dus>RoPt-Qn)fN-i5aR3e#fVoO^(E8 zi~a!;kbm4JR#ma}0$;Q0;P&c$d=w^UDEqVhw1}xSvey#%5CX04e_RuFHAtNC%lgw$ z+pBoX4*l>iZ#~jjoJn54Rc-2gY4#)T-H^(Mg>x;JXwZ?_Z?RQPrx z^tA>lv)MO>HpL9UuB~OmMp4KJdO~TU`Hk#mh-66Vc$OZ;_S0jmu3)Xv@!f}HPwu0U zJ|{FoabwU`ueCI6TnKml1PFJMmH40~OQ**IdS(GIIX2m1RtIq^)7Jr=EcSu%wK>ZU z!Nk3wfQ=a%7f0Gdf=v*odg@Px0->d!!m(b5E{DyM)Ek2r-)GQpc989|oyHH^HmW!& z#BNykABL5?DxbzaGpW&F`#m&z%RD%0Go@rJ=q5^#)f%o!Xpw_eP?)p&*=>*t(K@do zU9?t-GIS<>kW~=oWKpiFENnrGP#-{fqk}Q+Vbm6g21!4i7H^2z6fcW@wnS_ux_3k| z&du=B{VpF9UMYP7QH+E)@7E-YJ&w32ZBK=_m^k1su7CwFjWd!xZgwGybe0os$_o3s zs?SWr)t_R9m)DR9l$TzZSqm62`~9_%WtamZl*R+`Wb8w4_-38lR`K(d=^flBKrWKk zFjHq`(Q<2zW!92KD*_&`Twi#*D=09$1G5Gv=Ccus&EAg4_)Z7Mf+3D6i@TSJ0lb68 zIgUPC*@~m70|B}_US<7R@e~TXX;6t9_cn#xX(jCpZ`cY+C@u;g_Plf;c)QW_z6OOa z&s_oFS{@4N&+wC)3HIB-p&Q`k5xLcpHxIueTMSRc{i}BPQn3LZd*euJN=F|Yc}hXl zvB=A`hwox*tz2b(-L^wrY@uu(w`FqfbfJt);!Y1{*ox3(pD*Mg_Uq>OO9-eYtPvl#z@15Mz!y8uVI(4-;ibqx{sv62^Uw*D3A; z5UI7%3m4^SZbl{d!3`iAdS^oUou(>>uRMR@EWG}W1B<$cQvj9v_brd;V`Hi1Z^}n= zo9%fF#CNBtdsXTN2e#fTSMaE90$8dmLw8Q6Kt-|3=5-xNUZ^!#IvGFgA=`9CfLW~< zD1%j-(T$parF>06t%m9mZ<^N@zH&6y`}#pwoHK_he8JVo6ubh;qNr~qk<8e}L~p|| z;Je!`9+60SID&!Cp>nKdc<Vnz-!fgIY%h#7S&~7@J1TG5LoKBnyaJcrIIv3c)@#~VQz@TVDvRII znx0xMz$|P(IJyL#8RZGg*mSic3mbg=DW;p$iC^HRHcwpJxGvF zO$FT6lF1bK;9BUn-1A1cppxviFcP$A_9@jlTDdtHV{_$ zR!;eat9#~4r1%u4KSr-PN&Ah3p7G36e@jJLkGc88hjvQX4ru06g!femo6Y@-Ktyp; zX?x}D9TK{lSyfMgAf?9qv^)4As~5$>ogT_4qjU`tVw0>XQYuoXD@b5GB_zi&iEmM7 z#X+>>OW&k=ryyi6UgRB#`E-r0^^P7iywC5k4mYZxa0gi#3k^&?`B~#n#^DfAzAWkv zdeZqxveo17UIHBpJi1#|3{jSroQ9yuUh(I)m-#g4tijXmK@I278fH!1@tp({F4xxB z9Vxhu_IE_{c2p zkLZRKJOP*DS-yvkoo5&*k|M)h&19e_63cr|(((YrjN!G7vXsR{Cm+HUOV137z(V8E zDpIRL=@UsP%mrx@rWYxNU;%F;xp`FIL&+se#HS=q%BOLTotcD&-(t5EJi#%qibIip zPuSS*yNa2nw-k0#mr?Xm9XAv_D0a&bloElx`}U>5zrX$=3V(m=!gU{$IJ1WRDJADi z{t?LgF0j8zK=kOZ){!&!y0~V4%4y`=4TZm=KxOS@&ELzCr0|b|7VroN*SxEEVkLUb ziCfXSRxK$*Gtk{-nyWlwbt7OM*qtAj6PMjepb77N$uAC;{Jz{s^f@hkbR<5J2ZdwD zm62_K#N^?36a|X@PJz*}j(iH&g&TEX#|%UZHGo@*xWGbLg&5X>fD5+s3P;w&Zni}d z%Chuj?jYN})W@eJx+S3WbbV)5iV9!t#awD519LK27Sh$w;3vV+F4B|(4mtTP3K59L zw}x*%evd0UlhnRRnu3q4h~$o%5D1-* zQzV9oTIDBlR^GSnWu!ayd-Qrp`Wg%My39ov$a0!x5PTnCLt+H_wt3eqGwm`3`t+V- zzfqkKba9HH=Sml>z}zwIbQsiEvt_te5HotF`pyvLE)GOYlI-&_g-orTOIx5sm6=iej7x2kD?}T7PuRY62z{!(k4+Q6mpr8vr3@>9*ie2D{2}$w>_yfSJTFl_;W`b1p zH)ZP%nM04Ib5|3bV*?`4bD9y_XQ;4iAm$me))M?cW&jCrJieVMUTF|67V|q8BXuk* zAHy@hJ@}SdFen@&$SObxF>P&L-fQ(D(c333l+Xuua)+1~8R#9l7s{ouBuViF^oGnR*7>AnNoEQ?duqLC znoSRja_S0qkVN{Xka>i8wzxmZhgVj7Th#u*dhq?6qK%J9N{NLBLdSeO^|QU3pMz9) z9*gRBRmC_yd=l;e_}FE^geV|~d&NkU+#&f3w*-ksQpT~{Z{(Xanp5pL$t*Cho@Dgn zeSIXWFl9eRk{_TM0T~y?XTVVRcM}vBTI)gvfd@gZFfPkOn&B73l=8_7?^YKkLNCAX z_Z!friBsYq>Vk$V){2{$G_;ey0iaDivRtHt6VMa=+N+CB6iW`>aMAr+R%XF!LYA;T zV;>9zrZ0jG;uDtJ{ojFTcdlxSBYSDM0qOAWpAVMhZDXRiT||bnq`3Pii6 zz9wA@i^uztl!)?1a4F`resq4w#$nGcBX{#pl^aGE>xvZQkiO)8if0yb?&q#jCc<(_d`>NNY_^p!34Jf>i*kQd%kBcfiHQ$X~GKbqG!=>7Yf z5)hRE;tx>U`7Sf|QX@ptE1v*qA!u)Zo%CNkl-*l3^2G2BzSOl3GN;ScXyZI5+vB*?(VL^H7wu$_U!II zU8lRNyHEG2Td(Wgci&r#fuVDXFF7g1%$3dbV*abeGK9x7fwl)~QL<~WVA{kucUDSI z+-)Um-)SyOxy;VNvmlV&{180jP;|nrBAb2QEwBz&QG~0iNdOBd?kIf4TukPBs1lW^ z8hHJRpH4SmMMY<4Gj$(ml-?LI!Kw?zvGy5|ve-2hjUD1x?Pm<4dVHG9*+pQ;+zGf> zlR9qvoMXY?&?aBaC-bh@z3m+D*a`PBq|@(WRkdr!Ff&UYwR;X87Q`1z#Z_Yfz;CfWsCD+5MMdf zAtB56d3K6g9Y2k$u2bJO#NkVlt!eX!!ucgP

ad?Ctrgszi`a zTBBK?FVDfb01FC)Q8r!wu0Rs94Rf?H=>RaJ46$9H$Al~ zZc#|_09U2x1&0U&eaYo1V)nn)NQ#a?1M_`_t9Alr+2U+uHVUC3)#|dJFT5pX*{z$j zF`kn{B?&@9Ue5eOH4`;goRmsem7zQb7@K|WluOl#u~Ha<<5B)IjYK53y_s}onctLf zPxZ8Dp*0<(Gab8$2_Fdis8M=+S1Or5%XRS9IE>lI%7)t}X7YmG9G6<9W}-9c#N62r zPJURs$dB7O`8G>qHAcHTQf9u*kSjsO1P1-o8ebXZ9>-Zq|WiQ<}l`lzsF_auGz^2Wc|TovQD4g zM~x3RJxU;pJ5FtY!+=yhEH%9>A$w-ssL*!!x7kd(1!u!S)BruGr`<x zDNC=qW+^T_<~iO3O((q24WpSCVZ4d#-Av=+45s<-im}t;i1#j8FE9ujV2PQ@%onyC z@#5Bg7c~j5*=3({xLhe%$v51% zP@_3=g*nEP+2(RnytkI2QTyVAYtex!Ex`jp?CL;;V!+}4eVTO>GBExibtV&`d{m%crC=|VF@BA|quMTNtA6>PCPwmBl=n-i} z*SH=|=^{7YsD^%BZN2)6K}4>7>!>G0IKF`4P1U zQzp^k<7)LQY54dQm1F0+Go8l;daI&R%!$r*)UuJ1WOlZvX!>=D&rW9}boFU4v-om_hN^08jqm(D>n~kUvGXed ziUgtrgZ=KIn5IGLB#Ui{#UN zUAfSxB95lBVIS=BReJ1;3O^UQPeWbAxRvGyp1V5x1%6wQqCY%6s+K_o?Q$6L!rv$@ z2uBR82i8gGd#3Z-tde)39LM%`EdpnBt*1bF&Y_<;#f1!M_#ztc$v5CV5H5mx#;n|w z;836rb@b@aaO;Q;qhK3VeGCQFE?>|ZvztHDrL`i@P8b!LdBFq#P3I04NmoT}~T^&y-quB4vI0W}l+W^z*DSmunTOJ*nd3ao1XOM+tCEX8T_mER?B6Gh1q@f+Z!D4Q9Wo($Ey zjc`u;@qyW2uhL+HA0m_$ovi29UwyEELPoDDKIPJvNRKp;#mj{&TdZ;g(UP~~GMVLA z5$Gp*Phe{?cr4+XB|Jo}AuaYK1>*8<#W{PR6lk5e-f@ntJ{i}VM;*E4r%DL6vfeiy zNqA#4I)w~Y<00gjd1*;tCDCphU}&PJvPsM+Hxn0n~`sB|5- zQp9S|E(wXKu^T5lthB7t<<=$)Ch5>l$uO!3>JticyyGFS3Hpp0k;4(Kjs|X z=QMQk!Oedl0i=aM9}93+^*FnLg)Z7%6(;tZ*$3g}ijQPh;n2p-aNHUbZHI4F%yWT~ zYLu-X$z-kN5%v(Il#j7a01Gr(z!TDT` z;b={6rTx?%ZMtkU99u%O`LrzV?hi_h?-xc@^iw|y>at-DvEBt}+i0!hN)+xodeImV z=2J+>1iB+*i2t#`4&MHtJ{R$kg27P_hS8%09Ahz<0D9@Yd4+E(nhZju1u z3w|GidnxR3&b+f!b#&PU@eVy}s8$3k?y*&r+SYxg`}MlSf-M(f-&4O{e#NY%J5Of9P;TE)lLWg14Fe*w6n} zS2np|q9wu*Xmn+zhSX3EjSPSF_6}#Fw*L1R`zdBkPRg&qvA3MuA2??4hgJ#{1ehp& zkcBv{*?5*9X0f;f6jJ~_H3lLZ7nf^wlD;@99 zk2Y#c+_>FvziCsh1`OvxJYU^jM|n*TnV&GQwIm;kSHg<()#fNBg2pDv>|1OG>mDyV ztwRIstlh{JGV(;m>l7O;As@F28VyDjv{r5>z5Z4I{+AinX#88m?TTR@UQ|k(yuwP^ zVf_`*N8{hgR#@bK`S1Lk$oymb3ZYdF=IHbYuy?puXV5# z0w79)cM<)em(ft5lfScb69Yu+XAeWG2CMYJ?kB6ZMKvHr?!k%!+KT6)o|30e%%vH) zFlR1Y}P>SIdu-MBPCXI<?EbHIBA|nel)KU&54}MBPcnItBzfj-hHQ=8HK5~b~Fi;tgB3CP!n9^nTjney2<52nU3jeaf9C#PGmZCfxVAxDw6($uvsc*(t-T*Fc^BlT5YOU9!%6?mG};2LnfM zH~cvNz4`A9FVH29y7+%Lw30gp?TuvZ`AgtuGBNwoeE{$I9gN>8-E_r$bgA$ zL2sBi8yU`;rY2iU#ZgQ-LxyPTM5q-Mtu}#pB_(>qaXMjD%VpUGRBjnowCT?OZjskGP$|>ro0yCudd6P;`7md@Rl{yD<FFmT^JlgBHlHyX^COHSfKma;Q$OT-HqEx`)3z{} zg)+qHF3#%Y&WG}66r*|*=O zy5#v~oB_ppt*~fsl+WbY3ZF%e#s!3iY|Uc3hI5vu{>W5ZLqlx&gRQsziaKYaGpf2F z|GdN&eXn+BTYRqO-@a$j){rv4o3v*G_nqprPEnmaT=*cguqa#}T&8dgUGlW4S}DCj znGOY|RYJ;Hj57C3+nepeZzoG_@S#i6R#hhpUc(1+#m6vLN&ADhazW0FWPr)@%l0k} zyBr^dL6FNSQFN+J)bOr(rXuwHBZn>TMlZ(wn*_TAi7Jmv9uziKhu^D|dE>7&c0_@7 znm=F1PM8}&HMP044vAj)0803{>|IwG&q>96q5p($+olI*pVWE(kuGI96fMOFS6LJf zV8~jnu_Uc4EoURjSb;IfD8o-JNs~@3$KPu#SN(3^mt=fq(hYpgtMJcsKDZc}jW%tX z=H2xyiVHjBhu=Ck{589W{-H|^z}-Q6Z%%cQHQtpTcyShRVR*{dLpYfF{`8Z_uV;;& z<6Y%3{WeKkm`r4Vy5k+*jJW8-NH>;Or|~7P%Bttm;_Op=@&0~EG!3C_RHTEs4nwfL072vm$%9vyl=4> zx08M=_BX$&WR2dEHdZIP3^jwtyHs70j#3>G{7#ow?12g08A;dGXPbYIw}8dj{)twI zbGG?!{tc3Ew&90e5V@NiXI`yuC+wfk@@N65B`kI;!w5~YLC<1uX$Q*(EUe;X>Z*8f z&LE2uu(4SE$i{hm-q?CgTI0AEU|%GvL|r9hD@MhY`5(@_m;J|=WV9*gAJs*EP)uBO z)ZjuM#Sax(R2Q`3P$e{Ia1mO!0}%!EIU|+v{~`{>)fmL$Lkf5V+{wb*Q(QhQ45?$c zjk<|wIBC;Lk*<8_xnA22rPKEy)%b2Nu)OVqU)yAlkHWNR^ zj>}X`QsgYLG^FNYX;QPKW>%=gu4phZ|Ai~*TZv_Inq-EkZF_U6^1LYi{JA3WXGcWq zx8ypVAZO!fl-kj<>v$V#hpS`@+^AAWrAnA)EZoit$+ZM)+cw7I_qn`3Bdy0w***qp zI+AB!{hYEuh|V>()6dcsMLAcqx9|dkWb+%TCT)vkcl^`)m!X3~8>J>}V%hI?nv$s< zB>UW!O5-h54p{Rqp&Huj;*vJlawa?Yk7?}Py(2mpRu$0&&^wJ1N0XdN04B}i*Q`(i z?_b9bk1o{!U6rf~%#?2j<-Jmb8%W3H2?~fSb93!uj4t==)+Vr<@opZNA z zuE*a`e(~5DPp36ga|&dE_Aj8#!kuTKiD8&`97M*HCA@YUSJdPf9mA9|`qZ69Y{q{K z+kOB2<*Xq4ot96J^pS4VT?=$1UT0eOknTiXTs8|Ys2wBkp-}3Q%b#J%Ub_4Ly^H++bpGd&SlFehX}{Y|O8?0iR32B8YqK5Ooql zE$>$)zz;qbaigya`H_{f!`-!tEW=?_uYl-m`(SEi8dX4;Ww{6|(`nfTcB?BmKL$WZ z-&NRjYBX7_hrWChdKgloj(~FF2&?R?+~)H^@JRd>IgK=?S-*|vf-G3cr^zvrvFbuA)=aBR2 zV*;7*g{VWAYow#NX7Om3+wO=|H`~GF!~jW%)m2iJb2jesc9o#f|19|{bUDq0nF7v>JZ_GZ$Y9;#JizJdvK0=ykoPQR4q_zaQBVI(C=n#+Q;~P2} z6YZUeX?SRm`0hvh#mLHb+ElhaJH!Qw2712+lEr5xwa80jws&vB++{z6Fs+A85#Zz_ z9&$iv-OGKjd1M85qi|@%qN@JR)6t9rN(aYs3pIl#y;lI&0Ty*&BLAix)C4JgMwBa8 zncXTzBW{88H7K}mVQWXau8C=IGj)pTXo`I5!zXq&S?`NFkDE)e-Pt--gn#HzB7x17 zsTR}$!NYLOo-&)mt)@{E^63V}CKi+`@4CEmc>#tD2JXu;(?KKyyqcXz`3KT|?S098 zzP}Y$O$##L2a$ZbuX`OvE7_k*{A6WZ%v@y?H@VObww$AHXu|L_WQ0Wyv=}7Mb2^ zWXa{IrrCtfPxCDC=hr#1#6dWkRJC^)P)>4b0mubc0qY~u!>&)6JcSX4;mC`gE-~e{ z6l>R31A|p6s&u3t?Exws@4D!cZzr{XGHr2bVR2`P1JbKpV%lWRqleoL00u90D zbalj=;o~qR@x5suQs>U{TwNORhd2tyRY$a34uH-{N=-pWC zdK}jN>AmjF-d`5Jd$j(kk0}n(USYorNI!?G|cU8EqWVB zMrCCX!-Sv7rZ&t9l88pg@|TjrRtMDw`^e5Uk;m0W+hOgwJnDPeKV{J|Z~!J4FNgJgkJDIH3hd8h4%^s9au?0PzzdK{vwZe(ue zs2Hl{+H>Czcb#A7NF+jk?4Cq}{p489{7ZR0;7l0L)Mz_Tcm}~7KZq5g_ev+x!G@JL zn!msA?6P$K&vD|D{A;L2-}-+qEWIb$rD6T=a=G&-HKn)Sfzi8mF}hhpp19?v&eAaH z%hgg0*1?A!jFBm~BnQbi#OQChjIu+A&Tui-JyTsIlw1wT7hW%`RMxc^YBK*0w*n3` z9az%v_F64Hc6j0cX9gb*^A%>ieBmH>?uo_P4|c}6u5GGxmN1ADH4lMw&16RW*i0!oS7Kfo1}kotS~t zQ7@!Jgl*JX+w++$>za*@vfthmaOaz1#NRE$iW`fiS3)iR>1t>1rg!wp`#PnwL~V(W zZ=CnD_ikvaOO%|9VdhGE^s_d%+Hmo3zC@fDiR1zkr3q)jsh^JnJB#-O_{VNB{a*fD zh(E|Mw@0A4oi9Bg!^z7{oGFD)Dq|dPsy$3eqai-dsfhxs^+pg|pIQmQ`fOKdfH{jaqPnK=afRk9i4+?K3NRCQfq)zD>@*V}IZ2pb{c}7Z z`w7$1`kNQHiqSNj&dP;FXAioh+1gnB>6@o}i87s_xHS2+Qb9Z)&tM<4O@j|V5l{j6 z)WVrc!^g#G{cm6VHkF*|7Vw>wVWM^ZTL_>p~-}t=l^mnXF^v|<)5mF+{T-m$4P6c;MFa2Jg!jTe$RF;P*jdV zV6wBQL3-Y}{YXqUML|k{d$<==U(Rd41}42%fqT(^L#6f4-q$31TB%S;&wc1YT=A0p zu%Y}zV38FDX)8u?wJ0Fr-t11ATF>xn@M}pxM<#eP+L;n0@(bfg`-5_L>?0qAx1$8< z{0*$dKMh*#d1;YFUaf+4ZcgTg0w?gVMO_*Q3;5psG3mTHx=_p)hU zNa^18iA+9zy$+ht117r>s{Z-=5U&Aer-$i2pNy%M=Lr(tJqjOQEv+1QUy}A$QG$FF zU{;wD6C8bWHk@Gpo@T@G!cqSfPnH3t@w~*2nosxD(vwdEtI|DgiWGQ%cl^$7_IL^a zVUstgrhSj9ABxryjV+dyiz)|25+AT)=`_#Rk2;;?!to*&{dHt9c!$U9fAElsoOuFZ zdvqMFji^s|M&-t!o$+nQioc4tmU9#iJvp+-&yhELhZNhLNum!`4!L1}T2cnetMDhu zt?{p<)XtMnQ2>&ndo)`hvz-*UT&2xM#N~y%s`z0I-t3ioBXt|HBX1o*QOJy!JAvxh zDn=tOHy~+(RQPXTt+oirXIQ*imBow*?(5iM1h-=Ibz_h8>Rt5V)>K(~A)hO>%32lQ zR(A~V;@yHGmP|X6m?wlZzQcO0zviR41Y>DkPK@|Ou&3PTK<&PAz zle33Zjh~~XWaSWTQ;o1)X+94UBThb+lV6-o9F8kUY7|_5I3)!)=(zr@C^Y=>b&aV~jeS1z%W5%beDWaIWyua>l2MFk4NE8WXFC;_eu%>G@7-zY@); z5*yL-u_P$1TOkZ4PcM$HV~^yTfgfMLvnnSwL-9nnmjD*w7(Jynxjl=fdA6d3w1}@j z=vBjwknoecYRJCnolpKj99u9VPaW_d>2ysFi#CMqP{E7_r}V}@GRVAe7!_O$eqq_B zJyji+_LvC;-tI9cX)yDRyMNKB`U`*P{j?Nb36sYO9qIDmj>eje{y+Z>rH;H>7AGYx z=O4^I?p7-NzhDtXA{ES7#w5+8FMB?7}TbccdThF_$dO#qy}7&(d^39$jxj~fz|5GAm10A^{D{N@m$H} z?vxa>zJ1ms>?AXNb%u|B+yTsyFX-Uo5BDbsLl`5;kLKm6dk!6+1XX$W) z_2|u@ZgNjl178;ZW9rGAU|w!6-TIEyXC=m4?HX8j>Zeqc#8~CxHJ@Ll@>?=CzXq|N zj<1h1o+)YQeZ)5ZpAie`smrlxBuF?nZF;VTSQ(jprF%7?l_=4%Dmgf~5N+G7%cXr9 zQI!5Zx`9|@1>wS{qr0t(EqzKi9*SkHih!CJNR-Dfz+kO|bmyCBuO3VaP|L9)&XX18 z#jYM0WzonQAK^y?Mv@lhJ>#`y)+Hrv@TE;@dBzzqtX~r+vJ?uQ6inV4si_>eDSIpH z%oZ4+c3?C8YhL+rb!b+5xW(~RI&MX_%7K}`%3C#Phpd$*$6Huy z3_t~By)m9-qVyTRs??{z%cf=dUV@qpmF2hov1h&Vh5;Z>`j91L4xCmPoOdBHYSg(W zo1*4V!kiJvAgjDp#3N9h z%JrY87J>(N%I$23J$m|S)YyXV9|ysMdxTiyC~q#@*{CvJ?r&sM985_u>H_w4vGY08 zI0G(w&&ir{e)Q!Sg8ImZfnT2`!f5W)tQ`0F7^CJ(><1l3q+p7Iu{3PJ!IT;jH7R(+ zxQh1RLFibQ>Ufz&x412t>lo3LIZ5aybhA)%}F zV}`8X;cCn${v8Ptk&VBud10O-FzTGr0}Y-OeGH&s%07a5IZkr@hLlv(p$+QD*Mj0> z7r|v<28SJ+*G8zVLMe`y?`qlKRwa$Sqbld>%!&=2caO9Mm=|@&hPHA3Ry}*Vb=a+4 zlfA29->p*>K?rjP+Usqh2Og^M62v_G^_e8{30J9;?D%@m*MS^Yrbc4X7miRt5{5w8 z%&og2wShYaPRlG28=u)Rr8pUd^{SmWBCeBKO~AXLTsLNU=~(7ASp#leK(g{)dXIJ& z1uK`#Ip~%gDW{S+Jm{(VotZjP+EZkw`rI$lHPv?T5FG;6y2tm5M9t$s>nR&+2rq?S zD_A6+bSi>s-sCj>Ztx*Mpi8460O9_mv0}4#1^=eHwU~uHN}l>Q0V%^APj56T!HQTt zYOS8riUS|?gA{Zw&X53Y)n%NNZ~AuEorYN@p5AR~bZB|ec5>SUgnwqS*^}bn*IeLd zQgb0y8jFep-^}J}YQ*ZN+W8YZh4|gdU~M5Jxoc`97pxQl>WC}nL7!Vn6}?yOxYqKk)iVv z34bZ;_GbIUmDV-&b$l>}r%8X{Ax(KpDze}Gfp)X_NCI>Uln71=wh{ZMplg5N;zOwl zr}=<8;aTM%m{3RQ;fQ)ynT9ZF(}FMKylU3MMPVowgOGGmz<5vGso1vhZm((F%@ihM z=WEDD;t3FJb?|TxOfU9`Qad9{`M_y5CaE1=3WN+7+GSP^%(p>M1se7vZVp&e<54Vk zgy_&(|8u(k=O%v@aISKF&c=FNJ?gCVST8HGFI?z5Az0eB$vY;IwX$K(r|nYpHDXy> z2r5tYp-f1V0E6eJ~&YZhK_4>1vOU-htkNu0t-csrRQ2{)}bDk6~k4ol9gd{ zdj%@vB5Jm4CQq?3EeLVqgOQ35ir6QD6=3|?Vog`nQl_oa8v`BL)`D@9W%tv$;V6@soT5+ zG!BfHpjzuR_En_+pYMegQnN91z?(+EcrJ}$r&LI=2OAFQ_AA(_jQ@9?;>)#|6 zJ-_3XZ*e3fU1r&#i(3ke!?YC0$K_#3Xmh-yus#uCQS`C_C2Rwg<_f|2&QQ~D!vAqZ z{~M8~v}^I~*Z1Co2kg|}QhE`a`gDZ73H> znq|NLkGlh)lJzf9NcaK|fksc__3E=h^73g7r?LO!D6J?*k5UB3pN#<##fgOUw#6sP68ys4rvYB< z*4L3BBL%zNkV&-Q5d6+rMj$zBN;e}=y`QvDSJE77cuz>5dy#l)fHMS53Xo+N-8B+o zmpGdv0TNeH>8sN3xF%#zk7DEf=(%`}OBWr|H&i?+F`eOr3v|3S_}ecDk(#z;`H+oT zoAz+DhC}`6<^)Vbt-WgMjD;GB?f=qYK#)d@>-&dWNaWus6^w-^hByJo#GM-J`J9z9 zC+!@I1OjamY)j;l^s|p?QPqD5+S5NCMC+e3$ovTQEFw|DRqQVH}A3; zcu@Ekft2Oji6m)SSOny z(ujcFsx)kUpFZPx%uoo^3*_&9uiDRWjZV=q+7%DTM*TXK+q|UyFe5h>@D%$Asof^!ONuG z3cZ-px&hq!0NlAzQv%Ryxcf7UANvZ;5j~vL(^&PAYHj0M)m6kQt0%%2i!~RN)w^5d zu)1~gHOpKSw3-OB!G_V4*S=OewHD#^32IZiyk|t^3)ThXd+m=2>_?gjva2n9J3e1F z&TDeFKJb(ttiA_E3xm*`(^_kVNM&K|Mp@C469^Geng{atX-M+clGy^THv4+=96;RI zO2|RauR8Q3yCN2ro^|HAr!5xqnPh?9z4Vcvyxo*$;ppWsgN05S+e;Ww#mE`<<2}mu zm}vte59)Zi);q;NU?ioFm3GS4!{))doD-|_IirVdFnww>Tq!NWhPkt+X?V4;2?I+@NkVUUGb)qdGZN1=2$!ZyuI845

&k*Gl*A=`hf8Ppl&gJXYY?kXJgs!SmV^>LHfSpm)_`%;Tyq&-obTLLW3S6O zpyfT=I(YX53ul98TqjAM8)rK@%ise=xCJc1K0sy78rJh)hXtxk)Kgf9`m5*b@QZj( zvD4Pc`d|K4SlRo8s0*3|#W#_M{mW@u8E%5@fupMSJJTX5T9hFoP9^huo0RTt0$$r8 z+7IW;TQET(E%-_|;)BQg67jCpz3=hYrmMNkwcPL}d(?_84>=hIQQbuc)O+G4-QAKL9Gf?O*cXu zN1^jnZThDP_z%K|Q;()Z)wYS?u_`75cOs^lfkqCoCG5iv**nE&DeAf9*3qmPsuTGp z0Vjp}akD1OOOnfFE#gCZ(th=y^|-YLn`)vCnvoe&GzA1(Uo5i7@R{F+Bn7w%m}GO) zjV`;j;G*OiCf}~CB(ZJ2QnmxlXumie){U#*;cdP4?=2-+e94j9RI~W7+k`-!@rbg^ zNs2i2hyTw`HMsvgYqV%}KOGLzz76sgG@R#xi~0;-HO3bTvq7V|n1D?VT)Te+CC{J4m;&qks z#z@?{G4|v*LB3q#$BpnKmUV5i{nVu9v+K5ldzj+fU>e7)Jau34!CMSEixy2PIpVv8 zfWdzV!Q)Mipy@=xP6@m@TIxsWeBA4Lgf(|o$1$ne5)lI(s@l0JBlq#?oIgwv2aicvTrfp zTj}TVwl<}mku+U!xEKyz&2V1*+>m~>8xgM?WKQigxpgBv^2*Ac-e>OwydynsRLQn;PSRQ0I5F0r@NpmJ}c{; zM|rBRGYaK$XG!pU3M5nmJO|eJFyz9@PTQKm?oNK*%7*u54QGbDYd`gPB2E=OCfHqT zd#C!rO|cY`bn@LYx^Nqpobi|&m!Y~B9>aV~+2(_;w=gO4axW%>reVf=RX^*ed2~mS z?T>~-&ed1>Dsu>s#;jkNuTdgi2RIJ4UA+aSZlIl8$*Jc2I;k7L@fMp zOR^gp(yG+1>=HmZ+%!S>s(Yw~pX7_Jp&I7y`zay^W>j~C!KdGCnnePY_HWhvP^Yc* zpJs%+{QDDDD`3!>Re%FNjzrA@Q|(0KX9}4C!o3abuio-KeRu82?%Hx6r#@BV>x-=$ zx3-C+9=*%@Nx$lH>M`|r>F%EdTq0?`GJLhNZS&SKBxGA1Xtp++`eo1WygwTPc9a;9 zUm%Q&z5lJyabOMUI5zz?)<*rR-^{IrmARW5J5Gq?9z>N>I)j2su{ZJ^EuT2TXMB3C zJ4H|`K2nc^7@y-)*=LlrQ3TV?>XH#UdRAgz|C>Jx-v!n_-7A$%@DC}ev8#KJU%`F{ z?eGmwISWE5JUD4t;|CV;tY=-ncdf|_UTFmd&%;uu*<-4;Zye$9!fipzyev}?u+Op^ z6Ed>b8TBaby>L1;$VfY`fRIO#_>6ejAck`GBS?uUdUKpIP;!P7o#z?bK4A&N$46P( zgJltG>{*Bx&WXx=icHT;u)5SPiC&)(cqcJ}VkilINieg^q|~ioCmCJk&&bA}S4u`< zZl*2;_UiV1?uZ4Yue?l0dGDt%kSORq6ltk`ucmRvY>GRU0mh2|*|p>KH*vvsB6cXe0$>;mP}Ro~Vy3 zwUnU##3@QY1tu|?OofDCZ}2|2ZUyKfYO<5GUFmQu7Vsl7JN{6o9CXDW$Q6qFDg7h8 z`xBtaA>+{B;_zP{CJ!Pak}k}YJ&^QFV)+&$v-9d|@(}6jcEl!L7f-|@(jaVVcAvtd zT6uI+sd#2X7jFB{3Y|wIqfMk65WyI2pK5u?>yNG=^#J8b0WuXCgxwy1-NvR`mcT;@ zS5LnW-Z7{}!Zy}bM*EWPPLlSya+NhNS3GW>E<9n}G(5(REH*6!5-gJek1=So4c%U$ zpLN?D=5|E$-M=^Xgbz`Wd{JVzJoMcZL~_~!N;PQ4zlFw5XU0(N4asC-k>(o>)N>uz zx54lh3Q)G~)l;#dZ8b^q#6nG*17kXFginVgx{v(JyjvERX1{3_N^Rkq$UdU`-k6#5 zCI}^Y{Je5x2%9>rqRk$5oP$Z?YEohg{oWPl;>lue)1rM}M26RWbqQZvd3TpFN{zPm zXfi&i`N}7bS0L|~E|fHHQir^I(9k)wt1Hm9`1uh>xMHF#BqsPRV+lT3{TuYq8+U_P z*?{0>R3tUiRO_LmPDJ|8J2itUqyKz%E@8!Q2PT*OM;cjo?===Od38@Jt5>Ab0+orq zdQm(Zmx=ZC@iZ8YYKQX`ycg@V1I^bb(w6_jkUd^@E);n@L~F&cR2DH5d0Z5R&~9}P zBrb;bAyNJWzEM1i>E|DG%KYKGmZDfM&_qlJS`p6g2WQ4D;}GBPoJ%1|L}?Jb*qG%fYmlW9pvD(HT9XF^ zcZ>f*V|E#6!oah{Jf@BWR+y(yW(&mwGp-^`>d!XVF{4vt_T>=)GU-qF;Yp(~x?@Ai zpoV9K9(d@Wy~ZwM9D2R21ftxg0$*N2kyP23yZ!z;0_H!2FOTTrrZM-elnkxwM`ff^ zpYigw?uuVRgSMM~AIj$Gx--xB<7U&{V6D49e%On-6qb+|f5}Nl_oUv=S~JU0IAK9R z`pEg9_lNhD!EbcCT*7-&5C94L{5(1>BwlKm(V zJT9j3=rX4<`uTu6k@4Y{P!z{WJ+bj1X09v9R(FpZN|obFWIU<-_yvmnR}Iq`UHOe? zLqm1Qc^`%g`msjBA7Wei8qxY#oN}_VY zfLA%sQ{vZO#XSCrJIF{TeR|d~TR}NikmyZiw%1SIp$xo3|48){%6a^M>8n>wl~6Ei zSl=+qFwBsMeS0pQhv~5`n|A;(yUj+4f}@M+AHlI9d^&7AR_O_GqRWp}Ao)l%OsC0ju--Yeji&M(Gx zHuC(af(@#Ktq9V7_ABl);1u|f5l%9 z)T49NWVD?{9+A&n3h&JQ&Ksel8dsF5%r|1myxKXzl;Jf=y-kQhn&~(Ju0&C-G{x8% z@*a`Z96HE61`l~2iBT9JEo`ir61rRYp&47M%#a=%%HzfAe*c>ptdJeqrA8ubkLn7q z5Zbn{{J7cPqj!#Uo_-Y3OfoJtOj?@1mqY-l%|0p_TMa%caytz^R1lX%5j4vZ+Hz1o z%KM2WMzSX5IGZ1K&znnT!ZtY}pvbQY&e&}BO;~ofr|(G!y6RR$JR--8nkFQkaD-rj z+3@RqT>iD31=059^?x~8od2>SbC9hz>2JZIalP0E^)Ny5*-U2jR`>Zw zNk%~ETiwYv{WFV+ur;;H`w+>LUB4QMDZQIE&D8Qf|C=2czD*>-_9N1KCumT8(+t%6e{%h;&&{;@BO~K{&CwMefX;YHZCOO5E9RnJG25X_hIKmSUGF<)Lu|B^H1~ID#vj(f+B) zD2_nMQ_-bmo%qA@s|y#eVp?_JKnnWreE6Pz|1oXJUrNgaWtqRZtEwoem?g8^#)8G(sxuQaWi>T7RhRC~sibrx(TL*dNk69J5(LBktWX?ipi!y%=2BAbJQS&?*hX7+!^_n)kleV>c zcZOSI6ZMjx`h;~a6K|r9H5zkC35y)0NV&3+xf7{*o?=ifMY5gs*StGd{jN^=JTz8b ze}tAl8M$2Z8b<{AH$!lPL(LO>Yb%Tj8FU1@Z>9(5K$8bH z%MB}Om48To6S+QMfqCEyHLKj(O|#BL_TZyfVe(l>40ar$$%%Q{%Uqbd3PS5Ow_K(i zP*L-ao8b<7lQVRCdP;CzTYe9a8oldHx*?@cl)j?1j{4^ZS0t5q2gMcX7FyxG!J}fU z4;FVW_wN`OkTDibY@crdv`v-{7Kod;wO`%@uZki_z^c91o7pk2+!iC(9u?hpVS-ce zkOR5a&atWdb`tvkMPmC-l)Oh`Yxk!Z*T1jV%sDXOUi|gU|BA)mJS?$NXuOdB^QoX~ zxK}0Qp;6?NVqt2zLFYgrP4Yq5u`w9dZmx;AFL3yjoX+R82{M$VjnpF25|ezHmho|N9|-Pew=R`k@q?bkM1dRDP-xM z>XWf@KG=uBl`=o^T#G%q1;pJjo*I}T4$WF$W0^vks(z16mEDq^=?LUIua&tdjBC+v zRaG=FaMJbTm9>#T%4;b-cUWazJLBiN|mvNFLeUM;m-jEO)gIf~r0iw}Ng2;_vCzPtD%|hz$-G%PF1ls_vxB%@s$!3?&^Coz#!zbjVfR`S7_&m#YBzA zRjaiZ4O_p+t68FynWRLbwWvtZt2BOEKQz6rK75(H45U?y=QxKq;~PBMV%dd(bJnaH zamNK^N48xFDSBPOChnD{-vR%{!5uLlRxU90xe{;^eVm+-R%aU;k&tnDRGA=Emht2m z5WaX0jE{ABOXYCRuO=rBWtxgrK8QMa<`=X9ZR7tSP4YGPU(B6TkS6WgrK<~FW|wVu z*|u$V*|u%lwr$(CZQGjaZ_mH?C}NH#Vj}V&4>I%3H{;1WGuN}Ob=Naecxi>G4PqVV z2;Nxj^*!hUHaz%xHt0b-Ta_2co!@bJ*>(NVEm#d*^9=zTrk!jE{rO)*mXGyKq`@IevdEn)w9J0$EE;TE zI+s37fnKnS%u7y~FLZYp38fuwe%_s-i4FV0Nw||L-})XWlOj?=BtgEGKyptUBgxv1 zOOgByKvu zun>{0_2iJAT0(~9Fh|#E~mmBjA8Oc?>1)s5+{B}G| zhpy{5`;OBgi4U%I;=Aga84CJ zHvGmhp#%XxHY20}M$6e+7<64f8GMYQ;VFA?+kkab8FdFttm>*(myh!q@_a?o;W=t)UtHmtPq#7%~C<$&K|QDt{>Vs5W`V(za$*)e(OKc$nN z9oaF-P8ngPH@l!4{F{`hmeI)FLQ`!m)cGrZbSOK#$wq9CD-QenDle?0iK{yxFW&c* z@;?;XEr8oLo!WocyJo&wsB?GN(izj=6c=BH)W6<9C9=t`LH$h9b46EA>-oN5XQuLv zRw7?b9(}_4^r)h#ksd(9EmpXg7wgQJHLQ9HOjXf7d&|txW)JJk*DSB!a@>5q9h0o_ z9@X!Qzt(1gS)0;#_kzaHn@$~gE+#*2XE$^D=J@;M9$$9`Kk<_&G^qXbo`UfqsK%o% zobheGDey-$D5{}*hDIhouN{&-JuJ$PEqj`1dC)M-Mr!rwt%?j0*W+zI_=+}|M;Nm` zF5(oI$m4wm{EV(i<)h}N3lW!NZJd9NvB%#yvoqCY?>6&DwwUDx;j2RbPy?qvirc~S z!M>UbX*}@H&s0D@(y>>0oKcV?-arze@6@$6RFIQ)(#cga=|{dbvr zG1CRL`O$->(G-(!Gs5XH)5e9>mtginC1&a#~0#=v_$9a=6 zsGTljR6i|N2eKvEb(1oL76{pWAW_`}*|>ZOUUT9{xeK93xtgIhj{HXk0TMFjiiZ=f z0?Y#yXh0+nYDWc0vJPTP-9aMZuaoHY@7Kobi^Iv?F-W!qp%+I!D%2y%I^`Oa zTSp7sd~EUM_E$;*=U;3m{VIvOEGx{Se6Hmj@=u`{OGlR)FpR*>R@9jLU5gdCAP&w6 z78WH7zh~z)AwX799fS~i4K^+tcBtu0;$L0}h;4!L%*IcBR!n!;tZdX}&xT<4ziNnR zMVb=JFP?d*dXJ-@0+}@1OR{O$_({q4W5X6Hn5f8V3&@5y>N@dX6j!(J*CXAhQI6!A zl?eVk*r2@?6qa^QiLWAPX6|}mgTRZgt%_lpMSF&KN5cwjYoz)sQc7^3j;a?zpWH^T6-TpjW5srhw_nb(!LinwEBGXa(ibX_3h%K={Phg}b=?P!F$U8t zDEyZl{s2SLe|XV$*c1)=J-&Ni^&saw5XwdQKp|B)nDuHH^n>5!&2}6BF+@UGT=Py; z&1w;6wh?c_ZCs&DJw1Ea(EF>E-R>){WesT3}$QMbcDga^*ajOhL4v5p(j;J1vQV&!w5W_ z`>URStW^$%jc{qnpwo*TfqnSC?=j)v_b?Ux_Bnw&6=a^3t-XvVf`0}yAo|v6XWm7o zJHYX*5k!PT-yH)h1eb@IVgVd@+zvW>#HDk=n%v-TWVxqzBFgB375j;pP`)iW)C2!S?=(p$J&lW6y79DWXKAxR)=F?UzgapNAA(43E`8P{I5gnyd<|E z*$|#-ClN(`RVfE7=R7nbsW{1l9sw zy|?Ak0>qH;ErpMd06en{F+0(1tQT2h(x6OBIK%~Zrh>OkfIu^av+^} z_+BAJ%(fG=5h4WHCW~Yw7baAZ@=GRBHxIqO2M#R z^nruNiig0i16wdZB=_0YhT_qaa?TaHorSqf+3hqXad=a2vA9X8Vpw6XnE(kz*oY#X z9*)3l58Ru%00p_wcqjKuR)nHQZk|`bzHMfye0OwNTz$~+0fq&y-;L?PJDkho=~}?b z9}V%+`&@*{6{%KB=$3920v^wIe1iGbitPu;^t9|(o2l9Usn$icIa?I%Kw*5i-RP&KSRW_9l4;AHl757MUR z<{xJ_9?6Uf)y9!_3JPvkI4>)GKsBs73T!0tHC~z)>qg#=*8KW#7zr>Ro>JMhrtF9Q z_*vuNdvX==k_oIjwS1h>{ONj^rE2(xZ!IMiebiPekF-cH*>2+9wMwah?qSr6>i9V4 zIe^hGZ#jsE?&Ki)BAf|;VqY1*y5Z6QgbIG~psf{sg9&!(pv?Ik@xHM4u7J2?uGnv} ze1VU);oa~b5UF(=Nr<+MdEryUvZAY^Ycchd5J<^)9n_P_08Ia zsF1h+_^tOcL>H(3&1(kKs$6iPz33e##D9vKd;SmXufZtd0CF#KqU zNGyHPXe>@Qt9n$B#tQZ@CCNhf$nN%EO2OUsWV^yIa2Yp#c+kY1S#>y-tH7>EsURN? z->C#p7gn=Rq`*`$N)8dC!3mT=wRTEw^j;5pYBcEt>t^{z0Da4qHKD?G&%A71t!X}O zy|3+o+=VC_zS2ppN)$h%VYb$Sl(o07s|uFiQtdm_vWM*4FhN{Ob#&2LRjrZ{FnV(gltB7(^RZ%P2R8uLDYL-u-bC50)w-=BLw6E#Hwfk zC&OfMXH3*$PT{5bxY1YVi@@ruk%jsf)XFP~Lf2|n+U7DCVAAeKfvoAjI0d19a|*N& zn(4c9#wu^!k;jBI$PB;s9$Zafofp+ z7V>50Eu8wi`mFf%E=tR@bu3f(6Oeq2ZRA%2L2H$!3n&B@bd54eNrdKcisNi;wnCn( z46hx#TTqiBz@e||W<5bhD===-U9U@@)X8^5Bes)OBJ5_gEW(bEaM&6zzI({Ujb{f#u5bm?#`LGmoDb`W-8y zK2xxe`T{1Hi-9laM1E0Yw2w>+eDrZgPa$ddeFxrKC@i$ zVC_hq{?W9xh8j^c(zD7*beF=ws@LO#>v?gkVS*04d@QqFB5KbciyTE?YV0}K zolxUC2X<&#IoE9Fjg!?pU5mjrm{h131szu~l|{gV(_uQ9k5x$aE)j*~_B!73PxL4@ z#M^yh^I~7)zDVm5i@elgu>K>g9Vq{)U#%yW!_nrdLJMy_ixl!^b6C{KQI{6MP&#?B zI^^mJebWs#Vux(c4bz!OHZ<>zPh2<1tr0Z0J2r2U^P0Q+cPmNe0n&k70{i9IL8#HJ zF4(!Iwxl*TmchXqCGA6_E5Zx?*;~=?@1Ng_+difPr|KDRsIDt4){HDmLgYMa8AI*F z3O`rY2x5q+bjsr3C;gRVf?WRM&Z@=ZNH&wePbvW_jDxe=y+&9Z=~p;Z{(VfvpX$WDT5=rEB|azQ#b@Hx&m)n)Pcl%6660lqF_BRErsxI(vm)KX z8#&4meZ&^DQ*&#;Ix{%uhijzDh)DsT!F62SD|&~G*!R@p6dZ=1>#t-J5<007mm>qAnIq@I4y`Ymy@(_eV6k$K~lAHuM;ksD>)%jJj-W0WGgZc zpU^6A61Bz>*f06b;Yj^hmph2F@ND<@ZB0}NU*r^Y2NOH!Q<$WJu=v1Bp8^)Ma)k9! za#=p@;C)TDzeiP6I-?~Qw%?a3m@VpT8azU^VoC&%FzA$I+n!2j+j^Yt< zk3MKYsNV_F=ZZ7TY1`CH6%563)*9W1M7XM4JbZ*_&GmC6M+&!LTCq6;oh5`XmPg{+ zHBYZYE!>kQy_kWSmR&)%f+BBwUpqZln0 zxc5&_a@5pU(jYo7O-q&RsT<^~Z)gaIULpx4cvNXmChO0sbAQiD>?!zghE29ebFI6b ziLV=hB309(MnuWKv{IHI-jQXrDG#fT8avb!c>s5q=2&1ED3>jH$@fRPUAI79EqpS$ zK6QCb6r|~K62WuWEBhlw=ifvZ;St;Ajdm*27-1-$eGY(_OtDUvB7;&_W*Wd4pIx)Z z=lzTC5H3yEL|=XVXUHPy%;L#+By6}6z!X;u?RZeZ0hzB0#d*|ecM@}3zVVc=*2*eo zhz~H@vtww9lnQ@A)zG5;b>6p8mOH+XWlRx<@^B><+khJ#^@AJ?3><*U6OaZT-ZAB$ zK{^x3!b0ZLD9+rn4x8GRX$_hxTZzQPI!P5EI8DAPw*R#dKW6mSw0ndfP6 zEZ8)=?bfPt)$EbA_#YcCLI{@X5pt{+!Q)>0H{@{2gT13-f^Ed+vXL!GJLQ)c4Q56u zkWmS2R3kYFzGV}}OC~(OgoX>v01l+c`iOoHi5K6(z zmqFa2zCKbBNqtRlO;V*8X1ZJAq!2y;2iUt$Rf+;hAaI7wn9cH`>a!D`28(SJ|5FEu z{uDujPpMW*A%CQkH8QK5IhWE#VzcG`gCf~DnizjGGk>8Fu~;ucmu%>)#fSX*+2^;W1H>M5XTc zFb$6tAiE+GQ76u??lml2uN@9Dme(jS7yWzVB?ei7x3229+tok<@k*v}4l9Ltu|fKY zT3{%s5O2AAmj6V)a865v*d~Hyx*ss8>>fK!p-PsJe?QWTHV3+vz001${Q2?UuePFD zpMOX%PqCv%O=D%GjCy-1CA$=)P*{0e7W1x4M!n+d)TT$aN*cJDC zu>_5W`U1-QvY_wFJ)vlo*Xb0&j&huT!v=R_+lFcVQ5ait@E(B(U>!i5OyQ?wjAyzkYOaiSRqxWkJU(2 z7QX@~xE~lDY4>MKXqv5%xy}YglQ#d^cHl5>xX93nyC(ALBR`vR3240-j{Twkl|Dv~ z-1`wOP+IYtbb0OF$RU$fXt9Ur_<>)4U5x#(4#TFprV@XzgJx!A@o>bbt9iPG0{`us zxrnF4kG8=L7SIg9Mb~cj^ndQj_|bpglTLICiO-KoG4O&-kA4-aLtNJ1jEwUzOyvR= z$V~4cG1!A9fXTzV{ec_P0m0y!DayxA$U za7DOpYHF6V$RyL*C{Qn+N%S6y=d>yyBuZ;7J8kU)&i&+AfL1#4vX20FG{&ElS4m&+ zwig&W2}&_619@?ohnPTh?iC$@<-=R{p#*Pe6fHPke-c6NQY2Ts=DY0)8HQfJ$ld(X zppSJg+QoL@@fuK3?e~!S^^^HCeo_-c!37_NGp$9ts&j*vtG*>l&hyUUOEQK82$oA( zT;vUMh#&iH$zPPBkBJw!k%3u9^!|`ohF{{C?|@Tjl8fB(gXdKbh9~N_Q$Ib(5UX}E zDbe)h_@9)T+L-TwE41YDohKw!xG1OH1PDhfQ?%bt+v)0ZN}#+SS2Yy${Bf4^$C!Pv z!+gg%SSVaCDf0)pHr|a@wnj(ODc5rJQyGeBiL}Uef;DK zAzlTy0l|@0{*~IJ=a@MB;B)U35aNz0L#3w%h{sL?81@HV8}m>;)U7cUp-Cq|duWdv zC*cl7C@uuyREcbGp#2{hp@3+h5bs};Xk-)z%FGeWas9Cvr!5w?sm;1u7_V%IB=i+2j99Fx{e1ZxqgnqQ! zcoPZ4@OpUzRn?_N^5XQgf96Cqtwh2!q$PUIdP1I^>CLwJ*};ku41V=fjNMM@Nyq`|{KlTON3a;;v z6_mowqV1*&J|q=LOb|6i}8Zq!pfvr)c(yxQ>BS z%kPrPNhe^Cbak&q;|T-isnN&m(xlUC!ouZNQ2Vc$roK+WOLCkk2+|?58-EH?#A3IOL*n*u< zr^Q|Jf8msv#ZLqRqcn;O_hTI=<*Yo+{uXh$7t;8;sP8ndtC#30P5jOAlUMQB&}fWY zizvy$a}ErIk@F7KVUELDZ!5NRFa+Za1^#lZBMy5hwX;Bxfb|G5axK?X-Tm5~Mg%wh zk2R>0N6X;=dl`ouOnS?dtOv|KiP(WzSB^P554PN`^6tukX3AFVzxB3SIAGNtnG9L)H3$U9MrlS)~LSUPiBXPgjhXZ80Fc~)Qd zT3^>yULP+*%5Ghr&mU1$-@VQ5la{_dCvd#pUtjyOw7gV@uRgEmq`f}wqRgJ2PtKyc zKE`l9uW&wZud22_Pu9LZ&$K+>H_nQ(zV0s`x;{%f&c0q@tE{}9_q2HLzn&bwqjoT4 zo42%j=!BFW*9pTIz#GLItdk^pRaYATu>xV7BXGYsuTt??5r|Z4HBET9Cfc^%0x@GJ z9szh?E)E|LKeMDmf%$YKRKo$9)}=jpC+#nlSSJAYsE5`4>UpX&Kb+SQM!<~AEsv@t zy79*_;c6L#z2AAzrx>!M;kr-#z@R9hV!{l4D}rfr-CSZo7%bT^pz-XS3%wzD5*x%0 zRhY-VjW{dSIlK0)5_cdwi4ugrh?QFqMgVBx(a>l{Ed(vaU0Dlx&VJH#!O@Z!TXNz* zMnnT75~E|-OFQ1L{|Jd-!=;^NL0DN)nk6kBE;0W6{t^62Asq^^0N>sVoz7LsP{X@g z6^W*^q+PeWYRwATd!{*y8cie!+lb!7%d((mM$AR$u%D>gAjP;)p)q+ceH8&ES;~16 zj+_?Ag7hiliQJ)wCng=Qtm+JFE2gRp;$Y)1mqs_!<2a6XY|T1U&jzL=8FH9%wwKz? ze0KoYUcTnq!2x>1fMGD5Q-+_t6$84)Dnt0f<=o`ESL@62iUn(*jW zR~Mw5I9XXIq0E(F=+tbSy57U9Efs+pzr=tZ6YMiRhL#bzyH4EixROp!o_et)J513E zLcIOLQ-_QBmzDtEfuL4L<`c7o@nJo!m}PPtEhC|ztTHx4o7QBHTabNui(xB9s{k7Z z!KvLL0&k+Nk=^O@7DQoLP7?}8!?oQ^FI?~v5n%>mV%R~^*`Vb6HUGEzShjM+92`w7 zU`?v~(0C-nAzPj$Z@UV-qnqW}zVOo8nwC))^d};1m}E-O+&gaoG@&CjciAA=li@d3 ztL6jWP1#N39W`?Mic%>MEf48qxoQVhn+OD7le=pc8bSZ93rtmkepa??b;ZI4>+zW* z#a%eGV=9gaPWGO4++$oCHtX5qREN;kZr-D_>4SJYI}5Bh-g=oCnYUpM`4I(=gv-ud z5Ve~?#Y#n~>p?={EG1d`ZVPT_9RFY;EwFJ*WpViO*!+@u9n|nE=$>Y(k6fQ=yZ6KMqYQgs3weiXZ!OyLytubk90KoOcL*6b2 z!4$oo2h)EJZ`xaHv6QP4=MEg{;W~OULpN=;YCa((curbV#)p5^Xs4EH4h<%+5*NoO zw8C%lA#`0Pw0W?*bOj~UEuvi5XFp(7^Er${=uAN*^s655Ep_}ZA2g2BmhXh@%)%)e z%TEfqF>DiGSaI+4BeIwqkt0$qO+RUTycy$ZFPJ|YNJ~_$KY-DrKZ2Gx)a77|!MCTv z6Ht#DXi43H#IWkWyRdZ{2Xh$o9P=P2go@=+B8vQmPXgNpgj9tkhY* zPZ6IBm?@`-VA#UgCo?((i7v^xpia0-d_oIzG|{-TV6;E3!elX1np%7OnQI1$M*R0Buk*sw{Sildm zA{MBjDiM@QKp2y7;VfHfN=4(Q4Uo+a)URFU3u|tz0$p@B_b1(q$abm-&JYAe)GjiB!K$e3 z^`gD;X}7hpvOTCQkX}e6qkc55V+CyJIvQZ_mX|pt#SI((f~xq0Bv!yITwcFW0x6V- zCZU~RIo5@!!1e|t_6JG5PXZYhB~EhQp@%-B2J5O_kk<|%2&a2AFfS>X9b_yoho7v# z!_N)Xb7;T?cvdh&v@F_tsgiDpeosDBonK;~^PsJn$vB{`o1t{CdES=GK&`!)K9x#A zF_nWD?7sF5>%WBT*D&rTvc_U69UuFmD<6sZTW^L1MU>ece#}|~1dBZ32Zoy?X!YV*5|8UK)Bvy8krmW%+l*+yCF2_5N+mD+j^F_3v|MrTh1}Q%e|F z8rd7;(zDY4-Rl3=tapQB%#xy|#?4ERnsZpT=!F<%1z02+z$p$5NOe6fzw3!xR@tlT_1F8`5ygUo zW}f*HM}N+vW?iQoA9NsCb?58J>CNd?M0U!omJ{rRl~twZM~8*Kx#eY*0DYbnM!;R* z;o*+j>6PWD>qA@Gq4Y;;1VX$1UU~OOL{eW3f^a#R^+e@GzJ=wbHZC+&=e>%5WsOhu z^X;5%n>o3J|2Z5F0TqLzX18KMOdoB}cdzky3ExN=v~0Y5;|d1wBn*MPq7<`=9;+SZ zu(PS98*!bVh!!@lLZl1mM6(>Q@Q9taK&z0y)lT5Y@s|yo(@hfSBXS2i-?SIUTNiOz zUFX9kmc7tz`dISo2`smle@I6IZNd%#+d(jg9(b7fN|931S9s)ygN~wl^FaLYFns>- z{=tM>$HT-h0c6KPa;n5(4WH}%{$SnE(>~cyt^Z^FZV~3_p)>&>pjaY1EozB6nst`? zy)EAC%FS{T2Ssv1j?7$%2Av+mphpf(^_3VTuD2u1R}?K$mZoH#3_^+0@Wu%|K{b=h z6K!{hM7*GW2P`CBs)1%827!zhzb)roDkT3NH&p458X;p?{vyBZu|aK$--y>I_~!=4 z)KXUJfN5L1TV!mj%EngL`F7dGyUkPe>V*<_Ri^UT21!3=Av2ehReSG=5&p9waR~R? z!6o>i>PNeVmqps)Pvqr}^~=k~vZA96k#A!;PGq0Ck)g)R+nzm+sv;z{5j29+70IBA${^LwshDZBJv9i(|3~*hEvu+tW@+KTcP|}N?jp1U0HtxOYJFU8FQk#xc_`Ya6%`8fg`Vt zL~C26gn(RXiWbjLM zm5_WkUj~sk#bu@5g~=lF9A2HWdQY^HeJG}!zB4|r?L{weTW_!?KZFnmisz4REo-^1 zQ(90FN^}pH4#Ub$$}QCiikKEwBsd%iSRW~7UQH2@Dw}MCrjsQLajr3%fJ>I~4}i)7 zRZE^TQOj8pl97mLSxYDcni0vJRJTZkVVf_>gH*_HkJzn0+apd8FRLMc5JhhVBzdanwHU^kv76Q5Z@|GcIg`w&exul;aE1DOlW^ahD&PyEfI z3j)JS3gtA#k6(;joEhC*5j|aTNrwP}=S$rLU1?-Ac@%fPj?J|a&UY-E4L7C>%n8M# zh$o%9TeqiTTfNunAWS1x#JLMTr||yYH#mI-q=MBxAW#>cl+ue zuqfs#+{~Q*Zea0QTV#an<7B*)+?yums+rOlmjrlF2{T|RGw0hJBl3NJ5z1R_2;kkf ziwh27CFHcEwFlcou3bcl$Z?uHo*onfkYf}?vjKmoLoqointNH*CT27hx8q)09@f5W zE1M4^DAcj&>qj&Cqk2M0HZS8>LQvo=T89^ZlZ<$%-4wD%pOgye8q>*F(x0;M0yF~a z!}ARKPA)D)`Jo4c z%<8L@Nd0mEAzGh2eiV?DP?Nr1MZq>h|C*d{F+ju~7$IDYUf8>{b>r?*FT6j3na3*d zh!0a%+MR;V5z~`YBnil6MI{)2=~rMn+(nzSN)8k5(W87k*j0?L6oErGgE(_2`djZ1 zbg43BTX+TsZ}D{Y@Mdr*GETt(jRvB$n{j%euIx6Dl5%az1%pfKP0OWz3o4rqeYRbW z$0V9>OT@v_i*H4}o0PAUF|8ZLw}P~~RIgQ%Q%0K2E@qDbw_SrX1odZrFlq=HI$4xL zRDxCLj*QT;5EID`yb>}0lA4!zXnXfmnI6ziz$NujQno1=j_E!V+^fvXrKPv2HHIn{ z%Z=q|F!VR|yC$nmbdTyR6y>WKsxa(}AtXw)WFt1XK(r zY?Mwmu*fl{WEY!6gMbKQk}+=Hr)-K9P})Rb&!xdp7$3twJiPe}mZ3TLlHz46Tr)a(d+?w9(i}WndUbGa5^5hLRwE zGihOmg|JO&bNQnEY}4v`*J~Mz;5>;0CwfTO9VlcXnzxo;UPQ9b0@T%C8p}#L6B7dx zB?}>gCNdxnuwPKYjGqG!Vgh5B@;%=-wRg17>zgq&ax_lweppz+uMrgoxZR6$_vpKz zIRl>;Z8PK2dh%#!N=q6Va8G;Fe-m1+ z;=*!ClcD5{Vp1ml;?@$EF(r&JNd=14tK3C`rIu2I+s)$n%)@TQ>L-vYnbf|X)O;w6 z*TkSB<^xjb9gt609qXk&kS@VcDY-mXmUcx*jlOCHDFPUgo;KNtt@h! zvTid*+~i%uNI!VlqG$#X*SH_DMqdp4P6VH zF5!p}gfROmNS2f#_x6zu1YL@QXTUh9x61;Oud4F}e)rK0>HRNAM=X)S@4l>oP^EE3 zaXaI~#%gczvjVYwr$M6PP?%I@o@AEnd|&Y)Ngac)O(Y&+`zRqGw4M-x$Mwv=EErub z$2U1kjLS$hVtDUg6d{zqpWjEyw4B5lMGEuX8!yK4GI0{VeYxm6gh-VT@ub22b-tEI z9oPbVG$tc9s^pa#bxFmojHyeZ!1#Xc}wR;Zeof%K{N{m16GQq?UkdZB`~mw0F0t8TKm zkU>-n43WH!?zkb&J3Q#$iHv9bpU&-wM&CWre{AqbRhqP80P|xCh zJcYoRH~`9#oSeZJj}MCw!MJ2|Jv!_Po{eGo;P)da`)t)imXh`<;<6|<3}YWRORIF` zIZ-#1$7JDF&NE?ep%76m@1(xO^*6+xX6WrkQeg9cd8%Ah*8q^uWCb&g4*(j!0$ZrS zCQuXT7xx*=-dwn#bdZv5tx$dy1yPBihH@R0ZQzONih7qkX`wV}f9!yvv)B_p4X@M$b(8>79=M$wR}v2i(*R5+kjd#f4(kv)O_22$1(!|1Re3#@cSk$zLw zbbuD0ARPi>l1ld5bL4CpdUZQ~4TZ7!&31mHT` zU45B#5P-F$z%!`LOyZvO{jq<`CA`n#dyMFvR)(W(B>Z^1QAga+u3XsDeTlLe>lmX$ z8j_9V=_tKf(-#X^#_U^vUjxxMy}st1vB?5quZyyx@OSWh6$I$TKpp!L)gLd#1?eJWTGHTPy5l0GrYW9LoYS zA|eEKeZ;gpD%KCkKxl^)!#fI8Gk;vg{s)vK)j63C?TXtreG)#;7jmcwa0L@?z{q^K zUgw_*4MwiW)LJ%Hyh`lp%W>BiqOA>|3*va;UJ?gtcbjoSx`$^LTOV;yFVinr#P%5U zUQwE^@DY&l>G@Bzq8UaK7FBb$?pyGD&7Xr+%4o(Ed6waPFr6oYcphBwGhyOnFK-hIsGf(eU{|pG_#5d` zlerL@2B4(c(E0WqC_&mQ!tpgxPwIeuWMOCTdDFA~n<}&x+-QdUyIs+qnNkTf*%rNl zvV}Ixb$W~@11O7H+Y!#%=mnbYNgNTAz9IpTL-S4 z-EkuKkW3G8rAcSBt1{3QREXUbK`%CdvCy8w8KBC>ksxm6ZXzkonJ;}DQ3a;U2dygw zQ;w95{+vtN0p?_?{UMqEBUwh2A1gnZpLXkwN}!8sx9LH5+)A_JwVxhe`KJBrY3Pk zaqp6|7tFjv2xwE2JUkhKdXHki^eeQikRVHeth~yMEC3DV;^D=&sEFI#IPg_90j8z zl`uKBz2DCt$M-3j=h@Z#{7gB*M_z|cWgGpn$qa4R`eiUz`$g|R*5f}FC8y>io1PtD zz67ja@0@;7#Z_t$pZw~4{%!RVw9seDxmDTaIf^W$--r=IrV;%71vC_~6!Cvh#{No1 zf0Z!?CK|^7h)cBp7MK3t3uAP2xZlfPd5c<(mJ#=R`PVuVF4I42-=f#|Ld|bwX>VX@ zZ}%;8{cG$0Q4IUL&)2fSVt#v-56$1AWRe4LBgiTkRvXE)jL| z8|>E~oNp=Xj_CbsB0@hLX|{S7F0fR0;8Vz!6|EKgEp21s=CBIniDE|UjQ^&sEiKAY zvPaOSsbgngwCi`idK1+pjI_U}>r+zN))tahq#JVVUSa^_`tM2#S}gHTWH;L;5{i^H zcW9tVoiSztB*yZQ_`Kb9%cqOi*^WypO?E^yQH>r6`K3rw?naH4ix$SYnyfn(RX$wm zD(P?t>7tuz5=Gy$75PnXI&8Q@ijo)=m+ zPhyF!j%_a_2lmvmk!S8tpCJ1%d%*jjQZG8tH@#uNgv0L=f9QU%Dv2dx*7RAoQk?ommC+e zj<&AQrdL`VT$^e$;dy_m)A$@!ctlYKfRiZ%7$2sY6FDfv51D8of~Mu=wYPYeb4aef zge^KN*bv~9D;6F-i#gO;ZF*wh-2pBD6h&rUHE-Q36M+H@1MkMSneA+`ngXgIv>_s+ z;1=~4U9j2mc~d5%eAlJi}k|soKq&v~Tnv6nh zqL*YudH}FERgRnq{w|CMD8)xAyL2|0s!IEi@#bRv>0ztxd_fVmTiM0%rpta>=fR!XhE<>u#Z~Tg z@LBNTly~ekAd@dhs8`fgO^E2y($F5l$YeE=dKY2kX*Vo?Dik2mm(Lc*wH}fwRXkbn zGfh&mv6Q{DbdX{zYVVgG68Ya%hdUfT*n}VTqBO>n|9tZbrtWyPkyV5FF&L^Nw7p^*={Ya0R)VnU zz5CV-XZU`dsY93v)y!Yyimd6|RGko;F4KsC49F8}hYVmSo02JPkS=cjdv-_zP_Hsc zn&+S_N!qWN?C?(7%=Oh9d>P+~6G=4N3Z2Dm-6W@~{(Kx3G*NW)=!SbK#Mv>;G(R zA<3n!<^k3uLk7uMP4#PXYzr9Q@Y#Txn-4b8@MfNMg`b1EUG|?w)-M6(X$+43*sWRk z(U=g1nW#hpPeZGP>Fs*_9eza4@DVjZCzkLWGrmy}GEYp^=q=aggi??eB(btE@ ztB6gZa0a#m069+6zf_qTt?`50p)gQ9X*jUikLKNIru-P!bF-1|>r?c_YwjPVhx%iK z3|KVOHPREp-+pjP3AeR7A#Q|0B~>W`$IXq`Lmm& z8aeaJ?eoN|PWmg(FDII-;@<1@3yAP_Usxhu*M{mGo4CmIM%?=XQ=Xt2Tu`V1xN1}Z z{!hX~2T;jfjZ4uhLl1?Vt?Sna_Yfvh-(d_wH*|jP^F=t;;6r@)L;SN1DY)2@QcC!D zA<+iizhq^{cA&yp_rNvS^ibgS(1g(@1qCZm249&FbE)vEGpl*cXhqvub?9xn>{VIJ z$&8O0h;qEbuK4|967ap7j*EAUZcIiiB02!~#d84`63rV=H9?U!cQ#;|%Axt0?w3r$ zg2<+QlBQS3_%8^q@z&cA%skFb_VHX+@ zQ%4>Mlji<9-P^sZ^748+xufoU-ml}HoKxY*2XBKA&+4+SA3zA5`aKI`1 z1z7gWcdg!Hp=xPKg*vQQf0k^5Xz@oidF6|LSXG+ck`_S~1z{^)PFNsPsODP7s%GHw z&uTpoC7q24G}HVg8K(lNv0rJHZ6NL(e{?ki(Q#I@#8t`P89GfNym|WdM0w8Y`I|4b znvM$4rT^^u1LK}(ZlAc(OgPjPl|s}G+s?)1I52$2yh$ znc{xTeBmkUP+ac7cESI9#3bCyFY9TD6DcJg-HjBnS<7`@6W>xiBpfajb*8`XJH+?K zPDWPh?QpqLY62~JPUuE;p4_ZGU9x=6!9cu#vGSTB6yy@u&ar#E>p}P$CdRR6nkHqJ z%*pX1$7=yweflU#TF*vS&SqxL#9;8wF{e>Dpw@YFdA(M&?oB#|Emb)OTZtF8A=ec{ zc1iPcBr+c}fX79hd7qreftiK?v9~75Fk%_hvO`Kdw7cR{vQ3o*W8rI0T|>a%7C-i# zgPfqVvTS?s=In>UW)Gmi{HB)t1PYoZ-?)k5{HWbkYZmMhk>cj(WNJu!t>vnrwB{F7 z2pHQh!coSQ)7Jcfaa^QAv4rLy;y67;LMp{G;|jaFtpv}J#fQGv1oJgEbvbPs9+Hmd zxsgQ5rI$iZL4l$YkxV7ifeP0tC6bn{OB;onEVbj297=17*1*ObIpP=}01q-PC@q8s z96~QN7NnOuWM)B&dQa8)uH>?uLy%aiK5p(nyBO+%jfG-P2?(>qsr@z(uvnAJWDx!w zX`&=N(!)q4`mz#Qgf z-qf&hKjFn^?-vq@??fwBo12JHAToyn%pp}tT`Hc)rIvH7vB5NS)zsr)u4yajUB3Dc6U#7cm2a&2pAXuvTYOOV{WdDQ9sEvD zAfpa!^$8^U^(>`3SeUWjUCmr;*R|Rtlyh4h=}c5dH!Hn27sf`>G1soGs#N?C}ZgIGJ2H)9i;Nr|dqMTLH3yPc>{g8Rhe#duzlKYcIQqE87j(szyl|w8-!_GuI4bw#vhN0hpxK4t z@LS7y^w#81Rj}lM93%T^WEo`Gbi%kXt!#LGIA$S=L1TmkIO=540zD>p))c>SqKC5f zteabyU1m?Mt;qgo+n9QU?4A6Ze)bW(*<#BV1$5nmJG8^zQ!fCW>O*IYB)s_NB6JSR zDjNTanb$o(pOwfkYQn>xcaY$s5n{3kNr*C&MwqzO26A{LHJ20&+Smqut_N1a2UaGD zT~R9G%_?6mCERf!O-fOyw<&CnP3rw&^zKX;c4X;QrE$SKqP_R($&bIs@&x*7fU+AJ zhU0G2d`q)A-!6!$oUT-`oa2nFA!Y$e2%Xo!`jU%RulLS6A4J4J>4AM}mCRDi$r z4FHh+KlBaYzx9Iud3}QgKnQyMqiOtiS_c~;+rN7J_o~M~y2yW4J^mwn=|5DDzXOH- z@2ZES%^EvO*E7_Knkba5#UmOS?OiN*`!Ww)O}&9Geb>mkd9!mtvS?*=!XwwUXi5xq zc!9dJe+Lq{9%(xDPms?U4jeTTnfUVHva0jyeOv$be2h*JXxKrhb{?EZs^&6C6%%YM z=;GAEsr{NQ*N*a5e_GGhtm5-(6DOCvepYSTRBOX*{j;)e^(`H}+WOt)HfHtY@G%3s z_+nHFeV&$H5+jD=HPA->TDr4R(71V(CLL4WuvxYqElE28nq<)V*YkC47O$}gPCV-9 zL`2ax_+I$D_bGtYm`E7sI(MclwXqvaVavf@5#>L&KEZalw zM_xq$4Q{dZm}5^2QsEk0VL?)tJ#+AI>H5zsonn6{YU@QR+brkj)mo0MZv@1tDWbkT zr!XqWGD~YO<$Qzd&k1ibpk!s-s5I%-qyy=7u62lHw0Y`OER8nC#%y9&PF9EPW^#iq z!2!whNlL8oM(dtL50W58AG4zIOhwJ^M2-Xz3G0!TK7uRKT%C&YFAsnHP=05 zzK==O8~5K844@2*ek+EOWolgg`#SHiapy#M-auYU$tgG=brcFpM@>RUniQp=)z9XGYiQ00KTTxjlFu1YjHMXQ}R*h zV+|4@K^eW>Bgx}D+_9(k^3qCpeKlMa&G+H$-VUO!M2si`0}m`kO}AjH>pXb9iom5r zXRI7MoIlv*127rPvv7w9_{LN|B^m~ga@yf6$n4f>H;vo;O;}HGJ(t`RCO+BSiTP`u zapTa#dii)u=oZd4v1{Nb_v98~*qvOR4zRr|lvoBmRWxKc+*?0v$!6x8t^B+4QXbwd zAOh!(X5jJs29Mscyc*eR50i(@^Y9dICK_R+V(zp-{W;F@4ZEE0{Ko>w_qCju8DO}8 zVZNAe$SKqpWOUW8c%xJ_E8R!SU@nrl3=5>&O(HnnfxI5`_OrES(X68^CzElBAoC&g zZ;E-Ddf3AKXDhF7p6R0>Ewk*gIcHSQS2)+W;z}ejL`1x9taV_PI%>!bkg#r#3=6zf zuaS^m*G@+r+$laE6A(3S7xXQFStmFqB&2nTK&sN|2n5No{3yJZPu^jq!1b zt1F-4Kl01#3fs;+rwRJ?B`RRi&v?4dZ!Dku9KpKE_l-n1mxo%FWxeChlF21Yfo z?AG7d8viXPz>O=?z`-3an#-WYOf^hGy@s8Z>eDKtN&EDBXNH&~DsC$tNwdxG+GV=k z)m$FI6il)y+0@Itm&9N2{gkA&VaNjYlXm8!e5HX5Nwqy%ugJVfq((*ZZ|P-G0fOpupH>MNAv1JN1ro) z`x`zG@EP{AXu-@k!RUvb2xdd)D2FO6~&$ zHBZt=d4)I>H8p1d`zJpPwki_^)x^fB_jp$Y>P@9#ij+cVOvjGrt|SM2b@%8Fvr(UR z6<%lBJHfxib->R3axC%MPrR_8tQh&BKj)5 zh<9@m&eY>`0Dho~vE*hk!4dX|340e?-`Bn!Ih~+L)&@{2*>7M<%gT$@6S!23aoUuc zTzb|S90gFin_MIr(s=n_�g+ zQ7h}&e++4z=!_!`-pk++qmY{lU7z%2G34Age}!N410UnFLX#;Tk5^NvI8wkty?k%)FftD6VzaGZ`JklU0)jVgIY*@a^$ zus|7s^L~GRy_~xc*x^_!hSk=u0oBoFJHC=tntoS_q3KZc_1U&%^vSuI8P6*9xWN7= zBptGHNHGf+iJ7Go5b9{;DC(dLO>ZKm|8aYI^44e8+?CPnaTjKjAZ|K5E;dHMP+;WX zBFBBO9&ls)1J*r!2~*A*CNVHS-c3E*W%9X*>xf&gF{_o-knn9DYry*VDG{!vGMn?S zl}((=53f62qeDf^>dzX++HB8y^FvF)5O%URWVXFr-?kc{;-{NmHxm~hXwIDn)EhL!)^T@i^0n2?oVa#B zz04Z5=%4veZl@W8l>vsj!x;z`Rp%5F<{p|??94ea7)qgGje+>x1s=x`7M_8?i|%7Z z2a@ia8O6Zx~UTaf~0nq_w7=@b<-=;mo4f=lxqVI zM~GoC0dipwG8H)>-6Lkk+F)&H>fB_TH9_)VpC1?h2it+4)+2p{IuCB)Hc^mYC-(g| zYB%q(q5igE>Fqwmu>vfk;C|mjSDS={ULqK?pu2=`QinxS7@>4E z3-vw|>kfGVAO9l&`&`{m{Y@T@zN?-RvRradmmke&X`NrKH`WM-QrJ_gqJPITGg-^d z`XW(v#L2*AFetrTekQd8y6wk$|8$(8`fetgPCd(%8|W!x$KK+F=DaeJK0q$_RU#jX z&2L%fev>_pZuKfp$ZDg)HCG}FP+8E4`g2YqvtH7!3M?KiF@Y$sYuXRNyu1Z9Iu_lz z@2k@ajmH2J8e36vlI>7DpQa9}MftP!zqMvR zZQuN=t|}b-8rL*`_zbTZpl)uQB*w3_yaV6}c$Tx%0Ev3~CM05I^fZs&3p3J#(bcK;HP8Wxzi6u_|u*UJN8C*V5 zBi12OfiDw=RVX=L{~jRFQjz8VVEiC42>ss~}7oH?KK5LJ98=f}TOmubr?Dr&JB`ue?=}dYR zc0DyrMGid20V8zsUN5ffj+n0i@syIZ?qBnK*#W_>o-D{QR{`Z=VTaS7vl9TU%0k)o z&fy<}yB(3I$;P&UmKSgJ>9pTy-E75=dP*Zo`-bqSc4&14S=~cP-`<%%_N(!U#$BooIe7IF zfo)Sh+)`Qag7(m$1!Of2HfPZn)k9GNgf9w^MB9~%p6s-4}SHEdU-^+*^I39E&&Orgj49syxW>o@OF zuZJ`>)C%{;XLGw+FTRanAE47uHT`}z(TGtjh_wB#=l4STe{iG!ax4FGqnTM5+5W?g z{>y3o=V$l--`!|&D?Jk<(C^lYMy`%punZ!gU;hcYxnUUu37J{`i3?zm|9|nU|9gM> zFYoz3r_=xe|23rs2>5?WshQN$3N;j0mN7BW6H{44hk^{c?Ske}Pebp%hgy_tH!;av zFnTHu_Nw{9TKrpC$=ujT+IV4}m9~YQm@+E-f%2s4x^5!i;a9{jCdw9Q|A?)Kt$bc+ z-p~r-CcCLH51X|N7239hbc@7;;E>XLqoKTtH9nb&+l*cFB=cpkN1VO zhLL1UMx*gUN%e+|$(l_?N;A_Oo z8XG9f!?u8>Y8o9bE9l$YAE5z6?%4d zS~OE&0E`O?0t*Vc-`f(4t~Por>vxNS8(2scks_%rr#9D5st=1zaLYoRzWX02`km{3 zP`Sxps&&mYD;Y1A`b=6<+IO<|{b#C16vs~_3_<06VUc~|A>>|rUP@VIlYR1OX0j%C zW!s2;WKq?F!{Xxow!HC%#^RqGIFyAFVPGQCmXohol7WX2)jqJA#lKYCPi z;}23NDh!*bANv+^yiiv!-wOE57o^nIP&Zpc9YoE^H1GCgj^5V>t;uo=yHA{BJ__$2 zZ1faiipV?Zwy^v4L8wR}tBF@m!|9taBo296Hq&lPeAs|mdr-}qpel;LT8fap{7C6X z2485t5a={)^fZOnQH;JoBzZ}J3~RMlE{!LbCiQd0%E~7xU!{ttkmiavO{J$VT@qh# zkP6KBEFDIqzvyBh!CMQMXZ3wF1~oZ!nMGf883xY7A|7Qk$U&F6qTtCeJ7cmpGI zDm<)(9?D`fNoQTfPx+cyTwSx_N^{AUL`HN9l1DuNt$IC~x#S8QR#F8?VF2K8qMwL^ zDWMXOKuw3DjrD^XOLoF~_o9`&@NuuNWbVMBKA6K1GuT-x`U}!$RjFhjdYmb`G`1J< zqT~+7fRQ;^Na586x?`N7v3YqmW7il0AZ;2}bkH)k>6C4;+jHgRSr*jj*(;mPx%VjT z$+`~HV0-iVhWOPwoAajXNtgG%L(XbvJ3ZpTvq`yA-|bn}!j7j~o!^*7>Wi zu9YKVeR(#i_lfOz7|S?+>221=>b#-I|8nvhLz(U5%S+p!!?E|v3{5dZ4DYk+jlGJ8 zapN(tfTtbd^!y@bWBvKq=Jl*Ih41BvZR0Uz=9d76J2Oz&h+q({@>eK3hHaz%RvP+` za6JJR`&}9l<7HnOkplspndk60GuvB)TK$4>gAc3dB*N462sQczaBT@0I*c{NxYmOg z->ZLl4Tci8xQD1R5=Z>q%kl4Cfe390xH^o2koUzr622(L|_=d5vLKN6L zsFQL-v)Bi;U&o-hCSsq&WSE7>vv=Vx!w$K>dggIVt8(^dntpq<6~&SNGMW}VGT=}` z#Cw@(9x4kQ#>r!zZVgUEbgm(~jmxx*l@b!g-9i1a9Q+{U&{FFd%&{JO)f>%L;N5Z! zFB?6?y?|6n4O_3b2cuG{iykr@Q^V+!hz`-qem?Re`qAVdz%2WB1@67cT;50{Q4ce# zQitz{Gz@h?-TU6hC)*|+Z4F(O0%>0wCx3OiWfDl@dkYBa*V`a?&3V&5S~KQ`!0QIH?JThV-(g#_I__A=xrun zu~(#6LKJ`7aWLZhucjEmw&QStwPFyx>*i_Z0^s9df{I9ugTQ*o@%E;ZME+|l1#@LJ zn)AC{4REm4;6Qal8V29L4vj&FRG>pcuz@DzT#RL^^OYLV`#%F0QGO|NE)I!Vf6pL3 zDH}bbSV zh=xP?oW{JBa1Rikq>&+?kZC`K`o;uaLJPDQfyu?7clcVC^|}I)wwXTVrteSUu!*cs z3NNCq6N4cMK<$DBhJ*E-lhl@bgEd2g&C=2E)18>YBhh~JeNm^t-MjGfV>rxpHNRs; z;T5}eYNJE|k}7bDFZ}E{?7RIsz^{@Fn~beshT#l=7ixhcY@(1l6%s_U#^!(EA>)h# z6Do%zOcy6vH>Y+Y>N5hfvzmhp9y>X9{P^6g42jugpD)CUb{xsAV(dhm!N4UuMlEV* zw%0JFGJg?YKzB%b*l4+WK#yX?fPzv;D{rBaEF2)j)L40ic|@^I2vgih;{X-LCDsun z#1R=N6c#bxMph3QX1MyZF+tiuh%}=;v~snsB(B186&6#RLu|}!JszKQpRg1IWs;hz zo--g$z1c7#eWA{ZMvJrvS7rj#uG9}Y->jVF(&+F@n@C-q74DcNP&tg6IMkCk92zCZl-NIc3VfY zOv-dA1Rf^KjV!Q(DlIfUi%m`(Iu;TE9seXo><_vPLkTa#D2T;8^TMD}viyks3p{H= z2}@&0i9-$l2D%da4^X6selKK}5{gYk#6Tv!jWgsnXHOA!>=NKb&awgBq=&eYCaKr( zR9{X!zy2oS*hETmonjlH$i9ZZ3_I{NID&KN64>w0vJvwlJ;WtO{qY$5FyPQd#5XnKY{ow6F%zKE^kK)qMsu<5#u<*; zE2_Kf(HL_(C*Y&2C}eG@){z8N$y1ypapqPfp9FS-4wd$~9@r%^D?0q}4Qd zRXTVRo~ALdz8n?O2-}|qAhUXL6E-%6AW}C1+ulRxXf!+{29JQ_SH`VpYBf$8yq?l^ zl>FYxRy>lvn$oaD{SnMYCXS^Evxg3Jv{A^?`0t|z#P3RmVD>-pKS_Nb$&kPo9gWPN zPjO0|*rn{w^m%E_(e1tu+I;T|V0inHKq1Tf0`+j+%f-h_O)&MI%)Ngbco(3SnMR!| zmj3>EC?fG|I+`@{$ll(`lLI^;#UW$bBQ{Hkhjdb6ydYx&n?7Ls+Js{Ucv&p>_ovwx zLLEe$q5cHz!%Hch4;H8ai4?^!ZQas>6D>eHxUC6h07WFlN~L*p12F+kpoy|5B=wI;=ktQ$MBW-(}2I}y{;7MbP43%e3o zGwjHIdy;327&A9$rY$^5ZCF-LT@64H(F#zUvZzAh!*iEK*uGi+bzx)7({a5+m9hE3 z2^N?Tzk+6w+D`6ToT;cGj9#WsGoI3Utk~Ss)B4hHmLH zqAn30N(JKwcd=G*44@cj;N4GgebLJ>3$ujTbH7Mfoj!htd88{rP4??bGnOSiOd-9B zL_zS^y;lWrOTjoiQGTxPqzYcI)IeXC*7)ONIW*M8Tg|2DZ{ ze`);mf)j!=q;+BOy7IvrLJ(Vi`s!-c!?OSkzy5Rg&r_Z@g{|FHrnVzYHBHP%!ko~) z70|3u(^Sa(ZN-}PmoRSuZ+s1FTo^@#wC4_t1!|6I-%9cnzghe8cg#o7H-6s=XsW4U z1x+=e4tbysS-G>$^#Tl6pfB~n#yBY~gP*&D(XL$}a$Mx<8Gzy;1LgtBVf+WP|Vv5_ilcO*xZVz|R zBSLoegHU}j1?Q*JBk@OF4|mYBMK;0c-@r>yFIk|6yJYb&Pp5UT2xPZcQ8j>RCI1nV z_wk|sz4P9u*?Tv}`;Ck5(Le{^>*{z?w*cY82>u<4ST#T4Ez(2z%r2r0n-A~9eu~JE zD11mX^2=c;LDUw-bPV#<81zPeL|0$BYcR64kIl`!j)k(o?-Cbzf@W!3wc8)S-eH?= z;8XQ(u%C5uE}VD0td1T!B-};su566ifW=>WdyY_y?8u3y=ISZ}!(UQuu?@deu8Ou;Bq;UvqNY^ls9=SOJd@sOSQ8bmvuE z#rV9UyI&Qmqq^QqCIdK}=698Jd2f%<=lL9>-{)+i-gYwJ{i^b>351><9koC5czB#2 zHOrE?!rYvkc8Z?8b#$tDRc~x~jGXtbdfaYwG~ait{OVnOM!(-aeLZJ#zrORn<#G3T zKTaUP&&uKN-q?7bD*F5UO*b6`#$y z(q=x0dUHH8^9XYTI?D#<8R(z#H_E*p^u(^RSqy6b*6C(*zUc93W5cUAyU>oz7%V3h zg*jH1I}BUMZplyX?+lACu}MB=>So@_g` z=x1KKx{vgIt@Wx|UqG8j>QrIY&&@rK${mJNywGJNV~-Aq^jj&=J+`J||0>m;HM+Yy zTK4p5O3lRoaqsh5ux1$#bs!3wP}d^8iAv+@61~yMG|>;n;&uG-KbfPl8VQnmJfn+S z{}k%0M-%I0DoluYq>;c@12M@~r+rmQd$p`@_% zXFF&gbQ3B617-WNY#qU0lbGIjw_@FilFT z9)>B(A9xzk!`CWnC^s1}Gt89470BlOyVI8xOUKxg?1JwaoNMwm;Ungq*dmupagXb$ z4^TWtE8|QuCLinIoMvA_8*PUsF`P&E#ntB}5-Sxad#=9!4s8r!WgeK%7*SMW-q*Lr zSQ3vih7X`V-J>yi9%iB8dW$Ea(erT9Ojq+%&M2ybw^2JAk!n)dM2eU~3b4XjE=n(I z=}MQm{^&-zd}<@z>zsNRWRbdTZ-imApc3NWAO>~a-*0dA)8u>q0>F{eayZ;1&4T^J zmIrsKsVT&`4?lYW-M&G?Xl`ynKNS=iW01GOADS)5~BRedp{Hd^lD*xmT zfm(o|%3r}ke|KX7RsPOB`s*AJfbkCi00IF1001BW;12)*0s#I103g8MBI92)00;p1 z7XZk?4ht&({2d?%E2#1>0FVO+s{9K8+qY0Co_7 z{SSa01YrLIUHV}aA4}c8>VEY4L0|D6n0N6kPwm$$?5P2=GsE z6{s61zzbCVbrFFe0PxQUfFJ)m_Y#MKL92Wfawo_2?SvJ17HFHnEn7jtB?WzNqGZ}8f1x}@~=^YED`v}5`l~$ zz#mHlf-DhK{&WKY{#YUqWQm~iuNIIc0{>Vd5M+s<@}~s^_{S3e%BK6bo-Y6YJtXZP z!Tdi<=qyZs(h2_~5s&3xA6vxC($UDCkO8!CwWE=ck%5h&5ojO|j`l`+RS&N$XsJx`Y8h4Z-5Q9pAUqmUqj?!DZX?60fYNsO}oB7?Z)AT&7^kFMGKk^eA1GX=pmbl)1 zBOufZxrT(BdCY)C;)CZT&x>y$k)o1E2`mOi`Q^8mucEljQG_c2(5C{?9^l{Z!XUmC zPOn`Gx%Dvi?O{aft^`%0iVIz3vkB0T=@!G4ZRkQ#}7%Id>?_QpmFwcus;5X&XiUzc(R+p71%f3{u7Z`CwK(5z` zF%}>RMQxLjtwC9>`$;cLaBt=n^G>z)sT=G z1dj69r?KT&Yi>g>xR}nyi%T>Vh!gHOhyew-`{&~I%&6}I(f07k#`*!Ts|RP7{1YWN zln4zEWu#_X$Bot@8<$y=o9c0>>NV~j za4XO0CsOk=bKh`e{l;-_C1_A1#;LZT1M{Y5hrg!>E)WC|<0=|zapd@3aXTJcHN%Bx zVt1G`1srzVnY!*f?}Qd@LP6}Kz<*=vM&17PDmtEjX$7e^lD&*x0ZoKw4&gno6*0s4nPWNZAI*ePaC|6Wyi2$($Q#84+ z#4An1`RGI5&0h2f>*maOh`14rxS1tPQ-*#C840<}m<#jOQQAOp7m=wz2NDxY+i5df z!i`I6&SuiN4QmsmSh*&F+JfAYc%i`6vxj*n2NQWu6al#y*_;sWKyt)wX<_v*Qblzd zlP6?*K&^qVEUuId$J>`R)+t)zx@ICmmxJ#(p@XKEhjB!qn##m5oTA6b2TZ$WnecD& zWK_dHHc+Fd5IFk0q*SnMq^ZK^xIcfydt_-dM%8GfA}dA4{8*1nWDxthON8XlftJE) z{FJL@wL%Fqs#Q%aXLEiBWdV^$0>fAqfZ(^aI6Rq)d-armpp9)Q;XkIk`+Q}$I+Quq z8L!u>QWguZGo=NwEo4`k3^<~tv;2GSDjdb$ke+!Wf<@x#5!U=Kd=&_Y7et| z=LQGPa;A_E9vhqMVT!1H+w?;~u>?sP)nQR2sRsslG}eyE6q981cEz5rVxOlX7^N43 zX56S&ZRICMQ5+ySan1n)D4C3;lP5*s7FiZ&;4-{K+#WHAt}uW)ADf^|ni9(WjhY9& z9336g892c0`(4IV$3cwu;LL&7TwZREH#>0p)%j!yoD8v%TBVD7UPi*Cit6XnCzxzS zdgjcT-%KWZiOf!k&~m8y(h?!RHDJo%1aSB4Jj&wL23z&yx5JiEFry zb@(l-y=pH=1@@`nM#-RSx-C7qVHieT~c7V1M(vrS_{iIsqp0-&lh~GiFD~5BnE9d=iAYYl-Ehax#!eGfeFc( zW3AF{t$CjCm6=*?5%V7YBsy(Ec;8$Wf*#u92kJ>}QgA|$f6tsx%dPGQ1NbqE&PEFz zFGN0a4^!(-zdW7;OW)(6r|g>H*wZ*&V4kJr8M?x2)j=NzB)au%a8*MZvHS-C^nPP# zv!$nsVVqhqknP5Z(|kZfo< zuOmTQSEDctH`YoQjdeTAjT|9tg9W8$ZHn`(_~=k1=QuuJVBC>9D<*^WRO5835^5~v zUUafJpId4A_b~qeYT~a`VVaERrrgu=A|&boj)WBSX+OgZmslW^DL<(MSkN{p5_>ZK2F2yN)bQ6g=F=K zRsm=A;;a$R4@ih@JkI$1omCC@)lEi!=ZhiBQwVT66z5JK&8R?H%5qj(b}A?>EL*^G zehdG_n8BVMn(N$_8Z*405_{Gb*DO!6e#rFM=%)QKd8#L(Bu)l0-w}KlX+(zt|JlA& zhZMIL&Xzf05-qn9@q3R*&Ar}p^ElUqYV|0W)CgBi)ZuD-qRZ0Cm$r%Apqv(PfJ0+{T_49$U61Jp_ihQ4qJS(~owjUNSv z1h>6zOsut=@EKZci-zfr>$IIt*(UK&VIiYvKHS%ZDjCkm~~qnV)Y zy0zhR3b~_iyAgZNb5ygdVkn~kXR)`JT|AA(Z6g^|vdUEz_8L%Kze)y_W*h?vhK5X5 zXjPzDHfbp!jV7-wKYo7fSf*nuFUg9qtnmDrNuTMzm_^P0330U3zrAshI0MGe;*Ax; zq{}+FgCk2=-1J#o&LFdi>zNidhd=Y}cN3TsLQW%u*9->vVil@}smzjK5x_nV5J#`b zh!I{}rG$c3$XQA$_%mPbP(A**Id_Dn?`Hl$p_#@yN49Xc2?^$?#VM^z26I_m2hYY$ ze3E`5lC?EcQ_(3oVJ<;sf3IaZ!rneGYy9~;3|N#K_%rztYvuqTwDv&M`6R9>$r3r(I7$#^@}#eBIoKi27^Ru{LW-=rWpP2-xEDr7E6Z3z4lqt6y>mywIjVD2;KYjlN zd+>#?je;pZOUa0(RJSJtdb=-4<0+0~O0fwe2fK1e%^ao=Lq3x>F=6N03$=lf##DZD z7%dKJF&;_N`T6UnHCy*8_o$Bg6YiXYOgfvv51|K17HyWJmEMj)@%CjyJ!BLb5^Aub z=G5(K>=QmTMZ>mYfcf4T7PZM}^d}$p;rc9S@Skf(+&+fJz~4iM4b0}Y**B}hC&I^- zi4)o{%Ju6M@Cyzf;TntVy*PFE$DGg+od>Qy#@UWQyKAb@Guj4u)UobV4swq4wwW)+ zzuDlJ_)4I00>@#U+7C=}8nBts5^_!s#DOE6|H>D~rC4Jw9##UK6wJz$} zdNSM?G208iCMW1`KV9)Qo)sZiuwgaat{zIUeH-?Hn~62x?P9m$@(ioB^uP)lD|75a z>ktyAtjw^34I@u*DbGX^56IFBhCBaJ6@gLRrz;3 zZ}*^|*|Tt(0Zz4=QPxzDY>#;gu+f>@&S{pUGQm-Fh_>fTUGwpK4>o8wh`&p z3t|1Y9S2tdPO$UWO^Pp81vA%xIWBJ)fBMNZ6uDmsq!x~P;rCQmnb`JmL_hd2d*F$$ zGZjx62!0y~v$kPqumVxE6p!sr`FPMIOf2l=YE0-fU`>{HBGj7bftM>u6-u zS|u_+KPCx2MAj~$B59Zet9^CVngrKPkB9rv(uc?oIO{98Dt5+gzAI@C33vdahHpgf zAbS();$XAM|9EJlhMuVIj77TusOexV3G1kM=uk|_1W|2M+&B#tq;lq&4N*H59?WNd?<6G*!<8k?1KvKy6gxg$lIGIg%W zL~>nkse#-$=!uv#!FZM{b1+Wj*8$X!`9Q46p%-1^*%WSmeZO1EFX`tP*}y#a+V1tj zD0XLsM^cWsIV621tevEIxH*;{xg^d_!N4Yt`w~)zX8*-yeD{R{S>j+}V*kAR%D#wK zZE8A6FEjHYgZ~Mit&GD&|;^5(waBTL$%mV_m5D_u!Uw}We>U>&QAwgaQ?=`UobBRU z1h7uS0o)aSr(5?IrKXmgm}4dMaO`odjBnQ|&6L;+3L3LuXT#P?6m)wYzr8)D5h4 zWO80wFyO;+|x*~0_#z; ztB!itf+{V83Y$#<;=;+a6NjrSLVZPa!Md+)^UIH7=YaZ&>Pg^Gq8FUqT+`R?VJbY* z5eR055_^R%?>L&f+Y|_nU0Sr82?tYG1jHXi7pZO0U+Pbxy6s?bi@7&aIZgmyd*Ou5 zxbwLz+ls9ntevxsx8$gHJALMWF%Pu8y;rvS@E?(0ze`W_{*VI{%TJkZxn~o81aA$3 z#`AwZSVah{5(04YL#g%tuy}BjriFLWJb#H^;dnQLSFeBmY5inppBLy1CeP%NchaJN zho)r2ntUQnAz}VHgBv?*{%dn%^9wCLssa9F6y{@>{|W0N;G-cwlv58Gm6^Gn}WFdB{PpMvA=eLHI0hY(UcQ+lHWBsmDF` z=iS0JJIDmUUAysxeii>jl2)ihs>6Jh7yCJ8BzekWMNxWVx)Ho`?!nYUUl^apUQv{{pih>7}0;R*vH}lDD{PNeC^AKs5>0d+j-$llc?jV!ReKxW<;a$## zoE&CVDZhzfEvYN3WB;s)FutEgTtAv|m|V@7U13Au`e2%l)icob>TZ4)@-su8TA07L?+0j-3AZ(7i)H7%_oW}=aSGkR08FJm180t;-O zi-{Cmv#4_xv5QX`gdB}NZG@fGGsA9s#_1ZChXfp3Nukpe02TEd3G;lZ_VX1qXw{UC zB)h-VfQqsFO| zo}7f?wpZE{*Ihb!#D@cEV|-H~BQaeS&5~G^Asd#wj_4FDV^jwl@-KgI6#jr2S88P5 zt1+-SU+1>Y(Nk%UAAtFBK+`)>ed5xbB34ldDT%kZ!SH~ieTBY@7p0X`MNZp%qORlf z$jw$z=-rEGm*HXSzB@E^e<5MKyZBq$9Jb|-to4diCbXW@Suj%)ldz))Mp{wyogHIS z*lN$eLkPFEc^r=M=ss0~ihilj}ZJ%^zQMdKKK? z5oD7v{U{e)7tEy|N5w)>WRC^kz&;I?x_!@tYD%vqr8n7Hlg4^ST^btHp?QvvvH13T6UA{QbwHkjZ+JX$D2 z&gwyXPGY~rK3q6XVQJ*gp*=ZsX9?A#&AJ zAJb7;64>>4n=XjBK{2vD{6)jV#&91b((8LVDnT1!a@L@U)ePpsz)uuvj>FPj*J8`8 zyDvsdK0?MlfbEp9lu}_2%HPMFPFp|cc4|SFg5R#b)gmR&n9b${q}zv%_aMTZ9&|*{ z+MD&^C@>a#>(5Jh$tg~iEZf2BeV80t$cR!u^$hxk=@q1`dQ1}tdq4>Z%Nctmwk-+C zQ!uDR-!<|6Z+*KQ zQ@A-(pMdcS!*IwW&f}G>ZdjvmPb%~b2kxRugin$C`|z=BrqthB$_MK@C00V!x7lQT zdLxKmmCx({_6s0L5#okZ6!$f6X`VGFJ@@#Bf!|aiRy*H~&BStzwbg*SZgOYQ5Z!{? zM_e;xB~4SSu3K42aq9|>BJnfskl`MMrjSeShB=(l&%CL!kgUaIIWqQl!Ri%aOyMiy zXYqHD;w&HIQmaJ(7x5Er;uRu5RH0u4zCm^x;==U(UFavcNJCYRAA-u;XU%Xa!IMkd z?ezKs4{+%@#KI(zkLQ<8cx17#q>`04y4AM85(1&cf*}&Z^Dd*9zj6N5g_^HhPM=B@ zBLi)-z4_|!Jde;U%mw%Q{Z^J??#(*fv`S%UB3qp@ z?G}ZX*1=b7yv9J0v@&MZ_;lA?*NTh-ZwSTZb;*3J(Vs6v>UPu@&_22Wm&-FEq4q_1 zQM#b@D&^~pC2N+FU{oCKc;1ddsV)cE+8KxCSvK*NVz9cj@DtMr_!5>WnWhuOhXW#O?E5zrT=$C2dlzcPRDMXQvjz z(rOHnE1OZ_2#6k7u~6z&#_N(|RfX%j2@M)$)N*BIEWvpo2z~++GJ8Jou!U<)NUJQM zCUD$fw%!Qez&=ErjiNOpmui4f2`oJb68~N$iKpJ9@ACX?W_o`rCFt9FK(w@4v}(;| z^+i^4MlWfMWC_6nb9?o9!{_{!2ejT;?dlhobylHZs{EG4`7Iqi9Wv=uN4zJSc4wam z?WnTp*H90iY&Ynz(q*=ct$Jd+x=>Z_8hJu?0o()O70Wko0$C3$M^PISX6_x-qAjJ~ zJXZiq>D{+ad>pmH^lU|aMLX1SQKJjQi;d9AZO}gxk>kJR$)K7iMd)(m=45{R+|bpg zG1jQd)znsNK*kJHWr(-*`zx9Bw8U_K=Bz{r+QElLKrf1?EtPT`#$?hS8S(UI?*ize zeeu%|z5`n_z1+2&Q%3GO=>e8IpU@ENDqU)4X%a{fRIPdM0{|pozId%u1)K660pGmZ zx!$|xPj_dgySo$I0t9z=ceexyZoxf3(8jukC61zxzZ1g`W_K|BdS1|K>dG44=5fdG()35FBuk2l<6k|teoPT!pW=~PP_ z>Jr3F-3!*Kv+7o5L3Soi@Gwwna4{4E-N(-k`)xuv?bchEm~D93kkB-djMcTulm+n5XIy9d7sb$R6V~vjcW}&R z=I2e52fwXiF+;Gm3)?&sXSsm%Khd_T@B64O$n@4ZBevVKER$DpMPdj(IW_>@;HW7y zWLL$_N2HkuDot_d_TxbXuhBQAEJm$#BXn>j?T_h}sD$29i|HLK|NIk=g<9e1=}@!p zLqqf5z9==rjq=5pVF}1wnbtXC6;vm^NrY{~Z+M^ihjfi1?B|H2csY2Re-Z7yZ{}*v zEq46%uJh^kjP@y$+2A!gMC83YRM zybKE#HI8EsV(iL?nBj3Kpu)M){H2qrgy&(mZ8|tNiXD|J<|F1SZ_~68pTDt+?z#P zw(3)6f==(an` zHRu(%6W97W_`emwt4^45uC{;fA=lJLlAI{=M8fyasY1R2sTZVRbpngXTg4yxhFWVN z!E53Tk+24y_+z0H+@a$HzZF!W1_l|Dl^%KG)TuIMeLd09S_YeTmRGcA6QcN(g{M>V z9hG(%*PNOK7EGCfJQVboO0@qdI-{?lYlIJku38On6ybv`%%Lt&l{fCd80LWi)!15I zeAYT^A+Dngnp23};T5qJ2>niJV~r9)@`X67PxZgxNiHKRljqHA2o%e0@`(G0E52q^ z5F)|u&C9)Q=zM8*7E@V&s+-3ap7j{S6oz+%kNWpuTGxM1p|MS?)4N2DHo}!j^|JhZ z5=Zk}^YGfwXV`)6Y=^*6tQr2v%ZZRxd_8!0G5adgzmFv=ANFuk{`Lpsj}qh@ifN#q zzO;&GXfDB5Q>}}|@D#t65p0)X6c+&k+I;h|yr3XFccjeE#i^IgALQ+{%b}=vXO9t~ z2%&*pKTu7rw@rCf=5KcU98mGd^r0W}EIddqNJ0gC(-4caY`2WQ8|;5fx%-ec7lwsz z)dqx0&l`Lhx*JvF<7P*<*pWdj$W8m_EKKHn9xB^--0 z5zsU#4JKY<)IrEeSZlA;(=kk3pS-O>lkLW&YS#;~q8vPQ+ zf0z(*f8j5GS)Mr96W<0S13um8a%9D?jbTz+->(DX6exdzdWAWrjD-7DSFgYS_V|IZ zbVi4GBFIm0wIt4N1*{9>4#&_VB=1xmzAFjcEX@RLhB0a=X$9V(mg&mo9ZlFr>^CDu zr_y{!7b#!cc+7u&gO-Oo{{O=S_`f4q;jF0tD?Jo1*Z(J-^#AK|t^fZ_fd6+?od3HR zR^I@Q+e zBR~GuQSsDK(RhW^<>DOnbk4MBX=?G>JtT^pj}&bEIA*UCbu+I8^O5;gF0fY0$jHsD zz!Mah(bt{JALV`Vjl(Q_fppatm^@9#c8R{eM&dJupC!T0&d@ne*Vk{T`gx+Re=fzk zn6!tSt71-OUhQ6A_L&4o<^X%D%@{vulvP|bvy}01ra^+3)%U$-w^WAubICNu zT8}eK);kr=_-hjPX#^M604 zo=dk}&h(r9doY`j?-rKJeVeU11G+Ac9M*y9S~Zy2l`maS3#ls)%?ArFeVSsNVlTfp z?on7Tw(VkOKRl_aqFsb?qlx5D#qs42v}r2o6)pm9U93MFxmS6UR0b#6r7v*~UFVAr zNoTYher*ty7G&q^dvft;sZA6gVGCKTF*P&!_UdiaqxVHU7xz=|PvJi6CTs2PGNpTR z2iB$j;Wf)tKm7!Sn%gJ4?GVR|#(A%bx(DD>M`3;m$t@}7dF{lub-D+eg+u`@ZL$q4J4V2c;ZyPy6^q!7|6Cw;|C^K?!Nz zI5)Vsg<3?w3|CxXfC6cXm}I^7Jy&H6t?Z2J_RhiKg4n zSc>g>MafaIoQ{Ty80q;;-_AmsFi*t;gYT|xp3BO{Rl5Qn&+hxIcGOv&SE>y{12eJR z*693RHQGvi^-Ye`%U5;_<{w%KdrL*gXQO=hHdcuCpqKZ?`J!WXu4{phFau75hioS? zU$L;Pt+IMyU;kH!g=0{+^Eg}!qD|;N?F@K*xSWo>Enp+nG#>3-pl|nkJg>^+H;;Av zfHXLd)#dO!KOF36#G$Y<``o-JjP!@}dA^4@_;tPHT08^e{LfvfK3BoX{-sZC<%ahf z)ZQj`u2iV4Of{vGvl~%Qx;FT6X(>fq^AICe)W1k^twX%vX|t@;gS9FHB*Ez2%d<3A zH6sd71K+lsabJ~@0lkwiAX|Mo$?X>J5Z*m=8E;fuf?P&k7I-MG<@>md6E_`|>|T$` z8TYPY(nu}%(@xU)jvvpGkL^D9*3)TsrzFZpQ>!bMAN;lPez#~-A=-0lQl}a6tXbg3 zM_(Ti(G>W2vp=^M3=>`YnZt*k7rpTGuo-z8{1^e`PjfpPouMf%shfCNte1CSRu|p5 zw421GCQvkJs&r&1)}GV$*pR=usV_HbGaT!6xGOwGGZ*mk z=R~YJGol9kDfr>!1)387@FGWh;$?4jFx}e&3;1oLS*9(gz91Zr+|l6kmb}2R<}O0J zFnN7H?{;R!2a@zVZbGo)#jcJS-P>}(O+)RGXtuJ2zqfe!=kt`b9heJ`)t%J^-_U$0(-Ds-ppB&=9(YAi0S zp;uu}{HxQSEeS zQ>}5xWA_pnIoZp@bJ@6yNr&Iv*@^jxwFUd8|Ba#zxf1i;w$7o&)Ao30qy6*K`lVe5 zZ&_qLZ-b*)uy4LiJXAm9rfyYh8|0{6VMT1!w)+SjH+eptaW%Yw2n8|sWS^QWNJ*DptcL1&g258(@AWI zt{yPS3gG7zJ&g9w!QfGQuI*|%u;pV$R+B6K?DFIZ>mgG^eudiaAF0{v7~)n|?Vi5wX5YOUVZWN_#9rf`#jz(s z{u%@)^jf~&U*3?wuviROU#?7<6TM$wyPwZF=VCBlrtx*C_;aQwQC~Sy%^bEU=K{$t zex%J^jtT4`X#V!nS+{%L4=A-G*f;*GBMR$d?-D{|;`=PPFkkKVB`UM4zyn^oOnx%v zqBb9n=>_^@o3+c^+>{2Lf<=kh1O$tZ8S2K1>O+rB1!6|&lIlhoal#}hbmXwKKU~m9 z@@v{B-~!4V!{&ncbAuA)4~LdqfrqNCz)kZVOdoB*DLj2OO}`$H=_38T9De^dRD*UC zRQ-SQOX^B5|K73nwn1Q15leMD_t0F-nNMa^Y+n#8vIfgSR!4Efm zr$H|!0wn2f)-UU#YZ4}n0S`VeH}CTKa-8h^&bk1=DqH6By2&TUEgOYun{n$S6K6HR zz|(YdMr28cCipfN(!Mp}wLai67srRSz020(o!|%$RXZ+k*VDeHvwy#dm$X|Ji*1H^V&TQ zAIO|)POSmtA0#-m>&Q`qlpT_G8&21ydhtL%%A~$}=t$vQu{c%GH%cMA2W>qh^xofb zc^jx_nD~Ow)&XMSIgF@fd2v3%#kpKXHJ>FOh3wWtU)T*RfNhSsgU_K}ZPr><2LVBy zoPjf7^!hn4zss6vN64e>M~{ri5A2k)m|u&ZXUQFB7DDdpJ)Z7zPV+;wOl0#{mwumP zP(zsw3bF>0kjSORJZI6@0`KC6&fA-v^JIbB%7cdq2-gBb+p0#ZBPg+le2QbnwbR+; z8KMUp<3Sh)s{?#lPr+eT_>TH1&!Yo$coiy_p1agGd1HFP59h2^7Cw1Pn_{^u$#@XF z`2#BA;E;VA26sjIW&d3Mf=MPKDH z%X-uaH-Yc=+pG9O@TtpO-{aTHM7(n`jcr@@QXokR$%}1roT%z8lg5GPW&4u;&DzN2 z=-%wp<+)lyr}^vCX|q$sK7q;XaG}lRIo;1jp2CROLrr?^UG2POQK>jxe~^L-yT!}x zIO7BLjQcPD5YF`V0j|GF6E49U*hj|rc#M_^TsQmd)fyF;lXwyBnv)Cm`>$}h&bPAD ztI=TwG#`Il)-V9t@@8+kKp7JSKfb?Qup%eP&~d@4NdLnAdj2n+edgORQmY)!pvwT! za9~h+TFA?d3E$8dS49# z&gA3baDid*qUr{W0O4RmZaakZx;H7UYQy&){0%`5bCu2YpMJ&ws^6V<_dgaYWE9)i z=@?ad>gr{?`B0^^z51Q%BN>BlW~wR6T@7?_D{Uynk8ZNLSrOLbuhb@(A-spsz? zk%5Fx$wEgJr}e?t>z7TPsQEbGk{{;6?(Pr@OaSA{+cGxON3 z-qZO3AMHQQJNumMre3sA4fAKX?b0IcaZycgZ!N2u33`9!jwuoL4(I>m^p$^Sy>*13 zm2JJ@zW#iMynwlq=5G_m+9--pylrHsQbWNs$k8-m7ojMp*nw=SEJLdXdawPQq)ur8 z3Z?4wy89J&$W^4=PCL(jZ^}5sD+KT7IvVzH1@fpdP|k-*k9m1`df-?G&sj}vKz#ukMIbtwntcEpwZ4;J z^CtJ5U>+$4f*LVhol{-dl%{c8$p7iFyIWL&+Yx4AKa6>zdV{vctBM?#Gg?D9l(PBwPkJ( z_|D5$XG;Q>W-tYAN)nw7S1O?4v-nk2R@aEUccFVbgT8a!sYHH#xE18O)#?0hMaNF| zB?&!kx{8K{qF)EA-;geba#F%DoFp*6F4!P6q{lOiz&BRyB>aa_f4fxsfWU8p%-a~P zepy%W6uEFTdO}ipb%x4;-nCNgZs<3vZp`MN9L2Jn|L{)7!bvyf$f+><1Vn#U__{JFNvc4si@dgu84FXn>@aFsChyb$zZ>bkojJv65lpVV2il2K0*a!7)C&rr` zXze?d^>UFk4j2=d)dN;W-_02Nz?v5U79+8v?|4d2tIi2s%u5lDHX4Q2`q4ia>%Upt zcLs|Mu3|f$jDE)(o5E_{kS`WESgtdInmu)P<$da{Mcz1fw$-vQm( z{Wu`JxempMUmCO*q!Mrl3Hj}%j<-A3-mhNmC`kkas6&AS)XtoqhoAHSL^eV|k{PSs zSYLAjeftK z>drdER{Yc|D9M)Px1oqpzbv4$+!E#C<>~QZZ1(Pdj>Dq*ber;rn;ZtpEh-~Ydl^zk z0LxvB$Zhs?QXQLIa12&q3XJ3+oASRW-3~yizbqMG_zGIm zvaGJ%`1&8p+5i2?WA}Rd82Z=VD=zJaZqj>g#PF+hvU*D31R0xdyY@Jeug+fBED9w! z%2t~KkXUt(hR1Hdq?11;QDoplB`IdjSr=HdGBQ~00PHshhav#*)sDM4eKDc$zaoJN z)i$?@X5SebxDME3TWx>J>Z2oJi`wi4&15G8P77hVC(#PgRWid$DH+W8N`JUi zXIP`L+5TZnUFkHVwSb1btIeyc1=5v@0m(oHt-vI1RwZoI_O!8h`21;7P6cX>iXRpn z-}SVhRoh6e4q!VFdFQ;_&e>YIPj0L76g;7DgJl~}c+dk}rTFF4M14SB&@isr_`w44 z!VcEJxo)8is#wZU^jKZf4o0J`n=3Fa8%lQ3U;L_PlnVUn*bI98a9^*14H;JUEN#<* zQg#qN)mD8L;vMPp-#C4g86o39Eqo`Jb1fq?3SHm`~_YaCNz7aI=sv}=BVP+ZF03~ob;5L z_ps|PMR4GvUCw}M4L_}MWk{;_Q^JJA(IsQ=={=*sH%EHjS`+E@N5h=M ze-=$)Q3>E)Vcn8%PV~?kRR1d$s5^Q?R-7T9F`*iOdtP;5*|pk9$iiA)??ID!geVB@ z=qQwzy$bN1(SgTsvb0`S3Ubzz8B(@K6eNWIH3*2E392$v{vS+^$jqfP|Kgnicc)@< z6lvMabW-nYJmyv{LMqpBp=5PLnK3Lyt$0z+3ExonJYo*IYA}tHhJPPs{2h*)F;9p~S;d0@QWYih^NyOK~ zmWj@f$~SQ@apnAb&F|Gp>8R~X7TZhG@V$;!H6RnwFC+c6Kbf&zNNMk^$kQ7>2YyfB z;UDm~{Ixro4rY(4@=D_z>VqKc(U6<;Nsr9d{zTg#qRH@`t`w9rB2c-gLg{&oC6ntE zF>vmruyZih@9-Ha2Bhy1w3oZwuR7}8hyFEqB)Ds87RdRx?*2zRTA2D7MqCp=c#Ia? zq(H`KFt2_V1E24ZsvGB{`*Q-3Tkd{GsQw&-+{+4&F*IDkMv&ux_&!OydEsisA#tjF%&I>Q(9sQx88l9E5NQrZGPW! zu##unNte`wOwdI$6Ve?pYM@c=FH(PehKn2a0PZy6uw1ljLM%P%xuq0{?Ib>BmbUP= zgp=$aH7Jbboep_3+vqG(kr-;#He6@Z<@Sp!cJnQc?IYIFWPxR3@(?8typ@$InJH?x zlU49*xoCp}ruh44LEy|llz!kc9>$!ZVGdzpwS%L91++B>jrYLH1tF$<*hmC-vmt@4 z1}NiH$m(R4o`=Qm7YFv&_Dp+{h$(F~EiyJ<#7*>PlA8Jaq?S<5yiq9S-TUs?F$N0R-+D9S6wLf9bFTQ@bN##FY+{ja?6jWAwsCJR zYz1QRvy%k~y^4_qq>p@A(5OAx2wG}7+8dbp$Pi`fM4LF}SKZ>YKNHC^7gFeP3X!Qb zF)}5z3SxxBc}#4R7CZCZJ)WBv3ba(mW))X0dlqbBFeX?VJO~iUP6(0 zHDnPRD83@l*>v;AQ{bkCi^IWfymL?q-g$4? zbg0UB;~eC}eSr*^+_>=^c#pll;<7^{gNFx?y6m9wpwg#d0*z*uV}m!c6&#@xR2qnS z7SSgT&9S_iI78N#eEsnp{@(_7o$yM^u^e?YH{$x2Hr^EwYV;CF$R>|OiL_5oPMJ7y zk}tu`#R%x-^%z+@XEyl=j07zDML2(1T;9cvs>MDuoB#K0)9{LcA32GZJ{9-)O2@u6 zv!p4OvEDkB!SgFb9;B`N06xG{Z>Adg>qVaoB~$LXlZ(waeWJDu$-y9DC)iJBcMqVR zZ`+fTRrS5H=#ws#5#|DIV9L@Z-Xg8Dp~49ac&wa5#x=>b^og3wq$?zxTyK5sk9$^a=x7pq ziuf54DNMJDEic&PtVX2G(v8OZ7443TkO;2llLXx81GibmQT#+%bL8+^3)ZMV5+j0; zzf{|?vaAzAk$@b%9zNpY)R?qN1}k!FFEZXnDQUSPhS8i^ClUCFAo*|C=+Px27GT(4 zTOn{wDtvM^3|8x8u?JyYBJLt5w^u<6R9fbhMHyDMXg6Pc78v!NaG*I2Nyo9IqMxrc zWzatUR*A#uw@8>Ax5a0xvV@hgv1SSXRrd08kfT|PAb$U&f;L8LV&@qLG(MRbq3!Vx zZkC*0++G;&rj79h8a90~-%5x*Xa0#ef~3$2WBw)v6?0I>vfN5wTU=pSm00@A*1y#$ zf*Sc;eT(GMl0;YP&?@2nlv4_z{!CgR(N&j!YPJQ1Z0Mvzr?F)%qrU}VnKhZNY=wk( zE&plp+GF$JD%z9@5irK?MQy-GLOZ8Km9M#gdsSkC1+T2%rYw@D^;IpiJn>bZP|d5y z+&VXP0MFq0Jc^mB25ntsw)kG1ert6v&p~4p&c0!kTTAH+Z?73aBLc@LuT_{=5y{%O z%>|9e732VA-(AMA{diH|)Z0VBF=xAq@o$IW)yM~V2PFe_ONLPa|L_YE{>BIgxE#c_ z|gUHr~`k+I5 zWP|nyIYGEeCTv|{c}X5q8d-I}9K^=Lf$u;8FyA#v9P5RpgE4vh`(dA0C$$jOnMZC> z)IpI5(H(sbt5J?4@#T0w8t6%*rRFDod z(>eS$@g}OMVTD!pOZ%Sk)ywi()F1Jw1o;QDt8)I@mZw8$E#*yMV{PK2sdUEhFw-`H>+*Ak3yW_2-dP6+th?qM$X(KyTsOzv(p zd&=iBy$3$38ob z0oGKXG9bO<1;Ulpd}seh0y8Bv{V+hwIif0~Og`+76glf|MglESf2HF-4hH zcx^-_$Nj_eZKNMz^(O}7t(eC%t64PKTafX3DOu~qF4T-^!!Ey5qs4A8wq{KP<)hTaRMjz~l9`qa9CvB##Tw z`Q?({9ZYi8(D7==g`4)zBbBO=={<`s3R=T%wCjARDd(+mgseMQk4WvSh&~dwWcue5 zURN2?`{3Ce4|Lg#U<6%BJ&%-I(Au+n2CQ!PwBCTlidPXE!B)vAEk5&W6M zN&$UfT&umv2Y{^j*+{v~c6MhydKC#K=Prg4AV-ai722idlQ0Gf{NM?r<|#E^ZAzY9 zBOIFSAU+X$7vrTzG))0Xp6$BAk!!Czss6z6l5Cd*!9J_S&a+^98y9KXe}_~mF;-l| znAqAl`K{|tM`-{snRpx`DP>Z3-A?o|Lg|DBD)-;iEE*q+)_HeU9m~CAwviK!-6(8dGo&a;GmG>FZkJQWS zw5Dq*;new%hxrCs4pJ!Rv-W-|hqibs9g@FL^fxzyfv2V41(OTS&PYv54eO8%?7FxBlv99GE=)UF+_P>t&Fj0uDf9dct|xOZ}0%^wnF zKSgB4S*1$b{JDXf9u5HcnL1=GuK* z4A}J^@bIveGz=X zcBNUhV0rt8Bw4pi*|oYkcuLjRg6sfJeOVVq!ocDnQ+1$ivIe!Ck~^pTZ_H zH_X04|F{k`jRafY*Ov>XT=-db#b+?b^bO8u&b`FT{&(8W?1{IoN3sJq`G23Y%3OY2 ziP3DiMV`l)^KJIyxFJgF~!&BdLaza7%@B*Q2mtLUi*%OW589(0LuRw zc4XC?#lh()b8()t0l0eEn;LdhT$KR^*l6J^l?i$&M9(ez2NdDI#x66maclb75B>p%-EV-68q7SPw`M&=({r|Ip4yWh4h;ZXsT?yvn(mDigZL)_5wS+P8%z;CwJAaa9wui7`a3`0LXCV{7)3g=pvH zSM#nb)s3#dkdA+5N5=uc<Md4vJwN9PMR569qCSAX6nK#X|i}vn6Rc2L=czb5NS5g=vZ7N%57apD^ zOqjQFE!P(bF-i|s6cc+3u$o;xk4`KhS23uzGF%v=0;*1rRd73&gwA;-y0=BnoiP$< ztS^E7(!Vu~uP6a!sciD-x@ae~s|2O`Ps~+Xi<%ZbbDw2s5(aFXaTt%+-WOZ~gH^#dxnB9LMHCM<|JViRY6b?6xS2f( zRy@iX&&IrwUic8#PxP*0-S`o=Rzwq-X227qHT;AFyI-#Nn42w1j_)xMw8_$S9|@Q6 zh}sx37QNG5`A*8$_KDT8TVl$yUh4|Y7#OuZzqA$(hzc7QvndMf*;A`_3vlj@o1h-G zaIuv#qQ+tNaB)~Q7PpanQ_MGP4j_5~6$%RUHF^^|0=T}tw6Z*>1_r*7PY;V_J(zse69=blz;;RL)^Xeel0;z!O-IZu7GsFw6-jj>D@+PngEAo|Qgr_`A>G zcM@t5+-HQ1nKzq)_TpH3#WP`@wdXB(ET9m?mtIQqmFi*vAYHjX#)7Ms{pqRh<{-tg z=;x4ihIMojnMIEZ@BeFm%4DO#iXBa42ZQCJzpu%l{1 zqFl}{WnRAxkx7ry2qZW|R(|sEmWX`ox1~_py_697+4refI|v~*j*gKgDI78Fzp;GX z*Kd#?)}M&Ui6kajI0XLH>)x~;J#gLs7O$lA0$h!MWYyNEgqziP5zENKYaOKDuo#!c z&4bctOX7rz9bMw{r6Ed5znH)*enyLWtX{31jk7t(eeT;R_&6F-bx>+|SD$BII!&jW z8)&q}_(UC<^rzFVnZDWwm98~F{ znEtwE-z)~WQrbS~G;R3x$KV4+rMIn3g|5MbZ;zjb8{# zlmRi|yUDUx;O)*j{`J{;E&1wmTfyG94G$tvo>Mbvi=z#~+;p@_exhmX3=c#Q#lW6m zPA>wCXrg-XByH_AMw!^KQeP=VE^=XPVy}|sK5GYFtW0xdfeJ!Il`iTY5⋟sqQ zh?K|}Acqveslxa`(nZ3D*>&`0Xm05GV&oyPLU>J5wPx1+!O!<=e&yos0=04^xXD}1 z{^G%H+G0g_JMcTEd<@fmV$8|ZOrvJNhQ_O->a$3m^wSm9x}{_StpYt3lgcP?7S-J3 zn^cTv)z8Z$y3 zXB-*b1h1=yo*;w0+#+?S&6l_)l|@GP_cnjv#_MODt~E;{@8Y8~I_+5dji%9|AkI|S!J?~V;^;#(60d!1?nSoh%Ii5LOegOdh>3nPG(-BH%uOpL-KwE z^lWU8MWAK+4D$~iptxbwbS6*uwcxX8ANJ3p&MW~)1=y+~I&mV@O*Qjb$#@zru{M7( zex!EsCmMS@^hdW4VZvSJkqOC>d0n}#5s#b7<>!lRvCH7Jg49Q6|Bs)uZV~)kGa6A^ zXiXDU;_I1j(NiOY5jUKjq7seZZ|qeKMWoyIC*->PmNF0rRTXd(c+E>yKKH3ps`%F4 zB--|fPLixavVrGlLU7QyGAHO3iv#i{i+gw(>mFENrk~gT?K7$u8g)mkNfRdK77S}5l!9#YoWpuvh z3I7t`<@De2c!Sp;cDB|_uattn!bRE^k>kTmr<0=-6iUQ-bpVkY<|*56u}eNbl!8N9 zPrcAB@xojXJ+V*2+dI7t$bq#kchTavh8}-_67)w0P`q4-FeT8wiLWtCRQNwP-a;3l z>cz40Ak^#B#|TjMobM=U3O@CnR3z{aEgrBx#CjkL*&VY2NkjgDT_UJ2i}|SS+Z)Gq z)#Ke%xfUucsMZkJ_P3T%z_;)7Ls0>uTeWQp>HP;^4X+OcM13ST!hM*oTu7L0p1*(; zm-QGlQn36`lDzy=lCNKX2O|Dy{C?>%i+9!?-00XR-55!7@ozQcvpp?zWsgT#NL!9y zF3Bz$^isSmVGa&jdN-Wj*3ffvFH?R~rz8+Pw{~@x_J9zZAq-l`$Y1b|=_aiGl{R)` zGi?~%re;{TD#{`z;7XR#f>ECLKum|a$jXkC-zY>GVlXq*N_bjOvG-MHSV7QLTx>A_ z14>GxvZRn$e^26DX+PP~I~XB+d~aaaN!7u;L9?ROzO3YeTg&0=N9VE*=78p8d>0hF zRw?svy4K#!EH7P2dOxn2mz2SxQokKXeK=#FuiW>RVeju;m4`3=)`M(*Az^nLPTl~M zo}evxm-1aG)h>x3UC3>1ZdB$C_zgr_Mi^;l{s!krjrsk_8{7H>6143c%LSLCTf`B! zW#T$GRYp}j?Wh^$IjtJ?mRHCxk8s47prf2lSEkf?=e(iN@w8oYp53MLBF(4hsUb(hK6g1{62{LpHXG6ZO}mn0v7%Pb=48xQ14Y*e+UnU_ zQw8PpJoVuj>YP(Z>F8{JRN25EUhv+TBukJ?YOzuHg3)L(L=jMsc9g1B1)=*%+Wjkh zhMn$+tionu>=!qk%g#_)9b1)7ZzBVDUS2DpgMwRix5HE~UFM1YWF-wKSQO&2%8?|4 z{M%#%JvcKdLvn{LzOKr#>~}AS0t)h^t92ae?8{0Pa4^X=)tPrr-Uajh@f7jVfrV@M z%h5o4^;+8$->|Bdf%wp+1JqQrnuO&SnFc>NOnW0Tu?$!qYh-y%)i@IF9;!s;M(pO9 zJKLIkGTX%*`r2<4UtcTL^cznun-EWUUz1zPadj`igzqbk=R3z83@EodTHSL}z3f7- zC{NIeAwh*1E8&gfBXuIENjERh;7{%G8MOmdsNR+)#ZIM6{F>zs z6mBU>Jr18_Hligb@_oW+tw#}swNW_MwtwfbfyQ?7;7IYFo(PCkX`CGy;Z&!FA?xfJ zWG5M991j~_?G(bV($0D&gDvK4)wCb{&TL38zpoN`fBPo(lNY3=2_$;L7}OIPFnffe zJ+k$$U-J1P+^|Hdpm;^?GW~>Ne^|7UC$W#QrP7FM%PhdYXUY@f1b#zc**^=I4$%!~ zY6_y5janizWKD8I;S%tG#L(6s=eUwdufmh6=3>59{uHV0m>J4@)$YNse@&9`!`0vU z`v^0&JF)2*{@9O^fTdb3F0cNDW{_ZBv9QIxmQ$ql@xN3r#AgFVw zQ-8s-j+^|(yYw_h;7y7i6ag(NIKde>+esMx*(*-eSIKC86Qezq-)&K^o4CfbDqk(Y ze`)Eod)gzi`#p=~RR7q!)ik8>*E~+ve~}OgoSLg47d1yCSJ{blG3~00;m@&J#(BZz zTE>Z)Us5H=ao_6EekUNy`%|JzzTnljZOkT+?Dl05iUHU!XRdB5ZX|K?x%@5Gapc51 zp;~B6ktrt?^k#BJxUmAWXNFfVyTzpf%+` zme~zi{Ufnm0RI`kCS=`MY{phP`{T?Dz?LmM>zB1uu9VB|1$_Kv+0cpjUojjPoGE+G zWE0lXZnk=c)Gdv4>q=xbqfzao6ax_IxVy9_2m#9LAS~i8|AWf0^aqT>2*H0Ub+)H9 zSb~7le^O3ZdDI0YSh|nTsUlpq0}sJuSo|@D>Xr#q86?FJJ;j1uUs%m1)y^z+D$5k2 z&UT3hx^?VsXqRfT$mhj&nkz5FO~=rpB!+2YtF5m^?pR# z2On`fI63cgSu0boB7Ntu(h0$!ccB(w?!JLroBj8tq0WHAhs5%tuSUpkELv~eWnxTcS^&9r6yB09@QU86Jrn1)YQ|&J<1uG7g@UN7d_+{c zSZytd8!T*hpK4{AKMXKs^2M#W(-<#D>tPq0(7}Caz;|RF{Vo-v{!q@O{?Il^0hR_g zjLg8B4X|oSU^TJPNb)(2%|3Rw(HOWBm3wbj&Hpcldlc&$K|hUfd@J}B?kcPD`YMTz z-|-Z;?miQ6PYCuJ9yF755`$ugo4hLnPi?w@RwLY;SuQPjUcv)mCG~n>)X!4*#q59Y zxlXU{FG;1f^B|R3{A2dBBRR-o_Oj=8yo9?0D)Lna!n&D3`CvezPAWmw({7i+b>vC9AF z-)y2y;PM`9B9=b(IatCO!CUsQkgty8mwa_M=Ngw{Ea9dw1lJ}lERCGSd*A2On+C95 z0gS=rUb~KKaJSuUAX~l{rI$@>@zEy8S308W+$VC+f-^u_`5ek#@#pqJaMju7l_f;t zcyfTNL~b!i7L)ZV?~{)O=$KdsnCR2@5b94xK0~7be+C(s8ULi-VN7Aw7<2e>Q&p66 ziZ+vZZD%qx3^Lu@)#{EswNHySNiBcIvXn8#GO|1+_K0=#_a?V@RXzTM)gMqoIxgH| z%2|)I4H$f0D3VNaBVw`~kX9bNo?WO$YWD_q^h;@*lstOF8B6iW$&zu>5t!VqI=IM! z94ZlHD{!CPBZ5EC=DPtf1GWNa-iurp_FqT(P;*Bfa`KG`1}JK?^QYOS1^b@3L4_`( z83Jo#u|!rXxEFNDg1&W3zDnC%cX!sV#M6_&4xiRBb0^4&Yl+OYGbci$qK3V+&nd#MO` zHU-88Jcma=5ac+;02fLLi1WIc)-GUjP~?@-ZK|eU;LP|hYq=%n((%-3Z%_Vea0gpR zR->~pQ7Nd(err}$AsB=W@;Ll{Jqf+eqf#-{B5&r_mks)DQ4~!3t*qXd!wZ&GwO8$m z$n4KN$Yk@Fzd)_$DRzhui@W&+HUbrKB-@ve&hm+2jAX_>gh8D5w$w(gNTdRUH#J$m z*kl{mWgc%4jad0o*_LAd8iX#MSSoOfnM*ob85)fAwc3!uMC-LF4bTxq-MH$ z2*KEOdmsJr2mun~MM=7D^g%x+0wm!nm6Hpza{ZoTcHE>bW%M5i;4fmiJNppy1Y;5Z zTT%s$WfVMF%&+CZ?AQE!egB7j0PU2n(knGAaovh!d!Xf(EFdrMkJtjInys;)A2u9h zR|L>5=T)iOn$HsSvINcSK3!qms4ldfm8l`vhrS8(85b()LLJMWe_0KowYY7!&EKLJ zTuS2k^`mtOPM{jD53x~WGqd4W|RP2JnA~_b*fRqV~Wl>< z4zcTwpY4Ki8{fJT{pU?9oT0P=W82cLu=OQluAH2O~a2&n5EgUn)%*+@w zd(6xfGcz+Y#vC&n%1Kwt)*Fm zjjM?&4*wTP!&iW?2Sylz)4z!gvX7A4^!@Yv$LQ~be{i*exq=Dk``CsjS7$g4v4EX0 z*Mg>CKht$*2Z+vRdjK09VR^hJ)#!;#DtS#zs#>f%cmyG(B-5n{9J^esA7fC(cc|>HK&$v&5Sn8m%oT8LaDV?A zlMgma6301J&25gqm3BHfa=Gx`D*m?Arf<(NFML4RiD7RnklYY%mEk4E7+*rrxj#Xb zyg*Y2u;dPN*Dhjs%+2%J8aiZp5{Js``0mUR?u{EZJ2sb%@ViB_coOIx%vb<+()t*J4Fgrt|?XTGbI;C4_2)vkn)1*mQf=g3b<;wV8yKS1k- zg;kI7w$1Bkk7?!n=b3|<LKJ@5*@2C}Lf-iU9`v3ivW=|C z9xxH3t%H{R7|XRDobYzd<~2k2fRB7wlK8nB)!*8PvtTj!kdVU46VzYul?|&rZ+^JB z8iW+qUih7R{=$u(H?A1=V(^3GCaZE>&AW+e=YX`>|4d}P!E_=r)q5sHiUg#Z>H0V`EF|Mu$o!K?b%053<*-jkQ5`Ub5b0^& z?ua3JSm)icEp|ZrUcJ)na&$hy^WnNo)}cqtSZ}dY7u5nmePj>v2Ba7#uvp{slG+J* zKPMB&sulEVQ#ZZDjNdAQ?pT~0+oj?~Fm$O9RL6(4-ijq^FIpDe91gcd z7AoCan7||_to1bx0jV{R1mU00qf|PFjmNovOs$IGRE##ffFOHJUt zV8W2HYK|wy zr>H*ag5zohGL?>$jB7f5fsE?enw(_s_c1nEzVkbTSo%@8k^vyMO&LFA+zXFduM>xVUvJSj zv8`r)<+<$|cf2UJVs6udBQAkk!c`Qg-LVr!*){P?e1nX-1n9%0TD7+GTO z;h+3LGRoe*AwE2kgZobSx!=t>wd80NQhe!(zR7UQ1 z3mqregRo}IT$t8$=ex&3?O)9jLv=H#RJmSzf~ExcdsfHgXm!6TwKdTzk%r4SSc2sev#&%v;1yg&rxRq`j{726c>75~5) zJT$yJ+O6oX6MqXIh`I`Omm?tOyaw|%Wm&jQG;SN5EKF81kS;@fg`xLR%+BH55+u(8~DdZci&^TFd?bP?hf z?bSm%*`6wzHq!kw9IQVm=u1k+9p^+2<{r-t@163Aut9mgxJ8=#WVeCilEHcw#$i!m z-EpocX8o4up?kOjH~L?cmp24+;1rRYsM?27Egn?4uZZfbF_S&;wfv;m;|`GHgSQ#S zCW9UrovYu*Cr%z@i}VyX`|zk{A?CZ?UQO&c@hw)n-NE_y{XxSmT~g|J)ml z#VTf>WFO6;eA_-LufOryW0L@t)`Aao6J#prp&0HWwT zZVjfzp9bE=pZ+PkzgT+z6AI{eF?&iuf{3cTjYgod=df+mx)I}s-r?|a%!kFMW+UbEN7AjU zO%bXnBd()Y^EMyqUTVMl2id84UOQcoA>OAK-$;cFv`0+RSZ;=!f;|L4= z+7@5F#&c8d6<%C?91Aarbbr3ZjzvnDHgBj`5eSWGrZaId);s9w{s&zaBw83-!{v6o z3i?W&+r=m=NJ$LpC%u!{oOVz&1g8jw0*;9e>vO@Y`Qqit5G5Zgmn)e_w4qpyR6}`*w8SrZc%dBRyw3iY>SKl2K2*`eWD#aSFH}o-2ViRbjcZ=K6*RQs_?dpds zJ0@t0`?|XJDAIca%5Elz6uu6n9^PH|cB$4m~nN?HFiJo*1Q0gMVK8wuzDNsPfW{g+})|1|^5U%r?Bh4}d&WvYMW{eKcav;C9)e@Fb> zpe^gN#);N>s>$LA%k{Gn;@(2)ui zF_z++vH5NL-fbS#%M6V{rvGVA-YVLik1nBo)0q?pRadDqeUznSa zdF-|GhR3J@)MbKO6D!eGn>+>`Y_Io5SDdhwJ8vg*xQ35f#M2!9MLESh&cj-Spb(@%8xhxwlkM1XK01?Jo3-E^ya<3Aa@%&J4FUx zVCq5|J3WF8DbrObe$w4;8BhG7JMYSwfIbm^)|;uVe^-5xf0#Xcf~)fHue9e1$rS^V z#IzZFDl;<-Vz#k&1r;UtCLyPE+Y4%Il}X?`JPRea5Vdj=F3rOFOJ?A`OSz6g2vxty zPeq|$09*~781_krSUv0;B7BIGTcDYavEUq2c$2QnmCoGuX|$Ns2}>~CY2@&qdTm?D8 z$0Ugncd#~j){t^#a0@Hfl2%P1@)$^uC=XFw^R6l?eTY~4pdywYTfhZ1?l*WOukwD@ z%s0#~avKD4ROfW5v6LsUM1;yy{sh3}W_|Czv8JrP^^9!r{PC%m0^czRoQdYbR{C)% z6ufd`gf7++NTp6%(T_GGK_YcwLZ+o%V3|9)Cu-n9_%nq;_eYRl!=h?<9RZov^B+Q9 z2poAn?V}^vj(Bfd;1r9JHSy|8C8>vleQe);<`JvLddGZ!xiB~|6NQOD^V1RhaeF2N zfLuQ;g=`IT0YJR^hDu6<5dN8ktS;Lo0s*>ak>j{xb7$IWTw>1 z+_e8^oL5ajq^vO+Rde|oQmm!;KovOptysk&BfJSF>JDe?2i{O7(oWK6%A4x%$i`CO z5s>|fSVw53B)L_kpANX*xrm_8Haeb;*TdVIWLZ<4;Is4URflN$whc+mu(LfxMpv;P9(Pse;;pnmHKs;VyQF#B~8r{TY zELbnK@IgAo!U^8fSbnfyysw5Z1e+ic!X*-jB_ zoc=j%5Yz8ZRExfrWJA(a(<$|TQ>C%U*7*@ne*g0Ps{6o%Po&|C8t_?vr!t=$x)UGY zuO{i;CoZF37tTzJR+E93U0e+lL0l+sTV&-FE_t=#Qc_IdVbaM{phD?;JlrVBotaun z3B&At>zYDCMwR6q_FXfLfE}*b(*xkqSFWE}ejx9A8=^!|h-CiO4kUG`6pUZOjUX7P+Y!Nyr z$63->X8>ZWvM#uk1dVo_tf%u7L=>+HQHja$W8cKfq}sS_e-+wyUuEi$dC5)mnRC!$ z``<%+V~s2D>Wo3Y^Z(}R31rf@2^=+R>eh9J;)LIgm{U=}PQ@Y#jWRYr{&QnWK?@=k zhw^1W&S^B7k?~QU(<`BoIgk`h>s+Kg%qkfCu4bh04T*!c z@Thl>^3oSZ)F1*C=sX~VwFMRZMhi=+h+3dOwwtKOCP7#Q;^Zvi1AiLIwO*+OAJk_T zHhzY(uH4t+3zp`|p&9^{N zBFaUL>%qHnfiHk}%!~?_PX<|z8RjSEPbTe!y<$?iEg7@or!g02YQgO)X?vAnah$Cn zCu&*N4*b$yd!kb_{g%^HRjkKuw+OFc@SAcCt2+e?G18Hx?tpA5SkAAGIZPUxIb$DB z`jlb|aoWCIhS_xeb2*7P?g6y0IAwMBCmhX)CttE%6l%?zJb(V!B|b5hn2tD>SG3FM z#dZU$wTbq;nT~6L^3-{0@I%=j=69oAs*$I`nQnXvw6@c*vQ`wB@J9BH{C#~!*Ys?F zY`dplIdWqtTNPEuS5NKET=yZ;Y$*-^W-HW{v}~g^lwV@n3fOiONy^z^(Bb#(#93v_ z1+?&BFm5wb;D1(k3;5@Eqme~sJ{{`(f;NY4OC9W-RvswuIBumNdq<2d7w?dwR7@wtS*1|Re#c>iY)7h#okx$}HL*~_+b zrf&t9>>54BS<`z3VJ(^p0~?MCm=+DEhztTOEw)+>t_rko_ZmJ6p^CXaiUY^+Pf%8GPf5ik*V=I zkI?P&uAU!aYJhT&n0K>sVI?c^*R!l*akt9Ud9Uk6xXX6mRg62;M-GhPR~s>m&wkYo z<*#j!FIZug8ZhZp-hc-em5*G@_3fv{E-q;V_?a6UDDjF!ow90<9Qi%hkhU(@MoC1I z?0V?hde|Krs^_bWPer(=v;gWLcsm8V43K|THdOW2u%1MlvG=Kjw>fq6x z4WQ2#ym1fhz~av6kPJ*(&_VbhqNvA!qk5vF@+;UI0M>A5XlhizUVL;}?+a1;E_4-Z zu9Cbv3%?!>dFKDAxmXG5Ts5+<5BmmV4KkC}SetE@c7j^UMR_xe`ncVYb!UQ9}T zdS*dh@+!y79uufH$SPvm!UMetL0J|_gPv!dcl+Oj>VF?)`29Y^Wz@BIZT_8XoWX1R z#m(G+3Eryih+8@H(fzIM{<<(n1$C=ds~2A-Ld4PvVe#(VDBMJ*mg5`yVV?%k2aHXw zJ>LJtlll+kS2h-we>+la{}0uj|92)$kfbunzqEk=H%E$#`UwA?pNy8E z?0ge9qom>hiLMc+p1(oBIex&^yC%IY=|vW>YVYrxhdTJ%y~~Kg$sw}(@W9lk75(+) zyo*cF?l)7C0vXOP3SN_YN3+MfI>XKUB<&nH`7%~h9fg(KY||C1O{@nuaaS4tmCJJH zBk4Bk5|df?;^xcM3jo1t7{++)A2Sw2H4j@NSYK8Gx>}pO%#y+ojWm0MWX$8$)}!Ih zPG7Q@O8x{r4veAJ6|D~-YOoHum;~C-VRsJ?ZUF+R0O$riWokXB%`R>~Gv&0j*6PU) zRe#3Tov&JVd2c1Oqz*!gP*rVF$>+zuxW5ROb=rPk`3m%+s(-O;XqE9aWF=oMK|)$l z9MUs(Lrfz~_vgu>d%SS8ez`3;p;M}cA~xu1C|S}p=S-d>G>bFJEb*d}?mgE6NIga9 zRFuw*!0&{1kNpJVIWF*cok<%YnOa6FC1+2TNX{Miat|`#t5M0(SIzQWwOGgYf$iLW z!mU@Xm4<7fIeD>OY(2_Pjd@>`_N#2YhYGS>?ItEJf99e52u<>(5saUmF(FmUbP_IB z%Nom0vC73yZ1y;QjC$gxISEXIP3eOR6nruEc&HM5fMLtBBHm*d)sy+O2j@}n&PNv4 z9vi>cHBd`i7-OOIndHMhjEM;^=1}6jA*_yIdizYh=L8u_Q-~;_Nt}^&?i%sDT4^k&@XqR6q z!kA8hFGdM^4(Z!gsq_&EN#Jw8&Q_Qo#R`pjS1C(%m+p?A3amSqnFm$vm(q|zyr;*G z4AbSj{O!`^GOokm#`%?~Lk=1)aUp?|DkEN&@@fq0M=pbj?`O3T zr4-#Uh>tk0HN7QyI@XM;aDGY7VUD5da)SPxKRTxbQzjmCCzv0fz>NQ}a2c{J9_{@~ zGfV`(m1HUl!TvPcKrop8a1Rp@T;XvJH_&P{UDLMOD0=iY>WRuuB%Wl7irDRz1u3$x z{`;zdh?MeXuxd$r>wO5}D(;{Anv;_q-$u6XBs+dZR3q_SaMwl?)rBbyk4jR{BE8K+ zRiX1^ft|9gSlAFEbLtA`g>aQooOGfBmCAzSNB@4TaV`%_4cd8cTY07qjQR=XF)5~> zP~!<|Sp!;2fndIsX(0!?LPosDX@HlgABjJbGdX0b>DAVR(5b}e+>UNx^ZM0UqHm4D zzm0siV`kxy=Zp8TeDyQv=^_NA4g3g4HvCk5JFE0%kVeI?)+*RH%(n=%c!E!9tbEXX z@z;tlwpP7Q!5SD`vLV^N9U5lk6AO-+T%-QDssoqicyFk6E|Lm!%|>Sa@Vqa(ybd!= zhbCxPhbSV3Tded=`#FO6h1r{AXtiwkrYuyNY+C_(ekysD6qBy+#Hr|FB=n_MC)kA< z5)bVUEV7Bh&kH8-pkO{J+OIz59;kI^XHX-etD;=uE^m*>7)A2BmZJEO?9W9Vf>S?p zK5fy;$(K@za%h5Gscl6V$`Ik6Y<~EQKpjC&bvOtmW}qI*IVTq+I)N%!DOS*;K$PJJzbOl7^)~gp2$+XPk!*f#H?;KlfD9E8KB@sQ21{V?koC`2pe-a3@b$$14VZs$LprvCSMWZQ)kR)Wnzib^-5?9jdL+;{cL+%mIyA{MOgCFuZ`iInjSomY5J8T+7O_FF!Uhx+~qSkCu(HCZ+8%j#YqMM z-Hw)%oRA0sO%4VHT}}uuo)4#4i}x;VH^kj>4J*H=BX?SDd$}-`Hr~S}iEBm=_^Q%(0zWh7acQ7=Nl?HNjI zd&IiIG0f~C5&qPoVqxiX3O0uCqEKFTL<>s&mCDKFLwj0~g~%V!TWsE}KM@F(XB^yU_Bl~73N(GcmNx^U{UdJx=EZM6Xx}QT)7Yl7 zDhk2M z{5{|sYhv)6Q^A^s+smJGGugUo^4cYWRDummay~H|G48@jqH=FY^k2U-V9<^C-&tcM zkB+Pf5q__uuU|-!HU(6YAM^Z7*w5FiZq6&cOwH~&&Stw2DtP)b!L2b6ASGq&v?;J+ zfd002FN!nU{$tnKzAB}?hUhdqR?qk-7Ny0rJCj4EVQKpCy9$Fv<`iv8#I3DEki8_6 zsa4d*V%v2#+Zg=xc5z2Cu|I!_+acjBMK3S-$xz; z=08=8{a*&M{~?^n%Fe~}KM?^o_WvId0TvDt(D5%s;J+TS{wv0R;(llQH)`?kA?rW* zz<)RMKkxUul8`5HU*EtfP5JxWmso`dGxI|DhT{q8?<*8jp0pkK1%qvgDx#n74DQ?- ztfTS`gnD4-gnq^xv59=es%mdBnaqiY4`JB;SFy^szrJ78jv9< z`d&hZfBJl@@uBDT-3g$gfbsnN_STm+8E3rEIt8(){W6Oo_HuK4-gZg(8Bu39BFV6Y zc*FmruNXoLk|0k2(E0v)y)8XbQs_%lu1m8rG_=mtiHIJN!AVLVareA^e3w>YRHoR8 zp?`q4l(}F)fmS~ z=%zuGqvY^SFeWkJ_J@aJnxNp>c+b8fGVw;h>+*j8vXcLKtC***fF}VLae>mT2ky1M zJCBRL_sL!Be1{gdn-N7GFr|u8gVDM{T?`-6MjrR#2Z!xKWlP2CjctnZ=nTZ4N?RNK zxO_LZhxbsQqs7aQ`lga2g?gW{@>3$c=)nQ%_2NI2#1D8ko-Ka90hi?E>P#R0m*48? zpD!OebORoqw{I;*>>Ox`KUm@K$BC{4A2OSedEL3*7f1aXgUTX!22L9XWRF`qvyrBY z<~M+sEc&rD8j+}xK$WC-R*>v?TfgVX$6dg#U@}cZgHyok^o_&1yoB_t>}5g#jB3Yg zg)301iD9rysV0Em%@d&~$L6PYtiT~phzp$?I@2PG)_t&h~+k*{x+8PC`H>f~_-f9UWGIB9CE zqniqUrMeRqU_wM^2VI-i=!y;@xpgvxKlbcI{ON$EQlTrB;;4|8$M>$7vS!ilnW9y& z{t;jGn_pZ{tmh;`+c0*%e1V5^sOCs?(BZ4MkN$D9LStl$-lFP{QSWtylna7+mt>3N z%Ij94<2k8gv7-8r8J5?G1=1)mWL(Hocn*NcG0y$_HV?c-!dpw1*5PCOELHN^#>cE@ z-fh;oUh&aypQUJ36Mm{-x0~AFcXIp1UU~3E)9Hu#mq}#B30B*+R?uD*vnrOZbD7E1q3;;XtSTD2qLGCuQ`28$a zF4?NpC_B+1Zgq~Wy}1;EJZLw(kMC1>S7$N}!a*H^qPTa==m!7C)%*DVgP-~J{rLV} zT3mqlYv@2iZXdv6-K5j&@lRio1b@!JPpmF8JfA-}xf9xPJPMl2R?J4{gf8r=XnSvu zX~-|b*(Du*%vlmOSh>l*#)O7OcCTEVGkyE_`|CEjK(}Z>$H)8ju0G)5y>B>w5dv5a z;NK9qKDwJ*b83RK5sjuGEv=rz!~}$7WblbejAiOQ}=~laCPdo z{jqU&rhGC@-w6TEVs`Gi!OHscE&HA6kHT?!%-I;00K38AI;{*Atgm+>(2T4`uglA> z8Vh+7C2j4+`LpZjhy1|CSBpGSXxCo_;x8zE_uj3*;fkHxr1$eJi-FHqANTtS-|^L5 zKj@j_`gd=J?F;Nf-+0F9eouZ3O1qXXrsm~{Ndf}oe#;l;<%pK}sjTK^h!U4%^)AZ4 zpY;Qn7VG&XdF97y!fF-6n$SwVB@^jd3hA^6_n4-fu4hgW4v);S)ve|Vr9SWOzhHy5 z1`RYWKFr+fGwpXwFV}UPvkkmG*gf3&ZJ{ywJV`wBpIPnfpGRXfI{r43_d$2LEJf&6 zgboi{;8fb3x`T9kGM`#6E-zvD=J*pZBK*^nEBumboo8~Re!pE=3Qv)xh^qZQt*zK@ zt3l3Bkx~PG`LKw52!d#p8x%3y9nJ!f8~`8M%TNc!(3$0WoNbX`FJs9~Ho7{!UR*@2 zKgd?xyI_b&QG3`WjkD^y6G^|%+L#9k1&0Kkp=(dT$=OJi3P9VF@~47*PY4lb49^Pv ztjDh?9m-mdidbAbx=m$N-94u2B1sxSzzK(|NV&AOawPzXd5DvVjXNqc2{fD zw@W6@P0|?n0lHI=XR>1Bt*!nUj(i==p*pa~L!s>(`J~83En-#l+a$&4Exs?;@eHjZ z1qLlcm{#f`*Q5PRjeBfKY%14$*i>s%37huyYw$&;eJG)p_xI9oy+^d>6r7G-Ym|1p zMk5$(j+&n(`++eRRC@eo1<$>^=}QkI$Prq&>+-D@n)k1=Mm~`6IZkGybe%5Rbaxpg zLo&gGNd%5q>Y$ut_1yvz+>o~;mcT&?tg|sd+&)IDcz+eC29jzn^Vocjcl9u_Jiks%au97+BLj^4F}kxQMJBvBNuGtg7)TfaW5!M zYC$VxHAF~it$<0Sa%9(iq8>U)m~SX*lYT%%*q%Q=nZ_cpaRhE>LoHcxk(QjExQZh* zA&0v2l&(>|FDN`ZgoV4h0U}k@!!_APD02>+lN@KH&se>+COB?iSv}R(mCwBmEt!o0}%r#G`0eFPKO}OI~ z8|3T1-R+;{-1Wh&m^NB`7h}d={P?~LfRM)$+>%~3cKuQUfM_|)o9Y1{(Avr_8(p^I zEa0q@aafXj>}TIQjzso6XaEWhn#ipGK6rxK44??G=-4|6lw6(iWruxKX4Nn;e z*|cepj-xjainT^g>MUx0+E`sOT8r?@?1^QWkWp%ilepaDd?UO!nixIu_nW~HGrr-G z782m?7e-9-gOd4*-aEU~Q+0H@S}Im!H2NwXRY2FTaTe**U;;p*c0)@3>8=Ymn;(RO zp%!+9?afvO*OrwfWS->Qv+0DU#2xnnQ;ztErIuaKUSf z(^d?12@aD|S|)L;OTYGpSSQit%K9`f537ZYV8+H;5gZqlu6+hSW5OZ9^uLkx2Ah59 zsokSRzK%+87AgEP@Qn#__-1Ygrsqu95if48@jmS(j?ImSw}N`kT>ZL|L@GTvCC42- z(`{hbueiTCXK()IQ~*JR@T$M{*H4@#PMGXj*e3 z0|%B7A~$rCGvyaEQ$$mnE)rwrHz8r}7a^n=@7I;SVg;07Il1}9ELJQDn;554%K;wq z)7Ld*$n~ThtaU@jQoXE57H^z1|B6<8iP}H>{S@h5z6R-0_utsxWl86x4=|qsRnl4! zKkH3P=E?4Io@80ANp!d;=BSD!!^mW#;v_m!!ChuA7ZYs6Yx0T2M?%3OO5ZWS&g<#L z@{MG9qz2M(CHv3h>=gTmfl-F5p`MXQEL3DDMF$0sM8h4o({OD}!qsE{ey)IRXxnd% zZsDDi1L3Y2OMVZOON3M0G6I@BPOw(Pnx6SiVsOyL-@`1DTdzN9{+uUN2ap2lICNiwJ;eu-B~YWMBe`r$UYnCYffet zJa`*s`p{E6>XDo!ZXx!+ZOg!8mm#6SZ-av)) z^gY{?bEYhZG4uWgEe}u<1k2zV#zq89dz;r^Mqc^vP_E4R5d&aOG^7sv3ssnk(!C5r zMyL}bIE4LY>g3i`VF#tDT~2=IS)Ty?a?$9V3fapBO5VB&p`!N?m98zTX>14!Y{8PL znws2_JF>yaAv4%Nkzx7!Clfa4H-J9fr5-(Hbi&!I)|2Ke(TxTvAjVMzn(sHs=rUJP zTM41i(dm&KM7fEal@_v_R-4VaUyMSbQuZOS&vy~9h%954BDH9f{d}{HmNQd$AXzZu zT&GfZ5IZFE8zXH? zl*PY0=_sbs>S#bEe`wmRpP+h|hTUM>;W6Ot8EZ?w;`3^al#gIP;q$_O$XH?mY>oM= zN!Y4dz~Hg;F}T=6We3Y2S?bYbA4cy2`Um}Jl;%16v$tipBhooCn?0eB2y+nvnJC zUvzybWRkpQizi`k+irrl`MJxn79g18uE$d7z^Nur9bqx+nw$Cf#G|ol^QvY1FLHrw~dN!yrFbQ;K*(Egf(HZR#!>kw!Y)uewW%16++ z#%kBl0uP6Y2F&Aud8dRS%)Ua#Rd*32A!#Ue%%^0J3Lw5ImtoImX27R5Oqxr$PZ$EVkes%)8$*CWd!K(<>TStp$qBTYg~vsfY~L4nSb|K%+2myA&TFbEB}CVnCPCR zh<*Jb`_xjJH792LSz(O-C!gA@G`JeV!HXqWLLW;;M)Da9J`28|Z>`%*3JSf;C<{DU zvQQL!-B;LWU`#MtcfjDG3DaA^{Pom0)gwKYUKD`+tLC#KSm++6v!Lfxa-dyh9o=tdQY4HkO8ei z7vk$)vGA()MLcZdzeXuePj%G5vDlG?9{Qwl2vM_`*x+L=X5Vq~~If;W9b0)+|;cg}xwDDgEY zb+MAy^wz4kxJjm+J#G+^w|GhBRs&&?>KNRNj{U2rmfhCG^hys9f;SMJdU`qB*2r>D z4kTWtTtj=nWyNL8jpgvB*9GAV67v$Y178idpR4~Q8Z>i$O30Q3j0DN}Nmz&IPax#z z>sk`jP92L21HBxOumtF3HQ?gXC-ICiU8TPo?{boPm9>@O41p+njr!L|;L4!RKwgi} z2>afaCjbq>(9NyqdlJ$O`W{`Ayf>5jek!cjIw~9edQvfZkFO#cOAxo&<*6EUCi+K2AA z!){8rv79E)Y)aorT{ft9%v)c!3;2*XYEF=MwajaeRj9Ak>!pL97A7Re>o-gEPA;V??18JJ{pCsj{KdA0UkYYoJ%f>lxx9#;$4O#h)x zN?j#MIP=oryVxL)LsL2iu!XY5-dp3a|MiS@uxdZfnq=2D;V@3*85m-O6iyIY$F1O@ zsJ^mvbyl&QAc6bA$fZNS4&C4(j+&%|qF`wCrWjux+w2SBvi8vTCY$)f0N$dBiu&x* zpz`AVM;oCPH?jv#Mee->c{sj&UK>7~tqUTx*K1lkt(4P#?89;eAHAaD&Bq;5`)?vP z#);Yw4*UG?{03_$eT+;OcW@%SgQzrPwMS7cyqZG{#M$vZQZyosXTj-g(=}X9*Z>5Hzbto z?f%Wm0xq7Y(N`(;Ru=JLSylMnzf@4_7n$bv6SE?1XHRyfCHGE6;((uBUwy&cO)qm% ztyPhVR41PhAn%XnR95ofCz4$uYXq9y@1 z=7JNqnkFtTE`Q2-9j0^^hXU8_xOe13NuK^LblP`)@`hez$_}yr(!#m###_KQCgt%o%iUtytu3JP*=zcs}1CcBO2sySAdf_>9cSJyFN;br;%Xt^aohcI;; z*OBQhG~qB(ZOu0_t2%$*GnGCz&3i&uU2@jC5r)q|-X!G7EjnO)kBKXxho!5YrA^p& zpxCJ)ie@&{A2D#x)p{N0{?=P?T)-fBdli(z#V%;U!dq|+c5j5{AB^u>^Q<-|)63V8 z^tVnwwxBmqA)rz;5;8cLHtP0r*bI4gNPx>R(fjLnq0ZIWJetsPiI#*6 z+DK>%TkJ>*RdAG}c!_366LpVBbhsaG;M1#HOmS#oa{z86#cJ|Ln{`|>0#(06BrOuxoZ!oU ziKxU1Ji5VsjY2~VgM#V_5SIX1Y*Gsg7;{V>_u`YGQiks))|e*a_~+Z;ZT|K z%T8OzS3{p_k!l(^OI>(;Ru54RDGt~2dl}&p_;wnIbZhOYF=XvF;KyR*XzA8ksj%oa z}zvt%QF(gI--491MJWBbIrZ(hsrZt_gY1^rmzb&hP9+9770__y zd3HxFEC;-XcVKL*Q*5RXW+gW6E91i_nK_kSGaMSHS}ocJnMyUeKmImW32J*gcFx~~ zvrv5-$vw0ASZ;&I|07cfHd&gh{m$KC4Y(kyFK-IWJ~jMX*6Q{ZHlomxVw((CKEom# zmR78i)2}A8Uq$1Vj;yU2CQYtcQQ49lsOhJOTGT8^+V0DMtxeOx6E%?*67$up+K6cC zW34dM=F9bUmu3rI;&_A6eIp}v_B;DLoHgUannF{?@wGF+EN-uLldSz8JbIW+pXuo* zTO-pBmwY>W$VbP9FUmdCf#opf^E}PT&!M(fEY{Gpe`BN^F7>mKpK8Tq3WssP?2ifa z0JF38knBI>FBq~TNw850D#eTO+`T9{nnNH(en6n9iiK9j7?JhqzU z(+zlU*??nhYQ0n8MbPY-gdqK)^djIm(?ZW{LB72PRD%h33=-oceJ9q!uKt4LsXPsTpt5cm*bY+-)K#@vhoDzO32sk37bDf&1{m-OB=o8E7Nr;O z@=t$pVAa_&^DIAvl~>i6Pkia3*oF8fx~;=-DXyvJcPRCjISKnDs1?&7_iCX!H`#+F z!>o7{``9LVVB=;Y52q*9-XO%^tER2LU9t_12V}1x(>3q2QV{T7ehJ(;sQ%jqnrVe{ z`uD)7tiCV~O_0HAJ4-B7f@*g}yMe2pA&Wa3@V)NWCDM4djz0@l=|Ne?*%u{hgt-tX z>skS&bMD7L0vG3YD`TWs4(?nyo`o$pc(w+@OUdj3U|5P}5=?u)y#xI=Jv z3vP?MYY6VHi@UqK6WrZ`I|O&QoA0mc{p!AVZ@v4^t5-Eur?%$IoS8mn=XCd{`_uL_ zba+N;l%5Dw|7K?X=_gnZKj!u$M4~3+VvANc*R_jm@~!*+m8>UUELCkC94<2p{>@At zeZ}eEDbQhT`tk{-eXKQ<&3YjYSnKj1X^+>i{}V4{Zv|_VHGG(?=>Za3{<~+NR(j>Y ze?CF>tx1yV>PG8hw?ES>D+lFV;WL-HUKcdijyjKko(G%U(V(Qii0NVexwg%(f6*q} zy?5MS-y-jQy-}X4ZQFNu5kKuy@F3VVYme6a*g1f6Ho0fTY(5+2fUGS1`T$$s!9|Bb7ner-1t$S6yYuQtOHKlUQUcgJ-mA z>xgHr&e5yE;<*El)Z@zFj}I=E4Brp*e7zurNJob%FOa)@IL)5#Ed?vd85^7f`%;}( zD_u07%H5mJ6>he6`d%-ucZQnY8-F~$@)Vi1x1U|0;GGrw7<}5~?7r_Qv?ZOg2=aRG zE?i%od}k;B6Kx4`)#T=4c`38I9bE^weG5z$tP9%_oru*llRh3P(+&RRCR*mb?xt?D zWvlelOf%vxBE( z-@3d#h(?xA-sJc3c)!`3gB}U0MEB1WCiLuM3RYBarF-hB?HwYc>^HrH04?+y^s^5V z!l7jG(&G{u|4<_Ywb20N<0G^s$W20oVAbUOsui_*WgaNm_n=c4C~|f4C9m zcb3t)L6})o;}Kio-eaE@X{~ClLi_ZLO8Wz7!j06J>ehd~%A+I&I1{m+d#FW6EPNrI zO!*8(1Ywr#;2{v()k{EM#5{M5EPw+J1?-W8k>z3r{1T@&zHb-*jlp+P>2D2%7B{8} z87oz-`x>W}3^gU@6PYXv%a3jmNiZ%VztS>sykOI=E(;I5$@5Q!JJeLzG%J}Xfo+e^5yU9{Ly%U zhN14;IE+w*NFP~_#fCZmwx#dc&HkOGGE(D`MY|H6UxWg)ac&)T+U1XZ{N=;FR6!&##RpgU)ePHE!Wb!?I3tl_4>=PwGh z6xGKKo`!DGwn63ApahgM-dM1Tj&bXrU`}2&OH$Q%0NMpDZ$sQ$lW8FGB}>qt%ruDB z;zL!7mVpcmUAD8e80y~7d-GIX2SKN#%F*QapiPqk?fZdCyLP}W{a4&cLw8f-Te|T1 z_}(ZwV>}${Xv)mk25Rp$joDXN>2D(Lfa<^Sozg1@?hmSpD*M1%-9+$h>Dq*5G2f(8 z-3(kDuEJx1Y}z>v=E%T&InJ_2qE5%iB~FrGe3>+`w%oj-+}t}T(2k8xF6qt03p0^F zP3IwR?dBz=NfYPPrt_W*fBSv^``UnaNL$LJYuy-ra~P#tNoF1P#5U)NkZBaReNre8 z44OP&mQFF*|2PcImA4s1B(Am@69PM3$?#k8bTIl z^*BhBCZwW1F27Sg$!OpLsP7B*&&HYPq=71W9OU*|7hIx3%e1&O7EW0+q+IBa@X?f+ zF^A&Tuu)bbavq%UV^SPejT%e!ZZtd6KVZeSrOYq^H)j2(oocaSsU&!Y?1CrB|98 zN}l0EFoz>te9IIKBTkYy{~hEcM@^KO#bq@-TYGW_*o`(T8(AARgNz1f6YHp<#3rJB za{%8jDU6)99FD5q_yBQrn8zA}+N}N!=KoN$sFLB9Kc*HkE;EjHNDLa?xpu zP2yz&mxA7qlSIqN1o=Z;41eQP?MYtv{E0#n8oGpB5E|Xsa(SlLvaUv<5|)h2_=w!> zvBpXN@d!bPM(Ivf6tJymGTwCWGm5mmeAfCbWf3Ut#>oUpgl_mKH9b@43h!DFZ88Bk z+%6V4>4=+7cMe>b??0?t7%yb}0r64lll0S#t;B(>qd@vHx2|^Z2OBx zG7=WT!q1bQ0Y-^>sZx9-ZBRWSnt!0ECCv_G*iBQ6b*JV2Vhjv#PvCwnT78zWPYNWb zn8f7;&6TmcF2^!MoX?0{y?EG?5(ieWM-k%#Kag3h@E#lRBEUi!XwCp}cWL|$qMBq6 zk@_m=%@2l{3CeWCb(llSeJCjM=1C1?lW7z>bvwhiAt97JI%;t51wa|Y--h17 z&>L$Z1HaEqd;`+|TYM3P1DA77K`BLF!XavWlES+C{8CGX(dmU2#Mi3n-`{p^{<%Lq z>Z61_1t+@p;hE@$f{z!XNqf+Ezx<-|SF!{0gkX2Dku}3+dj%zI?Un)NetBdc_kp2< zUYhIxm7lMDaqCnM9=5A)LgOF|V90Us$#9>~=gHOd%!##n@&7rPbus5DS zilP2G>goUp^&`DLo!xJSE`upnW9Sr`6KIdu;(w-QC9LD8e0oj5hQVl`Q?G_33uJdELRl*R ze5Kfkx!l#z={E^xms%Y*lrP8HZtd4_-c9+wf6cUmQCvS8k0<3J{IpBO#y=;pfaI=6 z6|FjeqZmcyO=K#BW01&vEty{v^_vjRK!imqxk{>GT1_UzS(JKaV7JC0Wb`-LC|8x@ zti9M*01L6VPXdwNprz1MJkf|zJ*tv8ZrK8w3q;6r=|8g&V~YNF_>dkbw-!J>14-3$YD7~tq%o+P6=lkJ6c72;Dk=0+fNN(7?| zya+}!wso~zT{+N_p<3no$~p9LmJ+`ppmItjT0$-sGq@JvtbP7vCN&sY;zjYeXQZ6ROOWZB$riYkC*V}GNX=$+rm1N| zA@Y1CQgM1%#zir4;kZhr;pv;Cj&)5z3eB%8p9gEu%lV}Q`f{oG`B$#~w#&Y;VRZZ) z!x`srD|Dj!o!`191jF1ZU&G#H<~PdRog?5@^mQ<0SN5Y^c9X!*Ihmpzy`lNJPfdhz}ar2A^n@#vQXDPZj)U{G%wjm_XnDlk5HPLSIxsC z7Wo8kDXhNb^AoU**jcEG=sJh83*Mv`gwbpUk;q-YT`IV)-i+~07^%R`9GXQ@^})Pq z)u}LNA^DJiiQR2Omj%)7D2%sk`yUx5KJaeg`uhsBtFGYvO3{A*R`nzxueLo4PRhPjxjV>BOuE&fd z$gcJ)L4n5{9#7j%$j?_l)C@#tTTU9-saD);`QEDjii?#qj;+Z-xJ-ellYq12$sw@lfzC zu6Ffpi9c$lX8J3;=VKmbRjjB@C-x2)VZ$t_>HdPXmS;+l42N!2!p`u!7!}zWMIljl zhaahGEsC3-Uc!>cyWf5oTOIWA$CDW+{+%H3t>&-IdvjtxAL9APqYCOlfWf=KSgi%O zU9D?4yQc+_wf%^YO~Xtib#y>tCgJ(bm zfCO!m%)dz=>q{aqh}4X&lx=SwV&Co+IIIH!ElMw%n+C{(ve%4UeCGgItCr>ZS$>HM`Fh*r zuS1dr+D$)bPiY5J#f}JF1QYOghMBm<2)k^9`4mFC+EDpjx0$WLNCDITJMYg4)WSdu zK>>QsT>wY)rvJ#=;0(@p|J3iA2!?;YlI;STNCL95nD=H^<&wg~-FMJZnunL%laJ4p z?&`H+eo9b8qkP7!FLUCFJN~d)lh3W-(ZYBNsVGg1l--lfmi?C&`ogO+@j@LFw`MHF zaf$cpo)!gOZPXu}B4kpDhc9pMoc_>$((9ZpCM53>9nOQPxjs4cw*dz$Wwn+8EjKmSjWFxsvEqe@JOu(-ZgOQz|qN^*mvtbxwT*0ZK9q=pM@hykiE97x7S%+Jr_FvKs7pMKQ-rW zWe@lfF*Kq>D#x+2-SP8+0sVI`(B0M^z@0bzXU99}e1>db)a~hSN)n?lP0k z7?`!Q^cZ|$hiSFdu_pX};CR#7kY7&ORE4bZgwyj6LIo<=;ct<_^ua~T#srdc$(iv17`L;Das+d747K1)Sl3bx z-h}F+@rylkGDG3qk%?gLLPB8WZo2=RHa(@Fv2ennAQYv>*v;staXp`nkzJtHL2$q) za!om*W9c4;yCV`uVN<=Z!Q@}p1x${WRzl0OAUPp@lk}gxbO;A(iSbE7smk9taVWEy zMz^Jj5hy3x{gqL?LhV1n*OlK=(NK0s$8tg2^MzFc2AD>BQ|B@@?m-i~XVlnbj~4Pt zfxt38_kqvp%d5&v3ygD_bSK*LOLd%{NyC`~%XQfQTF7s1&jm=kT!;Iw4X-)aK5db? z(@y8ZGMY501p)7@CNiySL5_D;gOK*X;zUA_$*(V}R>1TAi#YDMUb8ZRE7 zYEibSf&R6TIw!`91Ix~-r>&fA3=@^%H76{~4P0%F!h7ahvB%8AOd zx)Y1jRymjTbe*Q*N^srD{%I>to6Sb0-Vs)~rDd48C47@qp}bWR+QC{K&jCMn``9%m ze;Wf(7Hz~)#fzO~wGPoA6h}~GXy+!kfo!CyPwz~m(wH9t*F z=evcXV1a3(1Je=UsNSx(gDd*2CHPIF9oq0O=AUcxUgvI$kH7!aV8RY){hZKX z?hB}G_(^0qJn?CVHM~T*aSj=RbD(H=Rpj13u$*W`x&Ud!)J6N1+AGJOKFFanO$L-B zQ;}d^KpADJXkz_1hB2nE)*yty%^NT`eP(0M-9oAJFgHMRDAg0Fr5(c{I88zY5xRKf zW*4HCG+)7mPn84`$~-ZJE=01oZ=cJcWq4w=|LYjfioO20h(u-$vwN00Q`b0~Itm1) zX4ewT$YFKVMpGM|`ak8V{tYN=L>SbKp0=?#MIT zGi^!zw&8_y?SeZ~D;INUkIh-#a5!(+H7E4NAZR5=42`Jt0X`wX}2pj_XY8OyW? zyT6Cqtu2lpkh(X26A@4>#zc8X+IaT0V*Iew%$bkW;20;BjX|vnM-zccOJ@=mza4sa z_pXu8fBq9)RUwE>gpbs5`{uGSBgcw98*;%;_aRPCSf_%;e1JAV9lySZSg%_jpT?p^ zJy?;s75Cquc6I#SptI&E4`c7{?D^Y>0IU-zuS~O5x!8toL+|dJh;E2TUl1G#>=aCI zKOW)0K_u$+WVAW~0VMp@7J;ZPXMzrF??20-Ap-m-&ojZa<5xH}gcOLV|LaH-AU%MB z2z(ayaoK&Ssj0dM7!5K_-`v>D9Ov?#c{=AfHGD%XOWUkY7ALI0&DsiCT_OfJ6t3u9 zlZkU*ypI!Bge^9!KfbKFjyOy}%4?9TFsHAGrutGo*Ba-x?O7~L1Z)u>#3aMF1{tSQ0RHAXHge>TN|Q_uFo4Mjvux06RDQf z3lcy-Lip61A3NXIw77Rox)aYWgv@&F99#*IW4H2J@Jjdi!^0Y3m&-|o2ttu#d1+f5 zwtbG#uJoL@k`_SdO!j;lL>_)6^rUvW`d_5Z{!2Ff51S?{7ZdQmb7%k2ul)bPruo0m zo&A?7`#-T}vi>(w&Ht4<%gXYv*Z*7Y>;R;S&Tb=0=RLyii1be#eJvDUassdF$WwX= zeB_u>UDow9oPqTUP05a(OJdtSb*Zb*l0UVT$jT%_EzZU~>U6Qi9E+BXYkaz%e)I0o zHN9^goHx5SJtDomkBaTPPvj3TPa~_Q*7b=waN(`M1&_b(*Silj{|M!G5x*P1-FNk6 zk3ewoZridt=`@+C{84kVLtCP&_wIcCY7SZ&^%J)2IRBIzTP zoVN1D&kWN=e2z6(UhU-BPG9@8Ax5>fDvNW0r!^2}s9uw0_jg9#t@!zADWZByo=C&B zcUh}#xg|r(K>(w_t9@C`9!gx6eN0-Qq&Vy-=-IS<^*e9+wk};_TVDx2M;lJ-n*j;R zWJ6Ypr2(Y{PJS*TLL?7O6=j0w(tI8tky!>soS7YK8)%R6{J8Jj%gzG(mo7O#wKdNo zUF%+`>dPL>3jLsY%{gqV^&L(HnF9AS90Iify;nF19An(wrVjyil zVb2&eRT5V}&yy%5>eFt{hwY;cKI`$$`kB0howiAtBwB7^BDdloi zj$_>oroOhOdq_Cqu6AlNmx{bs`Hfz8w!!1rXXE10dz-@un-b-}tjnYuoIoAVCRY*>ivMmtKLBFd< z!XHrU%x9F#R+Z`C}|;$ojYHoqj(s5((g%1OSd z#0n&CWa(4h6n%d_U;9!3D}&bS*|dwcNoK%V8i>H zo*EYWLXQj|Kjw3rl<>%y|L|)>oCT1d_;<{e7qA3#+O;ujk<9;Pb`nMZBISrtVV8=rtoI}S^iPaF5+a&ofJMAa^fpG0&e8Rjr67D>3O zMA=gxe~uRA1Ox`?RFWlpP%8~7{vdeL%N0hL%x(9%&i=9_iiGA2y%GWB4;Ddfn?X@) zde>Us!V4na;X+0bUn@;pco_%r5~SzI9Da+XmauJoPy!(4&JNEyh;vesS!{~`Ef>)s zhaKp?G_mWBi)*M7Iy7*tG2NeCIF)D*tJzNc5CVV5-SBEbyPqCDQaZx!^5gytSD%ih zfbQziZLatm8;wyRk@e}|Pn_Ao0Pc#V6szx?2eYUz8qu=y)2fO*g(yXVa|(nI*SPjJ ztEE>(L7%ye)i-devDJZ>@BxXt>1fiz1aar<(KQx>zZ8e5Zp$A|vM+7^m^b}4nMb?41a z+xu8aDz4a{Gq$jaU9gD4-CpJ@G563n@{#uEaD=&h6C5@>#3H6BI^j<-LoV&nJ)#|+ zvUo0NP#c`Te-e|%Bgf`z{OVyCWragJl{GccI_A;5>~$V$rN{dz#i3H z#sj3SFNrgdv2-x}EX%H}v9+B5M)4YCBC@46(I&MB29v2KOz;)lqrS+TZlLm9r<}7* z2cU51kzt7}&3lj}0C#W&K15*ns<{Gp;LV*q33s4WwM=U zwvk%zDPDvF-}KeMHbd&J1cN^TB?dEO67HsaFe4`U(3O%hp?w~1+`_$QS;A@Ebg|DT zG&g>$9vm*Oy@p}p;g2;RswJL z>(zQKWE)CE=L+%izC_9lW);iQ6Bq?L_&^xEp3B@rhJ?olScx5d0$smIyWm5zL{%(B zahP$5Ig9JUk8P9~_WN8f=GuMGuW=ZMZ&;~{x-ANt!CceNFC98sYkLFR6I>J@D~p;k zX16<)Rzt&es?HGRZr|HIC2c(Cf5ixPf|(G@H~-ADEk3*nC7U_^wwg1(a6x)ouc>Ks zA|`Q0VGuFi!?n=G7+#vV?3~a7*hJ_8G^E86<0KNq?1k%JO z!v8rp?ooa)zp90?>)`1?`%6n1HR1$KtYSI?2jBJ9W_#DTmP>?Z^sN4VLuK9Acd7a*vs78!wrMWoB^}D9$sb#OTQI+@lplFlG+RcWoux%!0 zW}}k^_;z>uDfW4l*E|%CyacZvCAo9|GUEyHLxA;b=g|p|gcU%UQU5yNDWW zTdiYL9{2TAq(VYn-2yVQ_q~y4dS~{|Wj%E1LQRq}q2Jw>$m5qHTlv%H!QjGSG8CZ@ z;x(Pw1lZO}dUutYtxiw;wQ2eB-*@XfM>Xe=IGF9j&epe`#dC~pyYrq{yvB1Rhvj_v z?g2WdpmT-$kD5f)zr9`k;B(cZeP(Wi6uQw6J_XzR$mu{3oqMk|Db=XeZAQ- zuJSRB!s|G_q(h)me&@D%y|=*l;82k%UDUVwL!J zS5drQjP*GfHY6a%^KL|8*?z1#%q^Lsn@Fh5Z%@HRYzd4YD!r12FSDNmvH)TR8-G3y zc+gzu@SkO3^J&-b|I!{3)U$LVC{n><_P$c_*VF&S*kf;jw7nxe4x;;{bNLY+j`#c3 z-^8VpEe%2>S_+Dh>jBp_tn`NV!}6T(i^^UGj)!SwWUNk4_=%LbHOZ2Tm$6fu{kDvR zD5o?Ow|@pY)EtZ?PbY2$<5CFNeAP{*q0B$>ke}-O7uVEx z1^7E_x}5%wl!UF6hHH&h2LZO+xuiOY)FwQxiQ1|bkJ+eOsQ_-?{`g$Uija!zbgVwe;=XG6e39+4r8TbGTldzd69g z_rJS4w!OS;orAinlD{z`Pr7b72t@17{IN+6Ud1YT+1=W_@VT{n%-DCA^s8;J$NkcN zb9jdS7Q}0?3#b0m$K4GW0boGhEWcz@dBZkUSwkz`MxgbDHcY4cmshCv$I7P zS(#+PBC>SO;gBM_rG{mm@j3(qFy%;8md1v)`}J z_hyGicY=#X2^pL0pAPY9ZV^jh8>|-bT?DQqoCqIfj>QJeO&CWSleb=Z_h>+$129q; zHf*=jo-^;g({g)OuRRqV~L!Ot9+JDs>lDVMSoM00r)(V&xbF8 zI;hZR1YTwtnH2FeZozFbZ$6KI8IcxB0B^5EQEC>iLzTA|Au1BH<94!3`(oLq00F{8 z{xw&JT#K?l(kmx_8Y24wxlcaqjU3F1DpAI4J3D5788b@}!8uFA&zmVRe@A%yisBuF zU5(OEizSQF)I?~|ES{C4d(B1i?H2qoPV-0&67DBoUSve=lkj- zIHUE;bXZhEgAD8^Z5h+~`g}bepW3{4mn`p>jcFH6YDN9IjDd@3z>!IrBC6Ls87`77 zBbV!s4*qhvQjTZT%W(5|$^a_^V4axol!)3s0xyEw&FtJW^G^QMiHa&Hj90WFzTerW z=UOF0Z%Na1muqUM2$>Qs;>uNyNo&fI9qlWFn-t-SOqU+fU)3nC!4yet2IS{*gsR72 z$_PKu<4FW_0TsV7b>Q{zcBUr=7C(nULhj3HK+W4yKJKD*vUCmDaWf7>3 zox#!5(!WVf5me!o?O+1$6)8VCDR0Z)@iG*@v7+A%_q=s^HtL!M_88hP+|bhLk-OIM zE@ueZHhrRN+QPnJyU&pUpM1kI@EP#^qp$i^R~+C z+&a>G+xC6mZ}NS)t@3%Ce7`E&ZTrHNS7WyvdT(2!S+94Gk9*^@CXA2&*1he(+u!}YqjhjmS(`0# za@EC^?w{v=`_+r{`(f8HdhI)g6Zb6j3*YD+{nb?wd{x6Yf;-l&t6EnP=khNJjrS!@ zIq+qRIt^$TntrPD#RobE2Dmmh>O(Y?VVVQ6srjdeyirjJa_I4KJA(s88oWURJ9fD# z82C79(Vq9G8xSX2)^x1%O)H^8anxq_j5c~(xS^{eS(s8?9;SE&Wf&Jjrih}2RVS;` zje6ErampSE4Vj5QDU5g+Wtb%79E!!s#!e$W016+YX2o<^Sjk0aX}s>odxWXswX>*O z+V`5Xf|jI3ZFF$Bp`)VJKvQxO{(M7Ql03SjHt!Fu;-01iOs`S1OA+Q#Q5A{aO7Lwn zqyp4`-CNP(8nC#}SNST!T*l+TbJ2_H%}e?>cQpYVpQ|XDOu#@2o-(2_Sf2QAqE&cIEpXsp+ZqnSOkn2 zG`r2kuz@A|DTRo}XrWdlv9e?=8cMZ!({j?IyrgZJ$f|{JMB|4cB&bI{l?bc%HlFaD zR5@%zl`t+Y#vFPwx5WV}_#BLL&2H(K(K=bdQX0dtJ3U4kO9lo*j`aOg?Lln8&64yj zh$bh>Gk4-HnF%4xWMBt$0Crj}Z|XdpKWwk%MAtr*cSGn@WR>-06{oI!d+SPnagaKu zF3TcV=Ba%pfgexJK^-?8)Z>n+4u+kc`gKod6=Vvb5sd8-{bWVfyYD9JoEfA>zt-QU92Z#92ed8 z$?*HV;sDj|Qm?-}45!W2vx;!^TrRxT1_ph-NaE!6f0nAN`}Rp&Er*a+T~rc0)b;0a zN2^uE8_#UirTNDPY!;_aTB~cUd&rE+{M~h_!!wxp29eL`dqCs`*L-K-E+ue_XP6Aw-7v<`onipq#PtlLW7B zypZlHKC&7ZJDXRIv3=id{7OsD+R&-b5}}GSllDSQ9gIEyccgcAhJaW7D)MR3KdL-$ zak#h#DPfif%wkJ{X`DCdhO{E|)){|n>HuKXaLDY)SNH44j5Qp{Ct?dx*V?9=mg*q# z@GE0oK$1wECIQdD>|@0D5h)>{Amid=xa)%EM3^O|>M4dTV@h6zqd%2J`b=)bS;o7^a@{7C3e8XKv&H}1lR_aC_(aD}WHbnGEr&do_q+S1!3k1U=w2Uc zC7Zpd$nu~8GrNp&?){?dZzRTvaTKkeMjVQ*L)s5;2pTMr#OR8T}w=^$)HTY>^?PU!Rjw_ z|J#Y@0!;u*zLzuItqCNrdos zy*lC?NKbHYj;mSNQ7QNd7rqcMXC^UQnG$BGd${Jl3KFlcqc=XS=`$>;bv@X>Ihh= zn?t<=XMj8)^b}K?-UWBRt|_&Gk2pc7fu}f%0Hax}K;5JC*ab=MsFF}af6@}F{3tHT z14Yxyb~+l|(nGwW-5RGo{Wm`qUPWG0af^$&VsF_f;ef}S`* z_mG}HckV_rG6{xeB(P;ZTD?fUfKQO_TASu0H^+)&Sw23<@JHGS=Z5J1M>X$a() zRlzR^(X}^5HQ_5kWtMWEnkkyVXrQsjEzl;H%d;x$hfBnVDvRT~PMzG_un=p;4CQ!I z$X(RDG7o1537lM#I9u+?LR)|;KvvJZ%@``3z^vQOs|?NxyM;MS`mJivH{)5}Eh;s;db_jg>T6sAWE4BBaJSU$xt|@DLY{a1&zlI7 zS_<~>Op`#1%wb+DAx_D3QXv&S@ko32d&2yOrH~dHk|UX)VtK#vTzZ!cd+a@<>HQmoZ+J}Z!YTs%%%D5RDy!JreH(zzDsh4 zQ?ZQX7)}&Rm!|YKgmU^7N6wci>L<<-LF94F{6=oeYbzwYUt`AKGQt|2;iCRNKoKeX=IL7d2+dHOUw({rwUw62Ic z^m-#j{?+~|92&)kw`9{iF4#mT?fQ(YN(&RuE1Y0-iPM#m1y9R%;ZwzZIv%Ll{Zw-_ zUqx46KCwQ|AH~<$la=CG@w;!PG%bumq7k)A1o+5b5s^x!F?~lBk96R5WXa!2%GC3^ zOSh#=6lF31#)g>ndIMh?;%UQ0OOmg(@ngjT)9=cbvR#<0Ks>0M*G9PKD1~7&D~i;8 zt4UaGdjscgO!9BT>GLi6_Ek% zNUK14y<1*sv3us^59Yp{SRX7z^Qq)GgHhP1J?5PlqAxgeNM5;F0l})`3)ALXl1Ps9 zC}y`#5ru+fMb`<io=MJ?Vnd2(_;M_pkwEUrEPm^@UqB7YQOe50oo)(3F(!Ul} zD9esihyM-U24FdU6GaCI9BCU<2tFrTpOO!|+(0I(H1Idu$IW%1xup1IJ^f1htJTDT zgRJZ=r$F@DuZAP7u$tH$d6U15B*({IHl=#@fqcjCyfni#oNSV#$6ooWyEP<)<{0j4 zHlmu86y%Q>MHE7rWM2pJZkuJpYk%?BT$5CE3tU(o2-c1#`^1OY!7N_+UYpbMJqEa=S)`A3!)(@Bly8}s!Qz!LAe z6^_l)sfPP5Crtdo)Z=c(cbe0lw1@kBczW|Yhk>g;kkjZOaVpJd5vq;xbiD2o?obiI z{zv16i54E zVupUF+?1s9dts$UG2fUv(nPd@{Ox8O-Ucbi?R62vyP6=+kH=IxRwLA4Pq@~Zu;xzMiB70NCi1aNF%uux2EKvYPp;` z>0^mkM$JV@NzB`i3R|OI;B~zZPH%efC~}5x0VUZStrR%8xQoGDQnqgd=-RvM{7ObPVGfnR;Ni@>X<`Dz(9Fm4FJSOy zUHdHbCBfHYqU3_S$`Z?K^Nfmc_(J8W%y!g9*6A0YtHRF1_dUDBP$bpzj6x82=uf}G zkk{`nU3Np%HM&!e%0P{@#mAWMIu2$CHGM*G67xf1*qR2{%D2E-Sx!Z3M zZl}e~<@6jZ{aME5u$<&h-G`Nes2aL77(-=Ii~0?*iilNo5Cv-evQarOeWTn0!MSek zYf?N^`JJ&bQ~UU}15>@(%#i8u^ix9KZ8GebG=&YvMnRGNSWAYvPki8{ddAvi?DyC; zm@dxAW5XsyYNH$DHU*?H%cw>CDn@o->sEs=(?!>_N5jVI!_RP}=B0<<56w($oTXL7 z(r5N_hs6dtpX^R;RiYbA0}2YO_tT)Qr?Zc7T!m7v!lAs2=vc3;~H>J$FgA6HJ7g_hpfaze6H4$RMH5MdkUj31Kfdbh20Shxnnh; zwFZfnHM0aX!oNMcimo`sd5i1CptT;erSY0)MYtj^3!UO+MIBx{jy*+$GCIIPAOXRu zDA|4bZTZT34TKLFH--uOfF#J;Y4alq*uS1#c5@oQX{oDNH>1XmX$GS z?UHyabf3%FGW?6`Wb@*5b-2+y8u|SveO1lkVMQG>VO`#d@FDX{PWsb7OAMIAnN<5C z2ljtes?WqO5EG#x#^!&N`dj~ubA4H-%g*^#59CqyqU2}GtO|!Zl>!^>*7qX{8mHc}R z@N{*aQ2}I_Pi5P}(BjZTaN$D+m)MxmJ$0Tpv*Q`qT58fZ=#J_IucFiPd^kDN?2cEoDi889JNEmm z_nNqb+dX1gAWL$*exJdPD3Q)-G^F7M>kZn47k-yKel;f!i}R-ZberbrI6gtVtfodB z3?GI~(`T)OD=LZy{x5uzhH`=Pg+=nB)^d}Ja^Cn|ZL7s|}| z1^L$w;Rv1uUyIcrWLl=Z;b`@raa?&(efj;ITKYl_t3YkWqUa^!4T=B`4|pl}MVnXD zz)6=9N)u=+fgN4(?a89{g?O##u&m5Q9A?Dd(5M znmUhrobYQpDn+>UxyppS%@Zc3zd#v(nDQhAmM-iUIb7>RQ(TaYQ^9}4xCW_=wNY-E zGJ;aCZ2}()BTx(D?$e41rYn`ha@Aknmc7tQK6>Kd!(bc;)qK9zT@Z?`Nz1%j57e8c*j*Y-d(4BEiE1->1!lNf&g0m!hvy%Xh~G zpI+8!J6D@&o?Y_s3+_3_TZ)$sI5GCW88oC~{hXcp@h6BWu{|){x^!mM8@oYt*z;K@ zYQs$&DvL*5za7!cA7ZDt%ict~I{a?QH&fq_$XzFOS3tdNsa3L12cH1P1o4jYM2B^Y zTIA}e>VBX-cS!L_DH+|ChTV~mQH}7&;gmo&aKD*#JD6yuDY2)B+|zM|AFg{*B1Ou($`An_}XUs+}KGAeFxzf}3vT*Ty zllRRC^0VbM=DJ3OI!WgpZ_}V&ZVv*HA;*e6LEn!YAQDt$qvB2QB2ine;xhjX6}YeNbVE#!55|>E#XAH?j@ag@c@7dyevBkZ@q#t>PWc-=4;|@El)Udk6m9Z7rG`| z-M^$8T3UnxWoA5=hFV$=e|H&_f}=xU8CXdt@!V%@(+ae`s~?f$kWcmGbv~f>a@i~y z?m6d4oj1*0eG zf3Wu+@KnCx|F{v=AtbY@K?uh=$2zh?MaT}BCnH<-9vO*3Au_UxWF~uyLRK=eGb3d0 z{kxyT>GSzCzMt>!_5c3Azwht$|2J;WxbEk=uKT+0_cfl!^Qe^w&x%BBEN*h2vbFqr zGJBD=LBg&gyX+#tK&D z8WpTj`)5`NyT5)z=LlcV2;pXt>%oqaS$cG#$@L6M>e2hCi#H;xveDIM_43s#ABLGO zy33tDrDCqybv&j~e%^NQVX<1@GauNPWln$N^x$)W-J{Ldxx3Y_TIANcrL2J$x<`FP z&1e$l4+roq1YDjwPJQ^iSm>Z|)N>7j7+w2$)c{8W-5!mYuXN!aV*~1#^{_*%Ia59S zJifQBA5L=#NgZ^};H_Vva$CE=p!d#{7i8)O5R2o8c>iu0o?gkztc zhuJZ#Ga1S9Ene5k)h1V0=FY}fYfZ2zp&4ayv(*jjPO+Ib*s%)95se&q<47$dbOrqG z^H*kh_orUnYvs%wMDq8pX+KS|=C0_RRDOrrZhDcQ{nZ(PuX3UGqCy-`7~{*Ep>j1g zVi7sh$^CH{GZjWZAC_nAN={*?dkc@rC%+Jxl5h{|IKrspl*iImC?yGwn022BWmBe7 zoZBKXnBSn5Rz7s&GCy%Dd)wOQa5T)`<@$$bDS-iiWW* zj6GXlWxtY_^5ei0rt#)^2A>Q}62T8Yf1B?*CKozkndt#M9aD6#^_J;PxSV{mB0uH(jNM3B7cqj zOUK%X!YgH0_U>uM_Jo}CYP+I!N&6ZG+eUJW;PByp-OJNc$r-}R4)IUluj9(5wNs- zQQkvIk=SN1iI>rF%sAWDgE~t(l|j8GT}R++sW&v7pH!*I^5n*%9*ZV!nTk?F<7@Z& ziLpBVjG|(S8BxOh7wH~miR(8!W`<$h#upf(n4=b)%!m*MH4SC^#J!ZcZjN~Yb7&RG zjemFr=>Uy)qMdriqBj`1unQN?7^Ui{C+84~7NEPV7>SI}`Y5trd&TZ#oLvTt<)_=@ z#ro{9vg|YM5eiloxu{VQ^ONVVB~!bAXFD_@r2?WSy1keaX=Wx}>Lp)YcD)?Mmmzq+ zrR!KHzlioDiWI}w{syK=%8%098aKLmuJ(~yqr`bbs2SU0Tnd*>>#r(Qo0s#Jj=dXQhTZsL0`en|_fho1ni6k=w0ZdoFS2)%(d;qmM7Dv2JrnJSpZ$ zeCtUEDk+$*Nn^c#;$7cx(0d%hw( z?5>torx}HOu*G;((zdzxRyIh76rtY%kh2}_VUiED8ak!}S#OLc&`JRnA zcN;&e+-M2X2ZGq#eIde*aUC22Vv)TuA6hO z7$(hJ_*`u4Mwm*Y9b=pAHZ*fUrSPia8P;0`-SBHq*?Z9b?e{v%153khp(hi<4xCMDRR(p)WJ;f)LMl_5KFrd*&QcABE(5UZfAsCm4 z_v>m8*8TE0AH-vasU^Fs=x2A7gR_ zJ{cHvtUZ3A7K$uh%C=uRVurC3v&_{F<>Y+^f8W>?F8+bEttp)OS$1OV&fQ|p^c}r= zX&ZWc&l$5&){Ep!Dt0HOyHhG2sUe7tbI%=X31RJj6&tOr=B|c#zj0JVioruGH}~tY zdU2%y(#|l-N16PCArjkxiWP8C_PS6H=8bgZ!U!so@{zOgNLtvF}9-$HiM|tVi9I_3hi*Zr;hI zNm!UkzSL=Y+giMkQ7xln?Rxa{8yr1d$K}m=%);FSz33jW@|Zgsm98~ADRQQ>srKK{ zuUApFyZYope_QOx(=FRmxnYEW9>LzZ#53=9)H3j9;oBu%%(w-E(VFNR#-e0HEPXDu z#U_bNHnoYx%|`iDA9g#QtJ1NpGC{5Ey2?!ESM=?b3LC50c}~4N!v6IFI2o!Q6$+oZ zb+$Sog+=@Mn~TOy9~#3fx?CJj=Dz7_8m*;sZ*+Y-I!)qcDp<=>T=YTdBuhm7^RwB3 zN4*<(tSaOjU+A$01xllhm%`0PRJAQ%=rIKbNzeM%h@DG`WH+*AjO!Qf4YS~_Tai#< zXJp{9l0H}~0j_dlN$`R4gYsLG*7=f89tTG<2L!q_KA6bcr$o)G5KK0ddW_!3w)x(1 zQeIWoz~F{=j~^dQ^{-Y@ejgB=?D$ZRBgkJtn7q49<;?^7v*4F-KePo4d`*5*XNNd@ zE=9vE=Z(qp2UhGilr4wP8XrFq5$U;PqMWCpOwG%mFq-wa5V3JV$e0~J?*aWWd7sf& zm~olFo3Bi1QOJZ!%f}IqH0oDayRDR!dkgq-ANuQww?1&YV)8)0_^JG1>OjAS?|qav z^b_=zEOpOJj6SE13TpEEER<@LqbDxzGkhAA_)=K0Jv3GReSmMWBbT0emkau2?)X98 zuXS+J?SazT{x9Wj)8-=%SJ$=a^@ZJK*Lejk1eT^&o4&cPMKt%%YV|`;-mKIVuSt^h z&LbM4N0X7fnW`6WUECR+?(5U$*r?#$PTVOe)O6dvvy$E4VPn+sS=T?@ckCkggc$wK z%9dt9@5gNT@Uf5T>ETbSa$njx7P#UIJFc!2(`ED!I|`2tPSIkv83W3xHl+ljL&)4e z_$pm)I=C3lzw@TJIsed3%PL&GLU?h`ccVFfl4h7O)W)Z`=I;3If;{#%0gmr(!n&yl z?df4VqHm7;um!F-Ve^F`$2HxEjBlqlwrhA6zAe_6%vj^Q>Y*|WT?lF^S0X+NScW;2 zFSCoqGP(s^6uQ1MWGjr$k>9kn&-EEJI;qxvcU4<92s}RH>bkZy{PJaex!c@>*izTc z$?|PI5qI!_(TVnlYgO^qA6s7EeAfC5xomOsm_2e!qI6b^m|0yEUiF2gX7FqBsg<)Z zSB)zY!{^O1hSPdzwOt+7SLce!t3FwjISCZ3k*8L4yk3eiu$<0_GcvLEn$)V+CI6b6 zuNJjqwrRb#^wE7w*llfoZp&AeuBlTh(5AGst!>t6hVc8`eY1DNR>C`l8f8wKvkuPd zi;II_g;x%gy8G_?mb+-ilWdY%SR-=3bb9*qv)m!t%$ag$=e4C_?O37BkEIlYZl-Eq z>gz*4@9Yma^Zvwdo_)i801(Z?``4GOx&Avp0LX)40RNz0QGzS{C%#_I^~ zB^G(C6rKJ`T0{4MA=mX->mu%R&kxdXzb)_Bcu)=(s)&`Pjiv~`b2+$lL!K`9I|tv_ z^TK2#cCT8Rb-f8!tiLss?4UK-L zQ$rC4UpnX|P@mulzxQmrVO;UHu|SAkW%G#L3G&<5&eeSzT#T9w@8IpQ$jlHXlkXIH zwLvjxyh`z*!28rm4uzDeHWB4=cH+ZC<}UnDs@2sY>#Z$r&>_`p2f7v6n>jI!lsy3%r@fMd`Nh zQMa)dG;PkHt0)FlUVFgu2V7M}tn)pNI`6OR^9<_I?VqWm@R#GDieG*G@L2xC(JO)r z>R&6(_1%N+rfHR}6WZU|FVDxE|6%Cn`9}!nShs!~U$d?olOMFyINrU!iBX+QnqE&4 z4zoRVW9X1|)LFl~C%Q+=x}Q7?>c3-OG{{3vu(C0EK3JgwHqAJ9sm~cUMC01Evt%vp zT_Jv;_;CI3<<_34w&YN`YePqdtj?G^gzDU4z>B4I(PN#Gp+D)ww|f4Tv`-20;fA(_ zh5Obww?=D{K1(4L_zfkgl(q6Xt)r*ZirY}CAD(JObP(7$$3<6pB$pC$~sDacVK4JB&Ey8?4W*9QXVBn7o9}c*Ift zNv!?XKK(f9eS}{FnPyWyqO`A2WpdxE+xUJw@6~c=6Jg#fF7tr4Wzs+q2l?rB@cZ1R zamE`-%cW5IGv8wQHgG!y~}M(0DMZ&%Wu5?NL5I-VD#W<|Ift4lXn;Vn}}Oq!|@ z^Zrg#HC+?oJ!`?L*A@Achu>XU4ZzOTzZR( zty%}ppypKyRhYGj>xvJsc?pE#GmCxVogCgSxM(K_YqZR67`lJzd2`CF^!ldY<>A`6 zqW_(xC;iKYx>`!cN5FB3^GVPJWKhw-d6^$1vHGVG2KFv%qK;X&O(Voh^sRso^f0=FsKNw6WouTn)LX&*XSfP8dG-?$z97sS zA|pA4}Vy73k5tn}g<-kmtI zsVvhlc%2~O#ft|{jWQg!TSC_#pp2D8n=yeW8RX>;GKRx_-(Iaz%gPAuRR>#l4q%BNTae)!F6sw^3zEjRYZiS2ZG6CyAkbiH&wmywQl^m+m@_=snXmEuu}T9UG-j<+k5;d*I2@tu4%cdXxK^sy^?uI0D-Cz|`& zXyR9#vK`M83MESl*S^>>Lb zQLheXu`7v!7Y#ixcjRQ*wGm~guU~b`=XlVaaK|%M)nBZ@ttYOJS-Csll0tf4LSp36 zr!y;TL?4&IH^(Ryt;uGB(H2_C7Um;%A$!J#~oW`eAX}!(2vjZ3=|k z6GMnE#aA;e9Zpwu<^jwMoY7o@gnnsA- za;0Xo3?idN3=|V))zOn*E%(jjq$^`sB;`N38h$XKcIjchiqo}b_qbTAr}p# zYpQC8LbA4pnS7%wYV7bP4h0Gk@^#h8=QrveZb*{?V)~Y>KQwT5ry1 zn+k1G_B3{t+iXY9C7|lEv^Ixn8|BA|fk&DVb~;h_9#kJW%dKjUF??!xsxB{cNP2_o zSa2f~nn0E&IOsguYf$ww^Um_6=T8IqXHIQftA(3oMFpOXxWcG|*;dG%9B%s5^$5N~ zpx^goqxb}wZkS6G^BA98XvF=1Z)giTO%i)ubaKiJS3L4_z;UIT5K6`cwS@4EX782( zUn<5|x6Y}GSp+{hm1|OPCGN!}+3R+f3mhTG3J%CAJg{0WGAy3zNa!>5?bf`JgCck* zO-H;b4100MAh|c3Af|lcjbUp_nZ;d_;f8agbr;UFws*Ab_o4mBZMUD*X8+j{(fc$+ zK_4<4*m^F9N1a8FDio_}kg=Y3Hzga~(Dc(iP_@=Y92ycrOx2r!z94nC=7og__1rt8 zO&rpfOesRm%Y$LSDbD3xMg8b1FSCq$#OA@E9RaBrUfV;Z6?k6mdLLx6;6=W-b__8h zv5e)P@$TAY3sXI2yz=lvxY6wi&dm}t{seu2yqz!lY4J$Guaq`U-h(`(8IlTGw6OY#0OY;Lo@Cj|+`LD>prQW{r*fvj>4-^_Fk5U#ZXaw4)7qQFbM%Q?sUh zBEkpP$@%9Q`;;{MZ`fbu-DKV{%T`-PL^qZPN8;U&)W-{GxKB@*Z1JF|nA}VC^r+Wj zox5PlBRZ;@s~^1r+ht14mKz7$kBWRcqU}FgO_DH~u`fqxeZM}NOUMx$w)?HYfdS7R zp00ap9dd$IZqaA%-OGe07^V4mUn>LR9rvgme7~3eWWPy6a4%CpqEUZKL;gG8rGP{- zfPeq_G~}1JDscbitqR=#skbU5-qf`2&7*eh$Q)3AM$hgAClK#vyX+VBPLeIv7Bx)k zPvYEl=fj~7xoMjX%jDGOriosUDBS4IDs6GNC z-|2IM!RMS;Qfnm@wC~i(x}7-IMqB(~bZEu z-&M}rZ_sME+OA|ih$!aor8oGc{$>iA(5O4~&b=`dUS#%hx>ml9S%>td&sSVDo5A zis1TPZyUmc&EVB z58j%F#G8;StF=k0<=3Qd2`t-nmG+EeT1-`6G!3{aIw##bc)PNR++f=^vgG)3y6d!= zTH>@C{Ym{<=I2LVpF4J%c%jrgKGdQKdGf}Sl!rzYSF1+_6{`nks}*xX5{$06)U;JM z-LndNd4Qhm(V*hwp^&`Nx{$`s#^v|+NjyOTPEcJI`rmhkNGJ=#|pHZ&NRTdqyAfkr8hA*+e*`Rs<3O-tdugmjRylHWhw3_)s4~+h_iQwfc8t~d$ zKQ>CmH#LH{hyp7Z?~p7tpcLf8b>{^iZPqAIU8&`l) zP-(1C^l|Fe@zJMt)ye$drEfPGtdLe-c;5O@-!Axjbpu`>veuyDs72sq)V{6#Pw!L= zd6eYuPrX@`2N%07)F}O2|BhaMD+e(ik=t9vf=U0R9i5`WYPw_o2-%7f_?Qbrt#@z$ zgNrfI%hO@OqL#e8@41>UUEkMoH?dtN>@XD-?2P1B5u>#>I=VsSPfNwJm-G9mQ|~5j zo9bZB5j_?;UDGUG6K`iy%r@b~-nnn-ZP>Ged3>KUdbYlBd0nN$kC5`N7kz#4WOHx& zB?7ETp4$7@-7XlRa7h|sQjKQGawX&$D}9pn7s9=C9MBk>!oLy1XL`I zV;J6RKdCsSBn1N}Zl7#sS5-O7Al16?3A|82U5|pf@mlT9XZ2$Cbw#jm7sgBp4~?|d z+zYx_fnViTk7)BchBp)E@>IQi%_MTOl>;Myn7r3d_Pz|Ub@Q7%Qz`k^)b8k}9P}qT z!o_#jL%(K`&^;xhxi&sVOtTeCM`MkU-e-evWfgW zM%ObXb|=_gUmYCKFoZ>n-b_)pKE}vxVvfkJy_|Xai9x5G2D?qFYMH#JN z8zsY_=9!)^$I}#Z9ysXBuXCJmcUD>Ye4_7|Z}+FSzVGVK`b0SUsc~;GKW<#`TXs|2 zJ~)@;0Ul}-I>+NIE|yi;WuCr9FM12}mY9_;6MWUk^`tD5f_4RQwp9#ZEJ@I#8MF{`0)xW^8!n!mDA<=rO8KJI2OFvKAzyZ`*1yv!^J<=*{C<6FkI_} zgGc4^{l^p?^LNhr(x?#6>R8Fwn+OZvB)mghJWW3odi7eOXJKDNkx!t1Y?HidieJ1x#k4s0&G>flIk6$^H=gKtJR%m+hh<>;&%$%hE zaB{z_^l}QbyEU8L*T=k>`p;?Bq2C=5tywLfU|q=KSxFV}t-EA0=MqCA9$dpk3(M*} zyibWENs)rnMA4?oJhATKwwt^@P4o4FN}lVR+XY*O_o(qJ#<-^n=4lw+HK=Q^GQKaF zUvA|JXNb7{$veA{NB5KId#8FwX$6??CB}f#Pf}d@%HuU&!;PvmN9xkYrwqc}P>k;q zZ9X66?KP<0%6fILh8jQciI*b&b(VK568LQJhyGO|PcwDr90EEzGU-{{C9W^r;l6Y7 z^k=Jyf=)FX<$fO5c{#O;hpbZuo=xfdYo1)(j{11RR{44Qf<~kKIQqfq)BOGA1%;(W zjyvtB6yh`Y8FNHlm)NZgE_ zd`D@d#KfQ&UdHE9{6XS+cEFY%jGnN5&Yb%((dt|9&Sf{TfVx}di~MXVS8Nr1M%}n4 zIXHYrmG_f+W`Di6mM+4aMf8Nn+TrokDeK#5gM*`-`gekks6U#w^ih0QVlM6d4z@qQ zF_AZyMHji4R(HK}T$Q{%emTUyWao`lV2{W8wYSulk_BTA)Ml44q}}!>)t`DEx`sYn z(2zoq9r66oWFwBSPYYg|>R+ zEj2}<(i8b|aG8GR>=UWi8(g()*Y%>}dzMocnj_xuE8WR9kbKEHo!UKGpFKxt{potX zIzCEYUqGRO_%^dJ$9HLKIn!vFvZEps=R86yQgyG@wphQtLXwz?l+XH^T0OU5REe`)s5Pb8M>#^pX!e}F zNw}L$V=^1Z7EQ-<)akJg7xOM#`xVWfd3SJqGrgwwo!8;}&11HW+Uw_fO$0Ps@U^Fm z^FAh+-xHM~v?U2kSIif1G`fU5v{5-u;1D`I&0w8_oTysP>tPonXs zLqlAVDj1fpifvt)mUo6^N77>Ornq zi+tD3b=(cKmt5O=h6Ixtk+&%+NY0`T7C77`KpSlny#GL=I1+k?fMv|;I$vxx%vP;! zNmt=nZ=u`ZjdqLh`nDTQFZfC7<{~0wZ;fUf=m{=-dg@N~e&xhsLXI>#E>sbIVlHL? z`N{iLK%RLst)7kreVL}1Y8^Y8kff9&5+l&kq03U8SY~f``8Eu}sTw$ai>_NamNF+& zVOvI!tjM?6>a0RvzFB^3U$VQT?0FMVrB{Mp7&siR(juyaTDe*=j0}_;P|@G z*6>^^ZI!=C{Rja(rIRZ6HPgmtE9p1fqmRUAw!6yD22IKI-}LApZs{~yJFBGi?CLuK zbH!&y*G}y2 zne2SYd=HMyUY~Zy=Oewl{ACFOn4!?Kj zE!T1__j6lzzT!C;CZEyCEO23UF<)m#N0w)rKFH22&uxbCT%vLBhN7b2+#ls#(RaPG|n-j~Nd}a=&jBy(4_^l_URvS+WFdr)Klukyb z*uSdcv{kT<9QhI>8o7L=W%_)YIpq_Ji5oTK@VV6v_C`x1a}8Oo{_*VTAX}1K#WWoW z@2d$kJ`3{KMEFvq`Fk$WSN0nPep7s*mb{ujG4jS!ZJ3V!JZF5WZ~Ua}-J{lH2Dc_O zGG&fB@hJIP_CAm$w<4hsJ6uV3kK;%@|9X&hpE;pz3#nQC{2B3;NSZqrlGq-+CX*TT z&J(YH%0(9)ZWysYiX;NAG`JNkU)dTzO6ADtDS2u8AO!~h0KsY1fy1F2izdWT`{As0XHqZ>t5X;e=*n)JVSUmswMcs!>Lo7Z|yt)OHyqL_Mik94Xg?}jKV!)GB7?GvrVbP*5 z?Ppbs35UM9*W2u?ZlY8cq*0f6>m~H;Xb?eJaU9*I6+iqn*X3BX_6X1H+K%{8mX8_N zmgh?!NY#!pC=EV#>~(yBGPvtqL_K_z(R8Xw)9jJaIECsE2Qu3w z^x|wO;hC(NQ5&{H#~wwwSA7`uYc%i^9MkKH4*AN=pmMq3ecy7kN$r#yJ0Ws<$j@2y zUZs-xkitMDJY)94i%0%ZL}@nCUovJHyk+l+b;MrXE~^|n5JKw`D4B4E>E1d1wKn_n zeX%Ao`_8b->-Z7Sf8q*OVw)VmGixfmw>%i z2rX}^j)%2eL5wO?i=^#3EX0CGMtLu97xL#h6$H9@u9ivN!rN?=yL8(sR(xgY^;Dql zWje8q^V&j%7FP<7T~&g&XMc8GA{Whe$bH98?+M-+_I!HMtep#<(fF2urZ7tlG4Ht4 zEaxyM@GaQSmUkn=H`4OOfp>@Mtxg^(%hZRpE3BP!x4*+6cfq!IsW|I-^PGGvd7n8W z37xWs;@ANlQ%f-i=$rf;#6I>rPuLmg3FyU%tw$*G{x7s|m}Wx=hB+pt!Fr>ED8MJa_<^GlMbY!~Exex*sm zET0)#T1nFukrFY23k5_zeW zN(Dt4|0aZtW};2ScH@BR@O6R*O013&=`Q_E1jUAUaVzVl2Beu1uxe}8*Xw%bad^Gi zgvaUeo5qDse9`|_Y1ToubbaN@o5^F>-n2^GPzp7v-MG{6_{?!8N0!Pp&uv0~GuO5$ z$Jr1~4c2RDbg}QHmHvm#7=S)v`@|JR4srB}XU^DO$qub|fZo=5yK`H|LhoxP`k;Ai$1-RdPZ5KAv^o~R%|^atm)WjIlt-Llj$yzmE8QC zpP!L9GMGHv81KBkF`BF7?OJl+z#*Yi7UXsaeZGm{o)}X8Qyms($MLxMCZ^(zCkOe& zsdJWkx}eK{n`7`v36uC)aD6K1E`Hh?)AqC7!zw=`IcZQ z>dZoq3XSN>2(4H9_PXILVU?&g%7EX1aQ>@9^m4*m`<`_I!MGP$6a-2UU)?0~Vv{jF)n2}w%fhILnT^fu=i;!-gse3PqSZB zMP~T7eR#v*`J|q)+baVGBUlYCaZKKJ!I%Cb`lO^YZZPVyQH$mrLS<7q?$DEORuT*( z19_ZPsjxVkTm;E39>Y zYOw6g(-Uh6YFEuRwmM&=S5j+NwAXDlcPK9xh%}*{UwrC+5c`3nqTz6%sD|M(6X`-d zZy#^__{hd1oz3`416g6Ai77{)=}%#9;uW(BQG#DUS2>nac45@qT560lF z(}c@1=C<`xsXn-V>)gugUe>VJoxfJs z&RSi?1gl&4tGWHO|l8`+4& zj+$~Oh3?GX?l2CrGoPjY9AYoCGLRmD+0Tyj>^&*G+?cNq4lV)35i^o*3J_8S{zl%yx<0*{eM+X&q>Eqq9fIZS!cYGigs0 zd=Oh%UruS5MauNnD$_EVx2h553X#J(208m%Bs;8{-IX>nmgM1_aqsj#-*he;GsKH( zxSzLGe=?Jxq%TYYXE6R>M#TEW>43ws)mhBck zKk6%;4qO*FBW6!9&)b<9$YHmLcH*j`YZyH5I=%F^iKNj~s0cl=4QECvk7cL!r=If8~?V zqly1r?{oj(%_pJk@$dQM?%M-*rG+aw-qD9&u`suRU&ol~!$skWwzq7cW6%i{{Ia>O zg`Sc5ZScxL=qe!Jw6eAlGsIXiaKfcAdz(lU96BUtWua>=AOOc8Q7~>U?8BO18wum$ zgtBb~u#JGB_^{G|ZB7`97rJu`jw8@ud-pAa7z7{K-sOcs@Ph3^6aq$9C`LQ0){*|`jGH8IaU%l*eJg!)U40-q3JtfkwXo5*2Ghq> zABN!JhTpO^HPyF)A@~q*Gg}w}%?B6PH?_h1P3XTBW`3TU;9Zx05?aZ~Oy8Pa)WTFx z(gtH{r2E$(pm0wvgL(PWRKN6(tNmxEIyd)EbDbN^jJ;wE2FVTP2DVxQ&30}uJGgPn zfE&!mz5D#&449C+WgdtOnj?^jp*~z-PVPOG40gb*#6Gr+Jp<+?*WScMa)Fu2wKsK< zTtI@|=bfPo012=UW@GyR34Sa@E+E0)_Zt8ikYM-qpHLql0ro|vP#+YK0JS%fktiSm zYHund!7~>q6ixyZkN`Wl*gimlJ%9ig01}{Zs~iO+K;gy!1tdW2Eg~ceNPyZ~Mo1Kp z0EHU^B#;1!lK=@MK;k4o0tt{f36MYnByJ3lKmz360!AW%1W23&0E|#boCE-kP`l4> z08Jq{LgFNV@Cb>M00JZgP67y#5I6}SNJ8KwfG`PxlK=uG@YdBmpaT*ha1ubUguqDv z;SvHj1`seIa1ubsguqF_2_)deNx%st;KWJ52_)deNx%st;KWJ52_)deNx%st;KWG) zzC42B#7V#jB;dqJzzHPa#7V#jB*0-c0*!_t(R&hrl?rzDBtW2f!Oorp2s97a*^>Z) z<_0@^5+HzkM56a3K%h}zXHNnI8VPpxBtW1MU}sMP1ez1&gX90&poMBp$G zKp=p@z3TwJI0OU$2tu;G;cq6;7|{M9s&n?0P_$y%ma{zz(F2BJb-$;G6TQ^ptrXT z_~P&mz#V|Rz2kr{4($Ng0l?ck4*24*4nQ4%yWQge=@2-i13(ABZtpnYi^Dkpa{%i0 zjsw0plmj3KfNt+N;ETgJ0C523_KpL-ID`WL2S9H3IKVdq4&S%{UmUyvbOQ*tM+5lc zzztv75a=Orpaw7v;MyJy z;ERJafM@{K_KpL-I6wn<1~6^!IN*zeGZ5h+aA*d=3;^0L4Zt#hXM5X#FAmB8k^wZ^ zI}Z5bfDGUmz_PvLfG-Zl0Ez)5+dB^U;y?_@-Pr{=5MW^Ub|Dmm{JVR*2X`?X)a$SZ_r4Ue>u6xRJ_)w>pvtb-gY7y<*sd>y z?YdytuD6EmI(FD@3;^2=7ht=Q1#CA6f$hdCu-(uGwi^Y(b^|8ZZkz=WZdVx8Zma@i z!}?zEbMN?GFHo4p3XR&0$w2*aS8MKF{{Z9O^(ElvZa?l_9|hyy^=IHG7D_=46N}&A z=kE2maeD9iZ5a2ikB4b8z{MrH`>OvM?9N*yuAbi}QmZ6nF#RUU*PwBo_+|4yvtswz~RO49u5IF?ygz%W&1u z!rI1K*UIRQ4Ffj^Hz&*AE{=8E|2joEVQ>s5$lpM51dc($FalAeXh1<&0yR(H!%LgsIR4Asd27 z7HXg_Tu>Ltj362Y4P;0VFGCH~1+pawv7rX)0htp-TBr+lsbbeEcClhtD`a_4k$@VA31oRt$AB8B2V{9r{eT*X31oSwmJC|R^q{Z; zHBc95@q%&;)IePz%Yz~g)IePz%Y)Jn)IdET%Y%Xu)IdEz#-+*d7sg_NdJom4_04bF z7&1VW6+mEZ1Mt)AM_2_iKalw9Az;`PkQ3U0uwB;-CMpSoOUf|VSlQ~sRT#jmkpL&* zqH2DanAjD#xE#25AjQBA%qM1HYHMb04ai_{QB#briKI0G+Z94uNpS|I_#79? ztKuiS$!BI}%w>g>b}Y>Lr^-zc}} zD=*zDUf#;v$zPu7an0MYSUx&krPaBW=~|_EuY|M2ZfD10XBqqjKQ?wc7(_nS(vmZL z61W#FvJX!Lc3Bd-HM6HO*n&o6H#7L>*gy&AZ^nj~0eBv0Y#_JC3GMuTYmXbMmbXv+I{dcflk*jXU=q4ILXD zGoHtRKj;aCR6pqn!mMA63d#f^cx1=UPiz#)3062{RdC{0T{(fSzJSYJsmb~9yUl+Aa%#{?V!&0|6q3hErr^{Tc|Mkv&x(dpn3n`eGyL->gI6g2C+M{5NeuLGbt5#;NKg3kuwID1rNcf3s18=G22)hec;Szfh>$ z*DC69-_V>aFSjYyESj|ih=ncL;?QsCl;}0hOTk46^ z7bHeM>&p%j3Qz-L2YDb+8Cwkk_wk{m13L4IiGg>P0H^;=X;2maz0w6YE&E?_YbO7B zaY1>_KW8RX9{*Wv03yIrSTpS{Eo}1k8#93*Ndi#*o5X)ySaHpA^lymq2ks7dRgzyC z6x{E<2>vJsEU5B+qu`Ab`Qk}lX(1teu=M=+da3ryZI-g)?c$w{EqI91&K7%lQJ=Gv z#S}-&U`C|sr9=v&OL4D5BYhJe{s-^^O}l@N090lFc?8&jLxk2Q7GCz2CN|lFPW)mw z?9v2*%fGC)D^sd@3r_LgLd zNq?1QP60P~GF{Qr?m~Jxz|+^SE2~I|#YhJT@ECqSSFy#$pHv3L^`BM78XctbkmrDq z2n+x;QGcT@*61K?`xkZpY;>JYp4sx9^_@%-hC()9bswKJc)DRUMJM+{#k+gy&FYie z!%H(eD>I~s;t-{ct(C1bZafP7KWGOD`IC0PiDuYAWdo?S>lk;{+jSS<_%HUvD)|4v zUBo}t;dam5&K)hl7;^DDl$Dk0wL6O+Tt7YIzWT?tiA9H>6an>%pUuP$?n6K`6O^uh z_8Q>KFRJ{PcnzH^2TmSoc7pz#JFsX->Ts!)q5ptT$i`y7<@k=ftxIH_`{}zr{oU#v ziAB?%y^P@ZZWvx;M5}e^{%p73#53S_&d=&%;}@VWr0Z@Vv$q<5)f9?Cfx7=PE1`yVqaY2rW6a?Pp!s!JQyzR$~3!o`tZ5 zLg>V=rox6Y{~l!j$+^cjdTIDyBGEdsST*i-6SLSK6Avb2v;D*uo-Z*geJlO;AcAeaUu2}lE&Q-``^RP zKl$^x9EX7zl1GZNo+H!;2MQ0#3mhgWjK1r^+jf|MWPTt1_JO;^_O)`tI(J>FTn}i` zh8)dMI;wRL?kRc8W?vhn6pC~)E?Dh2sY1H#K_^Y0*>FxTrHPZF2{TVWHdUxkYFsAIDZ=VtB{26n9jfbH7 zsy|zt9aOS`TI`_a4Hhd_K@i44vjsZyi=IG55XSv$J`9!4ev3p|1J#kO$+=tXHm}&& zlp+&zfscRd`R8C1Tdn`6vHrh0Z?QLY|2Y)UP5)mE3X((+-LPZBfxR#Xdk^5Z*&_&b zz`Xr;xcU?P#%Jz)rXe{UDNci_r9eJ~?-O@DEH20?QX(U=N#U4Ab$~^Liy-QdoZKHX zO6)!BpVa!lZ=U}B2I3E2@;ko>sx$yqAeX=E5V7T&-}uGR9%5gJB%)WR}3986=xgwvOizFDG zw|_2-V;%cXdi^E?!&U}BF#uY$dqpg$X8AjO!WOaqr`83q*~U-m{syG}FRcrJiT7(= z;Me?;9rzZIeeG4~{+@?HXMUNf{|7TM>@#vdnF|zAe_eH;%mL;l1VOuXj=f3xi!Qrm zoPS+)e=Or9>5ykbe@n`LXab*WwK?}ro6Iadn;p;vjE)hB6kq* z5`Oz1)jqJ#S^T6McxK~g-5`?yZP>B7*PdFt1@qt8>c6D)@&8uA9Ge{fr15XD1}d2E z)(G~n=1(;OEY|#cjo?o?b)0)}VEFo$eXE9BS^3Tx4DlF4d8IgVQ}Dc#OsV#ZtqVKt zZzs2fI%ZmO@4YdO)Zi?kV|+ugdE@iv&y`i`B*ZkNZAUBqScAkq1p2eOze%(}Gz7F| z-@PO9x8RQ*ocLt||Bns-u#XG-?GjMnazM^LaymF}6BDlO@cMtTcO?Kd<==k>?NQc}rI@iz zs<-xDM6#O@V;!l)6qSSst)tCv5QZUZWsS603+X)-H6o={6fF}fX+ia>SH1ta_qDut zm)%arNy+5cs zIMLpS^alJV{%&tjxUTv7a`k1JHAOF3;=SCh&zoocFO)rvr}T@VAAzA|_0jOrf2ez*Geu8la6x)``Jah7jX88SNW({E3xa zpCIMXh39qbm1bBfY*I7vxutYA-drZVP}i$;eSq=G>%QSuKcxHgS4|!!qcm0DpImrD z{Sh&14#aL;F9C=}*PIB6qC1HW+#p_ZodQ!vw>eDrpdYyIf#n!Ms^EYEP@@=9MPyU{ zr;#eu+KcH0oD0GB0*sH~dV+G1R@V~}CkF7@0@o9XTm;UC5RxH9IlswriC;g@55KM` zP^;M$fSjS*GGmZ^&6n7)2-kJxqT7UbTB<6@<{<| zgPmQt(Y2bwk^PR4428z$^LgFqpP36|Bd-PY>@nc(mdMDVbBvG4@j7sHK-mMPvmkV0r&9-UIYJg4_yxCb z3}B>#?jpB{mmRoz{ms2WSCPZN*gc&v%oTJT$!0kxb}}dNAFAU zxK+>WxoAh3dk0!SdR_+8IoOu5oug=h`B-ShfeWNhWL6w-@RP=h1LwX7X?5hub0&Ug zyk`!Thac6g#)W`(1gg4dB}{o7rjge>O+RnD>QB?R%T|Nk{8*uE^|ADxrABi~SsA6Q z>_N77NZr9uvo^M$1dJ2pGO*9-ptu}*?h3XC6at4ExETaDO4uGGLf~+Qi@2}B=iStO z-qu1d)2qDDO9hucVXX6lktd^Uls#eflEdWa!6-~e ziF`I-IU+tALKZ6KvjKN-J^k!H8|WZonoY2M3tel3u8b|30*O^h$W0_#rN~`tZVpz^ zy0N@Z{8E!1r$V`rTJzU09Xmit#!IOO?&mu_FBvZx)p@OdND*#e4>)xlM8|(^wNd1} zU4ODWYRKUK^l%-EWwKl`rDawiJLR}hjAZmH>Rhs_v3pCyTv~uI0IJk z5e|Il)`V&P*9>r@=XJ3C#T&kLK!=5y)e-J?t+a`%2yh3-8HLm-Sw$d2BtDaszb)=B zIB&OTvdEElEN!Ba2`ZwYU_`5ohVFQTLW_{CO5XCwx*I&#W?|LMUYn}CwHgCet(ft) zA?H-9AFG<)a-V16YxJGtCL8$^Ro<4tf{^D94f$Mwpou52f0@bP_H-%qZ92NY*(l#6 zvMl0yS;UELFZ-V@^ga7mj-{2}%GgNz1Q|b7atQ!rQ5;_)8WGSS5ElN$Kk}s3p9f6D}g2J*pli0J4B0LqA# z0*=QR4O$28;JbwSB1^P_lb_xAoX4urI7XN*!(`#+5Moaus6P-gbXg4bhda0~|I?^H zis55=L5QTnv;iO|GHXKqit9ip)htm|6w^;40)?F)Q7nZ>s)$veP$c;OV*j7lu8*q4 zm@X5u(=Q#;LY-+aJq5)XyA)w+JO7~$G_)F~F9d9*liRgX=?l{f2xy0$5ya{Qof9rM zbf;^Rz{yNcf8XM(s~8D~*4gXV7se%c?_kMIic7O9+~F-JPpN``Rpk6`jMcg{>5^Am zw|GT$txMajWL9in;q|}K^MX%K4t+y~Nca(DWu2};TU@vpcxKz@MgQmv)NE4ELOAFHYj|Bd#QQS8@m^dfU|#{>{Mu$@QZ z8Dcw+VmLxfM4+mnO_=Bs?buhrdxFROn2D z9vC8+PsEc(@@XLwM;ZaS_YxWu3)4)(7$|@+3ESD?rcKsR6kd|tQizsIY}5_A!`z(R z_i05`NZft?zcBr0J}81ltiwztfqN6;-HGgTuoywt5#{!TexK+@*Gc$2 z$o9Ay{p$HW8YLMst-vGkJNUoL@6n)#m}UZT;hPC;9xwt#&2BL$kgPVLIYFXx9Vx#* z8Tq?|)#5(O6l`@yq}OP$FX(zbH94F9)WmA+(cpLsc z0mW7c_yU|sfQ2T}bpb-%lT32jblG40ewwXns8t0)jZ77UGp)K}#x%BdY&Y3DEk|P` zm^s|fJOF^|YG&$eB|OtZC;{bP!Pad7w; zrjo)cB|B1(0ChhV9|=sr31F0UHBZ}@F=E;C><;m@>* z^^Pf2;K zpEtQf3mTLd({X~B1rUFcrUecmFmI>}6Z|gJEAdMfaWsZds1oK45>F9QFh!ZmDZD@L zCwWRmB?nZs!onuO^~f68Sli9Ew#yd(F?TyRf-}eX@(R9Xll>FYfQ4v&3rx2l{{?nF zVPP5|JwwP*h=sTG4%aORu?pRi$cd1EyM#whg3r0>&-@`It~>a_PY^o7pQ5`A^Bw|g z(zv>B^`MM&ccW@SC7cwW-%z^QBibUT>Fl`#6YpPsO?lk`IWW+aN6h2!`~#1s_18_YoNfD%f$<0T~w9f!JOq^hzfHcZJ+QB5Nn*1}8(;kM&->@DRqHv+m3!z1UM9&8kP!Fm;LU3LQ#6u1j#$8&B z1dlqUIHLcQ;HtntwH`?a<}EL<-D>0^s41%{b+HJD?;wH{nimH%k>LJ>ok(D3R4q8F zhOjrGT7sTiBj^x>{{=ZxqFMquRR~wZ$a5_uK<%rnBH6 zLc|D8U!h;O zOpu<@@Zg&IQsX334G#CcU4Z>H<720WcAy^!b2?#q0)Q#DCrGqC=wOR}Af!t)tpRca zw?mb@@wdgQ-YPxp)&4l64C|-z+WIj)igT zTJ~jBMbZJ5g`01P^$!w>M17EKUmh8}_2%fZvdHFZ**({IX1{xHH>@C;p*1HsWUKd<{lckZ9pfD>`Sx;7B?GlhITV+eF#7ks{YJ~aCF!K+IgK(Wj zNL<@*(Z#>Z_S4q^8VVQN}odS1g_Q+jCJ z(~Rp)2^#jt=w|ufwyW%WH0FuwsF&=JOOrTDqao1p@T1H9)fdH$sQU4CKrfEs{^Ci) zFZVb&`%dhN{Xfo--I*2Oo2jSZ+~=*Hm2RBwz+T_2ykYLJK59Vx)1_8cUU3Kf_L0Tz z6Xy66A0{L}9d?+$@DPQns#fJ&W z6N%>q5I+c{Ih1L(8b46%2(|^>?%p|~k_nTciubLH1PDlgK*0M7w*!KB%w5z#Kn(IbgtT35!7cY<`8lvf2#fRzZ*$(iA%`OIj zX8=TjpufWHfFLk*7c~%21Ce})SE;|W?EnokC(h@(W}jg82}HxMMLQsfO-*d{@03nP zG@?+_5T^;NxPg(FsU-|0-2%#@;e81}Iuw$He3X))Nivx3)Zy+49s{_`EX$gY7KW>2 zXCvv}svs`hdQy}XJ#Qzz3X$aV*goihT^l*|g({yyOE=mHq#P$|qTw?n_JYLH4L~Ys zFmoC~)Mum&+gj9L20Wn<^OevhfVxEyjW~K{T`~wx>Mt|bjjGiQLCs2JyT>bQRcpA| zmWG@QJX(7Cv|C!vs2(ozgN)@0^}WE|;#|YZzI@Y+$S=VP>D8uvT3+Zr|E$Yqm{LAwV`sDi{ldM+V>uu@s^IAa`(-49RBUc!NapppyB_g%$Y>4Z7C| zSx`uW(?Zr+9Q=d8CfJq>XZX5P_ zx@K|8q)E#mzH)rd)1~%^Q--g%R>Is#@mgfQCy;m-KMusEY4nIRvbI}H9zuSEn>>`8 zNevzfx&bCu@ZZ@>UO7KA z=LKAg^|?(6Slg#+h1c695!qJGF-n&X#TWWqiW@s`nbM>iy5t5vf(X-)~sf#95Z zvfne}kkp1qVv0aj$V*{rDt|zBsFzmogx<#orG4*RwcpX$s=EI~uO(^brK8SPN5?lT zDJzSJxEAgr@Vm7*U|x2i&n;`VUj35MPebjIe1DV+zJC3B%S<9o_XjzbaYO*gq;Ug* z1R90EI*^SL=%B@PBs@L?zu+iA=sF`2`yh3l3I4opppax5-)lIILBIll^o4GqEu=5> zy2f=_Ncs|eg-A*Nr1v+MmAndNyq20MOj}}Ew-5p(#;v#n8LA*4BH2%iV-&bYkxCm7 z)&K`}6P~z+r4617?Q6WntA@Cv;JNU3C8pp%Z3Y%@jxUQ)TRwa<8msecp`P(pG*)M< z40?&g>O?M0;+4{?d=B?4o8LUgczGHf1eFdX6{5J+L>^$^$P0aK5v*Dn8tTIhcZjYjt4xo;UXL8WuX0Jhv<)NXO4Gfg`MNHxoJ#w(MpI`zMvqB(7aj zQ6$)v{SxGl5Z~%ZlX#1OGkLd6EvM3lyy50IhbP7~WH-1+=Gz?%xgTo9Ec7+;?$NZ% zWZ(Dd=I3oUB`7#h%NNJn+lEmNFQv>`sSb$(NFCTADLlU8gbvJ|QKmq? z1YRYG3=gN%J7ZpT1lqzaFrqU(;An{k074xQ;R;!oC~qN*R4EK5BT?7>R{{Xh2x3+v zUR`*e0&~`)ts}i{ImAS;4uwg7B&uViNq1NDRZ%mJnL~QJ^NzA^{njkwwrsdS`oi|ckcz7W@ZZ^ zZ;XYVxVkP?um#?+BzD9dJ+pUL-`wgscd)QXu6xq2S+0heJd4AWTPy z!b`xR3uG68@1pd?{;5FIK&@kp2?fHjf+wrCW{ z=84|Icet~JDy5;=1*V5khV3DonCbM9xoGIw0!&|sf?IzD>DFmP!L8v8Gj`s<1s#&Y z0c8qL@3vAV0{No1NGMYxpur#oZ;!6;Gl_E;IlT*zol?lD?@Hci2Ac-Yfipr?w@f1f zLem?nxe)P@w8Va%?(5&2!c&z5uJzxounl|gHWSy ziRg&$X=h8QP9utI4Kf^VPQh;hIwd?-)6zRM>W~iHz;*KRO+y8*Rv5Q{Moz(J~G z&Sah}!LyL0=vh~KKfdRa{w6>k@}j$#gqn|NF#oAKAieewWq*3k^6$@N%Bq@N+AniY zD=PSw@1-5~R%^$0;3k0vO~J~iL~atGFacbLOso)pL$NyoJPOsD7!r@nlA~|I$LW9S z2K7);C@~xrTwRm#^4Go7x1T7{@=*2gb}?>hSi3HU*W5HK)ILAK{Mrp>p-};36?G(ZbD;Q3;aeR2?*ggiBwDqzXh*&s$azwGzcP< zv~G^wVdm=_rWd~Exaw2phdX!u!qd#knu}^G!2+dBjXAK8-^6PQW0Iw}r4hxeCI~g~ z#iU555k;dWaP$*S*O!$dody(!6H3486zMdgDAh!c3{-%YV3v_x1NaR}1E^sN(GQ7G zr%oMFokkednh4DRgcbBegu@Cw&`?7b5r;)naZ0rQGDuT#K3T&yerai3!l=6N=2l1+ z=l9d;KAIDI1t|v2VwYVEHD7$)rF2oL`9`~=XXDbBPt{a$%+DJ-)cA_?t?Y0eU2=0T zdd?ifT#48Zc=mvtAgX7zB&Z;8Q~5U&RL}^*ToZ<@0f-Gcgo**^zo;c2s1?eI#U5}+ zli-~}3TFHRY0_z^&jn^8p<`He3uU`P_g9pep{XAcu7>OMzk&+`5`$x~1bJ3gUHc{VqO!FB4P+e zG=E?>z(B<`f4GC2#eZ7!M+2c@78C(ykH&xk#0}Z?gm^s)zY#1bVXSO{6pd86sOdYRMPd+2ICmn*P5V`)5j%P9q9~4IB{5A3+WL^3tT!h+6#1IK!4%0Z3VKyba-SB-4B1%-(~fq+H0d;=XxBt87tl+@e0NTBgXa)jAQPO%)Md~kuMgqd_97LknKeQS@LmG7& zQCw|8yCD_SK-fG$k3_U2Q9m#$+`^G)r#0adMdBv(iv^1QN95~|%BD^u3dQ{urxK+R z#o;Ej;kV=|6s1nos0L>lNQhIi7Ef{{aOCGnrcNV@zD>cS6*@q|AfmS9YH1Z#5#0~D zgX^qNT>aZ2OaH0VPBc`K!EjpwpD3Z6j+!}IyH0ZGMA&hOhfc`kbf(v#Grx{f?7z9m z%CnhsU9)+;B8As1sB`5*QnD;X3)1L_M6tJtOg0eo6444Fz6QckTYQ92PYj}Pn4Q+_ zO&D>Tz$XfZ08sr_#}gr>FU-D8M795V_H7zb$nCGwVoVTan@V7q`9dwmM6s{G>K&8F z;RbJ2L`nEBBi1hWAqrlxW$-AfbEPHV>*SvZuM32 zBs!osIB1p7p7Dhw+@_=X2r%Leh&))8S_hDGM9&fiZx_?E;0}IScH)HFbdX(fb4Y|A zLr{AJKL$buP9%mO!yR0g|6%-?4l$l_y&w|jsBl0YnK{6*L^Nbn2SIM(`XSViJDUM5MNQzRTN4l*g5{cK=NnJxlN}K7^(>I5AdbM&n~j}fJZ-pn{8*sKj`2% zg`3|m)WM$)F=cRlAz(0_+g3`a5J@ojU>jdS>TNm*TKEaW8*l!(3HvDUjSdhvw)y{= z)Z28_DuEGTKvTd9FepCLvN5z^8bZSjZUaQ|8OcGN$ncp@nR=U!hFrpQjv%82sxpZk z>Ox%r2zEVGU+UbhCUlTWu;fhbe5qLJ;C6;<<`o$C3B*OfNWQS- z+jR8!KBi|x{va?>h(8F(%fKbY{6UD6&Cl%*LZ=Z(3WP@UP8m#!P88P{JXP@Y1YXoI z8!+T8X}jPTVxQW7F#9&0D6B6LatM4E6#16ydcsJeXq+NKXDML_LW!Yk$U_i*&g|QC z6a>U96Qa`!VB0~vES9kpm7L%XZu{xvVHfE{(S$+xB_PwUJo`2sj8eFLijd!c`t^^b z#{8)4+jOGfzXU-Czq;((bb{EygqCC~Y-w;Ryv5%UjjDoL=MXd%ZsAvMXGp?LM|T4( zSHj0*0QBl>O2SPi3I+`8j({z7CE@NM2{)ZEmN0%CzqTaYbfRd&1g2b6ll&5raMOvR z27~7|enCKVETJ8@C0sCiK%GD@{&$mb)6r&$^R@p<5^g$Cd|;R@{9OK1lE&Xn!c9kA z@5N`4`n4tDrh^cO6%7BQNx11~=pf8|698C-RIM?#^r za8uPSm+!h)+jSeKaC=m6pqGnMMtX^!xn5R4c6RtCuDQn_9tU*;epc&q>F7^(p#ipM z69cj`EXKdp2~#HxP)8?-HcXgO8+2Wu>XswWLc9ruKL``RFgjb1IyzBMVFEVvmCY@Y zrHjC21F#9i=N)xyL-{qFDMH~XxPeo0|8K3&#hAetcmC>DoDww*D%7JgpmqR zxf$`)#7$+VbRH%OI{ekIRKfto1V;EToC~86+J9~30`!kn2B?GqH@_?{Ocb{G>tCk? zPCj2J7bXxLzW&)IaMUGAApNCtVFFR&tDjq<_`qKQ7bXfA{PoWzqMTsFh_8|h6NM2b zG%$BghZdr!z+YIVXF5@+UvQ7YBJZ6e(=(kQR&Q6PXGJ>d@+p~NfJywz&J;=qKV}?f z{37x>)6wI3*eSxVGjxhTTSlDUgz!d-(Gmx4pvhc2VUANeoJPUU5e*!f@f-!R@*#mY zgr0sahg6V%bch0P{D0F||4XTh>4Xt~@yG`Nvk;vU9ST&R2GCsyLgVJWv%Aj`1pEDu zWu2!JMFA$t@(bn_#3l%*p4ykY&{q`h;3i&}y;-8K=)afcmrfWgnCRpQta~A?!v(@E z$Y@=-=p`P`{0P5-*5}Ib7v0OYFa91 zaxOc6XZj0wo$NEQZX-&UnT)(ps9P0a+ao64tf$s(!#+>fEKZp;Y5C%;toWR#OYN0) zyyASlwG!q|ir4D)jh5oHS&G){esS8g(b~!Zxk9F&j?%L@AyB^{g@zzbCXMinA7r-? z#)&}F+(2$bp`$x)8ubxFDO)1X(x)lvOsgbDLsZYs=nM=GXECd3;ZPY;%57OnKe#AbxBve+!@M_<|eT z6jR$2C5W!A%yo|vIM!-ZBv?FcigZsf_q$EG?JN*D3Toj8{^1LxUuq#K{CsW`w^`s>Dew^X6zOU#+S_~q7y0{Mwg*q}r(K34lG(k9 z+r-bWZS-=^@hlJV$d8UOQ%SI0yI6fGC76uT86xpGwDcBkTW_tUx72i{o%O0sT6%M> z9N^cVkUDw`Hm}@--ks%OwHiuiTd!NaX^j>G4RG<3qTUq8wT>GXthZVP_oiAq+pes5}wSi?(@f96?jbZ{~>)SI`_`WM?(n;bX78<1~pc39_xz8C$jlNKH3uYC%) z9xs1EUFSnlo%HzC?3;p~`{@QhntVIC+2&bEQ{d&TLu85^cE3BiCfCDesL`6;k<$*W z9_Nwo@RQT)w?~HB&7tqM8JI#lYR!1C=FsD@r+=P)b#3_T`_BZAj$+Gq+dQjvaW|^g zF7F<0+frBL;U-&7+1n$5wsV{`#oq_dElb(FIixD~Ps>mbA_nc1|ByN4ZBSI^Pxd{v&+fiU$PmxpIWpB(o#$$^<-L7E&9+ zml;fEE3;;Z1RWtKVf_wB7+Ka5NSMZ;d=?T$-b+Tp=S&+pg6n4OU)kj{S8%78J;m|W>_})N+55#`G+nOgFBQ{?Nt>$|?{V$fuuJ+z9uDHZ zUl)rs+xc0rT1krTpz3b1&#b*If>|+Z)0C=h0(!b^&wG2tSTF6ExqgX^%hd<6v6CE~ z>z(=Ry1EyEQ!2gav9e85iG~h8zFtal?r(V$lBlstNIUyVI|u7Oe%`jetK5`d(KTzI zV%F%ff^WPztL=!m4#FT1uERExhJWBIP$E#EkaHbc2V4h%l_YT; z>Sxlh;JsuT){D3egN&7B=2J%&2W=nH*FDkNKvgjLyGLc(ifPVsg6<_{XXi&&zISV` zudQ%594c6M>mlo2(TTSa?`Dp_6cYJ%WtI61XKG!$@HBY<`J$%&@vc7v9mOnUk`$Jj zqAk9BA@Z$r0o(Ff`JD}%E4kZ?+^nO!C)FpfliTy*;EP^^i?w5hupcdP9>4xLS~0&& z(;>h5w5jWvz0lh2mC9GNt4vV`>cQ6BP|%Ufxj#%81Ma7(QWlUq>|p1 zn8feO?>JT;H1EzC^Go)xj*8Ei1;-{k_pCd&kEAFsxk6*_weGGB$s}_{G^G}er!P-1 zYM5Ae?nW&%Pm0eVjoBHEwC^lCWeGGWQTM^RA)Lz(u9)p`e0$|>R^gzSu`!#;i}QJ> z%ZHA+S6q*@Gcn@rPgM?YlXYdJxU6u07F(Avbj)2CmlvvT4;DJpt8^ATOSuz0+nUuq zpLXztGD%@|2-@JMPueF∋ID*&F59@Hk{bI?Qkf(4%bsrAyoPug0~ zi7z${b$aA*k~&noXne}H@g=Vg)>aN-aCc%c$hS*V4!+Pfe{$4D9R~znKC0;~IKjl0 z4@|jo*@3sKIo%_T2+}n95C$*IIQrVP9RY1Y^|W~tzfG;C#}mz3tIIK!&1#>u_ISYL zv(^DLhsMB@Fl!>v+^3wij*z+ZxH;VsWX^H+%b;)XUORsC>5Axk>Y))An|?A%*>Ll= zWyR(|$1MWBVbZ&IX98+;Z{)eESMy3Ss2d(SLZP{;yT+EhoyA*yB;$5%Zzy1=e#j{n zIQNSEJ^u}}L{Dl+&Aq7DXv?0m>cxTC_Gv~P!+mXV9Bo|5AX9FE!O)Y@?`KL6;0-Np z>d}1cyT?St(~7XrX|#6Ykpf`>3njU(^Kl4E7x8?l#M7!MixQ7WKtfW^19eD=2aWC5 z#d*jq244;5X^Y_~Mm$pJJ8<%poOnJ?-}$7Rrvr5--FR-oJXM*vy4lYKvg=1)wOM7e zf6p(*nfeW_g+$hI0Pkr0iq5W#NNuSRv6Xot0d)ZK7doAisE@{x+h1 z=9cxT7FQpXoS?_-&NGm3G5*nq+YR-HJR97r7e~0JRLI5lziI~dr5KrxE)E9RY)P3B z+8AvCl>zjRF#t2p)nge_TzXhLbC1{lKHM`h`z_5y%`qk7)RuQyZ-0<{S%1#{-sZuOZ;d1kHKuxYpii&vG2T_xwY(Pymqt`{8 z4j<^2{WuHMF(YjsOmE&@b$%TP>^jLn01Nz_7~$=Q9qmY|Fd6L40Ok{w@=+|UsIT$`#Vix_5ZRzkLvB>TE=0SU* zA!LQTCM#EuXBifMLG|+ZZJeAO-w$rruPYVT+u5rjJ zuwrFYgupl8>2_`jGCuus-c-#wDd8e0_g13G+dF|A@oDOCHc#*zzyJGl*i@%9%VPMw z47clrAi86^qTjljf4!pynGpbtf_|-%B}p=roru zL5AlHXvw*v;q)b%%*YboZfeS$f;x0=-~R?0P>ii{fPwqVW01eULa3%7M; z8hV!j?XV+Razt~P$Nl|Uae%uDXH10q^@Bc+HJCOB_#i z=p@qiJZOz{&*tQdH5%YsB8B&bh^xk{y)P5?T7r9u?u`ulv>>eeN}Dh$?&DHb5S;3f z?{vJ>d_6Q%FReotn6`Hm#2E)Q-7UT`MLKT}RApZeei)XBA4c<%NMldw$77d@;8rm^ z!)zOP&u}LRood>~t8Ki+Cj~5`Y9XElPR~z9Zw$!>r=E6yoQ@tn?aitC>wfXpJ$cDD z;bXr^J=Lj=_1ckH_TUCY<|ZRDQKCLIM*CHaJgyg~#T3j%21Pn|q&RQyiG26e4d=GR zA)%J)l)$h5@Z`Xj|p7n|jIS1PynR zORf3+!R`4KkEYcNFyBGDbuhL>Y+TV7=H(iUaeXW@+AZz49qsf}?WxuOY$vqguve(_ z-2nu;V_T*SCac{KNF?n8x#ZG;c?C_MAW3p*H?Mrs^NJmtSN04B^UC8l4<4N`3<$rx z?j!xvw?w+S3qkcdD?|1;bJHBYNdthI2=OfG_D7+rj zyrAxJd6C5j-f}RWSWEvu{^O_!*Et-40I>+{hy@D_@|h#@;5vBFSBe>HpWF|rQMYXrISJ-qO&k9lF|0{@=^pFhwvHb(dBT{$Iy;F| z);_ZwM`SMY!LFhR_NGw8-qi60H|PD)@nS}+cH;-Bbt^wa(9dHN|3-G>glw>Z4V3nO z(e=%84ATp!!;$#;e@0u96}Cb9Ia85DCFHE91G51d;8+stX*U~uTGrEn+2BRXInx_& z^JcmJoMk@P_soUI4C8Yb3ykkMTJmzsi)t6ZF;h*?T0kQPd|_U62p zICosRg4%8KNaH0^9us9VN*Px1D+cjmilU3R*CnyK_(`cAO* zgJIyMzjt^x)YvtCXI@Apvn2ndbQU5Q#tBx_DzgV}nl7C!dqGJ$xr@DE!x8*<*h?$sE6QF(ay^l<7pOyuIG_nPB(N7M zr44cTq|yuWUNXetd7MK6oS-ni@T~e5)&sW$72oSxPj{{sZ0Qm5Yi@M;<=7l`BfV6M zY>rW6&h5ko{XI3FR&(MM#easZ@Tcm!)XlE^YpI-e56n-sepu>Dg7QtnvW6IBiN6T> z?L>To=issxzSy5$mpFS?)mtuIaA~smkKEGLy?9|U-zCM34WlS&Ka5wrdMRG~vaH(X zsj~K3zyA6OipQ*cQ!d5ZEVZJCT^hI;DRy@G;8^j8ANGUKy@PJODoxoe{x$gR^$w%` ztA>QBVt)2z92>S2_Y=aJf_uT_xsG#hF3|AmFaEPp#UuGdI`*|`1H&x$TsG-Puo1Rp z-D1$&BP*a$IP@88 zY5Q-{k8P3a;Hmb;c08aEte_%i{_P26hDL$S9i_vVx%L*c{RuhMov0XoL3W(us$W%=}5pzyWF!IwV#Z! z<<;sQDMt_AU8C}|+)8~O|NY=q&y$|LzJ0MK*yHW$ssVf=G(eU)eM~X&g>WIXP-yY2Uj0Syj0W(}_UGi`U) zqHJ^3>gU@Yl-1PdT#L}m_1t>*irb4##r(W2&m3Y?W(^LhF<7?uTE&_dk8hpcJfmz+ z){yY=2cj&pH$NH`le(btV$H#8Lv2NGF542gHr74%z>T+$mZ@MKMDIDp9$RzjOYFLUJkTowZZ=+q&qhngQ=Eb(utlZ;wH!KS} zU4t1Zx~=`OQEEibT+U}J@o6x7?ZbmMmG6J`l3oUWSRe2`y1!L3B?<-7mh6qmVzh}? zBB{~HS561QIT{sR!padj(fvtRPDe+&pT}(|S_;1N$>(bFyZg_{q3carGcS#C@1gdT zz4L?Ivmg{mc9EmITVs70cS3DVP5zvK$TYK?k-VbhVAHwW0;lERkA3!I{IMt2gFp6- zy?MzSB8>&AQp!J%jWs`fSn{{PbEBa_a+=&+rxNq^&`xQc=+_qo?``4~v%w)7+Ue;n z<)L&|uZE}E6O%xoBndewE)F1-ybgGV@SRgnvff921d3h~Y}#CxjYL~K$cM)UNeSpq zmvi6PAQM!i7<*7V7Q$mHWC>b_mLMb%re=D50HF zhoBrJ7J_n+l!*V04QWXh?+hZOJSl-X)*o*i|03EI;tqIz1e^|||2~OZVX&t({P{Oc8fegL6!Ak(V|ES|CrpR%X3OKIv9D*E7mCm*R=PZ&M8xL;zJBrQTq~f@w%G$v~ zbxK<6*z(dQO-`O?0D%zGmYb1E6|oqIq&6hy#T}@*XyVl_UaWoEyNef#pY-VB#YEwN zyLfT?xuyRwFK&g6#Cfq4xDjN7A=fBB4mawOi`$}*x18_jl8Z&7wZj?RF1Z*N`rfNc zE^hb4K}h6_my26*SaDt~1rW>Z0EmUWbrLarD!t9r{YiN-@?KJO&v?%nBv|0`fA>*pU<}Y-|c0(lQv8Xb;##sFUgJawB(FmmoIQz^L|UibKbgqEB3&ir48oF z7vuNIPZ_TK8|C}9i=DLNhU)43F@COXMQs;5X}etq_wk#o-p6XD&#>NpQ`;_b%WAf) zAM9Rgxx=SW)lc+&$it_SsJp$d{h-{}>M-_mE`t-;GqV#ejfI<-ch2{Fx3?xGpn17b zO{{t^>|OOf(*`CQFVi2GP$Sa%mZqLk9(8({Id_-UqP7;cUCj48AUDOu=-ztMwxYI+ z`Fj7^bCI%v=1v(aG!I zub5dG0*xfNN2%B_Q(X~1ia)cRN8ehnoG`(P?PDcQ3Jvbcf^Usa(+r5z&sGdwpUQ4S z0!1=alWLz(hg9N0Q$kD7K3Q!L`X}`#f!C6)F~9-6C#g;|{@?xj)mlkDCQF_!dt+Ag ztw~b^#iS1(*iS(v$cf%UO~R~s@sk8oC; zd*lCxVv?zmX>}-+8Jh5RM_$<3H@ocmEwWsA`h3Hw{MHR(U_K*&4>HYhTT8x z4W%J1oLFO{vuFVPY+m^D!p!;BH-8>~JY?sooEgm4e>_bx@7G4({@LWYiNNB^_{OCVzE-X7e?%_|@r*A%d*3RE9UuBxy3ta+|YD)-C zXS91*qglu#cz!?~a*~qbRFnv~{7Gr5LvXn(laFXRp{`6mxC~5PnS6)Pse_yv zZHekdquYz5e<$C_I)G8p)aw#9vM#P89>u6De^^WEH3B&W9S#NS9HX6S`kAr zt|J9tsNVr#sQ+<*VVA7am9?-v;bRxq!RE3QxA=b*T&EQq6XQBkKx6tHKx6t+Kx199 zPM56Hl`HjY&T!k2tkVh=igFzmk~Uoet^;*QaUB*_3P8RMkN>2iP6x4WGB5Z1MoYPS z+%JO6r(Zq}!f(5yCJG1XC8=p(zt#Z5c{Z;$wopz_^O*vnvB!Qy$%iteLK(gBwS=IXFhYZo!-A< z{;ZR4rU?JxhrE$BH~)jjUz@B_ zTNCz@VW|;wDe7HQ-w>Vs#U@2R2I~21Z{si`Ue>4IAStMHDsp{4;O6R6dj77ntIuxO z`x}Q*L46#MIALT%`i-QimKwanB_>5f`?}jcUnQ*6#5tBc{D;}@wqx%;2}qnQ@q+g* z$g9B%$O&f}Fyk$dYH_teln`Rpk!0y9wKNJ*Rg#-r|$u zkw3?}cmH!7#(ZW=b5$<=@7ppwu}@kxB1B|P z!W`TLcWrldKnVi7kbK2X)Aq-Nz|-pOo2kq~Sg9N(V$2 zIe*xd4oD>DPggo1OytC_bU>__wP{M?NuEA=Iv{qdC0r~RI$H{m1nQ78;Ew}Ix)^YO zZ#XN`m5;40J3;Gsbme24j%ABo`Pka?>+SB<@TKQtW4Gdr;tW^{ppo4H(8&Hcps|Yq zw=$frgqR{BG+;yOV!&Mt7&48L1?B!47;r0AFUEikqyX!o4ygoeAO%=Y1&F>Sa@K#7IFqo=3Wqw)njzcGg7xp>otaP}+Xmd~7C%djUHZ(Ukf5_l)JQ_=P3~dZ) zUUkHk8>s5R9=EYdP!?S~nLWT~x@vN)>Rg$Vy?r+7`7AJA)8piGrNV`(8pfk}li8U{ z3aQ^3I@5f{!;Qk9RQH@vE}RSZZuIk6HEPO@zVNiJOySe}+-X~Tttc{+@9UK|dZVt- z+~1vsZQ6NU>Ewc!%jHiDFP>b|&p>T*$e%Y=$4z_WKE2NINnubvt8RIbh5XsXSk)i> zU5EXl!J9mqS>Zd+?zz&*CpXk4U)Z4M^OLZGrhF>1m&Z>f7V?!!FO&-1Pr44ft+z?f zhv!@2Tg6F>Rn1eor54Yh%$vN`Qdo)aQ?2p>0$Uys{<$ZltA{&p=Hk zwQcMx`^Gz+^tO~!E?f!(0JJmSm|&#$o-&cL1@A}S5*axOgZqAT!%{uBena9fz(~Ou zy|R!GfdQI)Qw>TOUh^t^*Z%;c_=oGZe(oV^6LEZOi2~y_=p} z`{7aDf!e0BGby>pUaRGr1xVO_qgF-SyB#GM*ZcK#xE{)RaGL>l61G&X z@i641@~@Ylcr?EE>$%h!EIMna!L1`V=RbU$;`zGR(Jk*cO6tmrK294BZR_I{aCq0% zhp!^G4u4p4IOeXQp|x((^AWELONXTJIlRW=oNd&QRZw@_YhC0by-aY|9iBJMU(qY^ zw(jfFK@Z~&XWw&M(d;!U-fcyofw~jzb@vZYcz~J|9c|eA^`?jS58K0|a}$^E+U8I( zYF475TfjD3DBV#>)AKht!cXu^dFa1#&pMlR{hT(@olYM0fVNTrO-P_C` zX0Q%>QzLh6Ye?*wqW4-4dMNk$h&PPYL`v%5-39}l+*}{@wVIm*j}K@W)$G?E`;jp` z5|DU&_qICS59x;w+%#JI^x^Z-uS;xRPj4N}XXZl=!1tCPw+_4uqxIL=4`)*8f^G-z z%a{>Sbu0AG5D5cnAO-Rdb;zl@vm*ap!3=j31uE{!UzC$$a!&RH3D?;;x1k+7OV^f|5l2@99_J)ix*3i3-QzQ;&yw0 zC@+@69$?UcJ;0!|+5@_HaThP{;>BG-z9Cl;YS!&kLB3J0i2!e+!3>!c$)*9M4w+oc zq)1~LV0|Xj0KAtBdpi-=yNIHEcmL4{L9YtCWcPb}X}hy&0X>?dWOum@i8TsJEnAXT z>1kvXQ~aUcDdSjVS}MyZ=UBeiJSD8gyWHq%w`a4aY5jg~kC!U@ zEM@Auzf>vS&+SI?3&+CK)1z)o-G)E&W;Y+S<-Amx{b7XXilch<-80x6%*oJjHowIS@W^aD$`^*H?~1lKe9t ziGR1F#^r52V#2*#E8Scm^HsTO348pW&A!+X?{H%BlipWeFvxN@d}Y$yXP?m|kNz+X zM#oK>6-j=H;Xd@e{KI+}PSW8Qn;|{(LPLizqCqF=JnyIG2~CMPMI|O41NU%V1{6xX zu$)+BGq(RU_xoHLjIVZ)n}iEqa{jnIgD#%vh$6%r7yFJD@Nx8!6tUiUaG4_E5+I$B zy|3~YIEC@ICI>W*(DMAX@rOS(wLIAYjr~b}+2VObY1N{FiQ?2RHvD1>q*=~qt@A28 zge&A^D1W3d(I}P3HIpLQGJ(_~=Z{iYCPa>^eA>h19UN78VQkj}Os9`udfc~lx}$K_ z-tO@ftLyXc3o0E{9qp@lsi|f5C%N2%8KyOS{*#oxJP%Js;0?R8w`0|_-`B2O{vdbP z1|3Je#Oovl9RClCUu?;-*lixa^qH+I)mdScbx8TWrz3VBJQ1a~DuA-s8M*0_R#&sk z$dNrd(vNUa7RoTHP{XtEIYjLY+n;KbbLoerB@8?t|MZ z?kzo1Ea}3WS-ZSud0*bj=k|YD>~@{=eAkA^-(0B`%nf>pu_G()-N?QhtIj)mL#@a{ zSSc?xvG0=bKcdx&mgQOOw%_JTjd)dl@5UkGg1qPrd7=Edxw|gYQe)M%KRlOo5hQqW zJJl)Eb|80^;RsLW+MX1Ws$v-ljGmGjqZTJT|FzeO)9@3oC? z{L+Dm*_1rB#AFJ`?;VG-*zX;4H}9bB?o*)$rRpCt1~GPTZ@#%nG`QmZYM+51|4|Xk z#&keQt(`+@&9UhAA|66O)`70n#jkHlx)6M8Gv{dp(Q0os*sz#wW=JMQvcU$aL%!HQ z&S3LN7kfuXHC`CcE&8V4)VM;A!fS)~JsUZwN8P|Je}uY^ozRr`^Wwa9(W#!?ns@KY zf&xpLn!-jwa?j0`x!K+xiD$m6)@7&Lr>S6}Y?8D~Y(`0HYCgAN;@-ZCEyA;dM~V1f zi9=G~D_R>>Q(#U2Pff?bBn9or zEPFAKu;Wf$gS@EFHltJR5#9;H5VZ{jBtt)O=@gHzJnppA53mkAf*eW~kgn`kvKbM_ zHX#W;N}`J+-Y`q#gesS~(=`Fj1@vri9$)s|&!d)C*&(U9q)cFIG*l)pmWYqES{vAm zwk&o`iezI0Qiq(6e4MeNi;uJh-|ONdU3?_?%j6@iNVymvkqneGDda#olk#yuc^4n) z;v)lvazvLr^6U%cBdreLqI`rZ1;`6^NaYc#G$3!g|Mw^5BNF_-i{>d$jmvC$o6+!V z-XAl6+0!J`J?6#DrN>I!#5Q}&0mg6Ns4ydRgY zeXebFc|)Yny~Nl)0|pTn@aq~Io8_XidzVgBn6ZzdWz|=q^1%8Y3f=qY|6bKz#J}z{ z{KRm$iI(?MI5ty#-=*JtLS{al8vm=$obL@^`6^5s_p07PVeju0t-^yoNl>Bc$M{v> zE6?0IqLA80_WRrWs}3JTDvfd-q5Ke|mgD-yzo$7~;4^c=_lDEsN5Ti+4ukLNLvyTDpjFV?Zxvh{N1vS8 zcP8l<#Tu18zj|eng~Bd>*AZj&D-K?IdSgjES;3HLnpUsoR~LVO+cds6^cjYQ|NUTN zbZlCRw(g$UK3vn#7Oov$I7ZmQz6z!r`ZXOsIOB29fhytf;zmy$2H(P9=TNfY5^Fp< zqI*uMNjrFDqZ_E&drujS5*e(STX)0MLT9GHJg$9TIigX?_5B`o0xbbuKnR|wuius> zo=KGgT7){}tMcQZ#ZMVR2|+B$EH636iU~*z#@8sa_(z4;fHCoX>H7t_4=9b{(eB)d z-5)uR8KHz_*4)7AF)f(?59PCrzf-7xoF zEaTCI8$8dVofoH9=b99q&$rN+(NvqxeiI##IG-EK*wavccEb}#J^#}luC{|~&?H zFZc1UTw|!>e{hZ4jG}F8!lo9D*GQeRYJ^7q#{uj>Eu0Xh$Kv&zamp3I{aQ|9K zzd=L|t=JQd)s~!wNtFV7f;!~X@NwAFr=*6Cpr>clx!vbO;&V46{IZ@L^}JtPZ(3+-&UjI|BZ!k$UK^?hxRX=mz2KmbE!&N84m)_nDei)?;NBTJAXFLl zY567QE7DqomyVuZZ78YMWRcH7!ABq2FlpO5&o0Q;0u57ta|JYPIqzUW@ zDQSZ!l8@w>_SzmmNHDD+1D)Cyz?Dgr0%U+X$EgjUl3+U08lF;n`5*$yE06Wddi@!-A;D(f zs>B=tf9k+k-CT}kP{@hmqSH#__bg($R=m(Uo(g9iCkMI?>-QecIPNR9koPr&arduReh!zv-9nJ zw5(;U<_l~5j8sEvSS^PCp*0R?PM*B)%B_4Qt7TA!Elcu`V|i1zq=%YBdkZ>Ah-gY< zwhJSSRtd$>P;a*Ny49Q3Xwe{o`oxKfPMbDbTRA8qltIzbfyfMyvVo?r^$S%I&D}uJ zf`i8`cUCzlPM)QxH*1d8rj47e^_DYXi@d1>rI(5U2p0<_=bs=4pkA6 zC^tK-bAoz`dXv{$t+JoxL`9!fgb&Y}sx_+H?V}-0m3&Y5;R(3#*TcAX!S)Jy&0xN~ zk?G?}kt^lZ-9|R_tO~N_I$q?}^0*$A`JR>0f=bVPZl!0lpou3a_snmo6qIdlsEBpf zDZ6%ir%K^EuZHrb9d9#Sy>&;s?^3DEeZl4A@@sj`d`}*?T;S>69L3+7JFZ-vHzJs^5O2syJ;HUc}qF(b@*ah{iwUtq6z`8}t;F#uYJsiEj(nsPxVBSZ=(FWARjy;vipdi64#h*2xW9a~?hix;^ z1{2EM=3nN2S5IVEO^|XbcQJBlWPn z38;_7#C?NFqhZ?&^|16prL%Cn4&G-#!^|a856k~xSZIj-Saj^6o<1UsiIp*ER3zS= zc$q#8%O~M|bnJSgGW4m~^+9DA7$B)8G4Eqwc`Q;7H}*`Zh8-7hsKc&RD%7K6$AHOV zVfi1_qvOUD>QS+C36ElV7?sH~0GpV2KcF7AA3&%2bSz!58B7R7g?*NZz;|Nf0`;)_ z8(km96tkwGjE)^=DANZiK<+GJWhm17&O^mV@~F45)~$0aHfD?hCN1GMV^#Y%EWtvyh!1^F9^@ zw|=1>6H6OVh93hK#Q=m=@%FL6A0FElpfoJcrn9K}SRMgoY^;1hXVLIuz@pI^nDqhm zm^gU@L<{U%rL*YJUTmA`I6e;bKuE&XV`2FL)H9&t-p8OK`9;L$4a5>8#}B4VpMo!A z

EDTa5_Sxn%v*!M9RNXR(xZ!keXz?B(bWmaH`RDAnjY2oHqpNXS;5KC}02~sDX z)?ngr^Tq-p6Wc!EO}OuZD2nSZn~Iea=`0Y(@%8kv`vTO1jRyN&V0E~*7|?0>dQ9w| zM`szZaO1+JP?*@UXH#fMjv}!+Vp9;m18f-!w|?0a1KiqTg9eCu7PboP7{E|r_W(L* zDL6jKrcrR~2-q4{wtxkV`ge-=1FB)^o=r2r(E*!|lac6bIs->TY&sLS2H8NVxNpFe z}-gZ74#siDjOyNA-*Owb~*bHt?M_yHSOF}|KYR%e3u;pA94NUStm z-#~%Gy$|+0>^f)bvvGSA8<;k(9*c%=3wZ5f=^iv3JZ&Jvh8+VoFi%_=6DteQVYwlp z+r{aHjo(8-tiyi;NC>-kvq3k&_07NlSI+>nFl?I*C=A>>GN9<=_Fn@EzI}iI;N}-J zH6$Q{SlB@jf!^vC*&|Q2z*l4id0G${+=LY(qwPWi6 z(15Q80wt~<8%L7{Ago|{rvVF~3+%Hj&`xn>AnakwfN5jt9;g(nYk*+O!0jIfY}hby z?*m~ETV?oyTbJY#8cd}OaQR3&oZHNxH2Y|t{4<13yW1j z84h;@gaVKs?ECZ?SnLMs>0_}GCtb zfvpG77p^VPJly-(Z0uTPP+$|lwZ#C3K|wu$tg+vP=3)Cw1@Q%2j|w6`mR_hJQse8f zu>6lfr2x2u`7RZ98307MXK8dS?hS;&#I0XIrSNT`!RC$q z28iCce$W|M>=jTD5Popavaz}!tTvqd0%dgE+JaSyZy$UX!(#!Zq2Txxc%K%2(mgbWbnar_UY96Sx_vv6w_BySwQ2T=vbOF$dMj|&SY=YXaQ z8ZfpWfQ{hj1r!D>AE$yqj+-|&P7Y%LEP%x$7*xPnaq|IkB94ZT%^TZ3z}&Fy1JMkN zXESINV1bxt0Zqj10W^SjvEM*o3+y_lQ2|uIz7M*AuZPnm5g3z>9Y5OtwQ zj0D)&;tZhsVIGCD9y%~KN_amHY)hP5jWaLSd%amFb(Gme!>09&p3i*3;v7WYJ63G-m}{VMiQ37FXx7z>z5@D?9Kb4 zS6P16eE_V%#UUgFLGha$JzgXHA}3k5-~s)GVC~<>NgMAQAO`owu#td%mhidWI{erB z3o?@PkA^TG@%xY{G&ho%#3k1%k&3ZkvsMLqnNhzeP*J}?i@*%*_C9OJ+LquSD`3Sj zSZU3AzSv^ED9FKKvBkQ<;)5fu1E8o_tx!|vIJT%&)SOr&Y?03^eb|^A(o)QAqB43c zB@W95OAhRaE$U-qD9!_H?oSU8wRQQj1^0t}1U@B$Vn5hui+di}B35)itWSctme{X0 zj`)ZHw8D80`U_5iE%YneZ^kNhJ1q2^iAdpjU<(ZZNhY`fw$Mu^Eqad`Tj&whD~j*- ztdChLfN}$yan4|ih;tB|aUG1LMNVQ14G-Mpm^M(3`v%-fi@sm^xqjOj{lIvfAYg_~qRI{5(EjUBr}~DefrYw|Xr*%-J=FU)u09hU+vJ z9Tx~9SIPEyP=2BLvTm+lJ^>PoXCaQV;pe@Wh%VNuc;6DbJbpgUJ5_Fdtyai-JAOn^ zW1-y`-{k_W_baMs#&@|}`xTemZ*L#J-*1Q4S1zl6{Cls9xyR?r^?E;2S;x!q`NyAM fSFDWTc&XdQfA4R%`{NdG!Kl;e@bvWU=l8=WTkpFr 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

fD&zs(v5DNL&7@|ue>U(^ z#~n9G2g*imOh;d0L>7Ln=)GJyd)XQ)ptW!<5N;+#GG^-WJJpasD=2Bq!C)s%*EsfS zDvcbK#Ovx~;m6&7jx7y^k|R%WNiVDiCT%SG`FuiIL&Wi3-y4~kMKb0$>i1=mgZ8>R z-)nDq;LYfyXRNwIHJF~qp4da9Y@V(?d5`A}H-jAm)rSlRbGvr5^@gV+cG;2HDgb93LIo!hS5HZJVNISpb7OpCG3C0= zj&8I?+mqOelck+>YO&8f^#4cRdqy?YcKhD9iV%9}T|zGc0s_XrR6Mi(jP~&d z%ay;XfM@yY^Bm%}s3rNUi=Rw9@gFnD>8`4G#!UM_7T!t_`x2IVv!~AD`F)FGlnq(? z(a&X&{U@kh3Fw4w18a)&KkTf;!kwP9KAj7&7~rI%l~=d2e}84NekJVc>-ZWDi-6v> zmF}C1;DX765drG&>hZ<4IEHs%rOt21JjE3Yv532%`h>qlDfjNTNd_KaFTd;%lg_FG zQ7KrU#nkVQ5(aTQFp>GBVi@RPWiwfu%rT+f>Ix@biyt9IE`o39KCh^vm=+CkV;nVr z7H+~g`7lVVpav%&$=Y(i`$>nF8mKA*gEt@63~#Y}$gOGv??EaJGQ9rq`mTF}SFUgt zOhH)Ww%j3X%K5BVQUSas1Y8}f)pX`Or#U~bZkd!=h&_XR-InnLIGB?7X>8!Z@%ap> ziFMpFG19kP=h!?-bN=@6PhjtqL`Ip+)HZIpSpZ{_RSoBZVqE{k=Y+^Sf&_{B68P(w zUyA4Jk-p312NoGtWF>n6(%>kqY(!L&So)1!TUIlXk#$hO=Pa zCpeu9`~~}-T;Ih9b1=jO0#_4x3=s??d&@qiPkjLx0AcAgF}c&yucJnIl&K?Ph)!qG}4t1*W&JJL6_$o8_g+E%K3( zBS_zFVAi%}YH}3Jf-{xMKXIq3+zn?bV$axHRRVbp4cK zd9#diL$eqY*a}rplJ0_(ki>nEw^dz9Fu%UuqH5~CnM`s8-Rh=ez;ETZr;U%qsM>Wl zbr|FaK<&6rL?fZ3)0&nA!mw;$r?REQJg6ba4&VnxyI1@7xvuyNeOkXtjlk$MwBn-ouz}$pZ13Y(?c=kC*({JQ zGePdOkJ*{Mn*CGkX)*?MP19ONqG9oUOgl>l zr(x3w8)$VftiN7gW=Ws--coW%W_$f=zRY6{hYRV89{u?j$iV!SBKkrh(H&Srcx2G% zOB&)@g4Fr@sL!DtOMYy3HqT0V4SlIGg$Awk*L(@!azwEt;2)GFVaq@_@UJXCdzRdo zHFgw}nbh_a-IIB}@ItZvaaEE&56Q6l#CkR0Bj1n<7c`&u`BVYaaoD8JoISdiT~P4@ z7eexFh5yL=bg$`i#&`P=(a9OR^ZJX$@yr2-YgufGmQ zoKDm^ZQ^QdfEFWM*~aT~#^51>`cBjqr$8Ta@5QXXwGT*ad1sz5w6J^NndUD|cwN<` z)o`-9+Hoo~@hiM*sm(Doqys9FwioZeGnw|GMZYu~`Cv2bMA5c1pB8~km{KMO&_rrQ zIQ`A_cP_D#QzsU#?n|@os5@h{nmipcI;NJWX${*K9nAC~v-`en)~^iTZ)&wk;!MH2 zG!^POO-x@upIP9diys9j&3Z=vTor6G5oW_9Pa?reJ$831ha*${Q_z_8EOAntgOOVY zxGLopWE7(tyYsJiRHwJfdGN=T*Ng`YUh@z0q&n@ z?B$2CAjLfM%G9I3y??ODw)iMd%b)@yjd>clS5 zQx`gp6hZ!*H9}#o?g8DORBq+LS3*CYwv_UIq&Wf24Tz?9(S&jmL-?Q7L*vDM>u&2` zuk0d(l9N-~7OuuFQQ2`}&d#~WR%m)j17_@p7Es<~EwxtiHF7hw8p`z2IGnjm?WiPW z_9j&xbT5Vc9O`bBVlM1^FVrG;z~e@MhvQsRXDWIJ!~00vguhEO>PD7D><7bafS6}Z z4PtoIw$R7LrZZ@q0%kGup>9QJi6kjP&aLX&ey18Cr;D|=b%7WGA^oi8>ZVGw_QhQ` zx58CceG6<~?!Qx11fF^|qWlGcX85#(HRVI=(Vi-6UG`_}7xo>>I7|_KaAxqPk7~nh z_u7EHJ4Z)1LsC0`5gmLECNliOPKC=3Y%|v0Ab-4AxRblp%d?OwzX)eFyLP-7}gg%+xAAFtX2XV`!1i!6bt8VhuEK zrH_uOPIa!gG<8l!n<25yQ2}!(v&lMV&O+v$v|67|5E!cghI` zb7GWNn3{4Y4-M>mcv!p6#PGnJiAcD)ZDqAb262-*5>pa6FfpO_r0Cu5iYGUZ23cxN zRBrl1ocd|((o!R9eM#*)ZK^lOCXN~%r4jAjo(-RSo`GW2>$b-Y13$a4Y?z_nh8r;W z`zHd;r+Zf~2^E>UGaD0^rIl7gL6M7X!E4irxb@zC`O`g$#FewzNi*JHxh?C^8kNu> zK^3X#;SEhrTf7{63DIE_eAr|YO2-qp6?I|G}hHg5;`+4>u>% zT|~f&eP+uz1+=MHG)D)x^*2=p)xZ;HjYEO!rOECOhIXb;Qz`ty(_+Ud%-E?l^fvBIjG>?yovvTJPJ%k0e+ z;ypiyhR>nokd#j7kR#xjMh1p2l8+RnaVbSACw`J8B4699_IKNn zAHcvlK<#Yp(+zVtH7htrrqhe#21Md}kR!$>PY>p2tOC!YzYc`lvRcU)ObHQLBQda0Ft?lBYv@w% zB*UD;&902fk0U^ANsNHWcg)W56WQqWe#9aJU4OGAKm>FNRj*K_a+*kIZ(ZHC2&!MmrM2?O?_ctcEqXXkHx8w=Zx&yt+Gr*XM^w5Ie&sr#`5xb?$>Qk8hmAhCO8#w9^1XA`? z#&qHCU|p3FlWDfy?amdhz4AuKefw04F5Zla^#lel^qdUHqMXdCF%7Ion)gr1r2Lsh zIQr-!X@Uq%Ka&{`dJu_*gPuCqYlA0&iDlw9st<$1Ss4+uw|gi9IbQ*W;i3+on_4AU zWODTchR7WU!utrb%8se&`w!0AHmtkae3PtGn5;FkvFNnLIU##Y>T07x2w61)QzQEr z7CtJupufrDbb>)`Q>EP=(o)rXA@L1vPEAfu$BnhY3}h&B=3#h}%umU)7?l+J%0BpF z1Cw6q>`xmRoiv>_F|n#en+f%n*H=+8L9y0RC_wB`wY|VwURt{6&dQuD>8x+K{AVlm zPEI#}mrS9qd z#|%o^zBW*kI2TpbWwAWU!ER0j-wxn69PN`LNSbWGL+{!A?_2-3zkEVGFqT$qheuuR zd3^PUisGr^Lt(d0t!XyhdnIen))-28>MvcIPEN;{NzvkKBmWI{DQvnSN`*Le`Gi7%7%kNp2(BbojKD+maJ|4*}#_90Bn{)3D8FJdoE z{~c8Mud|Wk- zO4WY`n*1Kn|ItAG{`h}pNa@ahGTv+A@rUi7ht&+rN?*Qwz`RpZTpn?%;h%vf&3v2x z)&6W?erf8OH=4U@r?DHkaR?vmd*jTT&?otq9fyPvVI@&ujc<<| z-NM#nU~iPhjM*A}F=I&OX<%-1;WLaDffmwAAEmZYS2Ch?H-Nz)N)w*78N#5F9@kJ? zPwO2B@i|0!xjHFj51M{az0*Qq{<)%8)h_em&xlbN|WRJrE~-vyR=-U2=}LxIrVQZ zigspS8u#+Nv1?$;ZN!%^C1sL0T_TjG-;rA2mEVzcF#3k_&9A%47}Y~(mzng4wQ_2I zaJsRdP#&WHo9e!IZn44C_~jMS@wS+b>CIMAbsL@jE6P8GL-<>>12$<5oJ8B+F*K_& z{m|FDhW+n^8J2rq^(0w!*f$Pmg*0-NLSh!D*(An6TD7r^yD-!VMJAL?je$KG86)+f z#+JW$Z<1@tWRm;X`wt~m!JgJ#YKcp4TAi!4^G=rta<;{pb;at73d*Es(DgljF5XDB(>0GR<{x5Pq?ZIoLXS zG$oFbgkNyfIeFF3*$Lip7?nbch6)TiKY76G1Ws0U@3T!Y`L$ee z7rP_X_k3{n&n%sA4rb!P(n=nYwsrD$c==sJj^YjXhP~}d4vl!r+gI9ViRT`tNVl$0 znj@c=?6hy8?)0q1snNumvTSa>(?#m;j}i#Yi1Dv*NIu51dPWuJ<)=4djP&259(F&9 z`Cb=eikrCg=gv>CqBKqT?|UU&pBn3U(!zEJ%=lr6hJ*MTaE^)rmZ2}UZkLoSfaz&- z16JO29u6-pC>bA2Z6n-NNv+?gFSG}ZFGxJgKivNDsHm2_(h7dz_DGjrP|LJ)symT+ zEAv#5VTtSRH3RlKx!}&z`Wl3tnYcY{T`bjaba}*7CD-XvKU(7Oo;#V=;z4`N&8VD?Xx4WAe@cClS53qX0 zwO1!YN9Zfleo)&C5mdV&f((HPaT_^IHikR3NgF5TPC{=8z_t<^`)n{e0{V-pg66+h zJ1srOM1Su8h8swWq~F z(Nubh9bkX>hb?hEZ46`7?Ckg$A^#<3<%4dtrtyu-4txxpt}sw{Fl0tx(cI zLFe53P+WlgH>s2%LiIg=1yF@mQ*1*uk;UZ2NFGHNj^b1pMxZ(eY>V!JR(D&(VFW7W z72a8P33_(U)UIXt!zmRMdFlI}9$8sgCMJ}xDot5$w*Qe0eX0-&GlDoXQ_PLygu5TC91e(5rT}Z2rF1^#Fm9j+Ad4D=VwWdVMTdnuD+!*wN83 zGOc5p=LQL8apcPFCln1~3LzQwAM28M*e->+G&+ z&ZqltO$0p7yx@h88-lJ}r64ascfsUV2W1UOC%Sl-SSNa)+oiL9*N853Hpg#q9cl!r z^jKGPP}D7(=+vc%E=Ha3Zs3KS^{lT-zAX`*+8!a#63X9@ly#loE+)1GFnFmuWSS=? zi)CdmL$^HMR~CouyOXVLju^~>4~+Ib}kVh%VKqceMzo+nY1%0+@+H60JfwC1bw~)zVy~FtW+M zTQYGhghl71Y(j6epjE^#%{J%~(4)qU>W%_YYt)fvmk{NH2~+o|8&uz|eveMoJUl2~ z9#^%2AiaB+pc$s#y~DSH`Cw=I4@sHUH>_8Od2(GQU=~_<ah5n zzOBK(xC{Ch<9b$3^iutUob#HzzPvKrLyvC^I-_JU89QMAP%CKPvoUr}lwhsD$R?=A z2h&r7pCw7z1Ip5W_gdNZ2mHT^m;V7I{C_Tb^cpa@9z!#=QQhyAL`EuGk90( zbI3M(m*nk7jvmTBv7{Rr#6(*2NXaQ<$(=4y&KESCUk)_x(S{=~>{Lf$7GH%$!H?=C zO{aFIc0PFm<2%81|3%g_*b`G;zKc&qUa#%8OdpALTjpKpF%tH*%y|wc)JXX%<=Yd^ z`e%M&>AtSspNVTRO}|p%nSI{BsP(_rh9B;x4a@cPDgB8~HVovZu-PHlU1OUs+v#zJ zc7o^(g**Iee$eadi3+(t1M(U>&UyG5QKxklgV$EHlZR(B0{ygZq)pxIi>+px2MXJK z=_~SR;JI6Hw75T06)x!6c3}I^v4Tp0{=;orw^BE@)m*EK*_FSh7CL~xe0}KD-!B9N z6~aXnPn#NC%7`<;A4om9Yy6zuce(39u+@YQZL%4=&G^oB{UVgnZcg@rM%vnNqGW8B z7W3I-*>o37;r-(C zHq^ZJ{e^Sh-S{_p?jvZI-2%z^%Qjl9i|CNr(0AMmUnmZidzUuIXy1BJdXWxaO}Q95MCnL zrQGbC*Xf%%S6@}=#$d{+8KTFOxsT0EqfJY%BGXlhgFDvIOEK;W(>i~=yNj=)gy;u( z6OQ!8H5Z#ZTi;=AJAXd)j|amc-<7YR7MHKa&2GjeF*cjKN_8~~&t*vI%)twU5*9M- zwA6+7$XqooI>2_gC02GrqR4r`@$AJict(-o3fi*BwkWo+EuU~S*64ZzBu6J z@XO6~;-0tN`#J=w29&&yR^%9YymQJ^gka>}{W13#!F2h?(6+y8UJPDe zn{qMOaWN)mDn*5MyV}Z313s#^S71+`;+f7{Ev0|!oImXjncgq@(CDD9bCzD4mN{F$ zcAkBOWj&noVy5l0)ez^~cB2O;v-Y)C71Fl3@pMR^Lp(U=o$slDJo1g;K7Qr&Y2!yNewokb=<0X6^dSNJKE>4ltS3W3sdBl zrpjkOYP({&vzi$Fkm^uMPkm~?ob$4ooH*ka`^45n(dduNb<6fM9WSA?>l2}>fwNV2 z_5?8GNrFI+i)%zf(dPgK#B}A#w7kXGE0TPSh)CAKx$oyM#;5r9 zq(^@3zP|y*=bb`5 zs56qq729?Mb?Th)oHv!2(EfVmN#=E(IM(pW=uHLRFr^bCboA6zb$W- z`1WpJjUIh`vg+B0)T5!{+c1AQYYaieva86~faLF=q@~nwxA^S-ZMkB~fk&7}g9L_q zcv1Uzz9mX-8<=}=rUh;#oM7A0Ktj&J{xFKFJ3Q}-SQIoW;ANX zk?%Gi)X#f~$|E!Js4VDiJl8P_Z(A!9c^|r1`&|JhkG~lFgs)Swx;yKe?Z~2KRMR5W zF`9HDt^R%7#n)cPqD~!>{0T#g$i~6qM}3#_z3;gT{FV1C?z29*FwKj+BgFpPy@y4< z-dTkxJ)YXhlOb7~DoZ{4uuZDm|1E1}==-%aIG^y_8c|RE7=c%H#GGYG)xP(_ z&r1J*9UJ^~;BDjaz2j+jkn^^8_|A*N&K?vLyf4rj$spA~i#W=oj`;NUypSNx>!iW3 z`8%1?+gV@sNa=RU7v8?`b%)oVREB`~?z=4y7TSH%EE+C|h_4%^rr7UNiE*@v+^iPY z(VnNDVQ4;5>iI13_)nE2w-b>Q*%|;=vW@o-&0|-d{a3NiKZ?Qs3}gO1`~J@+)qg8O z|8p7czkxAV{&VfJgOB}R?ax2gm;Z&@C8#I#lz>eg!jqxzJEF$z`f%d0ce_StkFPNzN)C6vbGHug* zo|26eDAE#5WilP&j?Sm<>;|n_bZFw~F-=$wdo#EV3kkXtzE0BXFx zOosI+G}e71+9r6N%R$F9W^$~_oHU5)$K3RBUHW>)SqGugybYcrHh3Mjq#`JLuWu&R zJt*;~-<<Go1_sI(xHrP{>&l>TBn#jHPb3^SlB{PaLC8UTAFWNHf2vgqw`J;-~= zbQaaqW9BUKu>g{y_MGk3e>7tHLl$2eQNZLz%*uh81tbadKuL73s_q$<;kW0$lhz4I zt3_KK*^po17|J#b)N9vuyu zg$w6ZRrd++P`!X3+;XV+$LmGtYx&i?rhp=w_i#-9POYijNSRwe=wo-F`V_#2TP2c~ zZuQ(V{oFnx4;o7UssW0^Vjt!bi^%o=yf-lNnkP_Jc6OIdCy^m9yGK92>TF3^FFJo) zQY$5Sf7-$jjw!h=4n`CQkVvEQ0Bwsgrn{<{+(|eM5WIwg*O6*{xZg10p@LWAc9tm) z2Cx<&WW5IaMA(U6EjM*)9|lNbe<;2D?wL$C^mbiMu_cs+>nGe`1wOt~UaS(dJB9~h zfu^fKHuwC9JS_=N1VW6TiD73~U!4Y!;tOBEufJ#bRO4DyXAJ;UwFTMT+CeC*Id$Ch zlePDALc}E@O$id{jA{4__WI;I$nfe@wLT5CzqofcP1NkHV9Us$l$3}JDlh{E$Y1?! z_f+J;em&o669usBMz-Pga|x&C&$0^U0G*B^wsjO+4Yy*#f;lZ}_E1B4xx^N0mREwG zh?&0Svp{@t&akEtlziql&~gtuY(9$taps0JIB1}ZXrE;R4TZ1=0J#Zi!ZCyzLO0bT z!vlXNMjSM00)F0bC|+bRZkZb3HW+qZ%&q??-nL+F==R&BgVzC#8Z?Gx@NENHSomO0 zI8a*Ng*e__rk$W_OiTjJjG)4U0s1hX(GjSTwjkzdaP`-9@%2U;oJoVM;WVu(ju z{cc4a0Zp3~gW*6!YXT6TVeyM7GbU^y$0iUXr0WLa}v$k|XwFv|1 z&Z(`RPH7->*VX_pw*n1;!?~PrcaTq94U4PT-fGQPS1G9Tp zGOl^M0|XcW04yUi0$B9gq}FP~8X^&5x&rDRpb2N_3Z8!xsOcl~@Q`f#HNa|waluUw zEKvcaa0D3uVaCCC3WF2ti{y6vJ9qMTyJerc#YtNu%E|ru9(mxac0=stQCS~~SiQF! zrM_aU3kxLH_@uUJjyLG2R5sj5*0laD0o`YN^V6`qbDkQw3H98n2lS*C zpRuoaap^>_&KCU`EiMEOB-|-m5z|nc;q!YV$h}YZ`hmaU0s|xJXpvxS04@*%EmIl1 zcyO%E>tp;hF|n4dLrE2o^@MH?hS%SFd>4ea0lFAVwDp4rfv7BTp?>{Zs#lS9zW>t9 zk%A37hreIjT0ytY{q?Az%uZb@QM4oMnCxYv+e(FD2bJ{*>SK%qg`eXJ)&sAu<-jrq zaXmsR!^eaNqfIIG9LrvH*nvwWLMosuzWyhYTsHdGlO#Hy$LhEDSBp=<#Q2=;e~Qk^ zy6V%3Q*3P3sA7(3)Sk!V3#*#2$BIHye>|ob>hQ|unCK@b22dxX3p1ngY&;?MY6TpA z1E#_f1^nlv_9$a`%9&(dSL1y#RA2sXWwI(=hwp2aiaCP8%wq|k&tC>L*RY1c0Vg^Y zh{`OoWFT71=c{Z>3g3|z=}1nSYp(Sn*|2*;&5t(a?!%OY(bcx&o;^Zkg5 zxQPl*zG8;i%Nl3Ms_ z-6!JiUv+gG8;l)lwF5z7dE;&rUe@F$ea{#~3V~j)KECIdc(>T`drQZQ-OQHduY+q; zdmdT$&H;N~hYJPBPSA=^8zL`4W66;akql97v)6{TZghUtjT_d?m^)#I?AbAXoJks&reHf5uVQ+wJa zW*EWD8=O`2@l)cl6=~@HsRH?qZ#^v6L!eGZ+93_sGJ3C%D7cSjsZ_Um!cupAgOp(% zW@8W)tek#(sq_%J_{_d(4r3~!st@hz@EM2MkTRKV8O+8IF*v17_c7m=A8205B573} zmz&jT_0ueB@_Wlo!67ash#+A%IAQ{5FR7I z)kW6VHlDX)wA?;Qbk$tQHBXzuf7?uBr20@^gU}#6+`-Fb5ALlDjqxB7o0bVo0?PSv z&Tkn=kn5IL)s}>GB+qEmD_#IGheLb_;g&QzARy0RuVDg(w=ZCV+MmJV&}eD6)f45_ zIk`Et4-!#`KFm=!Z808;7&00?_>%>wd_LzF(Tr)ZHPyF>!~$9M;dW5SAjXcfSt zmXlNK63MnTQg-(Ni=CL-&`bAS^R6ALn^F@vLFb9z}v zLEGi*uqNKs!7>^rFZR6nx?8<)^{>_!!wA;7sGG(Y+w|ieX-V-)pkMli+hy3|WPSP- z&S7d^@1KkyPx;%QfXUZlh*Q%KJZrQP_tj#6cGaKLHF2_3NQ-r}>)>}j3;^6q(Jn5#;~gKgW-`cP&o(ZtLK zsC?&JoaVM|f-qB*Wqt%c(f?zAWxrhh^OtACzQ05?ON2Jfc+cSEGdbR^z^&A6H3^6= z?>DxP7h4Iq)ntcn10P-uIfq*;3$HQP{d}YMYYj{|cuwk~Qe<$20oUx)rP7b_Jcf@q zswGt4Jf?TX)0Q_sC}GWH*WDD>CMW)kADXu+X2B}Hnk5s_L91%3Z7caHiCxcZ_c7_( zoWv3*c^FYeMD@g9-DE#MdkCTtxunmkO6xcVfEF{w3dmGP4|En zD$uYdPrb))9G2;zb^7B5CWLmQHHQ(imCr-PRRK+Oa}~KpcVY3+I?giyPvxE*%r}M}jkrxxI%!EZ71IIetv6Du@_ta{s_WW^pg&@Ov#M9%Q zP4}TshDUPGkIBz@TimHB6B>R)0JB%(-nv^fSMWz4U_G%mVwL#vxETCe)CdS;PupAE z8Ge(Mpf2k}b>pPEGvXXADYrTbPuB%-Ol==pk3nO_PC#ZvF?R#wVGP{2A9Wr{+&2R@PuJMOAAJ8Lbu;O+)|SP-tr@) zodIBki|7ku(+FUww?Npu`~*Ca#sx_5`AL7BxxmO%L=cdWLK-*SyCPsO}> z{w!ej;o_xn!MGG)neUF;inK9AA{V&0j8Z#MscRe?ZrRWCYgI{D2Q6ukoopAITf_B) zJL1&r?aUz#w}v3GB@8kp*VhAa4*>+ZR9_UffX@|JQf}FK0RI#3{jppwi0!*!pqYmo zvUQS`BcH^s3sp^`|b1SmPlVb_+G4p8BEeP{!*s%_EE4s}DS z05CGa1%^#NcLS2Ro6mvW%1?NyEdbbWWk|qQ=n9CRAl5XO-HEaj1`=+N9D=OcWDNq5 z9?*;d0TBQ#GmgkBI^p6Kn&+u;q7y;Jg@%DA{X4A|Y5*#&F(s*nP}|y(vh-^!ZU!ND$I1QXAgs4b zQ~^gAcrcBIso%(GnH|iT5kw(Fun}dfbndYjzj{9BqXh zTP*v$rIAtxF@G%ZZ#fRqin&}Y1fq7Z&$JL=69EF=-}XcvfruApKC0TA?)A242A5vA zV{J+jJ`!9$cB*RAre6bcp9d(`gUEZl&t-=VgF+I1@N5slW%X z3BAJVC~uM%ea zB}M4ARs@`MM7jrM7h-=Z=7b5lhleDP?WbL3^cIJrsb3`gwO3?w{VuSS|V^$ zc4u2s{g9h;qT1CPJvR{LVU+_;@Dx_{vPlb@83ag^Le;#Yu(LASk{?ea?n&fsCROqZ zPA#>EUM#c^i!Ho*@pF(UGATc$LY_2`Gq@)(M&ah5ePM-SF#{4Te}3 z6cCh66Sec0xg??okDDEgi(f}gh%k0*C>n=}9ekv%M66g__n~8hkXX*<4|kL}IVp{b z=G~~@WHl`X_b9 zLtr(w)NB7Bn8@=w>>%5s)0fxA98S#FBQjD^9F_QR|7R;BF(Wn$>g04F?)SCw_EDu? zxnf5NH=oNh=hV6%DO>Kc*N_p)-<M^DgLATD7;FT4O6EZiwQEvm11*2tSL! zMvVE$SNjZx;?cY~aECe^90j>T!|?*XO^wvUht>3UN8|%kw#le|?uiPwQK>o~_5lj+ z&BE4Ov5nB$p9Pci-&fp8o31vkq9?8&H|YJUS+-GAL4_H61mF~bpfe5H=%A6H%&sK) z_-ETy)}j(umO+KD)rnr?R#ox#R7UIJ&$(}Dhc{`oIIe-2VUFh$dpeSEYdiqO2TFfi zFCZ6+&1uK@$GdvFx7$)F!ZDzKtyIou_crhV>mudO7I&~QjVVH!&0@e*M(Xg?aQhnI z7oMEOsn%5tCgVWyrh_-AV$d+JO4S$>nS~dUym4F3h+?Yt`#2(MfwJErUM#D~;k=2Z zrm24{s*KWpts2r#IWwxE4lN$byR3$kk~tSyYa!~;20=|T56S^5JMUgWaxSrJB zNJ}R(LA&e7GW(t7y>ppVipZK$ZGB@5nFGbuQzzV0cwH@vx?MKgLZ*{y>ynpx$*9zz z1Z}ktTUud)y_vgla{bPQwA4W|%9`Pu3PDTcqi51{CX=(VwX9f(NMb|WF~dzv&6yiDb%@k*O#!A-`qqLg?`EtoAF zOFz{v?m;XE3LfG%Fmi>BCZ@X*zwYCl(mB7@+8MoD0FOQaQ#{oJ&k4Oqknm5$4kiW< zi`8#*(Q1Xg0k{4{p`w|}#}YpXg?wbhKzi9X?>aqN$>9VX(J`-Zka#Y8IGRF(!i`Je z;Noy_f(_btMhw!>Jh9Pw7m5paaO?G8ODZ%n zh>@Vnl1EidZ+uUXO_13gZLf!j!JKaZSM9*RoWo6mIIA2z^e>Dj(_-+TF(u_;YVl_GXcjciF;XUR8$2hl{FI z*)Yl68P6T6*5dp)S@-tNvdi;d5rf(ONsR%!Pw?2cM@VUS;M=_KTbMyuK@AZ%-PKo~ zaFs(m$O~@(<0T2deA(iGty$yhpfl)NjgYRS2hH#u-i&cgeW{~D!H(a z!R_tPJS_L+J0nmH%az;pIZxT`8+AJRXv{7^=``j?;&!kOPzHmFg>$XWW)k zni6hnB472_B!bMGmTp`pFqff(Nn+&4-=?~VuFPd>%j{fEyts5x zG+%JLJ<2K;Vm3h#vAfiCEDfxFpSY6KqL9EKwYh3aRFKeCiO_lvCwO*Xg=xZuuE~^{*%=@A~B!6!B~C>W{qBfK51BX z@vN+>>=(jVA~_46R2t>TW6p+Ia9cZYAA1Zl)D#gfCX?&ENGmVDni9tR3(2Sj(CTmJ02N%H42GS{B*^aR@a<7jnX{ z=Unp+Ns{P6b{(MrVAKV>$GbxyMq`#UuZEp;@d4oZAsCtVD+1KEnOss=`m2zXv2`-b ze<>@ysT5#A6jObeIc}qSA603!MEK_YSQfecr~_!+9c(srSYmcjEamoxbvq@uLbEc{zPl$w3YKU@D-b7g1M zjDMtPzj&5o7CtpKv-8NZ>4?;*kUa4x07#((x7j|!M< zu#u6>`Ab*r)TzC^ZVnd+7v02~i+Ke^Enw$mVM;u|l=!e+tG0N+VHSkhAE3H}sd0Ub z7)Q6&7`|38l24KPW5EQ;Ngqr}5n=cp(+>Pa-99cL zhHsj=EngZBB1u1UoaS=A+RUF=T7nr|_NS4O7Ch#HNYgWI9PB7Fg$Jw|^m;KFK?xAl zmFPA-@+&-NxksiXV2lx#UHPE07OHQXB7aeO!CVb|Z18nYTRW!Lje2}kI8tzm%t&OM z)2lj9iEZ4NMvX-h_@4%~cFSPdfqCE8A!sl;jTR;AGd{KV?}FBxjFt&97NXVPy^9*j zDg?;v=a~oLJ@7+9I3Yh5Y8oSEc__dp2t49x6_koO9{XZR*dqr{4|=AQ@X~;-;I6(}byshz-bXa8zKRZv-gz%poZRoFN&)M_ zxMiBKX%-$gh?ai@uI)MDBk~cz6!VP*Kr-F@lBv047yi6){J#Z>A78}i=62?wfewzmBE8Gdk}O4&iV)1{NtCCb!uq$ob#}~ z@KXIuwRtwve0{e>M5wadGk(-kzVx-aXX^cp-3XGD={SepL1ubDqQbVfn$ z!f_ScASI&vhMT;{OhKN^faOKALtooH${LqaLYBbUJsL7eir(k49^Etmcd|6rC*V(A zx1A(LNbwPBYc`iSSSm||jp8GMldL3x*N96xr0>{bqr9tC1>4yf!i5-q{w?yNkBktw!C^c!Ak~S*(p%%kC3%CG)AWzsJeU#eX zBJVN6CnOHr1sWL5qK*gc4eWz~W@7d(z4#Fgwm z4yGlG$S}n-ZbyF}g&W$b>hNV%0OL&uhji6_(><4t*7XVq%~fC5|Lc)!&68HIA=Jx& zz^?^`LWrT*(|^iy0$V8W-tX3VL5ZYW%h$5X-nHB~GvqC^(N(MTsZ{^w{DIfroDb2v zp%z&;t#CuAUtBNu)z_mT{rGQK{=)6zJeGo=FJ8&T4hfle&M#COXINZS<+m9j`!$Uw z>F5-{A%vgouL!)z$KzN6lhy26CqFgca8a{2a40qiSNR+9(e6N8)2yuRV!4zJ|72^M z-vZG%KiocK6ojB7Y>%1wnJlNpJG;^CE@|Uu2)uZ zl32yqN9DNKS)RT>tF*o7IDQ9C)|NT6OiRubjmouNgC~b(9nzJbDzC#nmg-;lj_^DX zTE)ksG81izVzYj#e0jP@qV%SVu*@htDPTRhxyOr{9rkIiR>Oae21`+=&`dhM7M$l!JWJ64{&3`WKr`^5O&;V1I_6 z+%$0;LxZI)gZVe$YrQ0|K^58)IPqN33_zo|nkFP4X5W%5PCl3YZpE z^5bBckeAWg;i5z~kMcSIb-p(J+U^kfG3d$?3KnhH}VIj*(bY zW`u4`PP?-?q>@wRd?;<1oXRL-w=JQgET=gv<-The?sBND`TQ>TZ~ydo^qAUa*LA(G z_xtsFzM@*VU1E2LCrV@uSEkfgtMy3PRb`;;%@mzXgl61Hdc2zUs9Tz7wxm%aNo`98 z$U6d6D^%T5-UepHC5wn~6c`Jl*wQCLl#Y`Z79ZY8ZO55$1N=t25q5{pZ&q#XIJ1MY z#V<63MmZovEOo=Ou8kaqB$0+gAfB5le@*u{Hive*vT=2Lzb%#n)4+Z3=QR=-OCZ`B z7VLqFK-+f9@W=sOT=wO|AS?tt%#iWr>2?;hGvpEEVOZ(WhmNne>8>XPz*J$+z*)gwFiD*FJa8dqu(_Lwv=U?V9WI=XG~bny2>FA z|A}472)?qliDJLlSw{@R=-s>=x~1j-m3C}~AbX-}#J$6PSXh%rxqE1~|7aDjzccGN z_Ky(s?my3}W2^Bp{Mo67xqd~34~3`nHYsvjei;hSR8&St zb?%o$c7klxcy#9{<|@8V^n}px;aR)MxL8;w_5+% zXWmGfq8?*3>f|_E3C-H3%nmPg*F8Kq3b51lEUrniahQ7lnG?%>y#`0n zH%^zO<;LO9l$i{m-TvFx9i`F_Wq^r;dv;p%xnTySYXSI#l$2EYbdL^L>>*&HD&Ar} z8IV`wPq{oe zMona2IC~z$ZO=2B{$`Q}-!98jgr#G5BBtNo>+c3U=H$R09`*pHPlK`%dtEyFTVSE+})H=#1+3o_kSxvOGd_yKLb`qIOn(Z|vXx0uL9 z-?;u4;=Hbbk)8IUd!3sIpXWsCw+X$g9wb{G7RVq8>UoL-DXpWSp~{K+3E{YJ;yR`* zZ`JNR1$|U^((qIFbzFfhaaG8=(om5Y)qKr1X@EemxX7sX^zB6+T{ z^GEn9GBo<#bzZ)X;pM#nEv6~SDGWl-hV%>aj$aFaQ)92%OS=-x?X}ETW|;5uVy{+{Km^+~!D6|Hw;KYpygM>lGm+BG7k<;%-Ta$HEQLp0%M9`<;SnY<^S23tWtMm{vMJY1NS9Ji z@)r>vqD$a~1|-?4^J-`H(r94?T%6bb`n7OSOHj4K!eW#WpLIb{M2BzZkoXLkfPKuc{WYK2o>oa=opD^Pb~uF2PjuMwkizCfXU3Kds0~CopbUgLTMG$5(NjG z(pCR8ZJT|{9C1-`L+D}|?f-s)XMeH814JIPEdgqMOq*AMKx3;lg3-10cXv`960&aU zJ6q7*My}s5no-<;_c4mD*=eQsaP-m$jg%3ed%>eN;FVt*mfn8+(uY3OTx$8;O#aJP z@%hpGxs?7te14u+J*84+4Fz55Ysq<;bsLU)o%ZH?vzZO)e63#eWknhS&B~5PTs{D< zElO_onJ}GrK8f%v9d=$FmgbrcH+AE|EXNzRjR&C4U#`&KY<(m{c_jmpY(Z!wl9x3$ z>%~Wa4D~$llBtTaL!wS$LTJOQcf;Rf2444|9Z>ckyNl>q(`9-VRadA3Oxd-$BteGL zk(@nO?dO6rLwns^-s@K01^X_kYT>h(7+=poxf)yK8XCsB=+Z8*qiz!UU*eAb?{8GT ztg-h0*ob9_-%cW+xrTDw{2R=nBgwG~tP!8L`nAQ^yQPL#u;cLpLB~b7-p;YT8Lq}2 zW9o_LZW3p=L+hOoSVPJK-Q7hRf9mO`$;0rQr>C|pbwnLl;O>f7X<4o&K3KpkLP2Y5 zgXt`xm5o^1LEC8(sEdv^)%4CzP6kPOyE@3w7iE55Bg?&Ayjn_AKj1P^c;ZNO27-*= zstIh`0s*ZS615L?{rUvS_Va&WCsT-z_Hx{IxEQ-1)~axxC=y-V(@=LaXiyA6ixb+j zE$i-3;QdI5NOY*+^0~y=TmQz1C8GOKBl#!OUF+F0WA=dS;Qik1qlYl!(wqrjxK2X-~wrNa;+8BzTAO>d6u#%*+z1f~Vc%ap~yy*ST+%#_(m#!^(ntoxDuqDUe!PBJS~A5r3^uQmV-#nnr>9HX_V^pAVOykMN)sEq`7AFRA1JLR!~pFiAXS0~ z=8SM-$(hNjA`(SOJ_Cf@7~#g^x^ctg(}9w%kj-=CW&djy=NRxKSMo{pON=kyf>PU}b!bjhO+ zk-phl{V*Z}QD)^}vYv6JeA}JJ4_c$RY@2nCi-u9!|edUZ3tq0;zX5$lx>)^q(KRyl-Jj`#^nDfo9c0Cm9Ow|1!b~ z+=X9NlMeyE?H@EvQp@evD@<>X*4kB$v&D4P=OYTe+f-*&7LW~Uv&-TqNj`I+>3k?L zjwz>xl*hDfWhs zGX32X6x#L1i*}ii(}xNf@IWm z)lwOzx8>h&CRdxPF4Z6gaGq`pOGVx(N;mU$c4-*BdZBLbR{L*5b);#hXJo$nrxXSvONxk@L@yoTlC#c#1 z>(H#285DGeLJstH4wOK`q)xkdW$av)K;GtA+y3FtV9sC}Fx;3SS_%EmZCqKOT5B50 z4spqa`21B??^INN=fjHRnS{oUGvcj`CibY?@Se}t1|`0rBYiQi_x%xG5^pZNBmIf# zbv-2@DU5lJ

+t5^FTbz6KmdnJ1Av*VvMpuht;?3K1==jP4zPE3+ze3LoG=Dq;&0CeW0-t zBtGdVjiV=SBW{mpTKV1U?SLUb&Fh1(H8_Z^@s&FbC$djohw8&JCmm+Bf8!^!{Ygn_ zy;B4x01~(>EG4*9aW~MXZklK(JJ(v|H{{{}LCjtg58{3>ZDjlngP_)ufKJ&Q6ZAOA z`I2rRwQ~U3`V>*Bj<}%HN;dyBH#V&)bT+tT0Tf+cUrNQrIjd0RBSiUBg{h+qRCD#0 zr~)$IL<{tD1iKFczUU)w3EiPI3XG%jwD5v>);UoFq=2BvfNU)V6IbGYoS6rs9^086!#3W`mNO-&Gl(!$fzx{<;UMG*YzEQ!* zc(S#7K9XCV`{_9`lJ93HF&eQg^xudf)vhboyB<@yq0tUH*@1i@fH22`%lXpb5ZBK0vo)Y)>$dyT89FP1lKnSj>#+HHVS!@yp_&#g5`Q9<9%Zt#W3bQI+lOxjTy+Ps|jxi z&(>MonNaJgiY000_~+x(Zm(a3*DuMvw!M|*E~MydV)JryyP+-mW+x8ltG82(A87h- z`EL12ds~P*;(542o4#yQ+UV>)NqyctajTImtMB`CeO|aU(GVTCo|b<(P5Y`-h|!ni zfmd#AR$Fc~1`kYlz0~|>;_<8djzBWRuIQfDV|yE=eD^|OiM2LVrd;Lzc;}F}_nC>H zX}|m(;b_}CA(vSuGL`it4an|CsvpR~IWGkLUVmDwJ-($PFsqOx*TJ*v%ZWn8>z@9_klu~xvt zyGF>9qpTXdW)CazIX0FMFb-YX2ekR?o3AHlw-b}-Bfx%hBYm(39{ue<3MSR>+4j=? z{l0zFUjsAQOm1(lmT*C!kIsCZA;e~PphxzRNb`2{XMp`u#pl%M||8HRE6 zQ(5$1&vyr-S5mr6!!yM%ie^Bg2jJ?Mqw4um*nICe?3|2?J*Ajm$^SEFG_6+8 z7HNAlO8_Ql;cX2D*N&Mj)e6S~APN13)yp;zv+|{hMo>ZwFmxi@eeSP#x;k>vZC|8& zFsu!>I@@0>pm(CDPhqdF8_xg$qQes|Ihi{N-}T|kudLdVSQ`)RD-@D7nvIW$&f)Ui zZj8wfg?fNw%Q6w@6}f*hN0kemhgL1@Wr-Y{=#T#e9rf9 z=!WPIc7sA;&TG6owB6;7^5#k!O`)sUZw%Pg?aG-?lE_lKTWOU+U=9O0qakLqiTben zs!cmSJpMJy&QGP1qG^Sn+9|6RFZU#g=KY*{zv+zT@?~Ab@tsWH`5hNsLnWPU`YKtJ zcYZXLb>@XietoL``Wn9|3D^?%Y<-sLDYt8V!S765y5*@yP;`BM3bXc-dBr{Z7LH$t zXnbkutt@!Ph%yKI>L3o;_hzoyvfbR>b=A#P@3apb7zi75j~=KVLz6l7A5nnx3m7)? zBY0l{BR0g*@!sMSv#FzF39vLH#O&hjO_n7Wc5L^yWd~k5gs+bP7j37&gq_3;f7y6y zKULjbN2gs-@Ov4k5_CrA9rDO-#5-0pI|8b>2Y6k& ze6|NfOOC3o@c83IHrp?BgAiovCPS4ruFIx+*c#Z*6f6A+uI;Y*td47)&GxtJpod%r z*s`vzjj3F-Egp}KxJkvc1iMEb9gV4Vyz$fCZLGKg&tdenTzjN3ML?M`e;$#Dl1RF- z7q_+aC>n`GIkU$B=T;sONLD|MjRQJirkO1PE!!o;(I1e2Jot z6Yt#$QEAez+jLsx4z!M@{%wZPD-zMcR}jT;*aJX9AM$^>$ZD>BN~7xH1V}D6g%w!_7+hX?=bihrV@L6~n0!$hGB#lPt|1OExgitpfcNz+tLvE^bzM zkz_csUYMp;U4Mb0bZWm4zq-XGjODV;zV~E09?L#qOgwM+bbjwV%G=xu- zQ>-n_o-3_Yho8i&j9S63*GX}WEz^}tY0vTYTFXDzM6S8BYS|rH{uUovkAfg<3}s_* z37&wy?Mq$Ay2S>CZT692r)B%EtpcYPkG-r<$EwzujD;W_V?AtXB7Nh?)EK*KCbQ%OC?JX)Qc`#RznhfZKp((b|vj%zdvDoAdUNK(tPp68MI8s&W{k z2yfiZ8*);QHtGzoL!6GgWbz_dl@{a7&A4L!)J~(oFGJM8%VKm3d!=}ryDjf>(i)tT zwkE!t z#*;iMT=u;_4*d%cMFekTD(+?nUNzpX4uPN>_>8L4ajP_*$CIkumzFM4O$MIDn?hHq zZwrx{!?fGjRcSY1Bb|Zwd`K#MZ%!~`aC_Az0mV5;fJ~m85IXwhXkbPr9u%%Nn?AqA zrrtW;g&Ps!=QM~{`blp0+n%hc%>z%C)>Pls&h|eWHaLLEj5BIPAQ@F(3_r`x0L{O&9z4^t%CRcg2AZGY#r=V z*Mc|(gwBoO`n%^iQMk+5r6AEs=?kC@1H#wl0J+}?O(L>8}Z{#dC(#Q5ASTD2-&d;wb7r;8%1t0}Z z_8o7&nEo|l9^mCM5`+``0~UsD**KA`Vm`Xf*q|y+V9#zX#|nY*x+YU5kZmydM#g=G zlH1-B7OpDHR$WDJ9vGho`|Hn27m0unJLRq(!cw6ojn3z^Gd?N84(Y%ZelR=wq=0>a z>$eO90EUc(2L8C?nqGNQcUKrg^0FZRWm(X%yT|e5U*H)OKyg=FA)1vaz>b>-0m0uR zH`C?awgCaRnbV52?VC<`bya`JQejlc)C<0!jgA;t=#thPDj~Re51GGtB|=ouM9w(QybN4zHn*Ms!wa@ zX8vSi51}6%h-3+DU#ni)6jV_>kxOn}D9_K=sUTmdmc47?ffHau%RS)vw&S|##OYgK zh!H9}t!3z}2m8+@Jb66`h5uF1e;V)N)*Wr)f@@tULz6N5mh!sii#AzXrIY6l*i{{l zTP#6+Ct~A7X-uL0#)t^@z++>5AiD%9A>$lkIh!-sU3>*hIAVc`jwS{|Ueg8Hs7Kg) zUB$9{25xy?K3ELQonWTp(e?J0Xv~wHu|GN0WTScqw+o6JEGozxS%6znpYJ%Yj-K3? z>9Ls!gm9NYHonqX$3!#zj?y~#sG*uVd`DZ43`?RI2pl_5eoIS+v>U5<%t13a7@>Ib+Fl+SC9-8Ksl~-6oWy{%u6@1`8(yCiHyp@Qlk@p4#mBi) zD$$7P=kFA`K)a)&m3J)Pf!Ga+{!0^ln;9`S1VLC8kJJK~^GqLZPMqaQFrA|GrWn0&?}PBWGWKtcvz0*WBIY(3SDx2Zt9xDg-(-^$Io-A|C?qUpvuUNg_1 zJd*dtAe7?<1~Hm4_+{9IZZWe~Kco3Mk9yJqL;3WoGPkz8wo}va!Kg&U`Efn6V)8?5FxhcJEhCU) zZ(#*;4A?I2-GpF)##gWGW zxLD(f^~Gf&ebsCjD7oRg$?ODVL-FBinthqs2eKdiDCP74gM;*1nFrJ-+0Ax#B(l5| z6VN*1t^pxD_~_We~m<1FM8iyDv>dGpTDCuUi;J>h1KiRWnIslr07 zm!kO2(V}A2_GZh`4pMa~CY1F)A)`OO+58yoo^(l{CM0;r;>C}-OrXLmY$T;8)bEOC zw4t=QrSV&_vIe)kpA+Vn@b9#-@8~Q$>>kFMPy|v1LmKm?H(Ttkz}fa8gFP z5N2EqwYGI8qJT|-I7)t`TXETbB||I@wn4)T-Zso zTd&a>b+q1Q20^p7h@}Ham+GedZWg>HKk8Hw`)|0Qeo6%D_swV;nhoj(i-I@l3oYwJ znJaadP90W;cK(#DOJ8KOgKuENcI#f=n|jG9bZWzvwn|$$JEOK(K$TChdI~r=Tx4N7 zMLdGtn}m@LY&>~+P2Ko(@x;csQ6~1}la=CV^_Ok?5|PP6JrN-sOIbuLrYvb+!4E2z zOT2HKofkN6@>6I5^9-+p4~#y&#``_Cxyd2bs4Qjf7LCRO#+4zF4YazE+ZM9Us)uQh&55pdsRID#hj+TRaWQpB!>P@kCa9%`G$1YQbHS5L47I%s=2f4 zb>Q1(^^g`uBEjUV{_i{AxZDyZ1kvffxy=pVM?X5uaznC9pV#S170med=~Bv4NYB<$ zE(rYQfV@6C9<23L)lIn3qX8&fiVAiSLR|M`<-XjS!Oaj!faQ>27B;_c9ohJJ51l~t z9UzG~DPUfF2Guh~0@GxSbRIhS-nva9 zcRVeLaN8O{S|jebR6Lv$-dHEB)PIj|D6d(a%$>Fr{|H!9y*QQV$y8QVdoGj+ak1#~ zjONPP4av}xnpKr@(^gs!)k($qXjbWUs+-luMmhIEh}*c*=JR(6b{Qev!42IZc*}7k zFEmC9vMs+4ZKhS=Nxm5#(wqahrT9vL;{or!yb$!{q10LH4$`{|e&^UTsKwIuW5wt4 zXyKeUo16n%r^%Pq!szEme;?vYWBV#-E8J^yD)u)qUu#Jsez%oqcX-N=!9aDmXho$b4 z+EPSntzyJ?Ky!WlzKgm<;ipsf<>`;%nGGwJ*)J~@iBpWD_p5htR;=K=m#zIphdOjy z6Y|1_vvbp@LM3ofYh=|(GIHBkyFE`L>URZ8_JHC(i?XDa!^qkPs>k(IlC@#!XDoA z(S|tngq%~f`;$B>2gfJE_k`ZV)zr{IN8}=mt`Zf5@;5GR9V+nMH5kImCT{=gV zSJ$J9=jGa2*N;+h;vUZ*2Aw}bR%r#`ucy)h3Bd+Eph?pRUu(e0;L_`6gBEWVYk!_4 zm~v}mvf72{Iv*X!aUMPppE0WVar`zpBW!WHxOS0U%SguWbo7W7gSa`JBd0)ih|I0d;GH{A%FG<6ra%HpT^ow804^q z1{9Ydtg8$0P0)N6J-c6!vF|d-ZxLVKawCt23#--*=8DfB20;cb4I=u;Tr=t`9OSxD zqH}9zVQrPv@VkKHqd(78>5E?$U5ZU0j2dNB;$zX|R|}1d+ACKNCtK0^$8P8NvSGnk zP_||gPz1mIbwHad2)ugIWHdKjT8|&?h~1##IYgs1!s8#bJ}yJdZ7|<)t5tG6ICnG5 zKlCNxNZ7TW`dnafK)3SX_Mr8}A{t+Q+JK1Esqy&U#;lRYcjWua&vDtfC2pvY$O$?7 zXT(XP%80lyK+3GA&7LdQ4Hh?;Pj9dYq)t~7f~hJ=l%kcnipijg5wllH+yFX@`yP=> z)qICPEq=UejZ!_Dba6^e(c&u7e5!gu9O+!it?@(qIZRKq&8p}g{=K7(2joVgC1KSc z$Rez8#R~E2(NNeNIOG@}J*>CgV4497TppDyQHm-(OakLYIomPY-ozH zF*7pP#d~Rzm9`uHT&@0(?Ix-JpHCotc0N9eJveqQAZ#9(O&;Z`8PIbA%%l+4Q~5-0 zJ9~D?SAAP~n zEWp28s$LhUU(<8A@{;H56L*AIscr;QlduoW|3F@rT*2}|`Jb&RAr6BAb zY`_x-!2<_l&L*XviHbRk0NX+BO9D^+-0?ezu-~=w?=mPqZ^TaY&xQ_y$KAl=yZ*gz z1MWNgvmXSOclh`5pr7Tp|9u>W3IZ!Q{HM^*3OoK?;qMy%zCzI7RsQSD&uiHKrP}^iBl7@Ah4Y?Kc0E1`D79&m=_!#iW2=9Tn)Y4}to-j2i+K z9CI!O9D%>va0kC7I0|RMivQ`R`k$?D^lf3vIjef7Je2;otWTwJ+{uO3WE>>`#K%@ra2^iU#lG{+LrI zQewdl{`Xh^_x)G(x^y$t_xd|~crU6Iz;wQ#&fKyXe0cfG!?!9HXS^OXB6L@)n6m9R z_EZ!Xu1F7>So8@xM++eEo|!axaRdDdoM>w4%L<}dBk?tec}aPLu}WbLkmNj2l+?Yg1Q>uf%i zR-$01Q$Ma!B8@Fk|K*+4c4*n(t?0lr4R-np$iE#kNt8}qf*dt0UF#aIs8w~(TzvUW zm?GP=toC8!;5>Zg&K!&K*w^7`3lrlQs4%lpjxZXteELePH&f#K?42OfB0H(-u9trG zwid>XMdy|?tm`*=c1zu+KJ&DHIjz3o1b?scrIk#VE{pXDs?)!Otq-S5OW<3O14Wq? z#g#gE_vGA6?O%R-yLC%)fGE$`_+K{0@~iMIl*M}?=PO20L)txW-3XmAgagrU%ryxa zGVL1#mv09vyJFYq)5?0+cYJ7Mj+WQ2l?M+iM{1Uy(?7H&R(zP^vOk#m#x1sJ7s6Gj zdOB=l4+@lG%ZvQBad~uIss`ufff!#M&sV8il^)#sJvSm;Vpk0WherDF&_9=_Q+wapq zgk1e4hV;F$7cu>)_vy$-^B^o{UwDCJz5b~O*jo>nIF&7N+}8z*$jf>*L#J!r9ruV@)A(q5>QdX6 zkM|}|UR{)$`0st~GrxJg@hZh(=|+P~e;VY6|B{xxv{<8A`QuCoLP-Ups`I`Tzp`)W zyiZ}^d5y*8)^FmH^;f>jD}!f5ufw`Nr*4t;J~?%JR)6pBNArvxu7O|g@8HzxPn+;g1vd8I@xP4lP91z0Bl+eX=FofZ zEM`yR?_|4mhu@Cx{cCE2&Q|TDIM$i(3XMa;RaVhS2iCrbEqr}=UZGa_Y^}uqUAdZj z7JNQW8iV!C&FXhF#rmH`-&VK?i4Uakhf9zPF>lk)FQCpo&uBd!a06PWoA%)9#b~8l zQL#uX#juZyWcO?)uJ_lMl`D-$3%{o}J6}l4vP%-k&#(T>-gD)xZDa(`;1{3o_DkY# z9}23TJ`59mar6Aa2;LadvP)SR2-zAh;`?d$cMgcal8{?*=L`sja~B5eO{W^8x- z58Lz8Nd5n_JwK}-{M%&yx9zc<{A{zsHt=7Vv%bdY^0J|!n)%yzO76zTHhj48=aA08 zkTU$}ze)?%Ed6i&`Dv#AbLoF(tpAvER8Z=%l)vY&zYR75<&RGU&ES75{C^oqcX#jL z;C=XW|F)AbR9IXzXeVv#Y;6%Jub8+Ku_=fhJHXirQ{4U9LGUVPzTd0BS3e)S|Xbl z$>l)N<5hs=>y(tee325;1op4|Gy10jCqGpEHNJP(Z+T}rVgn1_tb4yj22xi3+<;fD z#}1CF`y30>D#^d{7pv<%e!vs)37EB;+w_yCb$8y2tzJ#fqqbT!RkeZp;J@}8zx8v0 zKw1X_497Po$t3}t3*B7VII->&x3^SL+#bpp=g|Pg6V!^wY0U?f<2)&`gLw@JvW84c zfv0f1;vKL+BDS({Qrt(TnAt87rdP0@_qFNfl9h9Fy`xw}wJ8*(7mkCXyruLyf$|KZ zR|{D19f=&lBJL&ktcqm$)(|RswIs@tMXe>@hb~&5^V@d(o|PgoMY4>Fk!-tAw{ziM z)Zu$ikekpm?IEi@Nl0aua&p${wT%@4B&mw{2?~>;0k(a56H@&omj!&z4-iodYQTPn zeB*3PrVCURB!wEVRHe5GHHCP39=2=!%fei@D>LeY$xq)zW3>0(Uzt4`41jS5Kw39_ z4;b-Nu(_-r&3AImYp>U(@9FhB+pGkb9f3P4ZER(JG4!MRjIRL>^*G6$BZ~o`k)IzG z%@sGT9KC*Zzk0Q5>^03d%#nx3Y|p=-12ou9h#i>Q>FT|5C2KWgH{9k$BT?~@?T&d) zac%$PZ-q#ZFI_EI1A+(W3hQMY=lptzZ*o=}WGAxEqj?|@ID?q;ys7~#l!S)`KpY`< z8cQVg%cUA>fOxjGyoH{&M5l7qvMT{@m!!FmD_R`d61eO1xq6U=3}gLBA(6JI zt|h~tML0I0co7d z9=t|2S|bKAjw}%-XaRqL>1WHH8@L`vCzR^g4IvI4!Ib*^N``>HWjL$<8WL%GvjioP zuArV~K6$96^z?kR?$$1>Q?+|^H^fc^GQkfI<}>RrY$E0|L2Rib6@ z7Rg`uJx8f)?3C@4&27lYtUoY*7}buzy*H~hL7HMZt@hsj26bSeeBwrWyO)tPfm3_8 zp_V)XJ$K#du!(Q|J==hL2eBSMsxFGNh&_&s01A!6?Jf>-oaIg1ks%XkrC(c6-Ey{Xsf{ ztwnAR`Ef0ar3o<58D|*_GF-EM68Y%tinb-GDv;`+I>3>VJ}3pL9scyALvE#7YX+qY zKTZ13H)YzlruxZ-H3g?`2wpwAk~hXxNAG#Mn%hyiS^;;8lvV|9y6M~t$;l?I%}-iJ zVA@Y<_au`}m8Z_Z10v>bxv9;+F&#Gd0k)wBmCvCrh)0?;`=Du>+ZDQB593}^pTW0S zX=Ci3rC)G5h}`vo+*%d}#78+B37IrIERkHUD>m(6ge0+_;Ei1n<6KEeg2#~@C5)&H1&?(m#|c);5*}z zmiPQ&%hK4PJwh8*^j6xkV4&U#rB_a*ou&~i)v6b36WiyiW#F@Xx_BHJs)?GdAwB~^ z)3FGVzyyv-A4@oi_7x;EE)v2fo}Uc64hSq_ZhpcL@FD4=#ZzXd$Na39Ghk;z^?|2C z$ZogA{G${-Yxu5VGx5x35{#Rjf4xIZ(Z^vd9DlaR5?#npqn;Ts(T|+E1{~U1LkN;9 z%Rfx?5J9%loop^$w8XD2{UoAKBw>AS06g4$-QnSHniWDKNH?^&-tc|)`PrbA)3Qxr z^o zhv{>8Uo1+lr02V0;bmKb>&IyHLkS0EI?K4mK3M49I0%%m{=>5(OzWHS>L#<^b)Bnv z!-Msqiqa$Kb|28}UmAkAEs!N6_=R36_M$0qnpr_#_F+<5L=}w*Tzri}eXPt__ZS0W zNZ_^}xu|D7=g6f~rSBgqLr#iSy9L^YqvCa2sXbd%$3xOtstnVO9D2l*xiE=RvUUD* zsd6>Q4Wy1>N)rIiDkeQ4j9aan)WV9~TvU(J9B3Nfn^str7}z@N)~M`c=bEjiq-h`4 z-w4*XdU%cTIsXC0P>l{Ou)2FWM60)dV8bAr97R*Eq$&5$`A2q~SIQX?pjvtdEN)ak z@(a~1a(nbt(-X6G#m$Fa(I`iBHFK7EbN6W9l-BB6{rc;Dk2z;7YP3+?n#KBda7P7i z%F1k~*jqBbiYdrkK}~DL%W6Ur1O3jOI{fQ#EkhMD#8%gejISSP`olN(V3G&Z9b*&; zRSgIXBnJ+}QeW@f@GOI=Mo%wTqa2d=IloDNb5HYybJ)cvc5{P)#c7(4nh>*H-fKn@ z#aeQZ>@2A$rVR}7sX(lma-za$ldF`5QSr1EJ+ZoI7a|+;-bUr*MRs$N-q`Is(xx_J z=@h!|s?w0-vnFeGqu_;7$T{9AGBmjqd2N}@F#ThdM%7veNA_?g(?5Tq@N@pjtJw!T zBd`;V*p|j6$#^YOIL(UA+4d(iF`3kYL^_QY0)JdRc$6LqvEN{5Jei`U&)?+Xj@dZK z=)um>Q6AD&BOLIdxZFsy{+}tzdoEpYy_t!ss;x+|FogZu2>h23-AB!>R!rD@{Z{HiV zo8FO-cY*oWRUhbZ`1h|>QXe{CTt*iv7mhxlU%Mf-lz*PU*eo|HtSwf?c(lH z^tm#2cwhezqV)tDin5~a*;nd2gg~4S>kc9FPt2f(j1Vpq6nXX{O6@}t8#F0OiFQLq zM^6Z;AQ)A1_}hTl2C=Tkc4IH!r(RcAQHL#SD0*HGH>~{@MXl~~a4X$so{c$g`jMpm z&~zbM@5U>wix1bYl3#qNylQ1@myNnt2Y1NG!i?1-C!{76?L|jzgRV3GoDa7L5p)>R z=lpv6bjbPW^{`UB^z{Pdw-k9U_alEhRkC87Cmpg<(UUr2*pMz}^xs zJGqe*k17hOeBfC;3P+@}tLJB|nPEiywzLMiFul*qtT8vdmtY!0Ohd)Zg*kXVN|BA^z9BwA*#Cqu0D!mH1IqCpVE*2ZPZlZUHX=#&kZh2G90 zEUekt<&J7;O$Mxv!5qeiGBFx;AA95(i#>HLW<;c-n+y5gggyeYsvqm};Vj%5r?RH? zSs_nJL&$-VWi*ze`6$!XyG^zqQQ7ubGe5ZO_bLX4HMD2=;Q$2oCEAk9^=pQBU@D5g`YvNKM`uUWdbOHA=X=F%G{i5GdUH*REQ?>S*4j3P zF(3KJe2;36_&R0@;9`kt!ZQOWz_C}u>?`)gT%3vBqT5>R!yZDMz-p1wRm*GPo+xPF zK!0jzJ_c0cJZW93DtBfjeJmaqIxf&hc?@7)eh$|ea%z7jJ5nI2=+#MQNES<%4C6A~ z-`fQjS9BA2Sn4dgF%t8~2Pykd{m54l@KZHw7Nh~pSd20-Z2=3v!Z%Zv?JTdYEpMT^z<;!Y>^b{H8!BXZ;gNk4Lz*# za!ha5>d`ul?;AG^d()@4O0Y2{QQ6?*<4NK2UxE_rl$@>Z=%r4cv8Cv%aj6oX z+9;JsmDA7LYjTs6Hd(LOIP_`=QZR^m+pO3yHxzg(?8xp-)@UA@8%R=rR4`vokb zQ(*NdN!hIXJVqsMDg}(h1!6B*dLNUNm=0|*F$RvtJsw{Yk zE@7!#kNNTp^=H#a;c86kjHMv?sT=Evr_ZtvW1rzLI9xa0KU`1F)Wtz@SX50#W0lnv zf%!t4wv^S{lbo~cD~((r^@zfTu?xjHvDUd3`CB%gfgTg`;!xE_>u+SGIuU~U7Vf%) zyWyx(nL^hp`!4wWw`~+y7xkQ19a+zX{%}IA@9kK)2m-GRZzb`tvaUFb=3& zTw)Q^BQT`dzR2t)Lo83!z0kei%JhH=WC#;tZGP;jn+C*y?Kgb!p^knXMUD)7y*0y} z$WocwT!|YIv6>SjbceCPjEN-CTxdBjswiEM9WilnJBf9UOU~8f^%fPcn8ro+oJ7zR zr2M@sYnP%hcj)@kUtHip)r$0T=$`=$auS*XrYlA?zyYp8jH z8dr|&?Sr1#@CJV&Z%#H#aQ_Couo21=a8)4t=07$PJ^F#Ir6um)t@B_BQ@(}@9o)1| zI#m_??TN&|ISiHHc3q+%f2zZ38!nK*rC;$yQ@IkC)!JB*BS3N9BN~nKX^YWKBVu^f z8;8e}O1i=oHCax3kGh3Gf zF1O^)xT;%g;isLIHUa?(IHABZ@?M{m5dP7{RZXm5stp+h>b_26QUMl>2-UF4I^W7T zvVRC-JyEPtPQ8H}Zjs`~BE?L3l6YV-w97ipLho?2MxnX%str+hVt{#t6|P`k-}|l_q6lvl(1{MBJmLvrBv!Zgm^6^I=L(LXl;Ywq_a|- z1gH^l`HCJQfQtmgE4Ni%@iNq&WuISl5Wu}w6%hL$t|K;i)(OJm()O+Q*Yz`sKqL0j zj+-KwUhNMhAh(X_n}req1r+FWh!S9dsnFccl49r-_)0;I_z#NI`)BMLN0&r~tFQ_x zr@{iW08C5nY3_|YUXNDeHROWk-{ak?%K*1e|S$oR0{KclZAd>Qq z4LyEezPWg+CRyhSyndt{+cWUP(E4%(+5Y;zm)DCoJa98Q@?_hKO`ponKK2jEAKvBU zbaPj~^-Gf4kAA1ygQH>a{<1UgKb38?&i#6YVLW;9`tAD=Z3~Z!*VcVx|qG`(`DoA%H%y@GSC0j<|;$l+`e}( z$5Hi6S;H;mU1f?`OX{w!M$2qg*FxZ5AH6I!R7g42gNOT(kM#gK!1pJFmMZc(_paMfen@g z>(&h(N4Avs&zOPae3;u?C`#(!fn#jHz|4-)qa~Qh%E7(6^u+q!wAv>KaiM+EUaHajFvg`;H1>v8Bw2y+j3QX)N7 z9NxJUFEkNG0boi=$|0$oIg-g=>;=`Hh+#Np$Ou=?mC5LAE`Op}qG;2l^o%%%_F*IB znOc&Bg+1J3Oh76}J(m+fAC#EM1lbiMZ>?NP8YTiOh@P;iom2M!MQ`ylL$*q^He$ZRExZtoRql# z)%*@ZLpgyvABJsfKEKK&!rO7A)BDZK`ByEY&rct~g3d2kP#?qS z{I+bZ+4gn}DWP_~pboZOEvh*$8xoF(2DC>64-;BSbID2|P(K@jp*)4)*Q8Y;&3wJ| zjNnf_JpXng{y5%r=8skCf*nltN2t8dr?q!HP_N(dknH&UHSe7y?l$yF#h`LaU6SSm ztCa#xWs0Eor1NbI3;5E;>JC+0a zR4^d#;=8$!H%0u)8!xl)x9N7mymy43ykp&)SXLja~-5qU`x|H%t8ra{G_p8T5`yb7}Wz zNg$bnwUrI;HoG^pxq@s#Qh!cTN9yf4nzf8LeiCGh#4U-4R~_0f`-Pw%z=F7JmTpVw z#=3+SCfJEKx<`83r}0L1fZXm-P6bCT2~6D4<`br?y(!Rtq-QY8N=lb)RG2_Scco*rckU|91CU0DksDg~KVcof}w`yOcp zZo$o%{p~2QayuQEPxwg?BNSZ7$?OpjpMWefKu7Tca}HG5k`Y0jtRDz=V?HSLs-GHbqHW4;5%!3@gT_7Ol7CXzO$^8mSA^uy_4`eJM(v%_D~ z-kj*Y>r@BOr&^fG1KDqS!H$ROw+BQJ7n_#?;xgi=n_Op7iH6U?RE3J@40Y6lJ{(!? z!HNTjg3i`ic(UWgA~#i0D3ke4yxVBVHr($9M5FSeu2r>|1m#5^;HDDt3;1#Q1$8i| zwz(N9v2Aod+s*a83oA`~*24-tx^1-^QXd5J`JwM>NBFbiTZcgr?Q$x+8)Boit}7&9 zI6d48vohUeQ&w;DYl->Vn;t)jrw*R<02P+u*JYXw zCkx{{ZrN3cE^duG`qUVaW!>cF-A2dIvey}HIC<&8KiTqsKeqq*vvOy(`u&`XGXrN% z=3jaTB9U8jx1}xASm?Iaoi#?bQqO)aaB|XVV;@WtFq>Q#EzHJ}7`0(WH=?#gnW?11 zk~%v!pib@i>r8Ngxqz5|^uXb_M{7eopyk&!?SMFDx*GJ=!1*di$F&B-aRwjGKHXTK z3?>RI(}uqG&y!lQk=FywyG-IZ$VJE=!JJXT9NG^a+^=DtCKb>=pa@^;3_G&mBYh? z1cO?FH35=E22OD=@I5DDgvnc4d~&DYIv;agXs|ifYsX#+8*Hhcb1@A~FYhp9NBjNYMi&K(0I|DyhN^YQ3pb}$I`5C!Yf0AL9p z=j?K0sSESWAzQmAB!uf17)xbAqpb!|ZraedR>qaCDsY?AH+Lx4DS8`|{F%+?cZ(FZ zLUdJu#liWhR%+f5ZO z)UzGM9n3eVOhCv4utv0=TDj6YsKEYGAASwZqrA%h?Iv`z!e9b=!{yzfp4#T@hNjD# zXW(7gl`8PZYd-Ea)~dNqtf_*No@I3$`D4FGnilVIP7cazVKaLsaF->wJYZY1?}ciwIkFVz;Vz150QSuYv!sWx@#07(pnvmqN6+@C^!r6eQ9 z+{xzau6>(?+iY}1PFHJF&{+WRso~y3ket%f>q|^+1Rfc3~^HOCj zQK3hx)UBH+&1kY?SL@d<5q+g~vPd$XCXMM^L`4t#j~y-8*yhhOhu`6BrFKG_a}wU$ z;R-+ajvxJr`Kbey!~_=@iuuj=Hb(Hh2^m0L%a5(+g70yw$%HkSokz+$HzTLjrp5&wF$?x&UnX+#IeAv z>Cz;iQN$-oE9OI>0`G~edc-@w%wq8s?n)7kFKHGXGTM;JAvi7IK<+HSkPh#WWLMNXN(B~sv0nYA^laB<<71k>gPvR8lYE5PVZp?8a zuKj|XaFX&&3M?grO)!t3)c;hw&3t6{!;nY>DG2X?JVhfbnnyreuMOPzYaQ@^$b0jk zrqb@;w_6dy90p|&At0kDlT3<$0UVeD3IPNmMzJL_YBMMp(m)6}qo^P=G?PFG+Drx^ zO(F{Igv1aGLPWF$LI9NzOi1>5?DxFqzW3HSr+%ky)&1vgtC9k>0ZK%N78tY>E}7PdqRsr?OHa+9ibXNcsjYIZl1RPym5uU4pYom6i@rfA_#iI7Z#R!#s*?)pJ) z8%^21ln&4jRb!krTR*H#u^-|Cz5hvhE?R&-YNFbfcbe1L+3QFn^BeHY;5*b-ijc#F z>JsB!zItYhB=~Da7Z2s<+vN^*BZ<#H#lV5X{LSCM_?6akXRrp@Gm*_b6KTjN|FA6M zg5wUyI9iZyH_tnCBF&j8BrxC-=``*BMr# zR80qLd0bhBiB{?+9lZ?`;0ylldgexhfptlA+<>g1?HOQFlGGzW{D$92&-hxk!cJ)|%p~GS{(2rvIf& z$NO{}5Vsm)m9a!V;ooP2`&));I_~)wRb&%jc2!!67_7q_6V=3$tthUYsxONRQg-G{ zS^!7kY45Q7W5k(Ga1q~QC{!k~>q~pIqUiiDD5IJm5pFviC(8sB<>+eERO-l^c_yzK zjGn2fsp$_S=lEzyJITk3e1F|~s)Gd9^c@8zTpu!|2*iAEAxh1 zu4+0~0iIWi)%dy7ht$5^+j7uQ_L!B=-b+km`JL|Q`r*J~97#idqM%^LFfBg5enE7S z+8>_2Z$KmU;x%n7(kTbF#aI_SL}sduZ{IsA=|*Ma6DMyt)tqSeOVti6RVtedc)Ko| zG*c|1%*}E9m-@=LDOcrG<=`Fp;zi~ZuXUDCD-w0yX7QQ{9n`jpm$RGZd|CE=U3GYC zDW$4Qus9RGL`CZ^RQgIX#wC`R<@PUx*~1h`W)GE{9w8F>6Zj^W2>M%D!)mq1#_P6W zM4}Md=@J}wwM88oN!ANPdmCZ^W=J;1km0tJRifafbLOGSC~X!^7+BdH)=Cp(!u?$W z+R8k^C}{2nbz)4xagDs4+K8dS=X!4}vXo#kuw&6540P^SsGQ#LN>)W?kKPjLN!)cg zd!sWx56siQYePcvr%yMjCS1y@&_}mtUVXxH#v!L&UqeWnYmQ|u0K#@o!IPVat5^E< z^H(m~^#H2@+TSfRW43jR#h!+-ewqD9AQN$=i zhn*AJmzTNHuYt?^7b6JJ_(*DbWK;!8(`-sE`l){ql1m)#-J|i~#B1}U3KU;X?xum2 zW|__4v>DLaqRo^GJ(cC|X)lI$w~LN1Rc1oeM?^)@VikqmOWdNumHrrLZAsT$Y^Y+U zJn9Yzkn-oZU2u*6dSckWIo_qS8d&$fHt#`iI5rgFwPf=(QR&i0<3r8~TR7p6Bxs7j z21Fqi<^)ub<<=?K;{KF8-Pr25v4=0s3*hsrM#T|K7T!TH)H^!~Pbe)+fjPl!$`Smy z+hfK)yT8>yvmIWCM3Q9M^5mk-0j@+WA^i0l=(TlVj)sWzoI|-Dc^^7zMbop(R&T7@ zEAn^=8VSqe>^I-s+Hxe4-gT;AI}c5EnbZ;TptT!%*5Q-ii!-I-#pz3w4;Qmy$&z#8 zLs9Ifya<0n7cX})y<-uA+~1fr2=PtIP${yHwi=bseYT!9YmJEz97c{y%NkXov=TYd zOqD4FAWmq$YiI{gTA42WLy_#OEUY{qh0q}W2qv7kYk6G|vz@kS$iralux;_B|V>7qn4xpq>eDF^RL+(2KJnH^ipiW<<3Z z&T)7t_;Bh(=36O`Jubo%-1+CCN-+<1i_%Xw+u3+xTi{T>-aXbIvkna zyH94UzSH9Jae#pW1KIFI?Y#@yCh!lxgCW5xIwL~^DuR_G$ZKGMBfQ4L3agCn%l)Kzq>C(($bHn3BZ; ze-DkR8wWV;gTMc+w=JC9K3O8qNa&ukkb9~Zh&WTll)ryS*?yWT$ff-2bT2PmC32C~ zgFM%hDrzHUyEdU2b z-@vS5W80eB{FllBUQnl~3VHiyo8MKcsz+Ayua0O1>k30g09UH5P@WMyp^|gi-zG2r z@`fD`9^3vq|N6h(e|#J7-DdNbvqiMLy6{=rHIZFEa%Zp6t(T+E=Z#EfpYvspiF5s% z{4_SWXz#qg)y|&x?YuiylChk9(#q(}nC;<)t*0j5wR-&ZSKAb{tgGtMyux$|*74QM zx|AB8+{GWw=~GczjLJbX*A|ijpae2ry{~MSX->iAD*T2{>Z|~B=xN)?}uxqLDfo)ynYIrC9wI&U3e2Jzh{0lfc)`^DYW{Vl%|Lb)JWd5 z2X@;YdTR_A(S=ZJ7n(-6dgcjY=x3j#mujke`{6!t!$A*Nq2WPeWLaeiQ9arNmT7!e zov3BCPw%RXtAbvwD1epH)Zq<8UK2bK2P=EdW}`hTDA+KYXdDgqvdaRTgQVJrh53Lw zuX1+nkAmEjmb`}4a{MGMYX36IPW>zDyYpGiGuzMk*%Xde)41<;E3Wh@DAYM8?HxRp z_ayG*&wg}uxvIe#QvR29X0}F}A2T*>KP45dw6B@T%l3~~joEq5IAeh~o6oq+#qr6= zPw#YYz$)bo4?HkV_E~@9!0h0mC)F8irf>&#yZv@UKy1DthUx6mlT~_>q;0%z3jB_H z2df6v-p%cQo~6ThHwrI!5i{xidn+~^YyWaUOT@#*pG)g3r>1$gMOSRuHqHnJu!Zg< zzzobuH!A?-9&0mrG-E5F##7)`Ni}ux4+o{q&Xpn_=bYVgQ;bbXBvEPDCRPQ8EcZBQ zjSvc3Ac1gV3tP4szWN1Io`gE40H8dq9okJ-V zEC-k)-VZ0|90X1VB)@FD*Y}|a*<(YDR1cR_FVaPooUJMsudzn0c2HpM?R=NcVeo#$ z9Nkw%ND)J=6pX>a%vot^%;7o7T-U^`u>Rgid`9|6yjgm@Wy9<{oARnOq^$hCJ++&? z^pZ#O&&A}Cc3Hi4OE+FX>5h3lb)F*0*V1u~VT4u5>854@rU`%>L&T%dd?>;H%R)sv zseDBek-XTof9qaZ-O zy=@72lJO)7TJkCW?qRtb7NJC7e_oK~K5u|0G}JB^O5DW)XpSZju!6d4KP=mHqzk=) zVILLxdIGObGg0NM^@m3%om1rTz@V;_#!!_UTZL930qw6d1{hxY+F`~j)GQ)UyYQem z31NbJt^451Tk(1auenONX@qw-0d=8^4b7DhxY_lcwDh%12MMSCehG|9ky0VH1j?N; zr8WSPz2)9M8igXFeAR)voerlEK33Ic(kLM%4bn=HLwXZAs3&++7lku@9T>i`iv#{< zLxf!Pi6X|>CHS&j!*1v;bzt}HHT()BXN_xkZHlqj93U1rcD0ChxKW^>aBK{UR`k#dkcEnuA)L5=y&PPDw0JiFaZ|7&d77Z1)wjS#^t&U!0&;sIT{h0AzMe zF$h4Z0J<;j55-l;Y-Ppc&U9c8(9p_=+|f?yXs3>{BjO_>A_7p%-Z?fP6HDSl{|FH5 z?0|qh+^9gZ8by0&Q?F;bFX`Tm0~?y!N={4a3zcQ22G+?wHm}U%0_%@w)LNiG>QO)F* zBW3kTZS*5s!jt96E&HxnG5MB0N}I-mS+d$b{Ru`Ewugw~4VhWxg)&}*k7LIg(p801 zlT)DZ06`C&ht_RTx@Iv9uk!OmX6q8an)B7Sa8{8sjyjvZe!bjRnl!%yv5I$I;DAcf zY9!REEw)#b4hCxM5J1xWrw~aBM?jwsLr{s?Y{&^QQx)(wrJY@(NnC_4dWAmMt{Vb7 zT+isnh5%oL^?C3QmD@CoRPMZmxwIN7HNZSc@RJ|R;>^LDb^XWd`Eh)AdUNXSl*-bj zxdeZrtYWsck3#CLD><5D^~jy=mJt|0l{~WU+M6fvQ%TX9AKxC)D8Aq#n#fhqv`n^a)+q3kGAZxRxtSC?>ljx zfOqnBx|2`p5N4Bq;cfTtqo?d7?pUnx7o0~>Kvot z?2m&)^_H@M$`^5_8@WuuEP;E$!f@WwKPZ@<+31|tR1Kfk)CdG7O?qK_U)k*)dVb9w zDLa^M=L~v3q}uG=`|l3#f|(w>*sm;Oue5n^#sNRcG3@i(P!dT7_%G;vGuJFL^Oe-EjNTEYbR(Z8Xw)u`#qBYhtU#H=9p^8m z`Yi{P8tv1dn!V5)(r%nFt~0t(4FQ(r!ORVvv(N%Fm5gU?@R*E3GaOi~a`0Y_H zS#%Xgn8qb82299y2Xy4&W`zwn&V}9G*rbjmvh>cD2;~fxquw3_$4uvsnhX88^0|32 zHuqZW!qu*cglmMSA8iWGNS0!k#Lyg%1ub^~48lP)rsHYzgjsb1S!Q`|Bp`r>B*)iF zno?1l3X|tV{>)L9L+~OJl6FYWg&07xXyS?o0fO4whiMRIvO~ByBAL2QNE0sGa|yN9 zk#4h!(-hiL1zXft4mtp5Jqb4uW_8MJF&0k)T*p+}oI7-#2U)uiB~XGP=koOtV6-_kB(3 zs!>}?5_B$75+oET(m7E$4cq==J>h%faPW5oO(^2w@9Y#DKA{CHe;{TGN)Q9Ta*z#_4q-S#PUzp(Q+S#bM-Bb#1ij%xTnZqMeBEyi&D>sdmq4++*d|J($QM#w znHyPd#ZIINDL|1;ZRyQO=x82|5@gb(Qi&NPn&Fm8$mtNw`T;Vvmmpn!rjwQ#b~V1y zD|D^k$z~{29O})ET_}Pc)WRv*tyJk|=;EX^UWO6{mqt&My09s4S8VUOBk) zQ2h?ucO-K*9K*vA#?r}BMgYrEccl{FpqxY_#HzOUP{vzJcZQHltS3wR#27vxiVcX< zC_M3^R4klqNv4%_zQ}+!Z{hd_L1G2CJz(T&kj6qB#uX8HSd|fM9WFe+nJD&Qu}Ouo z0MVR!J6HN@<*j(_IfoGUGJf2f#g=4_uoA@H8FLVg2YfQP8LG4BxRi~5FW&cNc%nXR zlu=%PDd)u1E4F@~p80(9dR?UJ@!O=0sdRs4x)>WG=uH@1#h1mN?(3|?h5JkD#L~CY z(dQC$-wUldh|s|80vI}m!b1i3{`yBYxqV3u$-}V?fmpLVCDS{@@uqYcUF9|S4=bmv^~Y*NJ9 zBY>B&nwlPHmU4V(SYiPVe@TYrYtHncr|+HLuHzVFfB%ry=^bH*pl9aC?*cKT&fB*W z6&)^9KcnXIjqJitHVj_0Uaq#uD%iQfPFZce3*uxS2rCA7j(8Ynaa4WVz*e2Htn#^x zenw87s+5*l?Hy+LC$Xen8l14WisvRv!AJ78R65!C`vsQOpR7^{CS2Sn=2XDDdQrVId(^7hPrawuR?(F&V zt6UqyFaGOgiAf-?8U6uw<%Bh~St4uI&m0Yl*(Eo8=`76NbGQK^Lc)CxPCGoXKhLya z5!n)gsD5&=t%TvfW8|?5GWP>JAH13RYMS#?>OU*AV1U6AvCV^1KmQlknXsJ)piD+0=Aqxd)f6+WYI? z7NV_{-QK*g?w7TF$p?OEh!msBSA8a2di>pM$4z+?BWXnaQluPE zwCZh<*#bOV>B^6KhMvk6huIC^Q%^Jf4*RbC-H=lgIC(FKg|=rSvw1uM!38656N8llNN7 zoYNYJt4X7UYh{r)wwlP40~qg)H$ati-cnH#+C~RndFd?oBrq@KOX=Vx&f|qK=#gYn zMdgL4zQw*iFhitdh8rPxGe|kiYtTqXXgI{pEXRmf1&dPm73G{vnt&@{w+dL9ygAW* ziExg_Gl)y2NrXJXLTlqS$6Gfu`>0>Nr_>HmATh+7>rp0k(o$~xOqgz>6|}EiNaG2O z)PU<31ZLMH*D-v`rP+1TUP!7X57FBFRQhN`S9%u2P+czQrh;uFU~-mZOJ`m}!mr1y zZ^?)xd0;1b^;g_=0VE#A2n37JGWGpfA{2k#d||CX9c25tkT@MAx>9u@jvWjqtU@9d zh*G0i!fP5=M8FGQy?^`s+k~}b1H_gpL#DRgENDrz)d1+Xpavc^1%xG`%`~Z`nZWHV z=Z?oxc$rk*h0MegBLYm~8VJ%5wCY5JqdiYyLsccS>pCC?e&vo*3+A1*pMw|^Rh|MY z2`F)|;vn7%xx_4Ov5O~6l!!9YCBlhjVLA`g(PO(#f7606%g}cZIo_qG(#IK^@EB*( z#vqdVF;-v_eMr*v5%UuyZWT1aD4>_Q z3(V6(q3x(rTa4WoS1eIG>{#bMeY(VHQNF{^BgRY) zUQE=kH(aOkAqzmZK}j31*iFs1ojJsS9e$V0)1*oybvP-fIR%#{?f4PEw0;CIfV9^} z)@vXO+jW9qK*dAHY98>cFK;;QrDt8v4AyPmV!Bz`lm%RUvKUK%jmcT^2RaF?EX-ax zzp;L+zaxmF+g%+V%9v4C{}o?<+%^IS-)#6Z{eI9egXt=5jH_lo2rLf6%I;su%56c= zaX}M{z?gNJ4s&)U@rgBXKg4iSraI5#-_g#<=og~@!D^U&uxSJlIFE-b?=jUxOo2*v zqu(VSW9zl2_2rDQ);s^#of*c^MV_uOzPmtLgv=gR{y6k_jC{^&I$ck!%<%#DaLtfJ$|e00+AsWAi=MqPe& zu|}WhR-3I}lhFaiS%w_nzA&N1;ZNdN*x`6&;nhX1*?V(Sr`Ez)5gw zaPlGuMr!7Rp@#bTPYJDk9iq8e)3Me^QSH>UhH3znUz(a_n9h~i>*wV7nKHnV5!-NZ z58@s8x0KZe>S*yY9ILN!H#R^LbgFoiBZ9^Sz3#LK@l;(msZv@3L^eKsZJk=a(#ms& zBIpS^R|2sGy@^s?3LA>pI4muORwa$KoZe)Ylt`yXCK0pJ03x;$?G%`F=s3PhJc3q9zLQQDWbBpA!v#^5BE{bc5D!xt$`)l_Jk<|@#rwOhyIBbIv9Rx+m;kNZ!*|}?!G($z zguubvrWXwA`T0ujPC@feW2`~?BZWHwPk?cID3h0tbOJtSDG?u?*n~8$$kYWt^^2B| zft2dRrgg3Gq_K=~k3P19L~i0RFl2~N;6fviy@>omiziQ$xGh4^(Wi^)7`CwYiUzV1 zeugs^;n}`PJw!V&EVT)oG>*f}-EItrxh7((q^!grD{KlrbKD-2$`hxpg8E^T$gb*ULlgy)EpO#COV9Jx0iZ% z#9PtmYhGTSGAtK)FgI43Yae4%;h`$I@n-;OQ|EpEcvdsgUPU`tC0kD0%l!Q?SRP}v z5t1v280WDM#r4`@*aUt~7}gvti|s%}^3QR($M1G7N_UA(+GoHFiw;#N&z)=K?;w@< z{I28yLIqv<(j^JdnxugxTFIgwzLSdUza8esxECr+)sP228CX#K1s3jXjojqcQoQxAZUX-0%x29prDHkmT}=-*#F7d^`W4Y5 zM>U#Bp4Z7A!@PqsH~Z#C_uaaE<5Sz-iXQpY$r9DTl1%vNdsJ_bf-QH&??`Kf!ddC^ zt>tM@Z8HEIE>EQRQqp5D-d-R6U64>ss(1ww|jX?pkQMY&3!Rv~{Q{Eb{gUWwS zredo)KC}XVL|yLzOJx;W=mw-E4_H{RBXPK+L2O;cxwq9ik5!y*e8NcbeblFRE0m0Y zk^Zg3eqVRH^3S)8r3q^K8dt&O-@8A*9zQd3{@B-nxN17qrmu}X;X)5RUDIgF8bSNa zvVi|n$K5SBN5P@4kpaS}I(yYf&tVJ+HPYuzB2H5WoX9&4kMsJf$}jmSjx2Y0pBDJf z6`sCjdAh3n^v&$d_Vy-G?P^f*m|dPcHvAl_itG?DiypuOmxaf{@ecl;3c4!Uxb&5q z!%fMhxZGMpDEu_JLwR=yPi^DdeRa;pz2}}PrmOnrU-fk}@NbX@7Tn=If&Q@kd_k<; zwgI^v8;*G%8NPaB-KncB2{kvtm2g6^;CwQ`=5qe8O~$)y?eow5sVb{fkCzU1I1(Y2b5)vys!rQ^RMiK6`^;t1)Lw(jJnRx zoh;;>h|SYQg9*!+i}qey^OOX@#B0oH32)=gW(if*GhXcGBSqVjjz@4-+m6+2M@pC|T ze<~X4HVIjr8qq7YkiBHKUNr;boriQ>91$DJ;X=JTd~PbKRd2te&cpXnMaYmzUeZLO1XBiMDJC0K{WG)S z6B$B-aEV(vZ|)wHE@~3J>H_pj?^caS9mlYwg_#Z~}(T#cN2 zgd1pTl53!J`SewXc0RUN;P~h!^_y&Z(%CsGNCmSjYaJfBc6xs`o8I8S804@hA?>4T z&17nlq5t}Ayf}oQYQ(?2OL1i?F?f75$83M&wV|`|8L^&gW|{YRqQI{B!->2m3XZ^Q zA`1wT^Z*PRl7z6O%~7#`H3W#{Efp%wH!R)Fx|Jhia4MwsyJ6-g=c!=R`zgeo447MS zctrSRVbr6;%+~y^?MS%}tojx_p&j*X{R_oA&dB?-3<{_rLk#|*5pti2B5SSIrvZ^v`7%?B!Wb|z&q4ecFD`W<%c}Y1WlOP z%=TjcBos@wvX*x5dT#J6AsCYQZ|Z9%QX9P?*wu-IzMCpjK_i^yQEL3LQlE;7+2kHn z&8GT%!|;bnwgFHKy1Hfmt&T`Z)xBf`@P|_<$rhnd`%5>}k#462KGMKhnxw*7Wu7;= zj`+`(K1H4wb&&s*bNKifCAeUR!_J^IQA2KT2tAzZ@u;1#Rm7Tgl;%2(JWUz7YoUME zQntYy5gRF;RoX#EE3mdb&qq(3KN>h>=&>cJq>>w0devBib^7Ggb8kGF zAucs(q*mJ(q}OuD%}H7IH);H)wieJ-I#!WWm4D5?Cz5&r!JAa~9dSHyyk=sg7LE{f z-lX2z;LtgXMi1<0^cnZ=%w?@pM!N>l(NoqF&0)0_E&K3?)A>Og5+j2WwG`9OAvaKB zQ8&%9auYG#OF7~ZbW|_d{h33c;fSJ7QGa0m^;(Lzlh4PU>FJSf-Zu1hT8F47gBxCc z9`ZsD%!}avu?5e$$qa(Vj-$o7R84oaf9z%Zy|f^M9I%OZ?62v zv$kN?5DecVc}9$ag~da|-4o~9tvSM}Yx!J3%zb9FjQ<^mQ!tYrj^kXKUAdiH92qhl z>G$yudkvbEd}Gbit&d*%jI$E^DT2|y2M)2VU3CSYc)pTM!(7h}erU%oivqHO znk2Renx#-Em^36F!3YgHu-pvQf^BYd-Kw8<#6dIO=n-=r^53^9lmaN6;=5|A=(~K? zjmp~H)U>SM!3O5cKC{EfDdVOQ6fiBRs&0r$F=Up)Pah|{;TbO?3^ON z>DcVZ>My~erYHSMdM;V}aDzG72h+sJCGVe%UK@wRa zaD56>NDgy1B^|+qi{v_GG-2g~QKykT=Slnh>dA`AYjE#`Emf>N+w{BhuZJ5_9^=^` z|7J(s5lWs?dPC7rBp715JLyYn31 zHCYmx25N!Z*ar1uzOgv-PKyX%{7BCs1L()`40*8OWE|f(tv2;m?btD=ZMA8yWd0hC zkqjvQ3(;tqod_y6rr%2i|>C zpQKk*kca3WJc@Xtj+pfPBJ)+BsI5dq8a}Xny$1(>Asd@tb!;i`kb-Qoj>^u9>k8M! zE|;oo&h*hfmV=d1CVAzV!7rYWg_%b$Z`Hr3!p~@DH`KBcVK#jo?{gbg%YenM~ecryNtHdCVVnAsrt~hEiIm7 zepm8hGn;?t36YSBVbd|<&YwJlQg`pJOb~bR?$6$U3LC|y5mfJ)T-;~p8&6AI9#%J)F zp*CLi7O1`w@Rq7ZLJAlCmnSmV0rFk3X{z$nbQPu2s?>=_6u1K44?d+Qevy2f!pEP7 z6@K`Axt-3=bmD>QfOle6`lOj_Fk;Xk$gF(YCWy^!bwah?9%lE-@^EAR#?q!mx=_l1 z#Fqn%H?T5C-GGv*?~!#sR9^xbtW@68KuYG+^@&T|P>yu>CFsu9&YOU-zXXzUUeBj> zF|R=d8Uu3b$oCK@=8e`WG%TU*mX|YNIrcFc$Rd#t!pvpKK}%fT+Kv5mqw9hND3=3u z&=z^ksuDB-RP_|NkfAKiFe6Pu`KW1TfElMePhtKYV*rVkHJ}XqSDXkk1A`{7wINk# z4D*rLGk^JK!cae0yZ~p~w>@Gg zh7-d7BBFa@uB7&tVg7zW0f&>PH2+ijE(njW?>%ibr_?o0PT@W!}07SI`9<_ zMiN?uDNp9i*!a(1at`kxw3pXcFsp{0bNpq2gla%WSq=z&lo0(+=cs@(DnwyN2 zG<^8>!_mJlF2-Hj9i=4+!UV*(bs+&>hkAM&u&y}sJ_ocxk?)RW-536oa%iHi{A<%O z2R0wbTZdt&{AJyfDzNKdt^`zghdh*J;WiN_Sw3yRyU6d7+Zj42J)|irS!pOLX(iCd z!rXF>|GT1UUatL5sUn|*2kbY6+NVg4vi+!zIZBr|2OMm{|A9zJ!MeH?F$L`{_LZwF zVvDr`Q*$DGpxzvg^F0*Ud@g4LTB*LE3i?!(BbPXIA6s5)oUJr}9D%UFrx-kYS(%)3 z8@-|tLEgS^ho>*sK*XnfXk>gGLs*@4v*<6;dA-?4CO@X%u|xpG*jW|pewIB4d!Q6l z)tGlT$K+nw73Gw<0wY(kY;k}*QR%sM>&0D$qq@W_%vU|qMzU)<7+_4T4zoLw6#a(^ z>Rma*Rukjsl@~=>?uv7pYA^Mjh)~8__XubaVd?2xhLN0f5xKTE>Y?UFG=U2Btm#Tu z3BZ@JsjC{AYIg^U^$C|nc9Z~`Iry8Q1)bbd{6a`I>OVjb_gRSMs6!5Ic@S&41wTn8 zeAXKI=qCUld0v;~WIi8g5Fw1TMZ(3`zAbxO3Dy&b0xzfd&?re>CzVf`+M^wCoGe>{ zWB6!CDC&0JY)ES>MON+oF>I12t7$8r5A@?OL{h(8GQ(eXqYKN{A9#o%b0_FSFMj-m z{%Xr78iMI3op4RpTx88U*-`kJe?ARr%>|lap-)Q2eU(g<(7Cb-?qK2lFCEf|jl{{B za%zAN)Bv^y5QZPWw%v9$y3zoB=Ltm+Oyyg`s~fTZ8kzrJJmdRyKm7wn{ePmhe_*Nq zJEv6n|Ho);fEc&k`7gHh58mnjAzIt{A9}2^_5U$i`^Skt-u)kF?VbPPj@$11@4WK= zKx_Y?jsJL2*^B=@}V2ui*Q74KJsR6XZ`makmbGY>9FH9{4Vy%PzM1{yW*$XgM<5g@&&6f zeRhVc_VL}V?pspcb_`4{{i=N`RiYRDiGh{b{;q!KQQ~!Rg6e0eW5d3mAk~R$ll^mJ zbM0}H*G`R)A+N-7#m~uhY?jfL^H$*oZ{yC8)ACM-_Ub1m z1)T~eEZ3Eunu%;w=nnf;F#S#@M}?Vx{licFgm2e{wt@K?bWsV%EnUOc<8GaqoZRoJ z@56gEH&{K}pV);yGE4pAx!tB`OD6YR-_fR$&o`nF>MgCrGm$^Nmig_&_QUmdj}Pfs z{nYeD4vMa<$r(nNTb*^Z2ob!zoMQa$?w)Kf)cMDrN$%#uwgKFvwIiZb&GLZX0MNaV)hEnb|xSD76782i4|?E+=aJae#YN8RJw zQ4!h4C9fI(brm(qv43kyMIXS`=m`xUSA zDEiB9+sP;7Sb1X2l{5XJ_XMwo+OHY~lMgRU+f8e0Jn%siUk>lSQ)RN!>^3BWj7v#0 zJOewr&2C$YUefWvjy)RYxis|{`}L>U5#JYZL>0@Kfj%*Zs>9NasI*jvqO64 z&z-$`HY?OZdFb~m+NdLY_3domlZ?;bHCDVRx@}UYb2w~W{oU((p30uqUoFtlIQ+Bk zS)T(67M~FJEfTKmOy79Z|J(NL+JaqA@o>a#@4sZ)>^B^Ye)!?*y4o@Y9Z$QF6EnMw zpQ)=NbawlZ!zK>cITF7Wo7^(&&kvHwcppSrBkev8asRM?_7i=*Q_rpaHcd3strgw} z|9*bh@8$v2b<)h*$d20JGk?xL_dj~@npJ<9_asVvO4}n?9g(0=@^IM8`ENbX{q$%b zt-@W;V2g?CzP&jA#A3P#Zd=%HocG|3duqMxrf^EduHqwI`|#<_^_j3wN%K5PiFC|s z19ElUCk-F;p*x>D%_WDOT~+_Qdhc#};p**Ix9!;nyVYYAPl`^=YdN8@k`$N#zrQ=cRFTO>J*G0s?%JZ`(&^|@m+s!2p`{H>G9{~>HG1|rw?DBaLak&C~D+g<@J9^ z)sNoX6@Ca~FSC?#Aull1zu*kvvo=X;MNPfriE&szOpEfkcdXFr@JoK(tDGSg=fax$ zv7e&<;%NL&nBP19ZItkz4Dx?g^Z(K!{m<$DRR(!<)qgU`edHGZXRqf!tr!053~~?( z|G#38JK5L++W7xl2KhhF@}IG7d;Q){-I3R%qjo=4Y~6lqJtJyQRu=rN-r?Ol52+da zFE&X3n{R(=>vVk<_~%O&@l$=7;YK;wo?AHw9<(UAJRH;bRQ4v`GfjHeREI(0oP}8+ zCUUpmW1RZMGt1y2rXA=C}Ub?6OG2Ol|joyJLa!{j% z$+PYpveDjM&gKs5L`rZMm;)1QbjS;IthTh#hXd*iMvG=$&oLC0Oh%Uit`)*Axx}kQ zlGHoZ<=SY>lo@Ltw9xHbYdNa#!;RL>|HQ!I zfDI2n0S#V;xJP>1l_u~yz$J&Lm#wlcSZ9_r@P$oHZ)+>NI6Rep$pbhE|(Jb z8Vj^6DV^HBQ!S+hVF9ZFk*UBD+n3pVwv&2;`Y)34B9=W0F5?vXa%`rA$ zvXAZ{H#8)%+QMA0#IdQ`fo$2*w4BKKiv~)jcWsCBuLp~G!c6uFY@HI~!;G!}YV^TT z?QKe?hku5FoM&PO59!2-v$<=kWLoMMO7c))fH55~fLlECBLR-D8#9KTk<~!n$7aOn z_5zQ4c#M}s?ULW?UQ-ul?JuglsPHt zX`BB?dL!M7i$nVH!#vv+EvPr%mMLsZSGrtm+VrU2=Z5CijvF3eNG9*rVB0W3wBe-M zXeKQWan6k`&Fb%;oG=sK>D=K8eUXO$a+f3Plao_3{CbPbE7udor9I#0Nrs~~2Le3`EcRN#htDK2 zImxdL1&qA27KsvaD?EBnqZjNi8H>jS$Z9zyIH_&kQZdw2>6=nTZh_B~i~;EiDFH|s z3kmt>Yx57w<7E2Rn<=f6&C2aTvDDKH<<1^bsvsu3c8R;F8ZYVndd|1Cf*%Wgzfp)d zlWnY{_hN&^x)NB7j5ho^%*`UJ9v(~7FK;;OG^FzJU`;5aeT&SZ{2OPi1DYBTRnGmw zgJ$@<5ywk)?%%yq27EwwC<Q2T42Ed%{xAZqK+6$Sp$@U+XcMve| zY0x3QLllc3KFSAHwnhc^o?l?udLIwVQIt$8NnSMUlo9H+p(HRgy^Zz2bCfkgZQUq} zrI6>Enpa}9*a$4J%nD`#CBo_Nzwfj|nMI#L2XA+klXhNIeV?P4rm6rxhvdwGDIa+m zzTALSE=D2|KncHt5iTBvA{HAvN1`v3V=%X>NH_Ehl{~BHhBKaD6!sxyHRQ9ks_0E| zSF%0ZQM(mSjw@Z(glG1or7IE$tIdF`?}UcFP$W}?8S7QALl9K!o>uyefd4W$z5BY% z9<$u8v`ld286%y~qF{T<+eTo{2ls^b1O(68GusD(KCr>;Vk`xMXuxK+&aaiP>c<`LL3n3mn-x95?>p`&+qL_U=Kbt7FQVir8T)9Gz)v zrir!ASx)NM&}MsnpU3-i`Th0V-!3kDZhJnS_mkW0dYc^@>89nT|F-o2_<)3~ieLa} zMu;p*y8DLX(o$z{Jw_Q+jD28}iH!#DeP@L9U|CL(jXYF$o^h2Cm$M`oZw76}ef)lH^`HxiE(D8p=WP!1-5FzYA1rT_#i%p7K0A6~6w z#1dMw)cTi}mcSs_rtB1rg{EFwVX|fM7Cn=RJ*GukGu$3INV3s?{PiD~Pvs?puHi#- z*}o!`dP_dx>II66zXY5V$GpLnaZXcm{T=6N`hpdk$s0jMW4zR^mX<;c)Cc+!53wg4 zLWv;|#O>RP1d8!|Z6N?O7lziAS=Do2WXope`)YPD9;{5o1}4Y;u*^z(;yl$1hD;pO z!W1Gqs26V=6_6(qe=3E6;k+kFKE4d3Jb-@Bm2Ui-!S)YasmWvrXKpuThy$jB=T;2b zor+qzx`GnGf8aUSOAMwZgQ>lUnj~+?e-8x0_;p6p%Z@&Pa1P}v^8g6F^|JYCwbOP# z4ueW7C^HEWwS0S1PLRpCSL(24HTZ-9#_lO|W}2Fh6pDqk@hi9%US=+T%{#91vC{yw zfP6YUj7{N0gRqovJ@4J&f62FqXJ$I;8H{(*>1z~&;2P2vH7_M%DU_$C^u(PvN7-yp zW#o9!RMU8t&sTeJKuTZ8&g#7nDFO$;&z>NBv?zK_ovh5(vC%b*7WkGikZY4aUP~ii zN9s7Cl!~+=ZU|!V9vhg+r_4LQ;i>iiL6|714x?TkKdoln#Cf~?=^F!30rV}C&I z%^AWo!g+;I@_&Oz=c7L1&YtWAM}6GM%AVlIKEA5B>VIu$KbKiS_N6e#zNcPlWDbG} z)75-S`1Nw_$4!%Cyziv#C#MAK_w#St>aMqb^*)1|XEKQMZ{gTxLavMNiSi`ZN$yPS zg|x{PZ7$kSHF$94clkSVpvl-Wyu|X4`VAYft*JbjM+~p>_5R&oPpU)o$p|>EHjn7F z;O>{HZ!Xg+UO02#!jtHsId(TOAL4m*-Wpp#7I8dA%#p75wIF>;zPI-iCo+jdqJ;~| zh-NlQ&csxZy*wLK6?TGa2qlO|EOd0-`@Mr}k=8?uqZqqqyr0S^v!;H``k5DKUcBUz zrWO|1leq2o{&S9cL6`LjN`aS-XXnmHKt_R_gq|;IgJWETGhRvMQpoi~+c0DvN^ZnT z$w~!Rb|Eqk;VK!sKVnkuLPEqLeGwl42|-GMe(kIeewuh_ z`t5bc-Uel=e@|``m=ZF?ofM0~&DbZVtaS?6R~US&sf{agnp~_}3Kw(E_(1`_Y*JTP zd74PgR!e8#I|egrmiThU8k$}R9QOZS3T~=CN`V;sY_S174KqS!f-~gq;gDt4L)}K2O#iPzt(VD`=v2i&BfDg{eI{;dT zB(tw&M}^s>%Y$%L2d{%D598Z1EHj^X+!g}k6^uEGLb`Pt0tyuj|r5OAUFmXQ9c!Ys@cJvn7|x?HUwcd4l98Q zesG(^JYAH=TLT?=GNro+FEBLRUmVCC$()L=cvG|uoXbNAFkPvc`etx#Q*x#EU69j) z+Meyo>ZV;P207u}MVJ-QNNF?CLr0r4$G0ed4Q$ zM#w7q!GiT5#7J)P%E8PP=Z`~<(tDu5MB_5eGWG49(wf=)iI3F?e{WS}Da`b-X=i>x z$^SK!@>uUvGCaEaf;~wb5`m;%{>9s3zlt^nY}*yx!AJ{#ji&RE<3lCom)ts2EFj)0 zGo9ZO+lNgGvNES3XpCmr^v$mHK(_~-6&H_(Uiy$^wT2{5t3zT;N133nNkh68)5cFP z{og?G8$->nLrZxv_ZsdMBu|~QBKq=U`HKT-@gO{S09W$kR;+`6=NulO7X_p@q|brS z)0KVzcXOH>(TcONneA^~1dWs;aa@ip0!xtJ=p|;bwdLvlgjPBB~!V)pj^52X3GW3#g-}L$y?-dG&HK>kL#BXP^mJ@p8@?DHU7Ma zj!MSzz*(PzY|T z?`k5f+L$ za}SHwM&#v){&%-u;vvOGXS@}cnb;h^+yktFO{+M)SP3~pX(pj2tzm}rcIU5n*0uKi zR@D(mDc)1^DhhQ-7tQ7lVn&-|B4+I7A`J|N3)Ja2i$YV<=V(`3PVya0pq(KMHc%D?|@jKb3Y&kCWChKW%tarh;kyBi0xYxBt zkzvlZjK_Gi41J{fRLn35T(xh~5K^?C{J&+-`bF^EyB^l&=p29daz{xFQ61@bQve?dRf2vFV^<55ueiu z^*0XidFOSU28L)Ss?mxe=pv1X@Odo>Cx_CqurZ#d#uM1dZz&py(arrF;<_2LPN2I!`O{)I+3qwPo>09ll&FYo&BoYQ8jmfqEY%BCmzjP7 zNeBu{X1{d-;<<=K$50b5Jx`7^fjUGi|LcwG*^n8lfb3+)I;QGRf8`!jHv$yv5_{0V z*O+HSn~&!nHWvg%n}BnPbik+KK3Lgi`E=+ZIS+$2FW>b@2|+5#tobwv4|r?)HQ%q( z`@`1}C5+l18(>zDxcL60Dw@`nhvS12Ao41C1XF1o%!RT*c&L!6D)t$jzX80D$awYi z&TMk|Q6n~7*EJd463kXcb6=zz`rZZ9H=>YzW~k&6M^Pv`JLQ%)=l&vn;wArlV_X<;!}FM?E?pG5igEs~bc9F&c z(iMp?kFoO5XP-j%DP|oQL9G^sqaD#Zzc;D&v013ULdRNeC%aMFmhQNHuh*1Vmbu@f zwahDs)RdeWXCXN=WPtv4taBuLa&Wd@Y$~=uDn|yE*gGQ&6+=*7=0?R>t(?xr1`<5k zYPOEvMhE%ca%12^q5ri(OeY|I2f8m}p*cDXsq)GVN!Dt0ZW1D1#H}pSH-pY-ztFsc z+hj83aGXlwN|#U>$GJy$O)}2yr3=-hljB#4XQ(av#UW2~32S>~mJ!`^nXEi!*4Uvb zheYin&25&xk#pYutaW>&teci12hDvxI>sxVT=~jx7Z6XPtjvjIfhg;R%;n+Vclx_U z3sJf4*Bt{4FJ-~38;R^96vxeC4!egRi;L?5qw2!meRK#bIpztDiOVWY3yg33O#^2lfD}s>D zaAttqka{%Zg>d%}Cz)_H`LsoTS0`xxz&5GHGpB+lu$tF41x}TeePpZ9B%mj{He(_L z93|<-N`S#gadKGr6n?re)*nIiG*F8 zfbp^a?JU6NOTS)vsk@UQrF@b?c>yCTL}-_vAx5c2sD>SZCLziyTK})(GBZaG{=jiE z(Cn{r-6JHqj0-F!Q{{3kP?A%;`PnqQ0NZ(Ua0DuF3?&`1*#*`x^bQ$cB4f%tPO~{Z zl-D!z;X+L7*gjs`p=WSxkx_D7Q9rImQ`3Mj*vSBmrY|?$mqzsTV5n`KOcMA8;HSew zk;5cI_nMUhMqx!dh{D@xXl!&;9HEB5YNTWVWZr5D+f|*l;DXpNXgZ>J!Ga5bbjF+hOnTd zl>-)i{Y9oqnhMBKIdkT^08%o}G8dOzyP$u#-DS zispqT2j`6ogBPpLzJ!!?>M0n;6#wI$wYr9UWOdo*(3UGVh<8;de2$l2Td8?USp0Y- zA`x;euV1C!;=wg8;lh2DVt3P-jff@U^{>Htw0LdR+^AKVz|klVwr#t+B{$%|W?X3X zp)temhI=(CELd6sNM-x)5HXG;D1VIo^FB7Y4G;^CB^(_-v4JH;5)~Dpb8+AYFXP(4 z!822QBaQ4V*jREd==|Q`Z75y!*2>jrJ6&|^?Hva{693!-xinE78d{%4215lo%atpE zx_Cs7-I7S(Xp_DXe3$yDf}=9Tpb+}q7(eb^!T0I7RTxSfhzQpO(0CL)p+FmINZMCy z_QKoCV1@o+ygcsBd9{t^j1Uz`cGcOhH+vh*{BRF#@pBRG;jny#ZDx1#)kUv1>V*rw zR~7YJ8pWzCp#)TZ0IQ#ot4Kf8Qkw!vE0-u$dk!nprxGjPomcj(9bsns3;Cl|S+1HR z3#qt<+~)7*^&Zi0;aX)xw0zQkY4pIC3NwRSsh51%znuektFk2yo`H|c=`8neM=FN@ zF39LWP5Io*SJFc&W2u4aI-P8hcxs?*aZMH_4nfb+mcLXu*#7D zWk|S0VQ@dJ^~jg|*8;z8UGm$UuNe4nz7}Kzi{<5m$+@LordW+B_Zoo1d$%j&qsB7% z#)g2$HwNY=zvHB!1^fJL17RBEo|z4Xv5og%G&%A;5SUr-PsVJP$0_szu3D{7i5_bz$@(HAQO4eQO9ihFK zpZga}@91CTKJd|cvBaP9yrD2V=$4z(BW$mJT~W*)kVvwCyf!Jui7f&wH|bb5m|3#{ z3#T}(5CGVZ3S%>KKRVYEIF7KoCWfA03XhUWT_2k)hr*1)A zW^Z3+F~$;>0dTCukM}KQ(ZOR)ik7|9l{rcoaY`)pn#|jN3I`4-sL|xo?&+Mw=6_qL zH2$=B07Ov%%cw)pEf8!c#tQ~d8`Xg`6Y^&bPGtnyUccZgr zW|@g<;_4y0{Nj|=XSvYIze%7s*(a~RW4KM3AWU?ZJ#Z_^PL9R`m@rH;l4_V1Y>eHb zwVAg#qXJP!OxB2_9p2_h?||;>&&PHXbh5gE+1bQRt!; za1uHU;qeKSyIVq&y9?Bc8nVzz+Cd;KY@>o7cLAJNU^{1~~R(>!vBc*u#u|-6`8i?x|$<;Cj&Z0Imn<-BrdRgk8VpP;CrulA1hqSQLw%gvT073kq ztGHgj>yDXo;U5|sy)eq-58r4u)I5uFKiGMv_M@89CqT9@j%8|Xm$=K%)5My-by}QI zB0CX&>SO}hTXkhSab)YEZ5GeH2ReideVxVf4xCQ zrP1jGN{W4f{>S~No}E7R1WLuYGjqwJWzks2=Y{*OW}m+A1!sBpI}M*ap12#=3Q#Z9 zJMBK1VO0)r+$b%xe(Cy-noqUPC3ZbuWJ5_t3R}Rz6njv!%*(r%X{iP?i#$+#!|EX_ zEQD?8x1R92R8!T<(dnp}?h^zOR8qI%1RyZkY{btgd~UzBss@7_K;Ojf^kgcl?YH*H zqTEG1#^QhV-JTd%@>B2*K^CSDsNM7Ckzn=65zil5*5}XXQZseDs94}keRfAJ^+LIM z1OQ5vwzd{adn^vTt6pEGD4Hw5i@>nh3oa_HH>S<51)^-F-M2s!BZGSl=n+c zQe@=1W+%z#hfSVmKMb23PSaE^U}|uep!bf?q67t%S(Z1M5qmMplscW9uE;)gHkh`+ zUXp_&8&s6c%|u#8IZ%zP*}doJDbMePztl5(Ym&1B6u7g)Ay~Ke)r|_vb(QJ0D)R0^ z4Oz2bsVjuNbhJbf07Q!-U$u0gTP*pO@Tj3iGwpUwDhGmNw;{VZ1sc}I1knAClIGQ> zcFoPvS9(1NLyRgd0Axyv*y5!g^h3->N3+x>Pj3V@|DGuiJFDIJ*6dJ4^1a|U+hluX z>0n4x)9BIiOP(QIF(?6(@Bat@rGSuiUpT<1b$KyAf!V#$8ZIz^oV$Eg>4Ft8WOimm zVc}kIbP$7pKu8Y*wj9d@P{*)>>A7-FUF$@>pUz?QOc0V3wK-h6K#wxf;GTs|Gr z0Wztt$wfnB!eFl4KGw}zT^ia4+vx-b{90)vpKJw*mrpI@YcNe{Seb4bPIn@`u$3V% zE~`0*v7aAY&6V+!ZDoD(t6-LEAO7<*!s>1m9q46Hah)TEX+4<(@p?ffm~=gp7iX^b z&9+hcjDeMQf>78hoPT_NFjt2UaP1g_VX+>vw4yKMK}j6t0&D2){D2Qe=F>st5=Sm&F}^z^Ut>$-xhPN3aq;jBJ{~UX7ru zh4ln|x>2HkIGFe-Jc9`o-mm}d!pO}&=}-VL&_W&tAJRy$6F?g|RWC_U3w5#&-j zh?ZCq?5{u3oHsin77G|49Z|$5yl$h5YBL5tYeut!U9LD9;HJ<;HKz>Wh@y~>W@c+4 zb6N8hzgZydO)l%a(R&ALpE@~l`Y`wi^QRc#HnYR^^N*RChrle=3S%Cq#<8Yy(%%WC zZg$xyM?0`qBbBFhfgddCWA%(v9Hj;WdldE~k|WFhQEPd-m&uEoX~UdGU{Y|7TQ*f= z+Xe!$Gi;bi0_jg{tlh*lasRYRYr6re4Q7L-JXM$?*Qn9eb|AqrQYD_HefL0AvbRdV z5v_C5tt2RHlQwi(Wh%~f`>=l*+@ZJ6f358q@pvi3S%@X+g$TZbTwzm9P2gOi)raA% zCYbFoxO4(v_Bh(c_)W{3nXnC`Pn{KJ4axUBfW5mvP-*s}>T+^OdWAz;QYR%y> zJB-FVnxzqC=Ml;<@#b?1CCeqVA@?r8Q;dz7@tYYk{2R?vV*-IRPawgN z3*80ER4ff+HGt>U-Y)mC*8X_Z`^8mH9Nblgy0&M7FyxO#cq{=1g3*ZO$^ z`0)|wGt4lMM41hk0kNO!00C_qY0&8sYI=CPNVTJf5dR3dupW_oXBro|H z#udxx7;+yASY46`v(AOw0dRe*@|u@61YNp?GB6G7U7c<15z=!j#HU{-_h$3D7u<4| z1_@ss3WRb-l+YZI-tKT`4-NsK%v20!hwV}VIKbcoAPGGcQKVg@U95+K-$f87K(<^* znHe$#ypecdW{YeaKJ&WAz-f!8RtCYms0bdv<&juMkWvE&i&|TzA`RNpy1?xoc2CuR z1lhZ8^qJN7FY)re&iPNJ1JRW2O3U?NLz-Ii|EROzV$R?$uC^27iUODTPklGRb11d! zNcR10@)``poldilEj`A}N)E+?I}0qOk&WS{jaGCrF>wI+dk1awSG}-<_;VPC&}tL5 zf}WT8Dwe7SR*@ywz{2r!P4ITv{~P!Iw!S`d1YMNsu+hdW(dzOj@fJ+5{f~_pzYo1C z_wUsCUiqUsS@X>W>KEeCzxDG?x0;vwzP$Yga)lChr7STuc2mC#c(>f-r5`tck{SzR z?nfg?C%Rqi^i3vwReVh~Z~k2bD#ZS=+w@EG=Kb`en+5t<+DXkKw0VBD*UP{!O;^gU zfB}*l5gg|-vlp8WFe^q(9KL`vJ!kzV7p_5WUhIy$rP!HbtL^*07dk;^?q)|`m^q*Q za8mKb_7gg0&iVz9Od&Tf{q+^2yAh+41m1LW$VyeqCveY?7Mq9PRXgbakM_;v4kG&1 zQ7G)}l=A1~}Zm3#v<-zU5b1xjcldj!4 zAh;RY=zC)L^p@+pG;fCf>-ST0#6(rKp)%=Clak*)!=jz}=&C;~K02WOf4+*FrMHuH zRd-UFt;e13>ni=mUBB_{yEdfir7JPBin{Z%(#azyEmbaQkk~#(Bj-?xHTal3ncY8G zUha?Y<7})XYN4K@J^|t;wz&iqCQsa9n|UyTus(L$%wmxk4l#H>#IQngtlhB?dQ8oi zIc?H5MGo$MUAVzjfn!i!i(4Y!iy40!6}H?4vrJ`LZqlv^us)R0{i^ZNzY&kmF5KUl zg1+Y8-6J=26wNa?apvfb0qtS5&*oiotnXeLmYKL+@2v;-#|JF|UtiBH4@Yzk z=h5lHGrce5M0oyi*FAFY=ZkgyjVl@UDlG&xdI5;kgz2ilBymb-W#hi`((@_1Zyh5} zG~xywjadwt2bfL}TtJ-ck*Kczu>KMDu{=z5U(94b{x3YRn~~&^dg~#^8#;XbpAODx zdtR^Zitam6O~z?2!)%810^u4jDWgX+!Tw>T=gFQEr|Shf1!*1sk7RXPmjeoP6}GoU z>GZsEG;$4$4l3I~{_vdHxY>9uD2+nX1b6a(j?dHfK0ADDhdPJW)GX9{_$dn{NO9(z z3^o@R3OZcg68^7)DmT#7|N3j+E!ag~xt`5cWTnCVJGL7U!$p{Yq-ZbaroZ24zPMHm ze~){abTI6X{N}T+?(i#5e0)wIVy-Cp;laJ(=)rdv$CbW3vDkik)9tP11yi<$X8SRa z=SR1V{Y>|TRrq}}FVxh>(f(>qEU0*9Zi~EcUgW2JrTgYP&%}a;{v-6eSBw0%*BswD z-<6(crvid0^b=FPKKq(iJaPDElfFqScO**UwXY!gzmH?{%KLL;lCuP9P&TaObQW6 z9#=?8DqjrqKk4OrsM)F}^OE`-XEwRc|32@qqQbUQ$1qR?nHU->v=WR@`}}a!#?A7O z0|&ZySP=)1%fppTj_`9a(B&C-K#TVo?&kP=7w=x$$oNcLEDB%*d}-gN_Tu8lAcUVv ziJgzzy|e=}CiCSf>4Sr-GElq&Ek6`N>mIIh@mU}faa*X9G8=J9Z$F)S2`Ak?Mil8q zgfnvpy*CzU8T1(-np!XaQsW1I>}zhm(MkbSvR0=vAJ@(YOWCUunw!WKm2x%e+CM=L z{QP_zsFWJ=^4OeDZM#XqBLXsaHP=J-?G_;M$BUltBbs@emIe+h{}(*vKX0G`+4IV6 zL%eq2l1OfA?wj35slvl7ReBkqSrC<_a_R4+8;{OSAbS?l&L7vw<8shE0{wX6Spyv- zlK{8l(huWXTlQP~vt-MQ95s_lL&+#Ty>d0XBsVmm@AI9Vk3qQ>h%#n&2vG~Pm7x~O zLprrBu;W%M#*yWpvQ&2IfYuf3)$_&dNd|sa+!UU6?$eqDW7KRqf}DyOkL@WW@nVoY zXkFoVHz&lp1Pi>-dScupiIB1<+xN^-m@M*goh~5bE;OyiFWlO19lGEZAzmGKr&(+= zSy;@~&o6Spj-cP#Nz?`W?525J8!#U5G1d~Nhq2?Bh~5P}&xcxUo?gTK`e!GTfBbDjdfvf?1JND~#xcc|uGdm=rV!S7F(dKl8Xxwu31Je|n!5Rl|x$NB~|MajI zQc6GevbyutO~Y-YQ9ICQxBW^|GTmW&aVj5_?{GnaOFg%uldteUeF{wqy( zVP4728#i_G;qIA^LWRjCx`<;}cf*GFp{h{?s#`$yf=zA9GlkgjJ6>u~t-InMAL33Y z{n;{KQCHWuGDvC0<3{{UvJYN7=0>gffI7C<)n+5SMWEa_YM2GKW~>mG@WGTAlx6TT zZRf6FCRipIG^691ii}+-&#*r;z^S? zD2PdBA|hZ=f3lz70opZft^ME_jZ`+2LiBRm`8s!gsH#YHR7VF3a<#5{H6wYE%}&UI z0`Qsc26hulnCC`nAN!iI3VNQyYTgQ_BqmrrUCjk^;J`h^J*}fe6rx$b>Ks(G00AH9 z9_trxXqsyN?`T0``IZ>Rm)@#`otA$TP zKm8Y1RKgWaNiKzss;$;)E!#wk1uL;g&xFFt%(jHFZz0JRo&CH%EnbTOyFi_zylA9V ziee(O?Jj40X>Yl$`WX@yp03c>d0%iZ%jeVHy&9@B)u)7cbur9@gjSOpJO&A#i~%-V zwHt+NfufcstnI2GN7b|Yd#xZR2aDY+jTltfndwfD$F#gLH~I8}91?nIzpdi*bYLv1 zUn+*PI&N6Dty;WzkpJXdwXf!+T?r{;cN+PGK4ilNbz~VBu8A&3&f(+bba}g_y!hXY zI6DvUs|9n2PN3iq)er zi8r;RoNe5UI%!~e_WiAc&6eh)e%nH1$({8XoPQlJz;;b|g6ywZ#%OhRMDB5aH^#F9 z+K~2o9rk@ZEoCMwn@1Ab$ z)_8fj#xTkvH;}=S0&^LbAwB*WyH64l$0^JDa+5eqN;NoZ>Y_@gb0;T(iO9|t#m|RE zWH~fuZUt@vk%iN*h9Sbcz}Jd(>^EWa3!DF@qSG6Goc;e)m}a z;UuN)5U1~Z`_FDsR(0Ls!4*qiEUADL)oy-9FBHKHmGAJJQTi!yDGK9wus?aZ_6-8_ zbLeP)j!;FQ@a#vJPMlIpp8T8m)u*W=>Kq|3KbW1HevcOG2d5yI@L_O{Nx~#&{0tq# ztbGpWc*MpYE(TLac>)Zn7tHzi3k3TZxi5*rMwYmP5ib4VLV?v>Y3frD#7)6Ge?TkH zG~6+E=54twmoRf?f#4J1cxm_#aOqkI28BaPSPo`*9szhs5N0%~DR+YL3CC#O5O6%8 z7g~b@p+jq^oY?T!kid<9xNnc4cozCNZsu|)88Zvyc9VQ{u=RuN*7Y*?dx<-h4Rj1D zY<;?G?Xs6+RrXBBj0G3s5l3diR!&a0W>b1Am0{aVKa?Cl9y$Rwau7-SU{QthvF-M0 zo8ebgj@2Klfm!)FRQepe<0T;NG&M#!GQktl{Kharw$vu=z19 z&;=juW#Mes2I>|<3i#KU!irelDf zPYQAmxM7@ryGbj~-F3K<(jD;D8hMUDz4@k`4J{OLhG(NiI_$|l-uo(t$eGxt{X zS*%1p%4?YiC=4v!xf)mT$bPd?;NF8c|MCZ(pe_@R|4`X`?=OyiJ(Jc;Q~jA4SMbV?sI2$a@M~J4ej_ zg6_b?f~3d5-tf$NUZI#2lt(`oxK=zp0`+~qtxK|KbWcsuf9|`RE5h-Uzs3~(o22l& zyg0ufhX2Hz6T;bsGrf5FzjHfjz?zK3QOm;NanZ{0%a1$kIO5$LL=e7j^`X| z>C1AttJuh1I6BEW<7he>OAuOLXGAW-O!78^v!3_%lYD1xK%IoHc6eZ!v1CrjkPpee z`(0YnEz>{HrOBs)vX8kmfBYPN-AWb<1U`7Tj38a^V(>qD^7&w*k)++}DPd_EHU14R z3k~Paz7aa}oZK1QS%!GRM#B3rBP2`TU#dGiVoR7ydsCoKbHP~)K{ZP^vR zA-z-RTbj8qJ>zS#Bm!JGC}v;`)epLGY*0NDZ8lbvk6JqJ@UJ)T))0em(?a!2;0ZdM8 zM6CbdMuj~)G*C(n5JW>C&AL4`apqW^6PGV*sb>V-`gYv2+EY*vba>GWW(6;qk=MWV z-dQIDWLb^U`2E{V1Veh1hgJ|@b$R_t&)7c1A_s;+~|W}BgLyCx=4Pf zHIT*v_YjD{NI8b;}!L*=z! z8;(cPji`I<(XzHYkt;HAe~eVa33-W415 z^}+INMm4yqDK$OBuve_87z}YVSpK{}#%Fz1(|FvE{{wxNG#x$T2 zz;04;>Q@ZQ`5{Nrw=9bm#A-=Te)YL|@q$Q}J}boL{dF~GNNRZ9vDpNQ0O|rvTMSYUMR(TtW7Q@F&tOQ(>3^zBheU|XAW{L$5gOARYMDPk?f!T5Q zI}OS0@r>QR#O)^HxMbJZVDTyt|7`M;m%-|21irUJN5P0@FVgd|bdIwI<>t8rxuB5E zaYgM7ku}b_53M~q0&8S^8u?+P!KF#TEK!;7QR}(yH+saCmtq||CighK{zlxvmHix@ zzv97|!eg%iJpTiPg?<&uBRqTza#sOtXS zPhQx^mT?g&M_+TPf!w1u)RmTZu8UyQ9O{sW5pJ};$Aj9qbntRE&7vSTr*&@6b-SUd z@N#S(W6D2;k@o(I%&up-;x1^u_r`=`ZG=X=P-bMq#{Eiqv>5dK02z>X7ds8Lp`y6# zm=}xnl8j`_DU8(~Q#(#ZT+!ynh2Nrc4uBYH3*w=_aj@w+790yvXM@saCOhb~O*TF} z^8^>{c9b(2gv|1AX$Y|DFX#9MSAtL{NEjTA&r)rDZ^ zg&_IDG39q7FY6%f7%ROk_D$%F!Q{sGCf+3x;V+fa*(E=<$d4^UB$V`7Mr=f{L6Dxk z5_E^oriKQ10?Fs#k$@tD`77Ues}q?tmZ@??Q*gUi>QmR?fA$4p)aWh&x3Dq5V05^v zg6nZ?A&8!b_@p;p4pA9uNPqQY7))0m6*6I_O7Ie)Y+IYZ(-;Ev3FGAB1zzAH8##9x zK`zApFkvPooj!;Bdhth;P8_5g245yd-fTwP)=<^lN=$Px&w+SDeDPq@dgcDjj{S*H z-(MRJT#Wa`l0vVVM}{9!RNZNr|EGzSf6)e0<<|Aim|sxiA@Hkn_%k>xs^WpES&4PS zsRXY`Xor#ZsEJ?i^^1>G^rxyr^C=~o2uZvanw@4#)1;fv!*N5}7MiZq0{Vh=xkao> z^JUoE?ae;6i|qJ-jnr?s{%sw=R?)=iOD;)|&t?iiEkEcM@5;x?esN+BmR$X#fO-$6 ztEP-47W*t#VfWm98z8&40;NZINS=o~m?CNtrPO;Vkh_llAoC}8a85{D#mi64uReE5 z*m7G>&y$%pX8**mU~W%G0W0N9t?N;1G>tBiBUm?+dbMp*k@V)IyOSY0V1iYg2Y={a z^`gNSoZRZnV-q1ioDT;*cfKB^686;D+p|N*Ij>F-8eByPW^l!{!lG8)phrK|O~isW z!;JV5vscY^hxWHy)sAczOJX`1BLP7ATWda?wVJy#1+1JfO7!B)^ zXEie01ZF(Rqhe%^fAf$D^Iq!kA?NX#_qSxMjOtVChtWgau0s*5{*q8mrE$K$%X zzeX#sX>9Z_Xv{o`}t&H2fjc2xi&xA{PsWI@CTHcV@h#E?JJ*FJ$3s}90`eVk;4 zZ?M7;NQIx8mJaWXnHa3v%+&`z#e4jWds=vnKBWEr#)7>BsmzbOy+K*=+pVGtszB4qqoRJo;;jtf zNpz&ksk@QkgzHHoFDUWba+@$#tTk@wh}V9HqX$U``QPZRubzBnfB~aB0+_wz z;;n424@}LE77xWe!D7)bupDmoz%=P#tW39IAU#E)^GAHz5iN6|#SPgzz_AHkEhEBf zDI_2K7oP#Vd`K%c+^DeA+w!95KVK1eJo&Epi5Jq_?FnF#mD1CUk8IBg1e(o?uZ>6r z>k*RmF&#uJ3A8eXd6H@7UC}1Pjs|Bn zu=^6YmSb0{EHC!AJ2Ddslq<8gQyr=l^g<|Qf0Gm;*S##&gQt&LeTHskmFt<@D==lk zk6}nZ^tFw$QS7GN#-FzIgC*Z%ay!Z~n_POR{@>lD&rkUH+}i?)>8`nO*D=6={buTc zS#W>u>TC>?e6+B#ooL8Zg5A(V>AosQk=xc{XtdUqHrr!g$eipdBf;mTUqJ7Tj`!1w zgRYCeYp7q^+RT*vG?hui0Z12!mAo3qLs^18@XS7Z2l2?Ro4AX1UN3$$6@cQoZ4SQU z*U;^I7Rz%5k#kDAaUQWNL$+@N5jWs(niBF`Da5|BaVA8G-8p;dY6fFd^!m$e`D25~ z_V5QaW{%q@dS!4vN@g#;H#;=TdC+BbaK;JoTDGzs@3(`E;{(U&&Ef2$`i49V zMoEx9mpg-=OIeaxX55X7-)D$k0+>WR1c$n82oxLN{sKtO)2%>e)Lp5cZ8^t-0E}gL@ zu;UQD#nvfHoh_4~Xf*HsiKRAr^W-BT5b^w~?ZFm1-?E`v_sPkitYCb}?<;@%1phwo z;7!jclrPHEQo1Ll%&XgQEn#fY_-rk$%n?r5jf7mL%z;X4;DXajIR@krz&5*Z_SEk1 zfA-JcC#?tCa@qp6ZkF>88iV)zjE_Ns1|SbGCRHvZXT9{q@bIZ)eB{qV{^FRAZ4wMH z)duzU4vCn&yT4Y{qMO2oIK4(@hbScx72AOCxe~&tahrd|3~y$(!Fg|S>sz-p<({H0 z{N|z>86EJ?^tH{H4Q#RC%Ug|ljq463U@W@fS-hkqlv@T@1gz+sD>g=tBnW*{P!Z|H z@~v7>+qoZdEgW&Z{QIi_S>A2Kwnm-PUdnA#3ubMQq#b%17L8uQ zN+~TlzlHMpRZ5#A#yg}FoUJKrF98_?iK7rl@KFpO&T-X((Wgs13?1~0Ea|vG30)?f z@1l3IFeDo8pkEC}y%qre0(bB7RoUY8@1l-=rZjdFX!i9o^KjMmaT4XdYCM(Qj|O65 z*d5ie%!hvPR$MO}bR0h+#L;C6*l#hbafG;j$d-c_rAk`I9v>hxjhA8>99)0zjY(Q7 zCd&_=+x^6vWVTm|^1{{dvRh|6XiZpSSmUSJ%?2>|l7z?Wc<7i9r*>kj^pMg1rPL&! zG~;)$C1xP5+78ZCuWlaM#KDlvaN5xtan zjjlt{7(|z*Bp7U`;6=r4dL>DS;w_K^&OOGztrC^yFa2rx1_txF`1B^+^>G2|`mCAY z1?dCW4WZ({6nyp3tUjUj_p=%`C1_2_1oNyyX<}$eyAK#mIN9?44wHQ^@?&fOc~)KY z!vW$E9$;W!1KD#^v^DlXbH5YfwynChR0USCe6xOXssGXG+ZafaF{SmAMx{}=xKYS1 zf1Ta3;Q;OLqpjv$m_Igd{}P&rj^-o#88-@2K|{%%*#=!>r_b_Xp+xyLILkNjO|@zh0e zn|i1*1QE~Cx;V$}zWbduw@P?({7o^fiC-wQU+_M(0>_faf|{fKh8|nz){4YK+~nls zB%6@|`MzS+p&=*#u6@HeLK z?{o(n?X#=c|6oX^P6xBHh6Z>X_kO6{KE4m=_@1xz5kyNY6T!jC5HIKQi(O8k46077 zaOkONKsV#zXR=3z#`+B|xi&UXwkp^=M@4^Ik;unBp+o!8>(|^|;+hlWb7Ku8{}EP5 zFpb_P0n&HiX*P@}9*-?5V^+HPC^`=KExO>)pe*Dp%JP<^tx;=Y`TAjclkDtyYQPk* z$~bc+_b@7D;k>w&KQh-nIBfs<9Jf<6m`saH#Hu~n(gy^L!Cm}ip{t)tSAj3%5B(3I z0q$DzVNR^7wC3W|=){je^hZ~*bcyDRzI=S%oi7yy{BSt2MZw>-+YtX-mIB);Vr0iY z(~^pAEv*I^4-drOS-DFDSN4yhVU72E^40jG+6QV&yBhgIF|FeHDAblpANTHO45)JD z;2@tS9IgRcH8_z{ZuTL9zvU)?nG*hGRecm#uzr}>*@RI#ZQfq(B(pzoAYPW!B#;!U z(m`GF`mKY*QbN|xh9_QLMjRQzBC_6 zyMK)#Swg4ZWQH;d`Qi)*3TA>WM8!mFy_*lw7<90+VW@en8O-7)6Nh(L!C?(saKn} zWC>gBNv^0iSBit636FO`9l6p`p0WmaLf*j`H`7A$!kMLZ1AAzToU2iZq;=@{J>EX8 zvGyesbr8Hw%x|sk93v3|-v&6Wlj)?KTz_8ZLM$A!t-Yl@L#_>EFW_xN?aqOLL?Uma z?);qFg#gWR4vvH~^8TJrY+%2QQ~0WqX7*hs@nP03!D-pp?IVfi#*<58eua+ezh za;I3LR3$JjnoUk}YI4<01oR#()}T_Y{EY_RiInks7i%%Tj%gzC2G>sQAC85e%M`BI zxmu#_!{$}NGO7uAV%n`Dg<|Sr>Qd`v=AszO@qW*C;U3v%;YR9rCWP6G>ZrwGt8{ZY zs#`GD$^51MF`JptJ0j_O zn@Sb5UrH4iftgVpXPSMFhT&JzsH?}7I~_6lcMsrxj?2HwQQ4g>d+e#Mh`mTrtvx6K z<-zQM1J=tl>@?m2EzTa-LNmwuzOeb9}< zQA*P+kygczv{NP*rzlP82`oeOH_N|;>IQ@zjn0SeMNnbp)Zjx>*5V6#Gwsv9jA#4X zH~WL4q~|RJR2x+O62GJi&k;jdaWk}-G8vU8czev1aRGejI&nSrP^$HCThC{)T~2zj z1qS+UUzY?{mGhQFN_b42z9t;!wXdhAin-$>Df*?C9%Iq7Z4$OxE|c6%83zkXmyK@D z-ees8Z73Wo8G32ohn<#ruMuD~pvC#*z57?N4dvXBNd{+zY{Np|@UuBS@;Rp~deO|^ zrXjaGy5D-j7v1CQ&06jLi$U|7W1eKo5#)sM&80<6No(t{Y?cm7)6T853?LgrmGJuQ z+!~l!E!QWfr^c?3h@XzZhUqpJa}2l1N}>c`XC4&hagul&OT;n=9+*$`3w54!Y0$k` z#9DnpVg?`djw8mFg+jQ-{tfPUJ~nwcGQ4&v&4vq-G<`idJahlc5SO~3RjEvB8vN0; znBW->%I_q#ZE8H$TxG9sa=dre=k}I7IgvUe%cWv-($LoodX>B*w0w(ViR1DBqM3#{ z>ydAdf~MCL%(<)A-Oh!RntH$9fZ+Z59CUk^2mIxxfR62x6R}RC z^SR$4Ms;hd8_freUoPR1I?p=6E#58VE5*9g67VE6oxyP!A3)*S?j-FOAB%>P;+}EZ zQkBR1vOVtosw9t(@SCU%GTSXJksl-0OpY9~d?9<6gnQu1ThOIZ$6H47#It7Ouk2aM zooxEG+RG|E_3h-MK15q@IL>qr4@bd2HwZjv?#85%?5k6vQ++rf&OD7XrfCV}6}}=R z%^mVB*{A`5f+~|E9KTk&3oJ!xOz&dvGmX+oRzTtEz3PzC21k)ale-F41G3`^zG%0K zj^CZ`NP;7s2l=}iyYj|YI(7`d+mbm!#1b*Ez!v%jijG6U90Z~*L5@9_IEKux?)3Kb z6|TSlt10|_l)tddzKwcUJqH{#`Qbgix;j=)0suD`jKCITojKFJ6cBL)f^&@=S!i+t zl{29}iyy{p^U%P zK0H+<(7^t&!Q`;@Y_{NhBtAMqF*Nsu!C{~=4c9EleC3B662BZ}tr#+_=qhM0uX(>i zS?Zv0Bk5JUm+}Lb*?Q_r>ZEBZJXhiTotPH%hN^MtPr;qj@+n_QVjM`j2zs4VxLIe z$EyZgf_kJB&lw+kwqH>L$p4Cu-Zw-lsu!QjeiF2Gs8UM$Wv5hs*bcE{3`G2=Jk#Aa zc~R=wLgFWvQ&-NX=XQNZ2}!AEE3SMlX_VDC9rkYPMA-f_2BT&N6vVPG`rSNmH}|7| zf!LpWO{@*xNP*vd?6#0U27h&^*Db^LVr5{969)P{liyRcU33~&( z`4HSW&`!PakfgyA`>ssr|8dO!`=j}N%WkoD>t{D8uZ(goVeSS!gWY(Ts&whdezMiN zxmNFma}~$8&-7$?Ro|&FrhcN_Juwi${LwayF=FU^X)?W7+LLoNy-t)5uh!nWrymo|hQu0GdYxul&_Jb{{U}M-Wq4|S}#2V9Gc)HSD5?0a% zPoR|$D^r}F>4M~vXfc^IAxdG&AVyMPB_i5+Qsbk6N@Ou2E%2FzMbg_hmrzoF%pwc1 zsm*CEY3l>3P`@`=w zH|*@|iteTQHu(^{C%p7~e97xjT=+;IK=39^etK?`xxNHkCbML;CrvD%4`n3C9%uP` zLrhA*nB`9uyI)%+#3R@&GPI!PU6RX6F4g& zJ2nf%5^=sgAT$W#UpSZ^;30?;htkrLJl$zD$Uod`Q$vnVUsD!ePio>#azm%5litho zCD(Jdh(uYEp}2LBkC?I~y?GBtwweX(;=il;emOMWl&Q0bOW{q9=l@~Vgl)4G*|VpN~ax1(+Jg~qi`_t_QGu=rw4aCTiG!d9-V1;0s zb2f@6SW*z}IHv)^9i}`~5g4IRRf4(?5DFBY)7f$nNZ>%M6(JjS{iAhY3&!1P!WkID zSMIB1hXHuGX?m}rsZ*nHo(fRLDj+VL*|twmAx~|EC_8~K0T%DBf(vUfOFL9rW@h%$ zH7OWahr0+Eu>Wyv{yBW2q)Da9;K_6O+nexk)l}Wt_Adqq{=~@-r&aMziFHEs{CuP21RSXWo9d)un=MpHmaU=!)0;%JZw#|CU%lB7ZAh{0mJmw=0dcxMn< zrEvB3E-Q*449MPQt#LlFAI;HY`rjfI4yzAq;3@d=ISPIZIeyJ1JL^lq-u<735+%o* z`7*+IMFeP`>%k1|vCXKASAMAd!2p?-hN7osl+({9G*#EQSC%Mix)D-A{D+~?c9=0B z$6t!DeV~0Yt!g%Rr??5VYT8^xO&d)gVR^-tnrRZ^uZhDqZCp6MZ6`QYa3O6WX`zy=2B>Z^%DN0XAE}xZq1so zTedc`*)X7rEUdXEp@LVfjPeP^>PE}3n)A5Jo{L^1^JBEghYmts zB^~$HUPUi_HqH>RULnAY#+wdn&kn%MTvo`n{4x>`_Xd@$29ZW@Mg%-V{AF|%`uniO zc}so|1nr7@fQY($1U|0bFMi#2yMTH+we7uWnr?-8<&`rf<;=uM`a0K_Xa0RzUz7=P zG_(Bl5)zt~Sv>a4-SvQbtboV-`N5#TsuW2nioia>zBFN?))DJo`Rr@HZfsXqQMD0; z+Fnbh#Tho*dr_~yo5G5H>y*NEYY2w*2k?o22u1AX5wfZUIM4qQWSu^-(S?z&Ta2)?{4Xk z2AJA2($V8$^5o%AjP%u_kEZdcVHZ}9S923C6r0@ApQtNZ8|xxH*4F_6+y3G=x$5)s zHS2MU)9dROHZD|$Uy+D~&*BTPCc+0KkW^7It=S_=(~TJEj-Ro!X2JtKTI=mI8Poe( zr}`+I(C6JOetu&KFhcT@65DvdNzZjWP6YwHP2CRttaZjdHI7;$1cq8b9S@Gxx62v|>4K;3(SH)z-s zf`v#q<p{27Lbfgb5z??9i`cv+YK1O3*fD@wZ&2-A&it=9Jh*A zjb5_$Z!~{g*%Ra2| z+(sSwt~6_6B=K2*HR~f83xWfHLlkx^9a^-+c^3Ghxed&^aQ{8Nw=jfVa3f{mFl29q zVASyW3QOS8$|Q`aZR+vRo|lg<@+TQsB&8+f850pZww#Y2x(!F(uCuj0DxjL_PowI0 zKtEb&ZN?o+Q71%pU&ly{IVmZ*1VNG0v%?+)0{me6t=i#%e-de4 z1}Q4UminsP?AE$@U+II+UU+DXzjX+slcOuv;NTltQmj1Ed+}E(qvKvulGgFT9|x;B zkwM>%!-Iibe{Jbr%q&TX-$P8`H*mi9?gzVrq@{+*J6&AACHU|g)da@Jg`+buhG$Xu zNeYQw)8!Q`7VIPM)!^@W)J}Lj6R{laA_FlL7JAfIXyhttGJm?W`jBcFYUHGM7-KN>^Vml~)H(h{++SC>ITC)exGkogVG`8bH^ zvpMOOUs)2vw-4yGZ0;4T{{>Hm8=8B1`g;rG9xPKwbxE6=4vd&NsdHjO>SGDM3%av> z0INUVW+cBly02*=o5gOU{8)|w@`roFh^4zEIm&#bj6hyYaa`5vB9-cKPqfiU2@`an zFk_`DRkk4r>F>??@&xg>h^?&_JTL_S;6!U0ez@gfMM(}*GsWev=Uei#nmaij*QV~> zTJ4Ozq`GIRC6E7D*YQhZIjwWdnnQ$lkLUZ&@bgwjtz$=O};>8!LAiD{+xHhDk0*jK-AQDwqwcL1`1#CGnD zp`5tbc&wh2v~M<%f@kAYv>EZ^a~&(gOVYER9S>0MEg9A9$J%%mI|oj6*7ha$vgYZA zC0=;uz({iYQa-=5M0b^kRkgfZUT1c}#`GxS)pe7RDw&Oa>dzkO7uX46uK5-2&yrG+ z+MU3S@W{Bn_mcO*;0eXliG!4xUbywI5`XtZyO7L&FzuNf zacsWPayxI8y^;NAr?TJ0UcK@9gkReRoL{CHo?JA^WpI9=vn_6)&z|aPHvP<=+fNbq z9$_z^a->61M96cJ?L*VtX4I*K_HIhP{soTe_0h6)bi@XXR~#9oZhA3eR&!%h7s|y< zqvejwRuy7An)Sp-b*4GfB6FSfg6ihjxbAq5!8ojjzfeYUnxC%iGxfX&b)GIt3JtG> z7$d|uwdxTFN+U1ok6r9*=jTUE`8X%(e`ldRJ$*SXX>Mu4KDEaW`H97`W4FS^ej>f5)9LoDsPf`A%IgxP0rLzpx8>2K)PV8*QF}tX zst_bO3^~}_Iw_8xgdchmh`_E#?9-J6dPsEp+RK!}Z8<3tf6gPLRcv5KC>ZITibf~Q zo74OrYh;-V(H%bso_}C=^exILMogwgeyGpdCa)6)k~Ssdu3XqEyFA+T7%Vonjn)}B zIo;lc2rN*KEsU#-0>nz2qn}Zx*parr!YLmQ770CnQ9bpGRjqy3dx84`Vn!+fDUC+< zaYMhUj71}3y_0Pvb`@$pB^81tHFa@sUzWPwv5iU;&<_{7w2LXdQ|d@Y?n{^{s7VJ< zi%qqTv+fWiIW!K6HfgUSy}ifV${G#TD8&@oZ(J*LU?YHnR5$Bv5jWAGH-OV z-@9niosFo@9(5N`Ig#@z)^HF2T!__({~)b=DjI&VZ@p$Z-FssZizZ##t$gdM?knru zC~$|y>Te#AgJHMNZQCUg0~<`*CJaVd%HWAfUF-*GgXQ~1%3?aDGUNLx5!Dwn63G1C zxr*M1#prRS5pas<+_Q7Lj11h^FVg~2$zrl|@>*uG0b>B+xz3sCy$((IrKIy|0ZJdW zHZ}GdH&l~z%4^Pm;4EZ%Dt1J2_4uyh6G`^~cOGSGv@^{`!PVJ4+!D?0r+NHvA+2(U zgp(aTSA2Pgmrv}j6wo>@^|tV;Wwgsrm-nVaGtKQ3dT4S!h~oZ{onn#3r@4{ot4H5) z->f~ll^lDzR4uns{klV{4V4uXG}M!`Ur}Bm=HNLe4>Vj?U#vI*7t7ZbKSZD zo`8{ZX zlLMkItK3O6>E~J7<_$}B+e*nAW4(vh@tVf0{rNs~{Mt(9C1I>cmz#~3?9Dj5%cO3& z!0aRzRDqqYS#$<{0oizc_Z-)zH#{Z=;%B>lLo#{mOJ~ups~@SJggb^*Fn$w za7n&NN#RM!(3;ZZWXFz?vmiMkWvB~&(n>>2&IoDau{2MA+|?CyrABx*tXS`2TOYBA zl)zhre8>@}wfJxbL}9QYccsw8>dCLT;J9%7XPEg};8!Tv0P~J+iTORf{i)#U5fYL_ zO*fZz;*D8k;7Dtlhgm|i`yUyw;seIaS!^8ip_1v_bTO}64B4X;Y_dNO)lvXtL7);U zKX0PkYXoSd$ibB?1!Nj#CVz})LIx|%K2R2k!h?ovAR+D&#QSh20a_cUEsc*XYk@i> zRoq0`ks$lIz8rB*In`l6Qr~D{54N@;ZlsMIHOX(7O??5mbvT`?%}r;s$_sn`_L?T~ zm=HCTObjy)mk`sIRVcTbYY#dlQW(^z0}{ujm|e#yeRK$7ZmO+yVt+Jo;xxuQolgRR z#~vhU2KwtLChYAv1xpN0)e-}^0u{_QRO>T4=dd~yeipAJHc%lY*HRet?qa%bZEP8r zv0;fLhUO6Lg%dru)4po$!1yruL^l0cQ3!ANVkfzm@KkHItz#Gj5$kQept?;!(Rt`| z0>u6fsd1A#I&mVT?>rFZ*gLKN_mQ=C!=s346ET_FVzLN|;8Ua%JXlE#c`vlQABm~} zX?)}DJrIkw5it#Fp`~upG%4nLlXhFtErQ%drRgxEiFDWj;e%q=EoNGO`@QBr+UxHm zHq;V-`aov)8a)eGRHk`P58(naxpm@HXv;_o0DlNRI~pav$i@iOzp%dMoZjU9oeR-^ z72*<_d#56Z1Lu>>ASYwO9c!4fvNC=dS<;`^6WSYRL!m&0L+l1syQXkK|-IK};kNE!n0J>>FRQwbY#LxUD zU7ksmQ1cWOH`ss^yk0<`%GReLTw=l+G&QnmlBWzGGY5h0X)wi@yMB-45>L=v$-L(7 zMg>iqs$^N#x3 zb*UcD7Drd#`?KxCzJ2)(vQKr?J4M;zg0hJ75tT#~;V`nk7F>scl;80s5_*XBkHf`= zFkREkTN54=Uc=Ng1%Nd|1>HSf>~Ushl`^$jP*fHkE|?}j9qj^hh)`z}JO)1;n1a{P z%)%?34cgGb<2Eu`nH$LCjmRFL^}<-674+Jb1^v8eth%sQCY09|ImTLN%=AJ98dfJG z1G6Pueqc%QiItI$?*vT`W{-6bCkP3a!m+DU{$^fgtz2 z%n6m0|Fg~iXz)p_r-Y5dJI>NTbH_3!=5KRY8k z3MF?}M-@6FTa~UZbVImaQvd~?Ol~NVn~Yi{h29zIdLu9tT^fA?KHSDLqWuZ`^Hu`o>ZxqqU)5c*E%E?$TZ22K8M;Q!7zYxMRf zO+A-NI`|1fbm<%E?ViinRc|FS8v9-#I7h>4_MWK1o=fLi)gS5Id;F3~Vx9b``2BV6 zB^B8%H~m7$=f4&kUYJoulSSl}|E907S`&CnJy~kF0Q~#8_+;J^pE(DA#>w6J*V<0Ii^6_Bjjn8EH6IbcylQ~k!oOAi|-Qm~WX*-C0q)G7% z{nXILjAcy{KJuDhNjtoa^Hp zDp=%#x{S|H**-f)`W8Qxj1w`BdUb=@U(8k+q^w$pMfUDuuWT+rYT;d~cXeVH)$|@3#FMWD@8h~<=qJX1zhb(z zBXci9DetNJE>lzYkjC1iOMkwy4_MbB{b+HxbK3j*&J-J$ldn%WTSupL_7j9GKO8N+ zmusa553gQjYwVNmgy*-YQF`NSnkFA9EBz{K4i4)3dg3VI%-1sR`{EeXRHl#j(W&cZ zc{b(d@#q-`pTu1k4ZPL&!j~tWYUNrLw}mv@GnjY3$hsuc9wZFzxO)9`{Vz}7wM3f~ z`8xMKHx=ds-c$GO;Cxww$-ar?@^?weDA0 zyd`ngOm*>Au+u=wAJ>}SiW^4zdJyV&++R`7dgAF)x88Q?yF`JYhNxS_o%CHn!#BTv zPj+Hz%SlG8%WkO{Upjo5y~Wb#y-ozeHXYl2lR5nEziBZdNmuI_Aou`~V3<@(#Z6^44%-rEl`zv?I^HoCH9_k40w zl`^~|es{P=AVTGP4A+s>A8wtrO~xp;wd;^!1s zs%0lvYH2USPSW#_S9$f_`<9xOpR}aEQDF)@e(?6qvpGJN^vLa+;}z*#XVaQC%wwJM zkJfuj2nlDVw__6|Qatuu5lY#p9UcEdV^8kN@xQ8uNj?4SK$G%$QfK;o(Qm_s`hP4> z^iZD+cQg)m-cdOA1O08YmwvbJt3}#l(=zdkjJrnftkCDqM|w-3)tzs@ypk&SsNm4h zu|)ibvt>~lvoWzV%{@eE9c$me@5HIaGg@iN*S|$N53HHy*ZUcidEH%lZngO}17x=i zDC?aJcoMjyxJQ> zGH+89*DLNFE`35}l(4%VN#1u=Zz_AT?b+k$2SJZcyVwgRrP!ZW^>y35kZRO7&bcM9 z{O5s7dl4UnX9v;Fg)u+EIxn^!M2rsm-8s&CxYXP>?tXE&NOQVA%5s~uitc%>`zw2n z6~rTwhIf3jkO{BoY>-*zC#h~}lvH`vnAIRG=`@`1cANTe&4`&Z&mSc{t-R*k!(nz#TNZ9A?jmF)ds#;GF6MnE0wRGfDDh;X(pEtK#Z^Jw> z%k1&m*KTvH;^w1WKE5}CR#{7r2K&FAC2bi}7Ds!3Z4*44cXEMJdV4aw)c57fu5@8h zWj5z5z7c(|(Ppbs#z)vNPhi^WhR{h1TKkVnpD%78o;=@S@KFW+ z(6v9Gz`c;*-d17ht!rL)Oy%`~Gi?jERITK1C7O@!{GxvA!pXVQun=#IuO@lJ#Ob4z z^`}>lPRLcK#wCy2^i@1*J-K+j^qNBAQ>O>ZzQlm0iv{fHSNhL>zE;WEedUPq_cSb> zu=m|WBe(U7cOJuQ(vPL_P4SGN_1XJX<0VNt$Ayh9Xsq>|_~hd}i!}AZ9;3~+X2-NN zD)corkJuyq3MlSn;vUNrH(bZ^Pco~6-o`AqMlLuXe%0OZ+Vo8LZdgD0bza!U+u)~y z`}44$+gV=8zXrpvM9$_re$&gy4>>L0fG*gzvb=Js+@`2mDTDAm|KoM8L>#eC@xHgO z#;o=eORZ>zbDV>$=33d&53Nqte{L*u%T_`)S%$&SyG_KODL>JKu9u#|AYNsm#|?$LMw+mbZ_s zeTkj7oPMnxAEtWB^~FAicfwD<-p>E=h(~e#l&eyTIzh2JdSB(s4m7hO*7= z=AX|QsHKiSDN=h!G)k#_bGh*WQ=;_#N1oSXr(Nr1hq*y+=kmV#RDKy*rE4cWd2e#+ z(*v2YbuH|7RN0$DW%ow^P_eXWI3`|>3n)$foNL`q9~eU#m0XrJ@UPVFi1DoNm&(5MLce%8rf` zpI6Ejby*6Ayx+kQ>p=XNoymB=_s16*%`$#Uxf0jk4uaFt@3z1%ck@!{v+1KCYn#{115 zmRkh>$g9}e_1~)6e*?b%4w4gWtQVgK36f4*&lqA3QZL3RIqvh!;Ts_eht z@~`O-|FpBmLoKntQu8#_ZH#Wec>UZP-n+k0a!A^-Yt(DO0&`$vB-SfL^jL?dywMqEH{~eq*^vEU9!3?d$qHSJdY!Bt#bxE)Bdt zQCGM|ycf_tJxOaIt(CDItCS$YUWm(P(6T=FsR>DPR__Hg@M;qVM;%UGIVcLVu-CSI z{=N)qCTB8nCH38(#So*2L50g-?PXUk69Tgi!O~PV6@Mk+UO?rWh!tXCEFp~m$4&we z$bAKvhX{!LgD)XbgFZtc7i=G?99`ve(Zrvom2Pa2!Z58d_mu)?$(7OqC-`tM>Yn0& zt@I_+N5v-!41Luf$i-Bn7Z+Dg{WA9}Mx|yqj~`=|2l30Kuxs$pwZ{Q6hecBb;c2=; z>RT>Fem$eK{fO)j6-}$JXYQm3Z&lmdME2)#tCmuu+fJ>v<(wtej3r5TWNHN+meROp zYj8m$%QnJG#;t|Y>yDaC7odbxc*q%xWV(ILISf*a`%fqdXgxJPFWK&F%=7n=s~*GA z3}-LBU?W#$UYlLXaM}aYN12J*R<1H1u4>+1#_!C0L670**EC4^ zV}>vMc~b`-jJ*TP)EYDm@)R(Uuze^y%Lyr12+3##2$-$>dkj)@?rJKV!r)Bfx$V^G zzDsQow)oc4xvRg=IsdwS18=(9v7 zKV7%;gxG!_BOxKoyoDs`idqyp2n+&pfSY^V)7wj16k;{wM!?Cmo;rkO&$y29b9GkVscf(cA;9ZZH-5IR*Rn= z$s4Jrd3v(ZIwhh0I2^<$b0eTD3OgIt=MgzJBsw#+J;FcnadLC|`r@om&}?$YI$J*| ze&Fi#7v|N+HDC1E3`g2x^b0j;UHgPA4%b2FCUDkz0@GRa3KFzNf|yuI?@k-s@;k_r z#P;-$1`yN6UgA-vGvnyeqSL;n*J#MCl>J^^?BHfW14Tn}t+T0xOl#xe{Nj)-EdlEO zR3@LjLScm`p~2o`Hv`}9;MI*@Ou$Vp$&i2pT&CT%OQRds45c24*InJf>^%r^pa4EU zJ3w>w`c@7-WFvCyOq(gYt&6!=&#QIfcnh)bYng+Vd{Z1?8uvObP7?7V5^WYpZFrHlRS*TY1m^_TlVTRb+@s#4h!9)YqktC5maQy5rk+H`Cev=9WIS^bYJy zS!jn#F9fBtoD~3g(;fE}`g|63<(XrGW)`&f&m!PQK~NupOlo8&#+~YWJpZV1+p`1A z?bn?x{o5lNMy9;DjsX<<1s<;X%q`Bk50o@jO`=y9`2Z;}zw7t5c}toH(Bk}5!ltfI zhIC^|u*2}kKs*w}P@Ygg4G8a5@E94VdMSZL@iB8Mi`?E$o-(9!q3;cpCA#W)dGgcW zTmPr5!4mawV44S2V91Ar<+&%g0IZCj-tJ7ywzJpIo&jr>lM*N~i#;}N&3)9CCJ^gT zs1LD{+{bCZ&*ArBkWp5(Ydsi=$^pns;hG|^9ivB6#f8LlWnahz=3-k$+L*q=K0G{~ z3K?=Z-Hd-ch>$2OqoNz@_UpyNT|A<=psh*?Un!a`3-eWm&pkMkN9eEa365M-@F%%| zXPVQ{(1mAS+cqHZ*2_nvDAsLF&I=%(wx|2%8MN0LCd!FQqm_JZcDo; z1zjwu>BWyFq6B|De-5|IP_TZLe`i0;AVXl-Xc(Il2!gledj+MJ%Kq^_*ecpa4t|nF z^dI4mg6ztoT%AekN@+*m1O_EohRt-qtL^CNLOLT;grwA7{2X+;kRTGP!?8O{aN8}V z+N9|7_9@g{pyMf^x8gL&uI0BWr50*<*qu9UveOmT8UuMKxS{f?*DvpW0$;O#TXMDHpM|T%B1B z_qQP-zV0Fz@ETzq7yQ;psq zrU6qppW=LTqBc!vYo$u6RgkTev8IIe;B7sIL({%isFjOmuWu$#;+J<&TgoK6+0LW7 z-m_ed(>o?NZ}B$u(X+DvZu;%RVZY#Wetz$=UB66dj5k*gaCbgiTjTAi z9qB8T`RPp*H=?gDlyuk|$U4AwGw5sR5|Se=n;lc`d+N@>3$t)#`1RwdXU zT$SgG^Jn>0VEa8hmX`oE5gi#>s#@et1VasaQSstOC^5RN1RWV?Z*bm7yiIB^zXY<} z29>ySAkskPLFPD_Mguw15SJs#2~Ft#ZUMiDFrD^ZzBQ@>570X-yn+6pHK%cHJ z3I9|~&@O}W8aQCMbB;ZxTVL_Z)D`{ENCOzq$GB{+wLYoaKbgj+ML@1R{*>c8RL3fr z#WRNHuWOlmwr%bs@w!Z+>-0V zZKJx9U4NdKB*pL+wEbgzLBsr!E><|EiQiE+T}Ebx<5sy$ebD85vEJ~zIW>iG48AQFv`UBou6qdVDadEg3kg{rYhT$T?PSCwHAQ`h2T-Ab05pHV-NxOKn^=79DFjVWpUUOYnJ?-++>m*_9k?V z98nFekdf`6hyTYhj2+lb70!FM_v%0+5S&el>A_6Hw<7))+<{C1lIt*}13_-jDU7%~ zhBy^c(u4;TfXjbh;QBi9PuqF$f45>f2XQP$-t((@rUsdvX6&*0#$Y|a&@B&H?5HC!*5ir~H0w>%0`<(;%l#3KG9cziQ09zHE zG*5pqa6%{aB{09m-WY2@dh3?Z(9rbY)b`?@W=41dLSnbW)3nXYOnTP_Y_4P zzY{BP`&UULsSeTa^8CT6YSVXOLwhvI^z@NapFTl!#>Z=X&&VYDPuMr5*c~< z@kMydrVj^_gkB7YPESIltdI_G-9U)E2$7b^yzondg0d@D3A<~s=TpmR9Q4jU8G-(2 z1*><808D}yKD6I1<3Wo2P8mF9{qHwzkjR_C>%6mgymvzB~|c z?YRp_S2WpS!oUuH+>(wtI~EDTN<_7@4-Y9#u9g;!^!IbZ%U4obg5vHa z+jbcwNZ%}aBw_C9ZyK)-rx4|LzzmT#2VhoJvuXV>q~B<8x{mcPcq-!SeM@8E;ntz@ zYzs6ygkLt&J@Qd4v?V)MMq~Q@p2`!z3$3+mV29a8CCC6Ew67D~ND;2!46u>N`z?Mt z_5#B6DdZ>+8=X#|Hk=yG?c7cu1`Rx~z%8i^CTnIt&hECDiA3D?l6(EKdVa>9~7$0qYE zqM?RX&e}rg&H|4qQ9Rcpuj;$%fYy=HvgUdYM3;m>T4;ztwjI=!nA}hscio%2x*H5_ zvLymE+qh|xZ3KrQ4use1ocMj7I3f0@_Vgvj2$|{#Ir@Sri7+301Aba#iHx=OY5D~2 z#}8XXfCV(0^Av*ksjv02y$-iR z{!WI3qyaPO1W-pKRISZExy&WwZj5%j-<0as62`^Mefp?nt-r0ys0 z>*~3@FP+Vv#(@sbmB#-|X_7S7NvC6VXUeXCC(-q886&`%E#0BwUfc|aX%dNhfzC}N zcDMjVK(D1Eckvap?q>->J#q?&iMos^*=M?#Jw2X%P`LiO*Z7nuqneAgh+#P|CNeFO zSrB;=qeBf$=@l4|1y|xtM89ClbC?3EC8T8H6b4f};0wFh8Q0WA`cU$rY;xr_4@?|N zd?5M&3|zV>{2<-w`mBYZJf+7gudDpG1p{V+m;+B-qqo}=z-b43y%c;~$Qzz)KBbef z7F=}l`tJ@vLqq+psk1?er+I+Vcb52+v#Hgvk@)r7>RTn0#RcFPLL-t;B)K*+;>8P3 zYH1>Z9vO5=dJh!zsKR$loe<}~j?Vf9co&t=XO^lt+K0;`ESiui2{qj9Cl z(0_I$QUDKFHUL99)ry>2YoWILF1C$?o5TB&DFo9D&}x*FOy%yC*N0BYSoND*^&8FN z6=gwJ&BLp1fa3Yap4h++FdevRG-Nkt3VxAA8lT;^1dnq$61-gse4-Hab1>T=OU|SD z>d@H@ry-~FsPuzM>E>G3Z0&w}9qqcR7jH$WD4}5liw_z3R@8{V6cB9JftQ+%s#0I1 zpEK-2kHucrt0-rs8^9rMfXZ^Fma4#1$$vWcS&Qwhm^f$EU8?3i;#MKu=Zs(O7s59wJ=+ z=8tq|LmOKem~Qqe0wr*G@Q(V>plwX5xWB&_+Y?I1_OjXr{5M0_7srEvkUj%(QxtM- z=*1ZkPjTlfugx0-4^0Kx15q9d$o4dZ;UNB2Mt~v-JF?@02z+61uEgfoNz3s`h_kwA zGoY#Fr4%hgC>iMa{h&(VA<_D!%h465NUFLattm}-Yl4le`hv9+!L(rhbhhh0f#Yxl zY+=u}Yn#AYbcBg4tc{zlk>OGaMc$}`E~$}`izbSgd+%nPIjkgs73-Cj6(@LLbB<}o zsjj!>__^JV3@YTq*Bs}%a6k7@k58Mquw1L4;mE<3c~)c5Be|t(Hq1ud1$6nFE%P zk`*v^@K!`aG|N*{b&Q4Pt1ix$o1~>xUa{qB18{&d|JrROO*M!o^?V(@sqg6uc?P(X zY+nQg>r**F4%?^G7>Yq86jol#p`!{V>4{3W`4 zu;{FB_R*n)Q0SMH58qmJoIC|Nvg82-vPplDe!Q=YM2-@BT!glJ;#^cp7=Nsfg8z;mrMH*_XNZgp`hE&+koPRNyp@Z{P$yn6X? zm={dN4KZvA!UdEBgEU~ht6?yW#x2bq(hapy!S>gV|YeD!6s)Kn9}qSS%O!<3ifNIDT(_E zcif$nD{l|icVJv3(;eD*OFVsa1gC*Sq8{&T`rVuUKCZprwkw({5RDuHL3FShCH^`#NcYg{K-h4_6KT&JRdNo8g5 zMXLbMErcVY(7z3p8kkak&Px6as3ZqKhFhZ%z?H?2rwEhY{6a=-a8cJax8Y+T4k8l^ zD2`6wWl*Vg&X`ozhDV|JjqBo73gym%PY-KN*i2x2eUFckdF_2>fv*~=-~l(=TMDuC z8j|>^x5QK+#mNnfY(@&l^%SfrNdqpF=sOWl!AaTdN^LON?Ujbgd7?L`|_rDC5p94Bm`@H=IRwpkZ&Pc-+ZYvfcMn(e2Y^ES=_|czFQ0c;{ zVBky>5iZ>FN1D-A5kqJAy!`3YFk??>Gg+ynIIgB6{ZoNXg&^#bTILb>H$*qg1u>8# z;nz=u7-&H_ScgbY)jA}s8iwE*QzWTvW1`N2nYv&G|0HPdpe=s);8N-7u>@#kC<_n# zcP2_8Dz;D;E4>ips4 zcOmQ}-L-on10p-bO;l8?inXTviciDLZ8HY#HEjCx5IK?_ODt6F4jGT(!EC~xkCY|i zvlK5GN}z7uRyVzj54^RlNHIlBl(XsCQJApc?On5;Kwj()Ny$~q5JP}&IU|w_2B=e& zCv3kf8VF0M&K_YoTT4J23`ysb%~hOtOO0^3g; zmF1ZsDe5(oHgvv93G1K}b0bZh4>)zNRVN-TbhKL6|bzq`7wE>}C);rV<$AJ50(qML3SgeLLGqvZ1b7wM zREd{42GE!qX+VbSW;SYSz2(GrIy|Vx$hDd#=!*dc4B$4y(v*g-fzicN< zD#{@}win3EpX{`v1DFK{=oCgTC|u}~@fM+kvdibC-mO`l)L))30u50B2z;=}EN_;* zjNb6b57CkWx~=LM)16dms3zq)&Faw2kuRSf`4^Y156Xi!K<#=7DM~rv;U2Lf3lcF& zS;F7(P|@R`$|>I?+BU3MI)&pY0;@2|P(lYXWJy`MZ8fuAJI{+>EOcsEktj zRH2o1&4;@miIm&w6IFTLRO(oL^I3V8fg&MehnN{5O-N=CLU}&VpVtwVnXmf}?K_-C z_nGd>S+8?a@Oa0sUA|l4_RN@QUCGfRuS0)?yj@JvhaA=H8rE6gKmY5dXe?AgZtvT-Z{K!b*i>xdgD6~9a9K=1tB}6`DQmWBtZ!K zcwI5xVQn@%!_WIJ|9st@`PJaabpgBKFj>ZSbPw!1 zpL8jE>QV->%k}^KTd)ew4Tc*x-#vfa{K%&XBMY8C%@J`7w@40pvUR}x;vIiOi>3zR zLE=C`FZ!*?<-ZQ1hdd9yEc?ekXPQX}roF#dG@KyhCw!tU8aa4aWk1kQi+zJ7YcAnk zS#VwDXSlIxM-@^9x)$l{&qrbgu#{}PTE+gzPrpT8zIw~m;xdy=ws06^TMvGk-HDHkYz*L&`CNQ2H)C zg6YX+E{rF0h+(1-Z*b-wv&0PcAi=v_5|uh#j$g%!tY|vyXP=bc`{Jn$+I+*QT}eI{ zRlP9zIAg@2fj|!uuc2%7BrjyL4rco<@cl&UvdrFbm5KL5F|7jK4jUuqE@-gsXIu7Z zvMWx;hRP;*cp$2heXZA;D*cm(TOw~xuE>mm+t>vq=Yc>~ z?}2|~W22Udk=Ybx+-;9(s@LT^HmM$Nx`mc*oWsPkV}}94B-b<~>Z7HK%WA9!>i=>K z1F-!vT&apu2|!zCY7L0%o>VrA!VLNo*D$41E^_Yx|3}0a)liBS(&nHG!WkOTKWg8lPVxX@0eJNA+BnQWdACal*F*atW-O0-Xq}mbO;v-!%`+hj(ZU3v z<=*|$tnLXR0d7x0k(TL~0q?=2Y6S$aXrr>0otcvy8q+_0)c#B*HHno>j+8TIe>GIz zK7UEF+}8;tU>P3BC)G*9b}-gUQi6p&9@_bGxM%?jQ(2wst*dC8OEYQw^bAr00024( zzLZM!&7w2J!*`QSU@-`<5m zw+uhAa=Bl2p89KX=7sEyJATE zP!O|+gLeZR{)|9CP^2yJdgL-@5YXtPHnbP!EOvOEefu*QjI?17&v$S|N`%R}HE%ps zhCbq2blcV$r+M>Z8dcXyj&IGC2Z5|L9f>?NlJo z1s>Soy@!Ph28`xF4$1}MT+R(kR? z2$Dk?_u`_Mqc|F%8PfXwlC02MCiY4rEj`G0hOThv9YrvC_B!oO5}AM%3O&^m9E_8i zFhfpeUhCf9HpD|K2U>ltG?+h0nr#rF)Z)N%y|~2=_y+Va)4+JrL(QG?H3aZKq)R8- z^Qd#)9Y@}K0bNxu18zYnW)x#JeW;vrjT|vN1pkB)X?4OFpzO{%J$q{r%H75xqRCY3 z%B^39W!~$c1M>Hr@+6Oup{QC%acp(l@DS#M{@JI7nE0dX*6C0TeXZ}1n_}BXgAIci zasp58v*RX+e?@agIoKAQlmh)En+2vl1r0g6Q^F7J&MGl6(jjgxPNen6OzEjzWW)-+} z!DjcbGdW8!Ze`(9b3<`?%-Hra-qV$*4F@QMy{okgQpc2X+u~~8{>AIL_|Rz%;~1_c zKID(T`hHX!HDhb^Qs^rW^YAIW!H!W}MVoQW+nhGXv3s<&9Av?wtC=A33;9BybO~D)AffGj$CJ20iNIL&qDV`=yWSo}QR!d4NMmLkf^9-tnA6pwYX|m2siVYC z8iD_Of7h|zo}&zcV!GX6NcMU(z@A&#_@83L#v0G2#|=lyjfSvZ`(8RKM1E5wf6&=b zrCz0~kAB$ef%(V6@Bqbdn`hPWmx*s|xYnIK@Y=aS$E;V88#qs%`(U_t;7?2udZ_RR z1o2(5SNUsg#-`M^G8t*1jnIa6A2=|m{n%{O-pf4$R}0xxXrkI3)zZBlzvZ1eum+us zUh*{YxFYEalhf;)>n7fFYRJ|)hZE`!jXki$4o>Z#F+UQ8`Q+Lif_KL?nI+21rf_WY z%Vw`mTT$E)Iv(hM*uKR-AE8L5%YuejFz!D6?b$|w(|b<03qCKKB7pmg^RHb8*{Z&u z4w@e~519i`tZ)6o*>L%>?y6e_ zhcW(yad#e&^LXPSbbsEs1Bca_DIC^9UQS0ipDpRrZ8vg&Dy<_^#d98y5n@$ul`{v4wCVQYfY zLQWzcdB+KEy!-U>E@~sL=OJzKDnlEZbBxn-RQ+_&_=Ao(Z4a#+T; zW^D1P9$FsS-S8JD@Webwr6Nf@F)Tngw@^^&Aj^C~LE`5#4|R>N&OCE7P*8HUVK~9F zZR$pp#i#s1EpEvHyu%`F*m9+kf6Oc7>wb4Q>CCPMiyI{UM{z-B=WwQwlss8KkhmMIYhCkO@uSd zcO!ZeyAbw3CK1t34mES;=slvmN>P*`p)(!iju0~#3VBx#V5)z+1T5D{p6iruS-z|x zn(ZRIXNF}d&Vv4RYK#!D=sqO#zw%I0pT)#Ba(Mn=HYi1ru!Y4_;AOOF<~*a6nKuFm zoUw3MCRlPKDR&{R$XcoyDalMoBiK;^nRZdxe@rq0|3;J8F^o z7~`%4BvGr9DAfJ&NzgH(wXrX@nLm({Iy8GMwu%XH$ncCE5+O+M8R-fUk8y@y*mZ!H z-@AWQOzHdtWT5O#F$c(Li^JU{$PYh(z(gh0koSHvFx1*uc*R4zFbwGk7zwGo5uQA7 zZeh^~Jah(hz?dBCb{BuYD))77N$mL+r!2UanZ-ZqX)4B@cb*@Lc3j^W%f;pp9Z)sd zHBdkdSIxcfl!>i~cO+7rIX%M(TUC@*6V>ulBpF>Ml8NHv8J&PIskm15SqX{?b4Hs3 z50EyPo0UXvLRrrg3fUo9_e2vX*Yg2re=yZM0$BmFF{DxIxPgPPo$ z_~5=RPKMrvVTjarrczGtiV@0LR8jmZFlOUV5)(9}3gL@w$`vHe+zK&VevSx>g)!V= z?bNv0-WkZ(7#YIE{2_olB-QM`ACVYH-uk0ohhjV$j5VyxQdjDZ1ufAsC!?%m1?ez5)rnv@r7 z5Nt?T*!J(lWp4HtI_gU>6s5j$#^vJZF>_oBm#C(XaL__QFQU%2O`Eu`aUcHuzgw)s zYo2XD>S2NkAz^ELV@8QvR~ng@mp6q~!=hnFl$Lv)V?$fI~m_RW` z+3&=w8pIBVteh+iBeT^4zkmlP;iT8zZWy+P=(*bTxyLi>KM!ox$f>Ni==|9EsSO=j zZc|y<_h^SA$S7Ma%l?tcJPB{9ts<_xam+a;Y;dy~arwE5>%sj;bWSRW!>WhkUA`NS z)jd0oUyWOK98Y)@xPZGjQAYa6&B(oZdBd3Y($V-pHziY;68!#?c?f|H9^9o(71_@x=`X%|h{to$qF=-S+shB}*`vLUOF6X-68XB?zn5>tz zcIuAXvSr~8b8f2YcUBMWn5i+Vu`4$>tb3d+lk@zSrp2lirDe5GsQqpE*-i zEzfN9=E^ARkVW?Ao6CxHY~uu2oFuEFX;b=B=*(A+tN3B{Q*+B_DOow%t_MJ zb_n}N7=8^rDV`f?;rNxc2;hFt-{$JgWS=`#yS79Q7UL()4&3#F%wpNuiHex%!-kdz zUYH|(JH1zW7?wO(IDxG$GitAU=BCb*A2T>{T!yzR(;r_$o?TeqOIa9q#`;}632|Z1 zV*32OTH=n6n$eCcZcw~2AO-Jq0rQu=exfK0Z5xByN8Qk`)T8mZJwg}%Jn#8C4y+{B zN(x!!>pk%l2uN!Op_t5DJ(uDkB}%0>Hhekwgu??A6S+M z^X=R=`*^o<{0wou@9fz&XAZ4hFrW*wJlz37{Mv-n%j78~ngF^X82zX|P|bi8tl;I~ z>CPv?!_?G@)Q$^QF{(3J#MtrZEvz@6fvCJ%wuC2<#jtUawGVDp1m6%ujDv5-BHG*) z(#+{<<8*qa>>NHWP|RCUj`M^hAIYH?cHeeMhU^GxLr0I$6>e6+#$d?@$Ou4?L!Fe9 zTDs|Tw9Je{%B~PDQ#MQ>X*0fGCGD8>wgEI9{@W9u&L)Y)O9VLC%8Hn2F$#&2552Uv zc8R$RMHctWhW1WTTtlg-IrjFHg;&mt&B_IO;M$tP&&~9&A<9FL=>0u=k0eNOQhwwJ zo^pd_0;617hrvNxv7o@gX_GVYuz<4F6`x0I97{=UZ+}~P zT14RZgl8$uEl#Y|?iq^d180?`s6=57Y*I)qJ_>uc;=~qow39RBV-a(^9>pXy$MT_6 z1G&ssunVAFug;?XkL;tHDGP=eR(bN9Y^}Lbd;=Q$6oXeK7pkn&=Lqk z%3QXaAzF5zP%5Z1RD?;)(xrZ7=<3UZk)DU^V_noG!wbT%10|m*v8Q8`(%#&*>W@94 zw`#6BU;FNds=CoN(dn|~=f?(*#Fd?>z4aHarBa%3k}|+-o=%JM?Q;#V$Glu0liruL zfd9wWJu8)#laoWLhfK`acQddG2&wQe;!a-5s;Wg#ZPJ81EF>oPrB!;r^VS%GAgj4hA%gal< zzUZjzGWM`nj}11kf59d!hnOzedye8-iMwr(m!iUmHP44`sR-Z%arr{=jQv4N*F^so zV>(|OdZwtJLjH&xLhP{E1zVE?Sw)uFYYUCgr zSz&u4%2uKKTQ3C_^I%K3sxX(XnBV)&`R=xj7=w);a)C^9o+J~|Hi=@}Y3GC*SBF}w zy@%^68*az6j%E_h+(x-L6(w0&ZIbK8a{=)!wCJ6Gd^!3yS! zE;cjNyklhUvcZ!lto#8w3@yJ|+sPPVj-FK5eU#KW%sNOCXWb8Oj*%YRdE6SV_&QQh zT|rhqJkYhh-tA#t#L^DrI?Oo?5wYc-i1T}y1g40$^sOlqvMw@|I`Ba(MTOP5sbbE_%MXq@lN)@=@bza&@;N&VRGZ$qV z3(8ncnE#Lg=u1*YP}s;;7xj1H6hl8Aj=fFS|F~TeE3=P{W3RS~F}UINz%pEqVY6O$ zy~6G=pOpH*nKbxA2zT>r2tiZEm!-GFA=;S(UUJTCK-X-L`w?kazy57+rfjk2{$?US zf!kUpRQ=vlyXW({G}+7he4L}g#i}~>r?g>!Pp$Cf$EUU&LZ-WGNHhrY- z5ar0Mc6f*)k)!-O__SRtmHPIsKZg-4iJ&h|h#m}bYc7SBAb(Yn7ujKfel<5{u@NM5sF$FkPh*d$ZvMO|PgojNB z=cc&k*iK=btiHY@NY0Zyc7gMFw_Cb`04TiA?lD02eMiz$Sjv6hzjBF&pjpum0V{&M z^32v|JUcul)(sy3EvIdhNIJ#O2f^N|T1w_@{oTz@^O(ghl7HQTU%CibldAe_Y z`7^o`XE*$@i8^04)AhjWvF-DYyJt(+1ClH*X~H;W2tQ{m zY%Plv?! zWy>4ZIJL}uP4s4vB=Qs2dEjcHzh^kcRRHGsy+)>6W+J`eYSimgE25mw9QberPDR8EMT#ZC>nC86ABDcgmQvPfg*+Eiw=P%*2}b$|WWz ziG?isAt7N8bts`}gyDi>3bBy z=(O6`C$CF3E#YphzEt)hT#bi!E!+0)L5Pt?cUIexiq?OUIjg|}bviXv;u`kqZzCJ! zWFAuiY4L$<;-p6ErX8(~gfHMZX&%JlJZ!f?`*)G+masezEx!MNofOE%IrF{7=&T39 zy7*p|xcOQSQPUDJpsT?*a_qkCM>B~#fMQwyviKePbTL$N}zw=~2Ud+i7cCyiykwiUM>%m_{U%U~$Bm1X8#<2%YyE%*g7 zSQ2?j04 z#_^4Nx25P84}9`2I0#*=Spdi)Ms6RPhZc^gow#1O+J6*D#zxH*bBgh5nXyKs$FprO~cQfE)BC$=Fn@9YCFH?5qtQ3j(f zA1A21^w{pFna$ck%HD*GI{ApnZkuy{97y{yJcxk{&j!DB=HYt%gW7&_0DFYi)D zJ?8xfouUn=Y65~IubeL3V359{d*A@oXZ$MRgS@GJHc^z0=f}87e(|5a;~3+de8>Da z+x#gu_pOe&Yv7o;KEsLD+cdQqVd5*0`-&@c5_FlK_^+UlLu4 z3*<6I=9LWkoYIlgW`}q6hvx@<>snWJeiBQ|SWQg}X^lSbIvC+MZ1eJyCHCjL7vINI z)_0E{QXCG?S*xd>6CEExgdB3sF>T4W!-S7f7${DXh@_q^9Ui~qWf@Yjyj!h>47bc! z=+%l+OB$HV^&X9MK@5#&% z5T3#FU*KVgnZ=cGUrK`p&1m-Y)X`)y5B>rQF_0-vxp(g*iMMC0F;@Rp*yXJ!0%B$u zWOOa|Op-{Gp#87`FAA5&&1mDbaouv|r_y8-9g~1QDTU-!#YP5gu9*trU@#nr5$F)a zu$n0il&0gN)NW}=3YP(fC+R>z`qk^xw46X1sgOvUs4r|}Qm_-QHZlI6a^PVfFo3p% zz>)Aq&4W}7F|&EPm$y1a{RafOHXsw*No=kpx>UFmMw$uhhZg7F6YHS7HyP77PE`n|`GG5`roAo=*lc#;$)atB_&i;Y+FUszNgg!o z(a;fgS_Ehrk~yVB?!!|urBn!6ERw&a^IIzW8!z}hf`)*`4Tm@ktRQg~(kaWMv9;KE z&l7jHnU?ANbJnWYr=NKG!#3PH#OK|&iaL`l;y9d37q4od=tlR#;n~K0r(JR6M2g8gg6Mo z{(Bi7IQYrPGY6&G8Fhq}dNT&Y3MT8|R{3RPA?&@<`N_Ec$m_ZBmaQWaZir%YkR0MU zazdFM;lK61qGU)|nu|XcL%GL@OPz8sMmnz1e~QU|YRiiEfYB9XgoAM`8xfi+a3%C8 zd44^RIAgyUc=T79HuOBSi7EN3B2~|Mn(Tweu)WzssR)lk70!tdmDZcNk3!!jGmpd5 z-M^RLWkdfhP$ZUG4G zQeL^7sN(R6y)}YX7HmcTz1He!=)Gr^sKw2YR(?=+TPL#pp3??2+&EcxvvI4IXxvfa z$u%fX4I`&R+W#p>2Rxc1e~Dt$)X?9DM*0ZK(cFR4JXwO;C+KppN#^$=~#my+h;NRmh`1eiMDozCd{Z z47$EH8$En`J@p)}$-1&n_Mek(5a${X;> zLYCDXOl2-MVJjPJ8*(Wu^b3vn(?|SQ+vCl!@ z@A=on^XmEsQ!L#a96P7CSnIK3ps`~a#X;rohn`Lw-)w|nFZLADC=aD#iELV0q7B7X z-IJ!pY_-wSM!1swa*!3R=8AS*y;R6ZwyC0w@s{pK7F`!ebc?+ zX@^OIf+hwDgjp!R9-bbKB@Vjj!B4rpYxMQj=Q!Jy1>wSe3CA<6ZDATliy?pwU^=>{F-g4CQ+Gc(VyC7{7sXbM*H*A~i23!AjGvIFB_53f!0woOg}n zyVY7h{g1=kOgo=r3!pIAUL(+i*6kTSifuh$mM5^31r2e7HuGjS!A&TYS6>elgv^F} zZ!1q_(ic1Fd<7V3aQ`Z;|Ich7OG4-!mQ6Q%J%rg4g`!7`D;1Ie{J0OlwJ?`iw<9_g zq~)za231%1#T%83poJcuVl_C4FC5lZ4-T*c)$eWKZ`4gA3WT|J7dlVz$pP+6$QU0OYyIEt@qn1KTV6^Qd zK(w;ZX1_T+ED%>|_$G7OAc#oBRzR9yZeF=>;dF&yd;c1Aw(3*c(VD$O?vNSZv{L^r zsZ$`YD`q^m3rD^0V2DqXouRB)D45#>M78R7XdDwo-m-5p^A=s>57dGHvIvjLqs}ggl zXNhRjjPnEnpL6;Y{h954&n{C#CH=(1-;duI+>|7XzUI!#Ih}rUjASbHEBf=p19E<{ z{*{r1N8#xrrK?a}@0S|kYDvyd;3?9Tj{xJ5{83t#>t|CzX2=(i$tIJ(6r9E#f=Yi} z`M`(Iw_X>2Si(E!X$<0%kQP<}T zXf?Cr(>JpNGnaqs&E?bVGVc8exgCc+Sg0tS|9f@0Xycn*n5aJ++TwZ2c4mgc9R_ld z#*LyL2k(iCdpxw*D(w}Wsq=yy zn4OM*xUQ$##vgwknA(VZ`O_urvtO-vOV9RJLl$($d>@HE6EbG-G_~2gJAHi&eMBf+ zc1JiuaoNJKdTUfZD`_aH*Sil6IG$b~;By{dtfZ&ce1PAgsP|t~(K`fWA{g2RzN0rN zvOG4+guU-vHCGOD-kP$>@n{>lH&5c-&1x4z%^EJ$Z|H)%#gl)14)!09svS5o(Ment zh9|+(ErgxM6pMFjK8`u4SFnQ4PGK2BJ5I_+sUj9AP+^2Hb>VdDU}wy<-lHT=O{GmE z5;IlxQ|c$$V5b*-KycUp{B|JJnVe=KU2HGjJi4HBn)dqS|8x>l-j&m@5_T{{koGnnMwx(FzP~|-o!lT z2o;HYIwkUxvvvi{W(MntONfP zx{w3psnt@F$kce5a-itRT4tTnRB}Z++;LT*Weig2%H>T?%@fQt(e|uZwlYUX67>%| zm#hKGb#xg`p{yPQa9$Z?CC(IV1k{Z6{Kn=P(&y^M>n$A(9horRkWSAOeRi{x2au-k z*u11K>l_m+KRs<0Syo%LG83{Cq}AMWQGaGFXR9rGq(#iwX;rtkck{v?1DFFcE1R59 zFk6;>B9StcoiDb!i$Z?CNPXGTtxzIJTFW<}YtL0h+9Hpxo-s1=g=2=Axvl@BV3jYH z7;iQj=7WbUys)qYJ9w@SaZtWcY$XLjR|fAm|HWasHcgf(lPT!8pIu(3{B~(CdGfBS zTmb2kBBf~~J%Mw~nPT|iZVqxY(VArv!w&NsG4>I~V><*1Br$j>Z9knJw9@nzZ^}t> zc~843Y>-oS%R1o{AkaDaevn4g*G{BV)?